source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SDSTPD1.m@ 1397

SDSTPD1 ;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
 ;
MODSC ;read and store data in ^UTILITY
 ;
 N ECX,ECXX,CNT
 S CNT=1
 F ECX=1:1 S ECXX=$P($T(STPCD+ECX),";;",2) Q:ECXX="QUIT"  D
 .S ^UTILITY("STPCODE",SDJ,CNT)=ECXX,CNT=CNT+1
 F ECX=1:1 S ECXX=$P($T(STPCD+ECX^SDSTPD2),";;",2) Q:ECXX="QUIT"  D
 .S ^UTILITY("STPCODE",SDJ,CNT)=ECXX,CNT=CNT+1
 Q
 ;
STPCD ;stop code format::Stop Code^description^Restriction Type^Restrict Date
 ;;1^EMERGENCY UNIT^E^^10/1/87
 ;;2^ADMITTING/SCREENING^E^^10/1/87
 ;;4^PULMONARY FUNCTION^E^^10/1/87
 ;;5^X-RAY^E^^10/1/87
 ;;6^EEG^E^^10/1/87
 ;;7^EKG^E^^10/1/87
 ;;8^LABORATORY^E^^10/1/87
 ;;9^NUCLEAR MEDICINE^E^^10/1/87
 ;;10^ULTRASOUND^E^^10/1/87
 ;;12^NURSING^E^^10/1/87
 ;;13^PUB. HEALTH NURSING^E^^10/1/87
 ;;14^NUTRITION/DIETETICS-INDIVIDUAL^E^^10/1/87
 ;;14^NUTRITION/DIETETICS^E^^10/1/87
 ;;15^SOCIAL WORK SVC.^E^^10/1/87
 ;;17^REHAB. MEDICINE^E^^10/1/87
 ;;18^AUDIOLOGY^E^^10/1/87
 ;;19^SPEECH PATHOLOGY^E^^10/1/87
 ;;20^PHYSICAL THERAPY^E^^10/1/87
 ;;21^OCCUPATIONAL THERAPY^E^^10/1/87
 ;;22^KINESIOTHERAPY^E^^10/1/87
 ;;23^COMP. WORK THERAPY^E^^10/1/87
 ;;24^VISUALLY IMPAIRED^E^^10/1/87
 ;;25^SPINAL CORD INJURY^E^^10/1/87
 ;;27^GENERAL MEDICAL^E^^10/1/87
 ;;28^ALLERGY IMMUNOLOGY^E^^10/1/87
 ;;29^CARDIOLOGY^E^^10/1/87
 ;;30^DERMATOLOGY^E^^10/1/87
 ;;31^ENDO/METAB(EXCEPT DIAB.)^E^^10/1/87
 ;;32^DIABETES^E^^10/1/87
 ;;33^GASTROENTEROLOGY^E^^10/1/87
 ;;34^HEMATOLOGY^E^^10/1/87
 ;;35^HYPERTENSION^E^^10/1/87
 ;;36^INFECTIOUS DISEASE^E^^10/1/87
 ;;37^PACEMAKER^E^^10/1/87
 ;;38^PUL./CHEST(TB)^E^^10/1/87
 ;;38^PUL./CHEST(NON-TB)^E^^10/1/87
 ;;39^RENAL/NEPHROL.(EXCEPT DIAL.)^E^^10/1/87
 ;;40^RHEUMATOLOGY/ARTHRITIS^E^^10/1/87
 ;;41^NEUROLOGY^E^^10/1/87
 ;;42^ONCOLOGY/TUMOR^E^^10/1/87
 ;;43^HBHC^E^^10/1/87
 ;;46^DENTAL^E^^10/1/87
 ;;48^ADULT DAY HEALTH CARE^E^^10/1/87
 ;;52^GENERAL SURGERY^E^^10/1/87
 ;;53^CARDIAC SURGERY^E^^10/1/87
 ;;54^ENT^E^^10/1/87
 ;;55^GYNECOLOGY^E^^10/1/87
 ;;56^HAND SURGERY^E^^10/1/87
 ;;57^NEUROSURGERY^E^^10/1/87
 ;;58^OPTHALMOLOGY^E^^10/1/87
 ;;58^OPHTHALMOLOGY^E^^10/1/87
 ;;59^OPTOMETRY^E^^10/1/87
 ;;60^ORTHOPEDICS^E^^10/1/87
 ;;61^PLASTIC SURGERY^E^^10/1/87
 ;;62^PODIATRY^E^^10/1/87
 ;;63^PROCTOLOGY^E^^10/1/87
 ;;64^THORACIC SURGERY^E^^10/1/87
 ;;65^UROLOGY^E^^10/1/87
 ;;66^VASCULAR SURGERY^E^^10/1/87
 ;;67^AMBULATORY SURGERY^E^^10/1/87
 ;;69^PROSTHETICS/ORTHOTICS^E^^10/1/87
 ;;74^AMBULATORY CARE^E^^10/1/87
 ;;76^HCMI^E^^10/1/87
 ;;76^HOMELESS MENTALLY ILL OUTREACH^E^^10/1/87
 ;;77^MENTAL HYGIENE(GROUP)^E^^10/1/87
 ;;78^DAY TREATMENT CENTER^E^^10/1/87
 ;;79^DAY HOSPITAL^E^^10/1/87
 ;;80^DRUG DEPENDENCE^E^^10/1/87
 ;;81^ALCOHOL TREATMENT-INDIVIDUAL^E^^10/1/87
 ;;81^ALCOHOL TREATMENT^E^^10/1/87
 ;;83^MENTAL HYGIENE(INDIV.)^E^^10/1/87
 ;;84^PSYCHIATRY^E^^10/1/87
 ;;85^PSYCHOLOGY^E^^10/1/87
 ;;86^NEUROBEHAVIORAL^E^^10/1/87
 ;;88^RE-ADJUSTMENT COUNSELING^E^^10/1/87
 ;;91^PHARMACY^E^^10/1/87
 ;;92^COMPUTED TOMOGRAPHY SCANS^E^^10/1/87
 ;;93^RADIATION THERAPY^E^^10/1/87
 ;;94^CHEMOTHERAPY^E^^10/1/87
 ;;95^AMBULATORY SURGERY SERVICES^E^^10/1/87
 ;;96^BLOOD/BLOOD PRODUCTS TRANS.^E^^10/1/87
 ;;97^NUCLEAR MAGNETIC RESONANCE^E^^10/1/87
 ;;98^RESEARCH^E^^10/1/87
 ;;99^EMPLOYEE HEALTH^E^^10/1/87
 ;;101^EMERGENCY UNIT^S^10/1/2003^
 ;;102^ADMITTING/SCREENING^E^^^^
 ;;103^TELEPHONE TRIAGE^P^10/1/2003^
 ;;104^PULMONARY FUNCTION^E^^^^
 ;;105^X-RAY^E^^^^
 ;;106^EEG^E^^^^
 ;;107^EKG^P^10/1/2003^
 ;;108^LABORATORY^E^^^^
 ;;109^NUCLEAR MEDICINE^E^^^^
 ;;110^CARDIOVASCULAR NUCLEAR MED^E^^10/1/98
 ;;111^ONCOLOGICAL NUCLEAR MED^E^^10/1/98
 ;;112^INFECTIOUS DISEASE NUCLEAR MED^E^^10/1/98
 ;;113^RADIONUCLIDE TREATMENT^E^^10/1/98
 ;;114^SING PHOTON EMISS TOMOGRAPHY^E^^10/1/98
 ;;115^ULTRASOUND^E^^^^
 ;;116^RESPIRATORY THERAPY^E^^^^
 ;;117^NURSING (2ND ONLY)^S^10/1/2003^
 ;;118^HOME TREATMENT SERVICES^P^10/1/2003^
 ;;119^COMM NURSING HOME FOLLOW-UP^E^^^^
 ;;120^HEALTH SCREENING^E^^^^
 ;;121^RESIDENTIAL CARE (NON-MH)^E^^^^
 ;;122^PUBLIC HEALTH NURSING^E^^^^
 ;;123^NUTRITION/DIETETICS-INDIVIDUAL^E^^^^
 ;;124^NUTRITION/DIETETICS-GROUP^E^^^^
 ;;125^SOCIAL WORK SERVICE^E^^^^
 ;;126^EVOKED POTENTIAL^E^^^^
 ;;127^TOPOGRAPHICAL BRAIN MAPPING^E^^^^
 ;;128^PROLONGED VIDEO-EEG MONITORING^E^^^^
 ;;129^HYPERTENSION SCREENING^E^^10/1/91
 ;;130^CHOLESTEROL SCREENING^E^^10/1/91
 ;;131^BREAST CANCER SCREENING^E^^10/1/91
 ;;132^MAMMOGRAM^E^^10/1/91
 ;;133^CERVICAL CANCER SCREENING^E^^10/1/91
 ;;134^PAP TEST^E^^10/1/91
 ;;135^COLORECTAL CANCER SCREENING^E^^10/1/91
 ;;136^FOBT - GUIAC SCREENING^E^^10/1/91
 ;;137^ALCOHOL COUNSELING - MED CARE^E^^10/1/91
 ;;138^SMOKING CESSATION^E^^10/1/91
 ;;139^WEIGHT CONTROL^E^^10/1/91
 ;;140^PHYS FITNESS/EXERCISE COUNSEL^E^^10/1/91
 ;;141^VET IMMUNIZATION^E^^10/1/91
 ;;142^COLORECTAL CA SCREEN DIG EXAM^E^^10/1/91
 ;;143^PERSIAN GULF READJUST COUNSEL^E^^1/1/88
 ;;144^RADIONUCLIDE THERAPY^E^^^^
 ;;145^PHARM/PHYSIO NMP STUDIES^E^^^^
 ;;146^PET^E^^^^
 ;;147^TELEPHONE/ANCILLARY^P^10/1/2003^
 ;;148^TELEPHONE/DIAGNOSTIC^P^10/1/2003^
 ;;149^RADIATION THERAPY TREATMENT^E^^^^
 ;;150^COMPUTERIZED TOMOGRAPHY (CT)^E^^^^
 ;;151^MAGNETIC RESONANCE IMAGING/MRI^E^^^^
 ;;152^ANGIOGRAM CATHETERIZATION^E^^^^
 ;;153^INTERVENTIONAL RADIOGRAPHY^E^^^^
 ;;154^MEG (MAGNETOENCEPHALOGRAPHY)^E^^^^
 ;;155^INFO ASSISTS TECHNOLOGY^E^^^^
 ;;160^CLINICAL PHARMACY^S^10/1/2003^
 ;;161^TRANSITIONAL PHARMACY BENEFIT CLINIC^P^10/1/2003^
 ;;163^CHAPLAIN-CLINICAL SVCS-INDIV^E^^^^10/1/02
 ;;164^CHAPLAIN-CLINICAL SVCS-GROUP^E^^^^10/1/02
 ;;165^BEREAVEMENT COUNSELING^E^^^^
 ;;166^CHAPLAIN SERVICE - INDIVIDUAL^E^^^^
 ;;167^CHAPLAIN SERVICE - GROUP^E^^^^
 ;;168^CHAPLAIN SERVICE - COLLATERAL^E^^^^
 ;;169^TELEPHONE/CHAPLAIN^P^10/1/2003^
 ;;170^HBPC - PHYSICIAN^P^10/1/2003^
 ;;171^HBPC - RN/RNP/PA^P^10/1/2003^
 ;;172^HBPC - NURSE EXTENDER^P^10/1/2003^
 ;;173^HBPC - SOCIAL WORKER^P^10/1/2003^
 ;;174^HBPC - THERAPIST^P^10/1/2003^
 ;;175^HBPC - DIETITIAN^P^10/1/2003^
 ;;176^HBPC - CLINICAL PHARMACIST^P^10/1/2003^
 ;;177^HBPC - OTHER^P^10/1/2003^
 ;;178^HBPC/TELEPHONE^P^10/1/2003^
 ;;179^HOME TELEVIDEO CARE^S^10/1/2003^
 ;;180^DENTAL^E^^^^
 ;;181^TELEPHONE/DENTAL^P^10/1/2003^
 ;;185^PHYS EXTND NP (NRS PRCNR) 2ND^S^10/1/2003^
 ;;186^PHYS EXTND PA (PHYS ASST) 2ND^S^10/1/2003^
 ;;187^PHYS EXTND CNS (CLN RN SPC)2ND^S^10/1/2003^
 ;;190^ADULT DAY HEALTH CARE^E^^^^
 ;;201^PHYSICAL MED & REHAB SVC^E^^^^
 ;;202^RECREATION THERAPY SERVICE^E^^^^
 ;;203^AUDIOLOGY^E^^^^
 ;;204^SPEECH PATHOLOGY^E^^^^
 ;;205^PHYSICAL THERAPY^E^^^^
 ;;206^OCCUPATIONAL THERAPY^E^^^^
 ;;207^PM&RS INCENTIVE THERAPY^E^^^^
 ;;208^PM&RS COMPENSATED WORK THERAPY^E^^^^
 ;;209^VIST COORDINATOR^E^^^^
 ;;210^SPINAL CORD INJURY^E^^^^
 ;;211^AMPUTATION FOLLOW-UP CLINIC^E^^^^
 ;;212^EMG - ELECTROMYOGRAM^E^^^^
 ;;213^PM&RS VOCATIONAL ASSISTANCE^E^^^^
 ;;214^KINESIOTHERAPY^E^^^^
 ;;215^SCI HOME CARE PROGRAM^E^^^^
 ;;216^TELEPHONE/REHAB AND SUPPORT^P^10/1/2003^
 ;;217^BROS (BLIND REHAB O/P SPEC)^E^^^^
 ;;218^CAT BLIND REHAB^E^^^^
 ;;219^TBI (TRAUMATIC BRAIN INJURY)^E^^^^
 ;;220^VISOR (VISUAL IMPAIRMENT OUTPA^E^^^^
 ;;290^OBSERVATION MEDICINE^P^10/1/2003^
 ;;291^OBSERVATION SURGERY^P^10/1/2003^
 ;;292^OBSERVATION PSYCHIATRY^P^10/1/2003^
 ;;293^OBSERVATION NEUROLOGY^P^10/1/2003^
 ;;294^OBSERVATION BLIND REHAB^P^10/1/2003^
 ;;295^OBSERVATION SPINAL CORD^P^10/1/2003^
 ;;296^OBSERVATION REHABILITATION^P^10/1/2003^
 ;;301^GENERAL INTERNAL MEDICINE^E^^^^
 ;;302^ALLERGY IMMUNOLOGY^E^^^^
 ;;303^CARDIOLOGY^E^^^^
 ;;304^DERMATOLOGY^E^^^^
 ;;305^ENDO./METAB (EXCEPT DIABETES)^E^^^^
 ;;306^DIABETES^E^^^^
 ;;307^GASTROENTEROLOGY^E^^^^
 ;;308^HEMATOLOGY^E^^^^
 ;;309^HYPERTENSION^E^^^^
 ;;310^INFECTIOUS DISEASE^E^^^^
 ;;311^PACEMAKER^E^^^^
 ;;312^PULMONARY/CHEST^E^^^^
 ;;313^RENAL/NEPHROL(EXCEPT DIALYSIS)^E^^^^
 ;;314^RHEUMATOLOGY/ARTHRITIS^E^^^^
 ;;315^NEUROLOGY^E^^^^
 ;;316^ONCOLOGY/TUMOR^E^^^^
 ;;317^COUMADIN CLINIC^E^^^^
 ;;318^GERIATRIC CLINIC^E^^^^
 ;;319^GERIATRIC EVAL. & MGMT. (GEM)^E^^^^
 ;;320^ALZHEIMER'S/DEMENTIA CLINIC^E^^^^
 ;;321^GI ENDOSCOPY^E^^^^
 ;;322^WOMEN'S CLINIC^E^^^^
 ;;323^PRIMARY CARE/MEDICINE^E^^^^
 ;;324^TELEPHONE/MEDICINE^P^10/1/2003^
 ;;325^TELEPHONE/NEUROLOGY^P^10/1/2003^
 ;;326^TELEPHONE/GERIATRICS^P^10/1/2003^
 ;;327^MED MD PERFORM INVASVE OR PROC^P^10/1/2003^
 ;;328^MEDICAL/SURGICAL DAY UNIT MSDU^E^^^^
 ;;329^MEDICAL PROCEDURE UNIT^E^^^^
 ;;330^CHEMOTHERAPY PROC. UNIT-MED.^E^^^^
 ;;331^PRE-BED CARE MD (MEDICINE)^E^^^^
 ;;332^PRE-BED CARE RN (MEDICINE)^E^^^^
 ;;333^CARDIAC CATHETERIZATION^E^^^^
 ;;334^CARDIAC STRESS TEST/ETT^E^^^^
 ;;335^PADRECC PARKINSON'SDISEASERECC^E^^^^
 ;;350^GERIATRIC PRIMARY CARE^E^^^^
 ;;351^ADVNCD ILLNESS COOR CARE(AICC)^E^^^^
 ;;370^LTC SCREENING (2ND ONLY)^S^10/1/2003^
 ;;QUIT