DVBA174P ;ALB/SBW - PATCH DVBA*2.7*174 PRE/POST INSTALL UTILITIES ; 1/JUL/2011
;;2.7;AMIE;**174**;Apr 10, 1995;Build 2
;
;No direct entry allowed
Q
;
PRE ;Main entry point for Pre-install items
;
N DVBVERSS,DVBVERSN
D BMES^XPDUTL("***** PRE-INSTALL PROCESSING *****")
; Get Template Patch Version Suffix
D GETPATV(.DVBVERSS,.DVBVERSN)
; Deactivate older versions of CAPRI templates
D DEACT(DVBVERSN)
;
Q
;
POST ;Main entry point for Post-install items
;
N DVBVERSS,DVBVERSN
D BMES^XPDUTL("***** POST-INSTALL PROCESSING *****")
; Get Template Patch Version Suffixes
D GETPATV(.DVBVERSS,.DVBVERSN)
; Rename/Activate CAPRI templates that were loaded by the patch
D ACTIVATE(DVBVERSS,DVBVERSN)
; updates for the AMIE EXAM (#396.6) file
D AMIE
Q
;
GETPATV(DVBVERSS,DVBVERSN) ;Get Patch Version Suffix to be used
;
;OUTPUT:
; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
; Version Suffix will be as follows:
; New entry to be renamed is Patch Number with a "F" (e.g 999F)
; Released patch will be just Patch Number (e.g 999)
; Test Patch will be Patch Number with a "T" and Test Patch
; Version Number (e.g. 999T1)
; Note that the Patch Version is appended to the Template Name with
; a "~" delimeter between name and version (e.g. DBQ Template
; Example~999T1).
N DVBPAT,DVBATVER
;
; Update the following variable to be the patch number
; ****** Change to the appropriate patch number *****
S DVBPAT="174"
; ****** End user modification ******
;
; The Patch Version Suffix for new incoming CAPRI Template entries
; should be patch number followed by "F"
S DVBVERSS=DVBPAT_"F"
;
; The Patch Version Suffix which will be appended for the Name
; (#.01) Field in the CAPRI Template Definition (#396.18) file
; entry to allow for template versioning.
S:$D(^XTMP("XPDI",$G(XPDA),"BLD",$G(XPDBLD),6))>0 DVBATVER=$P($G(^XTMP("XPDI",$G(XPDA),"BLD",$G(XPDBLD),6)),U,1)
S DVBVERSN=DVBPAT_$S($G(DVBATVER)>0:"T"_DVBATVER,1:"")
;
Q
;
DEACT(DVBVERSN) ;De-activate older versions of CAPRI templates
;
;Used to disable older versions of a template for those templates
;being exported with the patch based on the data in CAPRITXT
;subroutine.
; - Make sure to that all entries in the CAPRITXT subroutine are
; accurate.
; - This must be called as a pre-init or else it will disable the
; templates that are being loaded by the patch.
;INPUT
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or ~999)
; See GETPATV Subroutine comments for Version Suffix descriptions
;
N DVBACTR,DVBAI,DVBLINE
S DVBACTR=0
;
D BMES^XPDUTL(" Disabling CAPRI templates...")
D MES^XPDUTL("")
;
F DVBAI=1:1 S DVBLINE=$P($T(CAPRITXT+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. D DISABLE^DVBAUTLP($P(DVBLINE,";",1),DVBVERSN,.DVBACTR,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
;
D BMES^XPDUTL(" Number of CAPRI templates disabled: "_DVBACTR)
Q
;
;
ACTIVATE(DVBVERSS,DVBVERSN) ;Activate CAPRI templates that were loaded
;by the patch and updates Patch Version Suffix for versioning control.
;
;Used to activate/rename templates that were loaded by the patch.
; - Make sure to that all entries in the CAPRITXT subroutine are
; accurate.
; - Must be called as a post-init in order to rename those
; templates being loaded by the patch.
;
;INPUT
; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
; Version Suffix will be as follows:
; See GETPATV Subroutine comments for Version Suffix descriptions
;
N DVBACTR,DVBAI,DVBLINE
;
S DVBACTR=0
;
D BMES^XPDUTL(" Activating CAPRI templates...")
D MES^XPDUTL("")
;
F DVBAI=1:1 S DVBLINE=$P($T(CAPRITXT+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. D RENAME^DVBAUTLP($P(DVBLINE,";",1),DVBVERSS,DVBVERSN,.DVBACTR,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
;
D BMES^XPDUTL(" Number of CAPRI templates activated: "_DVBACTR)
Q
;
;
AMIE ;Updates for the AMIE EXAM (#396.6) file
;
;Used to inactivate old entries and create new entries for
;designated worksheet updates
;
D BMES^XPDUTL(" Update to AMIE EXAM (#396.6) file...")
I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
I $D(^DVB(396.6)) D
. D INACT
. D NEW
Q
;
;
INACT ;Inactivate old (current) exams
;
N DVBAI,DVBLINE,DVBIEN,DVBEXM
;
D BMES^XPDUTL(" Inactivating AMIE EXAM (#396.6) file entries...")
D MES^XPDUTL("")
F DVBAI=1:1 S DVBLINE=$P($T(AMIEOLD+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. S DVBIEN=$P(DVBLINE,";",1)
. S DVBEXM=$P(DVBLINE,";",2)
. D INACTEXM^DVBAUTLP(DVBIEN,DVBEXM,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
. D MES^XPDUTL("")
Q
;
;
NEW ;Add new exam entries
;
N DVBAI,DVBLINE,DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS
;
D BMES^XPDUTL(" Adding new AMIE EXAM (#396.6) file entries...")
F DVBAI=1:1 S DVBLINE=$P($T(AMIENEW+DVBAI),";;",2) Q:DVBLINE="QUIT" D
. N DVBAMSG
. S DVBIEN=$P(DVBLINE,";",1) ;ien
. S DVBEXM=$P(DVBLINE,";",2) ;exam name
. S DVBPNM=$P(DVBLINE,";",3) ;print name
. S DVBBDY=$P(DVBLINE,";",4) ;body system
. S DVBROU=$P(DVBLINE,";",5) ;routine name
. S DVBSTAT=$P(DVBLINE,";",6) ;status
. S DVBWKS=$P(DVBLINE,";",8) ;worksheet number
. D BMES^XPDUTL(" Attempting to add Entry #"_DVBIEN_"...")
. D NEWEXAM^DVBAUTLP(DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS,.DVBAMSG)
. ; Display status message returned if any
. D:$D(DVBAMSG)>0 MES^XPDUTL(.DVBAMSG)
Q
;
;
; CAPRI TEMPLATE DEFINITIONS (#396.18) file entries to Dectivate
; and/or Rename. If old versions of the Templates exist they will
; be De-Activated. No harm is done if Template doesn't currently
; exist but it should still be included here in case multiple test
; versions are done which would required previous test patch
; version to be De-Activated.
; Only entries that are Versioned as ~###F (# = Patch Version
; Number) will be Renamed
;
; Data should be in internal format.
; Format: Template Name (250 chars)
; Note - Do not include Version Portion of name (i.e ~999T or ~999)
CAPRITXT ;
;;DBQ BREAST CONDITIONS AND DISORDERS
;;DBQ CENTRAL NERVOUS SYSTEM AND NEUROMUSCULAR DISEASES (EXCEPT TBI, ALS, PD, MS, HEADACHES, TMJ, EPILEPSY, NARCOLEPSY, PN, SA, CND, FIBROMYALGIA, AND CFS)
;;DBQ EAR CONDITIONS
;;DBQ ESOPHAGEAL CONDITIONS (INCLUDING GASTROESOPHAGEAL REFLUX DISEASE (GERD), HIATAL HERNIA AND OTHER ESOPHAGEAL DISORDERS)
;;DBQ GALLBLADDER AND PANCREAS CONDITIONS
;;DBQ GYNECOLOGICAL CONDITIONS
;;DBQ HEADACHES (INCLUDIING MIGRAINE HEADACHES)
;;DBQ HEART CONDITIONS(INCLUDING ISCHEMIC AND NON ISCHEMIC HEART DISEASE, ARRHYTHMIAS, VALVULAR DISEASE, AND CARDIAC SURGERY)
;;DBQ HEART CONDITIONS (INCLUDING ISCHEMIC AND NON ISCHEMIC HEART DISEASE, ARRHYTHMIAS, VALVULAR DISEASE AND CARDIAC SURGERY)
;;DBQ HEMATOLOGIC AND LYMPHATIC CONDITIONS, INCLUDING LEUKEMIA
;;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS
;;DBQ INFECTIOUS INTESTINAL DISORDERS, INCLUDING BACTERIAL AND PARASITIC INFECTIONS
;;DBQ INTESTINAL CONDITIONS (OTHER THAN SURGICAL OR INFECTIOUS), INCLUDING IRRITABLE BOWEL SYNDROME, CROHN'S DISEASE, ULCERATIVE COLITIS AND DIVERTICULITIS
;;DBQ INTESTINAL SURGERY (BOWEL RESECTION, COLOSTOMY AND ILEOSTOMY)
;;DBQ MEDICAL OPINION 1
;;DBQ MEDICAL OPINION 2
;;DBQ MEDICAL OPINION 3
;;DBQ MEDICAL OPINION 4
;;DBQ MEDICAL OPINION 5
;;DBQ MULTIPLE SCLEROSIS (MS)
;;DBQ NON-DEGENERATIVE ARTHRITIS (INCUDING INFLAMMATORY, AUTOIMMUNE, CRYSTALLINE AND INFECTIOUS ARTHRITIS) AND DYSBARIC OSTEONECROSIS
;;DBQ OSTEOMYELITIS
;;DBQ PERITONEAL ADHESIONS
;;DBQ RECTUM AND ANUS CONDITIONS (INCLUDING HEMORRHOIDS)
;;DBQ SLEEP APNEA
;;DBQ STOMACH AND DUODENAL CONDITIONS
;;QUIT
;
;
; AMIE EXAM (#396.6) file exam(s) to deactivate. Data should be in
; internal format.
; Format: ien;exam name (60 chars);
AMIEOLD ;
;;QUIT
;
; AMIE EXAM (#396.6) file exam(s) to activate (create or update).
; Data should be in internal format.
; format: ien;exam name (60 chars);print name (25 Chars);body system;routine;status;;wks#
AMIENEW ;
;;355;DBQ EAR CONDITIONS;DBQ EAR CONDITIONS;3;DVBCQED1;A; ; ;
;;356;DBQ MULTIPLE SCLEROSIS (MS);DBQ MULTIPLE SCLEROSIS;13;DVBCQMS1;A; ; ;
;;357;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ NON-DEGEN ARTHRITIS;2;DVBCQAR1;A; ; ;
;;358;DBQ OSTEOMYELITIS;DBQ OSTEOMYELITIS;2;DVBCQOS1;A; ; ;
;;359;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ HEADACHES;13;DVBCQNM1;A; ; ;
;;360;DBQ ESOPHAGEAL CONDITIONS;DBQ ESOPHAGEAL CONDITIONS;7;DVBCQES1;A; ; ;
;;361;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GALLBLADDER PANCREAS;7;DVBCQGB1;A; ; ;
;;362;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ INTESTINAL NON-SURG;7;DVBCQIM1;A; ; ;
;;363;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ INFECTIOUS INTESTINAL;7;DVBCQII1;A; ; ;
;;364;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ INTESTINAL SURGERY;7;DVBCQIS1;A; ; ;
;;365;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ LIVER CONDITIONS;7;DVBCQLI1;A; ; ;
;;366;DBQ PERITONEAL ADHESIONS;DBQ PERITONEAL ADHESIONS;7;DVBCQPA1;A; ; ;
;;367;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ STOMACH AND DUODENAL;7;DVBCQSD1;A; ; ;
;;368;DBQ RECTUM AND ANUS CONDITIONS;DBQ RECTUM AND ANUS;7;DVBCQRA1;A; ; ;
;;369;DBQ BREAST CONDITIONS AND DISORDERS;DBQ BREAST CONDITIONS;9;DVBCQBR1;A; ; ;
;;370;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYNECOLOGICAL;9;DVBCQGY1;A; ; ;
;;375;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ CENTRAL NERVOUS SYST;13;DVBCQCN1;A; ; ;
;;376;DBQ SLEEP APNEA;DBQ SLEEP APNEA;19;DVBCQSL1;A; ; ;
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA174P 10015 printed Apr 09, 2024@20:47:14 Page 2
DVBA174P ;ALB/SBW - PATCH DVBA*2.7*174 PRE/POST INSTALL UTILITIES ; 1/JUL/2011
+1 ;;2.7;AMIE;**174**;Apr 10, 1995;Build 2
+2 ;
+3 ;No direct entry allowed
+4 QUIT
+5 ;
PRE ;Main entry point for Pre-install items
+1 ;
+2 NEW DVBVERSS,DVBVERSN
+3 DO BMES^XPDUTL("***** PRE-INSTALL PROCESSING *****")
+4 ; Get Template Patch Version Suffix
+5 DO GETPATV(.DVBVERSS,.DVBVERSN)
+6 ; Deactivate older versions of CAPRI templates
+7 DO DEACT(DVBVERSN)
+8 ;
+9 QUIT
+10 ;
POST ;Main entry point for Post-install items
+1 ;
+2 NEW DVBVERSS,DVBVERSN
+3 DO BMES^XPDUTL("***** POST-INSTALL PROCESSING *****")
+4 ; Get Template Patch Version Suffixes
+5 DO GETPATV(.DVBVERSS,.DVBVERSN)
+6 ; Rename/Activate CAPRI templates that were loaded by the patch
+7 DO ACTIVATE(DVBVERSS,DVBVERSN)
+8 ; updates for the AMIE EXAM (#396.6) file
+9 DO AMIE
+10 QUIT
+11 ;
GETPATV(DVBVERSS,DVBVERSN) ;Get Patch Version Suffix to be used
+1 ;
+2 ;OUTPUT:
+3 ; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
+4 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
+5 ; Version Suffix will be as follows:
+6 ; New entry to be renamed is Patch Number with a "F" (e.g 999F)
+7 ; Released patch will be just Patch Number (e.g 999)
+8 ; Test Patch will be Patch Number with a "T" and Test Patch
+9 ; Version Number (e.g. 999T1)
+10 ; Note that the Patch Version is appended to the Template Name with
+11 ; a "~" delimeter between name and version (e.g. DBQ Template
+12 ; Example~999T1).
+13 NEW DVBPAT,DVBATVER
+14 ;
+15 ; Update the following variable to be the patch number
+16 ; ****** Change to the appropriate patch number *****
+17 SET DVBPAT="174"
+18 ; ****** End user modification ******
+19 ;
+20 ; The Patch Version Suffix for new incoming CAPRI Template entries
+21 ; should be patch number followed by "F"
+22 SET DVBVERSS=DVBPAT_"F"
+23 ;
+24 ; The Patch Version Suffix which will be appended for the Name
+25 ; (#.01) Field in the CAPRI Template Definition (#396.18) file
+26 ; entry to allow for template versioning.
+27 if $DATA(^XTMP("XPDI",$GET(XPDA),"BLD",$GET(XPDBLD),6))>0
SET DVBATVER=$PIECE($GET(^XTMP("XPDI",$GET(XPDA),"BLD",$GET(XPDBLD),6)),U,1)
+28 SET DVBVERSN=DVBPAT_$SELECT($GET(DVBATVER)>0:"T"_DVBATVER,1:"")
+29 ;
+30 QUIT
+31 ;
DEACT(DVBVERSN) ;De-activate older versions of CAPRI templates
+1 ;
+2 ;Used to disable older versions of a template for those templates
+3 ;being exported with the patch based on the data in CAPRITXT
+4 ;subroutine.
+5 ; - Make sure to that all entries in the CAPRITXT subroutine are
+6 ; accurate.
+7 ; - This must be called as a pre-init or else it will disable the
+8 ; templates that are being loaded by the patch.
+9 ;INPUT
+10 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or ~999)
+11 ; See GETPATV Subroutine comments for Version Suffix descriptions
+12 ;
+13 NEW DVBACTR,DVBAI,DVBLINE
+14 SET DVBACTR=0
+15 ;
+16 DO BMES^XPDUTL(" Disabling CAPRI templates...")
+17 DO MES^XPDUTL("")
+18 ;
+19 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(CAPRITXT+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+20 NEW DVBAMSG
+21 DO DISABLE^DVBAUTLP($PIECE(DVBLINE,";",1),DVBVERSN,.DVBACTR,.DVBAMSG)
+22 ; Display status message returned if any
+23 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+24 ;
+25 DO BMES^XPDUTL(" Number of CAPRI templates disabled: "_DVBACTR)
+26 QUIT
+27 ;
+28 ;
ACTIVATE(DVBVERSS,DVBVERSN) ;Activate CAPRI templates that were loaded
+1 ;by the patch and updates Patch Version Suffix for versioning control.
+2 ;
+3 ;Used to activate/rename templates that were loaded by the patch.
+4 ; - Make sure to that all entries in the CAPRITXT subroutine are
+5 ; accurate.
+6 ; - Must be called as a post-init in order to rename those
+7 ; templates being loaded by the patch.
+8 ;
+9 ;INPUT
+10 ; DVBVERSS - Incoming Patch Version Suffix (e.g. 999F)
+11 ; DVBVERSN - Rename Patch Version Suffix (e.g. 999 or 999T1)
+12 ; Version Suffix will be as follows:
+13 ; See GETPATV Subroutine comments for Version Suffix descriptions
+14 ;
+15 NEW DVBACTR,DVBAI,DVBLINE
+16 ;
+17 SET DVBACTR=0
+18 ;
+19 DO BMES^XPDUTL(" Activating CAPRI templates...")
+20 DO MES^XPDUTL("")
+21 ;
+22 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(CAPRITXT+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+23 NEW DVBAMSG
+24 DO RENAME^DVBAUTLP($PIECE(DVBLINE,";",1),DVBVERSS,DVBVERSN,.DVBACTR,.DVBAMSG)
+25 ; Display status message returned if any
+26 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+27 ;
+28 DO BMES^XPDUTL(" Number of CAPRI templates activated: "_DVBACTR)
+29 QUIT
+30 ;
+31 ;
AMIE ;Updates for the AMIE EXAM (#396.6) file
+1 ;
+2 ;Used to inactivate old entries and create new entries for
+3 ;designated worksheet updates
+4 ;
+5 DO BMES^XPDUTL(" Update to AMIE EXAM (#396.6) file...")
+6 IF '$DATA(^DVB(396.6))
DO BMES^XPDUTL("Missing AMIE EXAM (#396.6) file")
QUIT
+7 IF $DATA(^DVB(396.6))
Begin DoDot:1
+8 DO INACT
+9 DO NEW
End DoDot:1
+10 QUIT
+11 ;
+12 ;
INACT ;Inactivate old (current) exams
+1 ;
+2 NEW DVBAI,DVBLINE,DVBIEN,DVBEXM
+3 ;
+4 DO BMES^XPDUTL(" Inactivating AMIE EXAM (#396.6) file entries...")
+5 DO MES^XPDUTL("")
+6 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(AMIEOLD+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+7 NEW DVBAMSG
+8 SET DVBIEN=$PIECE(DVBLINE,";",1)
+9 SET DVBEXM=$PIECE(DVBLINE,";",2)
+10 DO INACTEXM^DVBAUTLP(DVBIEN,DVBEXM,.DVBAMSG)
+11 ; Display status message returned if any
+12 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
+13 DO MES^XPDUTL("")
End DoDot:1
+14 QUIT
+15 ;
+16 ;
NEW ;Add new exam entries
+1 ;
+2 NEW DVBAI,DVBLINE,DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS
+3 ;
+4 DO BMES^XPDUTL(" Adding new AMIE EXAM (#396.6) file entries...")
+5 FOR DVBAI=1:1
SET DVBLINE=$PIECE($TEXT(AMIENEW+DVBAI),";;",2)
if DVBLINE="QUIT"
QUIT
Begin DoDot:1
+6 NEW DVBAMSG
+7 ;ien
SET DVBIEN=$PIECE(DVBLINE,";",1)
+8 ;exam name
SET DVBEXM=$PIECE(DVBLINE,";",2)
+9 ;print name
SET DVBPNM=$PIECE(DVBLINE,";",3)
+10 ;body system
SET DVBBDY=$PIECE(DVBLINE,";",4)
+11 ;routine name
SET DVBROU=$PIECE(DVBLINE,";",5)
+12 ;status
SET DVBSTAT=$PIECE(DVBLINE,";",6)
+13 ;worksheet number
SET DVBWKS=$PIECE(DVBLINE,";",8)
+14 DO BMES^XPDUTL(" Attempting to add Entry #"_DVBIEN_"...")
+15 DO NEWEXAM^DVBAUTLP(DVBIEN,DVBEXM,DVBPNM,DVBBDY,DVBROU,DVBSTAT,DVBWKS,.DVBAMSG)
+16 ; Display status message returned if any
+17 if $DATA(DVBAMSG)>0
DO MES^XPDUTL(.DVBAMSG)
End DoDot:1
+18 QUIT
+19 ;
+20 ;
+21 ; CAPRI TEMPLATE DEFINITIONS (#396.18) file entries to Dectivate
+22 ; and/or Rename. If old versions of the Templates exist they will
+23 ; be De-Activated. No harm is done if Template doesn't currently
+24 ; exist but it should still be included here in case multiple test
+25 ; versions are done which would required previous test patch
+26 ; version to be De-Activated.
+27 ; Only entries that are Versioned as ~###F (# = Patch Version
+28 ; Number) will be Renamed
+29 ;
+30 ; Data should be in internal format.
+31 ; Format: Template Name (250 chars)
+32 ; Note - Do not include Version Portion of name (i.e ~999T or ~999)
CAPRITXT ;
+1 ;;DBQ BREAST CONDITIONS AND DISORDERS
+2 ;;DBQ CENTRAL NERVOUS SYSTEM AND NEUROMUSCULAR DISEASES (EXCEPT TBI, ALS, PD, MS, HEADACHES, TMJ, EPILEPSY, NARCOLEPSY, PN, SA, CND, FIBROMYALGIA, AND CFS)
+3 ;;DBQ EAR CONDITIONS
+4 ;;DBQ ESOPHAGEAL CONDITIONS (INCLUDING GASTROESOPHAGEAL REFLUX DISEASE (GERD), HIATAL HERNIA AND OTHER ESOPHAGEAL DISORDERS)
+5 ;;DBQ GALLBLADDER AND PANCREAS CONDITIONS
+6 ;;DBQ GYNECOLOGICAL CONDITIONS
+7 ;;DBQ HEADACHES (INCLUDIING MIGRAINE HEADACHES)
+8 ;;DBQ HEART CONDITIONS(INCLUDING ISCHEMIC AND NON ISCHEMIC HEART DISEASE, ARRHYTHMIAS, VALVULAR DISEASE, AND CARDIAC SURGERY)
+9 ;;DBQ HEART CONDITIONS (INCLUDING ISCHEMIC AND NON ISCHEMIC HEART DISEASE, ARRHYTHMIAS, VALVULAR DISEASE AND CARDIAC SURGERY)
+10 ;;DBQ HEMATOLOGIC AND LYMPHATIC CONDITIONS, INCLUDING LEUKEMIA
+11 ;;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS
+12 ;;DBQ INFECTIOUS INTESTINAL DISORDERS, INCLUDING BACTERIAL AND PARASITIC INFECTIONS
+13 ;;DBQ INTESTINAL CONDITIONS (OTHER THAN SURGICAL OR INFECTIOUS), INCLUDING IRRITABLE BOWEL SYNDROME, CROHN'S DISEASE, ULCERATIVE COLITIS AND DIVERTICULITIS
+14 ;;DBQ INTESTINAL SURGERY (BOWEL RESECTION, COLOSTOMY AND ILEOSTOMY)
+15 ;;DBQ MEDICAL OPINION 1
+16 ;;DBQ MEDICAL OPINION 2
+17 ;;DBQ MEDICAL OPINION 3
+18 ;;DBQ MEDICAL OPINION 4
+19 ;;DBQ MEDICAL OPINION 5
+20 ;;DBQ MULTIPLE SCLEROSIS (MS)
+21 ;;DBQ NON-DEGENERATIVE ARTHRITIS (INCUDING INFLAMMATORY, AUTOIMMUNE, CRYSTALLINE AND INFECTIOUS ARTHRITIS) AND DYSBARIC OSTEONECROSIS
+22 ;;DBQ OSTEOMYELITIS
+23 ;;DBQ PERITONEAL ADHESIONS
+24 ;;DBQ RECTUM AND ANUS CONDITIONS (INCLUDING HEMORRHOIDS)
+25 ;;DBQ SLEEP APNEA
+26 ;;DBQ STOMACH AND DUODENAL CONDITIONS
+27 ;;QUIT
+28 ;
+29 ;
+30 ; AMIE EXAM (#396.6) file exam(s) to deactivate. Data should be in
+31 ; internal format.
+32 ; Format: ien;exam name (60 chars);
AMIEOLD ;
+1 ;;QUIT
+2 ;
+3 ; AMIE EXAM (#396.6) file exam(s) to activate (create or update).
+4 ; Data should be in internal format.
+5 ; format: ien;exam name (60 chars);print name (25 Chars);body system;routine;status;;wks#
AMIENEW ;
+1 ;;355;DBQ EAR CONDITIONS;DBQ EAR CONDITIONS;3;DVBCQED1;A; ; ;
+2 ;;356;DBQ MULTIPLE SCLEROSIS (MS);DBQ MULTIPLE SCLEROSIS;13;DVBCQMS1;A; ; ;
+3 ;;357;DBQ NON-DEGENERATIVE ARTHRITIS;DBQ NON-DEGEN ARTHRITIS;2;DVBCQAR1;A; ; ;
+4 ;;358;DBQ OSTEOMYELITIS;DBQ OSTEOMYELITIS;2;DVBCQOS1;A; ; ;
+5 ;;359;DBQ HEADACHES (INCLUDING MIGRAINE HEADACHES);DBQ HEADACHES;13;DVBCQNM1;A; ; ;
+6 ;;360;DBQ ESOPHAGEAL CONDITIONS;DBQ ESOPHAGEAL CONDITIONS;7;DVBCQES1;A; ; ;
+7 ;;361;DBQ GALLBLADDER AND PANCREAS CONDITIONS;DBQ GALLBLADDER PANCREAS;7;DVBCQGB1;A; ; ;
+8 ;;362;DBQ INTESTINAL (OTHER THAN SURGICAL OR INFECTIOUS);DBQ INTESTINAL NON-SURG;7;DVBCQIM1;A; ; ;
+9 ;;363;DBQ INFECTIOUS INTESTINAL DISORDERS;DBQ INFECTIOUS INTESTINAL;7;DVBCQII1;A; ; ;
+10 ;;364;DBQ INTESTINAL SURGERY (RESECTION, COLOSTOMY, ILEOSTOMY);DBQ INTESTINAL SURGERY;7;DVBCQIS1;A; ; ;
+11 ;;365;DBQ HEPATITIS, CIRRHOSIS AND OTHER LIVER CONDITIONS;DBQ LIVER CONDITIONS;7;DVBCQLI1;A; ; ;
+12 ;;366;DBQ PERITONEAL ADHESIONS;DBQ PERITONEAL ADHESIONS;7;DVBCQPA1;A; ; ;
+13 ;;367;DBQ STOMACH AND DUODENAL CONDITIONS;DBQ STOMACH AND DUODENAL;7;DVBCQSD1;A; ; ;
+14 ;;368;DBQ RECTUM AND ANUS CONDITIONS;DBQ RECTUM AND ANUS;7;DVBCQRA1;A; ; ;
+15 ;;369;DBQ BREAST CONDITIONS AND DISORDERS;DBQ BREAST CONDITIONS;9;DVBCQBR1;A; ; ;
+16 ;;370;DBQ GYNECOLOGICAL CONDITIONS;DBQ GYNECOLOGICAL;9;DVBCQGY1;A; ; ;
+17 ;;375;DBQ CENTRAL NERVOUS SYSTEM DISEASES;DBQ CENTRAL NERVOUS SYST;13;DVBCQCN1;A; ; ;
+18 ;;376;DBQ SLEEP APNEA;DBQ SLEEP APNEA;19;DVBCQSL1;A; ; ;
+19 ;;QUIT
