|
Last change
on this file since 632 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
305 bytes
|
| Line | |
|---|
| 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.
