IBINI02H ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(350.9) 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.9,1.04,21,0)
;;=^^2^2^2940209^^^^
;;^DD(350.9,1.04,21,1,0)
;;=Enter any remarks that need to appear on every UB claim form. This remark
;;^DD(350.9,1.04,21,2,0)
;;=will print in the remarks section of every UB-82 and UB-92.
;;^DD(350.9,1.04,"DT")
;;=2940119
;;^DD(350.9,1.05,0)
;;=FEDERAL TAX NUMBER^RF^^1;5^K:$L(X)>10!($L(X)<10)!'(X?2N1"-"7N) X
;;^DD(350.9,1.05,3)
;;=Enter the federal tax number for your facility in NN-NNNNNNN format. Answer must be 10 characters in length.
;;^DD(350.9,1.05,21,0)
;;=^^2^2^2940209^^^^
;;^DD(350.9,1.05,21,1,0)
;;=This is your facility federal tax number. If unknown, this may be obtained
;;^DD(350.9,1.05,21,2,0)
;;=from your Fiscal Service.
;;^DD(350.9,1.05,23,0)
;;=^^2^2^2940209^^^^
;;^DD(350.9,1.05,23,1,0)
;;=This is not editable from the billing screens. Printed in Form Locator
;;^DD(350.9,1.05,23,2,0)
;;=6 of the UB-82 and in Form Locator 5 of the UB-92.
;;^DD(350.9,1.05,"DT")
;;=2920204
;;^DD(350.9,1.06,0)
;;=BLUE CROSS/SHIELD PROVIDER #^RF^^1;6^K:$L(X)>13!($L(X)<3) X
;;^DD(350.9,1.06,3)
;;=Enter the 3-13 character BC/BS Provider Number which will be the default for all billing episodes at this facility. Answer must be 3-13 characters in length.
;;^DD(350.9,1.06,21,0)
;;=^^2^2^2920204^
;;^DD(350.9,1.06,21,1,0)
;;=This is the BC/BS Provider Number which Blue Cross has assigned your
;;^DD(350.9,1.06,21,2,0)
;;=facility.
;;^DD(350.9,1.06,"DT")
;;=2920204
;;^DD(350.9,1.07,0)
;;=BILL CANCELLATION MAILGROUP^P3.8'^XMB(3.8,^1;7^Q
;;^DD(350.9,1.07,3)
;;=Enter the mail group you want notified whenever a third party bill is cancelled. If none is entered no mailman notification will be made.
;;^DD(350.9,1.07,21,0)
;;=^^3^3^2940209^^^^
;;^DD(350.9,1.07,21,1,0)
;;=This is the mail group that will recieve automatic notification every
;;^DD(350.9,1.07,21,2,0)
;;=time a third party bill is cancelled. This must be answered for the
;;^DD(350.9,1.07,21,3,0)
;;=automatic notification to occur.
;;^DD(350.9,1.07,"DT")
;;=2940119
;;^DD(350.9,1.08,0)
;;=BILLING SUPERVISOR NAME^RP200'^VA(200,^1;8^Q
;;^DD(350.9,1.08,3)
;;=Enter the Person who is the billing supervisor.
;;^DD(350.9,1.08,21,0)
;;=^^1^1^2920204^
;;^DD(350.9,1.08,21,1,0)
;;=This is the pointer to the PERSON file for the Billing Supervisor.
;;^DD(350.9,1.08,"DT")
;;=2920204
;;^DD(350.9,1.09,0)
;;=BILL DISAPPROVED MAILGROUP^P3.8'^XMB(3.8,^1;9^Q
;;^DD(350.9,1.09,3)
;;=When a third party bill is disapproved the supervisor and initiator of the bill will be notified. If you want additional people notified create a mailgroup and specify it here.
;;^DD(350.9,1.09,21,0)
;;=^^5^5^2940209^^^^
;;^DD(350.9,1.09,21,1,0)
;;=When a third party bill is disapproved the supervisor and initiator of the
;;^DD(350.9,1.09,21,2,0)
;;=bill will be notified. If you want additional people to be notified that a
;;^DD(350.9,1.09,21,3,0)
;;=bill has been disapproved then you must create a mail group and add the
;;^DD(350.9,1.09,21,4,0)
;;=member and then specify the group here. The members of this mail group
;;^DD(350.9,1.09,21,5,0)
;;=will then recieve the disapproval bulletin.
;;^DD(350.9,1.09,"DT")
;;=2940119
;;^DD(350.9,1.1,0)
;;=PRINT '001' FOR TOTAL CHARGES?^S^1:YES;0:NO;^1;10^Q
;;^DD(350.9,1.1,3)
;;=Enter 'YES' if you want the Revenue Code '001' printed on each third party bill with the total charges.
;;^DD(350.9,1.1,21,0)
;;=^^2^2^2940209^^^
;;^DD(350.9,1.1,21,1,0)
;;=The revenue code '001', TOTAL CHARGES, may be printed on each bill with
IBINI02H ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(350.9)
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.9,1.04,21,0)
+2 ;;=^^2^2^2940209^^^^
+3 ;;^DD(350.9,1.04,21,1,0)
+4 ;;=Enter any remarks that need to appear on every UB claim form. This remark
+5 ;;^DD(350.9,1.04,21,2,0)
+6 ;;=will print in the remarks section of every UB-82 and UB-92.
+7 ;;^DD(350.9,1.04,"DT")
+8 ;;=2940119
+9 ;;^DD(350.9,1.05,0)
+10 ;;=FEDERAL TAX NUMBER^RF^^1;5^K:$L(X)>10!($L(X)<10)!'(X?2N1"-"7N) X
+11 ;;^DD(350.9,1.05,3)
+12 ;;=Enter the federal tax number for your facility in NN-NNNNNNN format. Answer must be 10 characters in length.
+13 ;;^DD(350.9,1.05,21,0)
+14 ;;=^^2^2^2940209^^^^
+15 ;;^DD(350.9,1.05,21,1,0)
+16 ;;=This is your facility federal tax number. If unknown, this may be obtained
+17 ;;^DD(350.9,1.05,21,2,0)
+18 ;;=from your Fiscal Service.
+19 ;;^DD(350.9,1.05,23,0)
+20 ;;=^^2^2^2940209^^^^
+21 ;;^DD(350.9,1.05,23,1,0)
+22 ;;=This is not editable from the billing screens. Printed in Form Locator
+23 ;;^DD(350.9,1.05,23,2,0)
+24 ;;=6 of the UB-82 and in Form Locator 5 of the UB-92.
+25 ;;^DD(350.9,1.05,"DT")
+26 ;;=2920204
+27 ;;^DD(350.9,1.06,0)
+28 ;;=BLUE CROSS/SHIELD PROVIDER #^RF^^1;6^K:$L(X)>13!($L(X)<3) X
+29 ;;^DD(350.9,1.06,3)
+30 ;;=Enter the 3-13 character BC/BS Provider Number which will be the default for all billing episodes at this facility. Answer must be 3-13 characters in length.
+31 ;;^DD(350.9,1.06,21,0)
+32 ;;=^^2^2^2920204^
+33 ;;^DD(350.9,1.06,21,1,0)
+34 ;;=This is the BC/BS Provider Number which Blue Cross has assigned your
+35 ;;^DD(350.9,1.06,21,2,0)
+36 ;;=facility.
+37 ;;^DD(350.9,1.06,"DT")
+38 ;;=2920204
+39 ;;^DD(350.9,1.07,0)
+40 ;;=BILL CANCELLATION MAILGROUP^P3.8'^XMB(3.8,^1;7^Q
+41 ;;^DD(350.9,1.07,3)
+42 ;;=Enter the mail group you want notified whenever a third party bill is cancelled. If none is entered no mailman notification will be made.
+43 ;;^DD(350.9,1.07,21,0)
+44 ;;=^^3^3^2940209^^^^
+45 ;;^DD(350.9,1.07,21,1,0)
+46 ;;=This is the mail group that will recieve automatic notification every
+47 ;;^DD(350.9,1.07,21,2,0)
+48 ;;=time a third party bill is cancelled. This must be answered for the
+49 ;;^DD(350.9,1.07,21,3,0)
+50 ;;=automatic notification to occur.
+51 ;;^DD(350.9,1.07,"DT")
+52 ;;=2940119
+53 ;;^DD(350.9,1.08,0)
+54 ;;=BILLING SUPERVISOR NAME^RP200'^VA(200,^1;8^Q
+55 ;;^DD(350.9,1.08,3)
+56 ;;=Enter the Person who is the billing supervisor.
+57 ;;^DD(350.9,1.08,21,0)
+58 ;;=^^1^1^2920204^
+59 ;;^DD(350.9,1.08,21,1,0)
+60 ;;=This is the pointer to the PERSON file for the Billing Supervisor.
+61 ;;^DD(350.9,1.08,"DT")
+62 ;;=2920204
+63 ;;^DD(350.9,1.09,0)
+64 ;;=BILL DISAPPROVED MAILGROUP^P3.8'^XMB(3.8,^1;9^Q
+65 ;;^DD(350.9,1.09,3)
+66 ;;=When a third party bill is disapproved the supervisor and initiator of the bill will be notified. If you want additional people notified create a mailgroup and specify it here.
+67 ;;^DD(350.9,1.09,21,0)
+68 ;;=^^5^5^2940209^^^^
+69 ;;^DD(350.9,1.09,21,1,0)
+70 ;;=When a third party bill is disapproved the supervisor and initiator of the
+71 ;;^DD(350.9,1.09,21,2,0)
+72 ;;=bill will be notified. If you want additional people to be notified that a
+73 ;;^DD(350.9,1.09,21,3,0)
+74 ;;=bill has been disapproved then you must create a mail group and add the
+75 ;;^DD(350.9,1.09,21,4,0)
+76 ;;=member and then specify the group here. The members of this mail group
+77 ;;^DD(350.9,1.09,21,5,0)
+78 ;;=will then recieve the disapproval bulletin.
+79 ;;^DD(350.9,1.09,"DT")
+80 ;;=2940119
+81 ;;^DD(350.9,1.1,0)
+82 ;;=PRINT '001' FOR TOTAL CHARGES?^S^1:YES;0:NO;^1;10^Q
+83 ;;^DD(350.9,1.1,3)
+84 ;;=Enter 'YES' if you want the Revenue Code '001' printed on each third party bill with the total charges.
+85 ;;^DD(350.9,1.1,21,0)
+86 ;;=^^2^2^2940209^^^
+87 ;;^DD(350.9,1.1,21,1,0)
+88 ;;=The revenue code '001', TOTAL CHARGES, may be printed on each bill with
