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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGED3

Package: IHS Patient Registration

Routine: AGED3


Information

AGED3 ; IHS/ASDS/EFG - EDIT PG 3 - EMERGENCY CONTACT/NEXT OF KIN ;

Source Information

Source file <AGED3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient Registration 5 (,UPDATE1)^AGED  READ^AGED1  ^AGED2  ^AGED4A  (EDITCHEK,FETCHERR)^AGEDERR  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGED2  AGED4A  

Entry Points

Name Comments DBIA/ICR reference
VAR
1 ;
DRAW ;EP
END

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+19
READ^AGED1 VAR+9
^AGED2 END+4
^AGED4A END+4
EDITCHEK^AGEDERR DRAW+18
FETCHERR^AGEDERR DRAW+16
$$GET1^DIQ DRAW+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+1
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: VAR+10
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: !,"--- Emergency Contact Data "
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: !,"--- Next of Kin Data "
  • Line Location: DRAW+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DRAW+11
Function Call: WRITE
  • Prompt: !,AG,".",?(29-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : "
  • Line Location: DRAW+12
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,DFN,DR)
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DRAW+12
^UTILITY("DIQ1" DRAW+5!

Label References

Name Line Occurrences
@( VAR+12, VAR+18
DRAW VAR
END VAR+13
VAR VAR+10, VAR+13, VAR+15, VAR+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A DRAW+6*, DRAW+11*
AG END!, DRAW+7*, DRAW+11, DRAW+12
AG("C" VAR+16*, VAR+18
AG("ED" VAR+12
AG("ERR" VAR+13
AG("N" AGED3+3*, VAR+3, VAR+15, VAR+18
AG("PG" DRAW+1*, DRAW+16
AG("SEL" VAR+18*
AGI VAR+18*, VAR+20!
>> AGLINE("-" DRAW+14
>> AGLINE("EQ" VAR+1
>> AGOPT("ESCAPE" VAR+10, VAR+11
AGSCRN END!, DRAW+8*, DRAW+9, DRAW+10
>> AGSELECT DRAW+17
>> AGXTERN VAR+12, END+2
AGY VAR+17*, VAR+18, VAR+20!
DA END!, DRAW+3*
>> DFN VAR+19, DRAW+3, DRAW+13, DRAW+17
DFOUT VAR+14, END!
DIC END!, DRAW+9*, DRAW+12, DRAW+13
DIR VAR+2!
DIR("?" VAR+4*, VAR+5*, VAR+6*, VAR+7*, VAR+8*
DIR("A" VAR+3*
>> DIROUT END+3
DLOUT VAR+13, END!
DQOUT VAR+15, END!
DR END!, DRAW+10*, DRAW+12, DRAW+13
DTOUT VAR+14, END!
>> DUOUT VAR+13, END+4
DUZ(2 VAR+19, DRAW+17
MYERRS DRAW+15!, DRAW+16, DRAW+18
MYERRS("C" VAR+10
MYVARS DRAW+15!, DRAW+18
MYVARS("DFN" DRAW+17*
MYVARS("FINDCALL" DRAW+17*
MYVARS("SELECTION" DRAW+17*
MYVARS("SITE" DRAW+17*
ROUTID END+1!, DRAW+2*
U DRAW+9, DRAW+10, DRAW+12
Y VAR+10, VAR+11, VAR+13, VAR+15, VAR+17, END!

Marked Items

Name Field # of Occurrence
$T( DRAW+2
$T(@1+AG DRAW+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All