| 1 | PSIVORAL ;BIR/MLM-ACTIVITY LOGGER FOR PHARMACY EDITS ;16 DEC 97 / 1:40 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**58,135**;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^PS(52.7 is supported by DBIA 2173.
|
|---|
| 5 | ; Reference to ^PS(55 is supported by DBIA 2191.
|
|---|
| 6 | ;
|
|---|
| 7 | EN ; Entry point for updating activity log from Pharmacy.
|
|---|
| 8 | ;
|
|---|
| 9 | OPI ; Record changes to Other print info.
|
|---|
| 10 | I $P($G(^PS(55,DFN,"IV",+ON55,3)),"^")'=$P(P("OPI"),"^") S P("FC")="OTHER PRINT INFO^"_$P($G(^(3)),"^")_U_$P(P("OPI"),"^") D GTFC
|
|---|
| 11 | ;
|
|---|
| 12 | REMARKS ; Record changes to remarks.
|
|---|
| 13 | I $G(^PS(55,DFN,"IV",+ON55,1))'=P("REM") S P("FC")="REMARKS^"_$G(^(1))_U_P("REM") D GTFC
|
|---|
| 14 | ;
|
|---|
| 15 | ADMIN ; Record changes to admin. times.
|
|---|
| 16 | I $P($G(^PS(55,DFN,"IV",+ON55,0)),U,11)'=P(11) S P("FC")="ADMINISTRATION TIMES^"_$P($G(^(0)),U,11)_U_P(11) D GTFC
|
|---|
| 17 | ;
|
|---|
| 18 | INFUS ; Record changes to infusion rate.
|
|---|
| 19 | I $P($G(^PS(55,DFN,"IV",+ON55,0)),U,8)'=P(8) S P("FC")="INFUSION RATE^"_$P($G(^(0)),U,8)_U_P(8) D GTFC
|
|---|
| 20 | D:P("DTYP")=1 SOL
|
|---|
| 21 | ;
|
|---|
| 22 | STOP ; Record changes to stop date.
|
|---|
| 23 | I $P(^PS(55,DFN,"IV",+ON55,0),U,3)'=P(3) S P("FC")="STOP DATE/TIME^",Y=$P(^(0),U,3) X ^DD("DD") S $P(P("FC"),U,3)=$P(Y,"@")_" "_$P(Y,"@",2),Y=P(3) X ^DD("DD") S $P(P("FC"),U,2)=$P(Y,"@")_" "_$P(Y,"@",2) D GTFC
|
|---|
| 24 | K DRGI,DRGN,TDRG,P("AGE"),P("FC")
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | SOL ; Record changes to Solutions.
|
|---|
| 28 | K TDRG F DRGI=0:0 S DRGI=$O(DRG("SOL",DRGI)) Q:'DRGI S TDRG("NEW",$P(DRG("SOL",DRGI),U))=$P(DRG("SOL",DRGI),U,2,3)
|
|---|
| 29 | S P("AGE")="NEW"
|
|---|
| 30 | F DRGI=0:0 S DRGI=$O(^PS(55,DFN,"IV",+ON55,"SOL",DRGI)) Q:'DRGI S X=$G(^PS(55,DFN,"IV",+ON55,"SOL",DRGI,0)),DRG=+$P(X,U),TDRG("OLD",+DRG)=$P($G(^PS(52.7,DRG,0)),U)_U_$P(X,U,2) D:$G(TDRG("NEW",DRG))'=$G(TDRG("OLD",DRG)) SOL1
|
|---|
| 31 | S P("AGE")="OLD" F DRGI=0:0 S DRG=$O(TDRG("NEW",DRG)) Q:'DRG D:$G(TDRG("NEW",DRG))'=$G(TDRG("OLD",DRG)) SOL1
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | SOL1 ;
|
|---|
| 35 | I '$D(TDRG(P("AGE"),DRG)) S P("FC")="SOLUTION^"_$P($G(TDRG("OLD",DRG)),U)_U_$P($G(TDRG("NEW",DRG)),U) D GTFC
|
|---|
| 36 | Q:$G(TDRG("NEW",DRG))=$G(TDRG("OLD",DRG))
|
|---|
| 37 | S P("FC")="VOLUME^"_$P($G(TDRG("OLD",DRG)),U,2)_$S($G(TDRG("OLD",DRG))]"":" ("_$P($G(^PS(52.7,DRG,0)),U)_")",1:"")_U_$P($G(TDRG("NEW",DRG)),U,2)_$S($G(TDRG("NEW",DRG))]"":" ("_$P($G(^PS(52.7,DRG,0)),U)_")",1:"") D GTFC
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | GTFC ; Create field change entry in activity log.
|
|---|
| 41 | S ND=$G(^PS(55,DFN,"IV",+ON55,"A",PSIVLN,1,0)) S:ND="" ND="^55.151^^" S $P(ND,U,3)=$P(ND,U,3)+1,$P(ND,U,4)=$P(ND,U,4)+1,^PS(55,DFN,"IV",+ON55,"A",PSIVLN,1,0)=ND,^PS(55,DFN,"IV",+ON55,"A",PSIVLN,1,$P(ND,U,3),0)=P("FC") K ND
|
|---|
| 42 | Q
|
|---|
| 43 | LOG ; Update activity log (ask for comment.)
|
|---|
| 44 | N ON S ON=ON55
|
|---|
| 45 | ;PSJPINIT is defined in PSJUTL3.
|
|---|
| 46 | S:+$G(PSJPINIT)'>0 PSJPINIT=DUZ
|
|---|
| 47 | I $G(PSIVALT)=1,'$G(PSJUNDC) K DA,DIR S DIR(0)="55.04,.04" D ^DIR K DA,DIR S PSIVAL=$S($D(DIRUT):"",1:Y)
|
|---|
| 48 | S:$G(PSIVALT)=2 PSIVAL="Action taken using OE/RR options." D ENTACT^PSIVAL
|
|---|
| 49 | K TMP
|
|---|
| 50 | S TMP(55.04,""_PSIVLN_","_+ON55_","_DFN_","_"",.02)=PSIVREA
|
|---|
| 51 | S TMP(55.04,""_PSIVLN_","_+ON55_","_DFN_","_"",.03)=$P(^VA(200,PSJPINIT,0),U)
|
|---|
| 52 | S TMP(55.04,""_PSIVLN_","_+ON55_","_DFN_","_"",.04)=$G(PSIVAL)
|
|---|
| 53 | S TMP(55.04,""_PSIVLN_","_+ON55_","_DFN_","_"",.06)=PSJPINIT
|
|---|
| 54 | D FILE^DIE("","TMP")
|
|---|
| 55 | K TMP
|
|---|
| 56 | D:$D(PSIVALCK) @PSIVALCK K PSIVALT,PSIVALCK,PSIVAL
|
|---|
| 57 | Q
|
|---|
