- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSQOC.m
r613 r623 1 PSSQOC 2 ;;1.0;PHARMACY DATA MANAGEMENT;*100,123*;9/30/97;Build 6 3 4 5 6 EN(PROTIEN) 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 1 23 24 25 .S UNITS=$P("ML^LITER^MCG^MG^GM^UNITS^IU^MEQ^MM^MU^THOUU^MG-PE^NANOGRAM^MMOL",U,+$P(Y,U,3))26 27 28 29 30 31 32 33 34 35 36 37 38 2 39 40 41 42 43 44 45 46 47 48 GTPC 49 50 51 52 53 54 ENI 55 56 57 58 59 60 61 SPSOL 1 PSSQOC ;BIR/MLM-CONVERT PSJ 4.5 QUICK ORDERS FOR USE IN OE/RR 3.0 ;09/09/97 2 ;;1.0;PHARMACY DATA MANAGEMENT;*100*;9/30/97 3 ;External reference to ^ORD(101 supported by DBIA 872 4 ;External reference to ^PS(57.1 supported by DBIA 2139 5 ; 6 EN(PROTIEN) ; 7 N DD,OI,ND0,ND1,PSJBAD,TVOLUME,X S (PSJBAD,TVOLUME)=0 K ^TMP("PSJQO",$J) 8 S PSJQOPTR=+$E($P($P($G(^ORD(101,+PROTIEN,0)),U)," "),5,99) 9 S ND0=$G(^PS(57.1,PSJQOPTR,0)),ND1=$G(^(1)) I ND0=""!(ND1="") Q 10 I $P(ND0,U,3)'=1,$P(ND0,U,3)'=2 Q 11 D @$P(ND0,U,3) Q:'OI 12 S ^TMP("PSJQO",$J,1)=$P(ND0,U)_U_$P(ND0,U,3)_U_OI_U_$P(ND1,U,2,6) 13 S:$G(DD) ^TMP("PSJQO",$J,"DD")=DD 14 D GTPC 15 ; check infusion rate 16 S X=$P(ND1,"^",5) I $G(X) D 17 .D ENI K FREQ I '$D(X) S PSJBAD=1 18 .E S $P(^TMP("PSJQO",$J,1),"^",7)=X 19 K:PSJBAD=1 ^TMP("PSJQO",$J) 20 Q 21 ; 22 1 ; Convert IV Fluid Quick Order 23 S CNT=0 F X=0:0 S X=$O(^PS(57.1,PSJQOPTR,3,X)) Q:'X D 24 .S Y=$G(^PS(52.6,+$G(^PS(57.1,PSJQOPTR,3,X,0)),0)),OI=$P(Y,U,11) 25 .S UNITS=$P("ML^LITER^MCG^MG^GM^UNITS^IU^MEQ^MM^MU^THOUU^MG-PE^NANOGRAM",U,+$P(Y,U,3)) 26 .I OI]"" S CNT=CNT+1 27 .I S ^TMP("PSJQO",$J,"AD",CNT,0)=OI_U_+$P($G(^PS(57.1,PSJQOPTR,3,X,0)),"^",2)_U_UNITS 28 I CNT S ^TMP("PSJQO",$J,"AD",0)=CNT_U_CNT 29 S CNT=0 F X=0:0 S X=$O(^PS(57.1,PSJQOPTR,4,X)) Q:'X D 30 .S Y=$G(^PS(52.7,+$G(^PS(57.1,PSJQOPTR,4,X,0)),0)),OI=$P(Y,U,11) 31 .N VOL S VOL=$P($G(^PS(57.1,PSJQOPTR,4,X,0)),"^",2) 32 .S TVOLUME=TVOLUME++VOL 33 .I (VOL'=+VOL)&(VOL'?1.6N1" "1"ML") S PSJBAD=1 34 .I OI]"" S CNT=CNT+1 35 .I S ^TMP("PSJQO",$J,"SOL",CNT,0)=OI_U_VOL 36 I CNT S ^TMP("PSJQO",$J,"SOL",0)=CNT_U_CNT 37 Q 38 2 ; 39 S OI="",PD=+ND1 40 F DD=0:0 S DD=$O(^PSDRUG("AP",PD,DD)) Q:'DD I $G(^PSDRUG(DD,"I"))=""!($G(^PSDRUG(DD,"I"))>DT) S OI=+$G(^PSDRUG(DD,2)) 41 I '$O(^PSDRUG("AP",PD,DD)) S ^TMP("PSJQO",$J,"DD")=DD Q 42 S MATCH=1 F S DD=$O(^PSDRUG("AP",PD,DD)) Q:'DD!'MATCH D 43 .I ($G(^PSDRUG(DD,"I"))=""!($G(^PSDRUG(DD,"I"))>DT))&(+$G(^PSDRUG(DD,2))'=OI) S MATCH=0 Q 44 S:'MATCH OI="" 45 Q 46 ; 47 ; 48 GTPC ; Set up TMP for provider comments 49 I $O(^PS(57.1,+PSJQOPTR,2,0)) D 50 .S CNT=0 F X=0:0 S X=$O(^PS(57.1,+PSJQOPTR,2,X)) Q:'X D 51 ..S Y=$G(^PS(57.1,PSJQOPTR,2,X,0)) S:Y]"" CNT=CNT+1,^TMP("PSJQO",$J,"PC",CNT,0)=Y 52 .S:$O(^TMP("PSJQO",$J,"PC",0)) ^TMP("PSJQO",$J,"PC",0)=CNT_U_CNT 53 Q 54 ENI ;Calculate Frequency for IV orders 55 K:$L(X)<1!($L(X)>30)!(X["""")!($A(X)=45) X I '$D(X) Q 56 I X'=+X,($P(X,"@",2,999)'=+$P(X,"@",2,999)!(+$P(X,"@",2,999)<0)),($P(X," ml/hr")'=+$P(X," ml/hr")!(+$P(X," ml/hr")<0)) K X Q 57 I X=+X S X=X_" ml/hr" D SPSOL S FREQ=$S('X:0,1:SPSOL\X*60+(SPSOL#X/X*60+.5)\1) K SPSOL Q 58 I X[" ml/hr" D SPSOL S FREQ=$S('X:0,1:SPSOL\X*60+(SPSOL#X/X*60+.5)\1) K SPSOL Q 59 S SPSOL=$P(X,"@",2) S:$P(X,"@")=+X $P(X,"@")=$P(X,"@")_" ml/hr" S FREQ=$S('SPSOL:0,1:1440/SPSOL\1) K SPSOL 60 Q 61 SPSOL S SPSOL=+TVOLUME Q
Note:
See TracChangeset
for help on using the changeset viewer.