| [613] | 1 | PSJO3 ;BIR/CML3,PR-GET AND PRINT INPATIENT ORDERS ;08 MAR 95 / 1:12 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ENGET ;
|
|---|
| 5 | S ENGET=1
|
|---|
| 6 | S PG=$D(PSGVWA),(ON,SLS)="",$P(SLS," -",15)="",TF=1
|
|---|
| 7 | S RB=$S(PSJPRB]"":PSJPRB,1:"* NF *")
|
|---|
| 8 | ;
|
|---|
| 9 | ENNP I PSJON,'PSJDEV W $C(7) R !," '^' TO QUIT ",NP:DTIME W:'$T $C(7) S:'$T NP="^" W:NP'["^" *13," ",*13,# Q
|
|---|
| 10 | I PSJON,PSJDEV D BOT
|
|---|
| 11 | ;
|
|---|
| 12 | ENHEAD ; print new page, name, ssn, dob, and ward
|
|---|
| 13 | S PG=PG+1
|
|---|
| 14 | S PSJOPC="ALL" S PSJTEAM=$S($D(PSJSEL("TM")):1,1:0)
|
|---|
| 15 | D ENTRY^PSJHEAD(DFN,PSJOPC,PG,$G(PSJNARC),PSJTEAM)
|
|---|
| 16 | W:PG>1 !,LN2 K ENGET Q
|
|---|
| 17 | ;
|
|---|
| 18 | BOT ; print name, ssn, and dob on bottom of page
|
|---|
| 19 | F Q=$Y:1:IOSL-4 W !
|
|---|
| 20 | W !,?2,$P(PSGP(0),"^"),?40,PSJPPID,?70,$E($P(PSJPDOB,"^",2),1,8) Q
|
|---|
| 21 | ;
|
|---|
| 22 | ENL ;
|
|---|
| 23 | I $D(PSJEXTP) S PSJOL="L" Q
|
|---|
| 24 | F W !!,"SHORT, LONG, or NO Profile? ",$S('$D(PSJPWD):"SHORT",PSJPWD:"SHORT",1:"LONG"),"// " R PSJOL:DTIME W:'$T $C(7) S:'$T PSJOL="^" Q:PSJOL="^" D LCHK Q:"^SLN"[PSJOL&($L(PSJOL)=1)
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | LCHK ;
|
|---|
| 28 | I PSJOL?1."?" D LM Q
|
|---|
| 29 | I PSJOL="" S PSJOL=$S('$D(PSJPWD):"S",PSJPWD:"S",1:"L") W $P(" SHORT^ LONG","^",PSJOL="L"+1) Q
|
|---|
| 30 | I PSJOL?.ANP,PSJOL?.E1L.E F Q=1:1:$L(PSJOL) I $E(PSJOL,Q)?.L S PSJOL=$E(PSJOL,1,Q-1)_$C($A(PSJOL,Q)-32)_$E(PSJOL,Q+1,$L(PSJOL))
|
|---|
| 31 | I PSJOL?.ANP F X="NO PROFILE","LONG","SHORT" I $P(X,PSJOL)="" W $P(X,PSJOL,2) S PSJOL=$E(PSJOL) Q
|
|---|
| 32 | W:'$T $C(7)," ??" Q
|
|---|
| 33 | ;
|
|---|
| 34 | LM D FULL^VALM1 W !!?2,"Enter 'SHORT' (or 'S', or press the RETURN key) to exclude this patient's",!,"discontinued and expired orders in the following profile. Enter 'LONG' (or 'L') to include those orders."
|
|---|
| 35 | W " Enter 'NO' (or 'N') to bypass the profile com-",!,"pletely. Enter '^' if you wish to go no further with this patient." D PAUSE^PSJLMUTL Q
|
|---|
| 36 | ;
|
|---|
| 37 | PENDIU ; Help when asking if pending med order is to be an IV or UD.
|
|---|
| 38 | W !!,?5,"Enter ""I"" to complete this as an IV Medication order.",!,?5,"Enter ""U"" to complete this as an Unit Dose Medication order.",!!
|
|---|
| 39 | Q
|
|---|
