DVBC254P.m

DVBC254P ;ALB/CP/BG - PATCH DVBA*2.7*254 POST-INSTALL ROUTINE; MAY 19, 2025@16:20 ; 7/31/25 8:59am

 ;;2.7;AMIE;**254**;Apr 10, 1995;Build 41

 ; Per VHA Directive 6402 this routine should not be modified

 ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263

 Q

 ;

VUPDATE ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES

 N DVBVER,DVBTOG,DVBPAR

 D MES^XPDUTL("Patch DVBA*2.7*254 post install started")

 S DVBVER=$$ENXPARS("PKG","DVBAB CAPRI MINIMUM VERSION",1,"CAPRI GUI V2.7*254.24*1*A*3251003*1.3*1.3")

 D UPDMSG("CAPRI MINIMUM VERSION",DVBVER)

 S DVBVER=$$ENXPARS("PKG","DVBAB CAPRI PREVIOUS VERSION",1,"DVBA*2.7*250.7")

 D UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI CMT IEPD RESET",1,"0")

 D UPDMSG("DVBAB CAPRI CMT IEPD RESET",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI WORD WRAP",1,80)

 D UPDMSG("DVBAB CAPRI WORD WRAP",DVBVER)

 D SKIPCOND

 D PCSKIP

 D PARAM^DVB254P2

 D MEDOPFIELDS

 D BMES^XPDUTL("Patch DVBA*2.7*254 post install finished")

 Q

PCSKIP ;

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",1,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_OTHERPLEASESPECIFYINCOMMENTSBOX_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",2,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VAELECTRONICHEALTHRECORD_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",3,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VAEFOLDER_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",4,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VACLAIMSFILEHARDCOPYPAPERCFILE_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",5,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_OTHERPLEASESPECIFYINCOMMENTSBOX_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",6,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VAELECTRONICHEALTHRECORD_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",7,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VAEFOLDER_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",8,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VACLAIMSFILEHARDCOPYPAPERCFILE_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",9,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_OTHERPLEASEIDENTIFYOTHEREVIDENCEREVIEWED_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",10,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_OTHERPLEASEIDENTIFYOTHEREVIDENCEREVIEWED_")

 D UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 ;

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",1,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_NOTREQUESTED_")

 D UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",2,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_NOTREQUESTED_")

 D UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",3,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_NORECORDSWEREREVIEWED_")

 D UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",4,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_NORECORDSWEREREVIEWED_")

 D UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 ;

 Q

 ;  

MEDOPFIELDS ;

 N DVBMOF,DVBWP

 S DVBMOF(1)="DBQMEDICALOPINION_100_10AREMARKSIFANYPLEASEIDENTIFYTHESECTIONTOWHICHTHER"

 S DVBMOF(2)="RG_CPYN"

 S DVBMOF(3)="DBQMEDICALOPINION_30_NAMEOFCLAIMANTVETERAN"

 S DVBMOF(4)="DBQMEDICALOPINION_31_CLAIMANTVETERANSSOCIALSECURITYNUMBER"

 S DVBMOF(5)="DBQMEDICALOPINION_32_DATEOFEXAMINATION"

 S DVBMOF(6)="DBQMEDICALOPINION_35_INPERSONEXAMINATION"

 S DVBMOF(7)="DBQMEDICALOPINION_36_RECORDSREVIEWED"

 S DVBMOF(8)="DBQMEDICALOPINION_37_EXAMINATIONVIAAPPROVEDVIDEOTELEHEALTH"

 S DVBMOF(9)="DBQMEDICALOPINION_38_OTHERPLEASESPECIFYINCOMMENTSBOX"

 S DVBMOF(10)="DBQMEDICALOPINION_39_COMMENTS"

 S DVBMOF(11)="DBQMEDICALOPINION_40_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE"

 S DVBMOF(12)="DBQMEDICALOPINION_41_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI"

 S DVBMOF(13)="DBQMEDICALOPINION_42_NOTREQUESTED"

 S DVBMOF(14)="DBQMEDICALOPINION_43_VACLAIMSFILEHARDCOPYPAPERCFILE"

 S DVBMOF(15)="DBQMEDICALOPINION_44_VAEFOLDER"

 S DVBMOF(16)="DBQMEDICALOPINION_45_NORECORDSWEREREVIEWED"

 S DVBMOF(17)="DBQMEDICALOPINION_46_VAELECTRONICHEALTHRECORD"

 S DVBMOF(18)="DBQMEDICALOPINION_47_OTHERPLEASESPECIFYINCOMMENTSBOX"

 S DVBMOF(19)="DBQMEDICALOPINION_48_EVIDENCECOMMENTS"

 S DVBMOF(20)="DBQMEDICALOPINION_81_11AEXAMINERSSIGNATURE"

 S DVBMOF(21)="DBQMEDICALOPINION_82_11BEXAMINERSPRINTEDNAME"

 S DVBMOF(22)="DBQMEDICALOPINION_83_11CDATESIGNED"

 S DVBMOF(23)="DBQMEDICALOPINION_84_11DEXAMINERSPHONEFAXNUMBERS"

 S DVBMOF(24)="DBQMEDICALOPINION_85_11ENATIONALPROVIDERIDENTIFIERNPINUMBER"

 S DVBMOF(25)="DBQMEDICALOPINION_86_11FMEDICALLICENSENUMBERANDSTATE"

 S DVBMOF(26)="DBQMEDICALOPINION_87_11GEXAMINERSADDRESS"

 D EN^XPAR("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI MED OPN FIELDS",1,.DVBWP,.DVBVER)

 D UPDMSG("DVBAB CAPRI MED OPN FIELDS",DVBVER)

 Q

