Routine: DGENUPL3

Information

DGENUPL3 ;ALB/CJM,ISA/KWP,AEG,BRM,ERC,CKN,BAJ,PHH,TDM,LBD - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ; 6/4/09 4:09pm

Source Information

Source file <DGENUPL3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Registration	4	$$NATNAME^DGENELA ($$FIELD,UNLOCK)^DGENPTA1 ADDERROR^DGENUPL $$CONVERT^DGENUPL1
MailMan	1	^XMD
VA Fileman	1	$$EXTERNAL^DILFD

Caller Graph

Caller Graph Total: 10

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

Entry Points

Name	Comments	DBIA/ICR reference
ZMH	;Purple Heart, POW, OEF/OIF Conflict Loc, Military Service Episodes
CKUPLOAD(DFN)	;
BEGUPLD(DFN)	;
ENDUPLD(DFN)	;
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
NOTIFY(DGPAT,MSGS)	;
SCVET	;moved from DGENUPL4 - DG5.3688
POS(DGTYPE)	;for these Elig Codes, check POS to determine Patient Type
NONVET(DGCODE)	;map Patient Type from Primary Elig (and POS)
ADDMSG(MSGS,MESSAGE,TOHEC)	;

External References

Name	Field # of Occurrence
$$NATNAME^DGENELA	NONVET+7
$$FIELD^DGENPTA1	NOTIFY+70, NOTIFY+71
UNLOCK^DGENPTA1	CKUPLOAD+13
ADDERROR^DGENUPL	ZMH+12, ZMH+43, ZMH+46, ZMH+49
$$CONVERT^DGENUPL1	ZMH+5, ZMH+7, ZMH+8, ZMH+10, ZMH+13, ZMH+14, ZMH+19, ZMH+20, ZMH+21, ZMH+32 , ZMH+33, ZMH+34, ZMH+38, ZMH+39, ZMH+40, ZMH+44, ZMH+47
$$EXTERNAL^DILFD	NOTIFY+54, NOTIFY+61, NOTIFY+70, NOTIFY+71
^XMD	NOTIFY+78

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

