Routine: AGMSPI4

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGMSPI3

Entry Points

Name	Field # of Occurrence
^DIE	QUES1+2, QUES1+9, QUES1+13, QUES2+2, QUES2+9, QUES2+12, QUES3+3, QUES4+2, QUES4+9, QUES4+12 , QUES4+15, QUES4+18, QUES4+21, QUES4+25
^DIR	QUES2+20, QUES3+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PART IV - Age" Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"BASED ON THE PATIENT'S RESPONSE, MEDICARE IS PRIMARY. DO NOT PROCEED FURTHER" Line Location: QUES2+13
Function Call: WRITE	Prompt: !,"If the patient answered no to both questions 1 and 2, Medicare is primary" Line Location: QUES2+16
Function Call: WRITE	Prompt: !,"unless the patient answered yes to questions in part I and II." Line Location: QUES2+17
Function Call: WRITE	Prompt: !,"STOP. The GHP is primary. Obtain the following information:" Line Location: QUES4+7
Function Call: WRITE	Prompt: !,"STOP. Medicare is primary payer unless the patient answered yes to questions in part I or II." Line Location: QUES4+23
Routine Call	DIE Line Location: QUES1+2 QUES1+9 QUES1+13 QUES2+2 QUES2+9 QUES2+12 QUES3+3 QUES4+2 QUES4+9 QUES4+12 QUES4+15 QUES4+18 QUES4+21 QUES4+25
Routine Call	DIR Line Location: QUES2+20 QUES3+9

Name	Field # of Occurrence
>> AG("MCRCHK"	QUES1+7!, QUES2+7!
>> COND1	QUES2+14*
>> DIE("NO^"	QUES1+3!, QUES2+3!, QUES3+2*, QUES3+4!, QUES4+3!
DIR	QUES2+21!, QUES3+10!
DIR("A"	QUES2+19, QUES3+8
DIR(0	QUES2+18, QUES3+7
>> DR	QUES1+1, QUES1+8, QUES1+12, QUES2+1, QUES2+8, QUES2+11, QUES3+1, QUES4+1, QUES4+8, QUES4+11 , QUES4+14, QUES4+17, QUES4+20, QUES4+24
>> PARTI1	QUES2+14
>> PARTI2	QUES2+14
>> PARTI3	QUES2+14
>> PARTI4	QUES2+14
>> PARTII1	QUES2+14
>> PARTII2	QUES2+14
>> PARTII3	QUES2+14
>> PARTIV1	QUES1+5*, QUES2+15
>> PARTIV2	QUES2+5*, QUES2+15
>> PARTIV3	QUES3+5*
>> PARTIV4	QUES4+5*
>> X	QUES1+5, QUES1+6, QUES1+11, QUES2+5, QUES2+6, QUES2+10, QUES3+5, QUES3+6, QUES4+5, QUES4+6
>> Y	QUES1+4, QUES1+6, QUES1+10, QUES1+11, QUES2+4, QUES2+6, QUES2+10, QUES4+4, QUES4+6, QUES4+10 , QUES4+13, QUES4+16, QUES4+19, QUES4+22, QUES4+26