Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20P167

IB20P167.m

Go to the documentation of this file. 
  1. IB20P167 ;ALB/RFJ - IB*2.0*167 Post init for visit copay ;28 Nov 2001
  1.  ;;2.0;INTEGRATED BILLING;**167**;21-MAR-94
  1.  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  Q
  1.  ;
  1.  ;
  1. POSTINIT ;  start post init
  1.  ;
  1.  D BMES^XPDUTL(" >>  Starting the Post-Initialization routine ...")
  1.  ;
  1.  ;  add new cancellation reason code
  1.  D POSTINIT^IB20P16B
  1.  ;
  1.  D MES^XPDUTL("     -> Adding IB BILLABLE STOP CODES to file 352.5 ...")
  1.  ;
  1.  N IBDATA,IBEFDATE,IBFMAIL,IBNEXT,RESULT
  1.  ;
  1.  ;  effective date for new billable rates
  1.  S IBEFDATE=3011206
  1.  ;
  1.  ;  install entries in file 352.5
  1.  F IBNEXT=1:1 D  Q:IBDATA=""
  1.  .   S IBDATA=$P($T(STOPCODE+IBNEXT),";",3,99)
  1.  .   I IBDATA="" Q
  1.  .   ;
  1.  .   ;  add the entries to file 352.5
  1.  .   ;    pass stop code, effective date, billable type, description
  1.  .   S RESULT=$$ADD^IBEMTSCU($P(IBDATA,";"),IBEFDATE,$P(IBDATA,";",3),$P(IBDATA,";",2))
  1.  ;
  1.  ;  generate report in mailman
  1.  ;N IBFMAIL,IBFPOST
  1.  ;S IBFMAIL=1,IBFPOST=1 D DQ^IBEMTSCR
  1.  ;
  1.  D MES^XPDUTL("        OK, I'm done!")
  1.  ;
  1.  ;  update charge master
  1.  D CM^IB2P167C
  1.  ;
  1.  ;  loop through bills in 350 on hold and update the rate
  1.  D 350^IB20P16A
  1.  ;
  1.  D MES^XPDUTL(" >>  End of the Post-Initialization routine ...")
  1.  Q
  1.  ;
  1.  ;
  1.  ;;piece 1 = stop code
  1.  ;;piece 2 = description
  1.  ;;piece 3 = billable type (s=specialty, p=primary, n=nonbillable)
  1. STOPCODE ;;  list of stop codes to add to file 352.5
  1.  ;;101;EMERGENCY UNIT;S
  1.  ;;102;ADMIT/SCREENING;P
  1.  ;;103;TELEPHONE TRIAGE;N
  1.  ;;104;PULMONARY FUNCT;S
  1.  ;;105;X-RAY;N
  1.  ;;106;EEG;S
  1.  ;;107;EKG;N
  1.  ;;108;LABORATORY;N
  1.  ;;109;NUCLEAR MEDICINE;S
  1.  ;;115;ULTRASOUND;S
  1.  ;;116;RESPIRATORY THERAPY;S
  1.  ;;117;NURSING;N
  1.  ;;118;HOME TRTMT SVCS;P
  1.  ;;119;CNH FOLLOW-UP;P
  1.  ;;120;HEALTH SCREENING;N
  1.  ;;121;RESID CARE-NON MH;P
  1.  ;;122;PUB  HEALTH NURS;N
  1.  ;;123;NUTR/DIET - IND;P
  1.  ;;124;NUTR/DIET - GRP;P
  1.  ;;125;SOCIAL WORK SVC;P
  1.  ;;126;EVOKED POTENTIAL;S
  1.  ;;127;TOPO  BRAIN MAP;S
  1.  ;;128;PROL VIDEO - EEG;S
  1.  ;;144;RADIONUC THERAPY;S
  1.  ;;145;PHARMAC PHYSIOL;S
  1.  ;;146;PET;S
  1.  ;;147;PHONE/ANCILLARY;N
  1.  ;;148;PHONE/DIAGNOSTIC;N
  1.  ;;149;RAD THERAPY TRMT;S
  1.  ;;150;COMPUT TOMOGRA (CT);S
  1.  ;;151;MAG RES IMAG (MRI);S
  1.  ;;152;ANGIOGR CATHETERIZ;S
  1.  ;;153;INTERVEN RARIOGRAPH;S
  1.  ;;160;CLINICAL PHARM;N
  1.  ;;165;BEREAVE. COUNSEL;N
  1.  ;;166;CHAPLAIN-IND;N
  1.  ;;167;CHAPLAIN-GROUP;N
  1.  ;;168;CHAPLAIN COLLATERAL;N
  1.  ;;169;TELEPHONE/CHAPLAIN;N
  1.  ;;170;HBPC PHYSICIAN;P
  1.  ;;171;HBPC-RN/RNP/PA;P
  1.  ;;172;HBPC-NURSE EXTEND;P
  1.  ;;173;HBPC-SOCIAL WORK;P
  1.  ;;174;HBPC-THERAPIST;P
  1.  ;;175;HBPC DIETICIAN;P
  1.  ;;176;HBPC-CLIN PHARMACY;P
  1.  ;;177;HBPC-OTHER;P
  1.  ;;178;TELEPHONE/HBHC;N
  1.  ;;179;TELE HOME CARE;N
  1.  ;;180;DENTAL;P
  1.  ;;181;TELEPHONE/DENTAL;N
  1.  ;;190;ADULT DAY HEALTH;P
  1.  ;;201;PM & RS;S
  1.  ;;202;REC THERAPY SERVICES;N
  1.  ;;203;AUDIOLOGY;S
  1.  ;;204;SPEECH PATHOLOGY;S
  1.  ;;205;PHYSICAL THERAPY;P
  1.  ;;206;OCCUPATION THPY;P
  1.  ;;207;PM & RS INCENTIVE;N
  1.  ;;208;PM & RS COMP WORK;N
  1.  ;;209;VIST COORD.;N
  1.  ;;210;SCI;S
  1.  ;;211;POST-AMPUTATION;S
  1.  ;;212;EMG;S
  1.  ;;213;PM & RS VOC ASSIST;N
  1.  ;;214;KINESIOTHERAPY;P
  1.  ;;215;SCI HOME PROGRAM;N
  1.  ;;216;PHONE REHAB SUPP;N
  1.  ;;217;BROS-BLIND REHAB SPEC;S
  1.  ;;218;CAT BLIND REHAB;S
  1.  ;;290;OBSERVATION MEDICINE;S
  1.  ;;291;OBSERVATION SURGERY;S
  1.  ;;292;OBSERV PSYCHIATRY;S
  1.  ;;293;OBSERVATION NEUROLOGY;S
  1.  ;;295;OBSERV SPINAL CORD;S
  1.  ;;296;OBSERV REHABILITATION;S
  1.  ;;301;GENERAL INT MED;P
  1.  ;;302;ALLERGY IMMUNOL;S
  1.  ;;303;CARDIOLOGY;S
  1.  ;;304;DERMATOLOGY;S
  1.  ;;305;ENDOCR/METAB;S
  1.  ;;306;DIABETES;S
  1.  ;;307;GASTROENTEROLOGY;S
  1.  ;;308;HEMATOLOGY;S
  1.  ;;309;HYPERTENSION;P
  1.  ;;310;INFECTIOUS DIS;S
  1.  ;;311;PACEMAKER;S
  1.  ;;312;PULMONARY/CHEST;S
  1.  ;;313;RENAL/NEPHROL;S
  1.  ;;314;RHEUM/ARTHRITIS;S
  1.  ;;315;NEUROLOGY;S
  1.  ;;316;ONCOLOGY/TUMOR;S
  1.  ;;317;COUMADIN CLINIC;P
  1.  ;;318;GERIATRIC CLINIC;S
  1.  ;;319;GERIAT EVAL/MGT (GEM);P
  1.  ;;320;ALZH/DEMEN/CLIN;S
  1.  ;;321;GI ENDOSCOPY;S
  1.  ;;322;WOMENS CLINIC;P
  1.  ;;323;PRIM CARE/MED;P
  1.  ;;324;PHONE MEDICINE;N
  1.  ;;325;PHONE NEUROLOGY;N
  1.  ;;326;PHONE GERIATRICS;N
  1.  ;;327;INVASIVE O.R. PROC;S
  1.  ;;328;MED/SURG DAY MSDU;P
  1.  ;;329;MEDICAL PROC UNIT;S
  1.  ;;330;CHEMO UNIT-MED;S
  1.  ;;331;PRE-BED M.D.- MED;S
  1.  ;;332;PRE-BED R.N.- MED;S
  1.  ;;333;CARDIAC CATH;S
  1.  ;;334;CARDIAC STRESS TEST;S
  1.  ;;350;GERIATRIC PRIM CARE;P
  1.  ;;401;GENERAL SURGERY;S
  1.  ;;402;CARDIAC SURGERY;S
  1.  ;;403;ENT;S
  1.  ;;404;GYNECOLOGY;S
  1.  ;;405;HAND SURGERY;S
  1.  ;;406;NEUROSURGERY;S
  1.  ;;407;OPHTHALMOLOGY;S
  1.  ;;408;OPTOMETRY;S
  1.  ;;409;ORTHOPEDICS;S
  1.  ;;410;PLASTIC SURGERY;S
  1.  ;;411;PODIATRY;P
  1.  ;;412;PROCTOLOGY;S
  1.  ;;413;THORACIC SURGERY;S
  1.  ;;414;UROLOGY;S
  1.  ;;415;VASCULAR SURGERY;S
  1.  ;;416;AMB SURG EVAL(NON-MD);N
  1.  ;;417;PROSTH/ORTHOTICS;N
  1.  ;;418;AMPUTATION CLIN;S
  1.  ;;419;ANES PRE/POST-OP CONS;S
  1.  ;;420;PAIN CLINIC;S
  1.  ;;421;VASCULAR LAB;S
  1.  ;;422;CAST CLINIC;N
  1.  ;;423;PROSTHETICS SVCS;N
  1.  ;;424;PHONE SURGERY;N
  1.  ;;425;TELE/PROSTH/ORTH;N
  1.  ;;426;WOMEN SURGERY;S
  1.  ;;428;TELEPHONE OPTOMETRY;N
  1.  ;;429;OUTPAT CARE IN O.R.;S
  1.  ;;430;CYSTO ROOM UNIT;N
  1.  ;;431;CHEMO UNIT-SURG;S
  1.  ;;432;PRE-BED MD-SURG;S
  1.  ;;433;PRE-BED RN-SURG;S
  1.  ;;435;SURGICAL PROC UNIT;S
  1.  ;;450;C & P EXAMS;N
  1.  ;;451;451-LOCAL CREDIT PAIR;N
  1.  ;;452;452-LOCAL CREDIT PAIR;N
  1.  ;;453;453-LOCAL CREDIT PAIR;N
  1.  ;;454;SPECIAL REGISTRY 5;N
  1.  ;;455;455-LOCAL CREDIT PAIR;N
  1.  ;;456;SPECIAL REGISTRY 6;N
  1.  ;;459;SPECIAL REGISTRY 8;N
  1.  ;;460;460-LOCAL CREDIT PAIR;N
  1.  ;;461;SPECIAL REGISTRY 1;N
  1.  ;;462;462-LOCAL CREDIT PAIR;N
  1.  ;;463;463-LOCAL CREDIT PAIR;N
  1.  ;;464;464-LOCAL CREDIT PAIR;N
  1.  ;;465;465-LOCAL CREDIT PAIR;N
  1.  ;;466;466-LOCAL CREDIT PAIR;N
  1.  ;;467;467-LOCAL CREDIT PAIR;N
  1.  ;;472;472-LOCAL CREDIT PAIR;N
  1.  ;;473;473-LOCAL CREDIT PAIR;N
  1.  ;;474;RESEARCH;N
  1.  ;;475;475-LOCAL CREDIT PAIR;N
  1.  ;;478;478-LOCAL CREDIT PAIR;N
  1.  ;;479;SPECIAL REGISTRY 4;N
  1.  ;;481;481-LOCAL CREDIT PAIR;N
  1.  ;;483;483-LOCAL CREDIT PAIR;N
  1.  ;;502;MENTAL HEALTH-IND;P
  1.  ;;503;MEN HLTH RESID CARE;P
  1.  ;;505;DAY TRMT-IND;N
  1.  ;;506;DAY HOSPITAL-IND;N
  1.  ;;509;PSYCHIATRY-IND;S
  1.  ;;510;PSYCHOLOGY-IND;S
  1.  ;;512;PSYCHIATRY CONS;S
  1.  ;;513;SUBST ABUSE-IND;P
  1.  ;;514;SUBST ABUSE-HOME;P
  1.  ;;516;PTSD GROUP;P
  1.  ;;519;SUBST/PTSD TEAMS;N
  1.  ;;520;LT ENHANCE INDIV;P
  1.  ;;521;LT ENHANCE GROUP;P
  1.  ;;522;HUD-VASH;N
  1.  ;;523;OPIOID SUBSTITUTION;N
  1.  ;;524;ACT DUTY SEX TRAUMA;N
  1.  ;;525;WOM STRESS TREAT;N
  1.  ;;527;PHONE GENERAL PSYCH;N
  1.  ;;528;PHONE/HMLESS MENT ILL;N
  1.  ;;529;HCHV/HMI;N
  1.  ;;530;TELEPHONE/HUD-VASH;N
  1.  ;;531;MH PRIM CARE TEAM-IND;P
  1.  ;;532;PSYC/SOC REHAB-IND;P
  1.  ;;535;MH VOCAT ASSIST;N
  1.  ;;536;TELE/MH VOC ASSIST;N
  1.  ;;537;TELE PSYC/SOC REHAB;N
  1.  ;;538;PSYCHOLOGICAL TESTING;S
  1.  ;;540;PTSD CL TEAM-PCT;N
  1.  ;;542;TELEPHONE PTSD;N
  1.  ;;545;TELE SUBSTANCE ABUSE;N
  1.  ;;546;TELEPHONE/MHICM;N
  1.  ;;547;INTEN SUBS ABUSE TRT;N
  1.  ;;550;MENTAL HYG-GRP;P
  1.  ;;552;MENT HLT INT (MHICM);N
  1.  ;;553;DAY TRMT-GRP;N
  1.  ;;554;DAY HOSPITAL-GRP;N
  1.  ;;557;PSYCHIATRY-GROUP;P
  1.  ;;558;PSYCHOLOGY-GROUP;P
  1.  ;;559;PSY/SOC REHAB-GRP;P
  1.  ;;560;SUBST ABUSE-GRP;P
  1.  ;;561;PCT PTSD-GRP;N
  1.  ;;562;PTSD-INDIVIDUAL;S
  1.  ;;563;MH PRIM CARE TEAM-GRP;N
  1.  ;;564;MH TEAM CASE MGT;N
  1.  ;;573;MH INCEN THER-GRP;N
  1.  ;;574;MH COMP WK THER-GRP;N
  1.  ;;575;MH VOCAT ASSIST-GRP;N
  1.  ;;576;PSYCHOGERIA CLIN/INDV;P
  1.  ;;577;PSYCHOGERIA CLIN/GRP;P
  1.  ;;578;PSYCHOGERIA DAY PGM;P
  1.  ;;579;TEL/PSYCHOGERIATRICS;N
  1.  ;;580;PTSD DAY HOSP;N
  1.  ;;581;PTSD DAY TREAT;N
  1.  ;;589;N.A. DUTY SEX TRAUMA;N
  1.  ;;590;COMM OUTR HMLS-STAFF;N
  1.  ;;602;CHRON AST H-DIAL;S
  1.  ;;603;LIM SELF H-DIAL;S
  1.  ;;604;HOME H-DIAL TRNG;S
  1.  ;;606;CHRON AST P-DIAL;S
  1.  ;;607;LIM SELF P-DIAL;S
  1.  ;;608;HOME P-DIAL TRNG;N
  1.  ;;610;CONTRACT DIALYSIS;S
  1.  ;;611;TELEPHONE DIALYSIS;N
  1.  ;;650;CONTRACT NH DAYS;N
  1.  ;;651;STATE NH DAYS;N
  1.  ;;652;STATE DOM DAYS;N
  1.  ;;680;HOME/COMM ASSESS;N
  1.  ;;681;VA-PD HOME/COMM HC;N
  1.  ;;682;VA-REF HOME/COMM CARE;N
  1.  ;;702;CHOLESTER SCREEN;N
  1.  ;;703;MAMMOGRAM;N
  1.  ;;706;ALCOHOL SCREEN;N
  1.  ;;707;SMOKING CESSATION;N
  1.  ;;708;NUTRITION;N
  1.  ;;709;PHYS FIT/EXER CS;N
  1.  ;;710;INFLUENZA IMMUNIZ;N
  1.  ;;711;INJ CS/SEAT BELT;N
  1.  ;;725;DOM OUTREACH SERVICE;N
  1.  ;;726;DOM AFTERCARE COMMUN;N
  1.  ;;727;DOM AFTERCARE-VA;N
  1.  ;;728;DOM ADMIT/SCREEN SVC;P
  1.  ;;729;TELEPHONE/DOMICILIARY;N
  1.  ;;730;DOM GENERAL CARE;N
  1.  ;;731;PRRTP GENERAL CARE;N
  1.  ;;999;EMPLOYEE HEALTH;N