IB20P469 ;ALB/CXW - UPDATE MCCR UTILITY/REVENUE CODE; 01/10/2012
;;2.0;INTEGRATED BILLING;**469**;21-MAR-94;Build 10
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
POST ;
; Update value/occurrence/condition codes in mccr utility file 399.1
; Update revenue codes in revenue file 399.2
N U S U="^"
D MES^XPDUTL("Patch Post-Install starts")
D MCR,RVC
D MES^XPDUTL("Patch Post-Install is complete.")
Q
;
MCR ; 3 types of codes
N IBACT,IBCNT,IBCOD,IBPE,IBFD,IBI,IBX,DLAYGO,DIC,DIE,DA,DD,DO,DR,X,Y
; IBACT=1 - addition, 2 - update
; Value code flag in field .18/piece 11
S IBCNT=0,IBCOD="Value",IBPE=11,IBFD=.18
S IBACT=1 D DIS
F IBI=1:1 S IBX=$P($T(VALN+IBI),";;",2) Q:IBX="" D MFILE
S IBACT=2 D DIS
F IBI=1:1 S IBX=$P($T(VALO+IBI),";;",2) Q:IBX="" D MFILE
D DIS1
;
; Occurrence code flag in field .11/piece 4
S IBCNT=0,IBCOD="Occurrence",IBPE=4,IBFD=.11
S IBACT=1 D DIS
F IBI=1:1 S IBX=$P($T(OCCN+IBI),";;",2) Q:IBX="" D MFILE
S IBACT=2 D DIS
F IBI=1:1 S IBX=$P($T(OCCO+IBI),";;",2) Q:IBX="" D MFILE
D DIS1
;
; Condition code flag in field .22/piece 15
S IBCNT=0,IBCOD="Condition",IBPE=15,IBFD=.22
S IBACT=1 D DIS
F IBI=1:1 S IBX=$P($T(CONN+IBI),";;",2) Q:IBX="" D MFILE
S IBACT=2 D DIS
F IBI=1:1 S IBX=$P($T(CONO+IBI),";;",2) Q:IBX="" D MFILE
D DIS1
Q
;
DIS ;
D MES^XPDUTL($S(IBACT=1:"Add",IBACT=2:"Updat",IBACT=3:"Reserv",1:"Activat")_"ing "_IBCOD_" Code..")
Q
DIS1 ;
D MES^XPDUTL("Total "_IBCNT_" "_IBCOD_" Code"_$S(IBCNT'=1:"s",1:"")_" updated")
D MES^XPDUTL("")
Q
;
MFILE ; Mccr file
N IBFN
S IBFN=+$$EXCODE($P(IBX,U),IBPE)
I IBACT=1,'IBFN D
. K DD,DO S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBX,U,2) D FILE^DICN K DIC,DLAYGO I Y<1 K X,Y Q
. S DA=+Y,DIE="^DGCR(399.1,",DR=".02///"_$P(IBX,U,1)_";"_IBFD_"///"_1 D ^DIE K DIE,DA,DR,X,Y
. S IBCNT=IBCNT+1 D MES^XPDUTL(" Code# "_$P(IBX,U)_" "_$P(IBX,U,2))
I IBACT=2,IBFN D
. S DIE="^DGCR(399.1,",DA=IBFN,DR=".01///"_$P(IBX,U,2) D ^DIE K DIE,DA,DR,X,Y
. S IBCNT=IBCNT+1 D MES^XPDUTL(" Code# "_$P(IBX,U)_" "_$P(IBX,U,2))
Q
;
EXCODE(X,P) ; Returns IEN if code found in the P piece
N IBX,IBY S IBY=""
I $G(X)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"C",X,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX
Q IBY
;
RVC ; Revenue code in field 1/piece 2, field 3/piece 4
N IBACT,IBCOD,IBCNT,IBI,IBJ,IBX,IBX3,IBRES,IBY,IBZ,DIE,DA,DR,X,Y
; IBACT=1 - addition, 2 - update, 3 - reservation, 4 - activation
S IBCNT=0,IBX3="",IBCOD="Revenue",IBRES="*RESERVED"
S IBACT=1 D DIS
F IBI=1:1 S IBX=$P($T(RVCN+IBI),";;",2) Q:IBX="" D
. S IBY=$P(IBX,U),IBZ=$G(^DGCR(399.2,+IBY,0))
. ; quit if no reserved
. Q:(+IBY'=+IBZ)!($P(IBZ,U,2)'=IBRES)
. S IBZ=+IBZ
. D RFILE
;
S IBACT=2 D DIS
F IBI=1:1 S IBX=$P($T(RVCO+IBI),";;",2) Q:IBX="" D
. S IBY=$P(IBX,U),IBZ=$O(^DGCR(399.2,"B",IBY,0)) Q:'IBZ
. D RFILE
;
S IBACT=3 D DIS
F IBI=1:1 S IBX=$P($T(RVCR+IBI),";;",2) Q:IBX="" D
. F IBJ=1:1 S IBY=$P(IBX,";",IBJ) Q:IBY="" D
.. S IBZ=$O(^DGCR(399.2,"B",IBY,0)) Q:'IBZ
.. ; quit if reserved
.. Q:$P($G(^DGCR(399.2,+IBZ,0)),U,2)=IBRES
.. D RFILE
;
S IBACT=4 D DIS
F IBI=1:1 S IBX=$P($T(RVCA+IBI),";;",2) Q:IBX="" D
. F IBJ=1:1 S IBY=$P(IBX,";",IBJ) Q:IBY="" D
.. S IBZ=$O(^DGCR(399.2,"B",IBY,0)) Q:'IBZ
.. S IBX3=$G(^DGCR(399.2,+IBZ,0))
.. ; quit if reserved and activated
.. Q:$P(IBX3,U,2)=IBRES
.. Q:+$P(IBX3,U,3)
.. S IBX3=$P(IBX3,U,4)
.. D RFILE
D DIS1
Q
;
RFILE ; Revenue file
S:(IBACT=1)!(IBACT=2) DR="1///"_$P(IBX,U,2)_";3///"_$P(IBX,U,3)_";2///1"
; bypass the input transform for reserved in a '*' char format
S:IBACT=3 DR="1////"_IBRES_";2///0"_";3////"_IBRES
S:IBACT=4 DR="2///1"
S DIE="^DGCR(399.2,",DA=+IBZ D ^DIE K DIE,DA,DR,X,Y
S IBCNT=IBCNT+1
D MES^XPDUTL(" Code# "_IBZ_" "_$S(IBACT=3:IBRES,IBACT=4:IBX3,1:$P(IBX,U,3)))
Q
;
;
RVCN ; New revenue code (1)^abbreviation^description
;;970^PROFESSIONAL SERVICES - EXTENSION OF 096X^PROFESSIONAL SERVICES - EXTENSION OF 096X
;;
RVCO ; Old revenue code (2)^abbreviation^description
;;521^RURAL/FQHC CLINIC^RURAL/FQHC - HEALTH CLINIC
;;522^HOME VISIT BY RHC/FQHC PRACTITIONER^HOME VISIT BY RHC/FQHC PRACTITIONER
;;
RVCR ; Old revenue code delimited by semi-colon for reservation (7)
;;184;709;719;749;759;799;910
;;
RVCA ; Old revenue code delimited by semi-colon for activation (61)
;;173;174;191;192;193;194;199;241;242;243;344;392;451;452;456;479;489
;;499;524;525;526;527;528;547;548;583;609;615;616;623;658;663;669;670
;;671;672;679;681;682;683;684;689;770;780;860;861;882;905;906;907;930
;;931;947;948;951;952;971;973;976;978;979
;;
VALN ; New value code (11)^description
;;32^MULTIPLE PATIENT AMBULANCE TRANSPORT
;;54^NEWBORN BIRTH WEIGHT IN GRAMS
;;55^ELIGIBILITY THRESHOLD FOR CHARITY CARE
;;66^MEDICAID SPEND DOWN AMOUNT
;;69^STATE CHARITY CARE PERCENT
;;83^LIFETIIME RESERVE DAYS
;;A7^CO-PAYMENT PAYER A
;;B7^CO-PAYMENT PAYER B
;;C7^CO-PAYMENT PAYER C
;;D4^CLINICAL TRIAL NUMBER ASSIGNED BY THE NLM/NIH
;;G8^FACILITY WHERE INPATIENT HOSPICE SERVICE IS DELIVERED
;;
VALO ; Old value code (4)^description
;;01^MOST COMMON SEMI-PRIVATE ROOM RATE
;;43^DISABLED BENEFICIARY UNDER AGE OF 65 WITH LGHP
;;44^AMT AGRED FRM PRIME<CHGS&>PYMT > THN PYMT REC, MSP CLMS
;;52^SPEECH-LANGUAGE THERAPY VISITS
;;
OCCN ; New occurrence code (1)^description
;;DR^DISASTER RELATED OCCURRENCE CODE
;;
OCCO ; Old occurrence code (21)^description
;;01^ACCIDENT/MEDICAL COVERAGE
;;02^NO FAULT INSURANCE INVOLVED INCLUDING AUTO ACCIDENT/OTHER
;;05^ACCIDENT/NO MEDICAL OR LIABILITY COVERAGE
;;26^DATE SNF BED BECAME AVAILABLE
;;27^DATE OF HOSPICE CERTIFICATION OR RECERTIFICATION
;;30^DATE OF OP SPEECH-LANGUAGE PATH PLAN EST/LAST REVWD
;;33^FIRST DAY THE COORD PD FOR ESRD BENEFICIARIES CVRD BY EGHP
;;34^DATE OF ELECTION OF EXTENDED CARE SERVICES
;;36^DATE OF IP HOSP DISCHG FOR COVERED TRANSPLANT PATIENT
;;37^DATE OF IP HOSP DISCHG FOR NON-COVERED TRANSPLANT PATIENT
;;45^DATE TREATMENT STARTED FOR SPEECH-LANGUAGE THERAPY
;;A4^SPLIT BILL DATE
;;E1^RZD FOR NATIONAL ASSIGNMENT
;;E2^RZD FOR NATIONAL ASSIGNMENT
;;E3^RZD FOR NATIONAL ASSIGNMENT
;;F1^RZD FOR NATIONAL ASSIGNMENT
;;F2^RZD FOR NATIONAL ASSIGNMENT
;;F3^RZD FOR NATIONAL ASSIGNMENT
;;G1^RZD FOR NATIONAL ASSIGNMENT
;;G2^RZD FOR NATIONAL ASSIGNMENT
;;G3^RZD FOR NATIONAL ASSIGNMENT
;;
CONN ; New condition code (9)^description
;;51^ATTESTATION OF UNRELATED OUTPATIENT NONDIAGNOSTIC SERVICES
;;BO^MEDICARE COORDINATED CARE DEMONSTRATION CLAIM
;;B1^BENEFICIARY INELIGIBLE FOR DEMONSTRATION PROGRAM
;;B2^CRITICAL ACCESS HOSPITAL AMBULANCE ATTESTATION
;;B3^PREGNANCY INDICATOR
;;BP^GULF OIL SPILL OF 2010
;;EO^CHANGE IN PATIENT STATUS
;;P1^DO NOT RESUCITATE (DNR) FOR PUBLIC HEALTH REPORTING ONLY
;;WO^UNITED MINE WORKERS OF AMERICA (UMWA) DEMO INDICATOR
;;
CONO ; Old condition code (9)^description
;;04^INFORMATION ONLY BILL
;;06^ESRD PATIENT IN FIRST 30 MONTHS OF ENTITLE CVRD BY EGHP
;;58^TERMINATED MEDICARE ADVANTAGE ENROLLEE
;;69^IME/DGME/N&AH PAYMENT ONLY
;;78^NEW COVERAGE NOT IMPLEMENTED BY MANAGED CARE PLAN
;;79^CORF SERVICES PROVIDED OFFSITE
;;H3^REOCCURRENCE OF GI BLEED (MA) CATEGORY
;;H4^REOCCURRENCE OF PNEUMONIA (MB) CATEGORY
;;H5^REOCCURRENCE OF PERICARDITIS (MC) CATEGORY
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P469 7445 printed Apr 09, 2024@21:08:43 Page 2
IB20P469 ;ALB/CXW - UPDATE MCCR UTILITY/REVENUE CODE; 01/10/2012
+1 ;;2.0;INTEGRATED BILLING;**469**;21-MAR-94;Build 10
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
POST ;
+1 ; Update value/occurrence/condition codes in mccr utility file 399.1
+2 ; Update revenue codes in revenue file 399.2
+3 NEW U
SET U="^"
+4 DO MES^XPDUTL("Patch Post-Install starts")
+5 DO MCR
DO RVC
+6 DO MES^XPDUTL("Patch Post-Install is complete.")
+7 QUIT
+8 ;
MCR ; 3 types of codes
+1 NEW IBACT,IBCNT,IBCOD,IBPE,IBFD,IBI,IBX,DLAYGO,DIC,DIE,DA,DD,DO,DR,X,Y
+2 ; IBACT=1 - addition, 2 - update
+3 ; Value code flag in field .18/piece 11
+4 SET IBCNT=0
SET IBCOD="Value"
SET IBPE=11
SET IBFD=.18
+5 SET IBACT=1
DO DIS
+6 FOR IBI=1:1
SET IBX=$PIECE($TEXT(VALN+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+7 SET IBACT=2
DO DIS
+8 FOR IBI=1:1
SET IBX=$PIECE($TEXT(VALO+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+9 DO DIS1
+10 ;
+11 ; Occurrence code flag in field .11/piece 4
+12 SET IBCNT=0
SET IBCOD="Occurrence"
SET IBPE=4
SET IBFD=.11
+13 SET IBACT=1
DO DIS
+14 FOR IBI=1:1
SET IBX=$PIECE($TEXT(OCCN+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+15 SET IBACT=2
DO DIS
+16 FOR IBI=1:1
SET IBX=$PIECE($TEXT(OCCO+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+17 DO DIS1
+18 ;
+19 ; Condition code flag in field .22/piece 15
+20 SET IBCNT=0
SET IBCOD="Condition"
SET IBPE=15
SET IBFD=.22
+21 SET IBACT=1
DO DIS
+22 FOR IBI=1:1
SET IBX=$PIECE($TEXT(CONN+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+23 SET IBACT=2
DO DIS
+24 FOR IBI=1:1
SET IBX=$PIECE($TEXT(CONO+IBI),";;",2)
if IBX=""
QUIT
DO MFILE
+25 DO DIS1
+26 QUIT
+27 ;
DIS ;
+1 DO MES^XPDUTL($SELECT(IBACT=1:"Add",IBACT=2:"Updat",IBACT=3:"Reserv",1:"Activat")_"ing "_IBCOD_" Code..")
+2 QUIT
DIS1 ;
+1 DO MES^XPDUTL("Total "_IBCNT_" "_IBCOD_" Code"_$SELECT(IBCNT'=1:"s",1:"")_" updated")
+2 DO MES^XPDUTL("")
+3 QUIT
+4 ;
MFILE ; Mccr file
+1 NEW IBFN
+2 SET IBFN=+$$EXCODE($PIECE(IBX,U),IBPE)
+3 IF IBACT=1
IF 'IBFN
Begin DoDot:1
+4 KILL DD,DO
SET DLAYGO=399.1
SET DIC="^DGCR(399.1,"
SET DIC(0)="L"
SET X=$PIECE(IBX,U,2)
DO FILE^DICN
KILL DIC,DLAYGO
IF Y<1
KILL X,Y
QUIT
+5 SET DA=+Y
SET DIE="^DGCR(399.1,"
SET DR=".02///"_$PIECE(IBX,U,1)_";"_IBFD_"///"_1
DO ^DIE
KILL DIE,DA,DR,X,Y
+6 SET IBCNT=IBCNT+1
DO MES^XPDUTL(" Code# "_$PIECE(IBX,U)_" "_$PIECE(IBX,U,2))
End DoDot:1
+7 IF IBACT=2
IF IBFN
Begin DoDot:1
+8 SET DIE="^DGCR(399.1,"
SET DA=IBFN
SET DR=".01///"_$PIECE(IBX,U,2)
DO ^DIE
KILL DIE,DA,DR,X,Y
+9 SET IBCNT=IBCNT+1
DO MES^XPDUTL(" Code# "_$PIECE(IBX,U)_" "_$PIECE(IBX,U,2))
End DoDot:1
+10 QUIT
+11 ;
EXCODE(X,P) ; Returns IEN if code found in the P piece
+1 NEW IBX,IBY
SET IBY=""
+2 IF $GET(X)'=""
SET IBX=0
FOR
SET IBX=$ORDER(^DGCR(399.1,"C",X,IBX))
if 'IBX
QUIT
IF $PIECE($GET(^DGCR(399.1,IBX,0)),U,+$GET(P))
SET IBY=IBX
+3 QUIT IBY
+4 ;
RVC ; Revenue code in field 1/piece 2, field 3/piece 4
+1 NEW IBACT,IBCOD,IBCNT,IBI,IBJ,IBX,IBX3,IBRES,IBY,IBZ,DIE,DA,DR,X,Y
+2 ; IBACT=1 - addition, 2 - update, 3 - reservation, 4 - activation
+3 SET IBCNT=0
SET IBX3=""
SET IBCOD="Revenue"
SET IBRES="*RESERVED"
+4 SET IBACT=1
DO DIS
+5 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RVCN+IBI),";;",2)
if IBX=""
QUIT
Begin DoDot:1
+6 SET IBY=$PIECE(IBX,U)
SET IBZ=$GET(^DGCR(399.2,+IBY,0))
+7 ; quit if no reserved
+8 if (+IBY'=+IBZ)!($PIECE(IBZ,U,2)'=IBRES)
QUIT
+9 SET IBZ=+IBZ
+10 DO RFILE
End DoDot:1
+11 ;
+12 SET IBACT=2
DO DIS
+13 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RVCO+IBI),";;",2)
if IBX=""
QUIT
Begin DoDot:1
+14 SET IBY=$PIECE(IBX,U)
SET IBZ=$ORDER(^DGCR(399.2,"B",IBY,0))
if 'IBZ
QUIT
+15 DO RFILE
End DoDot:1
+16 ;
+17 SET IBACT=3
DO DIS
+18 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RVCR+IBI),";;",2)
if IBX=""
QUIT
Begin DoDot:1
+19 FOR IBJ=1:1
SET IBY=$PIECE(IBX,";",IBJ)
if IBY=""
QUIT
Begin DoDot:2
+20 SET IBZ=$ORDER(^DGCR(399.2,"B",IBY,0))
if 'IBZ
QUIT
+21 ; quit if reserved
+22 if $PIECE($GET(^DGCR(399.2,+IBZ,0)),U,2)=IBRES
QUIT
+23 DO RFILE
End DoDot:2
End DoDot:1
+24 ;
+25 SET IBACT=4
DO DIS
+26 FOR IBI=1:1
SET IBX=$PIECE($TEXT(RVCA+IBI),";;",2)
if IBX=""
QUIT
Begin DoDot:1
+27 FOR IBJ=1:1
SET IBY=$PIECE(IBX,";",IBJ)
if IBY=""
QUIT
Begin DoDot:2
+28 SET IBZ=$ORDER(^DGCR(399.2,"B",IBY,0))
if 'IBZ
QUIT
+29 SET IBX3=$GET(^DGCR(399.2,+IBZ,0))
+30 ; quit if reserved and activated
+31 if $PIECE(IBX3,U,2)=IBRES
QUIT
+32 if +$PIECE(IBX3,U,3)
QUIT
+33 SET IBX3=$PIECE(IBX3,U,4)
+34 DO RFILE
End DoDot:2
End DoDot:1
+35 DO DIS1
+36 QUIT
+37 ;
RFILE ; Revenue file
+1 if (IBACT=1)!(IBACT=2)
SET DR="1///"_$PIECE(IBX,U,2)_";3///"_$PIECE(IBX,U,3)_";2///1"
+2 ; bypass the input transform for reserved in a '*' char format
+3 if IBACT=3
SET DR="1////"_IBRES_";2///0"_";3////"_IBRES
+4 if IBACT=4
SET DR="2///1"
+5 SET DIE="^DGCR(399.2,"
SET DA=+IBZ
DO ^DIE
KILL DIE,DA,DR,X,Y
+6 SET IBCNT=IBCNT+1
+7 DO MES^XPDUTL(" Code# "_IBZ_" "_$SELECT(IBACT=3:IBRES,IBACT=4:IBX3,1:$PIECE(IBX,U,3)))
+8 QUIT
+9 ;
+10 ;
RVCN ; New revenue code (1)^abbreviation^description
+1 ;;970^PROFESSIONAL SERVICES - EXTENSION OF 096X^PROFESSIONAL SERVICES - EXTENSION OF 096X
+2 ;;
RVCO ; Old revenue code (2)^abbreviation^description
+1 ;;521^RURAL/FQHC CLINIC^RURAL/FQHC - HEALTH CLINIC
+2 ;;522^HOME VISIT BY RHC/FQHC PRACTITIONER^HOME VISIT BY RHC/FQHC PRACTITIONER
+3 ;;
RVCR ; Old revenue code delimited by semi-colon for reservation (7)
+1 ;;184;709;719;749;759;799;910
+2 ;;
RVCA ; Old revenue code delimited by semi-colon for activation (61)
+1 ;;173;174;191;192;193;194;199;241;242;243;344;392;451;452;456;479;489
+2 ;;499;524;525;526;527;528;547;548;583;609;615;616;623;658;663;669;670
+3 ;;671;672;679;681;682;683;684;689;770;780;860;861;882;905;906;907;930
+4 ;;931;947;948;951;952;971;973;976;978;979
+5 ;;
VALN ; New value code (11)^description
+1 ;;32^MULTIPLE PATIENT AMBULANCE TRANSPORT
+2 ;;54^NEWBORN BIRTH WEIGHT IN GRAMS
+3 ;;55^ELIGIBILITY THRESHOLD FOR CHARITY CARE
+4 ;;66^MEDICAID SPEND DOWN AMOUNT
+5 ;;69^STATE CHARITY CARE PERCENT
+6 ;;83^LIFETIIME RESERVE DAYS
+7 ;;A7^CO-PAYMENT PAYER A
+8 ;;B7^CO-PAYMENT PAYER B
+9 ;;C7^CO-PAYMENT PAYER C
+10 ;;D4^CLINICAL TRIAL NUMBER ASSIGNED BY THE NLM/NIH
+11 ;;G8^FACILITY WHERE INPATIENT HOSPICE SERVICE IS DELIVERED
+12 ;;
VALO ; Old value code (4)^description
+1 ;;01^MOST COMMON SEMI-PRIVATE ROOM RATE
+2 ;;43^DISABLED BENEFICIARY UNDER AGE OF 65 WITH LGHP
+3 ;;44^AMT AGRED FRM PRIME<CHGS&>PYMT > THN PYMT REC, MSP CLMS
+4 ;;52^SPEECH-LANGUAGE THERAPY VISITS
+5 ;;
OCCN ; New occurrence code (1)^description
+1 ;;DR^DISASTER RELATED OCCURRENCE CODE
+2 ;;
OCCO ; Old occurrence code (21)^description
+1 ;;01^ACCIDENT/MEDICAL COVERAGE
+2 ;;02^NO FAULT INSURANCE INVOLVED INCLUDING AUTO ACCIDENT/OTHER
+3 ;;05^ACCIDENT/NO MEDICAL OR LIABILITY COVERAGE
+4 ;;26^DATE SNF BED BECAME AVAILABLE
+5 ;;27^DATE OF HOSPICE CERTIFICATION OR RECERTIFICATION
+6 ;;30^DATE OF OP SPEECH-LANGUAGE PATH PLAN EST/LAST REVWD
+7 ;;33^FIRST DAY THE COORD PD FOR ESRD BENEFICIARIES CVRD BY EGHP
+8 ;;34^DATE OF ELECTION OF EXTENDED CARE SERVICES
+9 ;;36^DATE OF IP HOSP DISCHG FOR COVERED TRANSPLANT PATIENT
+10 ;;37^DATE OF IP HOSP DISCHG FOR NON-COVERED TRANSPLANT PATIENT
+11 ;;45^DATE TREATMENT STARTED FOR SPEECH-LANGUAGE THERAPY
+12 ;;A4^SPLIT BILL DATE
+13 ;;E1^RZD FOR NATIONAL ASSIGNMENT
+14 ;;E2^RZD FOR NATIONAL ASSIGNMENT
+15 ;;E3^RZD FOR NATIONAL ASSIGNMENT
+16 ;;F1^RZD FOR NATIONAL ASSIGNMENT
+17 ;;F2^RZD FOR NATIONAL ASSIGNMENT
+18 ;;F3^RZD FOR NATIONAL ASSIGNMENT
+19 ;;G1^RZD FOR NATIONAL ASSIGNMENT
+20 ;;G2^RZD FOR NATIONAL ASSIGNMENT
+21 ;;G3^RZD FOR NATIONAL ASSIGNMENT
+22 ;;
CONN ; New condition code (9)^description
+1 ;;51^ATTESTATION OF UNRELATED OUTPATIENT NONDIAGNOSTIC SERVICES
+2 ;;BO^MEDICARE COORDINATED CARE DEMONSTRATION CLAIM
+3 ;;B1^BENEFICIARY INELIGIBLE FOR DEMONSTRATION PROGRAM
+4 ;;B2^CRITICAL ACCESS HOSPITAL AMBULANCE ATTESTATION
+5 ;;B3^PREGNANCY INDICATOR
+6 ;;BP^GULF OIL SPILL OF 2010
+7 ;;EO^CHANGE IN PATIENT STATUS
+8 ;;P1^DO NOT RESUCITATE (DNR) FOR PUBLIC HEALTH REPORTING ONLY
+9 ;;WO^UNITED MINE WORKERS OF AMERICA (UMWA) DEMO INDICATOR
+10 ;;
CONO ; Old condition code (9)^description
+1 ;;04^INFORMATION ONLY BILL
+2 ;;06^ESRD PATIENT IN FIRST 30 MONTHS OF ENTITLE CVRD BY EGHP
+3 ;;58^TERMINATED MEDICARE ADVANTAGE ENROLLEE
+4 ;;69^IME/DGME/N&AH PAYMENT ONLY
+5 ;;78^NEW COVERAGE NOT IMPLEMENTED BY MANAGED CARE PLAN
+6 ;;79^CORF SERVICES PROVIDED OFFSITE
+7 ;;H3^REOCCURRENCE OF GI BLEED (MA) CATEGORY
+8 ;;H4^REOCCURRENCE OF PNEUMONIA (MB) CATEGORY
+9 ;;H5^REOCCURRENCE OF PERICARDITIS (MC) CATEGORY
+10 ;;
