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

DVBA181P.m

Go to the documentation of this file.
  1. DVBA181P ;ALB/RPM - PATCH DVBA*2.7*181 POST-INSTALL ;5/14/2012
  1. ;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
  1. ;
  1. Q ;NO DIRECT ENTRY
  1. ;
  1. ENV ;Main entry point for Environment check point.
  1. ;
  1. Q
  1. ;
  1. ;
  1. PRE ;Main entry point for Pre-init items.
  1. ;
  1. Q
  1. ;
  1. ;
  1. POST ;Main entry point for Post-init items.
  1. ;
  1. D POST1 ;Populate Virtual VA parameter definitions
  1. D POST2 ;Edit AMIE EXAM file DBQ entries
  1. Q
  1. ;
  1. POST1 ;Populate new Virtual VA parameter definitions
  1. ;
  1. N DVBERR
  1. D BMES^XPDUTL("*************************")
  1. D MES^XPDUTL("Start Parameter Updates")
  1. D MES^XPDUTL("*************************")
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA PROD URL","https://vbaphi8popp.vba.domain.ext:7002/VABFI/services/vva")
  1. D UPDMSG("DVBAB CAPRI VIRTUALVA PROD URL",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VIRTUALVA TEST URL","https://vbaphi5topp.vba.domain.ext:7002/VABFI/services/vva")
  1. D UPDMSG("DVBAB CAPRI VIRTUALVA TEST URL",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA USER","CAPRI")
  1. D UPDMSG("DVBAB CAPRI VVA USER",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST PASSWD","XXXXX")
  1. D UPDMSG("DVBAB CAPRI VVA TEST PASSWD",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD PASSWD","Passw0rd1")
  1. D UPDMSG("DVBAB CAPRI VVA PROD PASSWD",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA TEST TOKEN","Username-1")
  1. D UPDMSG("DVBAB CAPRI VVA TEST TOKEN",DVBERR)
  1. ;
  1. S DVBERR=$$ENXPAR("PKG","DVBAB CAPRI VVA PROD TOKEN","Username-1")
  1. D UPDMSG("DVBAB CAPRI VVA PROD TOKEN",DVBERR)
  1. ;
  1. D MES^XPDUTL("*************************")
  1. D MES^XPDUTL("End Parameter Updates")
  1. D MES^XPDUTL("*************************")
  1. Q
  1. ;
  1. ENXPAR(DVBENT,DVBPAR,DVBVAL) ;Update Parameter values
  1. ;
  1. ; Input:
  1. ; DVBENT - Parameter Entity
  1. ; DVBPAR - Parameter Name
  1. ; DVBVAL - Parameter Value
  1. ;
  1. ; Output:
  1. ; Function value - returns "0" on success;
  1. ; otherwise returns error#^errortext
  1. ;
  1. N DVBERR
  1. D EN^XPAR(DVBENT,DVBPAR,1,DVBVAL,.DVBERR)
  1. Q DVBERR
  1. ;
  1. UPDMSG(DVBPAR,DVBERR) ;display update message
  1. ;
  1. ; Input:
  1. ; DVBPAR - Parameter Name
  1. ; DVBERR - Parameter Update result
  1. ;
  1. ; Output: none
  1. ;
  1. I DVBERR D
  1. . D MES^XPDUTL(DVBPAR_" update FAILURE.")
  1. . D MES^XPDUTL(" Failure reason: "_DVBERR)
  1. E D
  1. . D MES^XPDUTL(DVBPAR_" update SUCCESS.")
  1. Q
  1. ;
  1. POST2 ;Edit AMIE EXAM file DBQ entries
  1. ;
  1. ;Update active DBQ worksheet updates
  1. ;
  1. ;
  1. D BMES^XPDUTL(" *** RENAMING ACTIVE DBQ AMIE EXAM FILE ENTRIES ***")
  1. I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
  1. I $D(^DVB(396.6)) D STARTRN
  1. Q
  1. ;
  1. ;
  1. STARTRN ;Rename existing DBQ exam file entries
  1. ;
  1. N DVBAI,DVBLINE,DVBIEN,DVBEXMO,DVBEXMN
  1. ;
  1. D BMES^XPDUTL("Renaming AMIE EXAM (#396.6) file entries...")
  1. F DVBAI=1:1 S DVBLINE=$P($T(EXOLDNEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
  1. . S DVBIEN=$P(DVBLINE,";",1) ;ien
  1. . S DVBEXMO=$P(DVBLINE,";",2) ;old exam name
  1. . S DVBEXMN=$P(DVBLINE,";",3) ;new exam name
  1. . D RENEXAM
  1. Q
  1. ;
  1. RENEXAM ;
  1. ;Quit if critical variables missing
  1. I $G(DVBIEN)'>0!($G(DVBEXMO)']"")!($G(DVBEXMN)']"") D Q
  1. . D BMES^XPDUTL("Insufficient data to process change at #"_DVBIEN_")")
  1. ;
  1. ; Update existing entry
  1. ;
  1. N DVBAERR,DVBAFDA
  1. ;
  1. ; Check for existing entry
  1. I $G(^DVB(396.6,DVBIEN,0))']"" D Q
  1. . D BMES^XPDUTL("No entry found at #"_DVBIEN)
  1. ;
  1. ; Check for previous update
  1. I $P(^DVB(396.6,DVBIEN,0),"^",1)=DVBEXMN D Q
  1. . D BMES^XPDUTL("Entry at ien #"_DVBIEN_" has previously been updated")
  1. ;
  1. ; Check for correct entry NAME to update
  1. I $P(^DVB(396.6,DVBIEN,0),"^",1)'=DVBEXMO D Q
  1. . D BMES^XPDUTL("Entry at ien #"_DVBIEN_" does not match expected name "_DVBEXMO_" No updating will take place")
  1. ;
  1. ; Update entry
  1. S DVBAFDA(396.6,+DVBIEN_",",.01)=$G(DVBEXMN)
  1. D FILE^DIE("","DVBAFDA","DVBAERR")
  1. ;
  1. ; Report sucessful update
  1. ;
  1. I $D(DVBAERR("DIERR"))'>0 D Q
  1. . D BMES^XPDUTL("Renamed entry #"_DVBIEN_" from "_DVBEXMO_" to "_DVBEXMN)
  1. ;
  1. ; Report update error
  1. ;
  1. I $D(DVBAERR("DIERR"))>0 D
  1. . D BMES^XPDUTL(" *** Warning - Unable to update entry #"_DVBIEN_" *** ")
  1. . D MSG^DIALOG()
  1. Q
  1. ;
  1. ; ****************************************************************************
  1. ; AMIE EXAM (#396.6) file exam(s) to rename. Data should be in internal format.
  1. ; Format: ;;ien;"old" exam name(up to 60 chars);"new" exam name(up to 60 chars)
  1. ;
  1. ; ****************************************************************************
  1. EXOLDNEW ;
  1. ;;377;DBQ ENDOCRINE DISEASES OTHER THAN DIABETES;DBQ ENDO Endocrine miscellaneous
  1. ;;378;DBQ THYROID & PARATHYROID;DBQ ENDO Thyroid & parathyroid
  1. ;;379;DBQ CRANIAL NERVES;DBQ NEURO Cranial nerves
  1. ;;380;DBQ NARCOLEPSY;DBQ NEURO Narcolepsy
  1. ;;381;DBQ FIBROMYALGIA;DBQ NEURO Fibromyalgia
  1. ;;382;DBQ SEIZURE DISORDERS (EPILEPSY);DBQ NEURO Seizure disorders (Epilepsy)
  1. ;;383;DBQ URINARY TRACT AND BLADDER;DBQ GU Urinary tract (bladder and urethra)
  1. ;;384;DBQ ABDOMINAL, INGUINAL, AND FEMORAL HERNIAS;DBQ GEN SURG Hernia inguinal, femoral & abdom (not hiatal)
  1. ;;385;DBQ HIV-RELATED ILLNESS;DBQ INFECT HIV related illness
  1. ;;386;DBQ INFECTIOUS DISEASES;DBQ INFECT Infectious diseases
  1. ;;387;DBQ SYSTEMATIC LUPUS ERYTHEMATOUS (SLE) & OTHER IMMUNE DISOR;DBQ RHEUM Systemic lupus erythematosus
  1. ;;388;DBQ NUTRITIONAL DEFICIENCIES;DBQ NUTRI Nutritional deficiencies
  1. ;;389;DBQ ORAL AND DENTAL;DBQ DENTAL Dental & oral (other than TMJ)
  1. ;;390;DBQ LOSS OF SENSE OF SMELL AND TASTE;DBQ ENT Loss of sense of smell & taste
  1. ;;391;DBQ SINUSITIS/RHINITIS AND OTHER DISEASE OF THE NOSE, THROAT;DBQ ENT Sinusitis, rhinitis & other ENT conditions
  1. ;;392;DBQ RESPIRATORY CONDITIONS;DBQ RESP Respiratory conditions
  1. ;;393;DBQ CHRONIC FATIGUE SYNDROME;DBQ RHEUM Chronic fatigue syndrome
  1. ;;394;DBQ INITIAL EVALUATION OF RESIDUALS OF TBI (I-TBI);DBQ NEURO TBI Initial
  1. ;;395;DBQ REVIEW EVALUATION OF RESIDUALS OF TBI (R-TBI);DBQ NEURO TBI Review
  1. ;;396;DBQ GENERAL MEDICAL EXAM - COMPENSATION;DBQ General Medical Compensation
  1. ;;397;DBQ GENERAL PENSION EXAM;DBQ General Medical Pension
  1. ;;398;DBQ COLD INJURY RESIDUALS;DBQ Cold injury residuals
  1. ;;399;DBQ PRISONER OF WAR PROTOCOL;DBQ Prisoner of War (POW)
  1. ;;400;DBQ GULF WAR GENERAL MEDICAL EXAMINATION;DBQ General Medical Gulf War
  1. ;;401;DBQ AMPUTATIONS;DBQ MUSC Amputations
  1. ;;403;DBQ AMYOTROPHIC LATERAL SCLEROSIS (LOU GEHRIG'S DISEASE);DBQ NEURO Amyotrophic lateral sclerosis
  1. ;;404;DBQ ANKLE CONDITIONS;DBQ MUSC Ankle
  1. ;;405;DBQ ARTERY AND VEIN CONDITIONS;DBQ CARDIO Arteries & veins (vascular)
  1. ;;406;DBQ BACK (THORACOLUMBAR SPINE) CONDITIONS;DBQ MUSC Back (thoracolumbar spine)
  1. ;;407;DBQ BREAST CONDITIONS AND DISORDERS;DBQ GYN Breast conditions and disorders
  1. ;;408;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ NEURO Central nervous system
  1. ;;409;DBQ DIABETES MELLITUS;DBQ ENDO Diabetes mellitus
  1. ;;410;DBQ DIABETIC SENSORY-MOTOR PERIPHERAL NEUROPATHY;DBQ NEURO Diabetic sensory-motor peripheral neuropathy
  1. ;;411;DBQ EAR CONDITIONS;DBQ ENT Ear conditions
  1. ;;412;DBQ EATING DISORDERS;DBQ PSYCH Eating disorders
  1. ;;413;DBQ ELBOW AND FOREARM CONDITIONS;DBQ MUSC Elbow & forearm
  1. ;;414;DBQ ESOPHAGEAL CONDITIONS;DBQ GI Esophagus (including GERD & hiatal hernia)
  1. ;;415;DBQ EYE CONDITIONS;DBQ OPHTH Eye
  1. ;;416;DBQ FLATFOOT (PES PLANUS);DBQ MUSC Flatfoot (pes planus)
  1. ;;417;DBQ FOOT MISCELLANEOUS (OTHER THAN FLATFOOT PES PLANUS);DBQ MUSC Foot miscellaneous
  1. ;;418;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GI Gallbladder & pancreas
  1. ;;419;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYN Gynecological conditions
  1. ;;420;DBQ HAIRY CELL AND OTHER B CELL LEUKEMIAS;DBQ HEM Hairy Cell & other B-cell leukemias
  1. ;;421;DBQ HAND AND FINGER CONDITIONS;DBQ MUSC Hand & finger
  1. ;;422;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ NEURO Headaches (including migraine headaches)
  1. ;;423;DBQ HEARING LOSS AND TINNITUS;DBQ AUDIO Hearing loss & tinnitus
  1. ;;424;DBQ HEART CONDITIONS;DBQ CARDIO Heart
  1. ;;425;DBQ HEMIC AND LYMPHATIC CONDITIONS INCLUDING LEUKEMIA;DBQ HEM Hemic & lymphatic, including leukemia
  1. ;;426;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver
  1. ;;427;DBQ HIP AND THIGH CONDITIONS;DBQ MUSC Hip & thigh
  1. ;;428;DBQ HYPERTENSION;DBQ CARDIO Hypertension
  1. ;;429;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ GI Intestines (infectious)
  1. ;;430;DBQ INITIAL PTSD;DBQ PSYCH PTSD Initial
  1. ;;431;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ GI Intestines (other than surgical or infectious)
  1. ;;432;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ GI Intestines (surgical)
  1. ;;433;DBQ ISCHEMIC HEART DISEASE;DBQ CARDIO Ischemic heart disease
  1. ;;434;DBQ KIDNEY CONDITIONS (NEPHROLOGY);DBQ GU Kidney (nephrology)
  1. ;;435;DBQ KNEE AND LOWER LEG CONDITIONS;DBQ MUSC Knee & lower leg
  1. ;;436;DBQ MALE REPRODUCTIVE SYSTEM CONDITIONS;DBQ GU Male reproductive system
  1. ;;437;DBQ MEDICAL OPINION 1;DBQ Medical Opinion 1
  1. ;;438;DBQ MEDICAL OPINION 2;DBQ Medical Opinion 2
  1. ;;439;DBQ MEDICAL OPINION 3;DBQ Medical Opinion 3
  1. ;;440;DBQ MEDICAL OPINION 4;DBQ Medical Opinion 4
  1. ;;441;DBQ MEDICAL OPINION 5;DBQ Medical Opinion 5
  1. ;;442;DBQ MENTAL DISORDERS (EXCEPT PTSD AND EATING DISORDERS);DBQ PSYCH Mental disorders
  1. ;;443;DBQ MULTIPLE SCLEROSIS (MS);DBQ NEURO Multiple sclerosis
  1. ;;444;DBQ MUSCLE INJURIES;DBQ MUSC Muscle injuries
  1. ;;445;DBQ NECK (CERVICAL SPINE) CONDITIONS;DBQ MUSC Neck (cervical spine)
  1. ;;446;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ RHEUM Arthritis: non-degen (inflam, imm, cryst, infect)
  1. ;;447;DBQ OSTEOMYELITIS;DBQ MUSC Osteomyelitis
  1. ;;448;DBQ PARKINSONS;DBQ NEURO Parkinsons disease
  1. ;;449;DBQ PERIPHERAL NERVES (EXCLUDING DIABETIC NEUROPATHY);DBQ NEURO Peripheral nerves
  1. ;;450;DBQ PERITONEAL ADHESIONS;DBQ GI Peritoneal adhesion
  1. ;;451;DBQ PERSIAN GULF AND AFGHANISTAN INFECTIOUS DISEASES;DBQ INFECT South West Asia Infectious diseases
  1. ;;452;DBQ PROSTATE CANCER;DBQ GU Prostate cancer
  1. ;;453;DBQ RECTUM AND ANUS CONDITIONS;DBQ GEN SURG Rectum & anus (including hemorrhoids)
  1. ;;454;DBQ REVIEW PTSD;DBQ PSYCH PTSD Review
  1. ;;455;DBQ SCARS DISFIGUREMENT;DBQ DERM Scars
  1. ;;456;DBQ SHOULDER AND ARM CONDITIONS;DBQ MUSC Shoulder & arm
  1. ;;457;DBQ SKIN DISEASES;DBQ DERM Skin
  1. ;;458;DBQ SLEEP APNEA;DBQ RESP Sleep apnea
  1. ;;459;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ GI Stomach & duodenum
  1. ;;460;DBQ TEMPOROMANDIBULAR JOINT (TMJ) CONDITIONS;DBQ MUSC Temporomandibular joint
  1. ;;461;DBQ TUBERCULOSIS;DBQ INFECT Tuberculosis
  1. ;;462;DBQ WRIST CONDITIONS;DBQ MUSC Wrist
  1. ;;QUIT