Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGELUP2

Package: IHS Patient Registration

Routine: AGELUP2


Information

AGELUP2 ;IHS/ASDS/EFG - PROCESS MCR ELIGIBILITY FROM CMS FILE ;

Source Information

Source file <AGELUP2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient Registration 4 ^AGDATCK  UPDATE1^AGED  (HEAD,PEND)^AGELUPUT  $$S^AGVDF  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIK  
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
1 ;;MCR NAME;;MCD NAME;;
FILE(AG) ;EP - file MEDICARE FIELDS
M(AG) ;EP - process Medicare
MCRY ;if medicare coverage
PTACT(AG,X) ;EP - Record action AG on patient X (DFN). 1=add, 2=edit.
MCRN ;EP - No MCR/RRE coverage in rpms.
DFL ;EP - Set descrepency flags.
3 ;;MCR NUMBER;;MCD NUMBER;;
2 ;;MCR DOB;;MCD DOB;;
5 ;;ELIGIBILITY;;ELIGIBILITY;;
4 ;;SFX;;;;
MDISP(AGDISP) ;EP - display medicare info

External References

Name Field # of Occurrence
^AGDATCK FILE+48
UPDATE1^AGED FILE+50
HEAD^AGELUPUT M+4
PEND^AGELUPUT M+6
$$S^AGVDF MDISP+4, MDISP+6
^DIC FILE+1
FILE^DICN FILE+8, FILE+38, PTACT+4
^DIE FILE+21
^DIK FILE+26
$$DIR^XBDIR FILE+1
$$FMTE^XLFDT MDISP+5, MDISP+8, MDISP+35, MDISP+36, MDISP+38, MDISP+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: M+9
Function Call: WRITE
  • Prompt: !,$P($T(@I),";;",$S(AGTYPE="D":3,1:2)),":",?13
  • Line Location: MDISP+3
Function Call: WRITE
  • Prompt: " ( Matching Medicaid eligibility dates are not displayed )"
  • Line Location: MDISP+7
Function Call: WRITE
  • Prompt: ?45,$S(I=2:$$FMTE^XLFDT(AG2(I),5),1:AG2(I))
  • Line Location: MDISP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MDISP+10
Function Call: WRITE
  • Prompt: !,"START DATE: "
  • Line Location: MDISP+34
Function Call: WRITE
  • Prompt: ?13,$$FMTE^XLFDT($P(AGLINE(I),U,1),5)
  • Line Location: MDISP+35
Function Call: WRITE
  • Prompt: !," END DATE: "
  • Line Location: MDISP+37
Function Call: WRITE
  • Prompt: ?13,$$FMTE^XLFDT($P(AGLINE(I),U,2),5)
  • Line Location: MDISP+38
Function Call: WRITE
  • Prompt: ?45,$S('$P(AGLINE(I),U,1):IORVON,($P(AGLINE(I),U,5))&($P(AGLINE(I),U,2)'=$P(AGLINE(I),U,5)):IORVON,1:""),$S($P(AGLINE(I),U,5):$$FMTE^XLFDT($P(AGLINE(I),U,5),5),1:$J("",10)),IORVOFF
  • Line Location: MDISP+39
Function Call: WRITE
  • Prompt: !,"Add to MEDICARE SUFFIX file failed for '",AG("FSFX"),"'.",$$DIR^XBDIR("E")
  • Line Location: FILE+1
Routine Call
  • DIE
  • Line Location:
    • FILE+21
