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

Package: IHS Patient Registration

Routine: AGED10A


Information

AGED10A ; VNGT/HS/BEE - EDIT PG 10 - ETHNICITY/RACE/LANGUAGE/MIGRANT/HOMELESS/INTERNET/HOUSEHOLD INFO ; MAR 19, 2010

Source Information

Source file <AGED10A.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient Registration 6 (,UPDATE1)^AGED  $$CLANG^AGED10B  ^AGED11A  (EDITCHEK,FETCHERR)^AGEDERR  ($$PHRAP,$$PHRHP)^AGPHROPT  $$RACE^AGUTL  
VA Fileman 4 FILE^DICN  (,FILE)^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGED11A  AGEDERR2  

Entry Points

Name Comments DBIA/ICR reference
DRAW ;EP
PREF ; EP - Edit PREFERRED METHOD prompt
END ;
MTYPE(MIEN) ;EP - EDIT Migrant Worker Type prompt
HTYPE1 ;
READ ;EP
HOM ;EP - EDIT Homeless prompts
HOM1 ;
MIG ;EP - EDIT Migrant Worker prompts
CMIG(AGPATDFN) ;Return the patients most recent Migrant information
1 ;
MTYPE1 ;
MIG1 ;
KILL
PERM ; EP - Edit GENERIC HEALTH PERMISSION prompt
VAR
CHOM(AGPATDFN) ;Return the patients most recent Homeless information
HTYPE(HIEN) ;EP - EDIT Homeless Type prompt

External References

Name Field # of Occurrence
^AGED DRAW+13
UPDATE1^AGED VAR+41
$$CLANG^AGED10B DRAW+62, DRAW+69
^AGED11A END+2
EDITCHEK^AGEDERR DRAW+135
FETCHERR^AGEDERR DRAW+133
$$PHRAP^AGPHROPT DRAW+120
$$PHRHP^AGPHROPT DRAW+121
$$RACE^AGUTL DRAW+53
FILE^DICN MIG1+24, HOM1+24
^DIE MTYPE1+10, HTYPE1+9, PERM+6, PREF+8
FILE^DIE MIG1+28, HOM1+28
$$GET1^DIQ DRAW+46, DRAW+98, DRAW+102, DRAW+110, DRAW+113, DRAW+116, DRAW+126, DRAW+128, MTYPE1+5, MTYPE1+13
, CMIG+8, CMIG+9, CMIG+10, CMIG+11, HTYPE1+4, HTYPE1+12, CHOM+8, CHOM+9, CHOM+10, CHOM+11
^DIR READ+7, MIG1+10, HOM1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+13
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: VAR+20
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("E")
  • Line Location: VAR+35
Function Call: WRITE
  • Prompt: !!,"Invalid entry - Enter a line number or line numbers separated by a ',' to edit"
  • Line Location: VAR+38
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+24
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+25
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+26
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+27
Function Call: WRITE
  • Prompt: ?38,CLLST,". ",LBL,": "
  • Line Location: DRAW+36
Function Call: WRITE
  • Prompt: !,CLLST,". ",LBL,$E(DOTS,1,22-$L(LBL)),": "
  • Line Location: DRAW+37
Function Call: WRITE
  • Prompt: ?38,CLLST,". ",LBL,": "
  • Line Location: DRAW+39
Function Call: WRITE
  • Prompt: !,CLLST,". ",LBL,$S(AG=11:"",1:$E(DOTS,1,22-$L(LBL))),": "
  • Line Location: DRAW+40
Function Call: WRITE
  • Prompt: $E($G(ETHNIC),1,25)
  • Line Location: DRAW+47
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN,DR)
  • Line Location: DRAW+51
Function Call: WRITE
  • Prompt: $S(+RACE>1:"MORE THAN ONE RACE",1:$P(RACE,"^",2))
  • Line Location: DRAW+56
Function Call: WRITE
  • Prompt: $E($P($P(LNG,U,2),":",2),1,21)
  • Line Location: DRAW+63
Function Call: WRITE
  • Prompt: ?50,"Interpreter required? ",$P($P(LNG,U,3),":",2)
  • Line Location: DRAW+65
