Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Check environment. If problems found, warn but do not abort install.
; -- Check if done:
SETBASIC ; Set up basic data in ^TMP("TIU169",$J,"BASICS")
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.
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
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
NAME ; Names of DDEFS in order from 1 to 58

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
Info |  Source |  Entry Points |  Interaction Calls