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 |  Marked Items |  All
Print Page as PDF
Routine: AGED2

Package: IHS Patient Registration

Routine: AGED2


Information

AGED2 ; IHS/ASDS/EFG - EDIT PG 2 - RELIGION/TRIBAL DATA/EMPLOYMENT DATA ; MAR 19, 2010

Source Information

Source file <AGED2.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Patient Registration 10 ELIG^AG2A  ^AGBIC2C  ^AGDATCK  (,UPDATE1)^AGED  (CKELIG,VAR)^AGED1  ^AGED3  (EDITCHEK,FETCHERR)^AGEDERR  ^AGELCHK  
$$ISREQ^AGFLDREQ  $$S^AGVDF  
VA Fileman 4 ^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
IHS Patient 1 $$AGE^AUPNPAT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AG8  AGED1  AGED3  

Entry Points

Name Comments DBIA/ICR reference
ELIG ;
TRBCHK ;
READ ;EP
DIE ; Do Field Edit
EMPL ;
FEML ;EP - Edit Father's Email Address
FATHER ;GET FATHER'S NAME, CITY AND STATE OF BIRTH
EMST ;GET PATIENT'S EMPLOYMENT STATUS
1 ;
MOTHER ;GET MOTHER'S NAME, CITY AND STATE OF BIRTH
MCPH ;EP - Edit Mother's Cell Phone
DRAW ;EP
END ;
MEML ;EP - Edit Mother's Email Address
OTHERT ;ALLOW ADD AND EDIT OF OTHER TRIBES AND QUANTUMS
FEMPL ;FATHER'S EMPLOYER INFO
OTHER ;DISPLAY LAST OTHER TRIBE AND QUANTUM
VAR ;
FCPH ;EP - Edit Father's Cell Phone
MAPH ;EP - Edit Mother's Alternate Phone
FAPH ;EP - Edit Father's Alternate Phone
SPSEMP ;EP - Spouse's Employer.
MEMPL ;MOTHER'S EMPLOYER INFO
EMPLR ;EP - Patient's Employer.

External References

Name Field # of Occurrence
ELIG^AG2A ELIG+1
^AGBIC2C DRAW+10
^AGDATCK VAR+5
^AGED DRAW+7
UPDATE1^AGED VAR+25, OTHERT+15
CKELIG^AGED1 VAR+8
VAR^AGED1 END+5
^AGED3 END+6
EDITCHEK^AGEDERR DRAW+55
FETCHERR^AGEDERR DRAW+53
^AGELCHK VAR+8
$$ISREQ^AGFLDREQ EMPLR+6
$$S^AGVDF TRBCHK+4, TRBCHK+6
$$AGE^AUPNPAT FEMPL+4, FEMPL+5, MEMPL+5, MEMPL+6
^DIE EMPLR+9, EMPLR+12, EMST+5, EMPL+5, SPSEMP+6, FEMPL+8, MEMPL+9, OTHERT+14, FATHER+7, FATHER+17
, MOTHER+6, MOTHER+16, DIE+4
$$GET1^DIQ DRAW+15, DRAW+39, DRAW+44
EN^DIQ1 TRBCHK+11
^DIR READ+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+3
Function Call: WRITE
  • Prompt: *7,!!,"Patient must first have a VALID/permanent HRN prior to editing !"
  • Line Location: VAR+6
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: VAR+9
Function Call: WRITE
  • Prompt: !,"The corrections must be made !",*7
  • Line Location: VAR+12
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+17
Function Call: WRITE
  • Prompt: !!,"Invalid entry - Enter a line number or line numbers separated by a ',' to edit"
  • Line Location: VAR+22
Function Call: WRITE
  • Prompt: !!,"You can only change a patient's eligibility"
  • Line Location: ELIG+2
Function Call: WRITE
  • Prompt: !,"by altering their Community of Residence,"
  • Line Location: ELIG+3
Function Call: WRITE
  • Prompt: !,"Tribe of Membership, or Indian Quantum."
  • Line Location: ELIG+4
Function Call: WRITE
  • Prompt: !,"Press return to continue"
  • Line Location: ELIG+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: ELIG+6
Function Call: WRITE
  • Prompt: !,"1. ",$P($G(^DD(DIC,DR,0)),U)," : "
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN,DR)
  • Line Location: DRAW+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DRAW+27
Function Call: WRITE
  • Prompt: ?CLM
  • Line Location: DRAW+28
Function Call: WRITE
  • Prompt: CLLST,". "
  • Line Location: DRAW+32