Function Call: WRITE
  • Prompt: !,?5,"Other languages spoken: ",$P(LNG,U,5)
  • Line Location: DRAW+66
Function Call: WRITE
  • Prompt: $P($P($$CLANG^AGED10B(AGPATDFN),U,4),":",2)
  • Line Location: DRAW+69
Function Call: WRITE
  • Prompt: $P($P(MIG,U,3),":",2)
  • Line Location: DRAW+75
Function Call: WRITE
  • Prompt: ?32,"Type: ",$E($P($P(MIG,U,4),":",2),1,23)
  • Line Location: DRAW+76
Function Call: WRITE
  • Prompt: ?63
  • Line Location: DRAW+77
Function Call: WRITE
  • Prompt: $J("(upd "_UPD_")",17)
  • Condition for execution: UPD]""
  • Line Location: DRAW+77
Function Call: WRITE
  • Prompt: $P($P(HOM,U,3),":",2)
  • Line Location: DRAW+83
Function Call: WRITE
  • Prompt: ?32,"Type: ",$E($P($P(HOM,U,4),":",2),1,23)
  • Line Location: DRAW+84
Function Call: WRITE
  • Prompt: ?63
  • Line Location: DRAW+85
Function Call: WRITE
  • Prompt: $J("(upd "_UPD_")",17)
  • Condition for execution: UPD]""
  • Line Location: DRAW+85
Function Call: WRITE
  • Prompt: ?25,ACCESS
  • Line Location: DRAW+105
Function Call: WRITE
  • Prompt: ?32,"Where: ",$E(WHERE,1,23)
  • Line Location: DRAW+106
Function Call: WRITE
  • Prompt: ?63
  • Line Location: DRAW+107
Function Call: WRITE
  • Prompt: $J("(upd "_LSTUPD_")",17)
  • Condition for execution: LSTUPD]""
  • Line Location: DRAW+107
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9000001,DFN_",",1802)
  • Line Location: DRAW+110
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9000001,DFN_",",4001)
  • Line Location: DRAW+113
Function Call: WRITE
  • Prompt: $$GET1^DIQ(9000001,DFN_",",4002)
  • Line Location: DRAW+116
Function Call: WRITE
  • Prompt: $$PHRAP^AGPHROPT(DFN)
  • Line Location: DRAW+120
Function Call: WRITE
  • Prompt: $$PHRHP^AGPHROPT(DFN)
  • Line Location: DRAW+121
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN_",",DR,"E")
  • Line Location: DRAW+125
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN_",",DR,"E")
  • Line Location: DRAW+126
Function Call: WRITE
  • Prompt: ?40,"/ ",$$GET1^DIQ(9000001,DFN_",",8701,"E")
  • Line Location: DRAW+127
Function Call: WRITE
  • Prompt: ?40,"/ ",$$GET1^DIQ(9000001,DFN_",",8701,"E")
  • Line Location: DRAW+128
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+130
Function Call: WRITE
  • Prompt: *7,!!,"Use only pages 1 through 10."
  • Line Location: READ+18
Function Call: WRITE
  • Prompt: "?? Required"
  • Line Location: MIG1+15
Function Call: WRITE
  • Prompt: "?? Required"
  • Line Location: MTYPE1+15
Function Call: WRITE
  • Prompt: "?? Required"
  • Line Location: HOM1+15
Function Call: WRITE
  • Prompt: "?? Required"
  • Line Location: HTYPE1+14
Routine Call
  • DIE
  • Line Location:
    • MTYPE1+10
    • HTYPE1+9
    • PERM+6
    • PREF+8
Routine Call
  • DIE
  • Line Location:
    • MIG1+28
    • HOM1+28
Routine Call
  • DIR
  • Line Location:
    • READ+7
    • MIG1+10
    • HOM1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.06 GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls,  GET1^DIQ
