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

Package: IHS Patient Registration

Routine: AGED1


Information

AGED1 ; IHS/ASDS/EFG - EDIT PG 1 - ELIG/IDENTIFIERS ; MAR 19, 2010

Source Information

Source file <AGED1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Patient Registration 7 ASKADD^AG3A  CALCELIG^AGBIC2  (,UPDATE1)^AGED  ^AGED2  (EDITCHEK,FETCHERR)^AGEDERR  EN^AGSECCHK  ($$DTEST,UPDTEMAL)^AGUTILS  
VA Fileman 5 FILE^DICN  (,FILE)^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
IHS Patient Registration 39 AG0  AG3  AG3A  AGADDREG  AGBICEDZ  AGED10  AGED11  AGED11A  
AGED12  AGED13  AGED2  AGED3  AGED4  AGED42  AGED4B  AGED5  
AGED6  AGED62  AGED7B  AGED8  AGED9  AGEDBEA  AGEDBEB  AGEDBEC  
AGEDBED  AGEDBEE  AGEDBEF  AGEDBEG  AGEDBEH  AGEDBEI  AGEDGUAR  AGEDIT  
AGEDMCD  AGEDPRVB  AGEDTPL  AGEDWC  AGEL0  AGLKIN  AGSEE7  

Entry Points

Name Comments DBIA/ICR reference
LOC ;GET LOCATION OF HOME FROM PATIENT FILE
C ;EP - Edit multiple fields on a Reg edit page.
END ;
EDEMAIL ;EP - EDIT CURRENT EMAIL ADDRESS
WEB ;EP - INTERNET ACCESS QUESTION
VAR2 ;
READ ;EP
DRAW ;DRAW PAGE 1
EC ;
1 ;
QUES ;EP
CKELIG ;EP
ADDR2 ;GET ADDRESS LINE 2 FROM VA PATIENT FILE
ESSNA
ADDR3 ;GET ADDRESS LINE 3 FROM VA PATIENT FILE
VAR ;EP
MSTAT ;GET MARITAL STATUS FROM VA PATIENT FILE
MSGPH ;GET MESSAGE PHONE FROM PATIENT FILE
SSNA ;Ver=add ask if patient has verified SSN

External References

Name Field # of Occurrence
ASKADD^AG3A ESSNA+10
CALCELIG^AGBIC2 CKELIG+3
^AGED DRAW+5
UPDATE1^AGED C+3
^AGED2 END+4
EDITCHEK^AGEDERR DRAW+79
FETCHERR^AGEDERR DRAW+77
EN^AGSECCHK DRAW+38
$$DTEST^AGUTILS VAR+8
UPDTEMAL^AGUTILS EDEMAIL+19
FILE^DICN WEB+12
^DIE SSNA+14, MSTAT+5, ADDR2+6, ADDR3+6, LOC+5, MSGPH+5, WEB+25, WEB+40, EDEMAIL+8
FILE^DIE WEB+34
$$GET1^DIQ ADDR2+1, ADDR2+9, ADDR3+1, ADDR3+9, WEB+23, EDEMAIL+3, EDEMAIL+10, EDEMAIL+11, DRAW+40, DRAW+41
, DRAW+42
EN^DIQ1 DRAW+33, DRAW+50, DRAW+57
^DIR SSNA+7, READ+3, EDEMAIL+16
$$UP^XLFSTR READ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?36,$$DTEST^AGUTILS(DFN)
  • Line Location: VAR+8
Function Call: WRITE
  • Prompt: !!,*7
  • Line Location: SSNA+2
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: ESSNA+9
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: ESSNA+15
Function Call: WRITE
  • Prompt: *7,!!,"Eligibility Status must be entered."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: *7,!!,"Use only pages 1 through 10."
  • Line Location: READ+15
Function Call: WRITE
  • Prompt: *7,!!,"Eligibility Status must be entered."
  • Line Location: READ+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDEMAIL+1
Function Call: WRITE
  • Prompt: !!,"Adding to PREVIOUS EMAIL FIELD...."
  • Line Location: EDEMAIL+18
Function Call: WRITE
  • Prompt: !!,"To change an item, enter a number from 1 to ",AG("N")
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: ". (Press RETURN for ""NO-CHANGE"".)"
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: *7,!,"This patient's Eligibility has been changed to "
  • Line Location: CKELIG+4
Function Call: WRITE
  • Prompt: $P(AG("NARR1"),":",2)
  • Line Location: CKELIG+5
