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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: TIUDAEN

Package: Text Integration Utility

Routine: TIUDAEN


Information

TIUDAEN ; SLC/AJB - Disclosure of Adverse Event Note ; August 10, 2005

Source Information

Source file <TIUDAEN.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  UPDATE^DIE  ^DIR  
Text Integration Utility 1 $$READ^TIUU  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP(FILE,NAME,TYPE,SCREEN,PROMPT) ;
; file = file # to perform lookup on
; [name] = for instance lookups - required if type is missing
; [type] = for inquiries to file (eg: "AEQ") - required if name is missing
; [screen] = screen for lookup/inquiries
; [prompt] = replace default prompt
EN ;
BOILTXT ;
EXIT
REM ;
GETBOIL ;

External References

Name Field # of Occurrence
^DIC LOOKUP+10
UPDATE^DIE EN+23, EN+31, EN+40
^DIR EXIT+1
$$READ^TIUU EN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOCUON,@IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Installation Error: CLASS OWNER cannot be defined."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Installation Error: DISCLOSURE OF ADVERSE EVENT NOTE already exists."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Installation Aborted due to TIMEOUT."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Installation Aborted by USER."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Installation Error: Invalid Selection",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"A DOCUMENT CLASS must be entered or '^' to abort."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Creating DISCLOSURE OF ADVERSE EVENT NOTE title..."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: "DONE."
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"Adding "_$P(^TIU(8925.1,TIUPRNT,0),U)_" as parent..."
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: "DONE.",!
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,"Adding boilerplate text..."
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: EN+42
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: "DONE.",!
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !,"*** The DISCLOSURE OF ADVERSE EVENT NOTE ***"
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,"*** title must be activated before use. ***"
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • DIE
  • Line Location:
    • EN+23
    • EN+31
    • EN+40
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+10
Routine Call
  • DIR
  • Line Location:
    • EXIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EON" EN+1
^TIU(8925.1 - [#8925.1] EN+30, REM+3*

Label References

Name Line Occurrences
$$LOOKUP EN+3, EN+4, EN+6, EN+18, REM+2
EXIT EN+3, EN+4, EN+12, EN+24, EN+32, EN+41
GETBOIL EN+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC LOOKUP+7~*
DIC("A" LOOKUP+9*
DIC("S" LOOKUP+7*
DIC(0 LOOKUP+8*
DIR EXIT+1~
DIR(0 EXIT+1*
DTOUT EN+2~, EN+7
DUOUT EN+2~, EN+8
FILE LOOKUP~, LOOKUP+7
>> IOCUON EN+1
IOF EN+1
LINE GETBOIL+1~, GETBOIL+2*
LINETXT GETBOIL+1~, GETBOIL+2*
NAME LOOKUP~, LOOKUP+7
PROMPT LOOKUP~, LOOKUP+9
SCREEN LOOKUP~, LOOKUP+7
TIU EN+2~
TIU( EN+13*, EN+14*, EN+15*, EN+16*, EN+17*, EN+18*, EN+19*, EN+20*, EN+21*, EN+28*
, EN+29*, EN+38*
TIUFPRIV EN+2~*
TIUIEN EN+2~
TIUIEN( EN+37*
TIUIEN(1 EN+28, EN+37, EN+38
TIUMSG EN+2~, EN+24, EN+26*, EN+32, EN+34*, EN+41, EN+43*
TIUMSG("DIERR" EN+26, EN+34, EN+43
TIUPRNT EN+2~, EN+5, EN+6*, EN+9, EN+11*, EN+12, EN+28, EN+29, EN+30
TIUTMP EN+2~, REM+1~, REM+2*, REM+3
TIUTMP( GETBOIL+2*
TYPE LOOKUP~, LOOKUP+8
U EN+30, REM+3
X EXIT+1~, LOOKUP+7~*
>> XPDABORT EN+3*, EN+4*, EN+5, EN+7*, EN+8*, EN+24*, EN+32*, EN+41*
Y EXIT+1~, LOOKUP+7~, LOOKUP+11

Marked Items

Name Field # of Occurrence
$T(BOILTXT+LINE GETBOIL+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All