Routine: IBINI01I

IBINI01I	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	Q:'DIFQR(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

	;;^UTILITY(U,$J,350.1,43,0)

	;;=DG INPT COPAY (ALC) UPDATE^UPD ALC^5^18^3^33^43^^23^1^2^

	;;^UTILITY(U,$J,350.1,44,0)

	;;=DG NHCU COPAY UPDATE^UPD NHC^3^18^3^34^44^^24^1^2^

	;;^UTILITY(U,$J,350.1,45,0)

	;;=DG INPT PER DIEM NEW^INP PD^25^18^1^46^47^INPATIENT PER DIEM^45^^3^

	;;^UTILITY(U,$J,350.1,45,20)

	;;=S IBDESC="INPT PER DIEM"

	;;^UTILITY(U,$J,350.1,46,0)

	;;=DG INPT PER DIEM CANCEL^CAN IPD^25^18^2^46^47^^45^^

	;;^UTILITY(U,$J,350.1,47,0)

	;;=DG INPT PER DIEM UPDATE^UPD IPD^25^18^3^46^47^^45^^3

	;;^UTILITY(U,$J,350.1,48,0)

	;;=DG NHCU PER DIEM NEW^NHC PD^24^18^1^49^50^NHCU PER DIEM^48^^3

	;;^UTILITY(U,$J,350.1,48,20)

	;;=S IBDESC="NHCU PER DIEM"

	;;^UTILITY(U,$J,350.1,49,0)

	;;=DG NHCU PER DIEM CANCEL^CAN NPD^24^18^2^49^50^^48^^

	;;^UTILITY(U,$J,350.1,50,0)

	;;=DG NHCU PER DIEM UPDATE^UPD NPD^24^18^3^49^50^^48^^3

	;;^UTILITY(U,$J,350.1,51,0)

	;;=DG OPT COPAY NEW^OPT CO^4^18^1^52^53^OUTPATIENT COPAY^51^1^4^

	;;^UTILITY(U,$J,350.1,51,20)

	;;=S IBDESC="OPT COPAYMENT"

	;;^UTILITY(U,$J,350.1,52,0)

	;;=DG OPT COPAY CANCEL^CAN OPT^4^18^2^52^53^^51^^

	;;^UTILITY(U,$J,350.1,53,0)

	;;=DG OPT COPAY UPDATE^UPD OPT^4^18^3^52^53^^51^1^4^

	;;^UTILITY(U,$J,350.1,54,0)

	;;=MEDICARE DEDUCTIBLE^MCR DED^^18^81^^^MEDICARE DEDUCTIBLE^54^^

	;;^UTILITY(U,$J,350.1,55,0)

	;;=HOSPITAL ADMISSION^HOSP ADM^^18^91^^^^55^^

	;;^UTILITY(U,$J,350.1,56,0)

	;;=NHCU ADMISSION^NHCU ADM^^18^92^^^^56^^

	;;^UTILITY(U,$J,350.1,57,0)

	;;=DG FEE SERVICE (OPT) NEW^FEE CO^4^18^1^58^59^FEE SERVICE/OUTPATIENT^57^1^4^

	;;^UTILITY(U,$J,350.1,58,0)

	;;=DG FEE SERVICE (OPT) CANCEL^CAN FEE^4^18^2^58^59^^57^^

	;;^UTILITY(U,$J,350.1,59,0)

	;;=DG FEE SERVICE (OPT) UPDATE^UPD FEE^4^18^3^58^59^^57^1^4^

	;;^UTILITY(U,$J,350.1,60,0)

	;;=DG FEE SERVICE (INPT) NEW^FEI CO^3^18^1^61^62^FEE SERVICE/INPATIENT^60^1^1^

	;;^UTILITY(U,$J,350.1,61,0)

	;;=DG FEE SERVICE (INPT) CANCEL^CAN FEI^3^18^2^61^62^^60^^

	;;^UTILITY(U,$J,350.1,62,0)

	;;=DG FEE SERVICE (INPT) UPDATE^UPD FEI^3^18^3^61^62^^60^1^1^

	;;^UTILITY(U,$J,350.1,63,0)

	;;=IB OPT MEDICARE RATE 9^RATE 9^^^1^^^HCFA AMB. SURG. RATE 9^63^^

	;;^UTILITY(U,$J,350.1,64,0)

	;;=CHAMPVA SUBSISTENCE LIMIT^CVA LIM^^18^82^^^CHAMPVA LIMIT^64

	;;^UTILITY(U,$J,350.1,65,0)

	;;=DG CHAMPVA PER DIEM NEW^CVA PD^^18^1^66^67^CHAMPVA SUBSISTENCE^65^^6

	;;^UTILITY(U,$J,350.1,66,0)

	;;=DG CHAMPVA PER DIEM CANCEL^CAN CPD^^18^2^66^67^^65

	;;^UTILITY(U,$J,350.1,67,0)

	;;=DG CHAMPVA PER DIEM UPDATE^UPD CPD^^18^3^66^67^^65