ENXPARS(DVBENT,DVBPAR,DVBINS,DVBVAL) ;

 N DVBVER

 D EN^XPAR(DVBENT,DVBPAR,DVBINS,DVBVAL,.DVBVER)

 Q DVBVER

 ;

UPDMSG(DVBPAR,DVBVER) ;

 I DVBVER D

 . D BMES^XPDUTL(DVBPAR_" Update FAILURE.")

 . D MES^XPDUTL("  Failure reason: "_DVBVER)

 E  D

 . D BMES^XPDUTL(DVBPAR_" Updated Successfully")

 Q

SKIPCOND ;

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",1,"DBQRHEUMChronicFatiguesyndrome_10.1_876.json!RG_3E_Periods_of_incapacitation!DBQRHEUMCHRONICFATIGUESYNDROME_76_SYMPTOMSWAXANDWANEIFCHECKEDSKIPTOQUESTION3E")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQGeneralMedicalPension_10.1_466.json!DBQGENERALMEDICALPENSION_140_IFTHEREAREADDITIONALDISABLINGCONDITIONSLISTUSINGAB!DBQGENERALMEDICALPENSION_118_DIAGNOSIS3"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",2,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",3,"DBQGIGallbladder_10.1_408.json!DBQGIGALLBLADDER_198_ICDCODE!DBQGIGALLBLADDER_209_OTHERGALLBLADDERCONDITIONS")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",4,"DBQGIGallbladder_10.1_408.json!DBQGIGALLBLADDER_199_DATEOFDIAGNOSIS!DBQGIGALLBLADDER_209_OTHERGALLBLADDERCONDITIONS")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",5,"DBQMUSCHandandfinger_10.1_858.json!DBQMUSCHANDANDFINGER_1273_8BFOREACHCHECKEDEXTREMITYIDENTIFYTHECONDITIONCAUSI!DBQMUSCHANDANDFINGER_1272_LEFTUPPER")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",6,"DBQMUSCHandandfinger_10.1_858.json!DBQMUSCHANDANDFINGER_1273_8BFOREACHCHECKEDEXTREMITYIDENTIFYTHECONDITIONCAUSI!DBQMUSCHANDANDFINGER_1271_RIGHTUPPER")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",7,"ALL!EVIDENCECOMMENTS!OTHERPLEASESPECIFYINCOMMENTSBOX")

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_225_INDICATETHECONDITIONTHATRESULTEDINTHENEEDFORTHEPRO!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",8,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_222_INDICATETREATMENTFACILITY!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",9,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_220_DATEOFTREATMENT!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",10,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_221_DATEOFADMISSION!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",11,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3C_RIGHT_Pain_YN!RG_3C_RIGHT_Examined_YN"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",12,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3C_LEFT_Pain_YN!RG_3C_LEFT_Examined_YN"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",13,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3D_RIGHT_Evidence_YN!RG_3D_RIGHT_Examined_YN"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",14,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3D_LEFT_Evidence_YN!RG_3D_LEFT_Examined_YN"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",15,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_225_INDICATETHECONDITIONTHATRESULTEDINTHENEEDFORTHEPRO!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",16,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_222_INDICATETREATMENTFACILITY!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",17,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_220_DATEOFTREATMENT!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",18,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_221_DATEOFADMISSION!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",19,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 S DVBPAR="DBQGeneralMedicalPension_10.2_1937.json!DBQGENERALMEDICALPENSION_140_IFTHEREAREADDITIONALDISABLINGCONDITIONSLISTUSINGAB!DBQGENERALMEDICALPENSION_118_DIAGNOSIS3"

 S DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",20,DVBPAR)

 D UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBC254P   12077     printed  Sep 23, 2025@19:19:19                                                                                                                                                                                                   Page 2

