Routine: PSJMDIR

PSJMDIR ;BIR/MV-MED DUE WORKSHEET DIR CALLS ;25 AUG 94 / 11:08 AM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

MEDTYPE(PSGMARWD) ;*** Ask for Med choices

 ;PSGMARWD will be defined if the user was selected by ward.

 ;If PSJMPRN is defined, that mean this module is calling from the MDWS.

 K DIR S DIR(0)="LAO^1:6^I X[1&($L(X)>1) K X" S DIR("A")="Enter medication type(s): "

 S DIR("?",1)="1.  All medications",DIR("?",2)="2.  Non-IV medications only",DIR("?",3)="3.  IVPB (Includes IV syringe orders with a med route of IV or IVPB."

 S DIR("?",4)="          All other IV syringe orders are included with non-IV medications).",DIR("?",5)="4.  LVPs",DIR("?",6)="5.  TPNs",DIR("?",7)="6.  Chemotherapy medications (IV)",DIR("?",8)=""

 N XTYPE S:$G(PSGMARWD) XTYPE=$P($G(^PS(59.6,+$O(^PS(59.6,"B",+PSGMARWD,0)),0)),"^",2) S DIR("B")=$S($G(XTYPE):XTYPE,1:2)

 S DIR("?")="e.g.  Enter 1 or 2-4,5 or 2."

 S DIR("?",9)="A combination of choices can be entered here except for option 1."

 W !! D ^DIR

 Q $$STOP

STDATE() ;*** Ask for starting date and time

 K DIR S DIR(0)="DO^::EXAR",DIR("A")="Enter Start Date and Time",DIR("?")="Date and time must be entered." W !! D ^DIR

 Q $$STOP

ENDATE(PSGTMP,PSGTMP1) ;*** Ask for eding date and time

 K DIR S DIR(0)="DAO^"_PSGTMP_":"_PSGTMP1_":EXAR",DIR("A")="Enter Ending Date and Time: "

 S DIR("?")="Time must be entered.",DIR("?",1)="The worksheet will list only medications due for a 24 hour",DIR("?",2)="period.  Please keep ending date and time within that range."

 W !! D ^DIR

 Q $$STOP

PRN() ;

 K DIR S DIR(0)="YO",DIR("A")="Would you like to include PRN Medications (Y/N)",DIR("B")="NO"

 S DIR("?")="Answer ""YES"" to include PRN orders in the Medication Due Worksheet.  (The PRN medications will print after the Continuous medications.)"

 W !! D ^DIR

 Q $$STOP

