PSJAI002 ; ; 20-MAR-1996
;;4.5;Inpatient Medications;**27**;OCT 07, 1994
Q:'DIFQ(59.5) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DD(59.5,.104,21,0)
;;=^^4^4^2920612^^^^
;;^DD(59.5,.104,21,1,0)
;;=This number is used when the stop date of a new order is computed.
;;^DD(59.5,.104,21,2,0)
;;=In other words, if Large Volume IV's are good for 14 days and a new
;;^DD(59.5,.104,21,3,0)
;;=order is input with a start date of today, the stop date will be 'T+14'.
;;^DD(59.5,.104,21,4,0)
;;=
;;^DD(59.5,.104,"DT")
;;=2910312
;;^DD(59.5,.105,0)
;;=EXPIRE ALL ORDERS ON SAME DAY^S^0:NO;1:YES;^1;5^Q
;;^DD(59.5,.105,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.105,20,1,0)
;;=PSJI
;;^DD(59.5,.105,21,0)
;;=^^6^6^2860221^^^^
;;^DD(59.5,.105,21,1,0)
;;=Enter a '1' to stop all IV orders automatically on the same day.
;;^DD(59.5,.105,21,2,0)
;;=The day the orders are stopped will be the 'STOP DATE' of the
;;^DD(59.5,.105,21,3,0)
;;=FIRST ACTIVE IV order found in the file. The stop/date that is
;;^DD(59.5,.105,21,4,0)
;;=found will be shown as a default for the stop/date of the IV ORDER.
;;^DD(59.5,.105,21,5,0)
;;=
;;^DD(59.5,.105,21,6,0)
;;=
;;^DD(59.5,.105,"DT")
;;=2840613
;;^DD(59.5,.106,0)
;;=*DC ORDERS ON WARD TRANSFER^S^0:NO;1:YES;^1;6^Q
;;^DD(59.5,.106,3)
;;=
;;^DD(59.5,.106,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.106,20,1,0)
;;=PSJI
;;^DD(59.5,.106,21,0)
;;=^^3^3^2890831^^^
;;^DD(59.5,.106,21,1,0)
;;=This only affects orders of patients transferring BETWEEN WARDS,
;;^DD(59.5,.106,21,2,0)
;;=and NOT transferring BETWEEN SERVICES. Enter a '1' if you want
;;^DD(59.5,.106,21,3,0)
;;=this feature.
;;^DD(59.5,.106,21,4,0)
;;=** This is effective only for ward transfers not for transfers across
;;^DD(59.5,.106,21,5,0)
;;= services !
;;^DD(59.5,.106,"DT")
;;=2840928
;;^DD(59.5,.107,0)
;;=HEADER LABEL^S^0:NO;1:YES;^1;7^Q
;;^DD(59.5,.107,3)
;;=
;;^DD(59.5,.107,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.107,20,1,0)
;;=PSJI
;;^DD(59.5,.107,21,0)
;;=5^^5^5^2940720^^
;;^DD(59.5,.107,21,1,0)
;;=When set to "YES", an extra label is generated to record lot #'s and
;;^DD(59.5,.107,21,2,0)
;;=provide a record for new orders entered since the last printing of the
;;^DD(59.5,.107,21,3,0)
;;=active order list. This extra label, together with the active order list
;;^DD(59.5,.107,21,4,0)
;;=provides a paper backup system in the event that the computer system
;;^DD(59.5,.107,21,5,0)
;;=becomes "unavailable" to the user.
;;^DD(59.5,.107,22)
;;=
;;^DD(59.5,.107,"DT")
;;=2850319
;;^DD(59.5,.108,0)
;;=ACTIVITY RULER^S^0:NO;1:YES;^1;8^Q
;;^DD(59.5,.108,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.108,20,1,0)
;;=PSJI
;;^DD(59.5,.108,21,0)
;;=^^5^5^2880708^^^^
;;^DD(59.5,.108,21,1,0)
;;=The 'ACTIVITY RULER' provides a visual representation of the relationship
;;^DD(59.5,.108,21,2,0)
;;=between coverage times, doses due and order start times. The intent
;;^DD(59.5,.108,21,3,0)
;;=is to provide the 'on-the-floor' user with a means of 'tracking' activity
;;^DD(59.5,.108,21,4,0)
;;=in the IV room and determining when to call for doses before the normal
;;^DD(59.5,.108,21,5,0)
;;=delivery.
;;^DD(59.5,.108,"DT")
;;=2850321
;;^DD(59.5,.109,0)
;;=SHOW BED LOCATION ON LABEL^S^0:NO;1:YES;^1;9^Q
;;^DD(59.5,.109,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.109,20,1,0)
;;=PSJI
;;^DD(59.5,.109,21,0)
;;=^^4^4^2860128^^
;;^DD(59.5,.109,21,1,0)
;;=The patient's 'WARD LOCATION' is ALWAYS printed on the IV label.
;;^DD(59.5,.109,21,2,0)
;;=If the 'BED LOCATION' is available, and if it is desired to have
;;^DD(59.5,.109,21,3,0)
;;=this ADDITIONAL information on the IV label, respond with a 'Y' or
;;^DD(59.5,.109,21,4,0)
;;=a '1' at this 'IV ROOM' parameter prompt.
;;^DD(59.5,.109,"DT")
;;=2850327
;;^DD(59.5,.11,0)
;;=*SHOW UNIT NEEDS^S^0:NO;1:YES;^1;10^Q
;;^DD(59.5,.11,20,0)
;;=^.3LA^1^1
;;^DD(59.5,.11,20,1,0)
;;=PSJI
;;^DD(59.5,.11,21,0)
;;=^^8^8^2860128^^^^
;;^DD(59.5,.11,21,1,0)
;;=If this parameter is turned on, a visual 'time scale' will be shown.
;;^DD(59.5,.11,21,2,0)
;;=This time scale will show what the orders' unit needs will be for 14
;;^DD(59.5,.11,21,3,0)
;;=24-hour periods.
;;^DD(59.5,.11,21,4,0)
;;=EXAMPLE:
;;^DD(59.5,.11,21,5,0)
;;= If an order was given with an infusion rate of 220 ml/hr and a total
;;^DD(59.5,.11,21,6,0)
;;= volume of 1000 ML, the unit needs would be:
;;^DD(59.5,.11,21,7,0)
;;=DAY : 1 2 3 4 5 6 7 8 9 10 11 12 13 14
;;^DD(59.5,.11,21,8,0)
;;=UNIT : 5 5 5 6 5 5 6 5 5 5 6 5 5 6
;;^DD(59.5,.11,"DT")
;;=2850420
;;^DD(59.5,.111,0)
;;=HYPERAL GOOD FOR HOW MANY DAYS^NJ5,2^^1;17^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
PSJAI002 ; ; 20-MAR-1996
+1 ;;4.5;Inpatient Medications;**27**;OCT 07, 1994
+2 IF 'DIFQ(59.5)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(59.5,.104,21,0)
+2 ;;=^^4^4^2920612^^^^
+3 ;;^DD(59.5,.104,21,1,0)
+4 ;;=This number is used when the stop date of a new order is computed.
+5 ;;^DD(59.5,.104,21,2,0)
+6 ;;=In other words, if Large Volume IV's are good for 14 days and a new
+7 ;;^DD(59.5,.104,21,3,0)
+8 ;;=order is input with a start date of today, the stop date will be 'T+14'.
+9 ;;^DD(59.5,.104,21,4,0)
+10 ;;=
+11 ;;^DD(59.5,.104,"DT")
+12 ;;=2910312
+13 ;;^DD(59.5,.105,0)
+14 ;;=EXPIRE ALL ORDERS ON SAME DAY^S^0:NO;1:YES;^1;5^Q
+15 ;;^DD(59.5,.105,20,0)
+16 ;;=^.3LA^1^1
+17 ;;^DD(59.5,.105,20,1,0)
+18 ;;=PSJI
+19 ;;^DD(59.5,.105,21,0)
+20 ;;=^^6^6^2860221^^^^
+21 ;;^DD(59.5,.105,21,1,0)
+22 ;;=Enter a '1' to stop all IV orders automatically on the same day.
+23 ;;^DD(59.5,.105,21,2,0)
+24 ;;=The day the orders are stopped will be the 'STOP DATE' of the
+25 ;;^DD(59.5,.105,21,3,0)
+26 ;;=FIRST ACTIVE IV order found in the file. The stop/date that is
+27 ;;^DD(59.5,.105,21,4,0)
+28 ;;=found will be shown as a default for the stop/date of the IV ORDER.
+29 ;;^DD(59.5,.105,21,5,0)
+30 ;;=
+31 ;;^DD(59.5,.105,21,6,0)
+32 ;;=
+33 ;;^DD(59.5,.105,"DT")
+34 ;;=2840613
+35 ;;^DD(59.5,.106,0)
+36 ;;=*DC ORDERS ON WARD TRANSFER^S^0:NO;1:YES;^1;6^Q
+37 ;;^DD(59.5,.106,3)
+38 ;;=
+39 ;;^DD(59.5,.106,20,0)
+40 ;;=^.3LA^1^1
+41 ;;^DD(59.5,.106,20,1,0)
+42 ;;=PSJI
+43 ;;^DD(59.5,.106,21,0)
+44 ;;=^^3^3^2890831^^^
+45 ;;^DD(59.5,.106,21,1,0)
+46 ;;=This only affects orders of patients transferring BETWEEN WARDS,
+47 ;;^DD(59.5,.106,21,2,0)
+48 ;;=and NOT transferring BETWEEN SERVICES. Enter a '1' if you want
+49 ;;^DD(59.5,.106,21,3,0)
+50 ;;=this feature.
+51 ;;^DD(59.5,.106,21,4,0)
+52 ;;=** This is effective only for ward transfers not for transfers across
+53 ;;^DD(59.5,.106,21,5,0)
+54 ;;= services !
+55 ;;^DD(59.5,.106,"DT")
+56 ;;=2840928
+57 ;;^DD(59.5,.107,0)
+58 ;;=HEADER LABEL^S^0:NO;1:YES;^1;7^Q
+59 ;;^DD(59.5,.107,3)
+60 ;;=
+61 ;;^DD(59.5,.107,20,0)
+62 ;;=^.3LA^1^1
+63 ;;^DD(59.5,.107,20,1,0)
+64 ;;=PSJI
+65 ;;^DD(59.5,.107,21,0)
+66 ;;=5^^5^5^2940720^^
+67 ;;^DD(59.5,.107,21,1,0)
+68 ;;=When set to "YES", an extra label is generated to record lot #'s and
+69 ;;^DD(59.5,.107,21,2,0)
+70 ;;=provide a record for new orders entered since the last printing of the
+71 ;;^DD(59.5,.107,21,3,0)
+72 ;;=active order list. This extra label, together with the active order list
+73 ;;^DD(59.5,.107,21,4,0)
+74 ;;=provides a paper backup system in the event that the computer system
+75 ;;^DD(59.5,.107,21,5,0)
+76 ;;=becomes "unavailable" to the user.
+77 ;;^DD(59.5,.107,22)
+78 ;;=
+79 ;;^DD(59.5,.107,"DT")
+80 ;;=2850319
+81 ;;^DD(59.5,.108,0)
+82 ;;=ACTIVITY RULER^S^0:NO;1:YES;^1;8^Q
+83 ;;^DD(59.5,.108,20,0)
+84 ;;=^.3LA^1^1
+85 ;;^DD(59.5,.108,20,1,0)
+86 ;;=PSJI
+87 ;;^DD(59.5,.108,21,0)
+88 ;;=^^5^5^2880708^^^^
+89 ;;^DD(59.5,.108,21,1,0)
+90 ;;=The 'ACTIVITY RULER' provides a visual representation of the relationship
+91 ;;^DD(59.5,.108,21,2,0)
+92 ;;=between coverage times, doses due and order start times. The intent
+93 ;;^DD(59.5,.108,21,3,0)
+94 ;;=is to provide the 'on-the-floor' user with a means of 'tracking' activity
+95 ;;^DD(59.5,.108,21,4,0)
+96 ;;=in the IV room and determining when to call for doses before the normal
+97 ;;^DD(59.5,.108,21,5,0)
+98 ;;=delivery.
+99 ;;^DD(59.5,.108,"DT")
+100 ;;=2850321
+101 ;;^DD(59.5,.109,0)
+102 ;;=SHOW BED LOCATION ON LABEL^S^0:NO;1:YES;^1;9^Q
+103 ;;^DD(59.5,.109,20,0)
+104 ;;=^.3LA^1^1
+105 ;;^DD(59.5,.109,20,1,0)
+106 ;;=PSJI
+107 ;;^DD(59.5,.109,21,0)
+108 ;;=^^4^4^2860128^^
+109 ;;^DD(59.5,.109,21,1,0)
+110 ;;=The patient's 'WARD LOCATION' is ALWAYS printed on the IV label.
+111 ;;^DD(59.5,.109,21,2,0)
+112 ;;=If the 'BED LOCATION' is available, and if it is desired to have
+113 ;;^DD(59.5,.109,21,3,0)
+114 ;;=this ADDITIONAL information on the IV label, respond with a 'Y' or
+115 ;;^DD(59.5,.109,21,4,0)
+116 ;;=a '1' at this 'IV ROOM' parameter prompt.
+117 ;;^DD(59.5,.109,"DT")
+118 ;;=2850327
+119 ;;^DD(59.5,.11,0)
+120 ;;=*SHOW UNIT NEEDS^S^0:NO;1:YES;^1;10^Q
+121 ;;^DD(59.5,.11,20,0)
+122 ;;=^.3LA^1^1
+123 ;;^DD(59.5,.11,20,1,0)
+124 ;;=PSJI
+125 ;;^DD(59.5,.11,21,0)
+126 ;;=^^8^8^2860128^^^^
+127 ;;^DD(59.5,.11,21,1,0)
+128 ;;=If this parameter is turned on, a visual 'time scale' will be shown.
+129 ;;^DD(59.5,.11,21,2,0)
+130 ;;=This time scale will show what the orders' unit needs will be for 14
+131 ;;^DD(59.5,.11,21,3,0)
+132 ;;=24-hour periods.
+133 ;;^DD(59.5,.11,21,4,0)
+134 ;;=EXAMPLE:
+135 ;;^DD(59.5,.11,21,5,0)
+136 ;;= If an order was given with an infusion rate of 220 ml/hr and a total
+137 ;;^DD(59.5,.11,21,6,0)
+138 ;;= volume of 1000 ML, the unit needs would be:
+139 ;;^DD(59.5,.11,21,7,0)
+140 ;;=DAY : 1 2 3 4 5 6 7 8 9 10 11 12 13 14
+141 ;;^DD(59.5,.11,21,8,0)
+142 ;;=UNIT : 5 5 5 6 5 5 6 5 5 5 6 5 5 6
+143 ;;^DD(59.5,.11,"DT")
+144 ;;=2850420
+145 ;;^DD(59.5,.111,0)
+146 ;;=HYPERAL GOOD FOR HOW MANY DAYS^NJ5,2^^1;17^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
