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