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  | All
Print Page as PDF
Routine: DGENUPL3

Package: Registration

Routine: DGENUPL3


Information

DGENUPL3 ;ALB/CJM,ISA,KWP,AEG,BRM,ERC,CKN,BAJ,PHH,TDM,LBD,DJS,KUM,JAM,HM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;12 June 2018 5:35PM

Source Information

Source file <DGENUPL3.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 7 $$NATNAME^DGENELA  ($$FIELD,UNLOCK)^DGENPTA1  ADDERROR^DGENUPL  $$CONVERT^DGENUPL1  ID1^DGNOZMH  $$VALID^DGRPDT  ELIG^VADPT  
MailMan 1 ^XMD  
VA FileMan 1 $$EXTERNAL^DILFD  

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

Package Total Caller Graph
Registration 9 DGENELA1  DGENPTA1  DGENUPL2  DGENUPL4  DGENUPL5  DGENUPL7  DGENUPL8  DGRPLE  
DGRPP  

Entry Points

Name Comments DBIA/ICR reference
ADDMSG(MSGS,MESSAGE,TOHEC) ;
NOTIFY(DGPAT,MSGS) ;
BEGUPLD(DFN) ;
ENDUPLD(DFN) ;
CKUPLOAD(DFN) ;
SCVET ;moved from DGENUPL4 - DG*5.3*688
NONVET(DGCODE) ;map Patient Type from Primary Elig (and POS)
POS(DGTYPE) ;for these Elig Codes, check POS to determine Patient Type
ZMH ;Purple Heart, POW, OEF/OIF Conflict Loc, Military Service Episodes, Medal of Honor
POWLOC(LOC,ERROR) ;POW Confinement Location mapping with HL7 table VA023
; Input: LOC - HL7 code for location
; Output: ERROR - Return error 1 on failure
; IEN22 - IEN of file 22

External References

