source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCLERK.m@ 1119

Last change on this file since 1119 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 305 bytes
Line 
1PSOCLERK ;BHAM ISC/SAB - look up user by user/DUZ number ; 11/09/92 13:11
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 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
4 S PSOX=+Y W " ",$P(^VA(200,PSOX,0),"^") G PSOCLERK
5EX K DIC,X,Y Q
Note: See TracBrowser for help on using the repository browser.