source:
WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCLERK.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 305 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PSOCLERK ;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 | |
5 | EX K DIC,X,Y Q |
Note:
See TracBrowser
for help on using the repository browser.