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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGEN339

Package: Registration

Routine: DGEN339


Information

DGEN339 ;ALB/SCK - IVMB HEC CLEANUP - VETERAN MERGE EXTRACT ; 1/13/2001

Source Information

Source file <DGEN339.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  
Master Patient Index VistA 1 ($$GETICN,GETICN)^MPIF001  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Income Verification Match 1 IVMB HEC DUPE VET MERGE  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
NOTIFY(DGDATA) ; Send notification message to local mailgroup.
SEND(DGDATA,DGMSG,DGDEST) ; Build and send individual mailman messages
EN ; Main entry point for veteran merged pair collection and transmission to the HEC
BUILD(DGEXTRCT,DGDATA,MAX,DGDEST) ; Build and send mailman messages of veteran pairs
TEST(MODE) ; Test entry point for development testing. This entry point is not
; supported for user use.
COLLECT(DGEXTRCT,DGDATA) ; Collect Merge From and Merge To pair from XDR Repointed Entry File
; Append ICN to end of merge pair using API call
QUE ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+20
$$GET1^DIQ SEND+9
^DIR EN+11
$$GETICN^MPIF001 COLLECT+10
GETICN^MPIF001 COLLECT+7
$$SITE^VASITE QUE+6, TEST+11
$$NOW^XLFDT EN+19
^XMD SEND+14, NOTIFY+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,*7,">> There were no patient merge entries in the XDR REPOINTED ENTRY File (15.3)"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?2,">> Please check that the Duplicate Patient Merge was completed."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Task Number: ",ZTSK
  • Line Location: EN+22
Routine Call
  • DIR
  • Line Location:
    • EN+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(15.3 - [#15.3] EN+4, COLLECT+5, COLLECT+6

Label References

Name Line Occurrences
BUILD QUE+9, TEST+20
COLLECT QUE+8, TEST+18
NOTIFY QUE+10, TEST+21
SEND BUILD+20, BUILD+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT BUILD+1~, BUILD+14*, BUILD+15*, BUILD+16
DFN1 COLLECT+2~, COLLECT+8*, COLLECT+10
DFN2 COLLECT+2~, COLLECT+9*, COLLECT+10
DGDATA QUE+1~, QUE+8, QUE+9, QUE+10, TEST+3~, TEST+18, TEST+20, TEST+21, COLLECT~, BUILD~
, BUILD+20, BUILD+26, SEND~, NOTIFY~
DGDATA("MSG" BUILD+19*, BUILD+25*, SEND+10, NOTIFY+12, NOTIFY+13
DGDATA("MSGNUM" BUILD+13*, BUILD+19, BUILD+21*, BUILD+25, SEND+9, SEND+10, NOTIFY+7
DGDATA("NUMREC" TEST+16*, COLLECT+13*, BUILD+10, BUILD+11, SEND+10, NOTIFY+7
DGDATA("SITE" QUE+6*, TEST+11*, SEND+9, SEND+10
DGDATA("TEST" TEST+7*
DGDATA("TOSEND" BUILD+10*, BUILD+11*, SEND+9, SEND+10
DGDEST EN+1~, EN+13*, QUE+9, BUILD~, BUILD+20, BUILD+26, SEND~, SEND+4
DGEXTRCT QUE+1~, QUE+3*, QUE+4, QUE+8, QUE+9, QUE+12, TEST+3~, TEST+8*, TEST+9, TEST+15
, TEST+18, TEST+20, TEST+23, COLLECT~, COLLECT+11, BUILD~, BUILD+15, BUILD+16
DGMSG BUILD+1~, BUILD+6*, BUILD+7, BUILD+16, BUILD+20, BUILD+22, BUILD+26, SEND~, SEND+10, SEND+12
DGTXT NOTIFY+1~
DGTXT( NOTIFY+7*, NOTIFY+8*, NOTIFY+9*, NOTIFY+13*
DGX BUILD+1~
DIR EN+1~, EN+11!
DIR("?" EN+9*, EN+10*
DIR("A" EN+8*
DIR("B" EN+8*
DIR(0 EN+8*
DIRUT EN+1~, EN+12
IX COLLECT+2~, COLLECT+4*, COLLECT+5*, COLLECT+6
LINE TEST+3~, TEST+14*, TEST+15, TEST+16, COLLECT+2~, COLLECT+4*, COLLECT+11, COLLECT+12*, COLLECT+13, BUILD+1~
, BUILD+14*, BUILD+16, BUILD+17*, BUILD+18, BUILD+19, BUILD+23*, BUILD+25
MAX BUILD~, BUILD+3*, BUILD+4*, BUILD+10, BUILD+11, BUILD+18
MODE TEST~, TEST+5*, TEST+13
MSG SEND+1~, SEND+12*
U QUE+6, TEST+11, COLLECT+8, COLLECT+9, COLLECT+10, SEND+10
>> X NOTIFY+11*, NOTIFY+12*, NOTIFY+13
XMDUZ SEND+1~, SEND+3*, NOTIFY+1~, NOTIFY+3*
XMERR SEND+1~, NOTIFY+1~
XMSUB SEND+1~, SEND+9*, NOTIFY+1~, NOTIFY+5*
XMTEXT SEND+1~, SEND+11*, NOTIFY+1~, NOTIFY+14*
XMY SEND+1~, NOTIFY+1~
XMY( SEND+7*
XMY("G.IVMB H EC VSE NOTIFICATION" , SEND+8*, NOTIFY+4*
XMY("S.IVMB V SE SERVER@IVM.DOMAIN.EXT" , SEND+4*, SE SERVER@PDQMGR.IVM.DOMAIN.EXT" , SEND+5*
XMZ SEND+1~, NOTIFY+1~
>> Y EN+13
ZTDESC EN+1~, EN+17*
ZTDTH EN+1~, EN+19*
ZTIO EN+1~, EN+18*
ZTRTN EN+1~, EN+16*
ZTSAVE EN+1~
ZTSAVE("DGDEST" EN+15*
ZTSK EN+1~, EN+22
ZVALUE COLLECT+2~, COLLECT+6*, COLLECT+8, COLLECT+9, COLLECT+10*, COLLECT+11

Marked Items

Name Field # of Occurrence
$T(GETICN^MPIF001 COLLECT+7
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 |  Local Variables |  Marked Items |  All