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

Package: IHS Patient Registration

Routine: AGBIC2


Information

AGBIC2 ; IHS/ASDS/EFG - ENTRY UTILITY FOR MANDATORY DATA ;

Source Information

Source file <AGBIC2.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Patient Registration 10 (READ,YN)^AG  (K,L1)^AG0  ^AG1  (BEN,DOB,IQTM,TRBFLG,TRIBE)^AG2A  ^AG3  ^AGBIC2B  ^AGBIC2C  ^AGDICLK  
(DFN,Z1)^AGKPAT  (OTHRTR,TQTM,TRINUM)^AGOPT2  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Patient Registration 5 AG0  AG2A  AG2B  AGBIC2P  AGED1  

Entry Points

Name Comments DBIA/ICR reference
SETMNRES ;
L5AOPT ;
TRBMNR ;EP
S1 ;
L6OPT ;
QUITMNR ;
CMMNR ;EP
L5ELIG ;
SETMINOR ;
L5OPT ;
QUITRES ;
END ;
ASKMNRES ;
L7 ;
CKMINOR ;
L5 ;
L1 ;
TRBVER ;
CKMNRES ;
CALCELIG ;EP
SETRBFLG ;
UP ;
L4 ;
ASKMINOR ;

External References

Name Field # of Occurrence
READ^AG L5ELIG+9, ASKMINOR+2, ASKMNRES+2, TRBVER+7
YN^AG ASKMINOR+4, ASKMNRES+4
K^AG0 L1+3, L1+5, L4+4, L5+4, L5+9, L5ELIG+10, L7+4, CKMINOR+6, CKMNRES+6
L1^AG0 UP+5
^AG1 L1+2
BEN^AG2A L7+2
DOB^AG2A L1+8
IQTM^AG2A L5+7
TRBFLG^AG2A TRBMNR+11, SETRBFLG+2, SETRBFLG+11
TRIBE^AG2A L5+2
^AG3 END+2
^AGBIC2B L4+2
^AGBIC2C L5ELIG+2
^AGDICLK CKMINOR+4
DFN^AGKPAT UP+4
Z1^AGKPAT UP+3
OTHRTR^AGOPT2 L6OPT+3
TQTM^AGOPT2 L5OPT+3
TRINUM^AGOPT2 L5AOPT+3
^DIC CKMNRES+4
^DIE CMMNR+7, TRBMNR+9, SETRBFLG+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"That TRIBE no longer valid"
  • Line Location: L5+5
Function Call: WRITE
  • Prompt: *7,!!?15,"This patient's eligibility has been computed to be "
  • Line Location: L5ELIG+4
Function Call: WRITE
  • Prompt: !?80-$L(AG("NARR1"))/2,AG("NARR1")
  • Line Location: L5ELIG+5
Function Call: WRITE
  • Prompt: !!,"If you wish to have the eligibility recomputed you may reenter the Community,"
  • Line Location: L5ELIG+6
Function Call: WRITE
  • Prompt: !,"Tribe, and/or Indian Quantum by entering ""^"" at this time. "
  • Line Location: L5ELIG+7
Function Call: WRITE
  • Prompt: !!,*7,*7,"Deleting Patient ",$P(^DPT(DFN,0),U)," ...."
  • Line Location: UP+2
Function Call: WRITE
  • Prompt: *7,!!,"IS THIS THE MINOR CHILD OF A TRIBAL MEMBER? (Y/N) // "
  • Line Location: ASKMINOR+1
Function Call: WRITE
  • Prompt: *7,!!,"IS EITHER PARENT ELIGIBLE FOR DIRECT OR CHS CARE? (Y/N) // "
  • Line Location: ASKMNRES+1
Function Call: WRITE
  • Prompt: !!,"HAS TRIBAL MEMBERSHIP BEEN VERIFIED? (Y/N/U): "
  • Line Location: TRBVER+4
Routine Call
  • DIE
  • Line Location:
    • CMMNR+7
    • TRBMNR+9
    • SETRBFLG+9