9000001.81 GET1^DIQ
9000001.811 GET1^DIQ
9000001.84 GET1^DIQ
9000001.85 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] DRAW+94, DRAW+96, DRAW+101, MIG1+23*, CMIG+5, CMIG+6, HOM1+23*, CHOM+5, CHOM+6
^DD("DD" DRAW+104, CMIG+7, CHOM+7
^DPT - [#2] DRAW+45

Label References

Name Line Occurrences
$$CHOM DRAW+82, HOM1+4
$$CMIG DRAW+74, MIG1+4
@( VAR+32, VAR+40
DRAW VAR+7
END VAR+23, VAR+26
HOM1 HOM1+31
HTYPE HOM1+34
HTYPE1 HTYPE1+13
KILL VAR+19, VAR+29, VAR+32, VAR+35, VAR+42, END+1, END+2, END+3
MIG1 MIG1+31
MTYPE MIG1+34
MTYPE1 MTYPE1+14
READ VAR+18
VAR VAR+19, VAR+29, VAR+35, VAR+38, VAR+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCESS DRAW+89~, DRAW+90*, DRAW+98*, DRAW+105
AG VAR~, KILL!, DRAW+15*, DRAW+24, DRAW+25, DRAW+27, DRAW+30, DRAW+31, DRAW+32, DRAW+34
, DRAW+39, DRAW+40, DRAW+44, DRAW+52, DRAW+60, DRAW+69, DRAW+72, DRAW+80, DRAW+88, DRAW+110
, DRAW+113, DRAW+116, DRAW+120, DRAW+121, DRAW+126, DRAW+128
AG("E" VAR+18, VAR+35, VAR+39, DRAW+8*, DRAW+9*, DRAW+10*
AG("ED" VAR+32*, READ+16*, READ+17, READ+20!, READ+22, READ+23, READ+24*, READ+25*, READ+26*, READ+27*
, READ+28*, READ+29*, READ+30*
AG("ER" VAR+15!
AG("ERR" VAR+29, READ+21*
AG("N" DRAW+6*, DRAW+15
AG("PG" DRAW+4*, DRAW+133
AG("SEL" VAR+39*, VAR+40
AGI VAR~, VAR+39*, KILL!
>> AGLINE("-" DRAW+24, DRAW+25, DRAW+27, DRAW+130
>> AGLINE("EQ" VAR+13
>> AGOPT("ESCAPE" VAR+19, VAR+23
>> AGOPT(22 DRAW+8, DRAW+27, DRAW+30, DRAW+126, DRAW+128
>> AGOPT(26 DRAW+9, DRAW+24, DRAW+31, DRAW+72
>> AGOPT(27 DRAW+10, DRAW+24, DRAW+32, DRAW+80
AGPATDFN DRAW+62, DRAW+69, DRAW+74, DRAW+82, MIG1+4, MIG1+19, MIG1+23, MIG1+25, MTYPE1+5, MTYPE1+7
, MTYPE1+13, CMIG~, CMIG+5, CMIG+6, CMIG+8, CMIG+9, CMIG+10, CMIG+11, HOM1+4, HOM1+19
, HOM1+23, HOM1+25, HTYPE1+4, HTYPE1+6, HTYPE1+12, CHOM~, CHOM+5, CHOM+6, CHOM+8, CHOM+9
, CHOM+10, CHOM+11
AGSCRN DRAW+17~, DRAW+18*, DRAW+19, DRAW+20, DRAW+21
>> AGSEENLY VAR+10
>> AGSELECT DRAW+134
>> AGXTERN VAR+32, END+1
AGY VAR~, VAR+36*, VAR+38, VAR+39, KILL!
AHOM HOM1+1~, HOM1+31!
AHOM( HOM1+26*, HOM1+27*
AMIG MIG1+1~, MIG1+31!
AMIG( MIG1+26*, MIG1+27*
CALLS DRAW+1~, DRAW+3*, DRAW+34
CHTYP HTYPE1+1~, HTYPE1+4*, HTYPE1+13!
CLLST VAR~, KILL!, DRAW+11*, DRAW+34*, DRAW+39, DRAW+40
CLLST( VAR+40, DRAW+34*
CMTYP MTYPE1+2~, MTYPE1+5*, MTYPE1+14!
DA MIG1+1~, MIG1+25*, MIG1+26, MIG1+27, MIG1+31!, MTYPE1+2~, MTYPE1+8*, MTYPE1+14!, HOM1+1~, HOM1+25*
, HOM1+26, HOM1+27, HOM1+31!, HTYPE1+1~, HTYPE1+7*, HTYPE1+13!, PERM+2~, PERM+4*, PREF+2~, PREF+4*
DA(1 MIG1+19*, MIG1+25*, MIG1+26, MIG1+27, HOM1+19*, HOM1+25*, HOM1+26, HOM1+27
DD MIG1+24!, HOM1+24!
DEF MIG1+1~, MIG1+4*, MIG1+5, MIG1+6*, MIG1+7, MIG1+16, MIG1+31*!, HOM1+4*, HOM1+5, HOM1+6*
, HOM1+7, HOM1+16, HOM1+31*
>> DFN VAR+41, DRAW+45, DRAW+46, DRAW+53, DRAW+94, DRAW+96, DRAW+98, DRAW+101, DRAW+102, DRAW+110
, DRAW+113, DRAW+116, DRAW+120, DRAW+121, DRAW+126, DRAW+128, DRAW+134, PERM+4, PREF+4
DFOUT VAR~, VAR+26, END+1, KILL!, READ+9*
DIC DRAW+17~, DRAW+20*, DRAW+126, MIG1+1~, MIG1+19*, MIG1+31!, HOM1+1~, HOM1+19*, HOM1+31!
DIC("P" MIG1+22*, HOM1+22*
DIC(0 MIG1+20*, HOM1+20*
DIE MTYPE1+2~, MTYPE1+7*, MTYPE1+14!, HTYPE1+1~, HTYPE1+6*, HTYPE1+13!, PERM+2~, PERM+3*, PREF+2~, PREF+3*
DIR VAR~, VAR+18!, KILL!, MIG1+1~, MIG1+31!, HOM1+1~, HOM1+31!
DIR("?" READ+1*, READ+2*, READ+3*, READ+4*, READ+5*
DIR("A" VAR+18*, MIG1+10*, HOM1+10*
DIR("B" MIG1+7*, HOM1+7*
DIR(0 READ+6*, MIG1+9*, HOM1+9*
DIROUT VAR~, VAR+23*, VAR+26, END+1, KILL!, MIG1+11, HOM1+11
DIRUT VAR~, KILL!
DLAYGO MIG1+1~, MIG1+22*, MIG1+31!, HOM1+1~, HOM1+22*, HOM1+31!
DLOUT VAR~, VAR+26, KILL!, READ+10*
DO MIG1+24!, HOM1+24!
DOTS VAR~, VAR+4*, KILL!, DRAW+40
DQOUT VAR~, VAR+35, KILL!, READ+12*
DR DRAW+17~, DRAW+21*, DRAW+126, MTYPE1+2~, MTYPE1+9*, MTYPE1+14!, HTYPE1+1~, HTYPE1+8*, HTYPE1+13!, PERM+2~
, PERM+5*, PREF+2~, PREF+7*
DT MIG1+21, HOM1+21
DTOUT VAR~, VAR+26, END+1, KILL!, READ+8, MIG1+11, MTYPE1+2~, MTYPE1+11, MTYPE1+14!, HOM1+11
, HTYPE1+1~, HTYPE1+10, HTYPE1+13!
DUOUT VAR~, VAR+26, END+2, KILL!, READ+11*, MIG1+11, HOM1+11
DUZ(2 VAR+41, DRAW+134
ERROR MIG1+1~, MIG1+31!, HOM1+1~, HOM1+31!
ETHNIC DRAW+45~*, DRAW+46*, DRAW+47
HDT CHOM+2~, CHOM+4*, CHOM+5*, CHOM+6, CHOM+7, CHOM+13
HDTX CHOM+2~, CHOM+4*, CHOM+7*, CHOM+13
HIEN HOM1+1~, HOM1+25*, HOM1+31!, HOM1+34, HTYPE~, HTYPE1+4, HTYPE1+7, HTYPE1+12, CHOM+2~, CHOM+4*
, CHOM+6*, CHOM+8, CHOM+9, CHOM+10, CHOM+11, CHOM+13
HOM DRAW+81~, DRAW+82*, DRAW+83, DRAW+84, DRAW+85, HOM1+1~, HOM1+12*, HOM1+16, HOM1+26, HOM1+27
, HOM1+31!, HOM1+34
HSTS CHOM+2~, CHOM+4*, CHOM+8*, CHOM+13
HSTSX CHOM+2~, CHOM+4*, CHOM+10*, CHOM+13
HTYP HOM1+1~, HOM1+5*, HOM1+27, HOM1+31!, HTYPE1+1~, HTYPE1+12*, HTYPE1+13!, CHOM+2~, CHOM+4*, CHOM+9*
, CHOM+13
HTYPX CHOM+2~, CHOM+4*, CHOM+11*, CHOM+13
LBL DRAW+17~, DRAW+19*, DRAW+39, DRAW+40
LNG DRAW+61~, DRAW+62*, DRAW+63, DRAW+65, DRAW+66
LSTREC DRAW+89~, DRAW+96*, DRAW+97, DRAW+98, DRAW+101, DRAW+102
LSTUPD DRAW+89~, DRAW+90*, DRAW+94*, DRAW+95, DRAW+96, DRAW+104*, DRAW+107
MDT CMIG+2~, CMIG+4*, CMIG+5*, CMIG+6, CMIG+7, CMIG+13
MDTX CMIG+2~, CMIG+4*, CMIG+7*, CMIG+13
MIEN MIG1+1~, MIG1+25*, MIG1+31!, MIG1+34, MTYPE~, MTYPE1+5, MTYPE1+8, MTYPE1+13, CMIG+2~, CMIG+4*
, CMIG+6*, CMIG+8, CMIG+9, CMIG+10, CMIG+11, CMIG+13
MIG DRAW+73~, DRAW+74*, DRAW+75, DRAW+76, DRAW+77, MIG1+1~, MIG1+12*, MIG1+16, MIG1+26, MIG1+27
, MIG1+31!, MIG1+34
MSTS CMIG+2~, CMIG+4*, CMIG+8*, CMIG+13
MSTSX CMIG+2~, CMIG+4*, CMIG+10*, CMIG+13
MTYP MIG1+1~, MIG1+5*, MIG1+27, MIG1+31!, MTYPE1+2~, MTYPE1+13*, MTYPE1+14!, CMIG+2~, CMIG+4*, CMIG+9*
, CMIG+13
MTYPX CMIG+2~, CMIG+4*, CMIG+11*, CMIG+13
MYERRS VAR~, KILL!, DRAW+133, DRAW+135
MYERRS("C" VAR+19
MYVARS VAR~, KILL!, DRAW+135
MYVARS("DFN" DRAW+134*
MYVARS("FINDCALL" DRAW+134*
MYVARS("SELECTION" DRAW+134*
MYVARS("SITE" DRAW+134*
OLNG DRAW+61~, DRAW+62
PAGE VAR+32~*!
RACE DRAW+53~*, DRAW+54, DRAW+56
ROUTID VAR~, VAR+3*, KILL!
U DRAW+19, DRAW+20, DRAW+21, DRAW+63, DRAW+65, DRAW+66, DRAW+69, DRAW+75, DRAW+76, DRAW+77
, DRAW+83, DRAW+84, DRAW+85, MIG1+5, MIG1+6, CMIG+13, HOM1+5, HOM1+6, CHOM+13
UPD DRAW+73~, DRAW+77*, DRAW+81~, DRAW+85*
WHERE DRAW+89~, DRAW+90*, DRAW+101*, DRAW+102*, DRAW+106
WIEN DRAW+89~, DRAW+101*, DRAW+102
X MIG1+1~, MIG1+21*, MIG1+31!, HOM1+1~, HOM1+21*, HOM1+31!
Y VAR~, VAR+19, VAR+23, VAR+26, VAR+35, VAR+36, KILL!, DRAW+89~, DRAW+104*, READ+9
, READ+10, READ+11*, READ+12*, READ+13, READ+14*, READ+15, READ+16, MIG1+1~, MIG1+12, MIG1+25
, MIG1+31!, MTYPE1+2~, MTYPE1+11, MTYPE1+14!, CMIG+2~, CMIG+7*, HOM1+1~, HOM1+12, HOM1+25, HOM1+31!
, HTYPE1+1~, HTYPE1+10, HTYPE1+13!, CHOM+2~, CHOM+7*

Marked Items

Name Field # of Occurrence
$T( VAR+3
$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 |  Local Variables |  Marked Items |  All