IBINI02J.m

IBINI02J	; ; 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.17,21,3,0)

	;;=will be displayed all CPT codes stored in the Scheduling Visits file

	;;^DD(350.9,1.17,21,4,0)

	;;=for the date range of the bill if the parameter is set to 'YES'.

	;;^DD(350.9,1.17,21,5,0)

	;;=This display screen will prompt the user if they would like to

	;;^DD(350.9,1.17,21,6,0)

	;;=easily import any or all of the CPT codes into the bill.  This will

	;;^DD(350.9,1.17,21,7,0)

	;;=include both Ambulatory Procedures and the Billable Ambulatory

	;;^DD(350.9,1.17,21,8,0)

	;;=Surgical Codes.

	;;^DD(350.9,1.18,0)

	;;=DEFAULT AMB SURG REV CODE^*P399.2'^DGCR(399.2,^1;18^S DIC("S")="I $P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

	;;^DD(350.9,1.18,3)

	;;=Enter the Revenue Code that you will usually want for Ambulatory Surgery.

	;;^DD(350.9,1.18,21,0)

	;;=^^5^5^2920224^^^

	;;^DD(350.9,1.18,21,1,0)

	;;=When billing Billable Ambulatory Surgical Codes (BASC), this will be

	;;^DD(350.9,1.18,21,2,0)

	;;=the default revenue code stored in the bill.  If this is not appropriate

	;;^DD(350.9,1.18,21,3,0)

	;;=for any particular insurance company then the field AMBULATORY SURG. REV.

	;;^DD(350.9,1.18,21,4,0)

	;;=CODE in the Insurance Company file may be entered and it will be used

	;;^DD(350.9,1.18,21,5,0)

	;;=for that particular insurance company entry.

	;;^DD(350.9,1.19,0)

	;;=TRANSFER PROCEDURES TO SCHED?^S^1:YES;0:NO;^1;19^Q

	;;^DD(350.9,1.19,3)

	;;=Enter '1' or 'YES' if you would like the person entering a bill to be able to automatically store the CPT procedures in a bill in the Scheduling Visits file.

	;;^DD(350.9,1.19,21,0)

	;;=^^13^13^2920224^^^^

	;;^DD(350.9,1.19,21,1,0)

	;;=CPT procedures may be stored as Ambulatory Procedures in the Scheduling

	;;^DD(350.9,1.19,21,2,0)

	;;=Visits file (using the Add/Edit Stop Code option) and they may be stored

	;;^DD(350.9,1.19,21,3,0)

	;;=in the billing record as procedures to print on a bill.  There is now a two

	;;^DD(350.9,1.19,21,4,0)

	;;=way sharing of information between these two files.  If this parameter

	;;^DD(350.9,1.19,21,5,0)

	;;=is answered 'YES' then as CPT procedures are entered in a bill that

	;;^DD(350.9,1.19,21,6,0)

	;;=are also Ambulatory Procedures, then the user will be prompted as to whether

	;;^DD(350.9,1.19,21,7,0)

	;;=they should be transfered to the Scheduling Visits file also.  The

	;;^DD(350.9,1.19,21,8,0)

	;;=reverse of this is the parameter USE OP CPT SCREEN? which allows

	;;^DD(350.9,1.19,21,9,0)

	;;=importing of Ambulatory Procedures into a bill.

	;;^DD(350.9,1.19,21,10,0)

	;;= 

	;;^DD(350.9,1.19,21,11,0)

	;;=Only CPT procedures that are either Billable Ambulatory Surgical Codes

	;;^DD(350.9,1.19,21,12,0)

	;;=or either Nationally or Locally active Ambulatory Procedures may be

	;;^DD(350.9,1.19,21,13,0)

	;;=transfered.

	;;^DD(350.9,1.19,"DT")

	;;=2920205

	;;^DD(350.9,1.2,0)

	;;=HOLD MT BILLS W/INS^S^1:YES;0:NO;^1;20^Q

	;;^DD(350.9,1.2,3)

	;;=Enter 'Yes' if automated Means Test Charges should be held until claim disposition from an insurance Company.  If 'Yes' and a patient has insurance then the bills will automatically be placed on hold.

	;;^DD(350.9,1.2,21,0)

	;;=^^5^5^2920302^

	;;^DD(350.9,1.2,21,1,0)

	;;=If this parameter is answered 'YES' then the automated Category C

	;;^DD(350.9,1.2,21,2,0)

	;;=bills will automatically be placed on hold if the Patient has 

	;;^DD(350.9,1.2,21,3,0)

	;;=active Insurance.  The bills will need to

	;;^DD(350.9,1.2,21,4,0)

	;;=be released to Accounts Receivable after claim disposition from

	;;^DD(350.9,1.2,21,5,0)

	;;=the Insurance Company.

