IBINI01P.m

IBINI01P	; ; 21-MAR-1994

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

	Q:'DIFQR(350.3)  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.3)

	;;=^IBE(350.3,

	;;^UTILITY(U,$J,350.3,0)

	;;=IB CHARGE REMOVE REASONS^350.3I^36^36

	;;^UTILITY(U,$J,350.3,1,0)

	;;=RX REFUSED^REFUSED^1

	;;^UTILITY(U,$J,350.3,2,0)

	;;=RX NEVER RECEIVED^NOT REC^1

	;;^UTILITY(U,$J,350.3,3,0)

	;;=RX RETURNED/DAMAGED (MAIL)^DAMAGED^1

	;;^UTILITY(U,$J,350.3,4,0)

	;;=ENTERED IN ERROR^ERROR^3

	;;^UTILITY(U,$J,350.3,5,0)

	;;=RX CANCELLED^CANCELLED^1

	;;^UTILITY(U,$J,350.3,6,0)

	;;=INPATIENT/PASS^PASS^4

	;;^UTILITY(U,$J,350.3,7,0)

	;;=INVESTIGATIONAL DRUG^RESEARCH^1

	;;^UTILITY(U,$J,350.3,8,0)

	;;=RX DELETED^DELETE^1

	;;^UTILITY(U,$J,350.3,9,0)

	;;=EMPLOYEE^EM^3

	;;^UTILITY(U,$J,350.3,10,0)

	;;=CNH - 3 DAY^3DAY

	;;^UTILITY(U,$J,350.3,11,0)

	;;=PATIENT DECEASED^DEATH^3

	;;^UTILITY(U,$J,350.3,12,0)

	;;=SUPPLY ITEM^SUP^4

	;;^UTILITY(U,$J,350.3,13,0)

	;;=BEDSIDE MEDICATIONS^BED^1

	;;^UTILITY(U,$J,350.3,14,0)

	;;=ELIGIBILITY INCORRECT^INC^3

	;;^UTILITY(U,$J,350.3,15,0)

	;;=CHANGE IN ELIGIBILITY^EC^3

	;;^UTILITY(U,$J,350.3,16,0)

	;;=RX EDITED^EDIT RX^1

	;;^UTILITY(U,$J,350.3,17,0)

	;;=MT OP APPT NO-SHOW^NO-SHOW^2

	;;^UTILITY(U,$J,350.3,18,0)

	;;=MT OP APPT CANCELLED^CANCEL OP^2

	;;^UTILITY(U,$J,350.3,19,0)

	;;=MT CHARGE EDITED^EDIT MT^2

	;;^UTILITY(U,$J,350.3,20,0)

	;;=INSURANCE CO PAID IN FULL^INS PAID^2

	;;^UTILITY(U,$J,350.3,21,0)

	;;=RX COPAY INCOME EXEMPTION^RX INCOME^1

	;;^UTILITY(U,$J,350.3,22,0)

	;;=MT CATEGORY CHANGED FROM C^NOT C^2

	;;^UTILITY(U,$J,350.3,23,0)

	;;=COMP & PENSION VISIT RECORDED^CNP VST^2

	;;^UTILITY(U,$J,350.3,24,0)

	;;=CHAMPVA ADMISSION DELETED^CVA DEL^2

	;;^UTILITY(U,$J,350.3,25,0)

	;;=RECD INPATIENT CARE^INP CARE^2

	;;^UTILITY(U,$J,350.3,26,0)

	;;=CHECK OUT DELETED^CO DEL^2

	;;^UTILITY(U,$J,350.3,27,0)

	;;=CLASSIFICATION CHANGED^CLS CHNG^2

	;;^UTILITY(U,$J,350.3,28,0)

	;;=RESEARCH VISIT/ADMISSION^RES VST^2

	;;^UTILITY(U,$J,350.3,29,0)

	;;=SERVICE CONNECTED VISIT/ADM^SER CONN^2

	;;^UTILITY(U,$J,350.3,30,0)

	;;=HARDSHIP GRANTED^HRDSHP^2

	;;^UTILITY(U,$J,350.3,31,0)

	;;=ADJUDICATED AS CATEGORY A^ADJ A^2

	;;^UTILITY(U,$J,350.3,32,0)

	;;=TREATED AT OTHER FACILITY^OTH FAC^2

	;;^UTILITY(U,$J,350.3,33,0)

	;;=AGENT ORANGE RELATED VISIT^AO VST^2

	;;^UTILITY(U,$J,350.3,34,0)

	;;=IONIZING RAD RELATED VISIT^IO VST^2

	;;^UTILITY(U,$J,350.3,35,0)

	;;=ENV CONTAMINANT RELATED VISIT^EC VST^2

	;;^UTILITY(U,$J,350.3,36,0)

	;;=CLASS II DENTAL VISIT^DENTL^2

IBINI01P  ; ; 21-MAR-1994

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

 +2        IF 'DIFQR(350.3)

               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.3)

 +2       ;;=^IBE(350.3,

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

 +4       ;;=IB CHARGE REMOVE REASONS^350.3I^36^36

 +5       ;;^UTILITY(U,$J,350.3,1,0)

 +6       ;;=RX REFUSED^REFUSED^1

 +7       ;;^UTILITY(U,$J,350.3,2,0)

 +8       ;;=RX NEVER RECEIVED^NOT REC^1

 +9       ;;^UTILITY(U,$J,350.3,3,0)

 +10      ;;=RX RETURNED/DAMAGED (MAIL)^DAMAGED^1

 +11      ;;^UTILITY(U,$J,350.3,4,0)

 +12      ;;=ENTERED IN ERROR^ERROR^3

 +13      ;;^UTILITY(U,$J,350.3,5,0)

 +14      ;;=RX CANCELLED^CANCELLED^1

 +15      ;;^UTILITY(U,$J,350.3,6,0)

 +16      ;;=INPATIENT/PASS^PASS^4

 +17      ;;^UTILITY(U,$J,350.3,7,0)

 +18      ;;=INVESTIGATIONAL DRUG^RESEARCH^1

 +19      ;;^UTILITY(U,$J,350.3,8,0)

 +20      ;;=RX DELETED^DELETE^1

 +21      ;;^UTILITY(U,$J,350.3,9,0)

 +22      ;;=EMPLOYEE^EM^3

 +23      ;;^UTILITY(U,$J,350.3,10,0)

 +24      ;;=CNH - 3 DAY^3DAY

 +25      ;;^UTILITY(U,$J,350.3,11,0)

 +26      ;;=PATIENT DECEASED^DEATH^3

 +27      ;;^UTILITY(U,$J,350.3,12,0)

 +28      ;;=SUPPLY ITEM^SUP^4

 +29      ;;^UTILITY(U,$J,350.3,13,0)

 +30      ;;=BEDSIDE MEDICATIONS^BED^1

 +31      ;;^UTILITY(U,$J,350.3,14,0)

 +32      ;;=ELIGIBILITY INCORRECT^INC^3

 +33      ;;^UTILITY(U,$J,350.3,15,0)

 +34      ;;=CHANGE IN ELIGIBILITY^EC^3

 +35      ;;^UTILITY(U,$J,350.3,16,0)

 +36      ;;=RX EDITED^EDIT RX^1

 +37      ;;^UTILITY(U,$J,350.3,17,0)

 +38      ;;=MT OP APPT NO-SHOW^NO-SHOW^2

 +39      ;;^UTILITY(U,$J,350.3,18,0)

 +40      ;;=MT OP APPT CANCELLED^CANCEL OP^2

 +41      ;;^UTILITY(U,$J,350.3,19,0)

 +42      ;;=MT CHARGE EDITED^EDIT MT^2

 +43      ;;^UTILITY(U,$J,350.3,20,0)

 +44      ;;=INSURANCE CO PAID IN FULL^INS PAID^2

 +45      ;;^UTILITY(U,$J,350.3,21,0)

 +46      ;;=RX COPAY INCOME EXEMPTION^RX INCOME^1

 +47      ;;^UTILITY(U,$J,350.3,22,0)

 +48      ;;=MT CATEGORY CHANGED FROM C^NOT C^2

 +49      ;;^UTILITY(U,$J,350.3,23,0)

 +50      ;;=COMP & PENSION VISIT RECORDED^CNP VST^2

 +51      ;;^UTILITY(U,$J,350.3,24,0)

 +52      ;;=CHAMPVA ADMISSION DELETED^CVA DEL^2

 +53      ;;^UTILITY(U,$J,350.3,25,0)

 +54      ;;=RECD INPATIENT CARE^INP CARE^2

 +55      ;;^UTILITY(U,$J,350.3,26,0)

 +56      ;;=CHECK OUT DELETED^CO DEL^2

 +57      ;;^UTILITY(U,$J,350.3,27,0)

 +58      ;;=CLASSIFICATION CHANGED^CLS CHNG^2

 +59      ;;^UTILITY(U,$J,350.3,28,0)

 +60      ;;=RESEARCH VISIT/ADMISSION^RES VST^2

 +61      ;;^UTILITY(U,$J,350.3,29,0)

 +62      ;;=SERVICE CONNECTED VISIT/ADM^SER CONN^2

 +63      ;;^UTILITY(U,$J,350.3,30,0)

 +64      ;;=HARDSHIP GRANTED^HRDSHP^2

 +65      ;;^UTILITY(U,$J,350.3,31,0)

 +66      ;;=ADJUDICATED AS CATEGORY A^ADJ A^2

 +67      ;;^UTILITY(U,$J,350.3,32,0)

 +68      ;;=TREATED AT OTHER FACILITY^OTH FAC^2

 +69      ;;^UTILITY(U,$J,350.3,33,0)

 +70      ;;=AGENT ORANGE RELATED VISIT^AO VST^2

 +71      ;;^UTILITY(U,$J,350.3,34,0)

 +72      ;;=IONIZING RAD RELATED VISIT^IO VST^2

 +73      ;;^UTILITY(U,$J,350.3,35,0)

 +74      ;;=ENV CONTAMINANT RELATED VISIT^EC VST^2

 +75      ;;^UTILITY(U,$J,350.3,36,0)

 +76      ;;=CLASS II DENTAL VISIT^DENTL^2