Function Call: WRITE
  • Prompt: $J(LBL,LEN),": "
  • Line Location: DRAW+35
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(DIC,DFN,DR),1,15)
  • Line Location: DRAW+38
Function Call: WRITE
  • Prompt: VALUE
  • Line Location: DRAW+41
Function Call: WRITE
  • Prompt: ?33,"* NONE LISTED *"
  • Line Location: DRAW+47
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+48
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+49
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+51
Function Call: WRITE
  • Prompt: *7,!!,"Use only pages 1 through 10."
  • Line Location: READ+19
Function Call: WRITE
  • Prompt: $$S^AGVDF("RVN"),"(OLD UNUSED TRIBE NAME)",$$S^AGVDF("RVF")
  • Line Location: TRBCHK+4
Function Call: WRITE
  • Prompt: $$S^AGVDF("RVN")," <- PLEASE SPECIFY IF KNOWN",$$S^AGVDF("RVF")
  • Line Location: TRBCHK+6
Function Call: WRITE
  • Prompt: $G(AGRES(DIC,DFN,DR,"E"))
  • Line Location: TRBCHK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EMPLR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EMST+1
Function Call: WRITE
  • Prompt: !!,"<----------EMPLOYER DEMOGRAPHIC INFO---------->"
  • Line Location: EMPL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SPSEMP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FEMPL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MEMPL+3
Function Call: WRITE
  • Prompt: ?32,TRIBE
  • Line Location: OTHER+6
Function Call: WRITE
  • Prompt: ?73,$E(QUAN,1,6)
  • Line Location: OTHER+7
Function Call: WRITE
  • Prompt: !!,"OTHER TRIBES:",?50,"QUANTUM:",!
  • Line Location: OTHERT+2
Function Call: WRITE
  • Prompt: !,OTRIBE,?50,OQUAN
  • Line Location: OTHERT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: OTHERT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FATHER+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FATHER+15
Function Call: WRITE
  • Prompt: !
  • Line Location: MOTHER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MOTHER+14
Routine Call
  • DIE
  • Line Location:
    • EMPLR+9
    • EMPLR+12
    • EMST+5
    • EMPL+5
    • SPSEMP+6
    • FEMPL+8
    • MEMPL+9
    • OTHERT+14
    • FATHER+7
    • FATHER+17
    • MOTHER+6
    • MOTHER+16
    • DIE+4