Routine Call
  • DIC
  • Line Location:
    • FILE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNMCR - [#9000003] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCR - [#9000003] M+2, M+5, MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+15, FILE+3, FILE+13, FILE+14
, FILE+16, FILE+19, FILE+20, FILE+26
^AUTTMCS - [#9999999.32] MCRY+11, FILE+16
^AUTTMCS("B" FILE+1
^DD(9000003 FILE+27
^DD(9009062.02 PTACT+2

Label References

Name Line Occurrences
DFL MCRY+22, MCRN+3
MCRN M+5
MCRY M+2
MDISP M+6
PTACT FILE+8, FILE+21, FILE+40

Naked Globals

Name Field # of Occurrence
^( MCRY+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MCRY+17*, MCRY+18, MCRY+19*, MCRY+20
AG M~, FILE~, PTACT~, PTACT+2
AG("DATE" FILE+49!
AG("DFN" M+2, M+5, MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+15, FILE+3, FILE+5, FILE+8
, FILE+12, FILE+21, FILE+24, FILE+40, FILE+47, FILE+50
AG("DT" DFL+14, DFL+16, DFL+17, DFL+24, MDISP+18, MDISP+23, MDISP+25, MDISP+26, FILE+30, FILE+32
, FILE+33
AG("DTOT" FILE+49!
AG("ER" FILE+49!
AG("FDOB" DFL+4, FILE+6, FILE+20
AG("FNBR" DFL+6, FILE+6, FILE+14
AG("FNM" DFL+2, FILE+6, FILE+19
AG("FSFX" DFL+8, FILE+1, FILE+6, FILE+15, FILE+16, FILE+17
AG1 M+1!, MDISP+12*, MDISP+14*, MDISP+16, MDISP+17, MDISP+18
AG1( MCRN+2*, MDISP+5
AG1("DT" MCRY+20*, DFL+17, DFL+21, DFL+23, DFL+24, MDISP+14, MDISP+16, MDISP+17, MDISP+26
AG1(1 MCRY+3*, MCRN+1*
AG1(2 MCRY+6*
AG1(3 MCRY+8*
AG1(4 MCRY+11*
AG1(5 MDISP+1*
AG2 M+1!, MDISP+22*, MDISP+23*, MDISP+25, MDISP+26
AG2( MDISP+8
AG2(1 DFL+2*, DFL+3
AG2(2 DFL+4*, DFL+5
AG2(3 DFL+6*, DFL+7
AG2(4 DFL+8*, DFL+9
AG2(5 MDISP+1*
>> AGACT M+2*
AGADD FILE+2~, FILE+3*, FILE+10*, FILE+39
>> AGAUTO M+3
>> AGCNT MDISP+12*, MDISP+17*, MDISP+18, MDISP+26*, MDISP+27, MDISP+30*
>> AGCVT MDISP+15*, MDISP+16*, MDISP+17, MDISP+18, MDISP+24*, MDISP+25*, MDISP+26
AGDISP MDISP~, MDISP+1, MDISP+2, MDISP+10
AGFL MCRY+21!, MCRY+23, DFL+1!
AGFL( MDISP+4, MDISP+6
AGFL(1 DFL+3*
AGFL(2 DFL+5*
AGFL(3 DFL+7*
AGFL(4 DFL+9*
AGFL(5 DFL+17*, DFL+24*
AGI FILE+29*, FILE+30*, FILE+32, FILE+33, FILE+43!
>> AGINSPT FILE+6, FILE+13
AGJ FILE+31*, FILE+32*, FILE+33, FILE+43!
AGLINE MDISP+13!
AGLINE( MDISP+17*, MDISP+18*, MDISP+26*, MDISP+27*, MDISP+31, MDISP+32, MDISP+33*, MDISP+35, MDISP+36, MDISP+38
, MDISP+39, MDISP+40
>> AGMDOB MCRY+5*, MCRY+6, DFL+5
>> AGMNBR MCRY+8*, DFL+7
>> AGMNM MCRY+3*, DFL+3
>> AGMSFX MCRY+10*, MCRY+11*, DFL+9
>> AGRCNT M+10
>> AGRUN PTACT+2
AGSAME M+1!, M+2, MCRY+1*, MCRY+23*
>> AGTYPE MDISP+3, MDISP+7, MDISP+32
DA MCRY+13*, MCRY+15*, MCRY+17, FILE+11~, FILE+12*, FILE+13, FILE+14, FILE+16, FILE+19, FILE+20
, FILE+24*, FILE+26*, PTACT+1~
DA(1 FILE+24*, FILE+26, FILE+27, PTACT+2*
DD FILE+4~, FILE+7!, FILE+28!, FILE+37!, PTACT+3!
DFN FILE+46~, FILE+47*
DIC FILE+1*, FILE+4~, FILE+5*, FILE+27*, PTACT+1~, PTACT+2*
DIC("DR" FILE+6*, FILE+35*, FILE+36*
DIC("P" FILE+27*, PTACT+2*
DIC(0 FILE+1*, FILE+5*, FILE+27*, PTACT+2*
DIE FILE+11~, FILE+12*, PTACT+1~
>> DIK FILE+24*
DINUM FILE+5*, PTACT+1~, PTACT+2*
DITC FILE+21~*!
DLAYGO FILE+4~, FILE+5*
DO FILE+4~, FILE+7!, FILE+28!, FILE+37!, PTACT+3!
DR FILE+11~, FILE+12*, FILE+13*, FILE+14*, FILE+17*, FILE+19*, FILE+20*, FILE+21, PTACT+1~
DUZ(2 FILE+50
I MCRN+2*, DFL+12~, DFL+13*, DFL+14*, DFL+16, DFL+17, DFL+20*, DFL+21*, DFL+23, DFL+24
, MDISP+2*, MDISP+4, MDISP+5, MDISP+6, MDISP+7, MDISP+8, MDISP+30*, MDISP+31*, MDISP+32, MDISP+33
, MDISP+35, MDISP+36, MDISP+38, MDISP+39, MDISP+40
IO(0 M+8
>> IORVOFF MDISP+36, MDISP+39, MDISP+40
>> IORVON MDISP+36, MDISP+39, MDISP+40
J DFL+12~, DFL+15*, DFL+16*, DFL+17, DFL+22*, DFL+23*, DFL+24
U MCRY+3, MCRY+5, MCRY+8, MCRY+10, MCRY+11, MCRY+17, MCRY+18, MCRY+19, MCRY+20, MDISP+35
, MDISP+36, MDISP+38, MDISP+39, MDISP+40, FILE+13, FILE+14, FILE+16, FILE+19, FILE+20, FILE+26
, FILE+27, FILE+33, PTACT+2
X FILE+1*, FILE+5*, FILE+33*, FILE+34, PTACT~, PTACT+2
Y FILE+1, FILE+3, FILE+8, FILE+21, FILE+40, PTACT+1~

Marked Items

Name Field # of Occurrence
$T(@I MDISP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All