Routine: AGED62

Package	Total	Call Graph
IHS Patient Registration	6	UPDATE1^AGED READ^AGED1 (EDITCHEK,FETCHERR)^AGEDERR $$ACTELIG^AGEDERR2 ($$DTEST,$$ISACTIVE,$$UPDTSEL,PROGVIEW,VERIF)^AGUTILS $$S^AGVDF
VA Fileman	6	^%DTC ^DIC ^DIE ^DIK $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	2	AGED4A AGED4A01

Name	Comments	DBIA/ICR reference
CONT	;
HDR	;
COINS	;PART B CO-INSURANCE
MSP	;GET DATA FROM AUPNMSP
VAR
GETAW	;DISPLAY
NEWENTRY	;NEW ENTRY
DED	;PART B DEDUCTIBLE
1	;
LSTAREC	;FIND LAST PART A RECORD
DRAW	;EP
CLEANZER(WD0)	;EP - CLEAN ZERO NODE WITH NO DATES
END
EN(WD0,WD1,NEWENTRY,AGSELECT)	;EP -
WMSG	;DISPLAY THIS MSG IF THERE IS NO ENTRY IN THE MEDICARE ELIGIBILITY
INPDED	;INPATIENT DEDUCTIBLE
DTWC	;
CHKDATES(PARTIEN)	;
SNF	;SNF C0-INSURANCE
COINS61	;CO-INSURANCE (61-90)
PARTIEN(INSPTR,PART)	;
ADDMSP	;
MCRDAY	;RAILROAD DAYS
LSTBREC	;FIND LAST PART B RECORD
LIFRES	;LIFETIME RESERVE
CLEAN(WD0)	;CLEAN EMPTY RECORD. IF NO ELIGIBILITY DATES RECORD IS

Name	Field # of Occurrence
^%DTC	MSP+6
UPDATE1^AGED	VAR+25
READ^AGED1	VAR+15
EDITCHEK^AGEDERR	CONT+5
FETCHERR^AGEDERR	CONT+2
$$ACTELIG^AGEDERR2	MSP+11
$$DTEST^AGUTILS	HDR+17
$$ISACTIVE^AGUTILS	CHKDATES+6
$$UPDTSEL^AGUTILS	EN+11, VAR+24
PROGVIEW^AGUTILS	HDR+9
VERIF^AGUTILS	CONT+7
$$S^AGVDF	HDR+8
^DIC	NEWENTRY+7, ADDMSP+6, LSTAREC+11, LSTBREC+11
^DIE	ADDMSP+11, ADDMSP+13, INPDED+5, COINS61+5, LIFRES+5, SNF+5, DED+5, COINS+5, MCRDAY+5
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, MSP+17, MSP+18, MSP+19
^DIR	VAR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+7
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+8
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+2
Function Call: WRITE	Prompt: !,"EDITING OF COVERAGE TYPE PART A AND PART B BENEFITS MUST BE",!,"DONE THROUGH TABLE MAINTENANCE!" Line Location: VAR+13
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",$G(AG("N")) Line Location: VAR+19
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+8
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+10
Function Call: WRITE	Prompt: ?36,"RAILROAD PAGE B" Line Location: HDR+11
Function Call: WRITE	Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+12
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+15
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+16
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(DFN) Line Location: HDR+17
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+18
Function Call: WRITE	Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")" Line Location: HDR+21
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+22
Function Call: WRITE	Prompt: !,"MEDICARE SECONDARY PAYER (Enter ""A"" to add a new MSP reason)" Line Location: GETAW+1
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: GETAW+2
Function Call: WRITE	Prompt: !,"DATE OBTAINED",?20,"STATUS",?30,"REASON" Line Location: GETAW+3
Function Call: WRITE	Prompt: !,AGLINE("-"),! Line Location: GETAW+4
Function Call: WRITE	Prompt: !,"PART A BENEFITS ",$E(AGLINE("-"),1,28)," PART B BENEFITS ",$E(AGLINE("-"),1,19) Line Location: GETAW+6
Function Call: WRITE	Prompt: @NEWLINE,ITEMNUM,$S(ITEMNUM'="":". ",1:""),@CAPDENT,$S($G(CAPTION)'="":CAPTION_": ",$G(CAPTION)="":"",1:$P($G(^DD(DIC,DR,0)),U)_": ") Line Location: GETAW+26
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+29
Function Call: WRITE	Prompt: $J($$GET1^DIQ(DIC,PARTAD0,DR),10,2) Line Location: GETAW+30
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,PARTAD0,DR) Line Location: GETAW+31
Function Call: WRITE	Prompt: $J($$GET1^DIQ(DIC,PARTBD0,DR),10,2) Line Location: GETAW+32
Function Call: WRITE	Prompt: $J($$GET1^DIQ(DIC,PARTBD0,DR),10)," %" Line Location: GETAW+33
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: CONT+6
Function Call: WRITE	Prompt: !,"You must first enter the RAILROAD ELIGIBILITY" Line Location: WMSG+2
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: ?1,$$GET1^DIQ(9000037,AG("REC"),.01) Line Location: MSP+17
Function Call: WRITE	Prompt: ?20,$$GET1^DIQ(9000037,AG("REC"),.03) Line Location: MSP+18
Function Call: WRITE	Prompt: ?30,$$GET1^DIQ(9000037,AG("REC"),.04) Line Location: MSP+19
Function Call: WRITE	Prompt: ?79,$S(MSPALERT:"A",1:"") Line Location: MSP+20
Function Call: WRITE	Prompt: ! Line Location: MSP+21
Function Call: WRITE	Prompt: !,"NO ""PART A"" COVERAGE TYPE FOUND IN THE COVERAGE TYPE FILE","PLEASE ENTER A ""PART A"" COVERAGE TYPE WITH 'RAILROAD' AS THE INSURER" Line Location: LSTAREC+2
Function Call: WRITE	Prompt: !,"NO ""PART B"" COVERAGE TYPE FOUND IN THE COVERAGE TYPE FILE","PLEASE ENTER A ""PART B"" COVERAGE TYPE WITH MEDICARE AS THE INSURER" Line Location: LSTBREC+2
Routine Call	DIE Line Location: ADDMSP+11 ADDMSP+13 INPDED+5 COINS61+5 LIFRES+5 SNF+5 DED+5 COINS+5 MCRDAY+5
Routine Call	DIC Line Location: NEWENTRY+7 ADDMSP+6 LSTAREC+11 LSTBREC+11
Routine Call	DIR Line Location: VAR+1

