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

SDSTPD1.m

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