Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBCUTIL

Package: Automated Medical Information Exchange

Routine: DVBCUTIL


Information

DVBCUTIL ;ALB/GTS-557/THM;C&P UTILITY ROUTINE ; 11/3/2010

Source Information

Source file <DVBCUTIL.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 44

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  

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 DG*5.3*797)
; 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
;

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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] VARSVARS+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] VARSVARS+2, VARS+33
^DVB(396.4 - [#396.4] DICW1
^DVB(396.6 - [#396.6] DICW1
^TMP($J HDR+2
^VA(200 - [#200] VARS+2

Label References

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

Naked Globals

Name Field # of Occurrence
^( VARSVARS+25, ADDR+4, ADDR+22, ADDR+25, ADDR+26, ADDR+27, ADDR+28
^(0 DICW+1, DICW1VARSVARS+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!, VARSVARS+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*, HDRSSNOUT+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*, DICW2VARS+1*
RQ KILL+2!
SC KILL+2!
SEX KILL+3!, VARS*
SSN KILL+3!, VARS*, HDRSSNSHRT+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, DICW1VARSVARS+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!, DICW1VARS+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All