- 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 ---[H[J[2J[HPSGGAO 1079 printed Feb 18, 2025@23:27:42 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