ADMTM ;*** Askif user want to sort by admin team

 S (PSGTM,PSGTMALL)=0

 K DIR S DIR(0)="YO",DIR("A")="Do you want to sort by Administration Team (Y/N)",DIR("B")="NO"

 S DIR("?",1)="Enter ""Y"" for ""YES"" if you wish to sort by Administration",DIR("?",2)="team. Enter ""N"" for ""NO"" if you do not wish to sort by",DIR("?",3)="Administration Team."

 S DIR("?",4)="",DIR("?",5)="If you choose to sort by Adminstration Team, you",DIR("?")="may choose which teams will be included in the report."

 W !! D ^DIR Q:$$STOP!'+Y

 ;*** Because "ALL" is not a team, must use DIR to include "ALL"

 ;    default and then call DIC to look up the selected team

 F  Q:$$STOP!(X="")!$G(PSGTMALL)  D ADMTM2

 S PSGTM=$S($O(PSGTM(0))'="":1,1:0)

ADMTM2 ;

 K DIR S DIR(0)="FAO",DIR("A")="Select Administration Team: ",DIR("B")="ALL",DIR("?")="^D DICTM^PSJMDIR" W ! D ^DIR Q:$$STOP  I Y="ALL" S PSGTMALL=1 Q

 D DICTM

 S PSJSTOP=$S($D(DTOUT):1,$D(DUOUT):1,(Y<0)&'$D(PFLG):1,1:0)

DICTM ;*** LooK up a team.

 K DIC S DIC="^PS(57.7,"_PSGWD_",1,",DIC(0)="QEMIZ"

 F PFLG=0:1 D ^DIC Q:Y<0  I PFLG S DIC(0)=DIC(0)_"A",DIC("A")="Select another Administration Team: " S PSGTM(Y(0,0))=+Y

RBADM ;*** Sort by PATIENT, ROOM-BED or ADMIN TIME

 K DIR S DIR(0)="SAO^A:Administration Time;R:Room-Bed;P:Patient",DIR("A")="Do you wish to sort by Administration Time (A), Room-Bed (R), Patient (P): ",DIR("B")="A"

 S DIR("?",1)="Enter an ""A"" if you want orders to display in order of Administration Time.",DIR("?",2)="Enter a ""R"" if you want orders to display in order of patient room-bed."

 S DIR("?")="Enter a ""P"" if you want orders to display in order of patient name."

 W ! D ^DIR Q:$$STOP  S PSGRBADM=Y

RBPPN ;*** Sort by ROOM-BED or PATIENT(when selected by WARD).

 K DIR S DIR(0)="SAO^R:Room-Bed;P:PATIENT",DIR("A")="Do you wish to sort by Room-Bed (R), Patient (P): ",DIR("B")="R"

 S DIR("?",1)="Enter an ""R"" if you want orders to display in order of patient room-bed.",DIR("?")="Enter a ""P"" if you want orders to display in order of patient name."

 W ! D ^DIR Q:$$STOP  S PSGRBPPN=Y

STOP() ;

 S PSJSTOP=$S($D(DTOUT):1,$D(DUOUT):1,$D(DIRUT):1,1:0)

 Q PSJSTOP

PSJMDIR   ;BIR/MV-MED DUE WORKSHEET DIR CALLS ;25 AUG 94 / 11:08 AM

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

 +2       ;

MEDTYPE(PSGMARWD) ;*** Ask for Med choices

 +1       ;PSGMARWD will be defined if the user was selected by ward.

 +2       ;If PSJMPRN is defined, that mean this module is calling from the MDWS.

 +3       ;

 +4        KILL DIR

           SET DIR(0)="LAO^1:6^I X[1&($L(X)>1) K X"

           SET DIR("A")="Enter medication type(s): "

 +5        SET DIR("?",1)="1.  All medications"

           SET DIR("?",2)="2.  Non-IV medications only"

           SET DIR("?",3)="3.  IVPB (Includes IV syringe orders with a med route of IV or IVPB."

 +6        SET DIR("?",4)="          All other IV syringe orders are included with non-IV medications)."

           SET DIR("?",5)="4.  LVPs"

           SET DIR("?",6)="5.  TPNs"

           SET DIR("?",7)="6.  Chemotherapy medications (IV)"

           SET DIR("?",8)=""

 +7        NEW XTYPE

           IF $GET(PSGMARWD)

               SET XTYPE=$PIECE($GET(^PS(59.6,+$ORDER(^PS(59.6,"B",+PSGMARWD,0)),0)),"^",2)

           SET DIR("B")=$SELECT($GET(XTYPE):XTYPE,1:2)

 +8        SET DIR("?")="e.g.  Enter 1 or 2-4,5 or 2."

 +9        SET DIR("?",9)="A combination of choices can be entered here except for option 1."

 +10       WRITE !!

           DO ^DIR

 +11       QUIT $$STOP

 +12      ;

STDATE()  ;*** Ask for starting date and time

 +1       ;

 +2        KILL DIR

           SET DIR(0)="DO^::EXAR"

           SET DIR("A")="Enter Start Date and Time"

           SET DIR("?")="Date and time must be entered."

           WRITE !!

           DO ^DIR

 +3        QUIT $$STOP

 +4       ;

ENDATE(PSGTMP,PSGTMP1) ;*** Ask for eding date and time

 +1       ;

 +2        KILL DIR

           SET DIR(0)="DAO^"_PSGTMP_":"_PSGTMP1_":EXAR"

           SET DIR("A")="Enter Ending Date and Time: "

 +3        SET DIR("?")="Time must be entered."

           SET DIR("?",1)="The worksheet will list only medications due for a 24 hour"

           SET DIR("?",2)="period.  Please keep ending date and time within that range."

 +4        WRITE !!

           DO ^DIR

 +5        QUIT $$STOP

 +6       ;

PRN()     ;

 +1       ;

 +2        KILL DIR

           SET DIR(0)="YO"

           SET DIR("A")="Would you like to include PRN Medications (Y/N)"

           SET DIR("B")="NO"

 +3        SET DIR("?")="Answer ""YES"" to include PRN orders in the Medication Due Worksheet.  (The PRN medications will print after the Continuous medications.)"

 +4        WRITE !!

           DO ^DIR

 +5        QUIT $$STOP

 +6       ;

ADMTM     ;*** Askif user want to sort by admin team

 +1       ;

 +2        SET (PSGTM,PSGTMALL)=0

 +3        KILL DIR

           SET DIR(0)="YO"

           SET DIR("A")="Do you want to sort by Administration Team (Y/N)"

           SET DIR("B")="NO"

 +4        SET DIR("?",1)="Enter ""Y"" for ""YES"" if you wish to sort by Administration"

           SET DIR("?",2)="team. Enter ""N"" for ""NO"" if you do not wish to sort by"

           SET DIR("?",3)="Administration Team."

 +5        SET DIR("?",4)=""

           SET DIR("?",5)="If you choose to sort by Adminstration Team, you"

           SET DIR("?")="may choose which teams will be included in the report."

 +6        WRITE !!

           DO ^DIR

           IF $$STOP!'+Y

               QUIT

 +7       ;

 +8       ;*** Because "ALL" is not a team, must use DIR to include "ALL"

 +9       ;    default and then call DIC to look up the selected team

 +10      ;

 +11       FOR

               IF $$STOP!(X="")!$GET(PSGTMALL)

                   QUIT

               DO ADMTM2

 +12       SET PSGTM=$SELECT($ORDER(PSGTM(0))'="":1,1:0)

 +13       QUIT

ADMTM2    ;

 +1        KILL DIR

           SET DIR(0)="FAO"

           SET DIR("A")="Select Administration Team: "

           SET DIR("B")="ALL"

           SET DIR("?")="^D DICTM^PSJMDIR"

           WRITE !

           DO ^DIR

           IF $$STOP

               QUIT

           IF Y="ALL"

               SET PSGTMALL=1

               QUIT

 +2        DO DICTM

 +3        SET PSJSTOP=$SELECT($DATA(DTOUT):1,$DATA(DUOUT):1,(Y<0)&'$DATA(PFLG):1,1:0)

 +4        QUIT

 +5       ;

DICTM     ;*** LooK up a team.

 +1       ;

 +2        KILL DIC

           SET DIC="^PS(57.7,"_PSGWD_",1,"

           SET DIC(0)="QEMIZ"

 +3        FOR PFLG=0:1

               DO ^DIC

               IF Y<0

                   QUIT

               IF PFLG

                   SET DIC(0)=DIC(0)_"A"

                   SET DIC("A")="Select another Administration Team: "

                   SET PSGTM(Y(0,0))=+Y

 +4        QUIT

 +5       ;

RBADM     ;*** Sort by PATIENT, ROOM-BED or ADMIN TIME

 +1       ;

 +2        KILL DIR

           SET DIR(0)="SAO^A:Administration Time;R:Room-Bed;P:Patient"

           SET DIR("A")="Do you wish to sort by Administration Time (A), Room-Bed (R), Patient (P): "

           SET DIR("B")="A"

 +3        SET DIR("?",1)="Enter an ""A"" if you want orders to display in order of Administration Time."

           SET DIR("?",2)="Enter a ""R"" if you want orders to display in order of patient room-bed."

 +4        SET DIR("?")="Enter a ""P"" if you want orders to display in order of patient name."

 +5        WRITE !

           DO ^DIR

           IF $$STOP

               QUIT

           SET PSGRBADM=Y

 +6        QUIT

 +7       ;

RBPPN     ;*** Sort by ROOM-BED or PATIENT(when selected by WARD).

 +1       ;

 +2        KILL DIR

           SET DIR(0)="SAO^R:Room-Bed;P:PATIENT"

           SET DIR("A")="Do you wish to sort by Room-Bed (R), Patient (P): "

           SET DIR("B")="R"

 +3        SET DIR("?",1)="Enter an ""R"" if you want orders to display in order of patient room-bed."

           SET DIR("?")="Enter a ""P"" if you want orders to display in order of patient name."

 +4        WRITE !

           DO ^DIR

           IF $$STOP

               QUIT

           SET PSGRBPPN=Y

 +5        QUIT

 +6       ;

STOP()    ;

 +1       ;

 +2        SET PSJSTOP=$SELECT($DATA(DTOUT):1,$DATA(DUOUT):1,$DATA(DIRUT):1,1:0)

 +3        QUIT PSJSTOP

PSJMDIR.m