Routine Call
  • DIR
  • Line Location:
    • READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUTNEMPL - [#9999999.75] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] AGED2+14, DRAW+43, DRAW+46, READ+16, EMPLR+6, EMPLR+10, EMPLR+14, EMPLR+15, SPSEMP+7, SPSEMP+8
, FEMPL+5, FEMPL+9, FEMPL+10, MEMPL+6, MEMPL+10, MEMPL+11, OTHER+3, OTHER+4, OTHER+5, OTHERT+4
, OTHERT+5, OTHERT+7, OTHERT+16!, FATHER+11*, FATHER+12*, MOTHER+10*, MOTHER+11*
^AUTNEMPL(0 EMPLR+1, EMPLR+16, SPSEMP+1, SPSEMP+9, FEMPL+1, FEMPL+11, MEMPL+2, MEMPL+12
^AUTTTRI - [#9999999.03] TRBCHK+1, TRBCHK+5, OTHER+4, OTHERT+6
^AUTTTRI("B" TRBCHK+1, TRBCHK+5
^DD( DRAW+14
^DPT - [#2] FATHER+10, FATHER+13, MOTHER+9, MOTHER+12
^UTILITY("DIQ1" DRAW+8!

Label References

Name Line Occurrences
@( VAR+15, VAR+24
DIE FCPH+3, FEML+3, FAPH+3, MCPH+3, MEML+3, MAPH+3
DRAW VAR+2
EMPL EMPLR+16, SPSEMP+9, FEMPL+11, MEMPL+12
END VAR+13
OTHER DRAW+48
READ VAR+8, ELIG+7
TRBCHK DRAW+45
VAR VAR+9, VAR+11, VAR+14, VAR+17, VAR+22, VAR+26

Naked Globals

Name Field # of Occurrence
^(0 EMPLR+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG END+1!, DRAW+16*, DRAW+31, DRAW+42, DRAW+46, DRAW+48, DRAW+49
AG("E" VAR+23, DRAW+31*
AG("ED" VAR+11, VAR+15, READ+1!, READ+17*, READ+18, READ+21!, READ+23, READ+24, READ+25*, READ+26*
, READ+27*, READ+28*, READ+29*, READ+30*, READ+31*
AG("ER" VAR+4!, VAR+7!, VAR+8, VAR+11
AG("ERR" VAR+14, READ+1!, READ+22*
AG("N" VAR+8, VAR+17, DRAW+4*, DRAW+16
AG("PG" DRAW+3*, DRAW+53
AG("SEL" VAR+23*, VAR+24
AG("SVELIG" AGED2+13*, AGED2+14*
>> AGEL("EMP" EMPLR+15*, EMST+7!, EMPL+2, SPSEMP+8*, SPSEMP+10!, FEMPL+10*, FEMPL+12!, MEMPL+11*, MEMPL+13!
>> AGEL("ONUM" EMPLR+1*, EMPLR+16, EMST+8!, SPSEMP+1*, SPSEMP+9, SPSEMP+11!, FEMPL+1*, FEMPL+11, FEMPL+13!, MEMPL+2*
, MEMPL+12, MEMPL+14!
AGI VAR+23*, END+1!
AGIO END+1!
>> AGLINE("-" DRAW+48, DRAW+49, DRAW+51
>> AGLINE("EQ" VAR+3
>> AGOPT("ESCAPE" VAR+9, VAR+10
>> AGOPT(14 AGED2+13, VAR+8, ELIG+1, DRAW+9, TRBCHK+7
>> AGOPT(8 OTHERT+1
AGRES TRBCHK+9!, TRBCHK+14!
AGRES( TRBCHK+13
AGSCRN END+1!, DRAW+13*, DRAW+17~, DRAW+18*, DRAW+19, DRAW+20, DRAW+21, DRAW+22, DRAW+23, DRAW+24
>> AGSELECT DRAW+54
>> AGWM VAR+8*
>> AGXTERN VAR+15, END+3
AGY VAR+18*, VAR+20*, VAR+22, VAR+23, END+1!
>> CALLS DRAW+2*, DRAW+31
CLLST AGED2+12~, END+1!, DRAW+1*, DRAW+31*, DRAW+32
CLLST( VAR+24, DRAW+31*
CLM DRAW+17~, DRAW+21*, DRAW+27, DRAW+28
>> D1 OTHER+1*, OTHER+3*, OTHER+4, OTHER+5, OTHERT+3*, OTHERT+4*, OTHERT+5, OTHERT+7
DA END+1!, DRAW+6*, EMPLR+8*, EMST+3*, EMPL+2*, SPSEMP+5*, FEMPL+7*, MEMPL+8*, OTHERT+13*, FATHER+4*
, MOTHER+3*, DIE+1~, DIE+3*
>> DFN AGED2+14, VAR+25, DRAW+6, DRAW+15, DRAW+39, DRAW+43, DRAW+44, DRAW+46, DRAW+54, READ+16
, TRBCHK+13, EMPLR+6, EMPLR+8, EMPLR+10, EMPLR+14, EMPLR+15, EMST+3, SPSEMP+5, SPSEMP+7, SPSEMP+8
, FEMPL+4, FEMPL+5, FEMPL+7, FEMPL+9, FEMPL+10, MEMPL+5, MEMPL+6, MEMPL+8, MEMPL+10, MEMPL+11
, OTHER+3, OTHER+4, OTHER+5, OTHERT+4, OTHERT+5, OTHERT+7, OTHERT+13, OTHERT+15, OTHERT+16, FATHER+4
, FATHER+10, FATHER+11, FATHER+12, FATHER+13, MOTHER+3, MOTHER+9, MOTHER+10, MOTHER+11, MOTHER+12, DIE+3
DFOUT VAR+11, VAR+16, END+1!, READ+1!, READ+10*
DIC DRAW+11*, DRAW+14, DRAW+15, DRAW+17~, DRAW+22*, DRAW+39, DRAW+44, TRBCHK+10, TRBCHK+12*, TRBCHK+13
, EMPLR+3!, EMPLR+13!, EMST+6!, SPSEMP+12!, FEMPL+14!, MEMPL+1!, MEMPL+15!, OTHERT+10!, OTHERT+17!, FATHER+9!
, FATHER+19!, MOTHER+18!
DIE EMPLR+3!, EMPLR+4*, EMPLR+13!, EMST+2*, EMST+6!, EMPL+1*, SPSEMP+3*, SPSEMP+12!, FEMPL+3*, FEMPL+14!
, MEMPL+1!, MEMPL+4*, MEMPL+15!, OTHERT+10!, OTHERT+11*, OTHERT+17!, FATHER+2!, FATHER+3*, FATHER+9!, FATHER+14*
, FATHER+19!, MOTHER+1!, MOTHER+2*, MOTHER+13*, MOTHER+18!, DIE+1~, DIE+2*
DIE("NO^" EMPLR+6*
>> DIQ TRBCHK+11*
>> DIQ(0 TRBCHK+11*
DIR VAR+8!, EMPLR+3!
DIR("?" READ+2*, READ+3*, READ+4*, READ+5*, READ+6*
DIR("A" VAR+8*
DIR(0 READ+7*
DIROUT END+4, READ+1!
DLOUT VAR+11, VAR+13, END+1!, READ+1!, READ+11*
DQOUT VAR+17, END+1!, READ+1!, READ+13*
DR DRAW+12*, DRAW+14, DRAW+15, DRAW+17~, DRAW+23*, DRAW+39, DRAW+44, TRBCHK+8*, TRBCHK+13, EMPLR+3!
, EMPLR+6*, EMPLR+7*, EMPLR+11*, EMPLR+13!, EMST+4*, EMST+6!, EMPL+4*, SPSEMP+4*, SPSEMP+12!, FEMPL+4*
, FEMPL+5*, FEMPL+6*, FEMPL+14!, MEMPL+1!, MEMPL+5*, MEMPL+6*, MEMPL+7*, MEMPL+15!, OTHERT+10!, OTHERT+12*
, OTHERT+17!, FATHER+6*, FATHER+9!, FATHER+16*, FATHER+19!, MOTHER+5*, MOTHER+15*, MOTHER+18!, FCPH+1~, FCPH+2*
, FEML+1~, FEML+2*, FAPH+1~, FAPH+2*, MCPH+1~, MCPH+2*, MEML+1~, MEML+2*, MAPH+1~, MAPH+2*
DTOUT VAR+16, END+1!, READ+1!, READ+9
DUOUT VAR+11, VAR+13, END+5, READ+1!, READ+12*, FATHER+1!, FATHER+8*, FATHER+9!, FATHER+18*, MOTHER+1!
, MOTHER+7*, MOTHER+8!, MOTHER+17*, DIE+1~
DUZ(2 VAR+25, DRAW+54, OTHERT+15
LBL DRAW+17~, DRAW+19*, DRAW+35
LEN DRAW+17~, DRAW+20*, DRAW+35
MYERRS DRAW+52!, DRAW+53, DRAW+55
MYERRS("C" VAR+9
MYVARS DRAW+52!, DRAW+55
MYVARS("DFN" DRAW+54*
MYVARS("FINDCALL" DRAW+54*
MYVARS("SELECTION" DRAW+54*
MYVARS("SITE" DRAW+54*
>> OQUAN OTHERT+7*, OTHERT+8
>> OTRIBE OTHERT+6*, OTHERT+8
QUAN END+1!, OTHER+2*, OTHER+5*, OTHER+7
ROUTID END+2!, DRAW+5*
TEMPDIC TRBCHK+10*, TRBCHK+12, TRBCHK+14!
TRIBE END+1!, OTHER+2*, OTHER+4*, OTHER+6
>> TRIPTR OTHERT+5*, OTHERT+6
U AGED2+14, DRAW+14, DRAW+19, DRAW+20, DRAW+21, DRAW+22, DRAW+23, DRAW+24, DRAW+43, READ+16
, TRBCHK+1, TRBCHK+5, EMPLR+1, EMPLR+6, EMPLR+10, EMPLR+14, EMPLR+15, EMPLR+16, SPSEMP+1, SPSEMP+7
, SPSEMP+8, SPSEMP+9, FEMPL+1, FEMPL+5, FEMPL+9, FEMPL+10, FEMPL+11, MEMPL+2, MEMPL+6, MEMPL+10
, MEMPL+11, MEMPL+12, OTHER+4, OTHER+5, OTHERT+5, OTHERT+6, OTHERT+7, FATHER+10, FATHER+11, FATHER+12
, FATHER+13, MOTHER+9, MOTHER+10, MOTHER+11, MOTHER+12
VALUE DRAW+17~, DRAW+39*, DRAW+40*, DRAW+41
VLEN DRAW+17~, DRAW+24*, DRAW+40
Y VAR+9, VAR+10, VAR+11, VAR+13, VAR+17, VAR+18, VAR+20, END+1!, DRAW+44*, READ+10
, READ+11, READ+12*, READ+13*, READ+14, READ+15*, READ+16, READ+17, TRBCHK+1, TRBCHK+5, FATHER+8
, FATHER+18, MOTHER+7, MOTHER+17

Marked Items

Name Field # of Occurrence
$T( DRAW+5
$T(@1+AG DRAW+18
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 |  Marked Items |  All