DVBC254P  ;ALB/CP/BG - PATCH DVBA*2.7*254 POST-INSTALL ROUTINE; MAY 19, 2025@16:20 ; 7/31/25 8:59am

 +1       ;;2.7;AMIE;**254**;Apr 10, 1995;Build 41

 +2       ; Per VHA Directive 6402 this routine should not be modified

 +3       ; Reference to SUPPORTED PARAMETER TOOL ENTRY POINTS in ICR #2263

 +4        QUIT 

 +5       ;

VUPDATE   ; MINIMUM AND PREVIOUS CAPRI VERSION UPDATES

 +1        NEW DVBVER,DVBTOG,DVBPAR

 +2        DO MES^XPDUTL("Patch DVBA*2.7*254 post install started")

 +3        SET DVBVER=$$ENXPARS("PKG","DVBAB CAPRI MINIMUM VERSION",1,"CAPRI GUI V2.7*254.24*1*A*3251003*1.3*1.3")

 +4        DO UPDMSG("CAPRI MINIMUM VERSION",DVBVER)

 +5        SET DVBVER=$$ENXPARS("PKG","DVBAB CAPRI PREVIOUS VERSION",1,"DVBA*2.7*250.7")

 +6        DO UPDMSG("DVBAB CAPRI PREVIOUS VERSION",DVBVER)

 +7        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI CMT IEPD RESET",1,"0")

 +8        DO UPDMSG("DVBAB CAPRI CMT IEPD RESET",DVBVER)

 +9        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI WORD WRAP",1,80)

 +10       DO UPDMSG("DVBAB CAPRI WORD WRAP",DVBVER)

 +11       DO SKIPCOND

 +12       DO PCSKIP

 +13       DO PARAM^DVB254P2

 +14       DO MEDOPFIELDS

 +15       DO BMES^XPDUTL("Patch DVBA*2.7*254 post install finished")

 +16       QUIT 

PCSKIP    ;

 +1        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",1,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_OTHERPLEASESPECIFYINCOMMENTSBOX_")

 +2        DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +3        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",2,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VAELECTRONICHEALTHRECORD_")

 +4        DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +5        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",3,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VAEFOLDER_")

 +6        DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +7        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",4,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_VACLAIMSFILEHARDCOPYPAPERCFILE_")

 +8        DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +9        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",5,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_OTHERPLEASESPECIFYINCOMMENTSBOX_")

 +10       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +11       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",6,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VAELECTRONICHEALTHRECORD_")

 +12       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +13       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",7,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VAEFOLDER_")

 +14       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +15       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",8,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_VACLAIMSFILEHARDCOPYPAPERCFILE_")

 +16       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +17       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",9,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_OTHERPLEASEIDENTIFYOTHEREVIDENCEREVIEWED_")

 +18       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +19       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP PARENTCHILD",10,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_OTHERPLEASEIDENTIFYOTHEREVIDENCEREVIEWED_")

 +20       DO UPDMSG("DVBAB CAPRI SKIP PARENTCHILD",DVBVER)

 +21      ;

 +22       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",1,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_NOTREQUESTED_")

 +23       DO UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 +24       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",2,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_NOTREQUESTED_")

 +25       DO UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 +26       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",3,"_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE_!_NORECORDSWEREREVIEWED_")

 +27       DO UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 +28       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CHILD RESET",4,"_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI_!_NORECORDSWEREREVIEWED_")

 +29       DO UPDMSG("DVBAB CAPRI SKIP CHILD RESET",DVBVER)

 +30      ;

 +31       QUIT 

 +32      ;  

