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

Package: IHS Patient Registration

Routine: AGEDMCD1


Information

AGEDMCD1 ; IHS/ASDS/TPF - NEW EDIT/DISP MCD SCREEN - CODE OVERFLOW ;

Source Information

Source file <AGEDMCD1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient Registration 3 $$ISACTIVE^AGINS  ($$DTEST,PROGVIEW)^AGUTILS  $$S^AGVDF  
VA Fileman 1 LIST^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGEDMCD  

Entry Points

Name Comments DBIA/ICR reference
SHOWNEW(DATESORT) ;EP
GETDATES(WD0) ;EP - GET THE DTS USING LIST^DIC
HDR ;EP - CALLED BY AGEDMCD
DATESORT(RESULT) ;EP - TAKE LIST RETURNED BY FILE^DIC AND SORT IT
ALLTERM ;EP
DATESHOW(RESULT) ;

External References

Name Field # of Occurrence
$$ISACTIVE^AGINS DATESHOW+10, SHOWNEW+18, ALLTERM+13
$$DTEST^AGUTILS HDR+19
PROGVIEW^AGUTILS HDR+11
$$S^AGVDF HDR+8
LIST^DIC GETDATES+3

Interaction Calls

Name Line Occurrences
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+12
Function Call: WRITE
  • Prompt: ?36,"MEDICAID"
  • Line Location: HDR+13
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+14
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$E(AGPAT,1,23)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?23,$$DTEST^AGUTILS(DFN)
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: ?42,"HRN#:",AGCHRT
  • Line Location: HDR+20
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+23
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !,?3,"NUMBER",?22,"(updated)",?39,"ELIG DATE",?53,"COVERAGE",?64,"ELIG END"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DATESHOW+4
Function Call: WRITE
  • Prompt: ?39,Y
  • Line Location: DATESHOW+6
Function Call: WRITE
  • Prompt: ?59,RESULT("DILIST","ID",REC,.03)
  • Line Location: DATESHOW+7
Function Call: WRITE
  • Prompt: ?71,Y
  • Line Location: DATESHOW+9
Function Call: WRITE
  • Prompt: ?79,$S($$ISACTIVE^AGINS(RESULT("DILIST","ID",REC,.01),RESULT("DILIST","ID",REC,.02)):"A",1:"I")
  • Line Location: DATESHOW+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWNEW+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLTERM+7
Routine Call
  • DIC
  • Line Location:
    • GETDATES+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000004.11 LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HDR+2, HDR+4, HDR+22
^DD("DD" DATESHOW+5, DATESHOW+8, SHOWNEW+13, SHOWNEW+16, ALLTERM+8, ALLTERM+11
^DIC(4 - [#4] HDR+14
^DPT - [#2] HDR+1

Label References

Name Line Occurrences
ALLTERM SHOWNEW+4
DATESORT GETDATES+4
SHOWNEW DATESORT+13

Naked Globals

Name Field # of Occurrence
^(0 HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("AUPN" HDR+3*, HDR+4*
>> AG("EDIT" HDR+28!
>> AGCHRT HDR+2*, HDR+20
>> AGELSTS HDR+22*, HDR+23
>> AGLINE("-" HDR+5*, HDR+15*, HDR+26
>> AGLINE("EQ" HDR+6*, HDR+16*, HDR+17, HDR+24
>> AGLINE("PGLN" HDR+7*
>> AGPAT HDR+1*, HDR+18
>> AGSEENLY HDR+12
>> AGSELECT HDR+10
CVG DATESORT+2~, DATESORT+7*, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+9*, SHOWNEW+15, ALLTERM+4*, ALLTERM+10
>> DA HDR+27*
DATE SHOWNEW+1~, SHOWNEW+6*, SHOWNEW+7*, SHOWNEW+8, SHOWNEW+9, SHOWNEW+10, SHOWNEW+11, ALLTERM+1*, ALLTERM+2*, ALLTERM+3
, ALLTERM+4, ALLTERM+5, ALLTERM+6
DATE1 SHOWNEW+1~, SHOWNEW+8*, SHOWNEW+11, ALLTERM+3*, ALLTERM+6
DATESORT DATESORT+2~, DATESORT+13, SHOWNEW~
DATESORT( DATESORT+9*, DATESORT+10*, SHOWNEW+4, SHOWNEW+5, SHOWNEW+7, SHOWNEW+8, SHOWNEW+9, ALLTERM+2, ALLTERM+3, ALLTERM+4
DATESORT("O" DATESORT+11, SHOWNEW+4
DATESORT("T" DATESORT+12
>> DEFEDDT DATESORT+11*, DATESORT+12*
>> DFN HDR+1, HDR+2, HDR+4, HDR+19, HDR+22, HDR+27
DUZ HDR+11
DUZ(2 HDR+2, HDR+14
EFFDT DATESORT+2~, DATESORT+6*, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+10*, SHOWNEW+11*, SHOWNEW+13, SHOWNEW+18, ALLTERM+5*
, ALLTERM+6*, ALLTERM+8, ALLTERM+13
ENDDT DATESORT+2~, DATESORT+5*, DATESORT+8, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+10*, SHOWNEW+11*, SHOWNEW+16, SHOWNEW+18
, ALLTERM+5*, ALLTERM+6*, ALLTERM+11, ALLTERM+13
>> FIELDS GETDATES+2*, GETDATES+3
>> FLAGS GETDATES+1*, GETDATES+3
REC DATESHOW+1~, DATESHOW+2*, DATESHOW+3*, DATESHOW+4, DATESHOW+5, DATESHOW+7, DATESHOW+8, DATESHOW+10, DATESORT+3*, DATESORT+4*
, DATESORT+5, DATESORT+6, DATESORT+7, SHOWNEW+1~, SHOWNEW+3*, SHOWNEW+12, SHOWNEW+19*, ALLTERM+7, ALLTERM+14*
RESULT GETDATES+4, DATESHOW~, DATESORT~
RESULT("DILIST" DATESHOW+3, DATESHOW+5, DATESHOW+7, DATESHOW+8, DATESHOW+10, DATESORT+4, DATESORT+5, DATESORT+6, DATESORT+7
>> ROUTID HDR+9*
SPECSUB DATESORT+2~, DATESORT+8*, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+2*, SHOWNEW+4*, SHOWNEW+5*, SHOWNEW+7, SHOWNEW+8
, SHOWNEW+9, SHOWNEW+10, ALLTERM+2, ALLTERM+3, ALLTERM+4, ALLTERM+5
>> SUBS HDR+10*, HDR+11
U HDR+1, HDR+2, HDR+10, HDR+14, HDR+22, DATESORT+9, DATESORT+10, DATESORT+12, SHOWNEW+8, SHOWNEW+9
, ALLTERM+3, ALLTERM+4
WD0 GETDATES~, GETDATES+3
>> Y DATESHOW+5*, DATESHOW+6, DATESHOW+8*, DATESHOW+9, SHOWNEW+13*, SHOWNEW+14, SHOWNEW+16*, SHOWNEW+17, ALLTERM+8*, ALLTERM+9
, ALLTERM+11*, ALLTERM+12

Marked Items

Name Field # of Occurrence
$T( HDR+9
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