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

Package: IHS Patient Registration

Routine: AGED11


Information

AGED11 ; IHS/ASDS/EFG - EDIT - PAGE 8 (ADDITIONAL REGISTRATION INFO) ;

Source Information

Source file <AGED11.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Patient Registration 5 (,UPDATE1)^AGED  READ^AGED1  ^AGED11A  ADD^AGED13  VERIF^AGUTILS  
VA Fileman 5 ^%DT  ^DIE  ^DIR  ^DIWP  ^DIWW  
Kernel 1 $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Patient Registration 4 AGED10  AGED11A  AGED8  AGED9  

Entry Points

Name Comments DBIA/ICR reference
FORK ;EP - WHICH TO DO ADD OR EDIT
DRAW ;EP - PRINT ADDITIONAL INFO LINE BY LINE. WITH WRAP FORMATTING
REVEDIT ;
HDR ;EP
ADDNEW(FIRSTLIN) ;EP - ADD ADDITIONAL REGISTRATION INFORMATION
DRAWLINE ;EP - PRINT ADDITIONAL INFO LINE BY LINE. NO FORMATTING
EDIT ;
ADD ;EP - Add a Patient.
VAR ;EP
END

External References

Name Field # of Occurrence
^%DT ADDNEW+8
^AGED DRAWLINE+2, HDR+3
UPDATE1^AGED REVEDIT+5, ADDNEW+20
READ^AGED1 VAR+15
^AGED11A VAR+19
ADD^AGED13 ADD+2
VERIF^AGUTILS DRAW+14, DRAWLINE+8
^DIE REVEDIT+3, ADDNEW+2
^DIR DRAW+11
^DIWP DRAW+10
^DIWW DRAW+12
$$CJ^XLFSTR DRAWLINE+3, HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: VAR+10
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM)
  • Line Location: DRAWLINE+3
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: DRAWLINE+4
Function Call: WRITE
  • Prompt: ^(I,0),!
  • Line Location: DRAWLINE+6
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: DRAWLINE+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: AGLINE("-")
  • Line Location: HDR+5
Routine Call
  • DIE
  • Line Location:
    • REVEDIT+3
    • ADDNEW+2
Routine Call
  • DIR
  • Line Location:
    • DRAW+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] VAR+11, DRAW+8, DRAW+9, DRAWLINE+5, DRAWLINE+6, EDIT+3, EDIT+4!, EDIT+12, EDIT+13, EDIT+17!
, EDIT+18*, ADDNEW+5, ADDNEW+11, ADDNEW+14*, ADDNEW+15, ADDNEW+18*, ADDNEW+19*
^DD("DD" ADDNEW+9
^UTILITY($J DRAW+2!
^VA(200 - [#200] ADDNEW+7

Label References

Name Line Occurrences
@( VAR+23
ADDNEW EDIT+5
DRAWLINE VAR+2
END AGED11+4, VAR+21
FORK VAR+22, ADD+1
HDR DRAW+1, DRAW+11
REVEDIT FORK+10
VAR VAR+20, VAR+22, VAR+24

Naked Globals

Name Field # of Occurrence
^( DRAWLINE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END+2!, ADDNEW+8*
AD0 AGED11+3~, DRAW+7*, DRAW+8*, DRAW+9, END+2!
AG END!
AG("ED" VAR+23
AG("ERR" VAR+20
AG("PG" DRAWLINE+1*, HDR+1*
AGADINFO EDIT+2!, EDIT+3*, EDIT+18, END+1!
AGADINFO( EDIT+14*
AGADINFO("" EDIT+7
AGADINFO(0 EDIT+8, EDIT+9, EDIT+15*, EDIT+16*
>> AGINITIL ADDNEW+7*, ADDNEW+16
>> AGLINE("-" DRAW+13, DRAWLINE+4, DRAWLINE+7, HDR+5
>> AGOPT(9 AGED11+4, ADD+1
>> AGSEENLY VAR+3
>> AGXTERN VAR+17, VAR+18, VAR+23
DA REVEDIT+1!, REVEDIT+2*, REVEDIT+4!, END!, ADDNEW+2*
>> DFN VAR+11, DRAW+8, DRAW+9, DRAWLINE+5, DRAWLINE+6, REVEDIT+2, REVEDIT+5, EDIT+3, EDIT+4, EDIT+12
, EDIT+13, EDIT+17, EDIT+18, ADDNEW+2, ADDNEW+5, ADDNEW+11, ADDNEW+14, ADDNEW+15, ADDNEW+18, ADDNEW+19
, ADDNEW+20
DFOUT VAR+16, END!
DIC REVEDIT+1!, REVEDIT+4!
DIE REVEDIT+1!, REVEDIT+2*, REVEDIT+4!, ADDNEW+2*
DIR VAR+4!, DRAW+11!, REVEDIT+1!, REVEDIT+4!
DIR("?" VAR+5*, VAR+6*, VAR+7*, VAR+8*, VAR+9*
DIR("A" VAR+12*, VAR+13*
DIR("B" VAR+14*
DIR(0 DRAW+11*
DIWF DRAW+5*, END+2!
DIWL DRAW+3*, END+2!
DIWR DRAW+4*, END+2!
DLOUT VAR+21, END!
DQOUT END!
DR REVEDIT+2*, END!, ADDNEW+2*
DTOUT VAR+16, END!
>> DUOUT VAR+17
DUZ ADDNEW+7
DUZ(2 REVEDIT+5, ADDNEW+20
EDITDATE END+2!, ADDNEW+10*, ADDNEW+13
FIRSTLIN ADDNEW~, ADDNEW+11, ADDNEW+14
>> I DRAWLINE+6*
IOM DRAWLINE+3, HDR+4
LASTASS EDIT+8*, END+1!
LASTLINE EDIT+1~, EDIT+7*, EDIT+10, END+1!, ADDNEW+1~
LASTTOT EDIT+9*, END+1!
LINE EDIT+13*, EDIT+14, END+2!, ADDNEW+11*, ADDNEW+13*, ADDNEW+14, ADDNEW+15*, ADDNEW+16*, ADDNEW+18
NEWLINE EDIT+10*, EDIT+12, END+1!
NEWLINES END+2!, ADDNEW+5*, ADDNEW+6, ADDNEW+15, ADDNEW+18, ADDNEW+19
NEWREC EDIT+11*, EDIT+12*, EDIT+13, END+1!
RECORD EDIT+12*, EDIT+14, EDIT+15, END+1!
ROUTID END+2!, HDR+2*
>> STOP DRAW+6*, DRAW+8, DRAW+11*
U DRAW+11, EDIT+8, EDIT+9, EDIT+15, EDIT+16, ADDNEW+5, ADDNEW+7, ADDNEW+19
X DRAW+9*, DRAW+11, END+2!, ADDNEW+8*
Y VAR+18, VAR+19, VAR+22, END+1!, ADDNEW+10

Marked Items

Name Field # of Occurrence
$T( HDR+2
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