Routine: AGEVLM1

Information

AGEVLM1 ; cmi/flag/maw - AGEV Eligibility Verification Events ;

Source file <AGEVLM1.m>

Name	Comments	DBIA/ICR reference
FILE1	;-- this will file one entry into the appropriate insurance file
MCR(AGEVIIEN)	;-- update medicare
RR(AGEVIIEN)	;-- update railroad
PRS(AGEVPIEN)	;-- parse the information from the holding file
MCD(AGEVIIEN)	;-- update medicaid
DELETEA	;-- this will delete all insurance entries from a patient
FILEA	;-- this will file all entries into the appropriate insurance files
PI(AGEVIIEN)	;-- update private insurance and policy holder
DELETE1	;-- this will delete one insurance entry from a patient
SELECT	;get record

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error Processing Entry" Line Location: PRS+3
Function Call: WRITE	Prompt: !,"Error Processing Entry" Line Location: PRS+5
Function Call: WRITE	Prompt: !,"Invalid Insurance Information" Line Location: PRS+7
Function Call: WRITE	Prompt: !,"Invalid Insurer, cannot update" Line Location: PRS+11
Function Call: WRITE	Prompt: !,"No entry selected." Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"No record selected." Line Location: SELECT+5
Function Call: WRITE	Prompt: !,"Not a valid entry." Line Location: SELECT+9

Name	Line Occurrences (* Changed, ! Killed)
^AGEVH - [#9009066]	PRS+4, PRS+5, PRS+6, PRS+7, PRS+8, SELECT+8
^AGEVH("B"	DELETEA+2, FILEA+2
^TMP("AGEV"	SELECT+7

Name	Field # of Occurrence
>> AGEVCT	PRS+24*
>> AGEVCTY	PRS+20*
>> AGEVGN	PRS+12*
>> AGEVGNM	PRS+23*
>> AGEVH0	PRS+9
>> AGEVICN	PRS+10*
>> AGEVIDA	DELETEA+1, DELETEA+2, DELETEA+3, FILEA+1, FILEA+2, FILEA+3
>> AGEVIDOB	PRS+18*
>> AGEVIID	PRS+26*
AGEVIIEN	PRS+9*, PRS+33, MCR~, MCR+1, MCD~, MCD+1, RR~, PI~, PI+1
>> AGEVINSU	PRS+10*, PRS+11, PRS+30, PRS+31, PRS+32
>> AGEVMST	PRS+27*
>> AGEVNOI	PRS+17*
AGEVP	SELECT+4*, SELECT+5!, SELECT+7
>> AGEVP0	PRS+4*, PRS+10
>> AGEVP1	PRS+6*, PRS+12, PRS+13, PRS+15, PRS+17, PRS+18, PRS+19, PRS+20, PRS+21, PRS+22 , PRS+23, PRS+24, PRS+25, PRS+26, PRS+27, PRS+28
>> AGEVP2	PRS+8*, PRS+13, PRS+15
>> AGEVPED	PRS+13, PRS+14
>> AGEVPEXD	PRS+15, PRS+16
AGEVPIEN	DELETE1+2, DELETE1+3, FILE1+1, PRS~, PRS+3, PRS+4, PRS+5, PRS+6, PRS+7, PRS+8 , SELECT+1, SELECT+7, SELECT+8
>> AGEVPLPT	DELETEA+2, FILEA+2
>> AGEVST	PRS+21*
>> AGEVSTR	PRS+19*
>> AGEVSUF	PRS+25*
>> AGEVSX	PRS+28*
>> AGEVUP	PRS+29, PRS+30, PRS+31, PRS+32
>> AGEVUP(	PRS+33
>> AGEVZP	PRS+22*
APCDP	SELECT+10!
>> APCDPIEN	SELECT+11*
>> DA	DELETE1+3, DELETEA+3
>> DIK	DELETE1+3, DELETEA+3
U	PRS+9, PRS+10, PRS+12, PRS+13, PRS+15, PRS+17
VALMY	SELECT+3, SELECT+5!
VALMY(0	SELECT+4
>> X	SELECT+6, SELECT+7
XQORNOD	SELECT+5!
XQORNOD(0	SELECT+2
>> Y	SELECT+6, SELECT+7