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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGELUPR

Package: IHS Patient Registration

Routine: AGELUPR


Information

AGELUPR ;IHS/ASDS/EFG - PRINT CMS FILE PROCESS LOG ;

Source Information

Source file <AGELUPR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 2 ^DIC  $$GET1^DIQ  
IHS VA Utilities 1 $$DIR^XBDIR  

Entry Points

Name Comments DBIA/ICR reference
END ;end of patients
HDR ;EP - page header
HDR1 ;
ONE ;print one patient
START ;start
QUE ;que to taskman
PRINT ;EP - From Taskman. Print the report.
TMPLT ;AG(V,N,S,P) = AG(value,name,subscript,piece)

External References

Name Field # of Occurrence
^%ZIS START+6
HOME^%ZIS START+8
^%ZISC START+9
^%ZTLOAD QUE+2
^DIC START+3, TMPLT+4
$$GET1^DIQ HDR+3, HDR1+2, HDR1+3, HDR1+4, HDR1+5, HDR1+6, HDR1+7
$$DIR^XBDIR ONE+4, END+2
$$FMTE^XLFDT HDR+2
$$CJ^XLFSTR HDR+2
$$REPEAT^XLFSTR HDR+3, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task # ",ZTSK," queued."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U,1),?40
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR("ELIGIBILITY UPLOAD LOG",IOM),!,"Upload Run Date: ",$$FMTE^XLFDT(AGRDT,1),?70,"Page ",AGPG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?11,"File: ",$$GET1^DIQ(9009062.02,AGDA,.03)," #Records: ",$FN($$GET1^DIQ(9009062.02,AGDA,.04),","),!?7,"Template: ",$$GET1^DIQ(9009062.02,AGDA,.02),!,$$REPEAT^XLFSTR("=",80),!,"Patients ",AGCAT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?40,"Social Security Number",!,$$REPEAT^XLFSTR("-",30),?40,$$REPEAT^XLFSTR("-",22)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?26,"Before",?45,"After",?63,"Added"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,"MEDICARE ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.06),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.07),","),8)," = "
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.07)-$$GET1^DIQ(9009062.02,AGDA,.06),","),8)
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"RAILROAD ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.08),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.09),","),8)," = "
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.09)-$$GET1^DIQ(9009062.02,AGDA,.08),","),8)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"MEDICAID ELIGIBLE file: ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.11),","),8)," ",$J($FN($$GET1^DIQ(9009062.02,AGDA,.12),","),8)," = "
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: $J($FN($$GET1^DIQ(9009062.02,AGDA,.12)-$$GET1^DIQ(9009062.02,AGDA,.11),","),8)
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS ",AGCAT," ",AGCNT
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"*** Print a template format ***",!
  • Line Location: TMPLT+1
Function Call: WRITE
  • Prompt: !,$J(N,20),": ",V
  • Line Location: TMPLT+11
Function Call: WRITE
  • Prompt: !,$J(V,8)," ",N
  • Line Location: TMPLT+13
Routine Call
  • %ZIS
  • Line Location:
    • START+8
Routine Call
  • DIC
  • Line Location:
    • START+3
    • TMPLT+4
Routine Call
  • %ZIS
  • Line Location:
    • START+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGELUP - [#9009062.01] TMPLT+9
^AGELUPLG - [#9009062.02] PRINT+2, PRINT+5, PRINT+12
^DD(2 ONE+1
^DD(9009062.01 TMPLT+9
^DPT - [#2] ONE+1

Label References

Name Line Occurrences
END PRINT+7, PRINT+14
HDR PRINT+3, PRINT+10, ONE+6
HDR1 HDR+4
ONE PRINT+5, PRINT+12
PRINT START+9
QUE START+8

Naked Globals

Name Field # of Occurrence
^( TMPLT+9
^(0 ONE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG TMPLT+2~, TMPLT+6*, TMPLT+9
AG( TMPLT+9*, TMPLT+11, TMPLT+13
AGCAT PRINT+1~, PRINT+2*, PRINT+9*, HDR+3, HDR+4, END+1
AGCNT PRINT+1~, PRINT+4*, PRINT+11*, ONE+2*, END+1
AGDA START+1~, START+5*, PRINT+2, PRINT+5, PRINT+12, HDR+3, HDR1+2, HDR1+3, HDR1+4, HDR1+5
, HDR1+6, HDR1+7
AGMVDF PRINT+1~
AGPG PRINT+1~, PRINT+2*, HDR+1*, HDR+2, HDR+4
AGQUIT PRINT+1~, PRINT+2*, PRINT+5, PRINT+6, PRINT+8, PRINT+12, PRINT+13, PRINT+15, ONE+4*, ONE+5
, END+2*
AGRDT PRINT+1~, PRINT+2*, HDR+2
DA TMPLT+7~, TMPLT+8*, TMPLT+9*
DFN PRINT+1~, PRINT+4*, PRINT+5*, PRINT+11*, PRINT+12*, ONE+1
DIC START+1~, START+2*, TMPLT+2~, TMPLT+3*
DIC(0 START+2*, TMPLT+3*
IO START+8
IO(0 START+8
IOF PRINT+16, HDR+2
IOM HDR+2
IOSL ONE+3
IOST ONE+4, END+2
N TMPLT+7~, TMPLT+9*, TMPLT+11*, TMPLT+13*
P TMPLT+7~, TMPLT+9*
>> POP START+7
S TMPLT+7~, TMPLT+9*
U PRINT+2, ONE+1, TMPLT+9
V TMPLT+7~, TMPLT+9*, TMPLT+10*, TMPLT+11*, TMPLT+12*, TMPLT+13*
Y START+4, START+5, ONE+1*, TMPLT+2~, TMPLT+5, TMPLT+6
>> ZTDESC QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE("AGDA" QUE+1*
>> ZTSK QUE+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All