Routine: BMEGMED

Information

BMEGMED ; IHS/PHXAO/TMJ - UNIX GENERIC FILE READER ;

Source file <BMEGMED.m>

Package	Total	Call Graph
Kernel	3	^%ZISC ($$STATUS,OPEN)^%ZISH $$NOW^XLFDT
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
IHS Medicaid Eligibility Download	1	BMEMLOAD

Name	Comments	DBIA/ICR reference
OPENBMEG	; -- this uses the device and reads in the records from the file
END	; -- close the device here a kill variables
PROCESS	;Process file here
BMEG	; -- this sets up the device and sets the file name
FIRST1	;Called from First
MAIN	; -- this is the main program loop
FIRST	;FILENAME FOR 1ST TIME RUN AT FACILTY - HARD CODED

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Last File Name does NOT exist in Log. Contact Site Manager!" Line Location: BMEG+6
Function Call: WRITE	Prompt: !,"Can't open Host File Server" Line Location: OPENBMEG+3
Function Call: WRITE	Prompt: !,"Reading this file",! Line Location: OPENBMEG+4

Name	Line Occurrences (* Changed, ! Killed)
^BMEGMED(	MAIN+4!, OPENBMEG+10*
^BMEMEDLG(	BMEG+5
^BMEMEDLG(0	BMEG+3

Name	Field # of Occurrence
%FN	END+4!
>> BMEBTIME	MAIN+2, MAIN+6, MAIN+10
>> BMEERROR	MAIN+1, MAIN+5, BMEG+6
>> BMEETIME	MAIN+2, MAIN+9, MAIN+10
>> BMEFILE	FIRST+2, PROCESS+5, OPENBMEG+2
BMEGI	OPENBMEG+7*, OPENBMEG+10, END+1, END+4!
>> BMEGITOT	END+1*
BMEGPTR	END+4!
BMEGX	END+4!
>> BMELSTN	BMEG+1, BMEG+3, BMEG+4, BMEG+5, FIRST+2
>> BMELSTNM	BMEG+2, BMEG+5, BMEG+6, PROCESS+1
>> BMEMM	PROCESS+1, PROCESS+2, PROCESS+3*, PROCESS+4
>> BMEUTIME	MAIN+2, MAIN+10
>> BMEYY	PROCESS+1, PROCESS+2, PROCESS+4
IO	OPENBMEG+8
IO(0	OPENBMEG+3, OPENBMEG+4
>> NEXTFDT	PROCESS+4*, PROCESS+5
PATH	FIRST1+1*, OPENBMEG+2, END+4!
>> POP	OPENBMEG+3
U	BMEG+3, BMEG+5
X	OPENBMEG+8*, OPENBMEG+9, OPENBMEG+10, END+4!