| [613] | 1 | PSSGSH ;BIR/CML3-SCHEDULE HELP TEXT ; 09/09/97 8:03
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
|
|---|
| 3 | ;
|
|---|
| 4 | ENSH3 ; from ^DD(53.1,26,4)
|
|---|
| 5 | S:'$D(PSGST) PSGST=$P($G(^PS(53.1,DA,0)),"^",7),PSGDDFLG=1 G ENSH
|
|---|
| 6 | ;
|
|---|
| 7 | ENSH5 ; from ^DD(55.06,26,4)
|
|---|
| 8 | S:'$D(PSGST) PSGST=$P($G(^PS(55,DA(1),5,DA,0)),"^",7),PSGDDFLG=1 G ENSH
|
|---|
| 9 | ;
|
|---|
| 10 | ENQ ;
|
|---|
| 11 | W:$D(^DD(53.1,26,3)) !?3,^(3)
|
|---|
| 12 | ;
|
|---|
| 13 | ENSH ;
|
|---|
| 14 | N D,DA,DIC,DIE,DZ,Y
|
|---|
| 15 | W !,"'STAT', 'ONCE', 'NOW', and 'DAILY' are acceptable schedules." I X?1"???".E F Q=1:1 Q:$P($T(HT+Q),";",3)="" W !?5,$P($T(HT+Q),";",3)
|
|---|
| 16 | 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
|
|---|
| 17 | 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))"
|
|---|
| 18 | E S DIC("W")=DIC("W")_"$P(^(0),""^"",2)"
|
|---|
| 19 | I $D(PSGST) S DIC("S")="I $P(^(0),""^"",5)"_$E("'",PSGST'="O")_"=""O"""
|
|---|
| 20 | D IX^DIC K DIC K:$D(PSGDDFLG) PSGDDFLG,PSGST Q
|
|---|
| 21 | ;
|
|---|
| 22 | ;
|
|---|
| 23 | HT ;
|
|---|
| 24 | ;; This is the frequency (ONLY) with which the doses are to be administered.
|
|---|
| 25 | ;;Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD,
|
|---|
| 26 | ;;and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the admin
|
|---|
| 27 | ;;times). The schedule will show on the MAR, labels, etc. No more than ONE
|
|---|
| 28 | ;;space (Q3H 4 or Q4H PRN) in the schedule is acceptable. If the letters PRN
|
|---|
| 29 | ;;are found as part of the schedule, no admin times will print on the MAR or
|
|---|
| 30 | ;;labels, and the PICK LIST will always show a count of zero (0).
|
|---|
| 31 | ;;Avoid using notation such as W/F (with food) or WM (with meals) in the
|
|---|
| 32 | ;;schedule as it may cause erroneous calculations. That information should
|
|---|
| 33 | ;;be entered into the SPECIAL INSTRUCTIONS.
|
|---|
| 34 | ;; When using the MO-WE-FR@AD schedule, please remember that this type of
|
|---|
| 35 | ;;schedule will not work properly without the "@" character and at least one
|
|---|
| 36 | ;;admin time, and that at least the first two letters of each weekday entered
|
|---|
| 37 | ;;is needed.
|
|---|
