PSGOECA.m

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

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