IBINI02J  ; ; 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.17,21,3,0)

 +2       ;;=will be displayed all CPT codes stored in the Scheduling Visits file

 +3       ;;^DD(350.9,1.17,21,4,0)

 +4       ;;=for the date range of the bill if the parameter is set to 'YES'.

 +5       ;;^DD(350.9,1.17,21,5,0)

 +6       ;;=This display screen will prompt the user if they would like to

 +7       ;;^DD(350.9,1.17,21,6,0)

 +8       ;;=easily import any or all of the CPT codes into the bill.  This will

 +9       ;;^DD(350.9,1.17,21,7,0)

 +10      ;;=include both Ambulatory Procedures and the Billable Ambulatory

 +11      ;;^DD(350.9,1.17,21,8,0)

 +12      ;;=Surgical Codes.

 +13      ;;^DD(350.9,1.18,0)

 +14      ;;=DEFAULT AMB SURG REV CODE^*P399.2'^DGCR(399.2,^1;18^S DIC("S")="I $P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 +15      ;;^DD(350.9,1.18,3)

 +16      ;;=Enter the Revenue Code that you will usually want for Ambulatory Surgery.

 +17      ;;^DD(350.9,1.18,21,0)

 +18      ;;=^^5^5^2920224^^^

 +19      ;;^DD(350.9,1.18,21,1,0)

 +20      ;;=When billing Billable Ambulatory Surgical Codes (BASC), this will be

 +21      ;;^DD(350.9,1.18,21,2,0)

 +22      ;;=the default revenue code stored in the bill.  If this is not appropriate

 +23      ;;^DD(350.9,1.18,21,3,0)

 +24      ;;=for any particular insurance company then the field AMBULATORY SURG. REV.

 +25      ;;^DD(350.9,1.18,21,4,0)

 +26      ;;=CODE in the Insurance Company file may be entered and it will be used

 +27      ;;^DD(350.9,1.18,21,5,0)

 +28      ;;=for that particular insurance company entry.

 +29      ;;^DD(350.9,1.19,0)

 +30      ;;=TRANSFER PROCEDURES TO SCHED?^S^1:YES;0:NO;^1;19^Q

 +31      ;;^DD(350.9,1.19,3)

 +32      ;;=Enter '1' or 'YES' if you would like the person entering a bill to be able to automatically store the CPT procedures in a bill in the Scheduling Visits file.

 +33      ;;^DD(350.9,1.19,21,0)

 +34      ;;=^^13^13^2920224^^^^

 +35      ;;^DD(350.9,1.19,21,1,0)

 +36      ;;=CPT procedures may be stored as Ambulatory Procedures in the Scheduling

 +37      ;;^DD(350.9,1.19,21,2,0)

 +38      ;;=Visits file (using the Add/Edit Stop Code option) and they may be stored

 +39      ;;^DD(350.9,1.19,21,3,0)

 +40      ;;=in the billing record as procedures to print on a bill.  There is now a two

 +41      ;;^DD(350.9,1.19,21,4,0)

 +42      ;;=way sharing of information between these two files.  If this parameter

 +43      ;;^DD(350.9,1.19,21,5,0)

 +44      ;;=is answered 'YES' then as CPT procedures are entered in a bill that

 +45      ;;^DD(350.9,1.19,21,6,0)

 +46      ;;=are also Ambulatory Procedures, then the user will be prompted as to whether

 +47      ;;^DD(350.9,1.19,21,7,0)

 +48      ;;=they should be transfered to the Scheduling Visits file also.  The

 +49      ;;^DD(350.9,1.19,21,8,0)

 +50      ;;=reverse of this is the parameter USE OP CPT SCREEN? which allows

 +51      ;;^DD(350.9,1.19,21,9,0)

 +52      ;;=importing of Ambulatory Procedures into a bill.

 +53      ;;^DD(350.9,1.19,21,10,0)

 +54      ;;= 

 +55      ;;^DD(350.9,1.19,21,11,0)

 +56      ;;=Only CPT procedures that are either Billable Ambulatory Surgical Codes

 +57      ;;^DD(350.9,1.19,21,12,0)

 +58      ;;=or either Nationally or Locally active Ambulatory Procedures may be

 +59      ;;^DD(350.9,1.19,21,13,0)

 +60      ;;=transfered.

 +61      ;;^DD(350.9,1.19,"DT")

 +62      ;;=2920205

 +63      ;;^DD(350.9,1.2,0)

 +64      ;;=HOLD MT BILLS W/INS^S^1:YES;0:NO;^1;20^Q

 +65      ;;^DD(350.9,1.2,3)

 +66      ;;=Enter 'Yes' if automated Means Test Charges should be held until claim disposition from an insurance Company.  If 'Yes' and a patient has insurance then the bills will automatically be placed on hold.

 +67      ;;^DD(350.9,1.2,21,0)

 +68      ;;=^^5^5^2920302^

 +69      ;;^DD(350.9,1.2,21,1,0)

 +70      ;;=If this parameter is answered 'YES' then the automated Category C

 +71      ;;^DD(350.9,1.2,21,2,0)

 +72      ;;=bills will automatically be placed on hold if the Patient has 

 +73      ;;^DD(350.9,1.2,21,3,0)

 +74      ;;=active Insurance.  The bills will need to

 +75      ;;^DD(350.9,1.2,21,4,0)

 +76      ;;=be released to Accounts Receivable after claim disposition from

 +77      ;;^DD(350.9,1.2,21,5,0)

 +78      ;;=the Insurance Company.