Routine Call
  • DIC
  • Line Location:
    • CKMNRES+4

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] L5+5, CALCELIG+1, SETMINOR+2, QUITMNR+1, SETMNRES+2, QUITRES+1, CMMNR+1, TRBMNR+2, TRBVER+3
^AUTTBICE - [#9999999.48] CALCELIG+2
^AUTTTRI - [#9999999.03] L5+5, TRBMNR+2
^DPT - [#2] UP+2

Label References

Name Line Occurrences
ASKMINOR CKMINOR+7, ASKMINOR+3
ASKMNRES CKMNRES+7, ASKMNRES+3
CALCELIG L5ELIG+3
CKMINOR TRBMNR+4, SETRBFLG+4
CKMNRES CMMNR+2
CMMNR L4+5
L1 L4+3
L4 L5+3, L5ELIG+11, CKMNRES+6
L5 L5+5, L5+8, L5AOPT+1, L5AOPT+4, CKMINOR+6
L5AOPT L5OPT+1, L5OPT+4
L5OPT L6OPT+1, L6OPT+4
L6OPT L7+3
QUITMNR SETMINOR+1
QUITRES SETMNRES+1
S1 L1+1, L1+7, L4+1, L5+1, L5+6, L5ELIG+1, L5ELIG+8, L5AOPT+2, L5OPT+2, L6OPT+2
, L7+1, CMMNR+8, TRBMNR+10, SETRBFLG+1, SETRBFLG+10
SETMINOR TRBMNR+5, SETRBFLG+5
SETMNRES CMMNR+3
TRBVER TRBVER+9
UP L1+4

Naked Globals

Name Field # of Occurrence
^(11 L5+5, QUITMNR+1, QUITRES+1, CMMNR+1, TRBMNR+2, TRBVER+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG END+1!
AG("EDIT" UP+1*
AG("ELG" CALCELIG+1*, CALCELIG+2
AG("LKPRINT" CKMINOR+6, CKMINOR+7, CKMNRES+6, CKMNRES+7
AG("NARR1" L5ELIG+5, CALCELIG+2*
AG("TEMP CHAR T" , L1+5, L1+6
AG("TRBVER" TRBVER+2*, TRBVER+3*, TRBVER+5, TRBVER+6, TRBVER+8
AG("TRIBE" TRBMNR+1*, TRBMNR+2*, TRBMNR+3, TRBVER+11*, SETRBFLG+3
>> AGOPT(1 L5OPT+1
>> AGOPT(2 L5AOPT+1
>> AGOPT(8 L6OPT+1
>> DA CKMINOR+1*, CKMNRES+1*, CMMNR+4*, TRBMNR+6*, SETRBFLG+6*
>> DFN L5+5, UP+2, CKMINOR+1, CALCELIG+1, SETMINOR+2, QUITMNR+1, CKMNRES+1, SETMNRES+2, QUITRES+1, CMMNR+1
, CMMNR+4, TRBMNR+2, TRBMNR+6, TRBVER+3, SETRBFLG+6
DFOUT L1+3, L4+4, L5+4, L5+9, L5ELIG+10, L7+4, S1+1!, CKMINOR+6, CKMNRES+6
>> DIC CKMINOR+2*, CKMNRES+2*
>> DIE CMMNR+6*, TRBMNR+8*, SETRBFLG+8*
DLOUT S1+1!, TRBVER+8
>> DOG L1+5
DQOUT S1+1!
>> DR CKMINOR+3*, CKMNRES+3*, CMMNR+5*, TRBMNR+7*, SETRBFLG+7*
DTOUT L1+3, L4+3, L5+4, L5+9, L5ELIG+10, L7+4, S1+1!, CKMINOR+6, CKMNRES+6
DUOUT L1+4, L4+3, L5+3, L5+8, L5ELIG+11, L5AOPT+1, L5AOPT+4, L5OPT+1, L5OPT+4, L6OPT+1
, L6OPT+4, L7+3, S1+1!, CKMINOR+6, CKMNRES+6, TRBVER+1
U L5+5, UP+2, CALCELIG+1, CALCELIG+2, SETMINOR+2, QUITMNR+1, SETMNRES+2, QUITRES+1, CMMNR+1, TRBMNR+2
, TRBVER+3
>> Y CKMINOR+5*, CKMINOR+8*, ASKMINOR+3, SETMINOR+1, SETMINOR+2*, QUITMNR+1*, CKMNRES+5*, ASKMNRES+3, SETMNRES+1, SETMNRES+2*
, SETMNRES+3*, QUITRES+1*, CMMNR+5, TRBMNR+7, TRBVER+6*, TRBVER+8*, TRBVER+9, TRBVER+11, SETRBFLG+7
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