| [613] | 1 | PSGORVW ;BIR/CML3-UNIT DOSE EXPANDED VIEW FOR OE/RR ;04 APR 94 / 11:06 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**58**;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^PSDRUG is supported by DBIA 2191.
|
|---|
| 5 | ;
|
|---|
| 6 | EN(PSGP,PSGORD) ;
|
|---|
| 7 | N AT,D,DRG,F,FL,HSM,Q,R,ST,SM,ST,UD,X,Y
|
|---|
| 8 | S $P(FL,"-",80)="",F="^PS("_$S(PSGORD["N":"53.1,",1:"55,"_PSGP_",5,")_+PSGORD_","
|
|---|
| 9 | S ST=$G(@(F_"0)")),AT=$G(^(2)),Y=$P($G(^(6)),"^")
|
|---|
| 10 | S SM=$P(ST,"^",4),HSM=$P(ST,"^",5),ST=$S($P(ST,"^",9)="P":"",1:$P(ST,"^",7)),AT=$P(AT,"^",5) S:Y]"" Y=$$ENSET^PSGSICHK(Y)
|
|---|
| 11 | ;
|
|---|
| 12 | WRT ;
|
|---|
| 13 | W !,"Schedule Type:",?22,$$ENSTN^PSGMI(ST)
|
|---|
| 14 | W !,"Admin Times:",?22,$S(AT:AT,1:"NOT FOUND")
|
|---|
| 15 | W !,"Self Med:",?22,$P("NO^YES","^",SM+1) I SM,HSM W " (HOSPITAL SUPPLIED)"
|
|---|
| 16 | W !,"Special Instructions:",?22 I Y]"" F Q=1:1:$L(Y) S X=$P(Y," ",Q) W:$L(X)+$X>78 !?22 W X_" "
|
|---|
| 17 | W !?48,"Units",?56,"Units",?64,"Inactive",!," Dispensed Drugs",?43,"U/D",?48,"Disp'd",?56,"Ret'd",?64,"Date",!,FL
|
|---|
| 18 | F X=0:0 S X=$O(@(F_"1,"_X_")")) Q:'X S DRG=$G(^(X,0)) I DRG]"" D ;
|
|---|
| 19 | .S UD=$P(DRG,"^",2),D=$P(DRG,"^",6)+$P(DRG,"^",10)+$P(DRG,"^",12),R=+$P(DRG,"^",7),Y=$P(DRG,"^",3) I Y S Y=$$ENDTC^PSGMI(Y)
|
|---|
| 20 | .S DRG=$S(DRG="":"NOT FOUND",'DRG:$P(DRG,"^"),$P($G(^PSDRUG(+DRG,0)),"^")]"":$P(^(0),"^"),1:$P(DRG,"^")_";PSDRUG(")
|
|---|
| 21 | .W !?1,DRG,?43,$S(UD:UD,1:1),?48,D,?56,R W:Y ?64,Y Q
|
|---|
| 22 | I $O(@(F_"12,0)")) W !!,"Provider Comments:" F Q=0:0 S Q=$O(@(F_"12,"_Q_")")) Q:'Q N Y,Y2 S Y=" "_^(Q,0) F KKA=2:1 S Y2=$P(Y," ",KKA) Q:Y2="" W:$L(Y2)+$X>79 !?2 W " ",Y2
|
|---|
| 23 | K KKA
|
|---|
| 24 | I $O(@(F_"3,0)")) W !!,"Comments:" F Q=0:0 S Q=$O(@(F_"3,"_Q_")")) Q:'Q W !?2,^(Q,0)
|
|---|
| 25 | ;
|
|---|
| 26 | DONE ;
|
|---|
| 27 | Q
|
|---|
