Routine: DVBCUTIL

Information

DVBCUTIL ;ALB/GTS-557/THM;C&P UTILITY ROUTINE ; 7/31/26 3:51pm

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
VA FileMan	2	FILE^DICN ($$GET1,GETS)^DIQ
Automated Medical Information Exchange	1	KILL^DVBCUTL2
Registration	1	SVC^VADPT
Toolkit	1	GETWP^XPAR

Package	Total	Caller Graph
Automated Medical Information Exchange	46	DVBA CAPRI VISTA BUTTON DVBA CAPRI VISTA BUTTON USAGE DVBAB70 DVBAB82 DVBADXFR DVBARQP DVBCADE1 DVBCADEX DVBCADR DVBCAMI3 DVBCAMIS DVBCAMR2 DVBCAMRO DVBCCNCL DVBCEDIT DVBCENQ DVBCENQ1 DVBCEXML DVBCFEE DVBCLABR DVBCLOG DVBCNTSC DVBCPATA DVBCPND1 DVBCPNDR DVBCPRN1 DVBCPRNT DVBCREDT DVBCRELS DVBCREQ1 DVBCREQ3 DVBCREQP DVBCROPN DVBCRPON DVBCRPR1 DVBCRPRT DVBCSCHD DVBCULAP DVBCXFR1 DVBCXFR2 DVBCXFRA DVBCXFRB DVBCXFRC DVBCXFRE DVBCXFRS ^DVB(396.3
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
KILL	;common exit
DICW	;used on ^DIC lookups only
DICW1
DICW2
VARS
HDR
ADDR	;
SSNSHRT	; Set SSN in the Format '123 45 6789'
SSNOUT	; Set SSN in the Format '123 45 6789 (Z6789)
ISFORGN(DVBIEN)
GETCNTRY(DVBIEN)
SVC(DFN,DVBCIE)	;Retrieve Last Military Service Data Info ; Using supported API SVC^VAPDT, which encapsulates the ; Military Service Episode (MSE) changes due to the ; Enrollment Military Service Data Sharing (MSDS) project ; (Patch DG5.3797) ; INPUT ; DFN - Patient (#2) file internal entry number (Required) ; DVBCIE - "I" to return service dates in Fileman format (Default) ; "E" to return servce dates in external format ; OUTPUT ; Returns '^' delimitted string ; 1. Last Service Entry Date ; 2. Last Service Seperation Date ; 3. Last Service Branch ; 4. Last Service Discharge Type ;
VBUTTON(DVBRTN,DVBSRV)	;CAPRI-28984 BG 7/31/26
AASBURPT	;AMIE AUDIT SUMMARY BY USER REPORT (396.9992) CAPRI-28984 JCS 08/05/2026
AASBURPTH	;AMIT AUDIT HEADER CAPRI-28984 JCS 08/05/2026

External References

Name	Field # of Occurrence
^%ZISC	KILL+1
FILE^DICN	VBUTTON+9
$$GET1^DIQ	ISFORGN+10, AASBURPT+10
GETS^DIQ	GETCNTRY+14
KILL^DVBCUTL2	KILL+7
SVC^VADPT	SVC+21
$$FMTE^XLFDT	DICW2, AASBURPT+12
$$NOW^XLFDT	VBUTTON+4
$$UP^XLFSTR	GETCNTRY+17
GETWP^XPAR	VBUTTON+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @FF,!! Line Location: KILL+1
Function Call: WRITE	Prompt: ! Line Location: DICW+1
Function Call: WRITE	Prompt: ! Line Location: DICW+2
Function Call: WRITE	Prompt: ?3,EXAM," (",$$FMTE^XLFDT(TSTDT,"5DZ")," by ",RONAME,")",! Line Location: DICW2+0
Function Call: WRITE	Prompt: @FF,?(IOM-$L(HD2)\2),HD2,!!!?5,"Veteran name: ",PNAM,?45,"SSN: ",SSN,!?40,"C-NUMBER: ",CNUM,!!,"Exams on this request:",!! Line Location: HDR+0
Function Call: WRITE	Prompt: JII,", ",$S(XST="C":"Completed",XST="RX":"Cancelled by RO",XST="X":"Cancelled by MAS",XST="T":"Transferred",1:"Open"),", " Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: !!?0,"Address: ",?14,ADD1,! Line Location: ADDR+5
Function Call: WRITE	Prompt: ?0,"City:",?14,CITY," ",STATE," ",ZIP,!?0,"County:",?14,CNTY,! Line Location: ADDR+13
Function Call: WRITE	Prompt: ?0,"Postal Code:",?14,POSTCODE,!?0,"City:",?14,CITY,!?0,"Province: ",?14,PROVINCE,! Line Location: ADDR+19
Function Call: WRITE	Prompt: ! Line Location: ADDR+21
Function Call: WRITE	Prompt: "Period of service: ",PRDSV,! Line Location: ADDR+23
Function Call: WRITE	Prompt: ?0,"Eligibility data:" Line Location: ADDR+25
Function Call: WRITE	Prompt: ?19,ELIG_$S(ELIG]"":", ",1:"")_$S(INCMP=1:"Incompetent",1:""),! Line Location: ADDR+29
Function Call: WRITE	Prompt: !,$E($P(DVBTEMP,U,1),1,19),?20,$P(DVBTEMP,U,2),?38,$P(DVBTEMP,U,3) Line Location: AASBURPT+19
Function Call: WRITE	Prompt: !!,"No data to report at this time" Line Location: AASBURPT+20
Function Call: WRITE	Prompt: !,?28,"CAPRI VISTA BUTTON USAGE",! Line Location: AASBURPTH+1
Function Call: WRITE	Prompt: !,"Name",?20,"Date/Time",?38,"Server" Line Location: AASBURPTH+2
Function Call: WRITE	Prompt: !,"-------------------",?20,"-----------------",?38,"---------------------------------------" Line Location: AASBURPTH+3

Used in RPC

RPC Name	Call Tags
DVBA CAPRI VISTA BUTTON	VBUTTON

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^HL(779.004 - [#779.004]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VARS+33
^DIC(21 - [#21]	ADDR+22
^DIC(4 - [#4]	DICW+1, VARS+1
^DIC(5 - [#5]	VARS+22, VARS+31, ADDR+11, ADDR+12
^DIC(8 - [#8]	ADDR+25
^DPT - [#2]	VARS, VARS+18, VARS+19, VARS+25, VARS+26, VARS+28, ADDR+4, ADDR+22, ADDR+25, ADDR+26 , ADDR+27, ADDR+28
^DVB(396.3 - [#396.3]	VARS, VARS+2, VARS+33
^DVB(396.4 - [#396.4]	DICW1
^DVB(396.6 - [#396.6]	DICW1
^DVB(396.9992 - [#396.9992]	VBUTTON+5, AASBURPT+7, AASBURPT+9, AASBURPT+12, AASBURPT+13
^TMP("DVBAAR"	AASBURPT+6!, AASBURPT+14, AASBURPT+15, AASBURPT+17, AASBURPT+18, AASBURPT+20, AASBURPT+21!
^TMP("DVBBTN"	VBUTTON+2!, VBUTTON+12, VBUTTON+17, VBUTTON+20*, VBUTTON+23
^TMP($J	HDR+2
^VA(200 - [#200]	VARS+2
^XTV(8989.51 - [#8989.51]	VBUTTON+12

Label References

Name	Line Occurrences
$$GETCNTRY	ADDR+20
$$ISFORGN	ADDR+9, ADDR+15
$$SVC	VARS+33
AASBURPTH	AASBURPT+5
DICW1	DICW+1
DICW2	DICW1
SSNSHRT	SSNOUT+1

Naked Globals

Name	Field # of Occurrence
^(	VARS, VARS+25, ADDR+4, ADDR+22, ADDR+25, ADDR+26, ADDR+27, ADDR+28
^(0	DICW+1, DICW1, VARS, VARS+1, VARS+2, VARS+22, VARS+31, ADDR+11, ADDR+12, ADDR+25
^(1	VARS+2, VARS+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	KILL+2!
%T	KILL+4!
ADD1	KILL+3!, ADDR+1~, ADDR+3, ADDR+4, ADDR+5
ADD2	KILL+3!, ADDR+1~, ADDR+3, ADDR+4, ADDR+6
ADD3	ADDR+1~, ADDR+3, ADDR+4, ADDR+7
ADR1	KILL+2!, VARS+17, VARS+20
ADR2	KILL+2!, VARS+17, VARS+20
ADR3	KILL+2!, VARS+17, VARS+20
BDTRQ	KILL+2!
BUSPHON	KILL+2!, VARS+25*
C	KILL+3!
CITY	KILL+2!, VARS+17, VARS+20, VARS+22, ADDR+1~, ADDR+3, ADDR+4, ADDR+13, ADDR+17, ADDR+19
CNDCT	KILL+2!
CNTY	KILL+3!, ADDR+1~, ADDR+3, ADDR+4, ADDR+11*, ADDR+13
CNUM	KILL+2!, VARS*, HDR
COUNTRY	KILL+6!, VARS+24, ADDR+1~, ADDR+3, ADDR+4*, ADDR+9, ADDR+15, ADDR+20
COUNTY	KILL+6!, VARS+23*
CTIM	KILL+3!
D	KILL+2!
D0	KILL+3!
D1	KILL+3!
DA	KILL+3!, VARS, VARS+2, VARS+33, ADDR+28, VBUTTON+2!, VBUTTON+6*, VBUTTON+11!
DA(1	VBUTTON+6*, VBUTTON+7
DFN	KILL+2!, VARS*, VARS+18, VARS+19, VARS+25, VARS+26, VARS+28, VARS+33, ADDR+4, ADDR+22 , ADDR+25, ADDR+26, ADDR+27, SVC~, SVC+17
DI	KILL+3!
DIC	KILL+3!, VBUTTON+2!, VBUTTON+7*, VBUTTON+11!
DIC("DR"	VBUTTON+8*
DIC(0	VBUTTON+7*
DIE	KILL+2!, VBUTTON+2!, VBUTTON+11!
DIPGM	KILL+3!
DIR	KILL+4!
DIRUT	KILL+3!
DIW	KILL+2!
DIWF	KILL+2!
DIWL	KILL+2!
DIWR	KILL+2!
DIWT	KILL+2!
DIYS	KILL+3!
DIZ	KILL+3!
DLAYGO	KILL+3!, VBUTTON+7*
DN	KILL+2!
DO	VBUTTON+2!, VBUTTON+11!
DOB	KILL+2!, VARS*
DPTSZ	KILL+3!
DQ	KILL+3!
DR	KILL+3!, VBUTTON+2!, VBUTTON+11!
DTA	KILL+2!, VARS, VARS+1, VARS+2, VARS+3, VARS+19, VARS+20, VARS+21, VARS+22, VARS+23 , VARS+24, ADDR+4*
DTB	KILL+2!
DTRQ	KILL+2!, VARS*
DTT	KILL+5!, VARS+27, VARS+28, VARS+29, VARS+30, VARS+31, VARS+32
DTTRNSC	KILL+5!
DUOUT	KILL+3!
DUZ	VBUTTON+5, VBUTTON+6
DVBAINSF	KILL+5!, VARS+16!*
DVBBL	AASBURPT+2~, AASBURPT+4*
DVBBTN	VBUTTON+3~, VBUTTON+13
DVBBTN(	VBUTTON+14, VBUTTON+19, VBUTTON+20
DVBCCNT	KILL+4!
DVBCIE	SVC~, SVC+19*, SVC+22, SVC+25
DVBCNEW	KILL+2!
DVBCNT	VBUTTON+3~, VBUTTON+14, VBUTTON+15, VBUTTON+16, VBUTTON+17, VBUTTON+19, VBUTTON+20, VBUTTON+21*
DVBCNTRY	ISFORGN+7~, ISFORGN+10*, ISFORGN+11, GETCNTRY+7~
DVBCNTRY(	GETCNTRY+16, GETCNTRY+17
DVBCSSNO	SSNSHRT+1!, SSNSHRT+2, SSNOUT+2
DVBCT	VBUTTON+3~, VBUTTON+14, VBUTTON+16, VBUTTON+17*, VBUTTON+19, VBUTTON+20
DVBDAT	AASBURPT+2~, AASBURPT+12*, AASBURPT+15
DVBDTTM	VBUTTON+3~, VBUTTON+4*, VBUTTON+8
DVBDUZ	AASBURPT+2~, AASBURPT+3, AASBURPT+7, AASBURPT+9, AASBURPT+10, AASBURPT+11, AASBURPT+12, AASBURPT+13
DVBERR	ISFORGN+8~, ISFORGN+11, GETCNTRY+8~, GETCNTRY+15
DVBIDX	AASBURPT+2~, AASBURPT+3, AASBURPT+8, AASBURPT+9, AASBURPT+12, AASBURPT+13, AASBURPT+17, AASBURPT+18
DVBIEN	ISFORGN~, ISFORGN+9, ISFORGN+10, GETCNTRY~, GETCNTRY+12, GETCNTRY+13
DVBIENS	GETCNTRY+9~, GETCNTRY+13*, GETCNTRY+14, GETCNTRY+16, GETCNTRY+17
DVBLC	AASBURPT+2~, AASBURPT+3*
DVBMSE	SVC+20~, SVC+23, SVC+24, SVC+26, SVC+27, SVC+28
DVBNAM	AASBURPT+2~, AASBURPT+10, AASBURPT+11, AASBURPT+15
DVBNAME	GETCNTRY+10~, GETCNTRY+11, GETCNTRY+16, GETCNTRY+17*, GETCNTRY+18
DVBPAR	VBUTTON+3~
DVBRET	VBUTTON+3~
DVBRET(	VBUTTON+16, VBUTTON+17, VBUTTON+19, VBUTTON+20*
DVBRT	VBUTTON+3~, VBUTTON+10*, VBUTTON+16
DVBRTN	VBUTTON~, VBUTTON+12, VBUTTON+23
DVBSAVESEQ	VBUTTON+3~, VBUTTON+5*, VBUTTON+6
DVBSRV	VBUTTON~, VBUTTON+8, AASBURPT+2~, AASBURPT+13*, AASBURPT+15
DVBTEMP	AASBURPT+2~, AASBURPT+3, AASBURPT+18, AASBURPT+19
DWLW	KILL+3!
DX	KILL+2!
DXCOD	KILL+2!
DXNUM	KILL+2!
EDTA	KILL+4!, VARS+33*
EDTRQ	KILL+2!
ELIG	KILL+3!, ADDR+2~, ADDR+24, ADDR+25, ADDR+26*, ADDR+29
EOD	KILL+4!, VARS+33*
EXAM	KILL+3!, DICW1*, DICW2
FEXM	KILL+2!, VARS+1*
>> FF	KILL+1, HDR
HD	KILL+3!
HD1	KILL+3!
HD2	KILL+3!, HDR
HOMPHON	KILL+2!, VARS+25*
I	KILL+2!
INCMP	KILL+3!, ADDR+2~, ADDR+24, ADDR+27, ADDR+28*, ADDR+29
IOM	HDR
J	KILL+3!
JDT	KILL+3!
JI	KILL+3!
JII	KILL+3!, HDR+1, HDR+2
>> JIJ	HDR+2*
JJ	KILL+3!
JY	KILL+3!, DICW1*
KJX	KILL+3!
LINE	KILL+2!
LN	KILL+2!
>> LREXMDT	VARS+33*
MDTRM	KILL+2!
NAME	KILL+2!, VARS*
OLDA	KILL+4!
OLDA1	KILL+4!
OLDDA	KILL+3!
ONE	KILL+2!
ONFILE	KILL+3!
OTHDIS	KILL+2!, VARS+2*
>> OTHDIS1	VARS+2*
>> OTHDIS2	VARS+2*
PCT	KILL+2!
PG	KILL+2!, KILL+3!
PGHD	KILL+2!
>> PNAM	VARS*, HDR, SSNOUT+2
POP	KILL+2!
POSTALCD	KILL+6!, VARS+23*
POSTCODE	ADDR+1~, ADDR+3, ADDR+4, ADDR+16*, ADDR+19
PRDSV	KILL+3!, ADDR+2~, ADDR+22*, ADDR+23
PRINT	KILL+2!
PRIO	KILL+2!, VARS+3, VARS+4, VARS+5, VARS+6, VARS+7, VARS+8, VARS+9, VARS+10, VARS+11* , VARS+12, VARS+13, VARS+14, VARS+15
PROVINCE	KILL+6!, VARS+23, ADDR+1~, ADDR+3, ADDR+4, ADDR+18, ADDR+19
RAD	KILL+4!, VARS+33*
REQDT	KILL+3!
REQN	KILL+2!, VARS+2*
RO	KILL+2!, DICW+1, VARS+1
ROHD	KILL+2!
RONAME	KILL+2!, DICW+1, DICW2, VARS+1
RQ	KILL+2!
SC	KILL+2!
SEX	KILL+3!, VARS*
SSN	KILL+3!, VARS*, HDR, SSNSHRT+2, SSNOUT+2
STAT	KILL+3!, DICW+1*
STATE	KILL+3!, VARS+17, VARS+22, ADDR+1~, ADDR+3, ADDR+4, ADDR+11, ADDR+12*, ADDR+13
STATUS	KILL+4!
SWITCH	KILL+4!
TAD1	KILL+5!, VARS+27, VARS+29
TAD2	KILL+5!, VARS+27, VARS+29
TAD3	KILL+5!, VARS+27, VARS+29
TCITY	KILL+5!, VARS+27, VARS+29, VARS+31*
TEMP	KILL+4!
TNAM	KILL+4!
TPHONE	KILL+5!, VARS+27, VARS+32
TST	KILL+3!, KILL+5!, VARS+27, VARS+31
TSTDT	KILL+3!, DICW+1*, DICW2
TZIP	KILL+5!, VARS+27, VARS+30
U	DICW+1, DICW1, VARS, VARS+1, VARS+2, VARS+3, VARS+20, VARS+21, VARS+22, VARS+23 , VARS+24, VARS+25, VARS+29, VARS+30, VARS+31, VARS+32, VARS+33, HDR+2, ADDR+4, ADDR+11 , ADDR+12, ADDR+22, ADDR+25, ADDR+26, ADDR+27, ADDR+28, SVC+19, SVC+23, SVC+24, SVC+26 , SVC+27, AASBURPT+15, AASBURPT+19
VAHOW	SVC+20~
VAROOT	SVC+20~
VASV	SVC+20~
VASV(6	SVC+23, SVC+24, SVC+26, SVC+27
WARD	KILL+3!
X	KILL+3!, VBUTTON+2!, VBUTTON+6*, VBUTTON+11!
XDD	KILL+4!
>> XST	HDR+2*
XX	KILL+4!
Y	KILL+3!, DICW1, VARS+33*, VBUTTON+2!, VBUTTON+10, VBUTTON+11!
Z	KILL+3!
ZIP	KILL+3!, VARS+17, VARS+21, ADDR+1~, ADDR+3, ADDR+4, ADDR+10*, ADDR+13
ZIP4	KILL+5!
>> ZPR	VARS+3*, VARS+4, VARS+5, VARS+6, VARS+7, VARS+8, VARS+9, VARS+10, VARS+11, VARS+12 , VARS+13, VARS+14, VARS+15, VARS+16
>> ZTQUEUED	KILL+1

Customize PDF page

Package: Automated Medical Information Exchange

Routine: DVBCUTIL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 47

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: