Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
522 bytes
|
Rev | Line | |
---|
[628] | 1 | PSGOECA ;BIR/CML3-CANCEL ALL OPTION ;09 JUL 94 / 11:02 AM
|
---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**29**;16 DEC 97
|
---|
| 3 | ;
|
---|
| 4 | ; Reference to ^PSSLOCK is supported by DBIA #2789
|
---|
| 5 | ;
|
---|
| 6 | D ENCV^PSGSETU I $D(XQUIT) Q
|
---|
| 7 | ; get date/time, get patient, d/c, queue labels
|
---|
| 8 | F D NOW^%DTC S PSGDT=%,PSGOP=0 D ENAO^PSGGAO Q:PSGP'>0 I $$L^PSSLOCK(PSGP,1) D ENA^PSGOEC D UL^PSSLOCK(PSGP) I PSJSYSU,PSGOP,$P(PSJSYSL,"^",2)]"" D ENQL^PSGLW
|
---|
| 9 | D ENKV^PSGSETU K CA,CA1,CAD,CF,D0,D1,PSGAL,PSGALR,PSGCF,PSGOP,SD,ST,T,UCF,WD,ORVP,PSGTOL,PSGTOO,PSGUOW,PSJDA,PSJS Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.