DVBC252P2 ;ALB/CP - PATCH DVBA*2.7*252 POST-INSTALL ROUTINE; APR 14, 2023 ; 12/4/23 10:31am
;;2.7;AMIE;**252**;Apr 10, 1995;Build 92
; Per VHA Directive 6402 this routine should not be modified
Q
;
CMTUPD ;
;update name for entry in AMIE Exam to match CMT CAPRI-8765 CP
N DVBI,DVBDATA,DVBPREV,DVBNEW,DVBNAME,DVBIEN
F DVBI=1:1 S DVBDATA=$P($T(NEWTEXT+DVBI),";;",2) Q:DVBDATA["$EXIT" D
. S DVBPREV=$P(DVBDATA,U,1)
. S DVBNEW=$P(DVBDATA,U,2)
. S DVBNAME=""
. S DVBIEN=0
. F S DVBIEN=$O(^DVB(396.6,DVBIEN)) Q:DVBIEN="" D
. . S DVBNAME=$P($G(^DVB(396.6,DVBIEN,0)),U,1)
. . Q:DVBNAME'=DVBPREV
. . K DIE,DA,DR,X,Y
. . S DIE="^DVB(396.6,"
. . S DA=DVBIEN
. . S DR=".01///"_DVBNEW D ^DIE
. . K DIE,DA,DR,X,Y
. Q
Q
NEWTEXT ;;Names and the Updated
;;DBQ AUDIO Hearing loss & tinnitus^DBQ AUDIO Hearing loss and tinnitus
;;DBQ CARDIO Arteries & veins (vascular)^DBQ CARDIO Arteries and veins (vascular)
;;DBQ CARDIO Heart^DBQ CARDIO Heart Conditions
;;DBQ DENTAL Dental & oral (other than TMD)^DBQ DENTAL Dental and oral other than TMD
;;DBQ ENDO Diabetes mellitus^DBQ ENDO Diabetes Mellitus
;;DBQ ENDO Thyroid & parathyroid^DBQ ENDO Thyroid and Parathyroid
;;DBQ ENT Loss of sense of smell & taste^DBQ ENT Loss of sense of smell and taste
;;DBQ ENT Sinusitis, rhinitis & other ENT conditions^DBQ ENT Sinusitis rhinitis and other ENT conditions
;;DBQ GEN SURG Hernia inguinal, femoral & abdom (not hiatal)^DBQ GI Hernia inguinal femoral and abdom not hiatal
;;DBQ GEN SURG Rectum & anus (including hemorrhoids)^DBQ GI Rectum and anus including hemorrhoids
;;DBQ GI Esophagus (including GERD & hiatal hernia)^DBQ GI Esophagus including GERD and hiatal hernia
;;DBQ GI Intestinal conditions^DBQ GI Intestines
;;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver^DBQ GI Liver conditions hepatitis cirrhosis and other liver
;;DBQ GI Stomach & duodenum^DBQ GI Stomach and duodenum
;;DBQ HEM Hemic & lymphatic, including leukemia^DBQ HEM Hemic and lymphatic including leukemia
;;DBQ INFECT South West Asia Infectious diseases^DBQ INFECT Persian Gulf Afghanistan Infectious Diseases
;;DBQ MUSC Back (thoracolumbar spine)^DBQ MUSC Back thoracolumbar spine
;;DBQ MUSC Elbow & forearm^DBQ MUSC Elbow and Forearm
;;DBQ MUSC Foot conditions, including Flatfoot (Pes Planus)^DBQ MUSC Foot conditions including Flatfoot (Pes Planus)
;;DBQ MUSC Hand & finger^DBQ MUSC Hand and finger
;;DBQ MUSC Hip & thigh conditions^DBQ MUSC Hip and Thigh Conditions
;;DBQ MUSC Knee & lower leg^DBQ MUSC Knee and lower leg
;;DBQ MUSC Neck (cervical spine)^DBQ MUSC Neck cervical spine
;;DBQ MUSC Shoulder & arm^DBQ MUSC Shoulder and Arm
;;DBQ NEURO Amyotrophic lateral sclerosis^DBQ NEURO Amyotrophic Lateral Sclerosis
;;DBQ NEURO Central nervous system^DBQ NEURO Central Nervous System
;;DBQ NEURO Parkinsons disease^DBQ NEURO Parkinsons Disease
;;DBQ NEURO Multiple sclerosis^DBQ NEURO Multiple Sclerosis
;;DBQ Prisoner of War (POW)^DBQ Former POW Protocol
;;DBQ PSYCH Mental disorders^DBQ PSYCH Mental Disorders
;;DBQ RESP Respiratory conditions^DBQ RESP Respiratory Conditions
;;DBQ RHEUM Arthritis non-degen (inflam, imm, cryst, infect)^DBQ RHEUM Arthritis non-degen
;;DBQ RHEUM Chronic fatigue syndrome^DBQ RHEUM Chronic Fatigue syndrome
;;DBQ Spina Bifida^DBQ Spina bifida
;;$EXIT
Q
;
;PDF DBQ signature fields CAPRI-12469. JD - 8/5/24
;Updated row 15 from "APSYCH..." to "N=APSYCH..." and added rows 24-26. JD - 11/26/24
;Updated row 15 from "N=APSYCH..." to "S=APSYCH...". JD - 12/2/24
PARAM ;
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",1,"S=AEXAMINERSSIGNATURE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",2,"N=BEXAMINERSPRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",3,"D=CDATESIGNED")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",4,"A=GEXAMINERSADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",5,"S=SOCIALWORKERSSIGNATURE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",6,"N=SOCIALWORKERSPRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",7,"D=DATESIGNED")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",8,"A=SOCIALWORKERSADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",9,"A=EXAMININGLOCATIONFACILITYORADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",10,"D=YYYYMMDD")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",11,"N=PRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",12,"S=SIGNATURE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",13,"A=FPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",14,"N=BPSYCHIATRISTPSYCHOLOGISTEXAMINERPRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",15,"S=APSYCHIATRISTPSYCHOLOGISTEXAMINERSIGNATURETITLE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",16,"A=GPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",17,"A=FEXAMINERSADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",18,"S=SIGNATUREOFEXAMINERREQUIRED")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",19,"A=ADDRESSOFMEDICALFACILITYNUMBERANDSTREETORRURALRO")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",20,"D=DATESIGNEDMMDDYYYY")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",21,"N=PRINTEDNAMEOFEXAMINER")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",22,"X=DBQSEPARATIONHEALTHASSESSMENT_528_SIGNATURE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",23,"X=DBQSEPARATIONHEALTHASSESSMENT_527_PRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",24,"A=EXAMINERSADDRESS")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",25,"N=EXAMINERSPRINTEDNAME")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
S DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",26,"S=EXAMINERSSIGNATURE")
D UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
K DVBVER
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBC252P2 8547 printed Aug 26, 2025@21:59:03 Page 2
DVBC252P2 ;ALB/CP - PATCH DVBA*2.7*252 POST-INSTALL ROUTINE; APR 14, 2023 ; 12/4/23 10:31am
+1 ;;2.7;AMIE;**252**;Apr 10, 1995;Build 92
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 QUIT
+4 ;
CMTUPD ;
+1 ;update name for entry in AMIE Exam to match CMT CAPRI-8765 CP
+2 NEW DVBI,DVBDATA,DVBPREV,DVBNEW,DVBNAME,DVBIEN
+3 FOR DVBI=1:1
SET DVBDATA=$PIECE($TEXT(NEWTEXT+DVBI),";;",2)
if DVBDATA["$EXIT"
QUIT
Begin DoDot:1
+4 SET DVBPREV=$PIECE(DVBDATA,U,1)
+5 SET DVBNEW=$PIECE(DVBDATA,U,2)
+6 SET DVBNAME=""
+7 SET DVBIEN=0
+8 FOR
SET DVBIEN=$ORDER(^DVB(396.6,DVBIEN))
if DVBIEN=""
QUIT
Begin DoDot:2
+9 SET DVBNAME=$PIECE($GET(^DVB(396.6,DVBIEN,0)),U,1)
+10 if DVBNAME'=DVBPREV
QUIT
+11 KILL DIE,DA,DR,X,Y
+12 SET DIE="^DVB(396.6,"
+13 SET DA=DVBIEN
+14 SET DR=".01///"_DVBNEW
DO ^DIE
+15 KILL DIE,DA,DR,X,Y
End DoDot:2
+16 QUIT
End DoDot:1
+17 QUIT
NEWTEXT ;;Names and the Updated
+1 ;;DBQ AUDIO Hearing loss & tinnitus^DBQ AUDIO Hearing loss and tinnitus
+2 ;;DBQ CARDIO Arteries & veins (vascular)^DBQ CARDIO Arteries and veins (vascular)
+3 ;;DBQ CARDIO Heart^DBQ CARDIO Heart Conditions
+4 ;;DBQ DENTAL Dental & oral (other than TMD)^DBQ DENTAL Dental and oral other than TMD
+5 ;;DBQ ENDO Diabetes mellitus^DBQ ENDO Diabetes Mellitus
+6 ;;DBQ ENDO Thyroid & parathyroid^DBQ ENDO Thyroid and Parathyroid
+7 ;;DBQ ENT Loss of sense of smell & taste^DBQ ENT Loss of sense of smell and taste
+8 ;;DBQ ENT Sinusitis, rhinitis & other ENT conditions^DBQ ENT Sinusitis rhinitis and other ENT conditions
+9 ;;DBQ GEN SURG Hernia inguinal, femoral & abdom (not hiatal)^DBQ GI Hernia inguinal femoral and abdom not hiatal
+10 ;;DBQ GEN SURG Rectum & anus (including hemorrhoids)^DBQ GI Rectum and anus including hemorrhoids
+11 ;;DBQ GI Esophagus (including GERD & hiatal hernia)^DBQ GI Esophagus including GERD and hiatal hernia
+12 ;;DBQ GI Intestinal conditions^DBQ GI Intestines
+13 ;;DBQ GI Liver conditions Hepatitis, cirrhosis & other liver^DBQ GI Liver conditions hepatitis cirrhosis and other liver
+14 ;;DBQ GI Stomach & duodenum^DBQ GI Stomach and duodenum
+15 ;;DBQ HEM Hemic & lymphatic, including leukemia^DBQ HEM Hemic and lymphatic including leukemia
+16 ;;DBQ INFECT South West Asia Infectious diseases^DBQ INFECT Persian Gulf Afghanistan Infectious Diseases
+17 ;;DBQ MUSC Back (thoracolumbar spine)^DBQ MUSC Back thoracolumbar spine
+18 ;;DBQ MUSC Elbow & forearm^DBQ MUSC Elbow and Forearm
+19 ;;DBQ MUSC Foot conditions, including Flatfoot (Pes Planus)^DBQ MUSC Foot conditions including Flatfoot (Pes Planus)
+20 ;;DBQ MUSC Hand & finger^DBQ MUSC Hand and finger
+21 ;;DBQ MUSC Hip & thigh conditions^DBQ MUSC Hip and Thigh Conditions
+22 ;;DBQ MUSC Knee & lower leg^DBQ MUSC Knee and lower leg
+23 ;;DBQ MUSC Neck (cervical spine)^DBQ MUSC Neck cervical spine
+24 ;;DBQ MUSC Shoulder & arm^DBQ MUSC Shoulder and Arm
+25 ;;DBQ NEURO Amyotrophic lateral sclerosis^DBQ NEURO Amyotrophic Lateral Sclerosis
+26 ;;DBQ NEURO Central nervous system^DBQ NEURO Central Nervous System
+27 ;;DBQ NEURO Parkinsons disease^DBQ NEURO Parkinsons Disease
+28 ;;DBQ NEURO Multiple sclerosis^DBQ NEURO Multiple Sclerosis
+29 ;;DBQ Prisoner of War (POW)^DBQ Former POW Protocol
+30 ;;DBQ PSYCH Mental disorders^DBQ PSYCH Mental Disorders
+31 ;;DBQ RESP Respiratory conditions^DBQ RESP Respiratory Conditions
+32 ;;DBQ RHEUM Arthritis non-degen (inflam, imm, cryst, infect)^DBQ RHEUM Arthritis non-degen
+33 ;;DBQ RHEUM Chronic fatigue syndrome^DBQ RHEUM Chronic Fatigue syndrome
+34 ;;DBQ Spina Bifida^DBQ Spina bifida
+35 ;;$EXIT
+36 QUIT
+37 ;
+38 ;PDF DBQ signature fields CAPRI-12469. JD - 8/5/24
+39 ;Updated row 15 from "APSYCH..." to "N=APSYCH..." and added rows 24-26. JD - 11/26/24
+40 ;Updated row 15 from "N=APSYCH..." to "S=APSYCH...". JD - 12/2/24
PARAM ;
+1 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",1,"S=AEXAMINERSSIGNATURE")
+2 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+3 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",2,"N=BEXAMINERSPRINTEDNAME")
+4 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+5 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",3,"D=CDATESIGNED")
+6 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+7 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",4,"A=GEXAMINERSADDRESS")
+8 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+9 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",5,"S=SOCIALWORKERSSIGNATURE")
+10 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+11 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",6,"N=SOCIALWORKERSPRINTEDNAME")
+12 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+13 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",7,"D=DATESIGNED")
+14 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+15 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",8,"A=SOCIALWORKERSADDRESS")
+16 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+17 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",9,"A=EXAMININGLOCATIONFACILITYORADDRESS")
+18 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+19 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",10,"D=YYYYMMDD")
+20 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+21 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",11,"N=PRINTEDNAME")
+22 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+23 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",12,"S=SIGNATURE")
+24 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+25 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",13,"A=FPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS")
+26 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+27 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",14,"N=BPSYCHIATRISTPSYCHOLOGISTEXAMINERPRINTEDNAME")
+28 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+29 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",15,"S=APSYCHIATRISTPSYCHOLOGISTEXAMINERSIGNATURETITLE")
+30 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+31 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",16,"A=GPSYCHIATRISTPSYCHOLOGISTEXAMINERADDRESS")
+32 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+33 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",17,"A=FEXAMINERSADDRESS")
+34 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+35 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",18,"S=SIGNATUREOFEXAMINERREQUIRED")
+36 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+37 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",19,"A=ADDRESSOFMEDICALFACILITYNUMBERANDSTREETORRURALRO")
+38 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+39 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",20,"D=DATESIGNEDMMDDYYYY")
+40 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+41 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",21,"N=PRINTEDNAMEOFEXAMINER")
+42 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+43 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",22,"X=DBQSEPARATIONHEALTHASSESSMENT_528_SIGNATURE")
+44 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+45 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",23,"X=DBQSEPARATIONHEALTHASSESSMENT_527_PRINTEDNAME")
+46 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+47 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",24,"A=EXAMINERSADDRESS")
+48 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+49 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",25,"N=EXAMINERSPRINTEDNAME")
+50 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+51 SET DVBVER=$$ENXPARS^DVBC252P("PKG.AUTOMATED MED INFO EXCHANGE","DVBAB CAPRI PDF SIG FLD NAMES",26,"S=EXAMINERSSIGNATURE")
+52 DO UPDMSG^DVBC252P("DVBAB CAPRI PDF SIG FLD NAMES",DVBVER)
+53 KILL DVBVER
+54 QUIT
