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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: TIUWRII1

Package: Text Integration Utility

Routine: TIUWRII1


Information

TIUWRII1 ;SLC/AJB,AGP - War Related Illness and Injury Study Center ; 08/18/03

Source Information

Source file <TIUWRII1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  UPDATE^DIE  ^DIK  ^DIR  
Kernel 1 $$PATCH^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ;
GETCLASS ;
GETLAB ;
DATA ;
MKOBJ(NAME,METHOD) ;
CHKTITLE(FILE,NAME) ;
DELOBJS ;
MKOBJS ;

External References

Name Field # of Occurrence
^DIC CHKTITLE+4, GETCLASS+4, GETLAB+4
UPDATE^DIE EN+19, EN+27, MKOBJ+9
^DIK DELOBJS+6
^DIR EN+36
$$PATCH^XPDUTL EN+4, EN+8, EN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $G(IOCUON),@IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Installation Error: Invalid Selection.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Enter EN^TIUWRII1 at the programmer prompt to re-build note title and objects.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Installation Error: WRIISC Assessment Note already exists.",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Installation Error: Class owner cannot be defined.",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: MSG("DIERR",1,"TEXT",MSG),!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"Creation of WRIISC ASSESSMENT NOTE title successful...",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!!
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: MSG("DIERR",1,"TEXT",MSG),!
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,"Addition of "_$P(^TIU(8925.1,TIUPRNT,0),U)_" as parent successful...",!
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !,"Update finished."
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !
  • Line Location: GETLAB+4
Function Call: WRITE
  • Prompt: !!,"Installation Error: TIU Object "_NAME_" already exists."
  • Line Location: MKOBJS+5
Function Call: WRITE
  • Prompt: !!,"TIU Object creation failed. The following error message was returned:",!!
  • Line Location: MKOBJ+11
Function Call: WRITE
  • Prompt: MSG("DIERR",1,"TEXT",MSG),!
  • Line Location: MKOBJ+12
Function Call: WRITE
  • Prompt: !!,"Creation of TIU Object "_NAME_" successful..."
  • Line Location: MKOBJ+13
Routine Call
  • DIE
  • Line Location:
    • EN+19
    • EN+27
    • MKOBJ+9
Routine Call
  • DIC
  • Line Location:
    • CHKTITLE+4
    • GETCLASS+4
    • GETLAB+4
Routine Call
  • DIR
  • Line Location:
    • EN+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CHKTITLE EN+4, EN+8, EN+9, EN+11, EN+15, MKOBJS+5, MKOBJ+5
$$MKOBJ MKOBJS+17
DELOBJS EN+10, EN+20
GETCLASS EN+5
GETLAB MKOBJS+11
MKOBJS EN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DELOBJS+1~, DELOBJS+4*, DELOBJS+6
DIC CHKTITLE+1~, CHKTITLE+2*, GETCLASS+1~, GETCLASS+3*, GETLAB+1~, GETLAB+3*
DIC("A" GETCLASS+2*, GETLAB+2*
DIC("S" GETCLASS+3*
DIC(0 CHKTITLE+2*, GETCLASS+3*, GETLAB+3*
DIK DELOBJS+1~, DELOBJS+5*
DIR EN+34~
DIR(0 EN+35*
DUOUT EN+4, MKOBJS+7~, MKOBJS+11
FDA EN+2~, MKOBJ+1~
FDA( EN+12*, EN+13*, EN+14*, EN+15*, EN+16*, EN+17*, EN+18*, EN+25*, EN+26*, MKOBJ+2*
, MKOBJ+3*, MKOBJ+4*, MKOBJ+5*, MKOBJ+6*, MKOBJ+7*, MKOBJ+8*
FDAIEN EN+2~, MKOBJ+1~
FDAIEN(1 EN+24, EN+25
FILE CHKTITLE~, CHKTITLE+2
FLAG MKOBJS+7~*, MKOBJS+9*, MKOBJS+12
>> IOCUON EN+1
IOF EN+1
LABIEN GETLAB+5*, MKOBJS+1~, MKOBJS+10*, MKOBJS+11, MKOBJS+12
LABNAME GETLAB+2, GETLAB+5*, MKOBJS+1~, MKOBJS+8*, MKOBJS+9, MKOBJS+12
LINE MKOBJS+1~, MKOBJS+2*, DELOBJS+1~, DELOBJS+2*
LINETXT MKOBJS+1~, MKOBJS+2*, MKOBJS+3, MKOBJS+8, DELOBJS+1~, DELOBJS+2*, DELOBJS+3
METHOD MKOBJS+1~, MKOBJS+3*, MKOBJS+4*, MKOBJS+6, MKOBJS+12*, MKOBJS+13, MKOBJS+17, MKOBJ~, MKOBJ+7
MSG EN+2~, EN+20, EN+22*, EN+28, EN+30*, MKOBJ+1~, MKOBJ+10, MKOBJ+12*
MSG("DIERR" EN+22, EN+30, MKOBJ+12
NAME CHKTITLE~, CHKTITLE+3, MKOBJS+1~, MKOBJS+3*, MKOBJS+5, MKOBJS+14, MKOBJS+17, MKOBJS+18, MKOBJ~, MKOBJ+2
, MKOBJ+3, MKOBJ+13, DELOBJS+1~, DELOBJS+3*, DELOBJS+4
POP EN+2~
TIUABORT EN+2~, EN+10, MKOBJS+2, MKOBJS+13*
TIUDA EN+2~, EN+24*
TIUFPRIV EN+2~, EN+3*
TIUPRNT EN+2~, EN+3*, EN+4, EN+6, EN+7, EN+25, EN+26, EN+31, GETCLASS+5*
U EN+31, GETLAB+5
X EN+34~, CHKTITLE+1~, CHKTITLE+3*, GETCLASS+1~, GETLAB+1~, DELOBJS+1~
Y EN+34~, CHKTITLE+1~, CHKTITLE+5, GETCLASS+1~, GETCLASS+5, GETLAB+1~, GETLAB+5, DELOBJS+1~

Marked Items

Name Field # of Occurrence
$T(DATA+LINE MKOBJS+2, DELOBJS+2
Info |  Source |  Call 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