Routine: BMEMFALL

Information

BMEMFALL ; IHS/PHXAO/TMJ - Roster Fall Offs ;

Source file <BMEMFALL.m>

Package	Total	Call Graph
IHS Medicaid Eligibility Download	1	FALL^BMEMSTR
VA Fileman	1	^DIE

Package	Total	Caller Graph
IHS Medicaid Eligibility Download	1	BMEMLOAD

Name	Comments	DBIA/ICR reference
MED	; -- add eligiblity date(s)/data
END	;End of Run
LOG	;Populate Download Run Log with # of Fall Off's
GETLOG	; -- this sets up the device and sets the file name
START	;
MAST	;Begin $O through RPMS Master File ^BMEMASTR(

Name	Field # of Occurrence
FALL^BMEMSTR	MED+6
^DIE	MED+6, LOG+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Date Exists on Last Download Run",! Line Location: GETLOG+4
Function Call: WRITE	Prompt: !!,"Last File Name does NOT exist in Log. Contact Site Manager!" Line Location: GETLOG+8
Routine Call	DIE Line Location: MED+6 LOG+5

FileNo	Call Tags
^BMEMLOG - [#90333]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MED+2, MED+3, MED+5
^AUPNMCD("B"	MED+1
^BMEMASTR - [#90334]	MAST+1, MAST+2
^BMEMLOG - [#90333]	GETLOG+5, GETLOG+9
^BMEMLOG(0	GETLOG+3

Name	Field # of Occurrence
BMEFALL	MAST+7*, MAST+8, END+1!
BMEFCNT	START+1, MED+6, LOG+3, LOG+4, END+1!
BMELEBD	MED+3*, MED+4, MED+5, MED+6, END+1!
BMELEED	MED+5*, MED+6, END+1!
BMELOGDT	GETLOG+5, GETLOG+6, GETLOG+12, MAST+11, END+1!
>> BMELSTDT	MAST+9, MAST+10, MED+6
BMELSTN	GETLOG+1, GETLOG+3, GETLOG+4, GETLOG+5, GETLOG+9, LOG+2, LOG+4, END+1!
BMELSTNM	GETLOG+2*, END+1!
BMEMAIEN	MAST+1*, MAST+2, END+1!
BMEMREC	MAST+2*, MAST+3, MAST+5, MAST+7, MAST+9, END+1!
>> BMEMSTDT	GETLOG+9, GETLOG+10, GETLOG+11, GETLOG+12
BMESTILL	MAST+3*, MAST+4, MAST+11, END+1!
DA	MED+6!, LOG+4, LOG+5!
DA(1	MED+6*
DFN	MAST+5*, MAST+6, MED+1, END+1!
DIE	MED+6!, LOG+4, LOG+5!
DINUM	MED+6!
DR	MED+6!, LOG+4, LOG+5!
DT	MAST+10
>> IEN	MED+1*, MED+2, MED+3, MED+5, MED+6
U	GETLOG+3, GETLOG+5, GETLOG+9, MAST+3, MAST+5, MAST+7, MAST+9, MED+3, MED+5