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

Package: Text Integration Utility

Routine: TIUFLF1


Information

TIUFLF1 ; SLC/MAM - Library; File 8925.1 Related: HASITEMS(FILEDA), ASKFLDS(FILEDA,FIELDS,PFILEDA,NEWSFLG,XFLG), BADNAP(NAP,FILEDA,OBJFLG) ; 03/16/2007

Source Information

Source file <TIUFLF1.m>

Entry Points

Name Comments DBIA/ICR reference
BADNAP(NAP,FILEDA,OBJFLG) ; Function returns 1 if NAP is ambiguous as a
BADNX
HASITEMS(FILEDA) ; Function returns 0 if FILEDA has no items, else returns 1.
ASKFLDS(FILEDA,FIELDS,PFILEDA,NEWSFLG,XFLG) ; Ask FIELDS (String subset of: ;.01;.02;.03;.04;.05;.06;.07;.1;.13;3.03) w ;'s on ends as well as between numbers for file entry FILEDA.
; Requires FILEDA, FIELDS.
; If field is determined, correct, and exists, module doesn't ask even if it is contained in FIELDS.
; Returns NEWSFLG=1 if ASKFIELDS has changed Status of FILEDA, else 0
; Returns XFLG=1 if user ^exited, else 0.
; Requires PFILEDA (= Actual/Anticipated parent) if FIELDS [ .04 Type
NAME
ABBREV
ABBREV1
PRINTN
PRINTN1
LOINC
NATL
TYPE
SHARE
OWNER
OKDIST
SUPVISIT
STATUS
ASKFX
WARNSUP() ; Function Warns user who asks to Suppress Visit, Returns 1 to Suppress, 0 to not Suppress.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please enter a different Name; Parent already has Item with that Name",!
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: !!,TIUFTMSG("T"),!,"Can't edit Entry",!
  • Line Location: NAME+3
Function Call: WRITE
  • Prompt: !!," Please enter a different Name; File already has entries of every permitted Type",!,"with that Name",!
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: !!,"Please enter a different Name; File already has entry of this Type",!,"with that Name",!
  • Line Location: NAME+5
Function Call: WRITE
  • Prompt: " ??",!,"Object Name must be unique among all object Names, Abbreviations,",!,"and Print Names."
  • Line Location: NAME+6
Function Call: WRITE
  • Prompt: !!,"EVERY Local Title must be mapped to a VHA Enterprise Standard Title.",!
  • Line Location: LOINC+2
Function Call: WRITE
  • Prompt: !!,"SHARED: Only an Owner can edit SHARED",!
  • Line Location: SHARE+4
Function Call: WRITE
  • Prompt: !!,"SHARED: Subcomponent of Shared Component; Must remain Shared",!
  • Line Location: SHARE+10
Function Call: WRITE
  • Prompt: !!,"SHARED: Entry is SHARED with multiple parents; Can't edit SHARED"
  • Line Location: SHARE+19
Function Call: WRITE
  • Prompt: " NOT"
  • Line Location: SUPVISIT+6
Function Call: WRITE
  • Prompt: " Suppressed"
  • Line Location: SUPVISIT+7
Function Call: WRITE
  • Prompt: !,"STATUS: Shared Components have no Status; Can't Edit Status"
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !,"STATUS: Orphans are Inactive; Can't Edit Status"
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"STATUS: Components get their Status from their Parent; Can't Edit Status"
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARNSUP+4
Function Call: WRITE
  • Prompt: " ... "
  • Line Location: WARNSUP+4
Info |  Source |  Entry Points |  Interaction Calls