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: AGELUPUT

Package: IHS Patient Registration

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

Marked Items

Name Field # of Occurrence
$T(AUD+% AUDS+3, AUDR+2
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