Routine: AZAMFALL

Information

BMEMFALL ;Roster Fall Offs [ 06/11/03 3:29 PM ]

Source file <AZAMFALL.m>

Package	Total	Call Graph
Local Area Programs	1	FALL^AZAMSTR
VA Fileman	1	^DIE

Package	Total	Caller Graph
Local Area Programs	1	AZAMLOAD

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
START	;
MAST	;Begin $O through RPMS Master File ^AZAMASTR(
AZAG	; -- this sets up the device and sets the file name

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

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

FileNo	Call Tags
^AZAMEDLG - [#1180006]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MED+2, MED+3, MED+5
^AUPNMCD("B"	MED+1
^AZAMASTR - [#1180007]	MAST+1, MAST+2
^AZAMEDLG - [#1180006]	AZAG+5, AZAG+9
^AZAMEDLG(0	AZAG+3

Name	Field # of Occurrence
AZALSTN	AZAG+1, AZAG+3, AZAG+4, AZAG+5, AZAG+9, LOG+2, LOG+4, END+1!
AZALSTNM	AZAG+2*, END+1!
>> AZAMSTDT	AZAG+9, AZAG+10, AZAG+11, AZAG+12
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
FALLCT	START+1, MED+6, LOG+3, LOG+4, END+1!
FALLDT	MAST+7*, MAST+8, END+1!
>> IEN	MED+1*, MED+2, MED+3, MED+5, MED+6
LOGDT	AZAG+5, AZAG+6, AZAG+12, MAST+11, END+1!
LSTEBD	MED+3*, MED+4, MED+5, MED+6, END+1!
>> LSTENDT	MAST+9, MAST+10, MED+6
MASIEN	MAST+1*, MAST+2, END+1!
RECORD	MAST+2*, MAST+3, MAST+5, MAST+7, MAST+9, END+1!
SENDDT	MED+5*, MED+6, END+1!
STILLDT	MAST+3*, MAST+4, MAST+11, END+1!
>> Start	AZAG+12
U	AZAG+3, AZAG+5, AZAG+9, MAST+3, MAST+5, MAST+7, MAST+9, MED+3, MED+5