Routine: BHLAFIN

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SEGADD	;-- add the field to the segment
SEGARRY	;-- this is the list of segments
XARY837	;-- x12 array
FLDS	;-- create the fields here for each segment
ASK	;-- ask which version of the HL7 standard
X12	;-- populate for X12
MAIN	;-- this is the main routine driver

External References

Name	Field # of Occurrence
^DIC	SEGADD+4
FILE^DICN	FLDS+6, FLDS+12
^DIE	SEGADD+8
^DIR	ASK+3, ASK+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Version not supported." Line Location: ASK+7
Routine Call	DIE Line Location: SEGADD+8
Routine Call	DIC Line Location: SEGADD+4
Routine Call	DIR Line Location: ASK+3 ASK+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(4010	SEGADD+3

Label References

Name	Line Occurrences
ASK	MAIN+2
FLDS	MAIN+4
SEGADD	FLDS+15
SEGARRY	MAIN+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BHLDA	FLDS+1*, FLDS+2, FLDS+4, FLDS+5, FLDS+10
>> BHLFLDE	FLDS+13*
>> BHLFLDS	FLDS+2*, FLDS+8
>> BHLI	FLDS+8*, FLDS+10, SEGADD+7
>> BHLPRE	ASK+12, ASK+13, FLDS+4, FLDS+10
>> BHLSEG	FLDS+7*, SEGADD+1, SEGADD+2
>> BHLSEGE	SEGADD+5*
>> BHLVER	MAIN+3, ASK+5, ASK+6, ASK+7, FLDS+1, FLDS+2
>> DA	SEGADD+7*
>> DA(1	SEGADD+1*
DD	FLDS+3!, FLDS+9!, FLDS+14!
DIC	FLDS+3!, FLDS+4, FLDS+9!, FLDS+10, FLDS+14!, SEGADD+2*, SEGADD+7, SEGADD+9!
DIC("DR"	FLDS+5, FLDS+11
DIC("P"	SEGADD+3*
DIC(0	FLDS+4, FLDS+10, SEGADD+2*
DIE	SEGADD+6!, SEGADD+7*, SEGADD+9!
DIR	ASK+8!
DIR("A"	ASK+2, ASK+9
DIR(0	ASK+1, ASK+9
>> DIRUT	ASK+4, ASK+11
DO	FLDS+3!, FLDS+9!, FLDS+14!
DR	SEGADD+6!, SEGADD+7*, SEGADD+9!
>> VER23("OBR"	SEGARRY+17*
>> VER23("OBX"	SEGARRY+18*
>> VER23("ORC"	SEGARRY+16*
>> VER23("PID"	SEGARRY+4*
>> VER23("PV1"	SEGARRY+8*
>> VER24("DG1"	SEGARRY+9*
>> VER24("EVN"	SEGARRY+2*
>> VER24("GT1"	SEGARRY+11*
>> VER24("IN1"	SEGARRY+12*
>> VER24("IN2"	SEGARRY+13*
>> VER24("MRG"	SEGARRY+15*
>> VER24("MSH"	SEGARRY+1*
>> VER24("NK1"	SEGARRY+6*
>> VER24("PD1"	SEGARRY+5*
>> VER24("PID"	SEGARRY+3*
>> VER24("PR1"	SEGARRY+10*
>> VER24("PV1"	SEGARRY+7*
>> VER24("ZP2"	SEGARRY+14*
>> X	FLDS+4, FLDS+10
>> X1000A("N2"	XARY837+3*
>> X1000A("NM1"	XARY837+2*
>> X1000A("PER"	XARY837+4*
>> X1000A("REF"	XARY837+1*
>> X1000B("N2"	XARY837+6*
>> X1000B("NM1"	XARY837+5*
>> X2000A("CUR"	XARY837+9*
>> X2000A("HL"	XARY837+7*
>> X2000A("PRV"	XARY837+8*
>> X2000B("HL"	XARY837+22*
>> X2000B("PAT"	XARY837+24*
>> X2000B("SBR"	XARY837+23*
>> X2010AA("N2"	XARY837+11*
>> X2010AA("N3"	XARY837+12*
>> X2010AA("N4"	XARY837+13*
>> X2010AA("NM1"	XARY837+10*
>> X2010AA("PER"	XARY837+16*
>> X2010AA("REF"	XARY837+14*
>> X2010AA("REFCC"	XARY837+15*
>> X2010AB("N2"	XARY837+18*
>> X2010AB("N3"	XARY837+19*
>> X2010AB("N4"	XARY837+20*
>> X2010AB("NM1"	XARY837+17*
>> X2010AB("REF"	XARY837+21*
>> X2010BA("DMG"	XARY837+29*
>> X2010BA("N2"	XARY837+26*
>> X2010BA("N3"	XARY837+27*
>> X2010BA("N4"	XARY837+28*
>> X2010BA("NM1"	XARY837+25*
>> X2010BA("REF"	XARY837+30*
>> X2010BA("REFPC"	XARY837+31*
>> X2010BB("N2"	XARY837+33*
>> X2010BB("N3"	XARY837+34*
>> X2010BB("N4"	XARY837+35*
>> X2010BB("NM1"	XARY837+32*
>> X2010BB("REF"	XARY837+36*
>> X2010BC("N2"	XARY837+38*
>> X2010BC("N3"	XARY837+39*
>> X2010BC("N4"	XARY837+40*
>> X2010BC("NM1"	XARY837+37*
>> X2010BD("N2"	XARY837+42*
>> X2010BD("NM1"	XARY837+41*
>> X2010BD("REF"	XARY837+43*
Y	ASK+5, ASK+12, FLDS+3!, FLDS+7, FLDS+9!, FLDS+13, FLDS+14!, SEGADD+5, SEGADD+7

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLAFIN

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: