Routine: AGELUPUT

Information

AGELUPUT ;IHS/SET/GTH - UPDATE ELIGIBILITY FROM CMS FILE (UTILITIES) ;

Source Information

Source file <AGELUPUT.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ($$GET1,EN)^DIQ
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	2	($$FMADD,$$NOW)^XLFDT $$REPEAT^XLFSTR
IHS Patient	1	$$DOB^AUPNPAT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Patient Registration	4	AGELUP1 AGELUP2 AGELUP3 AGELUP4

Entry Points

Name	Comments	DBIA/ICR reference
RUN1	;EP - Update end of run file counts.
HEAD(AGHDR)	;EP - page header
AUDR	;EP - Restore the file data audit values to their original values.
AUDS	;EP - Save current settings, and SET data auditing 'on'.
INSPT9	;
INSPT	;EP - Get the INSURER that is to be used.
DMC(DA)	;EP - Display matching criteria.
PEND	;EP - end of page
FRMT	;EP - ask template and mode
RUN	;EP - add run multiple
MATCH()	;EP - Match the Patient for Medicaid Auto-processing, only.
AUD	;These are files/fields to be audited.

External References

Name	Field # of Occurrence
$$DOB^AUPNPAT	HEAD+5
^DIC	FRMT+4, INSPT+9, RUN+2
^DIE	FRMT+16, RUN+5, RUN1+2
$$GET1^DIQ	FRMT+8
EN^DIQ	DMC+11
$$DIR^XBDIR	FRMT+27, INSPT+4, PEND+2, DMC+12
HELP^XBHELP	DMC+8
$$FMADD^XLFDT	AUDS+1
$$NOW^XLFDT	RUN+1
$$REPEAT^XLFSTR	HEAD+6, HEAD+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: FRMT+2
Function Call: WRITE	Prompt: !,"MEDICAID STATE isn't entered for this template.",!,"What's the State?" Line Location: FRMT+13
Function Call: WRITE	Prompt: !!,"Looking for an entry in the INSURER file named """,$S(AGTYPE="M":"MEDICARE",AGTYPE="R":"RAILROAD RETIREMENT",AGTYPE="D":"MEDICAID",1:"???"),"""..." Line Location: INSPT+2
Function Call: WRITE	Prompt: !,"An insurer named """,$S(AGTYPE="M":"MEDICARE",AGTYPE="D":"MEDICAID",AGTYPE="R":"RAILROAD RETIREMENT",1:"???"),""" could not be found in your INSURER file." Line Location: INSPT+6
Function Call: WRITE	Prompt: !,"What INSURER should be used for the elgibility update?" Line Location: INSPT+7
Function Call: WRITE	Prompt: !,"The insurer named """,$P(Y,U,2),""" will be used to update eligibility information." Line Location: INSPT9+1
Function Call: WRITE	Prompt: @IOF,!,"FILE RECORD #: ",AGRCNT Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"PATIENT: ",$P(^DPT(AG("DFN"),0),U,1),?35,"SSN: " Line Location: HEAD+3
Function Call: WRITE	Prompt: $E(AG("FSSN"),1,3)_"-"_$E(AG("FSSN"),4,5)_"-"_$E(AG("FSSN"),6,9) Line Location: HEAD+4
Function Call: WRITE	Prompt: ?58,"DOB: ",$$DOB^AUPNPAT(AG("DFN"),"S") Line Location: HEAD+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HEAD+6
Function Call: WRITE	Prompt: !?3,"RPMS ",AGHDR," ELIGIBILE File",?48,$S(AGTYPE="M":"CMS Medicare",AGTYPE="D":"State Medicaid",AGTYPE="P":"Private Ins.",AGTYPE="R":"CMS Railroad",1:"<unknown>")," FILE" Line Location: HEAD+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD+8
Function Call: WRITE	Prompt: ! Line Location: PEND+1
Function Call: WRITE	Prompt: !!,"Could not create entry in Log file.",! Line Location: RUN+3
Routine Call	DIE Line Location: FRMT+16 RUN+5 RUN1+2
Routine Call	DIC Line Location: FRMT+4 INSPT+9 RUN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AGELUP - [#9009062.01]	Classic Fileman Calls, GET1^DIQ
^AGELUPLG - [#9009062.02]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGELUP - [#9009062.01]	FRMT+7, FRMT+17, FRMT+22
^AUPNMCD(0	RUN+4, RUN1+1
^AUPNMCR(0	RUN+4, RUN1+1
^AUPNRRE(0	RUN+4, RUN1+1
^DIC(5 - [#5]	FRMT+20
^DPT - [#2]	HEAD+3, MATCH+2, MATCH+24, MATCH+25
^XTMP("AGELUP1"	AUDS+1, AUDS+5, AUDS+8*, AUDR+3, AUDR+5

Label References

Name	Line Occurrences
DMC	FRMT+28
INSPT9	INSPT+5

Naked Globals

Name	Field # of Occurrence
^(1	FRMT+7
^(2	FRMT+7
^(3	FRMT+7
^(7	FRMT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FRMT+23, AUDS+3, AUDR+2*
>> AG("DFN"	HEAD+3, HEAD+5, MATCH+2, MATCH+24, MATCH+25
>> AG("FDOB"	MATCH+16, MATCH+17, MATCH+18
>> AG("FFNM"	MATCH+8
>> AG("FLNM"	MATCH+8, MATCH+11, MATCH+12
>> AG("FMAZ"	MATCH+24, MATCH+25
>> AG("FMI"	MATCH+9
>> AG("FSEX"	MATCH+21
>> AG("FSSN"	HEAD+4
>> AGACT	PEND+2, PEND+3
>> AGAUTO	FRMT+9, FRMT+27, FRMT+28
>> AGCNT	RUN+4
>> AGDEL	FRMT+8*
AGDPT0	MATCH+1~, MATCH+2*, MATCH+10, MATCH+11, MATCH+12, MATCH+16, MATCH+17, MATCH+18, MATCH+21
>> AGFILE	RUN+4
>> AGFPVL	FRMT+7*
AGHDR	HEAD~, HEAD+7
>> AGINSPT	INSPT+4, INSPT9+1
>> AGMATCH	FRMT+22, FRMT+23, FRMT+24*, MATCH+7, MATCH+10, MATCH+11, MATCH+12, MATCH+15, MATCH+16, MATCH+17 , MATCH+18, MATCH+21, MATCH+23, MATCH+24, MATCH+25
>> AGMCDST	FRMT+10, FRMT+11, FRMT+20
>> AGONE	FRMT+7*
>> AGPARSE	FRMT+7*, FRMT+8
AGQ	MATCH+1~, MATCH+2, MATCH+7, MATCH+8, MATCH+9, MATCH+10, MATCH+11, MATCH+12, MATCH+15, MATCH+16* , MATCH+17, MATCH+18, MATCH+23, MATCH+24, MATCH+25
>> AGRCNT	HEAD+2
>> AGRUN	RUN+4*, RUN1+1
>> AGSEVEN	FRMT+7*
>> AGTDA	FRMT+7*, FRMT+8, FRMT+15, FRMT+17, FRMT+22, FRMT+28, RUN+4
>> AGTHREE	FRMT+7*
>> AGTWO	FRMT+7, FRMT+12, FRMT+17, FRMT+19, FRMT+20
>> AGTYPE	FRMT+9*, FRMT+10, FRMT+28, INSPT+2, INSPT+4, INSPT+6, HEAD+7
>> AGZERO	FRMT+7*, FRMT+9
DA	FRMT+14~, FRMT+15, FRMT+26~, INSPT+3~, RUN+4, RUN1+1*, DMC~
DIC	FRMT+3, RUN+1, RUN+4, DMC+9~, DMC+10*
DIC("S"	FRMT+3*
DIC(0	FRMT+3, INSPT+8, RUN+1*
DIE	FRMT+14~, FRMT+15, RUN+4, RUN1+1*
>> DIRUT	FRMT+10*, PEND+3
>> DLAYGO	RUN+1*
DR	FRMT+14~, FRMT+15, RUN+4, RUN1+1, DMC+9~, DMC+10
DT	AUDS+1
DUZ	RUN+4
G	AUDS+2~, AUDS+3, AUDS+4, AUDS+5, AUDS+6, AUDS+7, AUDS+8, AUDS+9, AUDR+1~, AUDR+2 , AUDR+3, AUDR+4, AUDR+5, AUDR+6
IO(0	INSPT+1, HEAD+1, RUN+3
IOF	HEAD+2
P	AUDS+2~, AUDS+4*, AUDS+5, AUDS+6, AUDR+1~
U	FRMT+7, FRMT+9, FRMT+12, FRMT+19, FRMT+20, FRMT+23, INSPT9+1, HEAD+3, RUN+4, RUN1+1 , MATCH+10, MATCH+11, MATCH+12, MATCH+16, MATCH+17, MATCH+18, MATCH+21, MATCH+24, MATCH+25
>> X	RUN+1*
>> Y	FRMT+5, FRMT+7, INSPT+5, INSPT9+1, RUN+3, RUN+4

Customize PDF page

Package: IHS Patient Registration

Routine: AGELUPUT

Call Graph Total: 8

Caller Graph Total: 4