Routine: AG4

Package	Total	Call Graph
IHS Patient Registration	8	(READ,YN)^AG DUOUT^AG3 ^AG5 ^AGDICLK ($$NOPARTAB,EN)^AGED4 EN^AGED4PD $$ISMINOR^AGUTILS ($$GETMCR,EDITMCR)^AGUTL
VA Fileman	6	^%DT ^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR

Package

Total

Call Graph

IHS Patient Registration

(READ,YN)^AG DUOUT^AG3 ^AG5 ^AGDICLK ($$NOPARTAB,EN)^AGED4 EN^AGED4PD $$ISMINOR^AGUTILS ($$GETMCR,EDITMCR)^AGUTL

VA Fileman

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

Package	Total	Caller Graph
IHS Patient Registration	3	AG3 AG5 AGED4

Package

Total

Caller Graph

IHS Patient Registration

AG3 AG5 AGED4

Entry Points

Name	Comments	DBIA/ICR reference
MORE1
ADDNEW	;EP - ADD NEW MEDICARE CLIENT.
PCP
F05	;EP
F04	;EP
F07	;EP
F06	;EP
ASKPARTD(DFN,D1)	;ASK PART D FIELDS
CCD
F09	;EP
F08	;EP
END1
IMPMSG	;
QMB
END
CC
ADDCOV	;EP - ADD NEW COVERAGE.
L6	;REQUIRE MCR DOB
DFLT2
L4	;REQUIRE MCR NUMBER
L5	;
L2
L3	;
L1
F13	;EP
DUOUT	;EP
F11	;EP
L8
L9
L7
DFLT1
MORE

External References

Name	Field # of Occurrence
^%DT	L7+7
READ^AG	L1+2, L7+2, L8+4, MORE+3
YN^AG	L1+13, MORE+6
DUOUT^AG3	L1+7, L1+12
^AG5	L1+6, L1+8, END+3
^AGDICLK	DFLT1+5
$$NOPARTAB^AGED4	L8+5
EN^AGED4	L1+6
EN^AGED4PD	L9+18
$$ISMINOR^AGUTILS	L2+2
$$GETMCR^AGUTL	F06+3
EDITMCR^AGUTL	L5+6
^DIC	L2+21, IMPMSG+4
YN^DICN	L7+9
^DIE	L2+15, L2+25, L5+12, L6+3, QMB+2, PCP+2, CC+2, CCD+2, L9+3, L9+15 , END1+4, F04+5, F05+2, F06+4, F07+2, F08+2, F09+2, F11+2, F13+2
$$GET1^DIQ	L9+11
^DIR	L2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Does this patient have MEDICARE COVERAGE? (Y/N) ",AG("LT"),"// " Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: L2+0
Function Call: WRITE	Prompt: !!,"Enter the ELIGIBILITY DATE: " Line Location: L7+0
Function Call: WRITE	Prompt: !,"MEDICARE ELIGIBILITY DATE REQUIRED!" Line Location: L7+3
Function Call: WRITE	Prompt: *7,!!,"SURE ABOUT THE FUTURE START DATE" Line Location: L7+9
Function Call: WRITE	Prompt: !!,"Type of COVERAGE (A, B, D): " Line Location: L8+2
Function Call: WRITE	Prompt: !,"PATIENT MUST HAVE MEDICARE PART A OR B BEFORE BEING ELIGIBLE FOR PART D!" Line Location: L8+5
Function Call: WRITE	Prompt: !!,"DO NOT ADD PART D COVERAGE TO A MEDICARE INSURER ENTRY",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",! Line Location: L8+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: L8+7
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B""." Line Location: L8+9
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B"" or ""D""." Line Location: L8+10
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B""." Line Location: L8+12
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B"" or ""D""." Line Location: L8+13
Function Call: WRITE	Prompt: !,"Enter either ""A"" or ""B""." Line Location: L8+15
Function Call: WRITE	Prompt: AG("LKPRINT"),"// " Line Location: DFLT1+9
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+15 L2+25 L5+12 L6+3 QMB+2 PCP+2 CC+2 CCD+2 L9+3 L9+15 END1+4 F04+5 F05+2 F06+4 F07+2 F08+2 F09+2 F11+2 F13+2
Routine Call	DIC Line Location: L2+21 IMPMSG+4
Routine Call	DIR Line Location: L2+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNMCR - [#9000003]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	L1+6, L1+7, L1+8
^AUPNMCR - [#9000003]	L1, L2+15, L5+11, L5+13, L6+2, END1, DFLT1+1, DFLT2+1, DFLT2+2, MORE+1
^AUTNINS("B"	L2+16
^DD("DD"	L6+2
^DPT - [#2]	L1+6, L5+11, L6+2

Label References

Name	Line Occurrences
ADDCOV	L2+10, END+2
ASKPARTD	L9+18
DFLT1	L7+1
DFLT2	L8+3
END	END1, END1+5
END1	L1+11, L2+2, L7+4, L8+11
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+13, L2+15, DUOUT+1
L2	L1+10, L1+12
L3	L2+15
L5	L7+4
L6	L5+13
L7	L7+3, L7+8, L7+9, L8+11
L8	L7+4, L8+5, L8+10, L8+13, L9+21
L9	L8+11
MORE	END+1, MORE+7
MORE1	MORE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Information

Source Information

Call Graph

Call Graph Total: 14