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

Package: IHS Patient Registration

Routine: AGEL1


Information

AGEL1 ; IHS/ASDS/EFG - Add/Edit Eligibility Information ;

Source Information

Source file <AGEL1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient Registration 4 EDLOOP^AGEL0  ^AGELE2X2  $$ISMINOR^AGUTILS  $$INSTYP^AGUTL  
VA Fileman 4 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGEL  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
PADD
SCAN
CHK
ADD ;EP - PROMPT TO ADD DATA TO FLDS
PADD2
HIT
PCHK ;EP - LOOK FOR NAME IN POLICY HOLDER FILE

External References

Name Field # of Occurrence
EDLOOP^AGEL0 ADD+18
^AGELE2X2 ADD+10
$$ISMINOR^AGUTILS PAT+3
$$INSTYP^AGUTL PAT+9
^DIC ADD+6, SCAN, PCHK+3
FILE^DICN PADD2
YN^DICN PAT+17, PADD+1
^DIE ADD+11, PADD2+2
^DIR SCAN+5, PCHK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SCAN+5
Function Call: WRITE
  • Prompt: !!,"No Hit Found in POLICY HOLDER file",!!,"Searching PATIENT file ...."
  • Line Location: PCHK+2
Function Call: WRITE
  • Prompt: !!,"No Hit Found in PATIENT File for ",AGEL("X"),"!"
  • Line Location: PCHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PCHK+5
Function Call: WRITE
  • Prompt: " ",$P(Y,U,2)
  • Line Location: PCHK+6
Function Call: WRITE
  • Prompt: !,"A MINOR CANNOT BE THE POLICY HOLDER FOR "_$G(INSNM)
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: !!,"Is ",$P(Y,U,2)," the correct insured policy holder"
  • Line Location: PAT+16
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAT+17
Function Call: WRITE
  • Prompt: !!?10,"No Lookup Match Found, or Improper Format for New Entry"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to add ",X," as the Insured Policy Holder"
  • Line Location: PADD+0
Routine Call
  • DIE
  • Line Location:
    • ADD+11
    • PADD2+2
Routine Call
  • DIC
  • Line Location:
    • ADD+6
    • SCAN
    • PCHK+3
Routine Call
  • DIR
  • Line Location:
    • SCAN+5
    • PCHK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPN3PPH - [#9000003.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] ADD+10, ADD+12*, ADD+13*, ADD+14*, ADD+15*, ADD+16*, ADD+20, ADD+22
^AUTNINS - [#9999999.18] PAT+7
^DPT - [#2] SCAN+7, PCHK+1, PAT+19, HIT

Label References

Name Line Occurrences
@( ADD+20, ADD+22
CHK SCAN+3, PCHK+5
HIT SCAN+7, PCHK+1, PAT+19
PADD2 SCAN+7, PCHK+1, PAT+19
PAT PAT+17
SCAN SCAN+6, PCHK+5

Naked Globals

Name Field # of Occurrence
^(0 ADD+22, HIT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+17*, PAT+19, PADD+1*
>> AG("PH11" ADD+13, ADD+17!
>> AG("PH12" ADD+14, ADD+17!
>> AG("PH13" ADD+15, ADD+17!
>> AG("PH14" ADD+16, ADD+17!
>> AG("PH9" ADD+12, ADD+17!
>> AGEL("DR" PCHK+4*, PADD2+2, HIT*
>> AGEL("X" SCAN+3, SCAN+7*, PCHK+4, PCHK+5, PAT+19*, PADD2+1*, PADD2+3
>> AGEL("X3" ADD+10*
>> AGEL("Y" SCAN+4*, SCAN+7, PAT+16*, PAT+19, PADD2+1*, PADD2+3
>> AGELP("FLDS" ADD+18*
>> AGELP("INS" PAT+7, PAT+9, PAT+12, PADD2+2
>> AGELP("MODE" ADD+18, ADD+21, ADD+23*
>> AGELP("PDFN" ADD+2, ADD+7*, ADD+19, ADD+20, ADD+21, ADD+22, PCHK+1
>> AGELP("PH" ADD+10, ADD+11, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+20, ADD+22
>> AGELP("RELSH" ADD+21!, ADD+23!
>> AGELP("SAME" ADD+19*, ADD+21*, ADD+22*, ADD+23*, PCHK+1
>> AGELP("TYPE" ADD+20, ADD+22
>> AGELP("Y" ADD+10
>> AGV("X2" ADD+10*
>> DA ADD+11*, PADD2+2*
DD PADD2!
>> DFN PCHK+1, PAT+3
DIC ADD+3!, ADD+5*, SCAN!*, PCHK+3!*, PADD2*
DIC(0 ADD+4*, SCAN*, PCHK+3*, PADD2*
DIE ADD+3!, ADD+11*, PADD2+2*
DIR ADD+3!, SCAN+5!, PCHK+5!
DIR("A" SCAN+5*, PCHK+5*
DIR("B" SCAN+5*
DIR(0 SCAN+5*, PCHK+5*
DO PADD2!
>> DR ADD+11*, PADD2+2*
>> DTOUT SCAN+2, SCAN+6
>> DUOUT SCAN+2, SCAN+6
INSNM PAT+5~, PAT+7*, PAT+10, PAT+13
INSTYP PAT+5~, PAT+9*, PAT+11
>> L CHK*
NOADD PAT+2~, PAT+3!, PAT+6*, PAT+10*, PAT+11*, PAT+12*, PAT+13, PAT+14!
U ADD+10, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+20, ADD+22, SCAN+7, PCHK+1
, PCHK+6, PAT+7, PAT+16, PAT+19, PADD2+1, HIT
X SCAN+3*, SCAN+7*, PCHK+4*, PCHK+5*, PAT+19*, CHK!*, CHK+1, PADD, PADD+1!, PADD2+3*
, HIT*
>> Y ADD+2, ADD+7, ADD+10*, ADD+20*, ADD+22*, SCAN+1, SCAN+2*, SCAN+3, SCAN+4, SCAN+6
, SCAN+7*, PCHK+1*, PCHK+5, PCHK+6, PAT+16, PAT+19*, CHK+1*, PADD+1*, PADD2, PADD2+1
, PADD2+2, PADD2+3*, HIT
>> Y(0 SCAN+5
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