Routine: DVBCUTIL

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

Package	Total	Caller Graph
Automated Medical Information Exchange	44	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

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 ;

Name	Field # of Occurrence
^%ZISC	KILL+1
$$GET1^DIQ	ISFORGN+10
GETS^DIQ	GETCNTRY+14
KILL^DVBCUTL2	KILL+7
SVC^VADPT	SVC+21
$$FMTE^XLFDT	DICW2
$$UP^XLFSTR	GETCNTRY+17

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

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

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
^TMP($J	HDR+2
^VA(200 - [#200]	VARS+2

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

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
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!
DIE	KILL+2!
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!
DN	KILL+2!
DOB	KILL+2!, VARS*
DPTSZ	KILL+3!
DQ	KILL+3!
DR	KILL+3!
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!
DVBAINSF	KILL+5!, VARS+16!*
DVBCCNT	KILL+4!
DVBCIE	SVC~, SVC+19*, SVC+22, SVC+25
DVBCNEW	KILL+2!
DVBCNTRY	ISFORGN+7~, ISFORGN+10*, ISFORGN+11, GETCNTRY+7~
DVBCNTRY(	GETCNTRY+16, GETCNTRY+17
DVBCSSNO	SSNSHRT+1!, SSNSHRT+2, SSNOUT+2
DVBERR	ISFORGN+8~, ISFORGN+11, GETCNTRY+8~, GETCNTRY+15
DVBIEN	ISFORGN~, ISFORGN+9, ISFORGN+10, GETCNTRY~, GETCNTRY+12, GETCNTRY+13
DVBIENS	GETCNTRY+9~, GETCNTRY+13*, GETCNTRY+14, GETCNTRY+16, GETCNTRY+17
DVBMSE	SVC+20~, SVC+23, SVC+24, SVC+26, SVC+27, SVC+28
DVBNAME	GETCNTRY+10~, GETCNTRY+11, GETCNTRY+16, GETCNTRY+17*, GETCNTRY+18
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
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!
XDD	KILL+4!
>> XST	HDR+2*
XX	KILL+4!
Y	KILL+3!, DICW1, VARS+33*
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: 6

Caller Graph

Caller Graph Total: 44

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: