PSGOECA ;BIR/CML3-CANCEL ALL OPTION ;09 JUL 94 / 11:02 AM
;;5.0; INPATIENT MEDICATIONS ;**29**;16 DEC 97
;
; Reference to ^PSSLOCK is supported by DBIA #2789
;
D ENCV^PSGSETU I $D(XQUIT) Q
; get date/time, get patient, d/c, queue labels
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
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGOECA 531 printed Dec 13, 2024@02:02:05 Page 2
PSGOECA ;BIR/CML3-CANCEL ALL OPTION ;09 JUL 94 / 11:02 AM
+1 ;;5.0; INPATIENT MEDICATIONS ;**29**;16 DEC 97
+2 ;
+3 ; Reference to ^PSSLOCK is supported by DBIA #2789
+4 ;
+5 DO ENCV^PSGSETU
IF $DATA(XQUIT)
QUIT
+6 ; get date/time, get patient, d/c, queue labels
+7 FOR
DO NOW^%DTC
SET PSGDT=%
SET PSGOP=0
DO ENAO^PSGGAO
if PSGP'>0
QUIT
IF $$L^PSSLOCK(PSGP,1)
DO ENA^PSGOEC
DO UL^PSSLOCK(PSGP)
IF PSJSYSU
IF PSGOP
IF $PIECE(PSJSYSL,"^",2)]""
DO ENQL^PSGLW
+8 DO ENKV^PSGSETU
KILL CA,CA1,CAD,CF,D0,D1,PSGAL,PSGALR,PSGCF,PSGOP,SD,ST,T,UCF,WD,ORVP,PSGTOL,PSGTOO,PSGUOW,PSJDA,PSJS
QUIT
