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 Dec 13, 2024@02:25:24 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
