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

Package: IHS Patient Registration

Routine: AGED8


Information

AGED8 ; IHS/ASDS/EFG - EDIT DEATH INFO/OTHER NAMES ;

Source Information

Source file <AGED8.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Patient Registration 6 (,UPDATE1)^AGED  READ^AGED1  ^AGED11  ^AGED13  $$DECEASED^AGEDERR2  $$AGE^AGUTILS  
VA Fileman 4 DD^%DT  ^DIE  $$GET1^DIQ  EN^DIQ1  
Immunization Tracking 1 AUTOADD^BIPATE  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AGED10  AGED13  AGED9  

Entry Points

Name Comments DBIA/ICR reference
C ;EP - Edit multiple fields on a Reg edit page.
END
CC
CERT ;EP (string in AGED8).
1 ;
DATE ;EP (string in AGED8).
STATE ;EP (string in AGED8).
VAR
DRAW ;EP
LEGNAM ;

External References

Name Field # of Occurrence
DD^%DT DRAW+18
^AGED DRAW+3
UPDATE1^AGED C+2
READ^AGED1 VAR+12
^AGED11 END+6
^AGED13 VAR+15, END+5
$$DECEASED^AGEDERR2 DATE+4
$$AGE^AGUTILS DATE+4
AUTOADD^BIPATE DATE+4
^DIE DATE+1, STATE+1, CERT+1
$$GET1^DIQ DRAW+14
EN^DIQ1 DRAW+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"Enter ""4"" to edit OTHER NAMES or ""5"" to edit LEGAL NAMES."
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+3
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: VAR+17
Function Call: WRITE
  • Prompt: !,"CHANGED TO"
  • Line Location: LEGNAM+6
Function Call: WRITE
  • Prompt: ?32,"BY"
  • Line Location: LEGNAM+7
Function Call: WRITE
  • Prompt: ?38,"PROOF"
  • Line Location: LEGNAM+8
Function Call: WRITE
  • Prompt: ?54,"DOC. #"
  • Line Location: LEGNAM+9
Function Call: WRITE
  • Prompt: ?70,"DATE"
  • Line Location: LEGNAM+10
Function Call: WRITE
  • Prompt: !,"5. "
  • Line Location: LEGNAM+11
Function Call: WRITE
  • Prompt: ?4,$E(CHGTO,1,30)
  • Line Location: LEGNAM+20
Function Call: WRITE
  • Prompt: ?32,$P($G(^VA(200,USER,0)),U,2)
  • Line Location: LEGNAM+21
Function Call: WRITE
  • Prompt: ?38,$E(PROOF,1,15)
  • Line Location: LEGNAM+22
Function Call: WRITE
  • Prompt: ?54,$E(DOCNUM,1,15)
  • Line Location: LEGNAM+23
Function Call: WRITE
  • Prompt: ?70,$E(DTCHG,4,5)_"/"_$E(DTCHG,6,7)_"/"_($E(DTCHG,1,3)+1700),!
  • Line Location: LEGNAM+24
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN,DR)
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: ?45,"Edited by "_$P($G(^VA(200,$P($G(^DPT(DFN,.35)),U,2),0)),U,2)
  • Line Location: DRAW+17
Function Call: WRITE
  • Prompt: " on "_Y
  • Line Location: DRAW+19
Function Call: WRITE
  • Prompt: !,$E(AGLINE("-"),1,33)
  • Line Location: DRAW+20
Function Call: WRITE
  • Prompt: ?33," Other Names ",$E(AGLINE("-"),1,34)
  • Line Location: DRAW+20
Function Call: WRITE
  • Prompt: !,"4. "
  • Line Location: DRAW+21
Function Call: WRITE
  • Prompt: !,$E(AGLINE("-"),1,33)
  • Line Location: DRAW+34
Function Call: WRITE
  • Prompt: ?33," Legal Names ",$E(AGLINE("-"),1,34)
  • Line Location: DRAW+34
