IBINI01E ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(350.1) 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(350.1,.08,"DT")
;;=2920227
;;^DD(350.1,.09,0)
;;=NEW ACTION TYPE^P350.1'^IBE(350.1,^0;9^Q
;;^DD(350.1,.09,21,0)
;;=^^1^1^2920227^
;;^DD(350.1,.09,21,1,0)
;;=This is the IB ACTION TYPE entry that is the 'NEW' type for this entry.
;;^DD(350.1,.09,"DT")
;;=2920227
;;^DD(350.1,.1,0)
;;=PLACE ON HOLD^S^1:YES;0:NO;^0;10^Q
;;^DD(350.1,.1,21,0)
;;=1^^8^8^2920414^^
;;^DD(350.1,.1,21,1,0)
;;=This field is used to flag those IB Actions (as identified by the IB
;;^DD(350.1,.1,21,2,0)
;;=Action Type) which may be 'held up' in Integrated Billing until
;;^DD(350.1,.1,21,3,0)
;;=reimbursement from an Insurance company for the billing of the same
;;^DD(350.1,.1,21,4,0)
;;=event has been received.
;;^DD(350.1,.1,21,5,0)
;;=
;;^DD(350.1,.1,21,6,0)
;;=The field will be set to 'YES' if the Action Type is one which
;;^DD(350.1,.1,21,7,0)
;;=represents a billable action which may be billed to a patient's
;;^DD(350.1,.1,21,8,0)
;;=insurance company as well as to the patient.
;;^DD(350.1,.1,"DT")
;;=2920227
;;^DD(350.1,.11,0)
;;=BILLING GROUP^S^1:INPT/NHCU FEE SERVICE;2:INPT/NHCU COPAY;3:INPT/NHCU PER DIEM;4:OPT COPAY;5:RX COPAY;6:CHAMPVA;^0;11^Q
;;^DD(350.1,.11,3)
;;=Enter Group for manual charge processing.
;;^DD(350.1,.11,21,0)
;;=^^2^2^2920415^
;;^DD(350.1,.11,21,1,0)
;;=This field is a set of codes used to enter the group for
;;^DD(350.1,.11,21,2,0)
;;=manual charge processing.
;;^DD(350.1,.11,"DT")
;;=2930729
;;^DD(350.1,10,0)
;;=PARENT TRACE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(350.1,10,3)
;;=This is Standard MUMPS code.
;;^DD(350.1,10,21,0)
;;=^^8^8^2940209^^^^
;;^DD(350.1,10,21,1,0)
;;=This is the executable code that will expand the field RESULTING FROM in
;;^DD(350.1,10,21,2,0)
;;=the INTEGRATED BILLING ACTION File to return in Y(n) the zeroth node
;;^DD(350.1,10,21,3,0)
;;=of the entry creating this entry. If the entry is caused by a top
;;^DD(350.1,10,21,4,0)
;;=level entry then Y(0) will equal the zeroth node of the file. If
;;^DD(350.1,10,21,5,0)
;;=an entry is caused by a lower level entry then in addition to Y(0),
;;^DD(350.1,10,21,6,0)
;;=Y(1) will be the zeroth node of the next lower level, Y(2) will be the
;;^DD(350.1,10,21,7,0)
;;=zeroth node of the third level, etc. If a node described in the
;;^DD(350.1,10,21,8,0)
;;=RESULTING FROM field in file 350 is not present then Y=-1^error code.
;;^DD(350.1,20,0)
;;=SET LOGIC^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(350.1,20,3)
;;=This is Standard MUMPS code.
;;^DD(350.1,20,21,0)
;;=^^4^4^2910305^^^
;;^DD(350.1,20,21,1,0)
;;=This is the executable MUMPS code that will calculate the BRIEF DESCRIPTION
;;^DD(350.1,20,21,2,0)
;;=stored in file 350. This is used by the IB application interface routines.
;;^DD(350.1,20,21,3,0)
;;=This may execute the PARENT TRACE LOGIC to return data from the
;;^DD(350.1,20,21,4,0)
;;=application.
;;^DD(350.1,30,0)
;;=FULL PROFILE LOGIC^K^^30;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(350.1,30,3)
;;=This is Standard MUMPS code.
;;^DD(350.1,30,21,0)
;;=^^3^3^2910305^^
;;^DD(350.1,30,21,1,0)
;;=This is the standard MUMPS code that will calculate the full profile
;;^DD(350.1,30,21,2,0)
;;=of an IB ACTION entry as approved by the DBA agreements between integrating
;;^DD(350.1,30,21,3,0)
;;=applications.
;;^DD(350.1,40,0)
;;=ELIGIBILITY LOGIC^K^^40;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(350.1,40,3)
;;=This is Standard MUMPS code.
;;^DD(350.1,40,21,0)
;;=^^2^2^2910305^^
;;^DD(350.1,40,21,1,0)
;;=This field the standard mumps code to determine eligibility
IBINI01E ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(350.1)
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(350.1,.08,"DT")
+2 ;;=2920227
+3 ;;^DD(350.1,.09,0)
+4 ;;=NEW ACTION TYPE^P350.1'^IBE(350.1,^0;9^Q
+5 ;;^DD(350.1,.09,21,0)
+6 ;;=^^1^1^2920227^
+7 ;;^DD(350.1,.09,21,1,0)
+8 ;;=This is the IB ACTION TYPE entry that is the 'NEW' type for this entry.
+9 ;;^DD(350.1,.09,"DT")
+10 ;;=2920227
+11 ;;^DD(350.1,.1,0)
+12 ;;=PLACE ON HOLD^S^1:YES;0:NO;^0;10^Q
+13 ;;^DD(350.1,.1,21,0)
+14 ;;=1^^8^8^2920414^^
+15 ;;^DD(350.1,.1,21,1,0)
+16 ;;=This field is used to flag those IB Actions (as identified by the IB
+17 ;;^DD(350.1,.1,21,2,0)
+18 ;;=Action Type) which may be 'held up' in Integrated Billing until
+19 ;;^DD(350.1,.1,21,3,0)
+20 ;;=reimbursement from an Insurance company for the billing of the same
+21 ;;^DD(350.1,.1,21,4,0)
+22 ;;=event has been received.
+23 ;;^DD(350.1,.1,21,5,0)
+24 ;;=
+25 ;;^DD(350.1,.1,21,6,0)
+26 ;;=The field will be set to 'YES' if the Action Type is one which
+27 ;;^DD(350.1,.1,21,7,0)
+28 ;;=represents a billable action which may be billed to a patient's
+29 ;;^DD(350.1,.1,21,8,0)
+30 ;;=insurance company as well as to the patient.
+31 ;;^DD(350.1,.1,"DT")
+32 ;;=2920227
+33 ;;^DD(350.1,.11,0)
+34 ;;=BILLING GROUP^S^1:INPT/NHCU FEE SERVICE;2:INPT/NHCU COPAY;3:INPT/NHCU PER DIEM;4:OPT COPAY;5:RX COPAY;6:CHAMPVA;^0;11^Q
+35 ;;^DD(350.1,.11,3)
+36 ;;=Enter Group for manual charge processing.
+37 ;;^DD(350.1,.11,21,0)
+38 ;;=^^2^2^2920415^
+39 ;;^DD(350.1,.11,21,1,0)
+40 ;;=This field is a set of codes used to enter the group for
+41 ;;^DD(350.1,.11,21,2,0)
+42 ;;=manual charge processing.
+43 ;;^DD(350.1,.11,"DT")
+44 ;;=2930729
+45 ;;^DD(350.1,10,0)
+46 ;;=PARENT TRACE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+47 ;;^DD(350.1,10,3)
+48 ;;=This is Standard MUMPS code.
+49 ;;^DD(350.1,10,21,0)
+50 ;;=^^8^8^2940209^^^^
+51 ;;^DD(350.1,10,21,1,0)
+52 ;;=This is the executable code that will expand the field RESULTING FROM in
+53 ;;^DD(350.1,10,21,2,0)
+54 ;;=the INTEGRATED BILLING ACTION File to return in Y(n) the zeroth node
+55 ;;^DD(350.1,10,21,3,0)
+56 ;;=of the entry creating this entry. If the entry is caused by a top
+57 ;;^DD(350.1,10,21,4,0)
+58 ;;=level entry then Y(0) will equal the zeroth node of the file. If
+59 ;;^DD(350.1,10,21,5,0)
+60 ;;=an entry is caused by a lower level entry then in addition to Y(0),
+61 ;;^DD(350.1,10,21,6,0)
+62 ;;=Y(1) will be the zeroth node of the next lower level, Y(2) will be the
+63 ;;^DD(350.1,10,21,7,0)
+64 ;;=zeroth node of the third level, etc. If a node described in the
+65 ;;^DD(350.1,10,21,8,0)
+66 ;;=RESULTING FROM field in file 350 is not present then Y=-1^error code.
+67 ;;^DD(350.1,20,0)
+68 ;;=SET LOGIC^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+69 ;;^DD(350.1,20,3)
+70 ;;=This is Standard MUMPS code.
+71 ;;^DD(350.1,20,21,0)
+72 ;;=^^4^4^2910305^^^
+73 ;;^DD(350.1,20,21,1,0)
+74 ;;=This is the executable MUMPS code that will calculate the BRIEF DESCRIPTION
+75 ;;^DD(350.1,20,21,2,0)
+76 ;;=stored in file 350. This is used by the IB application interface routines.
+77 ;;^DD(350.1,20,21,3,0)
+78 ;;=This may execute the PARENT TRACE LOGIC to return data from the
+79 ;;^DD(350.1,20,21,4,0)
+80 ;;=application.
+81 ;;^DD(350.1,30,0)
+82 ;;=FULL PROFILE LOGIC^K^^30;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+83 ;;^DD(350.1,30,3)
+84 ;;=This is Standard MUMPS code.
+85 ;;^DD(350.1,30,21,0)
+86 ;;=^^3^3^2910305^^
+87 ;;^DD(350.1,30,21,1,0)
+88 ;;=This is the standard MUMPS code that will calculate the full profile
+89 ;;^DD(350.1,30,21,2,0)
+90 ;;=of an IB ACTION entry as approved by the DBA agreements between integrating
+91 ;;^DD(350.1,30,21,3,0)
+92 ;;=applications.
+93 ;;^DD(350.1,40,0)
+94 ;;=ELIGIBILITY LOGIC^K^^40;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+95 ;;^DD(350.1,40,3)
+96 ;;=This is Standard MUMPS code.
+97 ;;^DD(350.1,40,21,0)
+98 ;;=^^2^2^2910305^^
+99 ;;^DD(350.1,40,21,1,0)
+100 ;;=This field the standard mumps code to determine eligibility