MEDOPFIELDS ;

 +1        NEW DVBMOF,DVBWP

 +2        SET DVBMOF(1)="DBQMEDICALOPINION_100_10AREMARKSIFANYPLEASEIDENTIFYTHESECTIONTOWHICHTHER"

 +3        SET DVBMOF(2)="RG_CPYN"

 +4        SET DVBMOF(3)="DBQMEDICALOPINION_30_NAMEOFCLAIMANTVETERAN"

 +5        SET DVBMOF(4)="DBQMEDICALOPINION_31_CLAIMANTVETERANSSOCIALSECURITYNUMBER"

 +6        SET DVBMOF(5)="DBQMEDICALOPINION_32_DATEOFEXAMINATION"

 +7        SET DVBMOF(6)="DBQMEDICALOPINION_35_INPERSONEXAMINATION"

 +8        SET DVBMOF(7)="DBQMEDICALOPINION_36_RECORDSREVIEWED"

 +9        SET DVBMOF(8)="DBQMEDICALOPINION_37_EXAMINATIONVIAAPPROVEDVIDEOTELEHEALTH"

 +10       SET DVBMOF(9)="DBQMEDICALOPINION_38_OTHERPLEASESPECIFYINCOMMENTSBOX"

 +11       SET DVBMOF(10)="DBQMEDICALOPINION_39_COMMENTS"

 +12       SET DVBMOF(11)="DBQMEDICALOPINION_40_REVIEWOFAVAILABLERECORDSWITHOUTINPERSONORVIDEOTELE"

 +13       SET DVBMOF(12)="DBQMEDICALOPINION_41_REVIEWOFAVAILABLERECORDSINCONJUNCTIONWITHANINTERVI"

 +14       SET DVBMOF(13)="DBQMEDICALOPINION_42_NOTREQUESTED"

 +15       SET DVBMOF(14)="DBQMEDICALOPINION_43_VACLAIMSFILEHARDCOPYPAPERCFILE"

 +16       SET DVBMOF(15)="DBQMEDICALOPINION_44_VAEFOLDER"

 +17       SET DVBMOF(16)="DBQMEDICALOPINION_45_NORECORDSWEREREVIEWED"

 +18       SET DVBMOF(17)="DBQMEDICALOPINION_46_VAELECTRONICHEALTHRECORD"

 +19       SET DVBMOF(18)="DBQMEDICALOPINION_47_OTHERPLEASESPECIFYINCOMMENTSBOX"

 +20       SET DVBMOF(19)="DBQMEDICALOPINION_48_EVIDENCECOMMENTS"

 +21       SET DVBMOF(20)="DBQMEDICALOPINION_81_11AEXAMINERSSIGNATURE"

 +22       SET DVBMOF(21)="DBQMEDICALOPINION_82_11BEXAMINERSPRINTEDNAME"

 +23       SET DVBMOF(22)="DBQMEDICALOPINION_83_11CDATESIGNED"

 +24       SET DVBMOF(23)="DBQMEDICALOPINION_84_11DEXAMINERSPHONEFAXNUMBERS"

 +25       SET DVBMOF(24)="DBQMEDICALOPINION_85_11ENATIONALPROVIDERIDENTIFIERNPINUMBER"

 +26       SET DVBMOF(25)="DBQMEDICALOPINION_86_11FMEDICALLICENSENUMBERANDSTATE"

 +27       SET DVBMOF(26)="DBQMEDICALOPINION_87_11GEXAMINERSADDRESS"

 +28       DO EN^XPAR("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI MED OPN FIELDS",1,.DVBWP,.DVBVER)

 +29       DO UPDMSG("DVBAB CAPRI MED OPN FIELDS",DVBVER)

 +30       QUIT 

ENXPARS(DVBENT,DVBPAR,DVBINS,DVBVAL) ;

 +1        NEW DVBVER

 +2        DO EN^XPAR(DVBENT,DVBPAR,DVBINS,DVBVAL,.DVBVER)

 +3        QUIT DVBVER

 +4       ;

UPDMSG(DVBPAR,DVBVER) ;

 +1        IF DVBVER

               Begin DoDot:1

 +2                DO BMES^XPDUTL(DVBPAR_" Update FAILURE.")

 +3                DO MES^XPDUTL("  Failure reason: "_DVBVER)

               End DoDot:1

 +4       IF '$TEST

               Begin DoDot:1

 +5                DO BMES^XPDUTL(DVBPAR_" Updated Successfully")

               End DoDot:1

 +6        QUIT 

