Routine: AGMSP6

Package	Total	Caller Graph
IHS Patient Registration	1	AGMSPFRM

Entry Points

Name	Comments	DBIA/ICR reference
BLANK1	;THIS SECTION IS USED TO PRINT THE BLANK PAGE 6
EN	;EP
MAP1	;THIS SECTION IS USED TO PRINT THE PATIENT'S DATA ON THE FORM

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PART VI - ESRD",! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !,?50,"Continued on next page ==>" Line Location: EN+5
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: EN+6
Function Call: WRITE	Prompt: !,$P($G(^DIC(4,DUZ(2),0)),U),?73,"PAGE 6" Line Location: EN+7
Function Call: WRITE	Prompt: !,?2,"1. Do you have group health plan (GHP) coverage ? ",! Line Location: BLANK1+1
Function Call: WRITE	Prompt: !,?5,"[ ] YES",! Line Location: BLANK1+2
Function Call: WRITE	Prompt: !,?14,"Name and address of GHP : ",! Line Location: BLANK1+3
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+4
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+5
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+6
Function Call: WRITE	Prompt: !,?14,"Policy Identification Number : _______________",! Line Location: BLANK1+7
Function Call: WRITE	Prompt: !,?14,"Group Identification Number : _______________",! Line Location: BLANK1+8
Function Call: WRITE	Prompt: !,?14,"Name of Policy Holder : ______________________",! Line Location: BLANK1+9
Function Call: WRITE	Prompt: !,?14,"Relationship to Patient : ____________________",! Line Location: BLANK1+10
Function Call: WRITE	Prompt: !,?14,"Name and address of employer, if any, from which you receive" Line Location: BLANK1+11
Function Call: WRITE	Prompt: !,?14,"GHP coverage : ",! Line Location: BLANK1+12
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+13
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+14
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: BLANK1+15
Function Call: WRITE	Prompt: !,?5,"[ ] NO. STOP. Medicare is primary.",! Line Location: BLANK1+16
Function Call: WRITE	Prompt: !,?2,"2. Have you received a kidney transplant ? ",! Line Location: BLANK1+17
Function Call: WRITE	Prompt: !,?5,"[ ] YES Date of transplant : _______________",! Line Location: BLANK1+18
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: BLANK1+19
Function Call: WRITE	Prompt: !,?2,"3. Have you received maintenance dialysis treatments ? ",! Line Location: BLANK1+20
Function Call: WRITE	Prompt: !,?5,"[ ] YES Date dialysis began : _______________",! Line Location: BLANK1+21
Function Call: WRITE	Prompt: !,?19,"If you participated in a self dialysis training" Line Location: BLANK1+22
Function Call: WRITE	Prompt: !,?19,"program, provide date training started : _______________",! Line Location: BLANK1+23
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: BLANK1+24
Function Call: WRITE	Prompt: !,?2,"1. Do you have group health plan (GHP) coverage ? ",! Line Location: MAP1+1
Function Call: WRITE	Prompt: !,?5,"[ ] YES",! Line Location: MAP1+3
Function Call: WRITE	Prompt: !,?14,"Name and address of GHP : ",! Line Location: MAP1+4
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+5
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+6
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+7
Function Call: WRITE	Prompt: !,?14,"Policy Identification Number : _______________",! Line Location: MAP1+8
Function Call: WRITE	Prompt: !,?14,"Group Identification Number : _______________",! Line Location: MAP1+9
Function Call: WRITE	Prompt: !,?14,"Name of Policy Holder : ______________________",! Line Location: MAP1+10
Function Call: WRITE	Prompt: !,?14,"Relationship to Patient : ____________________",! Line Location: MAP1+11
Function Call: WRITE	Prompt: !,?14,"Name and address of employer, if any, from which you receive" Line Location: MAP1+12
Function Call: WRITE	Prompt: !,?14,"GHP coverage : ",! Line Location: MAP1+13
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+14
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+15
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+16
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+17
Function Call: WRITE	Prompt: !,?5,"[X] NO",! Line Location: MAP1+18
Function Call: WRITE	Prompt: !,?5,"[X] YES",! Line Location: MAP1+20
Function Call: WRITE	Prompt: !,?14,"Name and address of GHP : ",! Line Location: MAP1+21
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+23
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+24
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+25
Function Call: WRITE	Prompt: !,?14,$P(AG("INSADDR"),U),! Line Location: MAP1+29
Function Call: WRITE	Prompt: !,?14,$P(AG("INSADDR"),U,2),! Line Location: MAP1+30
Function Call: WRITE	Prompt: !,?14,$P(AG("INSADDR"),U,3) Line Location: MAP1+31
Function Call: WRITE	Prompt: ", ",$P(^DIC(5,$P(AG("INSADDR"),U,4),0),U,2) Line Location: MAP1+33
Function Call: WRITE	Prompt: ", ",$P(AG("INSADDR"),U,5),! Line Location: MAP1+34
Function Call: WRITE	Prompt: !,?14,"Policy Identification Number : _______________",! Line Location: MAP1+36
Function Call: WRITE	Prompt: !,?14,"Policy Identification Number : ",$P(MSPRES(9000037,AG("DA"),.56),U),! Line Location: MAP1+38
Function Call: WRITE	Prompt: !,?14,"Group Identification Number : _______________",! Line Location: MAP1+40
Function Call: WRITE	Prompt: !,?14,"Group Identification Number : ",$P(MSPRES(9000037,AG("DA"),.57),U),! Line Location: MAP1+42
Function Call: WRITE	Prompt: !,?14,"Name of Policy Holder : ______________________",! Line Location: MAP1+44
Function Call: WRITE	Prompt: !,?14,"Name of Policy Holder : ",$P(MSPRES(9000037,AG("DA"),.58),U),! Line Location: MAP1+46
Function Call: WRITE	Prompt: !,?14,"Relationship to Patient : ____________________",! Line Location: MAP1+48
Function Call: WRITE	Prompt: !,?14,"Relationship to Patient : ",$P($G(^AUTTRLSH(AG("RELPTR"),0)),U),! Line Location: MAP1+51
Function Call: WRITE	Prompt: !,?14,"Name and address of employer, if any, from which you receive" Line Location: MAP1+52
Function Call: WRITE	Prompt: !,?14,"GHP coverage : ",! Line Location: MAP1+53
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+55
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+56
Function Call: WRITE	Prompt: !,?14,$E(AGLINE("_"),1,50),! Line Location: MAP1+57
Function Call: WRITE	Prompt: !,?14,$P(AG("EMPADDR"),U),! Line Location: MAP1+62
Function Call: WRITE	Prompt: !,?14,$P(AG("EMPADDR"),U,2),! Line Location: MAP1+63
Function Call: WRITE	Prompt: !,?14,$P(AG("EMPADDR"),U,3) Line Location: MAP1+64
Function Call: WRITE	Prompt: ", ",$P($G(^DIC(5,$P(AG("EMPADDR"),U,4),0)),U,2) Line Location: MAP1+66
Function Call: WRITE	Prompt: ", ",$P(AG("EMPADDR"),U,5),! Line Location: MAP1+67
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+68
Function Call: WRITE	Prompt: !,?2,"2. Have you received a kidney transplant ? ",! Line Location: MAP1+70
Function Call: WRITE	Prompt: !,?5,"[ ] YES Date of transplant : _______________",! Line Location: MAP1+72
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+73
Function Call: WRITE	Prompt: !,?5,"[X] NO",! Line Location: MAP1+74
Function Call: WRITE	Prompt: !,?5,"[X] YES " Line Location: MAP1+76
Function Call: WRITE	Prompt: "Date of transplant : _______________",! Line Location: MAP1+77
Function Call: WRITE	Prompt: "Date of transplant : ",$P(MSPRES(9000037,AG("DA"),.63),U),! Line Location: MAP1+78
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+79
Function Call: WRITE	Prompt: !,?2,"3. Have you received maintenance dialysis treatments ? ",! Line Location: MAP1+81
Function Call: WRITE	Prompt: !,?5,"[ ] YES Date dialysis began : _______________",! Line Location: MAP1+83
Function Call: WRITE	Prompt: !,?14,"If you participated in a self dialysis training" Line Location: MAP1+84
Function Call: WRITE	Prompt: !,?14,"program, provide date training started : _______________",! Line Location: MAP1+85
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+86
Function Call: WRITE	Prompt: !,?5,"[X] NO",! Line Location: MAP1+87
Function Call: WRITE	Prompt: !,?5,"[X] YES Date dialysis began : " Line Location: MAP1+89
Function Call: WRITE	Prompt: "_______________",! Line Location: MAP1+90
Function Call: WRITE	Prompt: $P(MSPRES(9000037,AG("DA"),.65),U),! Line Location: MAP1+91
Function Call: WRITE	Prompt: !,?14,"If you participated in a self dialysis training" Line Location: MAP1+92
Function Call: WRITE	Prompt: !,?14,"program, provide date training started : " Line Location: MAP1+93
Function Call: WRITE	Prompt: "_______________",! Line Location: MAP1+94
Function Call: WRITE	Prompt: $P(MSPRES(9000037,AG("DA"),.66),U),! Line Location: MAP1+95
Function Call: WRITE	Prompt: !,?5,"[ ] NO",! Line Location: MAP1+96

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMSP - [#9000037]	MAP1+27, MAP1+50, MAP1+59
^AUTNEMPL - [#9999999.75]	MAP1+61
^AUTNINS - [#9999999.18]	MAP1+28
^AUTTRLSH - [#9999999.36]	MAP1+51
^DIC(4 - [#4]	EN+7
^DIC(5 - [#5]	MAP1+33, MAP1+66

Label References

Name	Line Occurrences
BLANK1	EN+2
MAP1	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("DA"	MAP1+2, MAP1+17, MAP1+18, MAP1+19, MAP1+22, MAP1+26, MAP1+27, MAP1+35, MAP1+37, MAP1+38 , MAP1+39, MAP1+41, MAP1+42, MAP1+43, MAP1+45, MAP1+46, MAP1+47, MAP1+49, MAP1+50, MAP1+54 , MAP1+58, MAP1+59, MAP1+71, MAP1+73, MAP1+74, MAP1+75, MAP1+77, MAP1+78, MAP1+82, MAP1+86 , MAP1+87, MAP1+88, MAP1+90, MAP1+91, MAP1+94, MAP1+95
>> AG("EMPADDR"	MAP1+61*, MAP1+62, MAP1+63, MAP1+64, MAP1+65, MAP1+66, MAP1+67, MAP1+97!
>> AG("EMPPTR"	MAP1+59*, MAP1+60, MAP1+61, MAP1+97!
>> AG("INSADDR"	MAP1+28*, MAP1+29, MAP1+30, MAP1+31, MAP1+32, MAP1+33, MAP1+34, MAP1+97!
>> AG("INSPTR"	MAP1+27*, MAP1+28, MAP1+97!
>> AG("MSPPRINT"	EN+2, EN+3
>> AG("RELPTR"	MAP1+50*, MAP1+51, MAP1+97!
>> AGLINE("EQ"	EN+6
>> AGLINE("_"	BLANK1+4, BLANK1+5, BLANK1+6, BLANK1+13, BLANK1+14, BLANK1+15, MAP1+5, MAP1+6, MAP1+7, MAP1+14 , MAP1+15, MAP1+16, MAP1+23, MAP1+24, MAP1+25, MAP1+55, MAP1+56, MAP1+57
DUZ(2	EN+7
>> MSPRES(9000037	MAP1+2, MAP1+17, MAP1+18, MAP1+19, MAP1+22, MAP1+26, MAP1+35, MAP1+37, MAP1+38, MAP1+39 , MAP1+41, MAP1+42, MAP1+43, MAP1+45, MAP1+46, MAP1+47, MAP1+49, MAP1+54, MAP1+58, MAP1+71 , MAP1+73, MAP1+74, MAP1+75, MAP1+77, MAP1+78, MAP1+82, MAP1+86, MAP1+87, MAP1+88, MAP1+90 , MAP1+91, MAP1+94, MAP1+95
U	EN+7, MAP1+2, MAP1+17, MAP1+18, MAP1+19, MAP1+22, MAP1+26, MAP1+27, MAP1+29, MAP1+30 , MAP1+31, MAP1+32, MAP1+33, MAP1+34, MAP1+35, MAP1+37, MAP1+38, MAP1+39, MAP1+41, MAP1+42 , MAP1+43, MAP1+45, MAP1+46, MAP1+47, MAP1+49, MAP1+50, MAP1+51, MAP1+54, MAP1+58, MAP1+59 , MAP1+62, MAP1+63, MAP1+64, MAP1+65, MAP1+66, MAP1+67, MAP1+71, MAP1+73, MAP1+74, MAP1+75 , MAP1+77, MAP1+78, MAP1+82, MAP1+86, MAP1+87, MAP1+88, MAP1+90, MAP1+91, MAP1+94, MAP1+95

Customize PDF page

Package: IHS Patient Registration

Routine: AGMSP6

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: