PSJAI004 ; ; 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,9,21,2,0)
;;=If you do not enter data into this field, the system will use '30' as
;;^DD(59.5,9,21,3,0)
;;=the default. If a line of print cannot fit within the width you define
;;^DD(59.5,9,21,4,0)
;;=here, it will continue on the next line of the label.
;;^DD(59.5,9,"DT")
;;=2850827
;;^DD(59.5,10,0)
;;=STOP TIME FOR ORDER^NJ4,0X^^1;14^K:X>2400!($L(X)<4)!(X<1)!(X?.E1"."1N.N) X I $D(X) S PSIVX=X,PSIVY=$G(Y) S %DT="T",Y=DT_"."_X X ^DD("DD") S X=Y D ^%DT S X=PSIVX K:Y<0 X S Y=PSIVY K PSIVX,PSIVY
;;^DD(59.5,10,3)
;;=Type a whole number between 0001 and 2400.
;;^DD(59.5,10,20,0)
;;=^.3LA^1^1
;;^DD(59.5,10,20,1,0)
;;=PSJI
;;^DD(59.5,10,21,0)
;;=^^4^4^2910306^^^^
;;^DD(59.5,10,21,1,0)
;;= Enter the TIME of the day that orders should end. For example
;;^DD(59.5,10,21,2,0)
;;=if IV's are good for 14 days and an order's start date/time is
;;^DD(59.5,10,21,3,0)
;;=MAY 01 1985@1200 and 2200 is entered at this prompt,
;;^DD(59.5,10,21,4,0)
;;=then the default stop date/time will be MAY 14 1985@22:00.
;;^DD(59.5,10,"DT")
;;=2860128
;;^DD(59.5,11,0)
;;=*DC ORDERS ON SERVICE TRANSFER^S^0:NO;1:YES;^1;15^Q
;;^DD(59.5,11,20,0)
;;=^.3LA^1^1
;;^DD(59.5,11,20,1,0)
;;=PSJI
;;^DD(59.5,11,21,0)
;;=^^4^4^2910306^^^
;;^DD(59.5,11,21,1,0)
;;=If you want all IV ORDERS to be dc'd automatically when a patient
;;^DD(59.5,11,21,2,0)
;;=transfers between SERVICE, enter a '1' or 'YES'. If a '0' or 'NO'
;;^DD(59.5,11,21,3,0)
;;=is entered in this site parameter, no orders will be automatically
;;^DD(59.5,11,21,4,0)
;;=dc'd due to service transfer.
;;^DD(59.5,11,"DT")
;;=2850907
;;^DD(59.5,12,0)
;;=LINE FEEDS BETWEEN LABELS^NJ1,0^^1;16^K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
;;^DD(59.5,12,3)
;;=Type a whole number between 0 and 6.
;;^DD(59.5,12,20,0)
;;=^.3LA^1^1
;;^DD(59.5,12,20,1,0)
;;=PSJI
;;^DD(59.5,12,21,0)
;;=^^4^4^2910306^^^^
;;^DD(59.5,12,21,1,0)
;;= Type the number of line feeds between each IV label. Ex. If
;;^DD(59.5,12,21,2,0)
;;=you type '1', there will be one line feed between each IV label.
;;^DD(59.5,12,21,3,0)
;;=This parameter makes it possible to have a top and bottom margin
;;^DD(59.5,12,21,4,0)
;;=on your IV LABELS.
;;^DD(59.5,12,"DT")
;;=2851218
;;^DD(59.5,13,0)
;;=LABEL DEVICE^FX^^0;2^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
;;^DD(59.5,13,3)
;;=Enter a device on which labels may be printed.
;;^DD(59.5,13,20,0)
;;=^.3LA^1^1
;;^DD(59.5,13,20,1,0)
;;=PSJI
;;^DD(59.5,13,21,0)
;;=^^4^4^2910313^^^^
;;^DD(59.5,13,21,1,0)
;;= Enter the device number or name that will be used most frequently
;;^DD(59.5,13,21,2,0)
;;=as the LABEL device for this IV ROOM. This field will be shown as
;;^DD(59.5,13,21,3,0)
;;=the default for the 'Printer label device: ' prompt when signing
;;^DD(59.5,13,21,4,0)
;;=into the IV PACKAGE.
;;^DD(59.5,13,"DT")
;;=2910313
;;^DD(59.5,14,0)
;;=REPORT DEVICE^FX^^0;3^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
;;^DD(59.5,14,3)
;;=Enter a device on which reports may be printed.
;;^DD(59.5,14,20,0)
;;=^.3LA^1^1
;;^DD(59.5,14,20,1,0)
;;=PSJI
;;^DD(59.5,14,21,0)
;;=^^4^4^2940714^^^^
;;^DD(59.5,14,21,1,0)
;;= Enter the PROFILE device number or name that will be used most frequently
;;^DD(59.5,14,21,2,0)
;;=by this IV ROOM. This field will be shown as the default for the 'Printer
;;^DD(59.5,14,21,3,0)
;;=profile device: ' prompt when signing into the IV PACKAGE.
;;^DD(59.5,14,21,4,0)
;;=
;;^DD(59.5,14,"DT")
;;=2910313
;;^DD(59.5,15,0)
;;=END OF LABEL TEXT^F^^4;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(59.5,15,3)
;;=Answer must be 1-245 characters in length.
;;^DD(59.5,15,20,0)
;;=^.3LA^1^1
;;^DD(59.5,15,20,1,0)
;;=PSJI
;;^DD(59.5,15,21,0)
;;=^^7^7^2910306^^^^
;;^DD(59.5,15,21,1,0)
;;= Enter any END OF LABEL TEXT, separated by '^', that you wish to print
;;^DD(59.5,15,21,2,0)
;;=at the bottom of every IV LABEL. For example:
;;^DD(59.5,15,21,3,0)
;;= To have 'RETURN TO IV ROOM IN 24-HOURS'
;;^DD(59.5,15,21,4,0)
;;= 'FILLED BY: ____ CHECKED BY: ____'
;;^DD(59.5,15,21,5,0)
;;=printed at the bottom of your IV LABELS, enter:
;;^DD(59.5,15,21,6,0)
;;= 'RETURN TO IV ROOM IN 24-HOURS^FILLED BY: ____ CHECKED BY: ____' in
;;^DD(59.5,15,21,7,0)
;;=this field.
;;^DD(59.5,15,"DT")
;;=2860519
;;^DD(59.5,17,0)
;;=SYRN'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;1^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
;;^DD(59.5,17,3)
;;=Type a Number between 1 and 31, 2 Decimal Digits
;;^DD(59.5,17,20,0)
;;=^.3LA^1^1
;;^DD(59.5,17,20,1,0)
;;=PSJI
PSJAI004 ; ; 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,9,21,2,0)
+2 ;;=If you do not enter data into this field, the system will use '30' as
+3 ;;^DD(59.5,9,21,3,0)
+4 ;;=the default. If a line of print cannot fit within the width you define
+5 ;;^DD(59.5,9,21,4,0)
+6 ;;=here, it will continue on the next line of the label.
+7 ;;^DD(59.5,9,"DT")
+8 ;;=2850827
+9 ;;^DD(59.5,10,0)
+10 ;;=STOP TIME FOR ORDER^NJ4,0X^^1;14^K:X>2400!($L(X)<4)!(X<1)!(X?.E1"."1N.N) X I $D(X) S PSIVX=X,PSIVY=$G(Y) S %DT="T",Y=DT_"."_X X ^DD("DD") S X=Y D ^%DT S X=PSIVX K:Y<0 X S Y=PSIVY K PSIVX,PSIVY
+11 ;;^DD(59.5,10,3)
+12 ;;=Type a whole number between 0001 and 2400.
+13 ;;^DD(59.5,10,20,0)
+14 ;;=^.3LA^1^1
+15 ;;^DD(59.5,10,20,1,0)
+16 ;;=PSJI
+17 ;;^DD(59.5,10,21,0)
+18 ;;=^^4^4^2910306^^^^
+19 ;;^DD(59.5,10,21,1,0)
+20 ;;= Enter the TIME of the day that orders should end. For example
+21 ;;^DD(59.5,10,21,2,0)
+22 ;;=if IV's are good for 14 days and an order's start date/time is
+23 ;;^DD(59.5,10,21,3,0)
+24 ;;=MAY 01 1985@1200 and 2200 is entered at this prompt,
+25 ;;^DD(59.5,10,21,4,0)
+26 ;;=then the default stop date/time will be MAY 14 1985@22:00.
+27 ;;^DD(59.5,10,"DT")
+28 ;;=2860128
+29 ;;^DD(59.5,11,0)
+30 ;;=*DC ORDERS ON SERVICE TRANSFER^S^0:NO;1:YES;^1;15^Q
+31 ;;^DD(59.5,11,20,0)
+32 ;;=^.3LA^1^1
+33 ;;^DD(59.5,11,20,1,0)
+34 ;;=PSJI
+35 ;;^DD(59.5,11,21,0)
+36 ;;=^^4^4^2910306^^^
+37 ;;^DD(59.5,11,21,1,0)
+38 ;;=If you want all IV ORDERS to be dc'd automatically when a patient
+39 ;;^DD(59.5,11,21,2,0)
+40 ;;=transfers between SERVICE, enter a '1' or 'YES'. If a '0' or 'NO'
+41 ;;^DD(59.5,11,21,3,0)
+42 ;;=is entered in this site parameter, no orders will be automatically
+43 ;;^DD(59.5,11,21,4,0)
+44 ;;=dc'd due to service transfer.
+45 ;;^DD(59.5,11,"DT")
+46 ;;=2850907
+47 ;;^DD(59.5,12,0)
+48 ;;=LINE FEEDS BETWEEN LABELS^NJ1,0^^1;16^K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
+49 ;;^DD(59.5,12,3)
+50 ;;=Type a whole number between 0 and 6.
+51 ;;^DD(59.5,12,20,0)
+52 ;;=^.3LA^1^1
+53 ;;^DD(59.5,12,20,1,0)
+54 ;;=PSJI
+55 ;;^DD(59.5,12,21,0)
+56 ;;=^^4^4^2910306^^^^
+57 ;;^DD(59.5,12,21,1,0)
+58 ;;= Type the number of line feeds between each IV label. Ex. If
+59 ;;^DD(59.5,12,21,2,0)
+60 ;;=you type '1', there will be one line feed between each IV label.
+61 ;;^DD(59.5,12,21,3,0)
+62 ;;=This parameter makes it possible to have a top and bottom margin
+63 ;;^DD(59.5,12,21,4,0)
+64 ;;=on your IV LABELS.
+65 ;;^DD(59.5,12,"DT")
+66 ;;=2851218
+67 ;;^DD(59.5,13,0)
+68 ;;=LABEL DEVICE^FX^^0;2^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
+69 ;;^DD(59.5,13,3)
+70 ;;=Enter a device on which labels may be printed.
+71 ;;^DD(59.5,13,20,0)
+72 ;;=^.3LA^1^1
+73 ;;^DD(59.5,13,20,1,0)
+74 ;;=PSJI
+75 ;;^DD(59.5,13,21,0)
+76 ;;=^^4^4^2910313^^^^
+77 ;;^DD(59.5,13,21,1,0)
+78 ;;= Enter the device number or name that will be used most frequently
+79 ;;^DD(59.5,13,21,2,0)
+80 ;;=as the LABEL device for this IV ROOM. This field will be shown as
+81 ;;^DD(59.5,13,21,3,0)
+82 ;;=the default for the 'Printer label device: ' prompt when signing
+83 ;;^DD(59.5,13,21,4,0)
+84 ;;=into the IV PACKAGE.
+85 ;;^DD(59.5,13,"DT")
+86 ;;=2910313
+87 ;;^DD(59.5,14,0)
+88 ;;=REPORT DEVICE^FX^^0;3^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
+89 ;;^DD(59.5,14,3)
+90 ;;=Enter a device on which reports may be printed.
+91 ;;^DD(59.5,14,20,0)
+92 ;;=^.3LA^1^1
+93 ;;^DD(59.5,14,20,1,0)
+94 ;;=PSJI
+95 ;;^DD(59.5,14,21,0)
+96 ;;=^^4^4^2940714^^^^
+97 ;;^DD(59.5,14,21,1,0)
+98 ;;= Enter the PROFILE device number or name that will be used most frequently
+99 ;;^DD(59.5,14,21,2,0)
+100 ;;=by this IV ROOM. This field will be shown as the default for the 'Printer
+101 ;;^DD(59.5,14,21,3,0)
+102 ;;=profile device: ' prompt when signing into the IV PACKAGE.
+103 ;;^DD(59.5,14,21,4,0)
+104 ;;=
+105 ;;^DD(59.5,14,"DT")
+106 ;;=2910313
+107 ;;^DD(59.5,15,0)
+108 ;;=END OF LABEL TEXT^F^^4;E1,245^K:$L(X)>245!($L(X)<1) X
+109 ;;^DD(59.5,15,3)
+110 ;;=Answer must be 1-245 characters in length.
+111 ;;^DD(59.5,15,20,0)
+112 ;;=^.3LA^1^1
+113 ;;^DD(59.5,15,20,1,0)
+114 ;;=PSJI
+115 ;;^DD(59.5,15,21,0)
+116 ;;=^^7^7^2910306^^^^
+117 ;;^DD(59.5,15,21,1,0)
+118 ;;= Enter any END OF LABEL TEXT, separated by '^', that you wish to print
+119 ;;^DD(59.5,15,21,2,0)
+120 ;;=at the bottom of every IV LABEL. For example:
+121 ;;^DD(59.5,15,21,3,0)
+122 ;;= To have 'RETURN TO IV ROOM IN 24-HOURS'
+123 ;;^DD(59.5,15,21,4,0)
+124 ;;= 'FILLED BY: ____ CHECKED BY: ____'
+125 ;;^DD(59.5,15,21,5,0)
+126 ;;=printed at the bottom of your IV LABELS, enter:
+127 ;;^DD(59.5,15,21,6,0)
+128 ;;= 'RETURN TO IV ROOM IN 24-HOURS^FILLED BY: ____ CHECKED BY: ____' in
+129 ;;^DD(59.5,15,21,7,0)
+130 ;;=this field.
+131 ;;^DD(59.5,15,"DT")
+132 ;;=2860519
+133 ;;^DD(59.5,17,0)
+134 ;;=SYRN'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;1^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
+135 ;;^DD(59.5,17,3)
+136 ;;=Type a Number between 1 and 31, 2 Decimal Digits
+137 ;;^DD(59.5,17,20,0)
+138 ;;=^.3LA^1^1
+139 ;;^DD(59.5,17,20,1,0)
+140 ;;=PSJI
