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 - 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 6 $$NATNAME^DGENELA  ($$FIELD,UNLOCK)^DGENPTA1  ADDERROR^DGENUPL  $$CONVERT^DGENUPL1  ID1^DGNOZMH  $$VALID^DGRPDT  
VA FileMan 2 ^DIE  $$EXTERNAL^DILFD  
MailMan 1 ^XMD  

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

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

Entry Points

Name Comments DBIA/ICR reference
ZMH ;Purple Heart, POW, OEF/OIF Conflict Loc, Military Service Episodes, Medal of Honor
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 - DG*5.3*688
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+71, NOTIFY+72
UNLOCK^DGENPTA1 CKUPLOAD+13
ADDERROR^DGENUPL ZMH+22, ZMH+64, ZMH+67, ZMH+70
$$CONVERT^DGENUPL1 ZMH+15, ZMH+17, ZMH+18, ZMH+20, ZMH+23, ZMH+24, ZMH+26, ZMH+28, ZMH+32, ZMH+40
, ZMH+41, ZMH+42, ZMH+53, ZMH+54, ZMH+55, ZMH+59, ZMH+60, ZMH+61, ZMH+65, ZMH+68
, ZMH+73, ZMH+74
ID1^DGNOZMH ZMH+12
$$VALID^DGRPDT ZMH+33
^DIE ZMH+12
$$EXTERNAL^DILFD NOTIFY+54, NOTIFY+71, NOTIFY+72
^XMD NOTIFY+79

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: CKUPLOAD+14
Routine Call
  • DIE
  • Line Location:
    • ZMH+12

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+16
^DIC(25 - [#25] ZMH+19
^DPT - [#2] ZMH+12
^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+62
ENDUPLD CKUPLOAD+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOS ZMH+14~, ZMH+15*, ZMH+16*, ZMH+34, ZMH+36
CD NOTIFY+16~, NOTIFY+25*, NOTIFY+30*, NOTIFY+37
COM ZMH+14~, ZMH+24*, ZMH+34, ZMH+36
COUNT NOTIFY+15~, NOTIFY+26*, NOTIFY+27, NOTIFY+28, NOTIFY+29, NOTIFY+30, NOTIFY+31, NOTIFY+77*
DA ZMH+12*, ZMH+14~
DA(1 ZMH+12*
DFN BEGUPLD~, BEGUPLD+10, BEGUPLD+11, ENDUPLD~, ENDUPLD+3, ENDUPLD+4, CKUPLOAD~, CKUPLOAD+11, CKUPLOAD+13, CKUPLOAD+14
, CKUPLOAD+16, ZMH+12
DGCODE NONVET~, NONVET+6, NONVET+7
>> DGELG("ELIG" SCVET+4
>> DGELG("MOH" ZMH+74*
>> DGELG("PH" ZMH+40*
>> DGELG("POS" POS+1
>> DGELG("POW" ZMH+60*
>> DGELG3("SC" SCVET+2, SCVET+3
DGFDD NOTIFY+16~, ZMH+14~, ZMH+32*, ZMH+33, ZMH+34
DGNEW ZMH+7~, ZMH+12*, ZMH+13!
>> DGNMSE( ZMH+34*, ZMH+36*
>> DGOEIF("COUNT" ZMH+51*, ZMH+52, ZMH+53, ZMH+54, ZMH+55, ZMH+56
>> DGOEIF("FR" ZMH+54*
>> DGOEIF("LOC" ZMH+52*
>> DGOEIF("LOCK" ZMH+56*
>> DGOEIF("SITE" ZMH+53*
>> DGOEIF("TO" ZMH+55*
DGPAT NOTIFY~
DGPAT("DOB" NOTIFY+47*, NOTIFY+71
DGPAT("MOH" ZMH+73*
DGPAT("NAME" NOTIFY+45*, NOTIFY+48, NOTIFY+50, NOTIFY+69
DGPAT("PHI" ZMH+39*
DGPAT("PHRR" ZMH+42*
DGPAT("PHST" ZMH+41*
DGPAT("POWFDT" ZMH+65*
DGPAT("POWI" ZMH+59*
DGPAT("POWLOC" ZMH+61*, ZMH+62*
DGPAT("POWTDT" ZMH+68*
DGPAT("SEX" NOTIFY+46*, NOTIFY+72
DGPAT("SSN" NOTIFY+49, NOTIFY+70, ZMH+22, ZMH+64, ZMH+67, ZMH+70
>> 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
DIE ZMH+12*, ZMH+14~
DIE(0 ZMH+12*
DIS ZMH+14~, ZMH+18*, ZMH+19*, ZMH+34, ZMH+36
DR ZMH+12*, ZMH+14~
ELIG NOTIFY+16~, NOTIFY+25*, NOTIFY+27*, NOTIFY+34
>> ERRCOUNT ZMH+22, ZMH+64, ZMH+67, ZMH+70
ERROR ZMH+14*, ZMH+21, ZMH+62, ZMH+63, ZMH+65, ZMH+66, ZMH+68, ZMH+69, POWLOC~, POWLOC+5*
, POWLOC+6*, POWLOC+11*
HEADER NOTIFY+16~, NOTIFY+31*, NOTIFY+34*, NOTIFY+35*, NOTIFY+36*, NOTIFY+37*, NOTIFY+50
>> HLECH ZMH+15, ZMH+17, ZMH+18, ZMH+20, ZMH+23, ZMH+24, ZMH+26, ZMH+28, ZMH+32, ZMH+39
, ZMH+40, ZMH+41, ZMH+42, ZMH+46, ZMH+53, ZMH+54, ZMH+55, ZMH+59, ZMH+60, ZMH+61
, ZMH+65, ZMH+68, ZMH+73, ZMH+74
I CKUPLOAD+10~, CKUPLOAD+14*, ZMH+11*, ZMH+12*
>> 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+22, ZMH+64, ZMH+67, ZMH+70
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+45~, ZMH+46*, ZMH+47, ZMH+48*, ZMH+49*, ZMH+50, ZMH+52
>> 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+14~, ZMH+26*, ZMH+36
RESCODE ZMH+14~, ZMH+28*, ZMH+36
SED ZMH+14~, ZMH+20*, ZMH+21, ZMH+34, ZMH+36
>> SEG(10 ZMH+28
>> SEG(2 ZMH+9, ZMH+11, ZMH+22, ZMH+31, ZMH+38, ZMH+44, ZMH+58, ZMH+72
>> SEG(3 ZMH+15, ZMH+17, ZMH+18, ZMH+39, ZMH+40, ZMH+41, ZMH+42, ZMH+46, ZMH+53, ZMH+59
, ZMH+60, ZMH+61, ZMH+73, ZMH+74
>> SEG(4 ZMH+20, ZMH+23, ZMH+54, ZMH+55, ZMH+65, ZMH+68
>> SEG(5 ZMH+24
>> SEG(8 ZMH+11*, ZMH+22, ZMH+32
>> SEG(9 ZMH+26
SN ZMH+14~, ZMH+17*, ZMH+34, ZMH+36
SSD ZMH+14~, ZMH+23*, ZMH+34, ZMH+36
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
TOHEC ADDMSG~, ADDMSG+13
U POS+4, ZMH+34, ZMH+36
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~
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