Function Call: WRITE
  • Prompt: ?1,AG,".",?(27-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : "
  • Line Location: DRAW+12
Function Call: WRITE
  • Prompt: ?45,AG,".",$P(AGSCRN,U)," : "
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: " ",AG,".",$P(AGSCRN,U)," : "
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: " ",AG,".",$P(AGSCRN,U)," : "
  • Line Location: DRAW+15
Function Call: WRITE
  • Prompt: ?54,AG,". ZIP CODE : "
  • Line Location: DRAW+16
Function Call: WRITE
  • Prompt: ?($S($D(DPTFLAG):58,1:56)),AG,".ZIP",$S($D(DPTFLAG):"+4",1:" CODE")," : "
  • Line Location: DRAW+17
Function Call: WRITE
  • Prompt: "LOCATION OF HOME CONTAINS DATA"
  • Line Location: DRAW+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DRAW+26
Function Call: WRITE
  • Prompt: ?30,AG("K")
  • Line Location: DRAW+27
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2,DFN_",",.09)
  • Line Location: DRAW+40
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9000001,DFN_",",1107.3)
  • Line Location: DRAW+41
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2,DFN_",",.09)
  • Line Location: DRAW+42
Function Call: WRITE
  • Prompt: $G(AGRES(DIC,DFN,DR,"E"))
  • Line Location: DRAW+43
Function Call: WRITE
  • Prompt: !?1,AG,"."
  • Line Location: DRAW+46
Function Call: WRITE
  • Prompt: ?15,"EMAIL ADDRESS: ",$$GET1^DIQ(9000001,DFN_",",1802)
  • Line Location: DRAW+46
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,$G(AGRES(DIC,DFN,DR,"I")),0)),U,2)
  • Line Location: DRAW+52
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,$G(AGRES(DIC,DFN,DR,"I")),0)),U,2)
  • Line Location: DRAW+59
Function Call: WRITE
  • Prompt: "Not Available"
  • Line Location: DRAW+65
Function Call: WRITE
  • Prompt: "Patient refused"
  • Line Location: DRAW+66
Function Call: WRITE
  • Prompt: "Patient will submit"
  • Line Location: DRAW+67
Function Call: WRITE
  • Prompt: "Reason for no SSN not yet entered"
  • Line Location: DRAW+68
Function Call: WRITE
  • Prompt: "(",$P($G(^(0)),U,2),")"
  • Line Location: DRAW+69
Function Call: WRITE
  • Prompt: "(Not yet verified by the SSA)"
  • Line Location: DRAW+70
Function Call: WRITE
  • Prompt: !
  • Line Location: DRAW+71
Function Call: WRITE
  • Prompt: AGLINE("-"),!
  • Line Location: DRAW+73
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+75
Routine Call
  • DIE
  • Line Location:
    • SSNA+14
    • MSTAT+5
    • ADDR2+6
    • ADDR3+6
    • LOC+5
    • MSGPH+5
    • WEB+25
    • WEB+40
    • EDEMAIL+8
Routine Call
  • DIE
  • Line Location:
    • WEB+34
Routine Call
  • DIR
  • Line Location:
    • SSNA+7
    • READ+3
    • EDEMAIL+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls,  GET1^DIQ
