IB20P167 ;ALB/RFJ - IB*2.0*167 Post init for visit copay ;28 Nov 2001
;;2.0;INTEGRATED BILLING;**167**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
Q
;
;
POSTINIT ; start post init
;
D BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
;
; add new cancellation reason code
D POSTINIT^IB20P16B
;
D MES^XPDUTL(" -> Adding IB BILLABLE STOP CODES to file 352.5 ...")
;
N IBDATA,IBEFDATE,IBFMAIL,IBNEXT,RESULT
;
; effective date for new billable rates
S IBEFDATE=3011206
;
; install entries in file 352.5
F IBNEXT=1:1 D Q:IBDATA=""
. S IBDATA=$P($T(STOPCODE+IBNEXT),";",3,99)
. I IBDATA="" Q
. ;
. ; add the entries to file 352.5
. ; pass stop code, effective date, billable type, description
. S RESULT=$$ADD^IBEMTSCU($P(IBDATA,";"),IBEFDATE,$P(IBDATA,";",3),$P(IBDATA,";",2))
;
; generate report in mailman
;N IBFMAIL,IBFPOST
;S IBFMAIL=1,IBFPOST=1 D DQ^IBEMTSCR
;
D MES^XPDUTL(" OK, I'm done!")
;
; update charge master
D CM^IB2P167C
;
; loop through bills in 350 on hold and update the rate
D 350^IB20P16A
;
D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
Q
;
;
;;piece 1 = stop code
;;piece 2 = description
;;piece 3 = billable type (s=specialty, p=primary, n=nonbillable)
STOPCODE ;; list of stop codes to add to file 352.5
;;101;EMERGENCY UNIT;S
;;102;ADMIT/SCREENING;P
;;103;TELEPHONE TRIAGE;N
;;104;PULMONARY FUNCT;S
;;105;X-RAY;N
;;106;EEG;S
;;107;EKG;N
;;108;LABORATORY;N
;;109;NUCLEAR MEDICINE;S
;;115;ULTRASOUND;S
;;116;RESPIRATORY THERAPY;S
;;117;NURSING;N
;;118;HOME TRTMT SVCS;P
;;119;CNH FOLLOW-UP;P
;;120;HEALTH SCREENING;N
;;121;RESID CARE-NON MH;P
;;122;PUB HEALTH NURS;N
;;123;NUTR/DIET - IND;P
;;124;NUTR/DIET - GRP;P
;;125;SOCIAL WORK SVC;P
;;126;EVOKED POTENTIAL;S
;;127;TOPO BRAIN MAP;S
;;128;PROL VIDEO - EEG;S
;;144;RADIONUC THERAPY;S
;;145;PHARMAC PHYSIOL;S
;;146;PET;S
;;147;PHONE/ANCILLARY;N
;;148;PHONE/DIAGNOSTIC;N
;;149;RAD THERAPY TRMT;S
;;150;COMPUT TOMOGRA (CT);S
;;151;MAG RES IMAG (MRI);S
;;152;ANGIOGR CATHETERIZ;S
;;153;INTERVEN RARIOGRAPH;S
;;160;CLINICAL PHARM;N
;;165;BEREAVE. COUNSEL;N
;;166;CHAPLAIN-IND;N
;;167;CHAPLAIN-GROUP;N
;;168;CHAPLAIN COLLATERAL;N
;;169;TELEPHONE/CHAPLAIN;N
;;170;HBPC PHYSICIAN;P
;;171;HBPC-RN/RNP/PA;P
;;172;HBPC-NURSE EXTEND;P
;;173;HBPC-SOCIAL WORK;P
;;174;HBPC-THERAPIST;P
;;175;HBPC DIETICIAN;P
;;176;HBPC-CLIN PHARMACY;P
;;177;HBPC-OTHER;P
;;178;TELEPHONE/HBHC;N
;;179;TELE HOME CARE;N
;;180;DENTAL;P
;;181;TELEPHONE/DENTAL;N
;;190;ADULT DAY HEALTH;P
;;201;PM & RS;S
;;202;REC THERAPY SERVICES;N
;;203;AUDIOLOGY;S
;;204;SPEECH PATHOLOGY;S
;;205;PHYSICAL THERAPY;P
;;206;OCCUPATION THPY;P
;;207;PM & RS INCENTIVE;N
;;208;PM & RS COMP WORK;N
;;209;VIST COORD.;N
;;210;SCI;S
;;211;POST-AMPUTATION;S
;;212;EMG;S
;;213;PM & RS VOC ASSIST;N
;;214;KINESIOTHERAPY;P
;;215;SCI HOME PROGRAM;N
;;216;PHONE REHAB SUPP;N
;;217;BROS-BLIND REHAB SPEC;S
;;218;CAT BLIND REHAB;S
;;290;OBSERVATION MEDICINE;S
;;291;OBSERVATION SURGERY;S
;;292;OBSERV PSYCHIATRY;S
;;293;OBSERVATION NEUROLOGY;S
;;295;OBSERV SPINAL CORD;S
;;296;OBSERV REHABILITATION;S
;;301;GENERAL INT MED;P
;;302;ALLERGY IMMUNOL;S
;;303;CARDIOLOGY;S
;;304;DERMATOLOGY;S
;;305;ENDOCR/METAB;S
;;306;DIABETES;S
;;307;GASTROENTEROLOGY;S
;;308;HEMATOLOGY;S
;;309;HYPERTENSION;P
;;310;INFECTIOUS DIS;S
;;311;PACEMAKER;S
;;312;PULMONARY/CHEST;S
;;313;RENAL/NEPHROL;S
;;314;RHEUM/ARTHRITIS;S
;;315;NEUROLOGY;S
;;316;ONCOLOGY/TUMOR;S
;;317;COUMADIN CLINIC;P
;;318;GERIATRIC CLINIC;S
;;319;GERIAT EVAL/MGT (GEM);P
;;320;ALZH/DEMEN/CLIN;S
;;321;GI ENDOSCOPY;S
;;322;WOMENS CLINIC;P
;;323;PRIM CARE/MED;P
;;324;PHONE MEDICINE;N
;;325;PHONE NEUROLOGY;N
;;326;PHONE GERIATRICS;N
;;327;INVASIVE O.R. PROC;S
;;328;MED/SURG DAY MSDU;P
;;329;MEDICAL PROC UNIT;S
;;330;CHEMO UNIT-MED;S
;;331;PRE-BED M.D.- MED;S
;;332;PRE-BED R.N.- MED;S
;;333;CARDIAC CATH;S
;;334;CARDIAC STRESS TEST;S
;;350;GERIATRIC PRIM CARE;P
;;401;GENERAL SURGERY;S
;;402;CARDIAC SURGERY;S
;;403;ENT;S
;;404;GYNECOLOGY;S
;;405;HAND SURGERY;S
;;406;NEUROSURGERY;S
;;407;OPHTHALMOLOGY;S
;;408;OPTOMETRY;S
;;409;ORTHOPEDICS;S
;;410;PLASTIC SURGERY;S
;;411;PODIATRY;P
;;412;PROCTOLOGY;S
;;413;THORACIC SURGERY;S
;;414;UROLOGY;S
;;415;VASCULAR SURGERY;S
;;416;AMB SURG EVAL(NON-MD);N
;;417;PROSTH/ORTHOTICS;N
;;418;AMPUTATION CLIN;S
;;419;ANES PRE/POST-OP CONS;S
;;420;PAIN CLINIC;S
;;421;VASCULAR LAB;S
;;422;CAST CLINIC;N
;;423;PROSTHETICS SVCS;N
;;424;PHONE SURGERY;N
;;425;TELE/PROSTH/ORTH;N
;;426;WOMEN SURGERY;S
;;428;TELEPHONE OPTOMETRY;N
;;429;OUTPAT CARE IN O.R.;S
;;430;CYSTO ROOM UNIT;N
;;431;CHEMO UNIT-SURG;S
;;432;PRE-BED MD-SURG;S
;;433;PRE-BED RN-SURG;S
;;435;SURGICAL PROC UNIT;S
;;450;C & P EXAMS;N
;;451;451-LOCAL CREDIT PAIR;N
;;452;452-LOCAL CREDIT PAIR;N
;;453;453-LOCAL CREDIT PAIR;N
;;454;SPECIAL REGISTRY 5;N
;;455;455-LOCAL CREDIT PAIR;N
;;456;SPECIAL REGISTRY 6;N
;;459;SPECIAL REGISTRY 8;N
;;460;460-LOCAL CREDIT PAIR;N
;;461;SPECIAL REGISTRY 1;N
;;462;462-LOCAL CREDIT PAIR;N
;;463;463-LOCAL CREDIT PAIR;N
;;464;464-LOCAL CREDIT PAIR;N
;;465;465-LOCAL CREDIT PAIR;N
;;466;466-LOCAL CREDIT PAIR;N
;;467;467-LOCAL CREDIT PAIR;N
;;472;472-LOCAL CREDIT PAIR;N
;;473;473-LOCAL CREDIT PAIR;N
;;474;RESEARCH;N
;;475;475-LOCAL CREDIT PAIR;N
;;478;478-LOCAL CREDIT PAIR;N
;;479;SPECIAL REGISTRY 4;N
;;481;481-LOCAL CREDIT PAIR;N
;;483;483-LOCAL CREDIT PAIR;N
;;502;MENTAL HEALTH-IND;P
;;503;MEN HLTH RESID CARE;P
;;505;DAY TRMT-IND;N
;;506;DAY HOSPITAL-IND;N
;;509;PSYCHIATRY-IND;S
;;510;PSYCHOLOGY-IND;S
;;512;PSYCHIATRY CONS;S
;;513;SUBST ABUSE-IND;P
;;514;SUBST ABUSE-HOME;P
;;516;PTSD GROUP;P
;;519;SUBST/PTSD TEAMS;N
;;520;LT ENHANCE INDIV;P
;;521;LT ENHANCE GROUP;P
;;522;HUD-VASH;N
;;523;OPIOID SUBSTITUTION;N
;;524;ACT DUTY SEX TRAUMA;N
;;525;WOM STRESS TREAT;N
;;527;PHONE GENERAL PSYCH;N
;;528;PHONE/HMLESS MENT ILL;N
;;529;HCHV/HMI;N
;;530;TELEPHONE/HUD-VASH;N
;;531;MH PRIM CARE TEAM-IND;P
;;532;PSYC/SOC REHAB-IND;P
;;535;MH VOCAT ASSIST;N
;;536;TELE/MH VOC ASSIST;N
;;537;TELE PSYC/SOC REHAB;N
;;538;PSYCHOLOGICAL TESTING;S
;;540;PTSD CL TEAM-PCT;N
;;542;TELEPHONE PTSD;N
;;545;TELE SUBSTANCE ABUSE;N
;;546;TELEPHONE/MHICM;N
;;547;INTEN SUBS ABUSE TRT;N
;;550;MENTAL HYG-GRP;P
;;552;MENT HLT INT (MHICM);N
;;553;DAY TRMT-GRP;N
;;554;DAY HOSPITAL-GRP;N
;;557;PSYCHIATRY-GROUP;P
;;558;PSYCHOLOGY-GROUP;P
;;559;PSY/SOC REHAB-GRP;P
;;560;SUBST ABUSE-GRP;P
;;561;PCT PTSD-GRP;N
;;562;PTSD-INDIVIDUAL;S
;;563;MH PRIM CARE TEAM-GRP;N
;;564;MH TEAM CASE MGT;N
;;573;MH INCEN THER-GRP;N
;;574;MH COMP WK THER-GRP;N
;;575;MH VOCAT ASSIST-GRP;N
;;576;PSYCHOGERIA CLIN/INDV;P
;;577;PSYCHOGERIA CLIN/GRP;P
;;578;PSYCHOGERIA DAY PGM;P
;;579;TEL/PSYCHOGERIATRICS;N
;;580;PTSD DAY HOSP;N
;;581;PTSD DAY TREAT;N
;;589;N.A. DUTY SEX TRAUMA;N
;;590;COMM OUTR HMLS-STAFF;N
;;602;CHRON AST H-DIAL;S
;;603;LIM SELF H-DIAL;S
;;604;HOME H-DIAL TRNG;S
;;606;CHRON AST P-DIAL;S
;;607;LIM SELF P-DIAL;S
;;608;HOME P-DIAL TRNG;N
;;610;CONTRACT DIALYSIS;S
;;611;TELEPHONE DIALYSIS;N
;;650;CONTRACT NH DAYS;N
;;651;STATE NH DAYS;N
;;652;STATE DOM DAYS;N
;;680;HOME/COMM ASSESS;N
;;681;VA-PD HOME/COMM HC;N
;;682;VA-REF HOME/COMM CARE;N
;;702;CHOLESTER SCREEN;N
;;703;MAMMOGRAM;N
;;706;ALCOHOL SCREEN;N
;;707;SMOKING CESSATION;N
;;708;NUTRITION;N
;;709;PHYS FIT/EXER CS;N
;;710;INFLUENZA IMMUNIZ;N
;;711;INJ CS/SEAT BELT;N
;;725;DOM OUTREACH SERVICE;N
;;726;DOM AFTERCARE COMMUN;N
;;727;DOM AFTERCARE-VA;N
;;728;DOM ADMIT/SCREEN SVC;P
;;729;TELEPHONE/DOMICILIARY;N
;;730;DOM GENERAL CARE;N
;;731;PRRTP GENERAL CARE;N
;;999;EMPLOYEE HEALTH;N
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P167 8117 printed Apr 09, 2024@21:37:39 Page 2
IB20P167 ;ALB/RFJ - IB*2.0*167 Post init for visit copay ;28 Nov 2001
+1 ;;2.0;INTEGRATED BILLING;**167**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 QUIT
+4 ;
+5 ;
POSTINIT ; start post init
+1 ;
+2 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
+3 ;
+4 ; add new cancellation reason code
+5 DO POSTINIT^IB20P16B
+6 ;
+7 DO MES^XPDUTL(" -> Adding IB BILLABLE STOP CODES to file 352.5 ...")
+8 ;
+9 NEW IBDATA,IBEFDATE,IBFMAIL,IBNEXT,RESULT
+10 ;
+11 ; effective date for new billable rates
+12 SET IBEFDATE=3011206
+13 ;
+14 ; install entries in file 352.5
+15 FOR IBNEXT=1:1
Begin DoDot:1
+16 SET IBDATA=$PIECE($TEXT(STOPCODE+IBNEXT),";",3,99)
+17 IF IBDATA=""
QUIT
+18 ;
+19 ; add the entries to file 352.5
+20 ; pass stop code, effective date, billable type, description
+21 SET RESULT=$$ADD^IBEMTSCU($PIECE(IBDATA,";"),IBEFDATE,$PIECE(IBDATA,";",3),$PIECE(IBDATA,";",2))
End DoDot:1
if IBDATA=""
QUIT
+22 ;
+23 ; generate report in mailman
+24 ;N IBFMAIL,IBFPOST
+25 ;S IBFMAIL=1,IBFPOST=1 D DQ^IBEMTSCR
+26 ;
+27 DO MES^XPDUTL(" OK, I'm done!")
+28 ;
+29 ; update charge master
+30 DO CM^IB2P167C
+31 ;
+32 ; loop through bills in 350 on hold and update the rate
+33 DO 350^IB20P16A
+34 ;
+35 DO MES^XPDUTL(" >> End of the Post-Initialization routine ...")
+36 QUIT
+37 ;
+38 ;
+39 ;;piece 1 = stop code
+40 ;;piece 2 = description
+41 ;;piece 3 = billable type (s=specialty, p=primary, n=nonbillable)
STOPCODE ;; list of stop codes to add to file 352.5
+1 ;;101;EMERGENCY UNIT;S
+2 ;;102;ADMIT/SCREENING;P
+3 ;;103;TELEPHONE TRIAGE;N
+4 ;;104;PULMONARY FUNCT;S
+5 ;;105;X-RAY;N
+6 ;;106;EEG;S
+7 ;;107;EKG;N
+8 ;;108;LABORATORY;N
+9 ;;109;NUCLEAR MEDICINE;S
+10 ;;115;ULTRASOUND;S
+11 ;;116;RESPIRATORY THERAPY;S
+12 ;;117;NURSING;N
+13 ;;118;HOME TRTMT SVCS;P
+14 ;;119;CNH FOLLOW-UP;P
+15 ;;120;HEALTH SCREENING;N
+16 ;;121;RESID CARE-NON MH;P
+17 ;;122;PUB HEALTH NURS;N
+18 ;;123;NUTR/DIET - IND;P
+19 ;;124;NUTR/DIET - GRP;P
+20 ;;125;SOCIAL WORK SVC;P
+21 ;;126;EVOKED POTENTIAL;S
+22 ;;127;TOPO BRAIN MAP;S
+23 ;;128;PROL VIDEO - EEG;S
+24 ;;144;RADIONUC THERAPY;S
+25 ;;145;PHARMAC PHYSIOL;S
+26 ;;146;PET;S
+27 ;;147;PHONE/ANCILLARY;N
+28 ;;148;PHONE/DIAGNOSTIC;N
+29 ;;149;RAD THERAPY TRMT;S
+30 ;;150;COMPUT TOMOGRA (CT);S
+31 ;;151;MAG RES IMAG (MRI);S
+32 ;;152;ANGIOGR CATHETERIZ;S
+33 ;;153;INTERVEN RARIOGRAPH;S
+34 ;;160;CLINICAL PHARM;N
+35 ;;165;BEREAVE. COUNSEL;N
+36 ;;166;CHAPLAIN-IND;N
+37 ;;167;CHAPLAIN-GROUP;N
+38 ;;168;CHAPLAIN COLLATERAL;N
+39 ;;169;TELEPHONE/CHAPLAIN;N
+40 ;;170;HBPC PHYSICIAN;P
+41 ;;171;HBPC-RN/RNP/PA;P
+42 ;;172;HBPC-NURSE EXTEND;P
+43 ;;173;HBPC-SOCIAL WORK;P
+44 ;;174;HBPC-THERAPIST;P
+45 ;;175;HBPC DIETICIAN;P
+46 ;;176;HBPC-CLIN PHARMACY;P
+47 ;;177;HBPC-OTHER;P
+48 ;;178;TELEPHONE/HBHC;N
+49 ;;179;TELE HOME CARE;N
+50 ;;180;DENTAL;P
+51 ;;181;TELEPHONE/DENTAL;N
+52 ;;190;ADULT DAY HEALTH;P
+53 ;;201;PM & RS;S
+54 ;;202;REC THERAPY SERVICES;N
+55 ;;203;AUDIOLOGY;S
+56 ;;204;SPEECH PATHOLOGY;S
+57 ;;205;PHYSICAL THERAPY;P
+58 ;;206;OCCUPATION THPY;P
+59 ;;207;PM & RS INCENTIVE;N
+60 ;;208;PM & RS COMP WORK;N
+61 ;;209;VIST COORD.;N
+62 ;;210;SCI;S
+63 ;;211;POST-AMPUTATION;S
+64 ;;212;EMG;S
+65 ;;213;PM & RS VOC ASSIST;N
+66 ;;214;KINESIOTHERAPY;P
+67 ;;215;SCI HOME PROGRAM;N
+68 ;;216;PHONE REHAB SUPP;N
+69 ;;217;BROS-BLIND REHAB SPEC;S
+70 ;;218;CAT BLIND REHAB;S
+71 ;;290;OBSERVATION MEDICINE;S
+72 ;;291;OBSERVATION SURGERY;S
+73 ;;292;OBSERV PSYCHIATRY;S
+74 ;;293;OBSERVATION NEUROLOGY;S
+75 ;;295;OBSERV SPINAL CORD;S
+76 ;;296;OBSERV REHABILITATION;S
+77 ;;301;GENERAL INT MED;P
+78 ;;302;ALLERGY IMMUNOL;S
+79 ;;303;CARDIOLOGY;S
+80 ;;304;DERMATOLOGY;S
+81 ;;305;ENDOCR/METAB;S
+82 ;;306;DIABETES;S
+83 ;;307;GASTROENTEROLOGY;S
+84 ;;308;HEMATOLOGY;S
+85 ;;309;HYPERTENSION;P
+86 ;;310;INFECTIOUS DIS;S
+87 ;;311;PACEMAKER;S
+88 ;;312;PULMONARY/CHEST;S
+89 ;;313;RENAL/NEPHROL;S
+90 ;;314;RHEUM/ARTHRITIS;S
+91 ;;315;NEUROLOGY;S
+92 ;;316;ONCOLOGY/TUMOR;S
+93 ;;317;COUMADIN CLINIC;P
+94 ;;318;GERIATRIC CLINIC;S
+95 ;;319;GERIAT EVAL/MGT (GEM);P
+96 ;;320;ALZH/DEMEN/CLIN;S
+97 ;;321;GI ENDOSCOPY;S
+98 ;;322;WOMENS CLINIC;P
+99 ;;323;PRIM CARE/MED;P
+100 ;;324;PHONE MEDICINE;N
+101 ;;325;PHONE NEUROLOGY;N
+102 ;;326;PHONE GERIATRICS;N
+103 ;;327;INVASIVE O.R. PROC;S
+104 ;;328;MED/SURG DAY MSDU;P
+105 ;;329;MEDICAL PROC UNIT;S
+106 ;;330;CHEMO UNIT-MED;S
+107 ;;331;PRE-BED M.D.- MED;S
+108 ;;332;PRE-BED R.N.- MED;S
+109 ;;333;CARDIAC CATH;S
+110 ;;334;CARDIAC STRESS TEST;S
+111 ;;350;GERIATRIC PRIM CARE;P
+112 ;;401;GENERAL SURGERY;S
+113 ;;402;CARDIAC SURGERY;S
+114 ;;403;ENT;S
+115 ;;404;GYNECOLOGY;S
+116 ;;405;HAND SURGERY;S
+117 ;;406;NEUROSURGERY;S
+118 ;;407;OPHTHALMOLOGY;S
+119 ;;408;OPTOMETRY;S
+120 ;;409;ORTHOPEDICS;S
+121 ;;410;PLASTIC SURGERY;S
+122 ;;411;PODIATRY;P
+123 ;;412;PROCTOLOGY;S
+124 ;;413;THORACIC SURGERY;S
+125 ;;414;UROLOGY;S
+126 ;;415;VASCULAR SURGERY;S
+127 ;;416;AMB SURG EVAL(NON-MD);N
+128 ;;417;PROSTH/ORTHOTICS;N
+129 ;;418;AMPUTATION CLIN;S
+130 ;;419;ANES PRE/POST-OP CONS;S
+131 ;;420;PAIN CLINIC;S
+132 ;;421;VASCULAR LAB;S
+133 ;;422;CAST CLINIC;N
+134 ;;423;PROSTHETICS SVCS;N
+135 ;;424;PHONE SURGERY;N
+136 ;;425;TELE/PROSTH/ORTH;N
+137 ;;426;WOMEN SURGERY;S
+138 ;;428;TELEPHONE OPTOMETRY;N
+139 ;;429;OUTPAT CARE IN O.R.;S
+140 ;;430;CYSTO ROOM UNIT;N
+141 ;;431;CHEMO UNIT-SURG;S
+142 ;;432;PRE-BED MD-SURG;S
+143 ;;433;PRE-BED RN-SURG;S
+144 ;;435;SURGICAL PROC UNIT;S
+145 ;;450;C & P EXAMS;N
+146 ;;451;451-LOCAL CREDIT PAIR;N
+147 ;;452;452-LOCAL CREDIT PAIR;N
+148 ;;453;453-LOCAL CREDIT PAIR;N
+149 ;;454;SPECIAL REGISTRY 5;N
+150 ;;455;455-LOCAL CREDIT PAIR;N
+151 ;;456;SPECIAL REGISTRY 6;N
+152 ;;459;SPECIAL REGISTRY 8;N
+153 ;;460;460-LOCAL CREDIT PAIR;N
+154 ;;461;SPECIAL REGISTRY 1;N
+155 ;;462;462-LOCAL CREDIT PAIR;N
+156 ;;463;463-LOCAL CREDIT PAIR;N
+157 ;;464;464-LOCAL CREDIT PAIR;N
+158 ;;465;465-LOCAL CREDIT PAIR;N
+159 ;;466;466-LOCAL CREDIT PAIR;N
+160 ;;467;467-LOCAL CREDIT PAIR;N
+161 ;;472;472-LOCAL CREDIT PAIR;N
+162 ;;473;473-LOCAL CREDIT PAIR;N
+163 ;;474;RESEARCH;N
+164 ;;475;475-LOCAL CREDIT PAIR;N
+165 ;;478;478-LOCAL CREDIT PAIR;N
+166 ;;479;SPECIAL REGISTRY 4;N
+167 ;;481;481-LOCAL CREDIT PAIR;N
+168 ;;483;483-LOCAL CREDIT PAIR;N
+169 ;;502;MENTAL HEALTH-IND;P
+170 ;;503;MEN HLTH RESID CARE;P
+171 ;;505;DAY TRMT-IND;N
+172 ;;506;DAY HOSPITAL-IND;N
+173 ;;509;PSYCHIATRY-IND;S
+174 ;;510;PSYCHOLOGY-IND;S
+175 ;;512;PSYCHIATRY CONS;S
+176 ;;513;SUBST ABUSE-IND;P
+177 ;;514;SUBST ABUSE-HOME;P
+178 ;;516;PTSD GROUP;P
+179 ;;519;SUBST/PTSD TEAMS;N
+180 ;;520;LT ENHANCE INDIV;P
+181 ;;521;LT ENHANCE GROUP;P
+182 ;;522;HUD-VASH;N
+183 ;;523;OPIOID SUBSTITUTION;N
+184 ;;524;ACT DUTY SEX TRAUMA;N
+185 ;;525;WOM STRESS TREAT;N
+186 ;;527;PHONE GENERAL PSYCH;N
+187 ;;528;PHONE/HMLESS MENT ILL;N
+188 ;;529;HCHV/HMI;N
+189 ;;530;TELEPHONE/HUD-VASH;N
+190 ;;531;MH PRIM CARE TEAM-IND;P
+191 ;;532;PSYC/SOC REHAB-IND;P
+192 ;;535;MH VOCAT ASSIST;N
+193 ;;536;TELE/MH VOC ASSIST;N
+194 ;;537;TELE PSYC/SOC REHAB;N
+195 ;;538;PSYCHOLOGICAL TESTING;S
+196 ;;540;PTSD CL TEAM-PCT;N
+197 ;;542;TELEPHONE PTSD;N
+198 ;;545;TELE SUBSTANCE ABUSE;N
+199 ;;546;TELEPHONE/MHICM;N
+200 ;;547;INTEN SUBS ABUSE TRT;N
+201 ;;550;MENTAL HYG-GRP;P
+202 ;;552;MENT HLT INT (MHICM);N
+203 ;;553;DAY TRMT-GRP;N
+204 ;;554;DAY HOSPITAL-GRP;N
+205 ;;557;PSYCHIATRY-GROUP;P
+206 ;;558;PSYCHOLOGY-GROUP;P
+207 ;;559;PSY/SOC REHAB-GRP;P
+208 ;;560;SUBST ABUSE-GRP;P
+209 ;;561;PCT PTSD-GRP;N
+210 ;;562;PTSD-INDIVIDUAL;S
+211 ;;563;MH PRIM CARE TEAM-GRP;N
+212 ;;564;MH TEAM CASE MGT;N
+213 ;;573;MH INCEN THER-GRP;N
+214 ;;574;MH COMP WK THER-GRP;N
+215 ;;575;MH VOCAT ASSIST-GRP;N
+216 ;;576;PSYCHOGERIA CLIN/INDV;P
+217 ;;577;PSYCHOGERIA CLIN/GRP;P
+218 ;;578;PSYCHOGERIA DAY PGM;P
+219 ;;579;TEL/PSYCHOGERIATRICS;N
+220 ;;580;PTSD DAY HOSP;N
+221 ;;581;PTSD DAY TREAT;N
+222 ;;589;N.A. DUTY SEX TRAUMA;N
+223 ;;590;COMM OUTR HMLS-STAFF;N
+224 ;;602;CHRON AST H-DIAL;S
+225 ;;603;LIM SELF H-DIAL;S
+226 ;;604;HOME H-DIAL TRNG;S
+227 ;;606;CHRON AST P-DIAL;S
+228 ;;607;LIM SELF P-DIAL;S
+229 ;;608;HOME P-DIAL TRNG;N
+230 ;;610;CONTRACT DIALYSIS;S
+231 ;;611;TELEPHONE DIALYSIS;N
+232 ;;650;CONTRACT NH DAYS;N
+233 ;;651;STATE NH DAYS;N
+234 ;;652;STATE DOM DAYS;N
+235 ;;680;HOME/COMM ASSESS;N
+236 ;;681;VA-PD HOME/COMM HC;N
+237 ;;682;VA-REF HOME/COMM CARE;N
+238 ;;702;CHOLESTER SCREEN;N
+239 ;;703;MAMMOGRAM;N
+240 ;;706;ALCOHOL SCREEN;N
+241 ;;707;SMOKING CESSATION;N
+242 ;;708;NUTRITION;N
+243 ;;709;PHYS FIT/EXER CS;N
+244 ;;710;INFLUENZA IMMUNIZ;N
+245 ;;711;INJ CS/SEAT BELT;N
+246 ;;725;DOM OUTREACH SERVICE;N
+247 ;;726;DOM AFTERCARE COMMUN;N
+248 ;;727;DOM AFTERCARE-VA;N
+249 ;;728;DOM ADMIT/SCREEN SVC;P
+250 ;;729;TELEPHONE/DOMICILIARY;N
+251 ;;730;DOM GENERAL CARE;N
+252 ;;731;PRRTP GENERAL CARE;N
+253 ;;999;EMPLOYEE HEALTH;N