IBINI01I  ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQR(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       ;;^UTILITY(U,$J,350.1,43,0)

 +2       ;;=DG INPT COPAY (ALC) UPDATE^UPD ALC^5^18^3^33^43^^23^1^2^

 +3       ;;^UTILITY(U,$J,350.1,44,0)

 +4       ;;=DG NHCU COPAY UPDATE^UPD NHC^3^18^3^34^44^^24^1^2^

 +5       ;;^UTILITY(U,$J,350.1,45,0)

 +6       ;;=DG INPT PER DIEM NEW^INP PD^25^18^1^46^47^INPATIENT PER DIEM^45^^3^

 +7       ;;^UTILITY(U,$J,350.1,45,20)

 +8       ;;=S IBDESC="INPT PER DIEM"

 +9       ;;^UTILITY(U,$J,350.1,46,0)

 +10      ;;=DG INPT PER DIEM CANCEL^CAN IPD^25^18^2^46^47^^45^^

 +11      ;;^UTILITY(U,$J,350.1,47,0)

 +12      ;;=DG INPT PER DIEM UPDATE^UPD IPD^25^18^3^46^47^^45^^3

 +13      ;;^UTILITY(U,$J,350.1,48,0)

 +14      ;;=DG NHCU PER DIEM NEW^NHC PD^24^18^1^49^50^NHCU PER DIEM^48^^3

 +15      ;;^UTILITY(U,$J,350.1,48,20)

 +16      ;;=S IBDESC="NHCU PER DIEM"

 +17      ;;^UTILITY(U,$J,350.1,49,0)

 +18      ;;=DG NHCU PER DIEM CANCEL^CAN NPD^24^18^2^49^50^^48^^

 +19      ;;^UTILITY(U,$J,350.1,50,0)

 +20      ;;=DG NHCU PER DIEM UPDATE^UPD NPD^24^18^3^49^50^^48^^3

 +21      ;;^UTILITY(U,$J,350.1,51,0)

 +22      ;;=DG OPT COPAY NEW^OPT CO^4^18^1^52^53^OUTPATIENT COPAY^51^1^4^

 +23      ;;^UTILITY(U,$J,350.1,51,20)

 +24      ;;=S IBDESC="OPT COPAYMENT"

 +25      ;;^UTILITY(U,$J,350.1,52,0)

 +26      ;;=DG OPT COPAY CANCEL^CAN OPT^4^18^2^52^53^^51^^

 +27      ;;^UTILITY(U,$J,350.1,53,0)

 +28      ;;=DG OPT COPAY UPDATE^UPD OPT^4^18^3^52^53^^51^1^4^

 +29      ;;^UTILITY(U,$J,350.1,54,0)

 +30      ;;=MEDICARE DEDUCTIBLE^MCR DED^^18^81^^^MEDICARE DEDUCTIBLE^54^^

 +31      ;;^UTILITY(U,$J,350.1,55,0)

 +32      ;;=HOSPITAL ADMISSION^HOSP ADM^^18^91^^^^55^^

 +33      ;;^UTILITY(U,$J,350.1,56,0)

 +34      ;;=NHCU ADMISSION^NHCU ADM^^18^92^^^^56^^

 +35      ;;^UTILITY(U,$J,350.1,57,0)

 +36      ;;=DG FEE SERVICE (OPT) NEW^FEE CO^4^18^1^58^59^FEE SERVICE/OUTPATIENT^57^1^4^

 +37      ;;^UTILITY(U,$J,350.1,58,0)

 +38      ;;=DG FEE SERVICE (OPT) CANCEL^CAN FEE^4^18^2^58^59^^57^^

 +39      ;;^UTILITY(U,$J,350.1,59,0)

 +40      ;;=DG FEE SERVICE (OPT) UPDATE^UPD FEE^4^18^3^58^59^^57^1^4^

 +41      ;;^UTILITY(U,$J,350.1,60,0)

 +42      ;;=DG FEE SERVICE (INPT) NEW^FEI CO^3^18^1^61^62^FEE SERVICE/INPATIENT^60^1^1^

 +43      ;;^UTILITY(U,$J,350.1,61,0)

 +44      ;;=DG FEE SERVICE (INPT) CANCEL^CAN FEI^3^18^2^61^62^^60^^

 +45      ;;^UTILITY(U,$J,350.1,62,0)

 +46      ;;=DG FEE SERVICE (INPT) UPDATE^UPD FEI^3^18^3^61^62^^60^1^1^

 +47      ;;^UTILITY(U,$J,350.1,63,0)

 +48      ;;=IB OPT MEDICARE RATE 9^RATE 9^^^1^^^HCFA AMB. SURG. RATE 9^63^^

 +49      ;;^UTILITY(U,$J,350.1,64,0)

 +50      ;;=CHAMPVA SUBSISTENCE LIMIT^CVA LIM^^18^82^^^CHAMPVA LIMIT^64

 +51      ;;^UTILITY(U,$J,350.1,65,0)

 +52      ;;=DG CHAMPVA PER DIEM NEW^CVA PD^^18^1^66^67^CHAMPVA SUBSISTENCE^65^^6

 +53      ;;^UTILITY(U,$J,350.1,66,0)

 +54      ;;=DG CHAMPVA PER DIEM CANCEL^CAN CPD^^18^2^66^67^^65

 +55      ;;^UTILITY(U,$J,350.1,67,0)

 +56      ;;=DG CHAMPVA PER DIEM UPDATE^UPD CPD^^18^3^66^67^^65

IBINI01I.m