Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSOCLERK

PSOCLERK.m

Go to the documentation of this file.

PSOCLERK ;BHAM ISC/SAB - look up user by user/DUZ number ; 11/09/92 13:11

 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 W ! S DIC="^VA(200,",DIC("A")="Enter User Code: ",DIC(0)="AQN" D ^DIC G:"^"[X EX I Y<0 W !,"INVALID CLERK CODE" G PSOCLERK

 S PSOX=+Y W "    ",$P(^VA(200,PSOX,0),"^") G PSOCLERK

EX K DIC,X,Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCLERK   310     printed  Apr 09, 2024@21:34:40                                                                                                                                                                                                     Page 2

PSOCLERK  ;BHAM ISC/SAB - look up user by user/DUZ number ; 11/09/92 13:11

 +1       ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 +2        WRITE !

           SET DIC="^VA(200,"

           SET DIC("A")="Enter User Code: "

           SET DIC(0)="AQN"

           DO ^DIC

           if "^"[X

               GOTO EX

           IF Y<0

               WRITE !,"INVALID CLERK CODE"

               GOTO PSOCLERK

 +3        SET PSOX=+Y

           WRITE "    ",$PIECE(^VA(200,PSOX,0),"^")

           GOTO PSOCLERK

EX         KILL DIC,X,Y

           QUIT