[613] | 1 | PSJSV0 ;BIR/CML3-SCHEDULE VALIDATION CONT. ; 15 May 98 / 9:28 AM
|
---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97
|
---|
| 3 | ;
|
---|
| 4 | ENPSJI ; inquire for Inpatient Meds
|
---|
| 5 | S PSJPP="PSJ"
|
---|
| 6 | ;
|
---|
| 7 | ENI ; inquire
|
---|
| 8 | R !!,"Select STANDARD SCHEDULE: ",X:DTIME W:'$T $C(7) I "^"[X!'$T K X,PSJPP Q
|
---|
| 9 | I X?1."?" W !!?2,"Enter a standard schedule to view the information pertaining to that schedule."
|
---|
| 10 | K DIC S DIC("W")="S Z=$P(^(0),""^"",5) W "" "",$S(Z=""O"":""(ONE-TIME)"",Z=""R"":""(RANGE)"",Z=""S"":$P(^(0),""^"",6),$P(^(0),""^"",2)]"""":$P(^(0),""^"",2),$P(^(0),""^"",3):$P(^(0),""^"",3)_"" minutes"",1:"""") K Z"
|
---|
| 11 | S DIC="^PS(51.1,",DIC(0)="EQSZ",D="AP"_PSJPP D IX^DIC K DIC G:Y'>0 ENI
|
---|
| 12 | S X=$P(Y(0),"^",5) W !!?2,"Schedule: ",$P(Y(0),"^"),?58,"Type: ",$S("C"[X:"CONTINUOUS",X="D":"DAY OF THE WEEK",X="O":"ONE-TIME",X="S":"SHIFT",X="R":"RANGE",1:X) G:"C"'[X&(X'="S") ENI
|
---|
| 13 | I "C"[X,$P(Y(0),"^",2)]"" W !?2,"Standard Admin Times: ",$P(Y(0),"^",2) W:$P(Y(0),U,7) !?2,"Max Days for Orders: ",$P(Y(0),U,7)
|
---|
| 14 | E I "C"[X,$P(Y(0),"^",3) W !?2,"Frequency (in minutes): ",$P(Y(0),"^",3)
|
---|
| 15 | I X="S",$P(Y(0),"^",5)]"" W !,"Standard Shifts: ",$P(Y(0),"^",5)
|
---|
| 16 | I $O(^PS(51.1,+Y,PSJPP'="PSJ"+1,0))
|
---|
| 17 | I F Q=0:0 S Q=$O(^PS(51.1,+Y,PSJPP'="PSJ"+1,Q)) Q:'Q D
|
---|
| 18 | .I PSJPP'="PSJ" I $D(^PS(51.1,+Y,PSJPP'="PSJ"+1,Q,0)) S Z=^(0) W !!?2,"Location: ",$S('$D(^SC(Q,0)):Q_";SC(",$P(^(0),"^")]"":$P(^(0),"^"),1:Q_";SC("),!?2,$S(X="S":"Shift: ",1:"Admin Times: "),$P(Z,"^",X="S"+2)
|
---|
| 19 | .I PSJPP="PSJ" I $D(^PS(51.1,+Y,PSJPP'="PSJ"+1,Q,0)) S Z=^(0) W !!?2,"Ward: ",$S('$D(^DIC(42,Q,0)):Q_";DIC(42",$P(^(0),"^")]"":$P(^(0),"^"),1:Q_";DIC(42"),!?2,"Ward Admin Times: ",$P(Z,"^",2)
|
---|
| 20 | K Q,Y,Z G ENI
|
---|
| 21 | ;
|
---|
| 22 | ENSVH ; show help
|
---|
| 23 | I X="?" W !?5,"Enter a schedule for this order."
|
---|
| 24 | I X?2."?" F Q=1:1:8 W !?3,$P($T(SCHT+Q),";",3) I Q=3,X="??" Q
|
---|
| 25 | W:X="??" !?3,"..."
|
---|
| 26 | I R !,"(Press RETURN to continue.) ",Q:DTIME W:'$T $C(7) S:'$T Q="^" Q:Q="^"
|
---|
| 27 | S DIC="^PS(51.1,",DIC(0)="E",DIC("S")="I $P(^(0),""^"",4)="""_PSJPP_"""",DIC("W")="D DICW^PSJSV0"
|
---|
| 28 | D ^DIC K DIC Q
|
---|
| 29 | ;
|
---|
| 30 | SCHT ;
|
---|
| 31 | ;; This is the frequency that the action of the order is to take place over
|
---|
| 32 | ;;the life of the order. The schedule may have various forms, such as 'ONCE',
|
---|
| 33 | ;;'STAT', 'DAILY', 'Q8H', 'QOD', 'Q5XD', and 'MO-WE-FR@09'.
|
---|
| 34 | ;; Please note that unexact schedules, such as 'Q4-6H' may not produce the
|
---|
| 35 | ;;desired results.
|
---|
| 36 | ;; Also, when entering a schedule involving days of the week, you need not
|
---|
| 37 | ;;enter the entire name of each day, but you must enter at least the first two
|
---|
| 38 | ;;letters of each day.
|
---|
| 39 | ;
|
---|
| 40 | DICW ;
|
---|
| 41 | S Z=$P(^(0),"^",5),Z=$S(Z="O":-1,Z="S":1,Z="R":-2,1:0) W:Z " ",$S(Z>0:"SHIFT",Z=-2:"RANGE",1:"ONE-TIME") I Z'<0,$D(PSJW),$D(^(PSJPP'="PSJ"+1,PSJW,0)),$P(^(0),"^",Z+2)]"" W " ",$P(^(0),"^",Z+2) Q
|
---|
| 42 | W " ",$P(^PS(51.1,+Y,0),"^",Z*4+2) Q
|
---|
| 43 | Q
|
---|