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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: VAFEDOHL

Package: Registration

Routine: VAFEDOHL


Information

VAFEDOHL ;ALB/JLU/CAW;generates the HL7 message to be sent;6/29/93

Source Information

Source file <VAFEDOHL.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 4 (ADD,DEM)^VADPT  EXOHL^VAFEDUTL  (MSH,PID,PV1,ZEL)^VAFEOHL1  (OBR,OBX,ORC)^VAFEOHL2  
Health Level Seven 3 $$BHS^HLFNC1  FILE^HLTF  (EN1,INIT)^HLTRANS  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIK  

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

Package Total Caller Graph
Registration 3 VAFEDUTL  VAFEOHL1  VAFEOHL2  

Entry Points

Name Comments DBIA/ICR reference
EN
DATE ;this subroutine gets the date to start from.
CHK(VAFEDDT) ;this subroutine checks for the existance of data in the 391.51
HL ;this subroutine sets up HL7 variables.
SETUP ;starts the looping to get the info from the 391.51 file.
SET ;second layer of the loop.
BUILD ;this subroutine builds the HL7 messages segments
LOG ;sets the HL7 string into the TMP global
SEND ;sends the HL7 message
DELETE ;deletes entries that were sent.
DSTR ;builds diagnosis string

External References

Name Field # of Occurrence
^%DT DATE+2
NOW^%DTC HL+4
^DIK DELETE+3
$$BHS^HLFNC1 SET+6, SET+9
FILE^HLTF SET+5, SET+8
EN1^HLTRANS SEND+4
INIT^HLTRANS HL+8
ADD^VADPT SET+2
DEM^VADPT SET+2
EXOHL^VAFEDUTL EN+6
MSH^VAFEOHL1 BUILD+3
PID^VAFEOHL1 BUILD+4
PV1^VAFEOHL1 BUILD+6
ZEL^VAFEOHL1 BUILD+5
OBR^VAFEOHL2 BUILD+8
OBX^VAFEOHL2 BUILD+9
ORC^VAFEOHL2 BUILD+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("HLS" HL+7!, SET+6*, SET+9*, LOG+1*, DELETE+5!
^VAT(391.51 CHK+3, SETUP+3, SET+7, BUILD+1, BUILD+10*, DELETE+2, DELETE+4*, DSTR+3

Label References

Name Line Occurrences
$$CHK EN+2
BUILD SET+7
DATE EN+1
DELETE SEND+5
DSTR BUILD+1
HL EN+3
LOG SEND+3
SEND SET+7
SET SETUP+3
SETUP EN+5

Naked Globals

Name Field # of Occurrence
^( DELETE+2, DSTR+3
^(150 BUILD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HL+5, HL+7!
>> %DT DATE+1*
%H HL+7!
%I HL+7!
DA DELETE+3*!
DFN SETUP+2~, SETUP+3*, SET+7
DIK DELETE+3*!
HLDA SET+5, SET+8, BUILD+10, DELETE+5!
HLERR EN+4, DELETE+3, DELETE+4, DELETE+5!
>> HLEVN HL+2*, SET+4, SET+7, BUILD+2*, SEND+2, SEND+6*
>> HLFS SEND+2
>> HLMTN HL+6*, SET+6, SET+9
>> HLNDAP HL+3*
>> HLSDT HL+5*, SET+6, SET+9, LOG+1
I DSTR+1~, DSTR+2*, DSTR+3*
LP DELETE+1~, DELETE+2*, DELETE+3, DELETE+4
U BUILD+1, DELETE+2, DELETE+4
VA SET+1!
VADM SET+1!
VADM(1 SET+3
VAERR SET+1!
VAFEDD SETUP+2~, SET+7*
>> VAFEDDA SET+7*, BUILD+1, BUILD+10, DSTR+3
VAFEDDT EN+2, DATE+3*, CHK~, CHK+6, SETUP+3
>> VAFEDDX( DSTR+3*
>> VAFEDHL LOG+1, SEND+2*
>> VAFEDLCT SETUP+1*, LOG+1, SEND+1*, SEND+6*
VAFEDLP SETUP+2~, SETUP+3*, SET+7
>> VAFEDST1 BUILD+1*
>> VAFEDST2 BUILD+1*
VAFEDT SETUP+2~, SET+7*
>> VAFELIG BUILD+1*
VAPA SET+1!
X DATE+1*, DATE+4!, CHK+2~, CHK+3*, CHK+5*, CHK+6*, CHK+7*, CHK+8
X1 SETUP+2~
Y DATE+3, DATE+4!, DELETE+1~, DELETE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All