SKIPCOND  ;

 +1        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",1,"DBQRHEUMChronicFatiguesyndrome_10.1_876.json!RG_3E_Periods_of_incapacitation!DBQRHEUMCHRONICFATIGUESYNDROME_76_SYMPTOMSWAXANDWANEIFCHECKEDSKIPTOQUESTION3E")

 +2        DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +3        SET DVBPAR="DBQGeneralMedicalPension_10.1_466.json!DBQGENERALMEDICALPENSION_140_IFTHEREAREADDITIONALDISABLINGCONDITIONSLISTUSINGAB!DBQGENERALMEDICALPENSION_118_DIAGNOSIS3"

 +4        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",2,DVBPAR)

 +5        DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +6        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",3,"DBQGIGallbladder_10.1_408.json!DBQGIGALLBLADDER_198_ICDCODE!DBQGIGALLBLADDER_209_OTHERGALLBLADDERCONDITIONS")

 +7        DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +8        SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",4,"DBQGIGallbladder_10.1_408.json!DBQGIGALLBLADDER_199_DATEOFDIAGNOSIS!DBQGIGALLBLADDER_209_OTHERGALLBLADDERCONDITIONS")

 +9        DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +10       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",5,"DBQMUSCHandandfinger_10.1_858.json!DBQMUSCHANDANDFINGER_1273_8BFOREACHCHECKEDEXTREMITYIDENTIFYTHECONDITIONCAUSI!DBQMUSCHANDANDFINGER_1272_LEFTUPPER")

 +11       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +12       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",6,"DBQMUSCHandandfinger_10.1_858.json!DBQMUSCHANDANDFINGER_1273_8BFOREACHCHECKEDEXTREMITYIDENTIFYTHECONDITIONCAUSI!DBQMUSCHANDANDFINGER_1271_RIGHTUPPER")

 +13       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +14       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",7,"ALL!EVIDENCECOMMENTS!OTHERPLEASESPECIFYINCOMMENTSBOX")

 +15       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +16       SET DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_225_INDICATETHECONDITIONTHATRESULTEDINTHENEEDFORTHEPRO!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +17       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",8,DVBPAR)

 +18       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +19       SET DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_222_INDICATETREATMENTFACILITY!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +20       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",9,DVBPAR)

 +21       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +22       SET DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_220_DATEOFTREATMENT!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +23       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",10,DVBPAR)

 +24       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +25       SET DVBPAR="DBQCARDIOHeartConditions_10.1_489.json!DBQCARDIOHEARTCONDITIONS_221_DATEOFADMISSION!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +26       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",11,DVBPAR)

 +27       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +28       SET DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3C_RIGHT_Pain_YN!RG_3C_RIGHT_Examined_YN"

 +29       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",12,DVBPAR)

 +30       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +31       SET DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3C_LEFT_Pain_YN!RG_3C_LEFT_Examined_YN"

 +32       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",13,DVBPAR)

 +33       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +34       SET DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3D_RIGHT_Evidence_YN!RG_3D_RIGHT_Examined_YN"

 +35       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",14,DVBPAR)

 +36       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +37       SET DVBPAR="DBQMUSCAnkle_10.1_1228.json!RG_3D_LEFT_Evidence_YN!RG_3D_LEFT_Examined_YN"

 +38       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",15,DVBPAR)

 +39       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +40       SET DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_225_INDICATETHECONDITIONTHATRESULTEDINTHENEEDFORTHEPRO!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +41       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",16,DVBPAR)

 +42       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +43       SET DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_222_INDICATETREATMENTFACILITY!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +44       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",17,DVBPAR)

 +45       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +46       SET DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_220_DATEOFTREATMENT!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +47       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",18,DVBPAR)

 +48       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +49       SET DVBPAR="DBQCARDIOHeartConditions_10.2_1934.json!DBQCARDIOHEARTCONDITIONS_221_DATEOFADMISSION!DBQCARDIOHEARTCONDITIONS_52_AUTOMATICIMPLANTABLECARDIOVERTERDEFIBRILLATORAICD"

 +50       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",19,DVBPAR)

 +51       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +52       SET DVBPAR="DBQGeneralMedicalPension_10.2_1937.json!DBQGENERALMEDICALPENSION_140_IFTHEREAREADDITIONALDISABLINGCONDITIONSLISTUSINGAB!DBQGENERALMEDICALPENSION_118_DIAGNOSIS3"

 +53       SET DVBVER=$$ENXPARS("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI SKIP CONDFIELD",20,DVBPAR)

 +54       DO UPDMSG("DVBAB CAPRI SKIP CONDFIELD",DVBVER)

 +55       QUIT