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: DGEN408

Package: Registration

Routine: DGEN408


Information

DGEN408 ;ALB/RKS - SEED THE HEC ; 5/3/02 3:04pm

Source Information

Source file <DGEN408.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,$$GETVCCI,$$IFLOCAL,$$IFVCCI,GETICN)^MPIF001  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Income Verification Match 1 IVMB SEED HEC WITH MPI  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for collection of MPI fields & transmission to HEC
QUE ;Background task entry point for Production option
TEST ; Test entry point for development testing. This entry point is
; not supported for user use.
COLLECT(DGEXTRCT,DGDATA) ; Collect valid MPI data
BUILD(DGEXTRCT,DGDATA,MAX,DGDEST) ; Build mailman messages of MPI data
SEND(DGDATA,DGMSG,DGDEST) ; Build and send individual mailman messages
NOTIFY(DGDATA) ; Send notification message to local mailgroup.

External References

Name Field # of Occurrence
^%ZTLOAD EN+21
$$GET1^DIQ SEND+13
^DIR EN+11, TEST+7
$$GETICN^MPIF001 COLLECT+8, COLLECT+9
$$GETVCCI^MPIF001 COLLECT+10
$$IFLOCAL^MPIF001 COLLECT+8
$$IFVCCI^MPIF001 COLLECT+8
GETICN^MPIF001 EN+5
$$SITE^VASITE QUE+6, TEST+12
$$NOW^XLFDT EN+20
^XMD SEND+21, NOTIFY+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,*7,">> There were no patient MPI"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Task Number: ",ZTSK
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"COLLECTING DATA TO SEND TO "_DGDEST_"DQMGR...please wait..."
  • Line Location: TEST+14
Routine Call
  • DIR
  • Line Location:
    • EN+11
    • TEST+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] COLLECT+7

Label References

Name Line Occurrences
BUILD QUE+10, TEST+16
COLLECT QUE+9, TEST+15
NOTIFY QUE+11, TEST+17
SEND BUILD+21, BUILD+31
TEST EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT BUILD+1~, BUILD+13*, BUILD+14*, BUILD+16
DFN COLLECT+1~, COLLECT+3*, COLLECT+7*, COLLECT+8, COLLECT+9, COLLECT+10
DGDATA QUE+1~, QUE+9, QUE+10, QUE+11, TEST+2~, TEST+15, TEST+16, TEST+17, COLLECT~, BUILD~
, BUILD+21, BUILD+31, SEND~, NOTIFY~
DGDATA("MSG" BUILD+20*, BUILD+30*, SEND+16, NOTIFY+12, NOTIFY+13
DGDATA("MSGNUM" BUILD+19*, BUILD+20, BUILD+29*, BUILD+30, SEND+14, SEND+15, SEND+16, NOTIFY+7
DGDATA("NUMREC" COLLECT+13*, BUILD+10, BUILD+11, SEND+17, NOTIFY+7
DGDATA("SITE" QUE+6*, TEST+12*, SEND+13, SEND+15
DGDATA("TEST" TEST+9*
DGDATA("TOSEND" BUILD+10*, BUILD+11*, SEND+14, SEND+15
DGDEST EN+2~, EN+13*, EN+14, QUE+10, TEST+8*, TEST+14, TEST+16, BUILD~, BUILD+21, BUILD+31
, SEND~, SEND+4, SEND+8
DGEXTRCT QUE+1~, QUE+3*, QUE+4, QUE+9, QUE+10, QUE+13, TEST+2~, TEST+10*, TEST+11, TEST+15
TEST+16, TEST+19, COLLECT~, COLLECT+9, COLLECT+10, BUILD~, BUILD+14, BUILD+16
DGMSG BUILD+1~, BUILD+6*, BUILD+7, BUILD+16, BUILD+21, BUILD+22, BUILD+31, SEND~, SEND+15, SEND+16
, SEND+17, SEND+19
DGTXT NOTIFY+1~
DGTXT( NOTIFY+7*, NOTIFY+8*, NOTIFY+9*, NOTIFY+13*
DGX BUILD+1~
DIR EN+2~, EN+11!, TEST+3!, TEST+7!
DIR("?" EN+9*, EN+10*, TEST+6*
DIR("A" EN+8*, TEST+5*
DIR("B" EN+8*
DIR(0 EN+8*, TEST+4*
DIRUT EN+2~, EN+12, TEST+7
>> IVMQUERY("LTD" QUE+7!
>> IVMQUERY("OVIS" QUE+7!
LINE TEST+2~, COLLECT+1~, COLLECT+3*, COLLECT+9, COLLECT+10, COLLECT+11*, COLLECT+13, BUILD+1~, BUILD+13*, BUILD+15*
, BUILD+16, BUILD+18, BUILD+20, BUILD+23*, BUILD+26, BUILD+30
MAX BUILD~, BUILD+3*, BUILD+4*, BUILD+10, BUILD+11, BUILD+18
MSG SEND+1~, SEND+19*
TMP SEND+7~, SEND+8*, SEND+9
U QUE+6, TEST+12, COLLECT+9, SEND+15, SEND+16
>> 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+13*, SEND+14*, NOTIFY+1~, NOTIFY+5*
XMTEXT SEND+1~, SEND+18*, NOTIFY+1~, NOTIFY+14*
XMY SEND+1~, NOTIFY+1~
XMY( SEND+9*, SEND+11*
XMY("G.IVMB H EC MPI NOTIFICATION" , SEND+12*, NOTIFY+4*
XMY("S.IVMB M PI SERVER@IVM.DOMAIN.EXT" , SEND+5*
XMZ SEND+1~, NOTIFY+1~
>> Y EN+13, TEST+8
ZTDESC EN+2~, EN+18*
ZTDTH EN+2~, EN+20*
ZTIO EN+2~, EN+19*
ZTRTN EN+2~, EN+17*
ZTSAVE EN+2~
ZTSAVE("DGDEST" EN+16*
ZTSK EN+2~, EN+23

Marked Items

Name Field # of Occurrence
$T(GETICN^MPIF001 EN+5
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