In the case where you are not prompting for electronic signature code, then
the following would work. Your example is using screen handling by invoking
the ^XGF utilities. If you do not using the ^XGF utilities, then this would
work:
VAH>S ANS="",EOFF=^%ZOSF("EOFF"),EON=^("EON")
VAH>W !,"Enter password: " X EOFF F R X#1:60 Q:X=""!'$T S ANS=ANS_X X EON
W "#" X EOFF
Enter password: ##############
VAH>X EON
VAH>W ANS
THIS IS A TEST
----- Original Message -----
From: "Greg Woodhouse" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, March 10, 2005 2:53 AM
Subject: Re: [Hardhats-members] How do I do a silent read?
> That's something slightly different (and more specialized). The point
> of this API is that it allows you to promp the user for their
> electronic signature (something you, as a programmer, never
> would/should know) and verify that it is correct. It doesn't help if
> you want to do a "password" style read (i.e., with user input echoing
> as asterisks) and then get the cleartext value. But that's something
> you can do with XGF (the VistA equivalent of curses).
>
> --- steven mcphelan <[EMAIL PROTECTED]> wrote:
>
> > SIG^XUSESIG(): Verify Electronic Signature Code
> >
> > Reference Type
> > Supported
> >
> > Category
> > Electronic Signatures
> >
> > IA #
> > 10050
> >
> > Description
> > This API requests and verifies the electronic signature code of
> > the
> > current user.
> >
> > Format
> > SIG^XUSESIG(duz,x1)
> >
> > Input Parameters
> > duz: (required) User number.
> >
> >
> > Output Parameters x1: If the user entered the correct electronic
> > signature
> > code, the encrypted electronic signature code as stored in the NEW
> > PERSON
> > file (#200) is returned in x1. Otherwise, x1 is returned as NULL.
> >
> > Even though the Format above shows parameter passing, there is no
> > parameter
> > passing. Also, this call verifies the signed-on user's esig.
> >
> >
> > ----- Original Message -----
> > From: "steven mcphelan" <[EMAIL PROTECTED]>
> > To: <[email protected]>
> > Sent: Wednesday, March 09, 2005 10:41 AM
> > Subject: Re: [Hardhats-members] How do I do a silent read?
> >
> >
> > > I am leaving for the airport. I will have to find it. It is in
> > the
> > Kernel
> > > Systems Manager documentation or the new Kernel programmer
> > documentation.
> > >
> > > ----- Original Message -----
> > > From: "Greg Woodhouse" <[EMAIL PROTECTED]>
> > > To: <[email protected]>
> > > Sent: Wednesday, March 09, 2005 10:13 AM
> > > Subject: Re: [Hardhats-members] How do I do a silent read?
> > >
> > >
> > > > What API do you have in mind? The XGF utilities?
> > > >
> > > > Incidentally, here's some code I wrote to allow a user to enter
> > "^" to
> > > > interrupt a running process that's busy writing dots to the
> > keyboard.
> > > > It's not exactly what you want, but it shows how to read input
> > one
> > > > character at a time in a SAC compliant way and also turn echo
> > on/off.
> > > > (The lock statements are a kludge and shouldn't be needed.)
> > > >
> > > >
> > > > WSTUP ; setup
> > > > ;K DTOUT ;in case it is defined
> > > > S CSLTMP=$NA(^XTMP("CSLVEN"_MID))
> > > > D INITKB^XGF("*")
> > > > X ^%ZOSF("EOFF")
> > > > S TIMER=0,DELTA=1,DONE=0
> > > > S:+$G(TTW)'>0 TTW=DTIME
> > > > WLOOP ;
> > > > S YCHR=$$READ^XGF(1,1)
> > > > ;R YCHR#1:1
> > > > ;S:$G(YCHR)["^" DONE=1
> > > > I '$D(DTOUT) S:$G(YCHR)="^" DONE=1
> > > > L [EMAIL PROTECTED]@(0):0
> > > > L [EMAIL PROTECTED]@(0)
> > > > G:'$D(@CSLTMP@(0)) WLOOP2
> > > > L [EMAIL PROTECTED]@(0):0
> > > > S X=$P(@CSLTMP@(0),"^",3)
> > > > S:+X>0 DONE=1
> > > > S:+X>0 @CSLTMP@("TIMEFOUND")=$$NOW^XLFDT
> > > > L [EMAIL PROTECTED]@(0)
> > > > G:DONE WCLN
> > > > WLOOP2 ;
> > > > D:IO=IO(0)
> > > > .W ". " ;a 1 sec. wait is built into the # read
> > > > .;W:TIMER#2=0 ". "
> > > > S:$D(DTOUT) YCHR=""
> > > > S:YCHR["^" X=0
> > > > G:YCHR["^" WCLN
> > > > H DELTA
> > > > S TIMER=TIMER+DELTA
> > > > S:TIMER'<TTW X=0 ;timeout
> > > > G:TIMER'<TTW WCLN
> > > > G WLOOP
> > > > Q
> > > > WCLN ;
> > > > D RESETKB^XGF
> > > > X ^%ZOSF("EON")
> > > > Q $G(X)
> > > >
> > > > --- steven mcphelan <[EMAIL PROTECTED]> wrote:
> > > >
> > > > > Why not just use the Kernel API for this purpose?
> > > > >
> > > > > ----- Original Message -----
> > > > > From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> > > > > To: "Hardhats Sourceforge"
> > <[email protected]>
> > > > > Sent: Tuesday, March 08, 2005 11:13 PM
> > > > > Subject: [Hardhats-members] How do I do a silent read?
> > > > >
> > > > >
> > > > > > Hey all,
> > > > > >
> > > > > > I want to ask for a password, and echo *'s
> > > > > >
> > > > > > How do I do this?
> > > > > >
> > > > > > I.e.
> > > > > > for i=1:1:8 read *S write "*"
> > > > > >
> > > > > > gives:
> > > > > > a*b*c*d*e*f*g*h*
> > > > > >
> > > > > > How do I hide the letters?
> > > > > >
> > > > > > Thanks
> > > > > > Kevin
> > > > > >
> > > > > > P.S., what I really want to do is to compare the
> > > > > > user's input to the electronic signiture code stored
> > > > > > in the ELECTRONIC SIGNITURE CODE in file 200. Is
> > > > > > there a Fileman way of doing this? I just want to
> > > > > > ensure that the user knows the password.
> > > > > >
> > > > > > Thanks
> > > > > > Kevin
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > __________________________________
> > > > > > Celebrate Yahoo!'s 10th Birthday!
> > > > > > Yahoo! Netrospective: 100 Moments of the Web
> > > > > > http://birthday.yahoo.com/netrospective/
> > > > > >
> > > > > >
> > > > > > -------------------------------------------------------
> > > > > > SF email is sponsored by - The IT Product Guide
> > > > > > Read honest & candid reviews on hundreds of IT Products from
> > real
> > > > > users.
> > > > > > Discover which products truly live up to the hype. Start
> > reading
> > > > > now.
> > > > > > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > > > > > _______________________________________________
> > > > > > Hardhats-members mailing list
> > > > > > [email protected]
> > > > > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > > > >
> > > > >
> > > > > -------------------------------------------------------
> > > > > SF email is sponsored by - The IT Product Guide
> > > > > Read honest & candid reviews on hundreds of IT Products from
> > real
> > > > > users.
> > > > > Discover which products truly live up to the hype. Start
> > reading now.
> > > > > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > > > > _______________________________________________
> > > > > Hardhats-members mailing list
> > > > > [email protected]
> > > > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > > > >
> > > >
> > > >
> > > > =====
> > > > A practical man is a man who practices the errors of his
> > > forefathers. --Benjamin Disraeli
> > > > ====
> > > > Greg Woodhouse
> > > > [EMAIL PROTECTED]
> > > > [EMAIL PROTECTED]
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > -------------------------------------------------------
> > > > SF email is sponsored by - The IT Product Guide
> > > > Read honest & candid reviews on hundreds of IT Products from real
> > users.
> > > > Discover which products truly live up to the hype. Start reading
> > now.
> > > > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > > > _______________________________________________
> > > > Hardhats-members mailing list
> > > > [email protected]
> > > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > >
> > >
> > >
> > > -------------------------------------------------------
> > > SF email is sponsored by - The IT Product Guide
> > > Read honest & candid reviews on hundreds of IT Products from real
> > users.
> > > Discover which products truly live up to the hype. Start reading
> > now.
> > > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > > _______________________________________________
> > > Hardhats-members mailing list
> > > [email protected]
> > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> >
> >
> > -------------------------------------------------------
> > SF email is sponsored by - The IT Product Guide
> > Read honest & candid reviews on hundreds of IT Products from real
> > users.
> > Discover which products truly live up to the hype. Start reading now.
> > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > _______________________________________________
> > Hardhats-members mailing list
> > [email protected]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
>
> A practical man is a man who practices the errors of his
forefathers. --Benjamin Disraeli
> ====
> Greg Woodhouse
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
>
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users.
> Discover which products truly live up to the hype. Start reading now.
> http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
