Routine: BHLXAC

Information

BHLXAC ; cmi/flag/maw - BHL Autocreate X12 fields, segs, msgs ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZISC $$OPEN^%ZISH
VA Fileman	2	FILE^DICN ^DIR
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
MADD(MSG)
SEGADD(ASEG,ASEQ,AFLD)	;-- add the field to the segment
ASK()	;-- ask the type of message
IN()	;-- ask if this is an inbound message
EOJ	;-- kill variables and quit
FASK()	;-- file name
MSGADD(MMSG,MSEG,MSEQ,MRPT,IN)	;-- add the segment to the message
SADD(XP,LP,SG,SQ)
FLDADD(XP,LP,SG,LJ,XSG,MG)
MAIN	;-- this is the main routine driver
READ(DIR,FNM,MSG)	;-- read in the file and start creating

External References

Name	Field # of Occurrence
^%ZISC	EOJ+1
$$OPEN^%ZISH	READ+3
FILE^DICN	SADD+6, FLDADD+7, MADD+4, SEGADD+8, MSGADD+9
^DIR	ASK+2, FASK+2, FASK+8, IN+2
EN^XBVK	EOJ+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: BHLX Line Location: READ+7
Routine Call	DIR Line Location: ASK+2 FASK+2 FASK+8 IN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHL7S - [#4010]	Classic Fileman Calls
^INTHL7M - [#4011]	Classic Fileman Calls
^INTHL7F - [#4012]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(4010	SEGADD+6
^DD(4011	MSGADD+5
^INTHL7F("B"	FLDADD+2
^INTHL7M("B"	READ+5
^INTHL7M("SEG"	MSGADD+1
^INTHL7S("B"	SADD+2
^INTHL7S("FIELD"	SEGADD+2

Label References

Name	Line Occurrences
$$FASK	MAIN+2
$$FLDADD	READ+19
$$IN	MAIN+6
$$MADD	READ+6
$$MSGADD	READ+16
$$SADD	READ+15
$$SEGADD	READ+20
EOJ	MAIN+9
READ	MAIN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFLD	SEGADD~, SEGADD+1, SEGADD+2
ASEG	SEGADD~, SEGADD+2, SEGADD+4, SEGADD+5
ASEQ	SEGADD~, SEGADD+7
>> BHLAFLD	READ+19*, READ+20
>> BHLI	READ+7*
>> BHLJ	READ+17*, READ+18, READ+19, READ+20
>> BHLX	READ+7*, READ+8, READ+9, READ+11, READ+12, READ+13, READ+14
>> BHLXDIR	FASK+5*, FASK+11
>> BHLXFNM	MAIN+2*, MAIN+3, MAIN+4, MAIN+7
>> BHLXIN	MAIN+6*, READ+16
>> BHLXMG	READ+16*
>> BHLXMI	READ+5, READ+6, READ+16
>> BHLXMSG	MAIN+4*, MAIN+5, MAIN+7
>> BHLXNF	MAIN+8, READ+4*
>> BHLXP	READ+1*, READ+5, READ+6, READ+15, READ+19
>> BHLXSEG	READ+15*, READ+16, READ+19, READ+20
>> BHLXSEGE	READ+20*
>> BHLXY	READ+3*
>> C	MAIN+1*, READ+9, READ+11, READ+12, READ+13, READ+14
>> DA(1	SEGADD+4, MSGADD+3
DD	SADD+3!, FLDADD+3!, MADD+1!, SEGADD+3!, MSGADD+2!
DIC	SADD+4, FLDADD+3!, FLDADD+4, MADD+1!, MADD+2, SEGADD+3!, SEGADD+5, MSGADD+2!, MSGADD+4*
DIC("DR"	SADD+5, FLDADD+6, MADD+3, SEGADD+7, MSGADD+7, MSGADD+8
DIC("P"	SEGADD+6, MSGADD+5
DIC(0	SADD+4, FLDADD+4, MADD+2, SEGADD+5, MSGADD+4*
DIR	ASK+3!, FASK+3!, FASK+9!, IN+3!, READ~, READ+3
DIR("A"	ASK+1, FASK+1, FASK+7, IN+1
DIR(0	ASK+1, FASK+1, FASK+7, IN+1
>> DIRUT	ASK+4, FASK+4, FASK+10, IN+4
DO	SADD+3!, FLDADD+3!, MADD+1!, SEGADD+3!, MSGADD+2!
DTIME	READ+7
>> DTL	FLDADD+5*, FLDADD+6
>> FLDS	READ+12*, READ+17
FNM	READ~, READ+3
IN	MSGADD~, MSGADD+8
IO	READ+7
LJ	FLDADD~, FLDADD+1, FLDADD+5
>> LOOP	READ+9, READ+10, READ+15, READ+19
LP	SADD~, SADD+1, FLDADD~, FLDADD+1, FLDADD+5
MG	FLDADD~, FLDADD+5
MMSG	MSGADD~, MSGADD+1, MSGADD+3, MSGADD+4
MRPT	MSGADD~, MSGADD+7
MSEG	MSGADD~, MSGADD+1, MSGADD+6
MSEQ	MSGADD~, MSGADD+7
MSG	READ~, READ+1, READ+19, MADD~, MADD+2
>> RPT	READ+13*, READ+16
>> SEG	READ+11*, READ+15, READ+19
>> SEQ	READ+14*, READ+15, READ+16
SG	SADD~, SADD+1, SADD+5, FLDADD~, FLDADD+1, FLDADD+5
SQ	SADD~, SADD+1
U	MAIN+4, MAIN+7, FASK+11
>> X	SADD+1, SADD+2, FLDADD+1, FLDADD+2, MADD+2, SEGADD+1, MSGADD+6*
XP	SADD~, SADD+1, FLDADD~, FLDADD+1
XSG	FLDADD~
Y	ASK+5, FASK+5, FASK+6!, FASK+11, IN+5, READ+2~, READ+4, SADD+7, FLDADD+8, MADD+5 , SEGADD+9, MSGADD+10

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLXAC

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: