source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDSTPD1.m@ 861

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