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 |  All
Print Page as PDF
Routine: AG2

Package: IHS Patient Registration

Routine: AG2


Information

AG2 ; IHS/ASDS/EFG - ELIGIBILITY AND TRIBAL DATA ;

Source Information

Source file <AG2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 8 (K,L1)^AG0  ^AG1  (BEN,DOB,ELIG,IQTM,SEX,TRIBE)^AG2A  ^AG2B  ^AG3  ^AGELCHK  (DFN,Z1)^AGKPAT  (OTHRTR,TQTM,TRINUM)^AGOPT2  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDA  
IHS Patient Registration 1 AG0  

Entry Points

Name Comments DBIA/ICR reference
ELIG
END
L1
S1
TRINUM
UP
TRIB
TQTM
L5
IQTM
OTHRTR
COM

External References

Name Field # of Occurrence
K^AG0 L1, L1+1, L5+5, TRIB, IQTM+1, COM+1, ELIG+1
L1^AG0 UP
^AG1 L1
BEN^AG2A L5
DOB^AG2A L1+2
ELIG^AG2A ELIG
IQTM^AG2A IQTM
SEX^AG2A L1+2
TRIBE^AG2A TRIB
^AG2B COM
^AG3 END+1
^AGELCHK ELIG+5
DFN^AGKPAT UP
Z1^AGKPAT UP
OTHRTR^AGOPT2 OTHRTR
TQTM^AGOPT2 TQTM
TRINUM^AGOPT2 TRINUM
^DIE TRIB+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: L5+7
Function Call: WRITE
  • Prompt: *7,!,"<Tribe Required>"
  • Line Location: TRIB+1
Function Call: WRITE
  • Prompt: !,"That TRIBE not acceptable."
  • Line Location: TRIB+2
Function Call: WRITE
  • Prompt: *7,!!?5,"ERROR: Inconsistancy, Native American with Blood Quantity of NONE?"
  • Line Location: IQTM+2
Function Call: WRITE
  • Prompt: *7,!!?5,"ERROR: Inconsistancy, Tribal Member with Blood Quantity of NONE?"
  • Line Location: TQTM+2
Function Call: WRITE
  • Prompt: *7,!!?5,"ERROR: Inconsistancy, Native American with Status of INELIGIBLE?"
  • Line Location: ELIG+2
Function Call: WRITE
  • Prompt: !!,*7,*7,"Deleting Patient ",AG("NAME")," ...."
  • Line Location: UP+0
Routine Call
  • DIE
  • Line Location:
    • TRIB+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] TRIB, TRIB+1, TRIB+2, TRIB+3, IQTM+1, COM, ELIG+2
^AUTTBEN - [#9999999.25] L5+6, COM, ELIG+2
^AUTTTRI - [#9999999.03] TRIB+2, TRIB+3
^DPT - [#2] UP

Label References

Name Line Occurrences
COM TRIB+3, ELIG+1
IQTM TRIB, TQTM, TQTM+1
L1 L5+5
L5 L5+8, TRIB, TRIB+2, IQTM+2, COM, ELIG+2, ELIG+5
OTHRTR COM+1
S1 L1, L1+2, L5, TRIB, TRINUM, IQTM, TQTM, OTHRTR, COM, ELIG
TQTM OTHRTR, OTHRTR+1
TRIB TRIB+1, TRINUM, TRINUM+1, IQTM+1, TQTM+2
TRINUM IQTM+1
UP L1

Naked Globals

Name Field # of Occurrence
^(0 L5+6
^(11 TRIB, TRIB+1, TRIB+2, COM, ELIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG END!
AG("EDIT" UP*
AG("ER" ELIG+5!, ELIG+6!
AG("NAME" UP*
AG("TEMP CHAR T" , L1+1, L1+2
AG("TRINUM" TRIB+3*!, TRIB+4!
>> AGDOG L1+1
>> AGOPT(1 TQTM
>> AGOPT(2 TRINUM
>> AGOPT(8 OTHRTR
AGWM ELIG+5*!, ELIG+6!
AGXXX TRIB+3*!, TRIB+4!
>> ALLFLDRQ L5+8, IQTM+2, TQTM+2, ELIG+5
>> DA L5+9*, TRIB+3*
>> DFN L5+9, TRIB, TRIB+1, TRIB+2, TRIB+3, IQTM+1, COM, ELIG+2, UP
DFOUT L1, L5+5, TRIB, IQTM+1, COM+1, ELIG+1, S1!
>> DIE L5+9*
DLOUT S1!
DQOUT S1!
>> DR TRIB+3*
DTOUT L1, L5+5, TRIB, IQTM+1, COM+1, ELIG+1, S1!
DUOUT L1, L5+5, TRIB, TRINUM, TRINUM+1, IQTM+1, TQTM, TQTM+1, OTHRTR, OTHRTR+1
, COM, COM+1, ELIG+1, S1!
U L5+6, TRIB, TRIB+1, TRIB+2, TRIB+3, IQTM+1, COM, ELIG+2, UP
>> X L5+6*, L5+8, IQTM+2, TQTM+2, ELIG+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 |  All