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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: TIUEN169

Package: Text Integration Utility

Routine: TIUEN169


Information

TIUEN169 ; SLC/MAM - Environment Check Rtn for TIU*1*169 ; 7/28/2004

Source Information

Source file <TIUEN169.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Text Integration Utility 2 $$ISA^TIULX  $$READ^TIUU  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUPS169  

Entry Points

Name Comments DBIA/ICR reference
NAME ; Names of DDEFS in order from 1 to 58
LISTDUPS(TIUDUPS,INDCFLG) ; List duplicates by name
; TIUDUPS = array as set in TIUDUPS. Required.
; INDCFLG = 1: List dups in designated DC for skipping over
; INDCFLG '= 1: List dups not in designated DC - Quit
TIUDUPS(TIUDUPS,TIUDCDA) ; Set array TIUDUPS of potential duplicate DDEFS
; TIUDCDA = IEN of designated DC or 0 if none desig.
; Checks for Titles;
; If no DC designated, checks for DC too.
DESGNATE() ; Get Designated DC to create C&P titles under
; Returns:
; -1 - timeout, ^, lookup failed
; 0 - none designated; create new DC
; DCIFN^DCNAME in 8925.1 - designated DC
SETBASIC ; Set up basic data in ^TMP("TIU169",$J,"BASICS")
MAIN ; Check environment. If problems found, warn but do not abort install.
; -- Check if done:

External References

Name Field # of Occurrence
^DIC DESGNATE+13
$$ISA^TIULX TIUDUPS+18
$$READ^TIUU DESGNATE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"All Document Definitions for C&P Worksheets have already been",!," created. You won't need to rerun the option."
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !,"I can't find User Class CLINICAL COORDINATOR. You won't be able to run",!,"the option that creates the Document Definitions without this class. See",!,"patch description.",!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !,"Remember to run option TIU169 DDEFS, C&P WORKSHEETS",!,"after installing the patch."
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"You already have the Document Class exported by this patch, C&P EXAMINATION"
  • Line Location: LISTDUPS+6
Function Call: WRITE
  • Prompt: !,"REPORTS. Please designate it or change its name (and print name)."
  • Line Location: LISTDUPS+7
Function Call: WRITE
  • Prompt: !!,"You already have the following DDEFS exported by this patch. I cannot create"
  • Line Location: LISTDUPS+10
Function Call: WRITE
  • Prompt: !,"duplicates. Please change their names so they no longer match exported DDEFS,"
  • Line Location: LISTDUPS+11
Function Call: WRITE
  • Prompt: !,"or if you are not using them, delete them. If you change the name of a DDEF"
  • Line Location: LISTDUPS+12
Function Call: WRITE
  • Prompt: !,"you plan to continue using, remember to update its Print Name as well."
  • Line Location: LISTDUPS+13
Function Call: WRITE
  • Prompt: !,"For help, contact Enterprise VistA Support."
  • Line Location: LISTDUPS+14
Function Call: WRITE
  • Prompt: !!,"You may not run this option until these matches are eliminated."
  • Line Location: LISTDUPS+15
Function Call: WRITE
  • Prompt: !!,"Your designated C&P Document Class already has matching Titles:"
  • Line Location: LISTDUPS+18
Function Call: WRITE
  • Prompt: !," "_^TMP("TIU169",$J,"BASICS",NUM,"NAME")
  • Line Location: LISTDUPS+22
Function Call: WRITE
  • Prompt: !,"... and more; ",TIUDUPS(SUBSCPT)," in all."
  • Line Location: LISTDUPS+23
Function Call: WRITE
  • Prompt: !,"I can create a new C&P Document Class or you can designate an existing one."
  • Line Location: DESGNATE+6
Function Call: WRITE
  • Prompt: !,"If you designate an existing one, I will change its name to C&P EXAMINATION REPORTS. I will create the new C&P Titles under it, skipping any you already have."
  • Line Location: DESGNATE+7
Routine Call
  • DIC
  • Line Location:
    • DESGNATE+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] TIUDUPS+16, TIUDUPS+17
^TMP("TIU169" SETBASIC+7*, SETBASIC+8*, SETBASIC+9*, TIUDUPS+14, TIUDUPS+15, LISTDUPS+22
^USR(8930 - [#8930] MAIN+3
^XTMP("TIU169" MAIN+2, TIUDUPS+6, TIUDUPS+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DESDC TIUDUPS+19
DIC DESGNATE+11~, DESGNATE+12*
DIC("S" DESGNATE+12*
DIC(0 DESGNATE+12*
DIROUT DESGNATE+5~
DIRUT DESGNATE+5~, DESGNATE+9
DTOUT DESGNATE+5~, DESGNATE+11~
DUOUT DESGNATE+5~, DESGNATE+11~
INDCFLG LISTDUPS~, LISTDUPS+5, LISTDUPS+8, LISTDUPS+16
NAME TIUDUPS+13~, TIUDUPS+14*, TIUDUPS+16
NUM TIUDUPS+4~, TIUDUPS+7*, TIUDUPS+10, TIUDUPS+14, TIUDUPS+15, TIUDUPS+18, TIUDUPS+19, LISTDUPS+4~, LISTDUPS+20*, LISTDUPS+21*
, LISTDUPS+22
NUMBER SETBASIC+1~, SETBASIC+8*, SETBASIC+9*
SUBSCPT LISTDUPS+4~, LISTDUPS+9*, LISTDUPS+17*, LISTDUPS+19, LISTDUPS+21, LISTDUPS+23
TIUCNT LISTDUPS+4~, LISTDUPS+21*
TIUDA TIUDUPS+13~*, TIUDUPS+16*, TIUDUPS+17, TIUDUPS+18, TIUDUPS+19
TIUDCDA TIUDUPS~, TIUDUPS+18
TIUDUPS TIUDUPS~, LISTDUPS~
TIUDUPS( LISTDUPS+21, LISTDUPS+23
TIUDUPS("INDC" TIUDUPS+5*, TIUDUPS+18*, LISTDUPS+16
TIUDUPS("NOTINDC" TIUDUPS+5*, TIUDUPS+19*, LISTDUPS+5, LISTDUPS+8
TIUY DESGNATE+5~, DESGNATE+8*, DESGNATE+10
TYPE TIUDUPS+13~, TIUDUPS+15*, TIUDUPS+17
U TIUDUPS+17
Y DESGNATE+11~, DESGNATE+14

Marked Items

Name Field # of Occurrence
$T(NAME+NUMBER SETBASIC+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  Marked Items |  All