9000001.81 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] AGED1+7, VAR+5, VAR+7, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+4, WEB+11*
, WEB+17*, WEB+29, WEB+32, CKELIG+1, CKELIG+2, DRAW+19, DRAW+22, DRAW+64, DRAW+69, DRAW+70
^AUTTSSN - [#9999999.78] SSNA+1, DRAW+69
^DD( DRAW+12
^DIC(5 - [#5] DRAW+52, DRAW+59
^DPT - [#2] VAR+1, VAR+4, DRAW+63, DRAW+70
^UTILITY("DIQ1" DRAW+6!

Label References

Name Line Occurrences
@( ESSNA+13, C+2
C ESSNA+22
CKELIG ESSNA+1
DRAW VAR2+1, ESSNA
END ESSNA+14
READ ESSNA+8, QUES+3
VAR ESSNA+9, ESSNA+14, ESSNA+15, ESSNA+23, END+3

Naked Globals

Name Field # of Occurrence
^(0 VAR+7, SSNA+1, DRAW+69
^(11 CKELIG+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG END+1!, DRAW+8*, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+17, DRAW+19, DRAW+30, DRAW+47
, DRAW+54, DRAW+62, DRAW+71, DRAW+72
AG("AUPN" VAR+6*, VAR+7*
AG("C" ESSNA+21*, C+2
AG("ED" ESSNA+13, READ+1!, READ+13*, READ+14, READ+17!, READ+19, READ+20, READ+21*, READ+22*, READ+23*
, READ+24*, READ+25*, READ+26*, READ+27*
AG("ERR" ESSNA+14, READ+1!, READ+18*
AG("K" DRAW+24*, DRAW+27, DRAW+29!
AG("N" ESSNA+8, ESSNA+15, C+2, QUES+1, DRAW+2*, DRAW+8, DRAW+74*
AG("NARR1" CKELIG+5
AG("PG" VAR+2*, DRAW+1*, DRAW+77
AG("SEL" C+2*
AG("SVELIG" AGED1+6*, AGED1+7*, CKELIG+1, CKELIG+2*
AG("Y" DRAW+23*, DRAW+25, DRAW+29!
>> AGCHRT VAR+5*
AGI C+2*, C+4!
>> AGLINE("-" VAR+9*, DRAW+73, DRAW+75
>> AGLINE("EQ" VAR+10*
>> AGLINE("PGLN" VAR+11*, VAR2+2
>> AGOPT("ESCAPE" ESSNA+9, ESSNA+11
>> AGOPT(14 AGED1+6, ESSNA+1
>> AGPAT VAR+4*
AGRES DRAW+31!, DRAW+45!, DRAW+48!, DRAW+53!, DRAW+55!, DRAW+60!
AGRES( DRAW+43, DRAW+52, DRAW+59
AGSCRN END+1!, DRAW+9*, DRAW+10, DRAW+11, DRAW+13, DRAW+14, DRAW+15
>> AGSEENLY VAR2+2, VAR2+3, ESSNA+22, DRAW+20, DRAW+21
>> AGSSNCHK DRAW+64*, DRAW+65, DRAW+66, DRAW+67, DRAW+68
AGVAR WEB+30~
AGVAR( WEB+31*, WEB+33*
>> AGXTERN ESSNA+13, END+2
AGY C+1*, C+2, C+4!
DA SSNA+12*, END+1!, MSTAT+3*, ADDR2+4*, ADDR3+4*, LOC+3*, MSGPH+3*, WEB+1~, WEB+13!, WEB+19~
, WEB+20*, WEB+26!, WEB+36~, WEB+37*, EDEMAIL+4!, EDEMAIL+6*, DRAW+3*
DA(1 WEB+7*, WEB+21*, WEB+22, WEB+37*, WEB+38
DD WEB+12!
>> DEF WEB+23*, WEB+24
>> DFN AGED1+7, VAR+1, VAR+4, VAR+5, VAR+7, VAR+8, SSNA+1, SSNA+12, ESSNA+15, END+3
, READ+12, READ+28, C+3, MSTAT+3, ADDR2+1, ADDR2+4, ADDR2+9, ADDR3+1, ADDR3+4, ADDR3+9
, LOC+3, MSGPH+3, WEB+4, WEB+7, WEB+11, WEB+17, WEB+21, WEB+23, WEB+29, WEB+31
, WEB+32, WEB+33, WEB+37, EDEMAIL+3, EDEMAIL+6, EDEMAIL+10, EDEMAIL+11, EDEMAIL+19, CKELIG+1, CKELIG+2
, DRAW+3, DRAW+19, DRAW+22, DRAW+40, DRAW+41, DRAW+42, DRAW+43, DRAW+52, DRAW+59, DRAW+63
, DRAW+64, DRAW+69, DRAW+70, DRAW+78
DFOUT ESSNA+12, END+1!, READ+1!, READ+5*
DIC END+1!, MSGPH+7!, WEB+1~, WEB+7*, WEB+13!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, DRAW+10*
, DRAW+12, DRAW+32, DRAW+34*, DRAW+39, DRAW+43, DRAW+49, DRAW+51*, DRAW+52, DRAW+56, DRAW+58*
, DRAW+59
DIC("A" MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("B" MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("P" WEB+10*
DIC("S" MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("W" MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC(0 WEB+8*
DIE SSNA+11*, MSTAT+2*, ADDR2+3*, ADDR3+3*, LOC+2*, MSGPH+2*, WEB+19~, WEB+22*, WEB+26!, WEB+36~
, WEB+38*, EDEMAIL+4!, EDEMAIL+5*
>> DIQ DRAW+33*, DRAW+50*, DRAW+57*
>> DIQ(0 DRAW+33*, DRAW+50*, DRAW+57*
DIR SSNA+3!, SSNA+8!, ESSNA+2!, END+1!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, EDEMAIL+12!
DIR("?" ESSNA+3*, ESSNA+4*, ESSNA+5*, ESSNA+6*, ESSNA+7*
DIR("A" SSNA+5*, ESSNA+8*, EDEMAIL+14*
DIR("B" SSNA+6*, EDEMAIL+15*
DIR(0 SSNA+4*, READ+2*, EDEMAIL+13*
DIROUT READ+1!
>> DLAYGO WEB+10*
DLOUT ESSNA+14, END+1!, READ+1!, READ+6*
DO WEB+12!
>> DPTFLAG DRAW+17
DQOUT ESSNA+15, END+1!, READ+1!, READ+8*
DR SSNA+10!, SSNA+13*, SSNA+15!, END+1!, MSTAT+4*, ADDR2+5*, ADDR3+5*, LOC+4*, MSGPH+4*, WEB+19~
, WEB+24*, WEB+26!, WEB+36~, WEB+39*, EDEMAIL+4!, EDEMAIL+7*, DRAW+11*, DRAW+12, DRAW+17*, DRAW+39
, DRAW+43, DRAW+52, DRAW+59
DT WEB+9
DTOUT ESSNA+12, END+1!, READ+1!, READ+4, EDEMAIL+17
DUOUT ESSNA+12, END+1!, READ+1!, READ+7*, MSTAT+1!, MSTAT+6*, ADDR2+2!, ADDR2+7*, ADDR3+2!, ADDR3+7*
, LOC+1!, LOC+6*, MSGPH+1!, MSGPH+6*, EDEMAIL+17
DUZ(2 VAR+5, C+3, DRAW+78
ERROR WEB+30~
HIT DRAW+37~, DRAW+38, DRAW+40
HOME DRAW+22*, DRAW+23, DRAW+24, DRAW+25*, DRAW+29!
LNCNT DRAW+23*, DRAW+26, DRAW+28*, DRAW+29!
MYERRS DRAW+76!, DRAW+77, DRAW+79
MYERRS("C" ESSNA+9
MYVARS DRAW+76!, DRAW+79
MYVARS("DFN" DRAW+78*
MYVARS("FINDCALL" DRAW+78*
MYVARS("SITE" DRAW+78*
NEWADDR2 AGED1+8~, ADDR2+9*
NEWADDR3 AGED1+8~, ADDR3+9*
NEWCITY AGED1+8~
NEWHPH AGED1+9~
NEWST AGED1+8~
NEWSTATE AGED1+9~
NEWZIP AGED1+9~
NIEN WEB+1~, WEB+20*, WEB+23, WEB+29, WEB+31, WEB+32, WEB+33, WEB+37
OIEN WEB+1~, WEB+4*, WEB+17
OLDADDR2 AGED1+8~, ADDR2+1*
OLDADDR3 AGED1+8~, ADDR3+1*
OLDCITY AGED1+8~
OLDEMAIL EDEMAIL+2~, EDEMAIL+3*, EDEMAIL+11
OLDHPH AGED1+9~
OLDST AGED1+8~
OLDSTATE AGED1+8~
OLDZIP AGED1+9~
ROUTID VAR+3*, END+1!, DRAW+4*
TEMPDIC DRAW+32*, DRAW+34, DRAW+45!, DRAW+49*, DRAW+51, DRAW+53!, DRAW+56*, DRAW+58, DRAW+60!
TEMPY AGED1+9~, ESSNA+10*!
U AGED1+7, VAR+4, VAR+5, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+29, CKELIG+1
, CKELIG+2, DRAW+10, DRAW+11, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+22, DRAW+52, DRAW+59
, DRAW+63, DRAW+64, DRAW+69, DRAW+70
WIEN WEB+30~, WEB+32*, WEB+33
X READ+9*, WEB+1~, WEB+9*, WEB+13!
Y SSNA+9, ESSNA+9, ESSNA+10*, ESSNA+11, ESSNA+14, ESSNA+15, END+1!, READ+5, READ+6, READ+7*
, READ+8*, READ+9*, READ+10, READ+11*, READ+12, READ+13, READ+28, C+1, MSTAT+6, ADDR2+7
, ADDR3+7, LOC+6, MSGPH+6, WEB+1~, WEB+14, WEB+17, WEB+20, EDEMAIL+9, EDEMAIL+17

Marked Items

Name Field # of Occurrence
$T( VAR+3, DRAW+4
$T(@1+AG DRAW+9
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