source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGOECA.m@ 1147

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

initial load of WorldVistAEHR

File size: 522 bytes
Line 
1PSGOECA ;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.