Routine Call
  • DIE
  • Line Location:
    • DATE+1
    • STATE+1
    • CERT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNELM - [#9000030] LEGNAM+19
^AUPNNAMC - [#9000033] LEGNAM+13
^AUPNNAMC("C" LEGNAM+3, LEGNAM+12
^AUPNPAT - [#9000001] DATE+2*, DRAW+18
^DD( DRAW+13
^DPT - [#2] DATE+2, DATE+4, DRAW+16, DRAW+17, DRAW+22, DRAW+28
^UTILITY("DIQ1" DRAW+4!
^VA(200 - [#200] LEGNAM+21, DRAW+17

Label References

Name Line Occurrences
@( VAR+15, C+1
DRAW VAR
END VAR+15
LEGNAM DRAW+35
VAR VAR+15, VAR+16, C+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A DATE+1!
AG END!, DRAW+5*, DRAW+13, DRAW+15
AG("C" CC*, C+1
AG("ED" VAR+15
AG("ERR" VAR+15
AG("N" AGED8+3*, VAR+11, VAR+16, C+1
AG("PG" DRAW+1*
AG("SEL" C+1*
>> AGERR DATE+4
AGI C+1*, C+2!
>> AGLINE("-" DRAW+20, DRAW+34
>> AGLINE("EQ" VAR+3
>> AGPATDFN DATE+4
AGRES DRAW+30!, DRAW+33!
AGRES( DRAW+32
AGSCRN END!, DRAW+5, DRAW+6*, DRAW+7, DRAW+8, DRAW+9, DRAW+10, DRAW+11, DRAW+12
>> AGSEENLY VAR+1, VAR+4, END+4
>> AGXTERN VAR+14, VAR+15, END+2
AGY C+1*, C+2!
>> CAPDENT DRAW+12*, DRAW+13
>> CAPTION DRAW+8*, DRAW+13
>> CHGTO LEGNAM+5*, LEGNAM+15*, LEGNAM+20
DA END!, DATE+1*, STATE+1*, CERT+1*, LEGNAM+1~, DRAW+26*
DA( DRAW+29*
>> DAIEN DRAW+27*, DRAW+28*, DRAW+29, DRAW+32
>> DFN C+2, DATE+1, DATE+2, DATE+4, STATE+1, CERT+1, LEGNAM+3, LEGNAM+12, DRAW+14, DRAW+16
, DRAW+17, DRAW+18, DRAW+22, DRAW+26, DRAW+28
DFOUT VAR+13, END!
DIC END!, LEGNAM+1~, DRAW+9*, DRAW+13, DRAW+14, DRAW+23*
DIE END!, DATE+1*, STATE+1*, CERT+1*
>> DIQ DRAW+31*
>> DIQ(0 DRAW+31*
DIR VAR+5!, LEGNAM+1~
DIR("?" VAR+6*, VAR+7*, VAR+8*, VAR+9*, VAR+10*
DIR("A" VAR+11*
>> DIROUT END+3
DLOUT VAR+15, END!
>> DOCNUM LEGNAM+17*, LEGNAM+23
DQOUT VAR+16, END!
DR END!, DATE+1*, STATE+1*, CERT+1*, DRAW+10*, DRAW+13, DRAW+14, DRAW+25*
DR( DRAW+24*
DT DATE+2
>> DTCHG LEGNAM+5*, LEGNAM+14*, LEGNAM+24
DTOUT VAR+13, END!, LEGNAM+2!
DUOUT VAR+14, VAR+15, END+5, LEGNAM+2!
DUZ(2 C+2, DATE+4
>> NEWLINE DRAW+11*, DRAW+13
>> PRFPTR LEGNAM+4*, LEGNAM+16*, LEGNAM+19, LEGNAM+22
>> PROOF LEGNAM+5*, LEGNAM+19*, LEGNAM+22
>> PTR LEGNAM+4*, LEGNAM+12*, LEGNAM+13
>> REC LEGNAM+4*, LEGNAM+13*, LEGNAM+14, LEGNAM+15, LEGNAM+16, LEGNAM+17, LEGNAM+18
ROUTID END+1!, DRAW+2*
TEMPDIC DRAW+33!
U DATE+2, DATE+4, LEGNAM+14, LEGNAM+15, LEGNAM+16, LEGNAM+17, LEGNAM+18, LEGNAM+19, LEGNAM+21, DRAW+8
, DRAW+9, DRAW+10, DRAW+11, DRAW+12, DRAW+13, DRAW+16, DRAW+17, DRAW+18
>> USER LEGNAM+18*, LEGNAM+21
X LEGNAM+1~
Y VAR+15, VAR+16, C+1, END!, LEGNAM+1~, DRAW+18*, DRAW+19

Marked Items

Name Field # of Occurrence
$T( DRAW+2
$T(@1+AG DRAW+6
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