FileNo	Call Tags
^AUPNRRE - [#9000005]	Classic Fileman Calls
^AUPNMSP - [#9000037]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMSP("C"	MSP+5, MSP+14, MSP+16
^AUPNPAT - [#9000001]	HDR+2, HDR+4, HDR+20
^AUTNINS("B"	EN+5
^AUTTPIC - [#9999999.65]	LSTAREC+3, LSTAREC+15, LSTBREC+3, LSTBREC+15, PARTIEN+5, CHKDATES+4, CHKDATES+5, CHKDATES+7
^AUTTPIC("C"	PARTIEN+4
^DD(	GETAW+26
^DD(9999999.65	LSTAREC+9, LSTBREC+9
^DIC(4 - [#4]	HDR+12
^DPT - [#2]	HDR+1

Name	Line Occurrences
$$CHKDATES	GETAW+9, GETAW+10
$$PARTIEN	GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1
@(	VAR+23
ADDMSP	VAR+20
CLEANZER	EN+7, EN+8, CLEAN+2
DRAW	EN+7, VAR
DTWC	EN+8
END	EN+7, EN+8, VAR+17
GETAW	DRAW+4
HDR	DRAW+3
MSP	GETAW+5
NEWENTRY	EN+7
VAR	VAR+16, VAR+17, VAR+19, VAR+20, VAR+21, VAR+27
WMSG	EN+7

Name	Field # of Occurrence
^(0	HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTIVE	CHKDATES+6*, CHKDATES+7
ADA	END!
ADFN	END!
ADT	END!
AG	END!, GETAW+13*
AG("AUPN"	HDR+3, HDR+4
AG("C"	VAR+21, VAR+23, GETAW+12!, GETAW+25*, GETAW+35
AG("CNT"	MSP+1, MSP+16, MSP+22, MSP+23!
AG("COVDT"	LSTAREC+3, LSTAREC+4, LSTAREC+12, LSTAREC+14, LSTAREC+15, LSTBREC+3, LSTBREC+4, LSTBREC+12, LSTBREC+14, LSTBREC+15
AG("EDIT"	HDR+24!
AG("ERR"	VAR+17
AG("MSPDT"	MSP+1, MSP+5, MSP+14, MSP+16, MSP+23!
AG("N"	VAR+19, VAR+23, GETAW+35*
AG("PG"	DRAW+1*, CONT+2
AG("REC"	MSP+15, MSP+16, MSP+17, MSP+18, MSP+19, MSP+23!, LSTAREC+15, LSTAREC+16, LSTBREC+15, LSTBREC+16
AG("SEL"	VAR+23*
>> AGCHRT	HDR+2*, HDR+18
>> AGELP("INS"	EN+11
>> AGELSTS	HDR+20*, HDR+21
AGI	VAR+23*, VAR+26!
>> AGINS	EN+11, VAR+24
>> AGLINE("-"	HDR+5, HDR+13, GETAW+2, GETAW+4, GETAW+6, CONT+6
>> AGLINE("EQ"	VAR+2, HDR+6, HDR+14, HDR+15, HDR+22
>> AGLINE("PGLN"	HDR+7*
>> AGPAT	HDR+1*, HDR+16
AGSCRN	END!, GETAW+13, GETAW+14*, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+21 , GETAW+22, GETAW+23, GETAW+24
>> AGSEENLY	VAR+1, HDR+10
AGSELECT	EN~, EN+4, EN+11, VAR+24, CONT+4
AGY	VAR+22*, VAR+23, VAR+26!
>> CAPDENT	GETAW+20*, GETAW+26
>> CAPTION	GETAW+16*, GETAW+26
>> COMPIEN	EN+9*, EN+11, VAR+24
D0	GETAW+28*, GETAW+29, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1!
DA	CLEANZER+1!, CLEANZER+2, END!, HDR+23, NEWENTRY+2!, ADDMSP+1!, ADDMSP+9, INPDED+1!, INPDED+6!, COINS61+1! , COINS61+6!, LIFRES+1!, LIFRES+6!, SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1! , MCRDAY+6!, LSTAREC+16, LSTBREC+16*
DA(1	INPDED+2, INPDED+3, COINS61+2, COINS61+3, LIFRES+2, LIFRES+3, SNF+2, SNF+3, DED+2, DED+3 , COINS+2, COINS+3, MCRDAY+2, MCRDAY+3, LSTAREC+6, LSTAREC+7, LSTBREC+6*, LSTBREC+7
DD	NEWENTRY+6!, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1!
>> DFN	VAR+25, HDR+1, HDR+2, HDR+4, HDR+17, HDR+20, HDR+23, GETAW+28, CONT+4, NEWENTRY+5 , MSP+5, MSP+11, MSP+14, MSP+16
DFOUT	VAR+18, END!
DIC	END!, GETAW+17, GETAW+26, GETAW+27, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2! , NEWENTRY+3, ADDMSP+1!, ADDMSP+3, ADDMSP+8, INPDED+1!, INPDED+6!, COINS61+1!, COINS61+6!, LIFRES+1!, LIFRES+6! , SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1!, MCRDAY+6!, LSTAREC+5!, LSTAREC+7 , LSTBREC+5!, LSTBREC+7*
DIC("A"	LSTAREC+10, LSTBREC+10
DIC("DR"	ADDMSP+2*
DIC("P"	LSTAREC+9, LSTBREC+9
DIC("S"	ADDMSP+5*
DIC(0	NEWENTRY+4, ADDMSP+4, LSTAREC+8, LSTBREC+8
DIE	NEWENTRY+2!, ADDMSP+1!, ADDMSP+8, INPDED+1!, INPDED+3, INPDED+6!, COINS61+1!, COINS61+3, COINS61+6!, LIFRES+1! , LIFRES+3, LIFRES+6!, SNF+1!, SNF+3, SNF+6!, DED+1!, DED+3, DED+6!, COINS+1!, COINS+3* , COINS+6!, MCRDAY+1!, MCRDAY+3*, MCRDAY+6!
DIFF	MSP+2~, MSP+6*, MSP+11, MSP+12!
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+1!, VAR+7!, ADDMSP+1!
DIR("?"	VAR+8, VAR+9, VAR+10, VAR+11, VAR+12*
DIR("A"	VAR+1, VAR+14
DIR(0	VAR+1*
DLOUT	VAR+17, END!
DO	NEWENTRY+6!
DQOUT	VAR+19, END!
DR	END!, GETAW+18, GETAW+26, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2!, ADDMSP+1! , ADDMSP+10, ADDMSP+12, INPDED+1!, INPDED+4, INPDED+6!, COINS61+1!, COINS61+4, COINS61+6!, LIFRES+1!, LIFRES+4 , LIFRES+6!, SNF+1!, SNF+4, SNF+6!, DED+1!, DED+4, DED+6!, COINS+1!, COINS+4, COINS+6! , MCRDAY+1!, MCRDAY+4, MCRDAY+6!
DT	MSP+6
DTOUT	VAR+18, END!
DTREC	CHKDATES+1~, CHKDATES+7*
>> DUOUT	VAR+17
DUZ	HDR+9
DUZ(2	VAR+25, HDR+2, HDR+12, CONT+4
EFFDT	CHKDATES+1~, CHKDATES+3, CHKDATES+4, CHKDATES+5, CHKDATES+6, CHKDATES+7
>> ENDDT	CHKDATES+5*, CHKDATES+6
>> EXECUTE	GETAW+23*
FOUND	PARTIEN+1~, PARTIEN+2, PARTIEN+4, PARTIEN+5
INSPTR	EN+3~, EN+4, EN+5, GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1, PARTIEN~, PARTIEN+4
>> ITEMNUM	GETAW+21*, GETAW+25, GETAW+26
>> LASTMSP	MSP+5*, MSP+6
>> MSPALERT	VAR+4, VAR+14, MSP+4, MSP+11, MSP+20
MYERRS	CONT+1!, CONT+2, CONT+5
MYVARS	CONT+1!, CONT+5
MYVARS("DFN"	CONT+4*
MYVARS("FINDCALL"	CONT+4*
MYVARS("SELECTION"	CONT+4*
MYVARS("SITE"	CONT+4*
NEWENTRY	EN~, EN+6, EN+12, CONT+5, NEWENTRY+10
>> NEWLINE	GETAW+19*, GETAW+26
PART	PARTIEN~, PARTIEN+5
PARTAD0	EN+3~, GETAW+9*, GETAW+11, GETAW+30, GETAW+31
PARTAIEN	EN+3~, GETAW+7, GETAW+9, GETAW+34!, INPDED+2, COINS61+2, LIFRES+2, SNF+2, MCRDAY+2, LSTAREC+1 , LSTAREC+2, LSTAREC+3, LSTAREC+6, LSTAREC+15
PARTBD0	EN+3~, GETAW+10*, GETAW+11, GETAW+32, GETAW+33
PARTBIEN	EN+3~, GETAW+8, GETAW+10, GETAW+34!, DED+2, COINS+2, LSTBREC+1, LSTBREC+2, LSTBREC+3, LSTBREC+6 , LSTBREC+15
PARTIEN	PARTIEN+1~, PARTIEN+3, PARTIEN+4, PARTIEN+5, CHKDATES~, CHKDATES+4, CHKDATES+5, CHKDATES+7
>> PREEXEC	GETAW+24*
REC	END!
RETURN	PARTIEN+1~, PARTIEN+2, PARTIEN+5, PARTIEN+6, CHKDATES+1~, CHKDATES+2, CHKDATES+7, CHKDATES+8
>> ROUTID	DRAW+2*
>> TAGCALL	GETAW+22*, GETAW+25
U	EN+4, VAR+24, HDR+1, HDR+2, HDR+12, HDR+20, GETAW+16, GETAW+17, GETAW+18, GETAW+19 , GETAW+20, GETAW+21, GETAW+22, GETAW+26, LSTAREC+9, LSTAREC+12, LSTBREC+9, LSTBREC+12, PARTIEN+5
WD0	EN~, EN+7, EN+8, EN+9, CLEAN~, CLEAN+2, CLEANZER~, CLEANZER+2, NEWENTRY+9*
WD1	EN~, EN+9, CLEAN+2
WDA	END!
WDFN	END!
WDT	END!
X	NEWENTRY+5*, MSP+2~, MSP+6, MSP+12!, ADDMSP+1!
X1	MSP+2~, MSP+6*, MSP+12!
X2	MSP+2~, MSP+6*, MSP+12!
Y	EN+7, EN+8, VAR+16, VAR+17, VAR+19, VAR+20, VAR+22, END!, NEWENTRY+8, NEWENTRY+9 , ADDMSP+1!, ADDMSP+7, ADDMSP+9, LSTAREC+12, LSTAREC+13, LSTBREC+12, LSTBREC+13

Customize PDF page

Package: IHS Patient Registration

Routine: AGED62

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+2
$T(@1+AG	GETAW+14