- 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 Mar 13, 2025@20:47:58 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
