AUTINIT5.m

AUTINIT5 ;IHS/DIR/DIFROM - IHS DICTIONARIES (POINTERS) INIT ROUTINE; [ 03/04/98   8:10 AM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:152 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1

 Q

IXF ;;IHS DICTIONARIES (POINTERS)^AUT

 ;;9999999.01;USER CONVERSION;^AUTTUCV(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.02;PATIENT RECORD DISPOSITION;^AUTTDIS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.03I;TRIBE;^AUTTTRI(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.04;IMM MANUFACTURER;^AUTTIMAN(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.05I;COMMUNITY;^AUTTCOM(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.06IP;LOCATION;^AUTTLOC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.07I;MEASUREMENT TYPE;^AUTTMSR(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.08Ia;RECODE ICD/APC;^AUTTRCD(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.081I;APC RECODE CATEGORY;^AUTTRCDC(;0;y;y;;n;;;n

 ;;

 ;;9999999.09;EDUCATION TOPICS;^AUTTEDT(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.11Is;VENDOR;^AUTTVNDR(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.12I;RECODE INJURY;^AUTTRIJ(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.13I;LAB TEST;^AUTTLAB(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.14I;IMMUNIZATION;^AUTTIMM(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.15I;EXAM;^AUTTEXAM(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.16I;MEDICATION;^AUTTMED(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.17I;TREATMENT;^AUTTTRT(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.18IO;INSURER;^AUTNINS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.19I;SURVEILLANCE CODE;^AUTTSURC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.21I;AREA;^AUTTAREA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.22I;SERVICE UNIT;^AUTTSU(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.23I;COUNTY;^AUTTCTY(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.24I;CLINICAL REMINDER CODE;^AUTTCRC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.25I;BENEFICIARY;^AUTTBEN(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.26;SERVICE CATEGORY;^AUTTSC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.27A;PROVIDER NARRATIVE;^AUTNPOV(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.28I;SKIN TEST;^AUTTSK(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.29I;DISTRICT;^AUTTDST(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.31I;ADA CODE;^AUTTADA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.32;MEDICARE SUFFIX;^AUTTMCS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.33;RAILROAD PREFIX;^AUTTRRP(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.34I;VENDOR TYPE;^AUTTVTYP(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.35;QUANTUM CODE;^AUTTQUAN(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.36I;RELATIONSHIP;^AUTTRLSH(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.37;U/R DENIAL REASONS;^AUTTREAS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.38;ERROR MESSAGES;^AUTTEMSG(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.39P;RPMS SITE;^AUTTSITE(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.41I;IMMUNIZATION LOT;^AUTTIML(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.42;HOUSEHOLD STATUS;^AUTTHHS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.43;EMPLOYMENT STATUS;^AUTTEMP(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.44;INCOME SOURCE;^AUTTINC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.45OP;RPMS APPLICATION PARAMETERS;^AUTNSYS(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.46I;PHYSICAL THERAPY;^AUTTPHTH(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.47;RPMS RESERVATION;^AUTTRES(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.48;BIC ELIGIBILITY;^AUTTBICE(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.49;IHS TASK REPRINT;^AUTTZTSK(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.51;APPROPRIATION NO.;^AUTTPRO(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.52OI;ALLOWANCE NO.;^AUTTALLW(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.54OI;BUDGET ACTIVITY;^AUTTBA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.55OI;SUB-ACTIVITY;^AUTTSA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.56OI;SUB-SUB-ACTIVITY;^AUTTSSA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.57I;COMMON ACCOUNTING NUMBER;^AUTTCAN(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.58I;COST CENTER;^AUTTCCT(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.59I;OBJECT/SUB-OBJECT;^AUTTOBJC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.591I;OBJECT CLASS GROUP;^AUTTOCG(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.61I;OBJECT CLASS CATEGORY;^AUTTOBCC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.62I;FMS DEPARTMENT/PROGRAM;^AUTTPRG(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.63I;REFERENCE CODE;^AUTTDOCR(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.64I;HEALTH FACTORS;^AUTTHF(;0;y;y;;n;;;n;m

 ;;

 ;;9999999.65I;COVERAGE TYPE;^AUTTPIC(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.66I;LOCATION CODE;^AUTTLCOD(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.67;OBJECT CLASS REPORT GRP;^AUTTOCRG(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.68;DIAGNOSTIC PROCEDURE RESULT;^AUTTDXPR(;0;y;y;;n;;;n;;n

 ;;

 ;;9999999.69I;ACCOUNTING POINT;^AUTTACPT(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.71P;IHS COMMUNICATIONS PARAMETERS;^AUTTTEL(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.72I;REVENUE CODES;^AUTTREVN(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.74I;CHA ICD RECODE TABLE;^AUTTCHA(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.75;EMPLOYER;^AUTNEMPL(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.76I;TYPE OF BUSINESS;^AUTTTOB(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.77;EMPLOYER GROUP INSURANCE;^AUTNEGRP(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.78I;SSN STATUS;^AUTTSSN(;0;y;y;;n;;;n;m

 ;;

 ;;9999999.79;GEOGRAPHICAL LOCATION;^AUTTGL(;0;y;y;;n;;;n;m

 ;;

 ;;9999999.81I;SIZE OF SMALL BUSINESS;^AUTTSOB(;0;y;y;;n;;;n;m

 ;;

 ;;9999999.82;PERCENTILES;^AUTTPCT(;0;y;y;;n;;;n;m

 ;;

 ;;9999999.87;PREGNANCY PRESENTATION TYPES;^AUTTPPT(;0;y;y;;n;;;n;m;y

 ;;

 ;;9999999.88IO;CPT MODIFIER;^AUTTCMOD(;0;y;y

 ;;

AUTINIT5  ;IHS/DIR/DIFROM - IHS DICTIONARIES (POINTERS) INIT ROUTINE; [ 03/04/98   8:10 AM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

 +2        KILL ^UTILITY("DIF",$JOB)

           SET DIFRDIFI=1

           FOR I=1:1:152

               SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)

               SET DIFRDIFI=DIFRDIFI+1

 +3        QUIT 

IXF       ;;IHS DICTIONARIES (POINTERS)^AUT

 +1       ;;9999999.01;USER CONVERSION;^AUTTUCV(;0;y;y;;n;;;n;m;y

 +2       ;;

 +3       ;;9999999.02;PATIENT RECORD DISPOSITION;^AUTTDIS(;0;y;y;;n;;;n;m;y

 +4       ;;

 +5       ;;9999999.03I;TRIBE;^AUTTTRI(;0;y;y;;n;;;n;m;y

 +6       ;;

 +7       ;;9999999.04;IMM MANUFACTURER;^AUTTIMAN(;0;y;y;;n;;;n;m;y

 +8       ;;

 +9       ;;9999999.05I;COMMUNITY;^AUTTCOM(;0;y;y;;n;;;n;m;y

 +10      ;;

 +11      ;;9999999.06IP;LOCATION;^AUTTLOC(;0;y;y;;n;;;n;m;y

 +12      ;;

 +13      ;;9999999.07I;MEASUREMENT TYPE;^AUTTMSR(;0;y;y;;n;;;n;m;y

 +14      ;;

 +15      ;;9999999.08Ia;RECODE ICD/APC;^AUTTRCD(;0;y;y;;n;;;n;m;y

 +16      ;;

 +17      ;;9999999.081I;APC RECODE CATEGORY;^AUTTRCDC(;0;y;y;;n;;;n

 +18      ;;

 +19      ;;9999999.09;EDUCATION TOPICS;^AUTTEDT(;0;y;y;;n;;;n;m;y

 +20      ;;

 +21      ;;9999999.11Is;VENDOR;^AUTTVNDR(;0;y;y;;n;;;n;m;y

 +22      ;;

 +23      ;;9999999.12I;RECODE INJURY;^AUTTRIJ(;0;y;y;;n;;;n;m;y

 +24      ;;

 +25      ;;9999999.13I;LAB TEST;^AUTTLAB(;0;y;y;;n;;;n;m;y

 +26      ;;

 +27      ;;9999999.14I;IMMUNIZATION;^AUTTIMM(;0;y;y;;n;;;n;m;y

 +28      ;;

 +29      ;;9999999.15I;EXAM;^AUTTEXAM(;0;y;y;;n;;;n;m;y

 +30      ;;

 +31      ;;9999999.16I;MEDICATION;^AUTTMED(;0;y;y;;n;;;n;m;y

 +32      ;;

 +33      ;;9999999.17I;TREATMENT;^AUTTTRT(;0;y;y;;n;;;n;m;y

 +34      ;;

 +35      ;;9999999.18IO;INSURER;^AUTNINS(;0;y;y;;n;;;n;m;y

 +36      ;;

 +37      ;;9999999.19I;SURVEILLANCE CODE;^AUTTSURC(;0;y;y;;n;;;n;m;y

 +38      ;;

 +39      ;;9999999.21I;AREA;^AUTTAREA(;0;y;y;;n;;;n;m;y

 +40      ;;

 +41      ;;9999999.22I;SERVICE UNIT;^AUTTSU(;0;y;y;;n;;;n;m;y

 +42      ;;

 +43      ;;9999999.23I;COUNTY;^AUTTCTY(;0;y;y;;n;;;n;m;y

 +44      ;;

 +45      ;;9999999.24I;CLINICAL REMINDER CODE;^AUTTCRC(;0;y;y;;n;;;n;m;y

 +46      ;;

 +47      ;;9999999.25I;BENEFICIARY;^AUTTBEN(;0;y;y;;n;;;n;m;y

 +48      ;;

 +49      ;;9999999.26;SERVICE CATEGORY;^AUTTSC(;0;y;y;;n;;;n;m;y

 +50      ;;

 +51      ;;9999999.27A;PROVIDER NARRATIVE;^AUTNPOV(;0;y;y;;n;;;n;m;y

 +52      ;;

 +53      ;;9999999.28I;SKIN TEST;^AUTTSK(;0;y;y;;n;;;n;m;y

 +54      ;;

 +55      ;;9999999.29I;DISTRICT;^AUTTDST(;0;y;y;;n;;;n;m;y

 +56      ;;

 +57      ;;9999999.31I;ADA CODE;^AUTTADA(;0;y;y;;n;;;n;m;y

 +58      ;;

 +59      ;;9999999.32;MEDICARE SUFFIX;^AUTTMCS(;0;y;y;;n;;;n;m;y

 +60      ;;

 +61      ;;9999999.33;RAILROAD PREFIX;^AUTTRRP(;0;y;y;;n;;;n;m;y

 +62      ;;

 +63      ;;9999999.34I;VENDOR TYPE;^AUTTVTYP(;0;y;y;;n;;;n;m;y

 +64      ;;

 +65      ;;9999999.35;QUANTUM CODE;^AUTTQUAN(;0;y;y;;n;;;n;m;y

 +66      ;;

 +67      ;;9999999.36I;RELATIONSHIP;^AUTTRLSH(;0;y;y;;n;;;n;m;y

 +68      ;;

 +69      ;;9999999.37;U/R DENIAL REASONS;^AUTTREAS(;0;y;y;;n;;;n;m;y

 +70      ;;

 +71      ;;9999999.38;ERROR MESSAGES;^AUTTEMSG(;0;y;y;;n;;;n;m;y

 +72      ;;

 +73      ;;9999999.39P;RPMS SITE;^AUTTSITE(;0;y;y;;n;;;n;m;y

 +74      ;;

 +75      ;;9999999.41I;IMMUNIZATION LOT;^AUTTIML(;0;y;y;;n;;;n;m;y

 +76      ;;

 +77      ;;9999999.42;HOUSEHOLD STATUS;^AUTTHHS(;0;y;y;;n;;;n;m;y

 +78      ;;

 +79      ;;9999999.43;EMPLOYMENT STATUS;^AUTTEMP(;0;y;y;;n;;;n;m;y

 +80      ;;

 +81      ;;9999999.44;INCOME SOURCE;^AUTTINC(;0;y;y;;n;;;n;m;y

 +82      ;;

 +83      ;;9999999.45OP;RPMS APPLICATION PARAMETERS;^AUTNSYS(;0;y;y;;n;;;n;m;y

 +84      ;;

 +85      ;;9999999.46I;PHYSICAL THERAPY;^AUTTPHTH(;0;y;y;;n;;;n;m;y

 +86      ;;

 +87      ;;9999999.47;RPMS RESERVATION;^AUTTRES(;0;y;y;;n;;;n;m;y

 +88      ;;

 +89      ;;9999999.48;BIC ELIGIBILITY;^AUTTBICE(;0;y;y;;n;;;n;m;y

 +90      ;;

 +91      ;;9999999.49;IHS TASK REPRINT;^AUTTZTSK(;0;y;y;;n;;;n;m;y

 +92      ;;

 +93      ;;9999999.51;APPROPRIATION NO.;^AUTTPRO(;0;y;y;;n;;;n;m;y

 +94      ;;

 +95      ;;9999999.52OI;ALLOWANCE NO.;^AUTTALLW(;0;y;y;;n;;;n;m;y

 +96      ;;

 +97      ;;9999999.54OI;BUDGET ACTIVITY;^AUTTBA(;0;y;y;;n;;;n;m;y

 +98      ;;

 +99      ;;9999999.55OI;SUB-ACTIVITY;^AUTTSA(;0;y;y;;n;;;n;m;y

 +100     ;;

 +101     ;;9999999.56OI;SUB-SUB-ACTIVITY;^AUTTSSA(;0;y;y;;n;;;n;m;y

 +102     ;;

 +103     ;;9999999.57I;COMMON ACCOUNTING NUMBER;^AUTTCAN(;0;y;y;;n;;;n;m;y

 +104     ;;

 +105     ;;9999999.58I;COST CENTER;^AUTTCCT(;0;y;y;;n;;;n;m;y

 +106     ;;

 +107     ;;9999999.59I;OBJECT/SUB-OBJECT;^AUTTOBJC(;0;y;y;;n;;;n;m;y

 +108     ;;

 +109     ;;9999999.591I;OBJECT CLASS GROUP;^AUTTOCG(;0;y;y;;n;;;n;m;y

 +110     ;;

 +111     ;;9999999.61I;OBJECT CLASS CATEGORY;^AUTTOBCC(;0;y;y;;n;;;n;m;y

 +112     ;;

 +113     ;;9999999.62I;FMS DEPARTMENT/PROGRAM;^AUTTPRG(;0;y;y;;n;;;n;m;y

 +114     ;;

 +115     ;;9999999.63I;REFERENCE CODE;^AUTTDOCR(;0;y;y;;n;;;n;m;y

 +116     ;;

 +117     ;;9999999.64I;HEALTH FACTORS;^AUTTHF(;0;y;y;;n;;;n;m

 +118     ;;

 +119     ;;9999999.65I;COVERAGE TYPE;^AUTTPIC(;0;y;y;;n;;;n;m;y

 +120     ;;

 +121     ;;9999999.66I;LOCATION CODE;^AUTTLCOD(;0;y;y;;n;;;n;m;y

 +122     ;;

 +123     ;;9999999.67;OBJECT CLASS REPORT GRP;^AUTTOCRG(;0;y;y;;n;;;n;m;y

 +124     ;;

 +125     ;;9999999.68;DIAGNOSTIC PROCEDURE RESULT;^AUTTDXPR(;0;y;y;;n;;;n;;n

 +126     ;;

 +127     ;;9999999.69I;ACCOUNTING POINT;^AUTTACPT(;0;y;y;;n;;;n;m;y

 +128     ;;

 +129     ;;9999999.71P;IHS COMMUNICATIONS PARAMETERS;^AUTTTEL(;0;y;y;;n;;;n;m;y

 +130     ;;

 +131     ;;9999999.72I;REVENUE CODES;^AUTTREVN(;0;y;y;;n;;;n;m;y

 +132     ;;

 +133     ;;9999999.74I;CHA ICD RECODE TABLE;^AUTTCHA(;0;y;y;;n;;;n;m;y

 +134     ;;

 +135     ;;9999999.75;EMPLOYER;^AUTNEMPL(;0;y;y;;n;;;n;m;y

 +136     ;;

 +137     ;;9999999.76I;TYPE OF BUSINESS;^AUTTTOB(;0;y;y;;n;;;n;m;y

 +138     ;;

 +139     ;;9999999.77;EMPLOYER GROUP INSURANCE;^AUTNEGRP(;0;y;y;;n;;;n;m;y

 +140     ;;

 +141     ;;9999999.78I;SSN STATUS;^AUTTSSN(;0;y;y;;n;;;n;m

 +142     ;;

 +143     ;;9999999.79;GEOGRAPHICAL LOCATION;^AUTTGL(;0;y;y;;n;;;n;m

 +144     ;;

 +145     ;;9999999.81I;SIZE OF SMALL BUSINESS;^AUTTSOB(;0;y;y;;n;;;n;m

 +146     ;;

 +147     ;;9999999.82;PERCENTILES;^AUTTPCT(;0;y;y;;n;;;n;m

 +148     ;;

 +149     ;;9999999.87;PREGNANCY PRESENTATION TYPES;^AUTTPPT(;0;y;y;;n;;;n;m;y

 +150     ;;

 +151     ;;9999999.88IO;CPT MODIFIER;^AUTTCMOD(;0;y;y

 +152     ;;