PSGGAO.m

PSGGAO ;BIR/CML3-PATIENT AND ORDER LOOK-UPS ;20 JUN 94 / 3:16 PM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

ENP ; get patient with active orders(UD & IV orders)

 N X,Y F  D ENDPT^PSGP D  Q:X!(PSGP<0)

 .  S X=0 Q:PSGP<0

 .  S X=$O(^PS(55,PSGP,5,"AUS",PSGDT)) Q:X

 .  F Y="A","C","H","P","S" S X=$O(^PS(55,PSGP,"IV","AIT",Y,PSGDT)) Q:X

 .  W:'X $C(7),!,"(Patient has NO active orders.)"

 Q

 ;

ENO ; get active order

 I $D(PSGP),PSGP S D="C",DIC(0)="QEAIS",DIC="^PS(55,"_PSGP_",5,",DIC("S")="I $D(^PS(55,"_PSGP_",5,+Y,2)),($P(^(2),""^"",4)>"_PSGDT_")",DIC("A")="Select ACTIVE ORDER: " W ! D IX^DIC K DIC Q

 ;

ENN ; get patient and their non-verified order

 F  D ENDPT^PSGP Q:$S(PSGP>0:$D(^PS(53.1,"AC",PSGP)),1:0)  W $C(7),!,"(Patient has NO non-verified orders.)"

 Q

 ;

ENNO S D="D",DIC("A")="Select NON-VERIFIED ORDER: ",DIC="^PS(53.1,",DIC(0)="QEAI",DIC("S")="I $D(^PS(53.1,""AC"","_PSGP_",+Y))" W ! D IX^DIC K DIC Q

 ;

ENAO ;

 F  D ENDPT^PSGP Q:$S(PSGP'>0:1,$O(^PS(55,PSGP,5,"AUS",+PSJPAD)):1,1:$D(^PS(53.1,"AC",PSGP)))  W !?3,"(Patient has no orders.)"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGGAO   1079     printed  Apr 09, 2024@21:05:40                                                                                                                                                                                                      Page 2

PSGGAO    ;BIR/CML3-PATIENT AND ORDER LOOK-UPS ;20 JUN 94 / 3:16 PM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

ENP       ; get patient with active orders(UD & IV orders)

 +1        NEW X,Y

           FOR 

               DO ENDPT^PSGP

               Begin DoDot:1

 +2                SET X=0

                   if PSGP<0

                       QUIT 

 +3                SET X=$ORDER(^PS(55,PSGP,5,"AUS",PSGDT))

                   if X

                       QUIT 

 +4                FOR Y="A","C","H","P","S"

                       SET X=$ORDER(^PS(55,PSGP,"IV","AIT",Y,PSGDT))

                       if X

                           QUIT 

 +5                if 'X

                       WRITE $CHAR(7),!,"(Patient has NO active orders.)"

               End DoDot:1

               if X!(PSGP<0)

                   QUIT 

 +6        QUIT 

 +7       ;

ENO       ; get active order

 +1        IF $DATA(PSGP)

               IF PSGP

                   SET D="C"

                   SET DIC(0)="QEAIS"

                   SET DIC="^PS(55,"_PSGP_",5,"

                   SET DIC("S")="I $D(^PS(55,"_PSGP_",5,+Y,2)),($P(^(2),""^"",4)>"_PSGDT_")"

                   SET DIC("A")="Select ACTIVE ORDER: "

                   WRITE !

                   DO IX^DIC

                   KILL DIC

                   QUIT 

 +2       ;

ENN       ; get patient and their non-verified order

 +1        FOR 

               DO ENDPT^PSGP

               if $SELECT(PSGP>0

                   QUIT 

               WRITE $CHAR(7),!,"(Patient has NO non-verified orders.)"

 +2        QUIT 

 +3       ;

ENNO       SET D="D"

           SET DIC("A")="Select NON-VERIFIED ORDER: "

           SET DIC="^PS(53.1,"

           SET DIC(0)="QEAI"

           SET DIC("S")="I $D(^PS(53.1,""AC"","_PSGP_",+Y))"

           WRITE !

           DO IX^DIC

           KILL DIC

           QUIT 

 +1       ;

ENAO      ;

 +1        FOR 

               DO ENDPT^PSGP

               if $SELECT(PSGP'>0

                   QUIT 

               WRITE !?3,"(Patient has no orders.)"

 +2        QUIT