- PSJDDUT3 ;BIR/LDT-INPATIENT MEDICATIONS DD UTILITY ;14-Aug-2014 10:18;DU
- ;;5.0; INPATIENT MEDICATIONS ;1018;16 DEC 97;Build 21
- ;Modified - IHS/MSC/MGH - 08/14/2014 - Line ENI+3 do not allow control characters
- ;
- ;(The following call replaces EN^PSIVHLP3)
- EN(HELP) F PSIVHLP=1:1 Q:$P($T(@HELP+PSIVHLP),";",3)="" S PSJHLP(PSIVHLP)=$P($T(@HELP+PSIVHLP),";",3) D WRITE
- K HELP,PSIVHLP Q
- ;
- ENI ;(Replaces ENI^PSIVSP)
- ;IHS/MSC/MGH Remove control characters
- ;K:$L(X)<1!($L(X)>30)!(X["""")!($A(X)=45) X I '$D(X)!'$D(P(4)) Q
- K:X'?1.30ANP!(X["""")!($A(X)=45) X I '$D(X)!'$D(P(4)) Q ;IHS/MSC/MGH DO NOT ALLOW CONTROL CHARACTERS
- I P(4)="P"!(P(5))!(P(23)="P") Q:'X S X="INFUSE OVER "_X_" MIN." D EN^DDIOL(" "_X,"","?0") Q
- I X'=+X,($P(X,"@",2,999)'=+$P(X,"@",2,999)!(+$P(X,"@",2,999)<0)) K X Q
- S SPSOL=$O(DRG("SOL",0)) I 'SPSOL K SPSOL,X D EN^DDIOL(" You must define at least one solution !!") Q
- I X=+X S X=X_" ml/hr" D EN^DDIOL(" ml/hr","","?0") D SPSOL S P(15)=$S('X:0,1:SPSOL\X*60+(SPSOL#X/X*60+.5)\1) K SPSOL Q
- S SPSOL=$P(X,"@",2) S:$P(X,"@")=+X $P(X,"@")=$P(X,"@")_" ml/hr" D EN^DDIOL(" "_+SPSOL_" Label"_$S(SPSOL'=1:"s",1:"")_" per day"),EN^DDIOL("at an infusion rate of: "_$P(X,"@"),"","!?15") S P(15)=$S('SPSOL:0,1:1440/SPSOL\1) K SPSOL
- Q
- SPSOL S SPSOL=0 F XXX=0:0 S XXX=$O(DRG("SOL",XXX)) Q:'XXX S SPSOL=SPSOL+$P(DRG("SOL",XXX),U,3)
- K XXX Q
- ;
- ;(The following call replaces 59^PSIVUTL)
- 59 ; Validate the Infusion rate entered using IV Quick order code.
- N I F I=2,3,5,7,8,9,11,15,23 S P(I)=""
- S P(4)="A",P(8)=$P($G(^PS(57.1,PSJQO,1)),U,5)
- I $G(^PS(57.1,PSJQO,4,1,0)) S DRG("SOL",1)=^(0),DRG("SOL",0)=1
- I X["?" S F1=53.1,F2=59 D ENHLP^PSIVORC1 G 59
- I X]"" D ENI S:$D(X) P(8)=X
- Q
- ;
- STPDTHLP ;
- ;;A number of doses (dose limit) may be entered and the stop date will
- ;;be automatically calculated. To specify a dose limit enter a number
- ;;corresponding to the number of doses the to be administered.
- ;;(Example: 4 for 4 doses).
- ;
- WRITE ;Calls EN^DDIOL to write text
- D EN^DDIOL(.PSJHLP) K PSJHLP Q
- PSJDDUT3 ;BIR/LDT-INPATIENT MEDICATIONS DD UTILITY ;14-Aug-2014 10:18;DU
- +1 ;;5.0; INPATIENT MEDICATIONS ;1018;16 DEC 97;Build 21
- +2 ;Modified - IHS/MSC/MGH - 08/14/2014 - Line ENI+3 do not allow control characters
- +3 ;
- +4 ;(The following call replaces EN^PSIVHLP3)
- EN(HELP) FOR PSIVHLP=1:1
- IF $PIECE($TEXT(@HELP+PSIVHLP),";",3)=""
- QUIT
- SET PSJHLP(PSIVHLP)=$PIECE($TEXT(@HELP+PSIVHLP),";",3)
- DO WRITE
- +1 KILL HELP,PSIVHLP
- QUIT
- +2 ;
- ENI ;(Replaces ENI^PSIVSP)
- +1 ;IHS/MSC/MGH Remove control characters
- +2 ;K:$L(X)<1!($L(X)>30)!(X["""")!($A(X)=45) X I '$D(X)!'$D(P(4)) Q
- +3 ;IHS/MSC/MGH DO NOT ALLOW CONTROL CHARACTERS
- IF X'?1.30ANP!(X["""")!($ASCII(X)=45)
- KILL X
- IF '$DATA(X)!'$DATA(P(4))
- QUIT
- +4 IF P(4)="P"!(P(5))!(P(23)="P")
- IF 'X
- QUIT
- SET X="INFUSE OVER "_X_" MIN."
- DO EN^DDIOL(" "_X,"","?0")
- QUIT
- +5 IF X'=+X
- IF ($PIECE(X,"@",2,999)'=+$PIECE(X,"@",2,999)!(+$PIECE(X,"@",2,999)<0))
- KILL X
- QUIT
- +6 SET SPSOL=$ORDER(DRG("SOL",0))
- IF 'SPSOL
- KILL SPSOL,X
- DO EN^DDIOL(" You must define at least one solution !!")
- QUIT
- +7 IF X=+X
- SET X=X_" ml/hr"
- DO EN^DDIOL(" ml/hr","","?0")
- DO SPSOL
- SET P(15)=$SELECT('X:0,1:SPSOL\X*60+(SPSOL#X/X*60+.5)\1)
- KILL SPSOL
- QUIT
- +8 SET SPSOL=$PIECE(X,"@",2)
- IF $PIECE(X,"@")=+X
- SET $PIECE(X,"@")=$PIECE(X,"@")_" ml/hr"
- DO EN^DDIOL(" "_+SPSOL_" Label"_$SELECT(SPSOL'=1:"s",1:"")_" per day")
- DO EN^DDIOL("at an infusion rate of: "_$PIECE(X,"@"),"","!?15")
- SET P(15)=$SELECT('SPSOL:0,1:1440/SPSOL\1)
- KILL SPSOL
- +9 QUIT
- SPSOL SET SPSOL=0
- FOR XXX=0:0
- SET XXX=$ORDER(DRG("SOL",XXX))
- IF 'XXX
- QUIT
- SET SPSOL=SPSOL+$PIECE(DRG("SOL",XXX),U,3)
- +1 KILL XXX
- QUIT
- +2 ;
- +3 ;(The following call replaces 59^PSIVUTL)
- 59 ; Validate the Infusion rate entered using IV Quick order code.
- +1 NEW I
- FOR I=2,3,5,7,8,9,11,15,23
- SET P(I)=""
- +2 SET P(4)="A"
- SET P(8)=$PIECE($GET(^PS(57.1,PSJQO,1)),U,5)
- +3 IF $GET(^PS(57.1,PSJQO,4,1,0))
- SET DRG("SOL",1)=^(0)
- SET DRG("SOL",0)=1
- +4 IF X["?"
- SET F1=53.1
- SET F2=59
- DO ENHLP^PSIVORC1
- GOTO 59
- +5 IF X]""
- DO ENI
- IF $DATA(X)
- SET P(8)=X
- +6 QUIT
- +7 ;
- STPDTHLP ;
- +1 ;;A number of doses (dose limit) may be entered and the stop date will
- +2 ;;be automatically calculated. To specify a dose limit enter a number
- +3 ;;corresponding to the number of doses the to be administered.
- +4 ;;(Example: 4 for 4 doses).
- +5 ;
- WRITE ;Calls EN^DDIOL to write text
- +1 DO EN^DDIOL(.PSJHLP)
- KILL PSJHLP
- QUIT
