PSJDDUT3.m

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