- IBINI09Q ; ; 21-MAR-1994
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- Q:'DIFQ(362.4) 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(362.4,.02,1,1,"%D",2,0)
- ;;=all it's rx refills for easy look-up.
- ;;^DD(362.4,.02,1,1,"DT")
- ;;=2931229
- ;;^DD(362.4,.02,1,2,0)
- ;;=362.4^C
- ;;^DD(362.4,.02,1,2,1)
- ;;=S ^IBA(362.4,"C",$E(X,1,30),DA)=""
- ;;^DD(362.4,.02,1,2,2)
- ;;=K ^IBA(362.4,"C",$E(X,1,30),DA)
- ;;^DD(362.4,.02,1,2,"DT")
- ;;=2940110
- ;;^DD(362.4,.02,3)
- ;;=Enter a bill number.
- ;;^DD(362.4,.02,12)
- ;;=Only open bills may be modified.
- ;;^DD(362.4,.02,12.1)
- ;;=S DIC("S")="I $P(^(0),U,13)<3"
- ;;^DD(362.4,.02,21,0)
- ;;=^^1^1^2931229^
- ;;^DD(362.4,.02,21,1,0)
- ;;=The bill this rx refill is associated with.
- ;;^DD(362.4,.02,"DT")
- ;;=2940110
- ;;^DD(362.4,.03,0)
- ;;=DATE^D^^0;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
- ;;^DD(362.4,.03,3)
- ;;=Enter the refill date.
- ;;^DD(362.4,.03,21,0)
- ;;=^^1^1^2940208^
- ;;^DD(362.4,.03,21,1,0)
- ;;=The date of the refill that is being billed.
- ;;^DD(362.4,.03,"DT")
- ;;=2940208
- ;;^DD(362.4,.04,0)
- ;;=DRUG^RP50'^PSDRUG(^0;4^Q
- ;;^DD(362.4,.04,3)
- ;;=Enter the drug for this prescription.
- ;;^DD(362.4,.04,21,0)
- ;;=^^1^1^2931223^
- ;;^DD(362.4,.04,21,1,0)
- ;;=The drug prescribed.
- ;;^DD(362.4,.04,"DT")
- ;;=2931223
- ;;^DD(362.4,.05,0)
- ;;=RECORD^P52'^PSRX(^0;5^Q
- ;;^DD(362.4,.05,3)
- ;;=This is the Prescription record for this refill.
- ;;^DD(362.4,.05,5,1,0)
- ;;=362.4^.01^3
- ;;^DD(362.4,.05,21,0)
- ;;=^^1^1^2931229^
- ;;^DD(362.4,.05,21,1,0)
- ;;=Enter the Prescription record for this refill.
- ;;^DD(362.4,.05,23,0)
- ;;=^^4^4^2931229^
- ;;^DD(362.4,.05,23,1,0)
- ;;=This should be automatically set by the system if a Prescription (52)
- ;;^DD(362.4,.05,23,2,0)
- ;;=refill is chosen. This is not required because not all items may be
- ;;^DD(362.4,.05,23,3,0)
- ;;=outpatient prescriptions, such as fee basis charges.
- ;;^DD(362.4,.05,23,4,0)
- ;;=Also, note that the Prescription (52) is not a permanent file.
- ;;^DD(362.4,.05,"DT")
- ;;=2931229
- ;;^DD(362.4,.06,0)
- ;;=DAYS SUPPLY^NJ2,0^^0;6^K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
- ;;^DD(362.4,.06,3)
- ;;=Type a Number between 1 and 90, 0 Decimal Digits
- ;;^DD(362.4,.06,21,0)
- ;;=^^1^1^2940110^^^^
- ;;^DD(362.4,.06,21,1,0)
- ;;=This should be the number of days supplied of the drug dispensed in this refill.
- ;;^DD(362.4,.06,23,0)
- ;;=^^1^1^2940110^^^
- ;;^DD(362.4,.06,23,1,0)
- ;;=Passed from (52,8)
- ;;^DD(362.4,.06,"DT")
- ;;=2940110
- ;;^DD(362.4,.07,0)
- ;;=QTY^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
- ;;^DD(362.4,.07,3)
- ;;=Type a Number between 0 and 999, 0 Decimal Digits
- ;;^DD(362.4,.07,21,0)
- ;;=^^2^2^2940110^^^
- ;;^DD(362.4,.07,21,1,0)
- ;;=This should be the quantity (# of tablets, pills, items, etc.) of the drug
- ;;^DD(362.4,.07,21,2,0)
- ;;=dispensed in this refill.
- ;;^DD(362.4,.07,23,0)
- ;;=^^1^1^2940110^^
- ;;^DD(362.4,.07,23,1,0)
- ;;=Loaded from (52,52,1)
- ;;^DD(362.4,.07,"DT")
- ;;=2940110
- ;;^DD(362.4,.08,0)
- ;;=NDC #^F^^0;8^K:$L(X)>20!($L(X)<1) X
- ;;^DD(362.4,.08,3)
- ;;=Answer must be 1-20 characters in length.
- ;;^DD(362.4,.08,21,0)
- ;;=^^1^1^2940112^^^
- ;;^DD(362.4,.08,21,1,0)
- ;;=Enter the NDC number for this drug, if it should be printed on the bill.
- ;;^DD(362.4,.08,23,0)
- ;;=^^1^1^2940112^^
- ;;^DD(362.4,.08,23,1,0)
- ;;=Not loaded from pharmacy.
- ;;^DD(362.4,.08,"DT")
- ;;=2940112
- IBINI09Q ; ; 21-MAR-1994
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 IF 'DIFQ(362.4)
- 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(362.4,.02,1,1,"%D",2,0)
- +2 ;;=all it's rx refills for easy look-up.
- +3 ;;^DD(362.4,.02,1,1,"DT")
- +4 ;;=2931229
- +5 ;;^DD(362.4,.02,1,2,0)
- +6 ;;=362.4^C
- +7 ;;^DD(362.4,.02,1,2,1)
- +8 ;;=S ^IBA(362.4,"C",$E(X,1,30),DA)=""
- +9 ;;^DD(362.4,.02,1,2,2)
- +10 ;;=K ^IBA(362.4,"C",$E(X,1,30),DA)
- +11 ;;^DD(362.4,.02,1,2,"DT")
- +12 ;;=2940110
- +13 ;;^DD(362.4,.02,3)
- +14 ;;=Enter a bill number.
- +15 ;;^DD(362.4,.02,12)
- +16 ;;=Only open bills may be modified.
- +17 ;;^DD(362.4,.02,12.1)
- +18 ;;=S DIC("S")="I $P(^(0),U,13)<3"
- +19 ;;^DD(362.4,.02,21,0)
- +20 ;;=^^1^1^2931229^
- +21 ;;^DD(362.4,.02,21,1,0)
- +22 ;;=The bill this rx refill is associated with.
- +23 ;;^DD(362.4,.02,"DT")
- +24 ;;=2940110
- +25 ;;^DD(362.4,.03,0)
- +26 ;;=DATE^D^^0;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
- +27 ;;^DD(362.4,.03,3)
- +28 ;;=Enter the refill date.
- +29 ;;^DD(362.4,.03,21,0)
- +30 ;;=^^1^1^2940208^
- +31 ;;^DD(362.4,.03,21,1,0)
- +32 ;;=The date of the refill that is being billed.
- +33 ;;^DD(362.4,.03,"DT")
- +34 ;;=2940208
- +35 ;;^DD(362.4,.04,0)
- +36 ;;=DRUG^RP50'^PSDRUG(^0;4^Q
- +37 ;;^DD(362.4,.04,3)
- +38 ;;=Enter the drug for this prescription.
- +39 ;;^DD(362.4,.04,21,0)
- +40 ;;=^^1^1^2931223^
- +41 ;;^DD(362.4,.04,21,1,0)
- +42 ;;=The drug prescribed.
- +43 ;;^DD(362.4,.04,"DT")
- +44 ;;=2931223
- +45 ;;^DD(362.4,.05,0)
- +46 ;;=RECORD^P52'^PSRX(^0;5^Q
- +47 ;;^DD(362.4,.05,3)
- +48 ;;=This is the Prescription record for this refill.
- +49 ;;^DD(362.4,.05,5,1,0)
- +50 ;;=362.4^.01^3
- +51 ;;^DD(362.4,.05,21,0)
- +52 ;;=^^1^1^2931229^
- +53 ;;^DD(362.4,.05,21,1,0)
- +54 ;;=Enter the Prescription record for this refill.
- +55 ;;^DD(362.4,.05,23,0)
- +56 ;;=^^4^4^2931229^
- +57 ;;^DD(362.4,.05,23,1,0)
- +58 ;;=This should be automatically set by the system if a Prescription (52)
- +59 ;;^DD(362.4,.05,23,2,0)
- +60 ;;=refill is chosen. This is not required because not all items may be
- +61 ;;^DD(362.4,.05,23,3,0)
- +62 ;;=outpatient prescriptions, such as fee basis charges.
- +63 ;;^DD(362.4,.05,23,4,0)
- +64 ;;=Also, note that the Prescription (52) is not a permanent file.
- +65 ;;^DD(362.4,.05,"DT")
- +66 ;;=2931229
- +67 ;;^DD(362.4,.06,0)
- +68 ;;=DAYS SUPPLY^NJ2,0^^0;6^K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
- +69 ;;^DD(362.4,.06,3)
- +70 ;;=Type a Number between 1 and 90, 0 Decimal Digits
- +71 ;;^DD(362.4,.06,21,0)
- +72 ;;=^^1^1^2940110^^^^
- +73 ;;^DD(362.4,.06,21,1,0)
- +74 ;;=This should be the number of days supplied of the drug dispensed in this refill.
- +75 ;;^DD(362.4,.06,23,0)
- +76 ;;=^^1^1^2940110^^^
- +77 ;;^DD(362.4,.06,23,1,0)
- +78 ;;=Passed from (52,8)
- +79 ;;^DD(362.4,.06,"DT")
- +80 ;;=2940110
- +81 ;;^DD(362.4,.07,0)
- +82 ;;=QTY^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
- +83 ;;^DD(362.4,.07,3)
- +84 ;;=Type a Number between 0 and 999, 0 Decimal Digits
- +85 ;;^DD(362.4,.07,21,0)
- +86 ;;=^^2^2^2940110^^^
- +87 ;;^DD(362.4,.07,21,1,0)
- +88 ;;=This should be the quantity (# of tablets, pills, items, etc.) of the drug
- +89 ;;^DD(362.4,.07,21,2,0)
- +90 ;;=dispensed in this refill.
- +91 ;;^DD(362.4,.07,23,0)
- +92 ;;=^^1^1^2940110^^
- +93 ;;^DD(362.4,.07,23,1,0)
- +94 ;;=Loaded from (52,52,1)
- +95 ;;^DD(362.4,.07,"DT")
- +96 ;;=2940110
- +97 ;;^DD(362.4,.08,0)
- +98 ;;=NDC #^F^^0;8^K:$L(X)>20!($L(X)<1) X
- +99 ;;^DD(362.4,.08,3)
- +100 ;;=Answer must be 1-20 characters in length.
- +101 ;;^DD(362.4,.08,21,0)
- +102 ;;=^^1^1^2940112^^^
- +103 ;;^DD(362.4,.08,21,1,0)
- +104 ;;=Enter the NDC number for this drug, if it should be printed on the bill.
- +105 ;;^DD(362.4,.08,23,0)
- +106 ;;=^^1^1^2940112^^
- +107 ;;^DD(362.4,.08,23,1,0)
- +108 ;;=Not loaded from pharmacy.
- +109 ;;^DD(362.4,.08,"DT")
- +110 ;;=2940112
