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 |  Local Variables |  All
Print Page as PDF
Routine: AGFACE4

Package: IHS Patient Registration

Routine: AGFACE4


Information

AGFACE4 ; IHS/ASDS/EFG - FACE SHEET (3RD PARTY (MEDICARE) ELIGIBILITY) ;

Source Information

Source file <AGFACE4.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient Registration 2 ^AGDICLK  $$GETMCR^AGUTL  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
END
L3A

External References

Name Field # of Occurrence
^AGDICLK AGFACE4+22, AGFACE4+24, L3A, L3A+7, L3A+8, L3A+9
$$GETMCR^AGUTL AGFACE4+16
$$GET1^DIQ AGFACE4+13, AGFACE4+14, AGFACE4+19, AGFACE4+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$G(AG("-")),!?23,"*** THIRD PARTY ELIGIBILITY ***",!
  • Line Location: AGFACE4+4
Function Call: WRITE
  • Prompt: "MEDICARE:",!,"TYPE",?20,"NUMBER",?46,"ELIG. DATE",?60,"ELIG. END DATE"
  • Line Location: AGFACE4+6
Function Call: WRITE
  • Prompt: !,COVTYP,?20,$$GET1^DIQ(9000003.11,IENS,.06,"E")
  • Line Location: AGFACE4+14
Function Call: WRITE
  • Prompt: !,COVTYP,?20,$$GET1^DIQ(9000003,DFN_",",.03,"E")
  • Line Location: AGFACE4+15
Function Call: WRITE
  • Prompt: !,COVTYP,?20,$$GETMCR^AGUTL(DFN)
  • Line Location: AGFACE4+16
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9000003,DFN_",",.04,"E")
  • Line Location: AGFACE4+18
Function Call: WRITE
  • Prompt: !?3,"NAME: ",AG("LKPRINT")
  • Line Location: AGFACE4+23
Function Call: WRITE
  • Prompt: !?3,"DATE OF BIRTH: ",$G(AG("LKPRINT"))
  • Line Location: AGFACE4+26
Function Call: WRITE
  • Prompt: !,AG("LKPRINT"),?20,$P($G(^AUPNMCR(DFN,11,AG,0)),U,6)
  • Line Location: L3A+2
Function Call: WRITE
  • Prompt: !,AG("LKPRINT"),?20,$P($G(^AUPNMCR(DFN,0)),U,3)
  • Line Location: L3A+3
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Line Location: L3A+5
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Line Location: L3A+7
Function Call: WRITE
  • Prompt: ?46,AG("LKPRINT")
  • Line Location: L3A+8
Function Call: WRITE
  • Prompt: ?60,AG("LKPRINT")
  • Line Location: L3A+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000003.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCR - [#9000003] AGFACE4+5, AGFACE4+11, L3A+2, L3A+3, L3A+6

Label References

Name Line Occurrences
END AGFACE4+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG AGFACE4+10*, AGFACE4+11*, AGFACE4+12, L3A, L3A+2, L3A+6, L3A+8, L3A+9
>> AG("-" AGFACE4+4
>> AG("DRENT" L3A*, L3A+8*, L3A+9*
>> AG("LKERR" L3A, L3A+7, L3A+8, L3A+9
>> AG("LKPRINT" AGFACE4+23, AGFACE4+24, AGFACE4+26, L3A+2, L3A+3, L3A+7, L3A+8, L3A+9
COVTYP AGFACE4+9~, AGFACE4+13*, AGFACE4+14, AGFACE4+16
>> DA AGFACE4+22*, L3A+7*
>> DFN AGFACE4+5, AGFACE4+11, AGFACE4+12, AGFACE4+16, AGFACE4+22, L3A+2, L3A+3, L3A+6, L3A+7
>> DIC AGFACE4+22*, L3A+7*, L3A+8*, L3A+9*
>> DR AGFACE4+22*, AGFACE4+24*, L3A*, L3A+7*, L3A+8*, L3A+9*
IENS AGFACE4+9~, AGFACE4+12*, AGFACE4+13, AGFACE4+14, AGFACE4+19, AGFACE4+20
U L3A+2, L3A+3, L3A+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All