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

Package: IHS Patient Registration

Routine: AG2A


Information

AG2A ; IHS/ASDS/EFG - ENTER & EDIT MANDATORY DATA ;

Source Information

Source file <AG2A.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS Patient Registration 3 TRBMNR^AGBIC2  EN^AGEDGUAR  SEXELIG^AGUTL  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Patient Registration 4 AG2  AGBIC2  AGBIC2P  AGED2  
Emergency Room 1 AMERVSIT  

Entry Points

Name Comments DBIA/ICR reference
BEN1 ;
TRIBE ;EP - Tribe.
TRBFLG ;EP - Enter Tribe Verified Flag.
BEN ;EP - Beneficiary Code.
DOB ;EP - Date of Birth.
S2 ;
S1 ;
TRINUM ;Tribal Enrollment Number.
SEX ;EP - Sex.
TQTM ;Tribal Blood Quantum.
BENED ;EP - Classification / Beneficiary (string in AGED2).
ELIG ;EP - Eligibility Status.
END ;
IQTM ;EP - Indian Blood Quantum.
GUARREQ ;

External References

Name Field # of Occurrence
TRBMNR^AGBIC2 TRIBE+16
EN^AGEDGUAR GUARREQ+10
SEXELIG^AGUTL SEX+30
^DIC TRIBE+9, BEN1+10
^DIE DOB+17, SEX+21, SEX+28, TRIBE+15, END+1
^DIK ELIG+11
$$GET1^DIQ TRIBE+5
^DIR SEX+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"The NAME/SSN/DOB have been Verfied by the SSA do not change the DOB unless you are"
  • Line Location: DOB+5
Function Call: WRITE
  • Prompt: !,"certain that it is incorrect!"
  • Line Location: DOB+6
Function Call: WRITE
  • Prompt: !!,*7,"DOB must be edited by a supervisor."
  • Line Location: DOB+8
Function Call: WRITE
  • Prompt: !!,*7,"The NAME/SSN/SEX have been Verfied by the SSA do not change the SEX unless you're"
  • Line Location: SEX+5
Function Call: WRITE
  • Prompt: !,"certain that it is incorrect!"
  • Line Location: SEX+6
Function Call: WRITE
  • Prompt: !,"Unconfirmed. Reverting Patient SEX to previous value."
  • Line Location: SEX+17
Function Call: WRITE
  • Prompt: !
  • Line Location: BEN1+3
Function Call: WRITE
  • Prompt: !,"GUARANTOR INFORMATION MANDATORY FOR NON-INDIAN!"
  • Line Location: GUARREQ+12
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: S2+4
Routine Call
  • DIE
  • Line Location:
    • DOB+17
    • SEX+21
    • SEX+28
    • TRIBE+15
    • END+1
Routine Call
  • DIC
  • Line Location:
    • TRIBE+9
    • BEN1+10
Routine Call
  • DIR
  • Line Location:
    • SEX+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls,  GET1^DIQ
^AUTTTRI - [#9999999.03] Classic Fileman Calls
^AUTTBEN - [#9999999.25] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNGUAR - [#9000043] GUARREQ+5, GUARREQ+12
^AUPNPAT - [#9000001] DOB+2, DOB+3, DOB+4, SEX+2, SEX+3, SEX+4, BEN1+7, ELIG+5, ELIG+7
^AUTTSSN - [#9999999.78] DOB+3, DOB+4, SEX+3, SEX+4
^DD(9000001 TRIBE+8
^DPT - [#2] DOB+1, DOB+13, SEX+1, SEX+11, SEX+24
^UTILITY("DIQ1" TRIBE+4!
^XUSEC("AGZMGR" DOB+7

Label References

Name Line Occurrences
END DOB+12, SEX+9, TRBFLG+2, TQTM+3, TRINUM+3, IQTM+3, BEN1+17, BENED+3, ELIG+3
GUARREQ GUARREQ+12
S1 TRBFLG+2, TQTM+1, TRINUM+1, IQTM+1, BEN1+14, BENED+1, ELIG+1
S2 DOB+10, SEX+7
TRBFLG TRIBE+16

Naked Globals

Name Field # of Occurrence
^(11 BEN1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("PG" DOB+7
>> AG("SVELIG" ELIG+4, ELIG+5
>> AGOLD("DOB" DOB+1*, DOB+13, DOB+18!
>> AGOLD("SEX" SEX+1*, SEX+11, SEX+20, SEX+24, SEX+31!
>> AGOPT(12 DOB+7
>> AGOPT(14 TRIBE+16
>> ALLFLDRQ BEN1+2*, GUARREQ+4*, GUARREQ+10
BENTEMP BEN1+16*, GUARREQ+1, GUARREQ+3, GUARREQ+13!
DA DOB+15*, SEX+19*, SEX+26*, TRIBE+3*, TRIBE+13*, ELIG+10*, ELIG+11!, S1+3*, S2+3*
DA(1 ELIG+8*, ELIG+9, ELIG+11!
>> DFN DOB+1, DOB+2, DOB+3, DOB+4, DOB+13, DOB+15, SEX+1, SEX+2, SEX+3, SEX+4
, SEX+11, SEX+19, SEX+24, SEX+26, SEX+30, TRIBE+3, TRIBE+5, TRIBE+13, BEN1+7, GUARREQ+5
, GUARREQ+6, GUARREQ+12, ELIG+5, ELIG+7, ELIG+8, S1+3, S2+3
DIC TRIBE+1*, TRIBE+6*, TRIBE+10!, BEN1+4*, END+3!
DIC("A" TRIBE+8*, BEN1+6*
DIC("B" TRIBE+5*, BEN1+7*, BEN1+8*, BEN1+12!
DIC("S" TRIBE+8*, BEN1+9*, BEN1+12!
DIC(0 TRIBE+7*, BEN1+5*
>> DIE DOB+14*, SEX+18*, SEX+25*, TRIBE+12*, S1+2*, S2+2*
DIK ELIG+9*, ELIG+11!
DIR SEX+12!, SEX+15!
DIR("A" SEX+13*, SEX+14*
DIR("B" SEX+12*
DIR(0 SEX+12*
>> DR DOB+11*, DOB+16*, SEX+8*, SEX+20*, SEX+27*, TRIBE+2*, TRIBE+5, TRIBE+14*, TRBFLG+1*, TQTM+2*
, TRINUM+2*, IQTM+2*, BEN1+15*, BENED+2*, ELIG+2*
DRTEMP BEN1+1~
DUOUT TRIBE+11, TRIBE+16, S1+1!, S2+1!, END+2*
DUZ DOB+7
>> MODREC ELIG+6*, ELIG+7*, ELIG+10
NEWENTRY GUARREQ+9*, GUARREQ+10, GUARREQ+11!
PARDFN GUARREQ+6*, GUARREQ+10, GUARREQ+11!
PARDT GUARREQ+7*, GUARREQ+10, GUARREQ+11!
PARFIL GUARREQ+8*, GUARREQ+10, GUARREQ+11!
U DOB+1, DOB+2, DOB+3, DOB+4, DOB+13, SEX+1, SEX+2, SEX+3, SEX+4, SEX+11
, SEX+24, TRIBE+8, BEN1+7, BEN1+15, BEN1+16, ELIG+5
>> Y SEX+16, TRIBE+11, TRIBE+14, BEN1+11*, BEN1+13, END+2
>> Y(0 BEN1+15, BEN1+16
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