Routine: AG6

Package	Total	Call Graph
IHS Patient Registration	8	(READ,YN)^AG DUOUT^AG5 ^AG7 ^AGDICLK ($$NOPARTAB,EN)^AGED6 EN^AGED6PD $$ISMINOR^AGUTILS ($$GETRRE,EDITRRE)^AGUTL
VA Fileman	6	^%DT ^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR

Package

Total

Call Graph

IHS Patient Registration

(READ,YN)^AG DUOUT^AG5 ^AG7 ^AGDICLK ($$NOPARTAB,EN)^AGED6 EN^AGED6PD $$ISMINOR^AGUTILS ($$GETRRE,EDITRRE)^AGUTL

VA Fileman

^%DT ^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AG5 AG7 AGED6

Package

Total

Caller Graph

IHS Patient Registration

AG5 AG7 AGED6

Entry Points

External References

Name	Field # of Occurrence
^%DT	L9+10
READ^AG	L1+3, L9+2, L9A+4, MORE+3
YN^AG	L1+12, MORE+6
DUOUT^AG5	L1+7, L1+11
^AG7	L1+6, L1+8, END+4
^AGDICLK	DFLT1+5
$$NOPARTAB^AGED6	L9A+5
EN^AGED6	L1+6
EN^AGED6PD	L10+14
$$ISMINOR^AGUTILS	L2+2
$$GETRRE^AGUTL	F06+3
EDITRRE^AGUTL	L8+5
^DIC	L2+20
YN^DICN	L9+15
^DIE	L2+12, L2+25, RRNM+2, RRNM+7, QMB+2, SIG+2, SIGD+2, PCP+2, CC+2, CCD+2 , RRDB+2, L10+10, END1+3, F04+5, F05+2, F06+4, F07+2, F08+2, F09+2, F11+2 , F13+2
$$GET1^DIQ	L10+7
^DIR	L2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Does this patient have RAILROAD RETIREMENT COVERAGE? (Y/N) " Line Location: L1+1
Function Call: WRITE	Prompt: AG("LT"),"// " Line Location: L1+2
Function Call: WRITE	Prompt: ! Line Location: L2+0
Function Call: WRITE	Prompt: !!,"Enter the ELIGIBILITY DATE: " Line Location: L9+0
Function Call: WRITE	Prompt: !,"ELIGIBLITY DATE REQUIRED!" Line Location: L9+3
Function Call: WRITE	Prompt: !,"ELIGIBLITY DATE REQUIRED!" Line Location: L9+4
Function Call: WRITE	Prompt: !!,"Type of COVERAGE (A, B, D): " Line Location: L9A+2
Function Call: WRITE	Prompt: !,"PATIENT MUST HAVE RAILROAD PART A OR B BEFORE BEING ELIGIBLE FOR PART D!" Line Location: L9A+5
Function Call: WRITE	Prompt: !!,"DO NOT ADD PART D COVERAGE TO RAILROAD RETIREMENT",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",! Line Location: L9A+6
Function Call: WRITE	Prompt: !!,"CAN NOT ADD PART D COVERAGE TO A NON MEDICARE PART D INSURER",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",! Line Location: L9A+7
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B""." Line Location: L9A+8
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B"" or ""D""." Line Location: L9A+9
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B""." Line Location: L9A+11
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B"" or ""D""." Line Location: L9A+12
Function Call: WRITE	Prompt: AG("LKPRINT"),"// " Line Location: DFLT1+8
Function Call: WRITE	Prompt: AG("LT2"),"// " Line Location: DFLT2+4
Function Call: WRITE	Prompt: !!,"Do you wish to ADD ANOTHER COVERAGE TYPE? (Y/N) NO// " Line Location: MORE+2
Routine Call	DIE Line Location: L2+12 L2+25 RRNM+2 RRNM+7 QMB+2 SIG+2 SIGD+2 PCP+2 CC+2 CCD+2 RRDB+2 L10+10 END1+3 F04+5 F05+2 F06+4 F07+2 F08+2 F09+2 F11+2 F13+2
Routine Call	DIC Line Location: L2+20
Routine Call	DIR Line Location: L2+7

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNRRE - [#9000005]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	L1+6, L1+7, L1+8
^AUPNRRE - [#9000005]	L1, L2+14, RRNM+1, RRNM+3, RRNM+4, RRNM+6, RRDB+1, L10+11, END1, DFLT1+1 , DFLT2+1, DFLT2+2, MORE+1
^AUTNINS("B"	L2+15
^DD("DD"	RRDB+1
^DPT - [#2]	L1+6, RRNM+1, RRDB+1

Label References

Name	Line Occurrences
ADDCOV	L2+10, L9+3, L9+4, END+2
ASKPARTD	L10+14
DFLT1	L9+1
DFLT2	L9A+3
END	END1, END1+4
END1	L1+11, L2+2, L9+6, L9A+10
F04	F05+3
F05	F06+5
F06	F07+3
F07	F08+3
F08	F09+3
F09	F11+3
F11	F13+3
L1	L1+6, L1+12, L2+14, DUOUT+1
L10	L9A+10
L2	L1+11
L6A	L2+14
L8	L9+7, L9A+5
L9	L9+11, L9+15, L9A+10
L9A	L9+7, L9A+9, L9A+12, L10+15
MORE	END+1, MORE+7
MORE1	MORE+5
RRDB	RRNM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	L9+14*, L9+15
>> %DT	L9+9*
>> ADDCHK	L8+7*
AG	END+3!
AG("COV"	L9+17!, L9A+13, L10+4, L10+14, DFLT2+2
AG("DRENT"	DFLT1+2*
AG("DT"	L9+16, L10+3, L10+11, DFLT1+7
AG("EDIT"	L2+13, L9+1, L9+5, L9A+3, L10+14, END, END1
AG("INS"	L2+15*, L2+24
AG("LKDATA"	DFLT1+7
AG("LKERR"	DFLT1+6
AG("LKPRINT"	DFLT1+7, DFLT1+8
AG("LT"	L1, L1+2, L1+4, L1+6, L1+8, L1+11
AG("LT1"	L9+6, DFLT1!, DFLT1+7*
AG("LT2"	L9A+10, DFLT2!, DFLT2+2*, DFLT2+3, DFLT2+4
AG("MORE"	L9A+14!, L10+14!, END+2, MORE!, MORE1*
AGDOB	RRDB+1~*
>> AGELP("INS"	F04+3
>> AGPAT	L1+6*
AGSEX	L10+6~, L10+7*
>> AGTYPE	L2+10
AGXTERN	L1+6*!
>> COMPIEN	L10+12, L10+14, F04+1
COVTYP	L9+17!
D0	L2+16!
D1	L10+14, ASKPARTD~, ASKPARTD+3
DA	L2+11, L2+22, L2+24, L8+6, RRNM+1, RRNM+5, QMB+1, SIG+1, SIGD+1, PCP+1* , CC+1, CCD+1, RRDB+1, L10+4, L10+16!, END1+1, DFLT1+2, ASKPARTD+1!, ASKPARTD+3, F04+1
DA(1	ASKPARTD+4*, ASKPARTD+5, F04+1
DD	L2+16!
DFN	L1, L1+6, L2+2, L2+11, L2+14, L2+19, L2+24, L8+5, L8+6, RRNM+1 , RRNM+3, RRNM+4, RRNM+5, RRNM+6, QMB+1, SIG+1, SIGD+1, PCP+1, CC+1, CCD+1 , RRDB+1, L9A+5, L10+4, L10+7, L10+11, L10+14, END1, END1+1, DFLT1+1, DFLT1+2 , DFLT2+1, DFLT2+2, MORE+1, ASKPARTD~, ASKPARTD+4, F06+3
>> DFOUT	L1+10, L9+4, L9+6, L9A+10, MORE+4
DIC	L2+16!, L2+17, L10+16!, DFLT1+2, ASKPARTD+1!
DIC(0	L2+18*
DIE	L2+11, L2+16!, L2+23, L8+6, RRNM+5, QMB, SIG, SIGD, PCP, CC* , CCD, L10, L10+16!, END1+1, ASKPARTD+1!, ASKPARTD+5
DIR	L2+3!, L2+16!
DIR("A"	L2+5*
DIR("B"	L2+6*
DIR(0	L2+4*
>> DLOUT	L1+11, L9+4, L9+6, L9+7, L9A+10, MORE+4
>> DQOUT	L9+8, L9A+12
DR	L2+11, L2+16!, L2+24, RRNM, RRNM+1, RRNM+6, QMB+1, SIG+1, SIGD+1, PCP+1* , CC+1, CCD+1, RRDB, RRDB+1, L10+3, L10+16!, END1+2, DFLT1+2, DFLT1+4, ASKPARTD+1! , F04+3, F04+4, F05+1, F06+1!, F06+2, F06+3, F07+1, F08+1, F09+1, F11+1* , F13+1*
DR(2	RRNM+6, L10+4, L10+8*
DT	L9+11, L9+12
>> DTOUT	L1+10, L9+4, L9+6, L9A+10, MORE+4
>> DUOUT	L1+7, L1+11, L9+3, L9+5, L9+7, L9A+10
DUZ(2	L1+6, L1+7, L1+8
>> GOL8	L10+15, ASKPARTD+2, F04+6
>> NEWENTRY	L1+6, L2+9, RRNM+1, RRDB+1, L10+14
U	L1+6, RRNM+1, RRNM+4, RRNM+6, RRDB+1, DFLT2+2
>> WD0	L10+11*, L10+12
>> WD1	L10+11*, L10+12
>> X	L2+19, L9+9
Y	L1+4, L1+11, L2+2, L2+13, L2+14, L2+21, L2+22, RRDB+1~!, L9+8, L9+9 , L9+11, L9+12, L9+16, L9A+5, L9A+9, L9A+12, L9A+13, MORE+4, MORE+5, F04+6 , F05+3, F06+5, F07+3, F08+3, F09+3, F11+3, F13+3

Customize PDF page

Package: IHS Patient Registration

Routine: AG6

Information

Source Information