Routine: BHLXRFL

Information

BHLXRFL ; cmi/flag/maw - BHL Read X12 File in and stuff into ^INTHU ; [ 10/10/2002 9:29 AM ]

Source file <BHLXRFL.m>

Name	Comments	DBIA/ICR reference
MAIN(XMSG,BHLXDIR,BHLXPRE,BHLXTF)	;-- this is the main routine driver
READ	;-- read the file in
STUFF	;-- stuff the information into ^INTHU
EOJ	;-- kill variables and quit

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: BHLXT Line Location: READ+8

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BHLX12($J	MAIN+2!, READ+9, READ+10, STUFF+13, STUFF+17, EOJ+3!
^DD(4001	STUFF+16
^INLHSCH	STUFF+21*
^INRHD("B"	STUFF+3
^INTHU - [#4001]	STUFF+20!

Name	Field # of Occurrence
>> %	STUFF+1
>> BHLXDA	STUFF+13*, STUFF+17
>> BHLXDEST	STUFF+3*, STUFF+9
BHLXDIR	MAIN~, READ+3, READ+7
>> BHLXDTM	STUFF+1*, STUFF+8
>> BHLXFDA	READ+4*, READ+6
>> BHLXFNM	READ+6*, READ+7
>> BHLXH	STUFF+2*, STUFF+21
>> BHLXIO	STUFF+5*, STUFF+9
>> BHLXLST	READ+3*
>> BHLXLST(	READ+4, READ+6
BHLXPRE	MAIN~, READ+3
>> BHLXPRIO	STUFF+6*, STUFF+10, STUFF+21
>> BHLXREC	READ+9, READ+10
>> BHLXSTAT	STUFF+4*, STUFF+9
>> BHLXT	READ+8*, READ+9, READ+10
BHLXTF	MAIN~, READ+2*, READ+9, READ+10
>> BHLXUIF	STUFF+12*, STUFF+15, STUFF+17, STUFF+20, STUFF+21
>> DA(1	STUFF+17*
DD	STUFF+7!, STUFF+14!
DIC	STUFF+8, STUFF+14!, STUFF+15
DIC("DR"	STUFF+9, STUFF+10
DIC("P"	STUFF+16*
DIC(0	STUFF+8, STUFF+15
DO	STUFF+7!, STUFF+14!
DTIME	READ+8
I	READ+8*, READ+10, EOJ+1!
IO	READ+8
J	READ+9*, EOJ+1!
>> X	STUFF+8, STUFF+17, STUFF+18
XMSG	MAIN~, STUFF+3
>> Y	READ+7*, STUFF+12