PSGOEL.m

PSGOEL ;BIR/CML3-DISPLAY LOGS ;27 JUN 95 / 6:14 PM

 ;;5.0;INPATIENT MEDICATIONS;**267**;16 DEC 97;Build 158

 ;

ENLM(PSGP,PSGORD) ;

 S DIR(0)="SAO^1:Short Activity Log;2:Long Activity Log;3:Dispense Log;4:History Log;5:Instructions History",DIR("A")="Select LOG to display: ",DIR("A",1)="   1 - Short Activity Log"

 S DIR("A",2)="   2 - Long Activity Log",DIR("A",3)="   3 - Dispense Log"

 S DIR("A",4)="   4 - History Log",DIR("A",5)="   5 - Instructions History",DIR("A",6)="",DIR("?")="^D ENH^PSGOEL" W ! D ^DIR K DIR G:'Y DONE I Y<3 S AT=$E("SL",Y) D ENA^PSGVW0 G DONE

 I Y=4 D ENHIS^PSJHIS(PSGP,PSGORD,"U") Q

 I Y=5 N PSJINHIS S PSJINHIS=1 D ENHIS^PSJINHIS(PSGP,PSGORD,"U") Q

 I '$O(^PS(55,PSGP,5,+PSGORD,11,0)) W !!,"There is NO DISPENSE LOG for this order at this time."

 E  S Q=0 F C=1:1 S Q=$O(^PS(55,PSGP,5,+PSGORD,11,Q)) Q:'Q  S ND=$G(^(Q,0)) D PDL Q:'Y

 ;

DONE ;

 Q

 ;

PDL ; print dispense log

 I '(C#5) K DIR S DIR(0)="E" W ! D ^DIR Q:'Y

 S Y=1,PSGOD=$$ENDTC^PSGMI(+ND),DRG=$$ENDDN^PSGMI($P(ND,"^",2)),HOW=$P("UNKNOWN^THROUGH THE PICK LIST^AS PRE-EXCHANGE UNITS^AS EXTRA UNITS^AS RETURNS","^",$P(ND,"^",5)+1),WHO=$$ENNPN^PSGMI($P(ND,"^",6))

 W !!?3,"Date: ",PSGOD,?33,"Drug: ",DRG,!,"Entered: ",HOW W:$P(ND,"^",5)'=1 ?35,"By: ",WHO W !?2,"Units: ",$P(ND,"^",3)

 Q

 ;

ENH ;

 W !!?2,"Select '1' to view a SHORT ACTIVITY LOG for this order.  A short activity log",!,"shows only the main activities associated with the order."

 W !?2,"Select '2' to view a LONG ACTIVITY LOG for this order.  A long activity log",!,"shows all activities associated with the order."

 W !?2,"Select '3' to view the DISPENSE LOG for this order.  The dispense log shows",!,"the information about the order pertaining to the medication(s) dispensed for",!,"it, such as how many, when, by whom, etc."

 W !?2,"Select '4' to view the HISTORY LOG for this order.  The history log shows",!,"every order associated with this order.  Associated orders include orders",!,"created from renewing an order or editing certain fields of an order."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGOEL   2050     printed  Apr 09, 2024@21:04:49                                                                                                                                                                                                      Page 2

PSGOEL    ;BIR/CML3-DISPLAY LOGS ;27 JUN 95 / 6:14 PM

 +1       ;;5.0;INPATIENT MEDICATIONS;**267**;16 DEC 97;Build 158

 +2       ;

ENLM(PSGP,PSGORD) ;

 +1        SET DIR(0)="SAO^1:Short Activity Log;2:Long Activity Log;3:Dispense Log;4:History Log;5:Instructions History"

           SET DIR("A")="Select LOG to display: "

           SET DIR("A",1)="   1 - Short Activity Log"

 +2        SET DIR("A",2)="   2 - Long Activity Log"

           SET DIR("A",3)="   3 - Dispense Log"

 +3        SET DIR("A",4)="   4 - History Log"

           SET DIR("A",5)="   5 - Instructions History"

           SET DIR("A",6)=""

           SET DIR("?")="^D ENH^PSGOEL"

           WRITE !

           DO ^DIR

           KILL DIR

           if 'Y

               GOTO DONE

           IF Y<3

               SET AT=$EXTRACT("SL",Y)

               DO ENA^PSGVW0

               GOTO DONE

 +4        IF Y=4

               DO ENHIS^PSJHIS(PSGP,PSGORD,"U")

               QUIT 

 +5        IF Y=5

               NEW PSJINHIS

               SET PSJINHIS=1

               DO ENHIS^PSJINHIS(PSGP,PSGORD,"U")

               QUIT 

 +6        IF '$ORDER(^PS(55,PSGP,5,+PSGORD,11,0))

               WRITE !!,"There is NO DISPENSE LOG for this order at this time."

 +7       IF '$TEST

               SET Q=0

               FOR C=1:1

                   SET Q=$ORDER(^PS(55,PSGP,5,+PSGORD,11,Q))

                   if 'Q

                       QUIT 

                   SET ND=$GET(^(Q,0))

                   DO PDL

                   if 'Y

                       QUIT 

 +8       ;

DONE      ;

 +1        QUIT 

 +2       ;

PDL       ; print dispense log

 +1        IF '(C#5)

               KILL DIR

               SET DIR(0)="E"

               WRITE !

               DO ^DIR

               if 'Y

                   QUIT 

 +2        SET Y=1

           SET PSGOD=$$ENDTC^PSGMI(+ND)

           SET DRG=$$ENDDN^PSGMI($PIECE(ND,"^",2))

           SET HOW=$PIECE("UNKNOWN^THROUGH THE PICK LIST^AS PRE-EXCHANGE UNITS^AS EXTRA UNITS^AS RETURNS","^",$PIECE(ND,"^",5)+1)

           SET WHO=$$ENNPN^PSGMI($PIECE(ND,"^",6))

 +3        WRITE !!?3,"Date: ",PSGOD,?33,"Drug: ",DRG,!,"Entered: ",HOW

           if $PIECE(ND,"^",5)'=1

               WRITE ?35,"By: ",WHO

           WRITE !?2,"Units: ",$PIECE(ND,"^",3)

 +4        QUIT 

 +5       ;

ENH       ;

 +1        WRITE !!?2,"Select '1' to view a SHORT ACTIVITY LOG for this order.  A short activity log",!,"shows only the main activities associated with the order."

 +2        WRITE !?2,"Select '2' to view a LONG ACTIVITY LOG for this order.  A long activity log",!,"shows all activities associated with the order."

 +3        WRITE !?2,"Select '3' to view the DISPENSE LOG for this order.  The dispense log shows",!,"the information about the order pertaining to the medication(s) dispensed for",!,"it, such as how many, when, by whom, etc."

 +4        WRITE !?2,"Select '4' to view the HISTORY LOG for this order.  The history log shows",!,"every order associated with this order.  Associated orders include orders",!,"created from renewing an order or editing certain fields of an order."

 +5        QUIT