VistA-WorldVistAEHR/r/SCHEDULING-SD-SC/SDSTPD2.m

196 lines
7.6 KiB
Mathematica

SDSTPD2 ;ALB/JAM - Clinic Stop Code file Update; 07/07/03
;;5.3;Scheduling;**317**;Aug 13, 1993
;
;this routine is used as a post-init in a KIDS build
;to store stop codes in a ^UTILITY global that will be used to modify
;the CLINIC STOP file #40.7
;
STPCD ;stop code format::Stop Code^description^Restriction Type^Restrict Date
;;401^GENERAL SURGERY^E^^^^
;;402^CARDIAC SURGERY^E^^^^
;;403^ENT^E^^^^
;;404^GYNECOLOGY^E^^^^
;;405^HAND SURGERY^E^^^^
;;406^NEUROSURGERY^E^^^^
;;407^OPHTHALMOLOGY^E^^^^
;;408^OPTOMETRY^E^^^^
;;409^ORTHOPEDICS^E^^^^
;;410^PLASTIC SURGERY^E^^^^
;;411^PODIATRY^E^^^^
;;412^PROCTOLOGY^E^^^^
;;413^THORACIC SURGERY^E^^^^
;;414^UROLOGY^E^^^^
;;415^VASCULAR SURGERY^E^^^^
;;416^AMB SURGERY EVAL BY NON-MD^E^^^^
;;417^PROSTHETICS/ORTHOTICS^E^^^^
;;418^AMPUTATION CLINIC^E^^^^
;;419^ANESTHESIA PRE/POST-OP CONSULT^E^^^^
;;420^PAIN CLINIC^E^^^^
;;421^VASCULAR LABORATORY^E^^
;;422^CAST CLINIC^E^^^^
;;423^PROSTHETIC SUPPLY DISPENSED^E^^^^
;;424^TELEPHONE/SURGERY^P^10/1/2003^
;;425^TELEPHONE/PROSTHETICS/ORTHOTIC^P^10/1/2003^
;;426^WOMEN SURGERY^E^^^^
;;427^PRIMARY CARE/SURGERY^E^^10/1/97
;;428^TELEPHONE/OPTOMETRY^P^10/1/2003^
;;429^OUTPATIENT CARE IN OR^P^10/1/2003^
;;430^CYSTO ROOM UNIT FOR OUTPATIENT^E^^^^
;;431^CHEMOTHERAPY PROC. UNIT-SURG.^E^^^^
;;432^PRE-BED CARE MD (SURGERY)^E^^^^
;;433^PRE-BED CARE RN (SURGERY)^E^^^^
;;435^SURGICAL PROCEDURE UNIT^E^^^^
;;436^CHIROPRACTIC CARE IN MED CTR^E^^^^
;;449^FITTING & ADJSTMNTS 2ND ONLY^S^10/1/2003^
;;450^COMPENSATION & PENSION^S^10/1/2003^
;;457^TRANSPLANT^S^10/1/2003^
;;474^RESEARCH^S^10/1/2003^
;;480^COMPREHENSIVE FUNDOSCOPY^S^10/1/2003^
;;481^BRONCHOSCOPY^S^10/1/2003^
;;501^HOMELESS MENTALLY ILL OUTREACH^E^^10/1/94
;;502^MENTAL HEALTH CLINIC - IND^E^^^^
;;503^MH RESIDENTIAL CARE IND^E^^^^
;;504^IPCC MEDICAL CENTER VISIT^E^^4/1/97
;;505^DAY TREATMENT-INDIVIDUAL^E^^^^
;;506^DAY HOSPITAL-INDIVIDUAL^E^^^^
;;507^DRUG DEPENDENCE-INDIVIDUAL^E^^4/1/97
;;508^ALCOHOL TREATMENT-INDIVIDUAL^E^^4/1/97
;;509^PSYCHIATRY-MD INDIVIDUAL^E^^^^
;;510^PSYCHOLOGY-INDIVIDUAL^E^^^^
;;511^NEUROBEHAVIORAL-INDIVIDUAL^E^^10/1/93
;;512^PSYCHIATRY CONSULTATION^E^^
;;513^SUBSTANCE ABUSE - INDIVIDUAL^E^^^^
;;514^SUBSTANCE ABUSE - HOME VISIT^E^^^^
;;515^CWT/TR-HCMI^E^^4/1/97
;;516^PTSD - GROUP^E^^^^
;;516^PTSD - GROUP^E^^^^
;;517^CWT SUBSTANCE ABUSE^E^^4/1/97
;;518^CWT/TR-SUBSTANCE ABUSE^E^^4/1/97
;;519^SUBST USE DISORDER/PTSD TEAMS^E^^^^
;;520^LONG-TERM ENHANCEMENT, INDIVID^E^^^^
;;521^LONG-TERM ENHANCEMENT, GROUP^E^^^^
;;522^HUD/VASH^E^^^^
;;523^OPIOID SUBSTITUTION^E^^^^
;;524^ACTIVE DUTY SEX TRAUMA^E^^^^
;;525^WOMEN'S STRESS DISORDER TEAMS^E^^^^
;;526^TELEPHONE/SPECIAL PSYCHIATRY^E^^4/1/97
;;527^TELEPHONE/GENERAL PSYCHIATRY^P^10/1/2003^
;;528^TELE/HOMELESS MENTALLY ILL^P^10/1/2003^
;;529^HCHV/HMI^P^10/1/2003^
;;530^TELEPHONE/HUD-VASH^P^10/1/2003^
;;531^MH PRIMARY CARE TEAM - IND^E^^^^
;;532^PSYCHOSOCIAL REHAB - IND^E^^^^
;;533^MH INTERVNTION BIOMED CARE IND^E^^^^
;;535^MH VOCATIONAL ASSISTANCE - IND^E^^^^
;;536^TELEPHONE/MH VOC ASSISTANCE^P^10/1/2003^
;;537^TELEPHONE/PSYCHOSOCIAL REHAB^P^10/1/2003^
;;538^PSYCHOLOGICAL TESTING^E^^^^
;;540^PCT POST-TRAUMATIC STRESS-IND^P^10/1/2003^
;;541^PTSD POST-TRAUMATIC STRESS^E^^1/1/91
;;542^TELEPHONE/PTSD^P^10/1/2003^
;;543^TELEPHONE/ALCOHOL DEPENDENCE^E^^4/1/97
;;544^TELEPHONE/DRUG DEPENDENCE^E^^4/1/97
;;545^TELEPHONE/SUBSTANCE ABUSE^P^10/1/2003^
;;546^TELEPHONE/MHICM^P^10/1/2003^
;;547^INTENSIVE SUBSTANCE ABUSE TRMT^E^^^^
;;550^MENTAL HEALTH CLINIC-GROUP^E^^^^
;;551^IPCC COMM CLN/DAY PROGRAM VST^E^^4/1/97
;;552^MENTAL HLT INT CASE MGT(MHICM)^P^10/1/2003^
;;553^DAY TREATMENT-GROUP^E^^^^
;;554^DAY HOSPITAL-GROUP^E^^^^
;;555^DRUG DEPENDENCE-GROUP^E^^4/1/97
;;555^DRUG DEPENDENCE-GROUP^E^^4/1/97
;;556^ALCOHOL TREATMENT-GROUP^E^^4/1/97
;;557^PSYCHIATRY - MD GROUP^E^^^^
;;558^PSYCHOLOGY-GROUP^E^^^^
;;559^PSYCHOSOCIAL REHAB - GROUP^E^^^^
;;560^SUBSTANCE ABUSE - GROUP^E^^^^
;;561^PCT-POST TRAUMATIC STRESS-GRP^P^10/1/2003^
;;562^PTSD - INDIVIDUAL^E^^^^
;;562^PTSD - INDIVIDUAL^E^^^^
;;563^MH PRIMARY CARE TEAM - GROUP^E^^^^
;;564^MH TEAM CASE MANAGEMENT^E^^^^
;;565^MH MEDICAL CARE ONLY-GROUP^E^^^^
;;566^MH RISK-FACTOR-REDUCTION ED GR^E^^^^
;;567^MHICM GRP MTLHLTH INTSV CS MGT^P^10/1/2003^
;;571^READJUSTMENT COUNSELING-INDIV^E^^JAN 31,1994
;;572^READJUSTMENT COUNSELING-GROUP^E^^JAN 31,1994
;;573^MH INCENTIVE THERAPY - GROUP^E^^^^
;;574^MH COMP WORK THERAPY (CWT) GRP^E^^^^
;;575^MH VOCATIONAL ASSISTANCE-GRP^E^^^^
;;576^PSYCHOGERIATRIC - INDIVIDUAL^E^^^^
;;577^PSYCHOGERIATRIC CLINIC - GROUP^E^^^^
;;578^PSYCHOGERIATRIC DAY PROGRAM^E^^^^
;;579^TELEPHONE/PSYCHOGERIATRICS^P^10/1/2003^
;;580^PTSD DAY HOSPITAL^E^^^^
;;581^PTSD DAY TREATMENT^E^^^^
;;589^NON-ACTIVE DUTY SEX TRAUMA^E^^^^
;;590^COMM OUTREACH HOMELESS VETS^E^^^^
;;601^ACUTE HEMODIAL TREATMENT^E^^10/1/90
;;602^CHRON ASSISTED HEMODIAL TREAT^P^10/1/2003^
;;603^LIM SELF CARE HEMODIAL TREAT^P^10/1/2003^
;;604^HOME/SELF HEMODIAL TRAIN TREAT^P^10/1/2003^
;;605^ACUTE PERITONEAL DIAL TREAT^P^10/1/2003^10/1/90
;;606^CHRON ASSISTED PERIT DIALYSIS^P^10/1/2003^
;;607^LIM SELF CARE PERIT DIALYSIS^P^10/1/2003^
;;608^HOME/SELF PERIT DIALYSIS TRAIN^P^10/1/2003^
;;610^CONTRACT DIALYSIS^P^10/1/2003^
;;611^TELEPHONE/DIALYSIS^P^10/1/2003^
;;640^SEND-OUT PROCS NOT FEE^P^10/1/2003^
;;641^SEND-OUT PROCS-DOD NOT FEE^P^10/1/2003^
;;642^SEND-OUT PROCS FEE^P^10/1/2003^
;;650^CONTRACT NURSING HOME DAYS^P^10/1/2003^
;;651^STATE NURSING HOME DAYS^P^10/1/2003^
;;652^STATE DOMICILIARY HOME DAYS^P^10/1/2003^
;;653^STATE HOSPITAL CARE^P^10/1/2003^
;;654^NON VA RESIDENTIAL CARE DAYS^P^10/1/2003^
;;655^COMMUNITY NON-VA CARE^P^10/1/2003^
;;656^DOD NON-VA CARE^P^10/1/2003^
;;657^ASSIST LIVING VENDOR WORK^P^10/1/2003^
;;660^CHIROPRACTIC CARE OUTSIDE VA^P^10/1/2003^
;;670^ASSIST LIVING, VHA-PAID STAFF^P^10/1/2003^
;;680^HOME/COMMUN HEALTHCARE ASSESS^E^^^^
;;681^VA-PAID HOME/COMMUN HEALTHCARE^P^10/1/2003^
;;682^VA-REFER HOME/COMMUN CARE PROV^P^10/1/2003^
;;683^NONVIDEO HOME TELEHEALTH MONIT^P^10/1/2003^
;;684^NONVIDEO HOME TELEHEALTH INTER^S^10/1/2003^
;;690^TELEMEDICINE^S^10/1/2003^
;;691^PRE-EMP PHYS MILITRY PERSONNEL^E^^^^
;;692^TELMD CNSLT SM STA 2ND ONLY^S^10/1/2003^
;;693^TELMD CNSLT NOT SM STA 2NDONLY^S^10/1/2003^
;;701^BLOOD PRESSURE CHECK^S^10/1/2003^
;;702^CHOLESTEROL SCREENING^S^10/1/2003^10/1/02
;;703^MAMMOGRAM (CAN BE PRIMARY)^E^^^^
;;704^PAP TEST^S^10/1/2003^
;;705^FOBT - GUIAC SCREENING^S^10/1/2003^10/1/02
;;706^ALCOHOL SCREENING^S^10/1/2003^
;;707^SMOKING CESSATION^S^10/1/2003^
;;708^NUTRITION^S^10/1/2003^10/1/02
;;709^PHY FIT/EXERCISE COUNSELING^S^10/1/2003^10/1/02
;;710^INFLUENZA IMMUNIZATION^S^10/1/2003^
;;711^INJURY COUNSEL/SEAT BELT USAGE^S^10/1/2003^10/1/02
;;712^HEP C REGISTRY PATIENT^S^10/1/2003^
;;713^GAMBLING ADDICTION (2ND ONLY)^S^10/1/2003^
;;714^OTHER EDUCATION 2ND ONLY^S^10/1/2003^
;;715^ONGOING TRTMT (NON-MH) 2ND^S^10/1/2003^
;;716^POST SURG RTINE AFTRCARE 2ND^S^10/1/2003^
;;725^DOMICILIARY OUTREACH SERVICES^E^^^^
;;726^DOM AFTERCARE - COMMUNITY^E^^^^
;;727^DOMICILIARY AFTERCARE - VA^E^^^^
;;728^DOMICILIARY ADM SCREENING SVCS^E^^^^
;;729^TELEPHONE/DOMICILIARY^P^10/1/2003^
;;730^DOM GENERAL CARE^E^^^^
;;731^PRRTP GENERAL CARE^E^^^^
;;801^IN-VISN, OTHER VAMC 2ND ONLY^S^10/1/2003^
;;802^OUT OF VISN, VA 2NDARY ONLY^S^10/1/2003^
;;803^COMMERCIAL 2NDARY ONLY^S^10/1/2003^
;;900^SPECIAL SERVICES^E^^10/1/98
;;902^COMPUTED TOMOGRAPHY SCANS^E^^4/1/89
;;903^RADIATION THERAPY^E^^4/1/89
;;904^CHEMOTHERAPY^E^^3/1/89
;;905^AMBULATORY SURGERY SERVICES^E^^4/1/89
;;906^BLOOD/BLOOD PRODUCTS TRANS.^E^^4/1/89
;;907^NUCLEAR MAGNETIC RESONANCE^E^^4/1/89
;;999^EMPLOYEE HEALTH^P^10/1/2003^
;;QUIT