FileNo	Call Tags
^DPT - [#2]	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+6
^DIC(25 - [#25]	ZMH+9
^IVM(301.9	NOTIFY+53, NOTIFY+60

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BOS	ZMH+4~, ZMH+5, ZMH+6, ZMH+15
CD	NOTIFY+16~, NOTIFY+25, NOTIFY+30, NOTIFY+37
COM	ZMH+4~, ZMH+14*, ZMH+15
COUNT	NOTIFY+15~, NOTIFY+26, NOTIFY+27, NOTIFY+28, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+76
DFN	BEGUPLD~, BEGUPLD+10, BEGUPLD+11, ENDUPLD~, ENDUPLD+3, ENDUPLD+4, CKUPLOAD~, CKUPLOAD+11, CKUPLOAD+13, CKUPLOAD+14 , CKUPLOAD+16
DGCODE	NONVET~, NONVET+6, NONVET+7
>> DGELG("ELIG"	SCVET+4
>> DGELG("PH"	ZMH+19*
>> DGELG("POS"	POS+1
>> DGELG("POW"	ZMH+39*
>> DGELG3("SC"	SCVET+2, SCVET+3
>> DGNMSE(	ZMH+15*
>> DGOEIF("COUNT"	ZMH+30*, ZMH+31, ZMH+32, ZMH+33, ZMH+34, ZMH+35
>> DGOEIF("FR"	ZMH+33*
>> DGOEIF("LOC"	ZMH+31*
>> DGOEIF("LOCK"	ZMH+35*
>> DGOEIF("SITE"	ZMH+32*
>> DGOEIF("TO"	ZMH+34*
DGPAT	NOTIFY~
DGPAT("DOB"	NOTIFY+47*, NOTIFY+70
DGPAT("NAME"	NOTIFY+45*, NOTIFY+48, NOTIFY+50, NOTIFY+68
DGPAT("PHI"	ZMH+18*
DGPAT("PHRR"	ZMH+21*
DGPAT("PHST"	ZMH+20*
DGPAT("POWFDT"	ZMH+44*
DGPAT("POWI"	ZMH+38*
DGPAT("POWLOC"	ZMH+40, ZMH+41
DGPAT("POWTDT"	ZMH+47*
DGPAT("SEX"	NOTIFY+46*, NOTIFY+71
DGPAT("SSN"	NOTIFY+49, NOTIFY+69, ZMH+12, ZMH+43, ZMH+46, ZMH+49
>> 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
DIS	ZMH+4~, ZMH+8, ZMH+9, ZMH+15
ELIG	NOTIFY+16~, NOTIFY+25, NOTIFY+27, NOTIFY+34
>> ERRCOUNT	ZMH+12, ZMH+43, ZMH+46, ZMH+49
ERROR	ZMH+11, ZMH+41, ZMH+42, ZMH+44, ZMH+45, ZMH+47, ZMH+48, POWLOC~, POWLOC+5, POWLOC+6 , POWLOC+11*
HEADER	NOTIFY+16~, NOTIFY+31, NOTIFY+34, NOTIFY+35, NOTIFY+36, NOTIFY+37*, NOTIFY+50
>> HLECH	ZMH+5, ZMH+7, ZMH+8, ZMH+10, ZMH+13, ZMH+14, ZMH+18, ZMH+19, ZMH+20, ZMH+21 , ZMH+25, ZMH+32, ZMH+33, ZMH+34, ZMH+38, ZMH+39, ZMH+40, ZMH+44, ZMH+47
I	CKUPLOAD+10~, CKUPLOAD+14*
>> IEN22	POWLOC+10*, POWLOC+11, POWLOC+12
LOC	POWLOC~, POWLOC+6, POWLOC+10
MAILGRP	NOTIFY+16~, NOTIFY+53, NOTIFY+54, NOTIFY+55, NOTIFY+60, NOTIFY+61, NOTIFY+62
MESSAGE	ADDMSG~, ADDMSG+10, ADDMSG+12
>> MSGID	ZMH+12, ZMH+43, ZMH+46, ZMH+49
MSGS	ADDMSG~, NOTIFY~
MSGS(	ADDMSG+12*, NOTIFY+26, NOTIFY+27, NOTIFY+28, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+76
MSGS("HEC"	ADDMSG+13*, NOTIFY+59
MSGS(0	ADDMSG+11*, ADDMSG+12, NOTIFY+19
NSC	NOTIFY+16~, NOTIFY+25, NOTIFY+26, NOTIFY+28, NOTIFY+35, NOTIFY+36
OEIFLOC	ZMH+24~, ZMH+25, ZMH+26, ZMH+27, ZMH+28*, ZMH+29, ZMH+31
>> 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
SED	ZMH+4~, ZMH+10*, ZMH+11, ZMH+15
>> SEG(2	ZMH+3, ZMH+17, ZMH+23, ZMH+37
>> SEG(3	ZMH+5, ZMH+7, ZMH+8, ZMH+18, ZMH+19, ZMH+20, ZMH+21, ZMH+25, ZMH+32, ZMH+38 , ZMH+39, ZMH+40
>> SEG(4	ZMH+10, ZMH+13, ZMH+33, ZMH+34, ZMH+44, ZMH+47
>> SEG(5	ZMH+14
SN	ZMH+4~, ZMH+7*, ZMH+15
SSD	ZMH+4~, ZMH+13*, ZMH+15
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+66*
TEXT(10	NOTIFY+76*
TEXT(2	NOTIFY+67*
TEXT(3	NOTIFY+68*
TEXT(4	NOTIFY+69*
TEXT(5	NOTIFY+70*
TEXT(6	NOTIFY+71*
TEXT(7	NOTIFY+72*
TEXT(8	NOTIFY+74*
TEXT(9	NOTIFY+75*
TMPSTR	NOTIFY+16~, NOTIFY+48, NOTIFY+49, NOTIFY+50
TOHEC	ADDMSG~, ADDMSG+13
U	POS+4, ZMH+15
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+65*
XMY	NOTIFY+15~
XMY("G."	NOTIFY+55, NOTIFY+62
XMZ	NOTIFY+15~

Customize PDF page

Package: Registration

Routine: DGENUPL3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: