source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDSTPD1.m@ 1424

Last change on this file since 1424 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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