IBINI034 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(351.2) 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(351.2,.03,21,2,0)
;;=exposure to Agent Orange, Ionizing Radiation, or Environmental
;;^DD(351.2,.03,21,3,0)
;;=Contaminants.
;;^DD(351.2,.03,"DT")
;;=2930810
;;^DD(351.2,.04,0)
;;=BILLING EVENT^P350'^IB(^0;4^Q
;;^DD(351.2,.04,1,0)
;;=^.1
;;^DD(351.2,.04,1,1,0)
;;=351.2^AD
;;^DD(351.2,.04,1,1,1)
;;=S ^IBE(351.2,"AD",$E(X,1,30),DA)=""
;;^DD(351.2,.04,1,1,2)
;;=K ^IBE(351.2,"AD",$E(X,1,30),DA)
;;^DD(351.2,.04,1,1,"DT")
;;=2930811
;;^DD(351.2,.04,21,0)
;;=^^3^3^2930810^
;;^DD(351.2,.04,21,1,0)
;;=This field points to the event record in the INTEGRATED BILLING ACTION
;;^DD(351.2,.04,21,2,0)
;;=(#350) file which may be used to reference all charges associated with
;;^DD(351.2,.04,21,3,0)
;;=the admission.
;;^DD(351.2,.04,"DT")
;;=2930811
;;^DD(351.2,.05,0)
;;=PATIENT STATUS^S^1:ADMITTED;2:DISCHARGED;^0;5^Q
;;^DD(351.2,.05,21,0)
;;=^^3^3^2940209^^^
;;^DD(351.2,.05,21,1,0)
;;=This field indicates whether the patient is admitted or has been
;;^DD(351.2,.05,21,2,0)
;;=discharged. The field is used to determine if monitoring of the
;;^DD(351.2,.05,21,3,0)
;;=billing case should begin.
;;^DD(351.2,.05,"DT")
;;=2930810
;;^DD(351.2,.06,0)
;;=DATE DISCHARGE ENTERED^D^^0;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(351.2,.06,21,0)
;;=^^3^3^2930810^
;;^DD(351.2,.06,21,1,0)
;;=This field contains the date that the patient's discharge movement
;;^DD(351.2,.06,21,2,0)
;;=was entered into the system. The date is used as the starting date
;;^DD(351.2,.06,21,3,0)
;;=in the 45-day period in which this case must be dispositioned.
;;^DD(351.2,.06,"DT")
;;=2930810
;;^DD(351.2,.07,0)
;;=CARE RELATED TO CONDITION?^S^0:NO;1:YES;^0;7^Q
;;^DD(351.2,.07,21,0)
;;=^^3^3^2930810^
;;^DD(351.2,.07,21,1,0)
;;=This field indicates whether this patient's inpatient episode of
;;^DD(351.2,.07,21,2,0)
;;=care has any component at all which is related to the patient's
;;^DD(351.2,.07,21,3,0)
;;=claimed exposure.
;;^DD(351.2,.07,"DT")
;;=2930810
;;^DD(351.2,.08,0)
;;=CASE DISPOSITIONED?^S^0:NO;1:YES;^0;8^Q
;;^DD(351.2,.08,21,0)
;;=^^3^3^2930810^
;;^DD(351.2,.08,21,1,0)
;;=This field indicates whether this billing case has been fully
;;^DD(351.2,.08,21,2,0)
;;=dispositioned. Once the case has been dispositioned, then it
;;^DD(351.2,.08,21,3,0)
;;=will no longer be monitored by the nightly billing job.
;;^DD(351.2,.08,"DT")
;;=2930810
;;^DD(351.2,1,0)
;;=REASON FOR NON-BILLING^F^^1;1^K:$L(X)>80!($L(X)<1) X
;;^DD(351.2,1,3)
;;=Answer must be 1-80 characters in length.
;;^DD(351.2,1,21,0)
;;=^^2^2^2930810^
;;^DD(351.2,1,21,1,0)
;;=This field allows the user to enter a free-text comment explaining why
;;^DD(351.2,1,21,2,0)
;;=this inpatient episode of care was not billed.
;;^DD(351.2,1,"DT")
;;=2930810
;;^DD(351.2,2.01,0)
;;=USER ADDING ENTRY^P200'^VA(200,^2;1^Q
;;^DD(351.2,2.01,21,0)
;;=^^3^3^2930810^
;;^DD(351.2,2.01,21,1,0)
;;=This field contains a pointer to the user who caused this entry to
;;^DD(351.2,2.01,21,2,0)
;;=be created. This would normally be the user who enters the admission
;;^DD(351.2,2.01,21,3,0)
;;=movement for the patient.
;;^DD(351.2,2.01,"DT")
;;=2930810
;;^DD(351.2,2.02,0)
;;=DATE/TIME ENTRY CREATED^D^^2;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(351.2,2.02,21,0)
;;=^^1^1^2930810^
;;^DD(351.2,2.02,21,1,0)
;;=This is the date/time that the entry was created.
;;^DD(351.2,2.02,"DT")
;;=2930810
;;^DD(351.2,2.03,0)
;;=USER LAST UPDATING^P200'^VA(200,^2;3^Q
;;^DD(351.2,2.03,21,0)
;;=^^1^1^2930810^
;;^DD(351.2,2.03,21,1,0)
;;=This field is a pointer to the user who last updated the entry.
IBINI034 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(351.2)
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(351.2,.03,21,2,0)
+2 ;;=exposure to Agent Orange, Ionizing Radiation, or Environmental
+3 ;;^DD(351.2,.03,21,3,0)
+4 ;;=Contaminants.
+5 ;;^DD(351.2,.03,"DT")
+6 ;;=2930810
+7 ;;^DD(351.2,.04,0)
+8 ;;=BILLING EVENT^P350'^IB(^0;4^Q
+9 ;;^DD(351.2,.04,1,0)
+10 ;;=^.1
+11 ;;^DD(351.2,.04,1,1,0)
+12 ;;=351.2^AD
+13 ;;^DD(351.2,.04,1,1,1)
+14 ;;=S ^IBE(351.2,"AD",$E(X,1,30),DA)=""
+15 ;;^DD(351.2,.04,1,1,2)
+16 ;;=K ^IBE(351.2,"AD",$E(X,1,30),DA)
+17 ;;^DD(351.2,.04,1,1,"DT")
+18 ;;=2930811
+19 ;;^DD(351.2,.04,21,0)
+20 ;;=^^3^3^2930810^
+21 ;;^DD(351.2,.04,21,1,0)
+22 ;;=This field points to the event record in the INTEGRATED BILLING ACTION
+23 ;;^DD(351.2,.04,21,2,0)
+24 ;;=(#350) file which may be used to reference all charges associated with
+25 ;;^DD(351.2,.04,21,3,0)
+26 ;;=the admission.
+27 ;;^DD(351.2,.04,"DT")
+28 ;;=2930811
+29 ;;^DD(351.2,.05,0)
+30 ;;=PATIENT STATUS^S^1:ADMITTED;2:DISCHARGED;^0;5^Q
+31 ;;^DD(351.2,.05,21,0)
+32 ;;=^^3^3^2940209^^^
+33 ;;^DD(351.2,.05,21,1,0)
+34 ;;=This field indicates whether the patient is admitted or has been
+35 ;;^DD(351.2,.05,21,2,0)
+36 ;;=discharged. The field is used to determine if monitoring of the
+37 ;;^DD(351.2,.05,21,3,0)
+38 ;;=billing case should begin.
+39 ;;^DD(351.2,.05,"DT")
+40 ;;=2930810
+41 ;;^DD(351.2,.06,0)
+42 ;;=DATE DISCHARGE ENTERED^D^^0;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+43 ;;^DD(351.2,.06,21,0)
+44 ;;=^^3^3^2930810^
+45 ;;^DD(351.2,.06,21,1,0)
+46 ;;=This field contains the date that the patient's discharge movement
+47 ;;^DD(351.2,.06,21,2,0)
+48 ;;=was entered into the system. The date is used as the starting date
+49 ;;^DD(351.2,.06,21,3,0)
+50 ;;=in the 45-day period in which this case must be dispositioned.
+51 ;;^DD(351.2,.06,"DT")
+52 ;;=2930810
+53 ;;^DD(351.2,.07,0)
+54 ;;=CARE RELATED TO CONDITION?^S^0:NO;1:YES;^0;7^Q
+55 ;;^DD(351.2,.07,21,0)
+56 ;;=^^3^3^2930810^
+57 ;;^DD(351.2,.07,21,1,0)
+58 ;;=This field indicates whether this patient's inpatient episode of
+59 ;;^DD(351.2,.07,21,2,0)
+60 ;;=care has any component at all which is related to the patient's
+61 ;;^DD(351.2,.07,21,3,0)
+62 ;;=claimed exposure.
+63 ;;^DD(351.2,.07,"DT")
+64 ;;=2930810
+65 ;;^DD(351.2,.08,0)
+66 ;;=CASE DISPOSITIONED?^S^0:NO;1:YES;^0;8^Q
+67 ;;^DD(351.2,.08,21,0)
+68 ;;=^^3^3^2930810^
+69 ;;^DD(351.2,.08,21,1,0)
+70 ;;=This field indicates whether this billing case has been fully
+71 ;;^DD(351.2,.08,21,2,0)
+72 ;;=dispositioned. Once the case has been dispositioned, then it
+73 ;;^DD(351.2,.08,21,3,0)
+74 ;;=will no longer be monitored by the nightly billing job.
+75 ;;^DD(351.2,.08,"DT")
+76 ;;=2930810
+77 ;;^DD(351.2,1,0)
+78 ;;=REASON FOR NON-BILLING^F^^1;1^K:$L(X)>80!($L(X)<1) X
+79 ;;^DD(351.2,1,3)
+80 ;;=Answer must be 1-80 characters in length.
+81 ;;^DD(351.2,1,21,0)
+82 ;;=^^2^2^2930810^
+83 ;;^DD(351.2,1,21,1,0)
+84 ;;=This field allows the user to enter a free-text comment explaining why
+85 ;;^DD(351.2,1,21,2,0)
+86 ;;=this inpatient episode of care was not billed.
+87 ;;^DD(351.2,1,"DT")
+88 ;;=2930810
+89 ;;^DD(351.2,2.01,0)
+90 ;;=USER ADDING ENTRY^P200'^VA(200,^2;1^Q
+91 ;;^DD(351.2,2.01,21,0)
+92 ;;=^^3^3^2930810^
+93 ;;^DD(351.2,2.01,21,1,0)
+94 ;;=This field contains a pointer to the user who caused this entry to
+95 ;;^DD(351.2,2.01,21,2,0)
+96 ;;=be created. This would normally be the user who enters the admission
+97 ;;^DD(351.2,2.01,21,3,0)
+98 ;;=movement for the patient.
+99 ;;^DD(351.2,2.01,"DT")
+100 ;;=2930810
+101 ;;^DD(351.2,2.02,0)
+102 ;;=DATE/TIME ENTRY CREATED^D^^2;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+103 ;;^DD(351.2,2.02,21,0)
+104 ;;=^^1^1^2930810^
+105 ;;^DD(351.2,2.02,21,1,0)
+106 ;;=This is the date/time that the entry was created.
+107 ;;^DD(351.2,2.02,"DT")
+108 ;;=2930810
+109 ;;^DD(351.2,2.03,0)
+110 ;;=USER LAST UPDATING^P200'^VA(200,^2;3^Q
+111 ;;^DD(351.2,2.03,21,0)
+112 ;;=^^1^1^2930810^
+113 ;;^DD(351.2,2.03,21,1,0)
+114 ;;=This field is a pointer to the user who last updated the entry.
