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

DVBAP206.m

Go to the documentation of this file.
  1. DVBAP206 ;ALB/JR - AMIE EXAM (#396.6) FILE UPDATE ;7/9/2018 12:00PM
  1. ;;2.7;AMIE;**206**;Apr 10, 1995;Build 10
  1. ;
  1. ;this routine is used as a post-init in a KIDS build
  1. ;to modify the AMIE EXAM file (#396.6)
  1. ;
  1. Q
  1. ;
  1. POST ; entry point
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Updating the AMIE EXAM file (#396.6)...")
  1. D MES^XPDUTL(" ")
  1. ;
  1. D NAMECHG ;change exam names
  1. D INACT ;inactivate exams
  1. ;
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Update of AMIE EXAM file (#396.6) completed.")
  1. D MES^XPDUTL(" ")
  1. Q
  1. NAMECHG ;* change exam names
  1. ;
  1. ; DVBAXX is in format:
  1. ; OLD EXAM NAME^NEW EXAM NAME
  1. ;
  1. N DVBAX,DVBAXX,DVBADA,DA,DR,DIC,DIE,X,Y,DVBASTR
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Changing names in AMIE EXAM file (#396.6)...")
  1. D MES^XPDUTL(" ")
  1. F DVBAX=1:1 S DVBAXX=$P($T(CHNG+DVBAX),";;",2) Q:DVBAXX="QUIT" D
  1. .F DVBADA=0:0 S DVBADA=+$O(^DVB(396.6,"B",$E($P(DVBAXX,U,1),1,30),DVBADA)) Q:DVBADA=0 D
  1. ..I $D(^DVB(396.6,DVBADA,0)),$P(^DVB(396.6,DVBADA,0),U,5)="A" D
  1. ...S DA=DVBADA,DR=".01///^S X=$P(DVBAXX,U,2)",DIE="^DVB(396.6," D ^DIE
  1. ...D MES^XPDUTL(" ")
  1. ...D MES^XPDUTL(" Entry #"_DVBADA_" for "_$P(DVBAXX,U,1))
  1. ...D BMES^XPDUTL(" ... field (#.01) updated to "_$P(DVBAXX,U,2)_".")
  1. ...D MES^XPDUTL(" ")
  1. ..I '$D(^DVB(396.6,DVBADA,0)) D
  1. ...D MES^XPDUTL(" ")
  1. ...S DVBASTR="Can't find entry for "_$P(DVBAXX,U,1)
  1. ...D BMES^XPDUTL(DVBASTR_" ...field (#.01) not updated.")
  1. Q
  1. ;
  1. CHNG ;name changes - old exam name^new exam name
  1. ;;AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION^Aid and Attendance or Housebound Examination
  1. ;;BONES (FRACTURES AND BONE DISEASE)^Bones (Fractures and Bone Diseases)
  1. ;;DBQ DENTAL Dental & oral (other than TMJ)^DBQ DENTAL Dental & oral (other than TMD)
  1. ;;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver^DBQ GI Liver Hepatitis, cirrhosis & other liver conditions
  1. ;;DBQ General Medical Gulf War^DBQ General Medical Gulf War (including Burn Pits)
  1. ;;DBQ MUSC Foot miscellaneous^DBQ MUSC Foot conditions, including Flatfoot (Pes Planus)
  1. ;;DBQ MUSC Hip & thigh^DBQ MUSC Hip & thigh conditions
  1. ;;DBQ Medical SHA^DBQ Separation Health Assessment
  1. ;;DBQ RHEUM Arthritis: non-degen (inflam, imm, cryst, infect)^DBQ RHEUM Arthritis non-degen (inflam, imm, cryst, infect)
  1. ;;SOCIAL AND INDUSTRIAL SURVEY^Social and Industrial Survey
  1. ;;QUIT
  1. ;
  1. INACT ;* inactivate exams
  1. ;
  1. ; DVBAXX is in format:
  1. ; EXAM NAME
  1. ;
  1. N DVBAX,DVBAXX,DVBADA,DA,DR,DIC,DIE,X,Y,DVBASTR
  1. D MES^XPDUTL(" ")
  1. D BMES^XPDUTL("Inactivating procedures AMIE EXAM file (#396.6)...")
  1. D MES^XPDUTL(" ")
  1. F DVBAX=1:1 S DVBAXX=$P($T(OLD+DVBAX),";;",2) Q:DVBAXX="QUIT" D
  1. .F DVBADA=0:0 S DVBADA=+$O(^DVB(396.6,"B",$E(DVBAXX,1,30),DVBADA)) Q:DVBADA=0 D
  1. ..I $D(^DVB(396.6,DVBADA,0)),$P(^DVB(396.6,DVBADA,0),U,5)="A" D
  1. ...S DA=DVBADA,DR=".5///INACTIVE",DIE="^DVB(396.6," D ^DIE
  1. ...D MES^XPDUTL(" ")
  1. ...D MES^XPDUTL(" Entry #"_DVBADA_" for "_DVBAXX)
  1. ...D BMES^XPDUTL(" ... inactivated")
  1. ...D MES^XPDUTL(" ")
  1. ..I '$D(^DVB(396.6,DVBADA,0)) D
  1. ...D MES^XPDUTL(" ")
  1. ...S DVBASTR="Can't find entry for "_DVBAXX
  1. ...D BMES^XPDUTL(DVBASTR_" ...exam cannot be inactivated.")
  1. Q
  1. ;
  1. OLD ;national procedures to be inactivated - exam name
  1. ;;ACROMEGALY
  1. ;;AMPUTATION, RESIDUALS OF
  1. ;;ARRHYTHMIAS
  1. ;;ARTERIES, VEINS AND MISCELLANEOUS
  1. ;;AUDIO
  1. ;;BRAIN AND SPINAL CORD
  1. ;;CHRONIC FATIGUE SYNDROME
  1. ;;COLD INJURY PROTOCOL EXAMINATION
  1. ;;CRANIAL NERVES
  1. ;;CUSHING'S SYNDROME
  1. ;;DENTAL AND ORAL
  1. ;;DIABETES MELLITUS
  1. ;;DIGESTIVE CONDITIONS, MISCELLANEOUS
  1. ;;EAR DISEASE
  1. ;;EATING DISORDERS (MENTAL DISORDERS)
  1. ;;ENDOCRINE DISEASES, MISCELLANEOUS
  1. ;;EPILEPSY AND NARCOLEPSY
  1. ;;ESOPHAGUS AND HIATAL HERNIA
  1. ;;EYE EXAMINATION
  1. ;;FEET
  1. ;;FIBROMYALGIA
  1. ;;GENERAL MEDICAL EXAMINATION
  1. ;;GENITOURINARY EXAMINATION
  1. ;;GULF WAR GUIDELINES
  1. ;;GYNECOLOGICAL CONDITIONS AND DISORDERS OF THE BREAST
  1. ;;HAND, THUMB, AND FINGERS
  1. ;;HEART
  1. ;;HEMIC DISORDERS
  1. ;;HIV-RELATED ILLNESS
  1. ;;HYPERTENSION
  1. ;;INFECTIOUS, IMMUNE, AND NUTRITIONAL DISABILITIES
  1. ;;INITIAL EVALUATION FOR POST-TRAUMATIC STRESS DISORDER (PTSD)
  1. ;;INTESTINES (LARGE AND SMALL)
  1. ;;JOINTS (SHOULDER/ELBOW/WRIST/HIP/KNEE/ANKLE)
  1. ;;LIVER, GALL BLADDER, AND PANCREAS
  1. ;;LYMPHATIC DISORDERS
  1. ;;MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS)
  1. ;;MOUTH, LIPS, AND TONGUE
  1. ;;MUSCLES
  1. ;;NEUROLOGICAL DISORDERS, MISCELLANEOUS
  1. ;;NOSE, SINUS, LARYNX, AND PHARYNX
  1. ;;PERIPHERAL NERVES
  1. ;;PRISONER OF WAR PROTOCOL EXAMINATION
  1. ;;PULMONARY TUBERCULOSIS AND MYCOBACTERIAL DISEASES
  1. ;;RECTUM AND ANUS
  1. ;;RESPIRATORY (OBSTRUCTIVE, RESTRICTIVE, AND INTERSTITIAL)
  1. ;;RESPIRATORY DISEASES, MISCELLANEOUS
  1. ;;REVIEW EXAMINATION FOR POST-TRAUMATIC STRESS DISORDER (PTSD)
  1. ;;SCARS
  1. ;;SENSE OF SMELL AND TASTE
  1. ;;SKIN DISEASES (OTHER THAN SCARS)
  1. ;;SPINE
  1. ;;STOMACH, DUODENUM AND PERITONEAL ADHESIONS
  1. ;;THYROID AND PARATHYROID DISEASES
  1. ;;TRAUMATIC BRAIN INJURY (TBI)
  1. ;;QUIT
  1. ;