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 ---[H[J[2J[HPSGSH 2215 printed Nov 22, 2024@17:13:18 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.