Name Field # of Occurrence
$$NATNAME^DGENELA NONVET+7
$$FIELD^DGENPTA1 NOTIFY+71, NOTIFY+72
UNLOCK^DGENPTA1 CKUPLOAD+13
ADDERROR^DGENUPL ZMH+24, ZMH+66, ZMH+69, ZMH+72, ZMH+84, ZMH+97, ZMH+103
$$CONVERT^DGENUPL1 ZMH+17, ZMH+19, ZMH+20, ZMH+22, ZMH+25, ZMH+26, ZMH+28, ZMH+30, ZMH+34, ZMH+42
, ZMH+43, ZMH+44, ZMH+55, ZMH+56, ZMH+57, ZMH+61, ZMH+62, ZMH+63, ZMH+67, ZMH+70
, ZMH+76, ZMH+78, ZMH+85, ZMH+86, ZMH+98, ZMH+99
ID1^DGNOZMH ZMH+14
$$VALID^DGRPDT ZMH+35
$$EXTERNAL^DILFD NOTIFY+54, NOTIFY+71, NOTIFY+72
ELIG^VADPT ZMH+82
^XMD NOTIFY+79

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: CKUPLOAD+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
^IVM(301.9 - [#301.9] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] SCVET+2, SCVET+3, NONVET+12, POS+6
^DGEN("ELIGIBILITY UPLOAD" BEGUPLD+11, ENDUPLD+4
^DIC(21 - [#21] POS+3, POS+4
^DIC(22 - [#22] POWLOC+10
^DIC(23 - [#23] ZMH+18
^DIC(25 - [#25] ZMH+21
^DPT - [#2] ZMH+14*, ZMH+93
^IVM(301.9 - [#301.9] NOTIFY+53
^TMP($J ZMH+8*

Label References

Name Line Occurrences
$$BEGUPLD CKUPLOAD+11, CKUPLOAD+14
$$NONVET SCVET+4
$$POS NONVET+9
$$POWLOC ZMH+64
ENDUPLD CKUPLOAD+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOS ZMH+16~, ZMH+17*, ZMH+18*, ZMH+36, ZMH+38
CD NOTIFY+16~, NOTIFY+25*, NOTIFY+30*, NOTIFY+37
COM ZMH+16~, ZMH+26*, ZMH+36, ZMH+38
COUNT NOTIFY+15~, NOTIFY+26*, NOTIFY+27, NOTIFY+28, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+77*
DA ZMH+16~
DFN BEGUPLD~, BEGUPLD+10, BEGUPLD+11, ENDUPLD~, ENDUPLD+3, ENDUPLD+4, CKUPLOAD~, CKUPLOAD+11, CKUPLOAD+13, CKUPLOAD+14
, CKUPLOAD+16, ZMH+14, ZMH+93
DGCODE NONVET~, NONVET+6, NONVET+7
>> DGELG("ELIG" SCVET+4
>> DGELG("MOH" ZMH+78*, ZMH+79
>> DGELG("MOHAWRDDATE" ZMH+86*, ZMH+88*
>> DGELG("MOHEXEMPDATE" ZMH+104*, ZMH+106*, ZMH+107*, ZMH+108*
>> DGELG("MOHSTATDATE" ZMH+99*, ZMH+101*
>> DGELG("PH" ZMH+42*
>> DGELG("POS" POS+1
>> DGELG("POW" ZMH+62*
>> DGELG3("SC" SCVET+2, SCVET+3
DGERRMSG ZMH+75~, ZMH+92*, ZMH+94*, ZMH+97
DGFDD NOTIFY+16~, ZMH+16~, ZMH+34*, ZMH+35, ZMH+36
DGLEGDT ZMH+75~, ZMH+89*, ZMH+106, ZMH+107, ZMH+108
DGNEW ZMH+7~, ZMH+14*, ZMH+15!
>> DGNMSE( ZMH+36*, ZMH+38*
>> DGOEIF("COUNT" ZMH+53*, ZMH+54, ZMH+55, ZMH+56, ZMH+57, ZMH+58
>> DGOEIF("FR" ZMH+56*
>> DGOEIF("LOC" ZMH+54*
>> DGOEIF("LOCK" ZMH+58*
>> DGOEIF("SITE" ZMH+55*
>> DGOEIF("TO" ZMH+57*
DGPAT NOTIFY~
DGPAT("DOB" NOTIFY+47*, NOTIFY+71
DGPAT("MOH" ZMH+76*, ZMH+87, ZMH+88, ZMH+100, ZMH+101, ZMH+104
DGPAT("MOHAWRDDATE" ZMH+85*, ZMH+87, ZMH+88*, ZMH+90, ZMH+91, ZMH+94, ZMH+96*, ZMH+105, ZMH+106, ZMH+107
, ZMH+108
DGPAT("MOHEXEMPDATE" ZMH+104*, ZMH+106*, ZMH+107*, ZMH+108*
DGPAT("MOHSTATDATE" ZMH+98*, ZMH+100*, ZMH+101*
DGPAT("NAME" NOTIFY+45*, NOTIFY+48, NOTIFY+50, NOTIFY+69
DGPAT("PHI" ZMH+41*
DGPAT("PHRR" ZMH+44*
DGPAT("PHST" ZMH+43*
DGPAT("POWFDT" ZMH+67*
DGPAT("POWI" ZMH+61*
DGPAT("POWLOC" ZMH+63*, ZMH+64*
DGPAT("POWTDT" ZMH+70*
DGPAT("SEX" NOTIFY+46*, NOTIFY+72
DGPAT("SSN" NOTIFY+49, NOTIFY+70, ZMH+24, ZMH+66, ZMH+69, ZMH+72, ZMH+84, ZMH+97, ZMH+103
DGPAT("VETERAN" ZMH+80, ZMH+81
>> DGPAT3("PATYPE" SCVET+2*, SCVET+3*, SCVET+4*
>> DGPAT3("VETERAN" SCVET+1, SCVET+2*, SCVET+3*, SCVET+4
>> DGPOS POS+1*, POS+2, POS+3, POS+4*, POS+5
DGTYPE NONVET+4~, NONVET+5*, NONVET+9*, NONVET+10*, NONVET+11*, NONVET+12*, NONVET+13, POS~, POS+5*, POS+6*
, POS+7
DGVDOB ZMH+75~, ZMH+93*, ZMH+94
DIE ZMH+16~
DIS ZMH+16~, ZMH+20*, ZMH+21*, ZMH+36, ZMH+38
DR ZMH+16~
DT ZMH+91, ZMH+101
ELIG NOTIFY+16~, NOTIFY+25*, NOTIFY+27*, NOTIFY+34
>> ERRCOUNT ZMH+24, ZMH+66, ZMH+69, ZMH+72, ZMH+84, ZMH+97, ZMH+103
ERROR ZMH+16*, ZMH+23, ZMH+64, ZMH+65, ZMH+67, ZMH+68, ZMH+70, ZMH+71, ZMH+81*, ZMH+82*
, ZMH+83, ZMH+85, ZMH+86, ZMH+87*, ZMH+91*, ZMH+94*, ZMH+95, ZMH+98, ZMH+99, ZMH+100*
, ZMH+102, POWLOC~, POWLOC+5*, POWLOC+6*, POWLOC+11*
HEADER NOTIFY+16~, NOTIFY+31*, NOTIFY+34*, NOTIFY+35*, NOTIFY+36*, NOTIFY+37*, NOTIFY+50
>> HLECH ZMH+17, ZMH+19, ZMH+20, ZMH+22, ZMH+25, ZMH+26, ZMH+28, ZMH+30, ZMH+34, ZMH+41
, ZMH+42, ZMH+43, ZMH+44, ZMH+48, ZMH+55, ZMH+56, ZMH+57, ZMH+61, ZMH+62, ZMH+63
, ZMH+67, ZMH+70, ZMH+76, ZMH+78, ZMH+85, ZMH+86, ZMH+98, ZMH+99
I CKUPLOAD+10~, CKUPLOAD+14*, ZMH+11*, ZMH+14*
>> IEN22 POWLOC+10*, POWLOC+11, POWLOC+12
LOC POWLOC~, POWLOC+6, POWLOC+10
MAILGRP NOTIFY+16~, NOTIFY+53*, NOTIFY+54*, NOTIFY+55
MESSAGE ADDMSG~, ADDMSG+10, ADDMSG+12
>> MSGID ZMH+24, ZMH+66, ZMH+69, ZMH+72, ZMH+84, ZMH+97, ZMH+103
MSGS ADDMSG~, NOTIFY~
MSGS( ADDMSG+12*, NOTIFY+26, NOTIFY+27, NOTIFY+28, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+77
MSGS("HEC" ADDMSG+13*
MSGS(0 ADDMSG+11*, ADDMSG+12, NOTIFY+19
NSC NOTIFY+16~, NOTIFY+25*, NOTIFY+26, NOTIFY+28*, NOTIFY+35, NOTIFY+36
OEIFLOC ZMH+47~, ZMH+48*, ZMH+49, ZMH+50*, ZMH+51*, ZMH+52, ZMH+54
>> OLDPAT("DOB" NOTIFY+47
>> OLDPAT("NAME" NOTIFY+45
>> OLDPAT("SEX" NOTIFY+46
POW NOTIFY+16~, NOTIFY+25*, NOTIFY+29*, NOTIFY+36
PTELG NONVET+4~, NONVET+5*, NONVET+7*, NONVET+8, NONVET+9, NONVET+10
RES ZMH+16~, ZMH+28*, ZMH+38
RESCODE ZMH+16~, ZMH+30*, ZMH+38
SED ZMH+16~, ZMH+22*, ZMH+23, ZMH+36, ZMH+38
>> SEG(10 ZMH+30
>> SEG(2 ZMH+9, ZMH+11, ZMH+24, ZMH+33, ZMH+40, ZMH+46, ZMH+60, ZMH+74
>> SEG(3 ZMH+17, ZMH+19, ZMH+20, ZMH+41, ZMH+42, ZMH+43, ZMH+44, ZMH+48, ZMH+55, ZMH+61
, ZMH+62, ZMH+63, ZMH+76, ZMH+78
>> SEG(4 ZMH+22, ZMH+25, ZMH+56, ZMH+57, ZMH+67, ZMH+70, ZMH+85, ZMH+86, ZMH+98, ZMH+99
>> SEG(5 ZMH+26
>> SEG(8 ZMH+11*, ZMH+24, ZMH+34
>> SEG(9 ZMH+28
SN ZMH+16~, ZMH+19*, ZMH+36, ZMH+38
SSD ZMH+16~, ZMH+25*, ZMH+36, ZMH+38
TBL023 POWLOC+4~
TBL023( POWLOC+10
TBL023("A" POWLOC+9*
TBL023("B" POWLOC+9*
TBL023(4 POWLOC+7*
TBL023(5 POWLOC+7*
TBL023(6 POWLOC+7*
TBL023(7 POWLOC+8*
TBL023(8 POWLOC+8*
TBL023(9 POWLOC+8*
TEXT NOTIFY+15~
TEXT(1 NOTIFY+67*
TEXT(10 NOTIFY+77*
TEXT(2 NOTIFY+68*
TEXT(3 NOTIFY+69*
TEXT(4 NOTIFY+70*
TEXT(5 NOTIFY+71*
TEXT(6 NOTIFY+72*
TEXT(7 NOTIFY+73*
TEXT(8 NOTIFY+75*
TEXT(9 NOTIFY+76*
TMPSTR NOTIFY+16~, NOTIFY+48*, NOTIFY+49*, NOTIFY+50
TODAY ZMH+75~
TOHEC ADDMSG~, ADDMSG+13
U POS+4, ZMH+36, ZMH+38
VAEL ZMH+75~
VAEL(4 ZMH+82
XMDF NOTIFY+15~, NOTIFY+40*
>> XMDUN NOTIFY+41*
XMDUZ NOTIFY+15~, NOTIFY+41*
XMROU NOTIFY+15~
XMSTRIP NOTIFY+15~
XMSUB NOTIFY+15~, NOTIFY+50*
XMTEXT NOTIFY+15~, NOTIFY+66*
XMY NOTIFY+15~
XMY("G." NOTIFY+55*
XMZ NOTIFY+15~
Y ZMH+75~
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  | All