PSGSH.m

PSGSH ;BIR/CML3-SCHEDULE HELP TEXT ;07 OCT 97 / 9:17 AM 

 ;;5.0;INPATIENT MEDICATIONS;**111,353**;16 DEC 97;Build 49

 ;

 ; Reference to ^PS(55 is supported by DBIA 2191.

 ; 

ENSH3 ; from ^DD(53.1,26,4)

 S:'$D(PSGST) PSGST=$P($G(^PS(53.1,DA,0)),"^",7),PSGDDFLG=1 G ENSH

 ;

ENSH5 ; from ^DD(55.06,26,4)

 S:'$D(PSGST) PSGST=$P($G(^PS(55,DA(1),5,DA,0)),"^",7),PSGDDFLG=1 G ENSH

 ;

ENQ ;

 ;W:$D(^DD(53.1,26,3)) !?3,^(3)

 D FIELD^DID(53.1,26,"N","HELP-PROMPT","PSJFDESC")

 I $D(PSJFDESC("HELP-PROMPT")) W PSJFDESC("HELP-PROMPT")

 ;

ENSH ;

 N D,DA,DIC,DIE,DZ,Y

 I X?1"???".E F Q=1:1 Q:$P($T(HT+Q),";",3)=""  W !?5,$P($T(HT+Q),";",3)

 I X?1"???".E R !,"(Press RETURN to continue.) ",Q:DTIME W:'$T $C(7) S:'$T Q="^" I Q="^" K:$D(PSGDDFLG) PSGDDFLG,PSGST Q

 K DIC S DIC="^PS(51.1,",DIC(0)="E",D="APPSJ",DIC("W")="W ""  ""," I $D(PSJPWD),PSJPWD S DIC("W")=DIC("W")_"$S($D(^PS(51.1,+Y,1,PSJPWD,0)):$P(^(0),""^"",2),1:$P(^PS(51.1,+Y,0),""^"",2))"

 E  S DIC("W")=DIC("W")_"$P(^(0),""^"",2)"

 S DIC("W")=DIC("W")_",$S($P(^PS(51.1,+Y,0),U,12):"" **INACTIVE**  "",1:"""")"   ;*353

 I $D(PSGST) S DIC("S")="I $P(^(0),""^"",5)"_$E("'",PSGST'="O")_"=""O"""

 D IX^DIC K DIC K:$D(PSGDDFLG) PSGDDFLG,PSGST Q

 ;

 ;

HT ;

 ;;  This is the frequency (ONLY) with which the doses are to be administered.

 ;;Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD,

 ;;and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the admin

 ;;times).  The schedule will show on the MAR, labels, etc.  No more than ONE

 ;;space (Q3H 4 or Q4H PRN) in the schedule is acceptable.  If the letters PRN

 ;;are found as part of the schedule, no admin times will print on the MAR or

 ;;labels, and the PICK LIST will always show a count of zero (0).

 ;;Avoid using notation such as W/F (with food) or WM (with meals) in the

 ;;schedule as it may cause erroneous calculations.  That information should

 ;;be entered into the SPECIAL INSTRUCTIONS.

 ;;  When using the MO-WE-FR@AD schedule, please remember that this type of

 ;;schedule will not work properly without the "@" character and at least one

 ;;admin time, and that at least the first two letters of each weekday entered

 ;;is needed.

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGSH   2215     printed  Apr 09, 2024@21:04:44                                                                                                                                                                                                       Page 2

PSGSH     ;BIR/CML3-SCHEDULE HELP TEXT ;07 OCT 97 / 9:17 AM 

 +1       ;;5.0;INPATIENT MEDICATIONS;**111,353**;16 DEC 97;Build 49

 +2       ;

 +3       ; Reference to ^PS(55 is supported by DBIA 2191.

 +4       ; 

ENSH3     ; from ^DD(53.1,26,4)

 +1        if '$DATA(PSGST)

               SET PSGST=$PIECE($GET(^PS(53.1,DA,0)),"^",7)

               SET PSGDDFLG=1

           GOTO ENSH

 +2       ;

ENSH5     ; from ^DD(55.06,26,4)

 +1        if '$DATA(PSGST)

               SET PSGST=$PIECE($GET(^PS(55,DA(1),5,DA,0)),"^",7)

               SET PSGDDFLG=1

           GOTO ENSH

 +2       ;

ENQ       ;

 +1       ;W:$D(^DD(53.1,26,3)) !?3,^(3)

 +2        DO FIELD^DID(53.1,26,"N","HELP-PROMPT","PSJFDESC")

 +3        IF $DATA(PSJFDESC("HELP-PROMPT"))

               WRITE PSJFDESC("HELP-PROMPT")

 +4       ;

ENSH      ;

 +1        NEW D,DA,DIC,DIE,DZ,Y

 +2        IF X?1"???".E

               FOR Q=1:1

                   if $PIECE($TEXT(HT+Q),";",3)=""

                       QUIT 

                   WRITE !?5,$PIECE($TEXT(HT+Q),";",3)

 +3        IF X?1"???".E

               READ !,"(Press RETURN to continue.) ",Q:DTIME

               if '$TEST

                   WRITE $CHAR(7)

               if '$TEST

                   SET Q="^"

               IF Q="^"

                   if $DATA(PSGDDFLG)

                       KILL PSGDDFLG,PSGST

                   QUIT 

 +4        KILL DIC

           SET DIC="^PS(51.1,"

           SET DIC(0)="E"

           SET D="APPSJ"

           SET DIC("W")="W ""  "","

           IF $DATA(PSJPWD)

               IF PSJPWD

                   SET DIC("W")=DIC("W")_"$S($D(^PS(51.1,+Y,1,PSJPWD,0)):$P(^(0),""^"",2),1:$P(^PS(51.1,+Y,0),""^"",2))"

 +5       IF '$TEST

               SET DIC("W")=DIC("W")_"$P(^(0),""^"",2)"

 +6       ;*353

           SET DIC("W")=DIC("W")_",$S($P(^PS(51.1,+Y,0),U,12):"" **INACTIVE**  "",1:"""")"

 +7        IF $DATA(PSGST)

               SET DIC("S")="I $P(^(0),""^"",5)"_$EXTRACT("'",PSGST'="O")_"=""O"""

 +8        DO IX^DIC

           KILL DIC

           if $DATA(PSGDDFLG)

               KILL PSGDDFLG,PSGST

           QUIT 

 +9       ;

 +10      ;

HT        ;

 +1       ;;  This is the frequency (ONLY) with which the doses are to be administered.

 +2       ;;Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD,

 +3       ;;and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the admin

 +4       ;;times).  The schedule will show on the MAR, labels, etc.  No more than ONE

 +5       ;;space (Q3H 4 or Q4H PRN) in the schedule is acceptable.  If the letters PRN

 +6       ;;are found as part of the schedule, no admin times will print on the MAR or

 +7       ;;labels, and the PICK LIST will always show a count of zero (0).

 +8       ;;Avoid using notation such as W/F (with food) or WM (with meals) in the

 +9       ;;schedule as it may cause erroneous calculations.  That information should

 +10      ;;be entered into the SPECIAL INSTRUCTIONS.

 +11      ;;  When using the MO-WE-FR@AD schedule, please remember that this type of

 +12      ;;schedule will not work properly without the "@" character and at least one

 +13      ;;admin time, and that at least the first two letters of each weekday entered

 +14      ;;is needed.