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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Text Integration Utility 11 INHERIT^TIUFLD  DSETSHAR^TIUFLD1  $$DDEFUSED^TIUFLF  ($$BADNAP,$$HASITEMS)^TIUFLF1  ($$PERSOWNS,$$SELNAME)^TIUFLF2  ASKSTAT^TIUFLF6  ($$DUPITEM,EDTYPE,TYPELIST)^TIUFLF7  EDOWN^TIUFLF8  
$$WARNOBJ^TIUFLJ  PAUSE^TIUFXHLX  DIRECT^TIUMAP2  
VA FileMan 2 ^DIE  ^DIR  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Text Integration Utility 14 TIUFA1  TIUFC  TIUFC1  TIUFD  TIUFD2  TIUFD3  TIUFHA3  TIUFHA4  
TIUFHA8  TIUFLF1  TIUFLF7  TIUFLLM  TIUFT  TIUFX  

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.

External References

Name Field # of Occurrence
^DIE NAME+7, ABBREV1PRINTN1NATL+6, SHARE+17, OKDISTSUPVISIT+4, SUPVISIT+6
^DIR NATL+5, SHARE+16, WARNSUP+4
INHERIT^TIUFLD SUPVISIT+3
DSETSHAR^TIUFLD1 SHARE+18
$$DDEFUSED^TIUFLF ASKFLDS+13
$$BADNAP^TIUFLF1 NAME+6
$$HASITEMS^TIUFLF1 SHARE+18
$$PERSOWNS^TIUFLF2 SHARE+4
$$SELNAME^TIUFLF2 NAME
ASKSTAT^TIUFLF6 STATUS+4
$$DUPITEM^TIUFLF7 NAME+1
EDTYPE^TIUFLF7 TYPE
TYPELIST^TIUFLF7 NAME+2
EDOWN^TIUFLF8 OWNER
$$WARNOBJ^TIUFLJ ASKFLDS+18, ABBREV+1, PRINTN+1
PAUSE^TIUFXHLX NAME+3
DIRECT^TIUMAP2 LOINC+3
FULL^VALM1 ASKFLDS+16

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
Routine Call
  • DIE
  • Line Location:
    • NAME+7
    • ABBREV1
    • PRINTN1
    • NATL+6
    • SHARE+17
    • OKDIST
    • SUPVISIT+4
    • SUPVISIT+6
Routine Call
  • DIR
  • Line Location:
    • NATL+5
    • SHARE+16
    • WARNSUP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] BADNAP+10, BADNAP+16, BADNAP+17, HASITEMS+1, ASKFLDS+12, NAME+7, ABBREV1PRINTN1LOINC+3, NATL
SHARE+9, SHARE+10, SHARE+11, SHARE+13, SUPVISIT+1, SUPVISIT+5

Label References

Name Line Occurrences
$$WARNSUP SUPVISIT+5
ABBREV ASKFLDS+17, ASKFLDS+18
ASKFX ASKFLDS+18, NAMENAME+2, NAME+3, NAME+8, ABBREV+1, ABBREV1+1, PRINTN+1, PRINTN1+1, LOINC+4
NATLTYPESHARE+13, OWNEROKDISTSUPVISITSTATUSSTATUS+1, STATUS+2, STATUS+3
BADNX BADNAP+9, BADNAP+14
LOINC PRINTNPRINTN+1
NAME NAME+1, NAME+4, NAME+5, NAME+6
NATL LOINC
OWNER SHARESHARE+2, SHARE+3, SHARE+4, SHARE+10, SHARE+18
PRINTN ABBREVABBREV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS ASKFLDS+9~, NATL+6*, SHARE+17*, SHARE+18
CONTINUE ASKFLDS+10~, ASKFLDS+18*, ABBREV+1*, PRINTN+1*, SUPVISIT+5*, SUPVISIT+6
DA ASKFLDS+9~, ASKFLDS+14*
DEFLT ASKFLDS+10~, NAME*
DIE ASKFLDS+9~, ASKFLDS+14*
DIR ASKFLDS+9~, SHARE+1~, WARNSUP+1~
DIR("?" NATL+3*, SHARE+14*
DIR("??" NATL+3*, SHARE+14*
DIR("A" NATL+4*, SHARE+15*, WARNSUP+2*, WARNSUP+3*
DIR("B" NATL+1*, SHARE+7*, SHARE+10*, SHARE+11*, SHARE+13, WARNSUP+2*
DIR(0 NATL+3*, SHARE+14*, WARNSUP+2*
DIRUT ASKFLDS+15!, ASKFLDS+18, NAME!, NAME+8, ABBREV+1, ABBREV1+1, PRINTN+1, PRINTN1+1, LOINC+4, TYPE!
DR ASKFLDS+9~, NAME+7*, ABBREV1*, PRINTN1*, LOINC+3*, NATL+6*, SHARE+17*, OKDIST*, SUPVISIT+4*, SUPVISIT+6*
>> DTOUT NAME+2, NAME+8, ABBREV1+1, PRINTN1+1, LOINC+4, NATL+5, SHARE+16, OKDISTSUPVISIT+4, ASKFX
>> DUOUT NAME+8*, ABBREV1+1*, PRINTN1+1*, LOINC+4*, NATL+5, SHARE+16, OKDIST*, SUPVISITSUPVISIT+4*, ASKFX
DUZ SHARE+4
FIELDS ASKFLDS~, ASKFLDS+17, ABBREVPRINTNLOINCNATLTYPESHAREOWNEROKDIST
SUPVISITSTATUS
FILEDA BADNAP~, BADNAP+10, BADNAP+17, HASITEMS~, HASITEMS+1, ASKFLDS~, ASKFLDS+12, ASKFLDS+13, ASKFLDS+14, ASKFLDS+18
NAME+1, NAME+2, NAME+6, NAME+7, ABBREV+1, ABBREV1PRINTN+1, PRINTN1LOINC+3, NATL
TYPESHARE+4, SHARE+9, SHARE+13, SHARE+18, OWNERSUPVISIT+1, SUPVISIT+3, SUPVISIT+5, STATUS+4
ITEMIFN ASKFLDS+9~
NAME ASKFLDS+9~, NAME*, NAME+1, NAME+2, NAME+6
NAP BADNAP~, BADNAP+9, BADNAP+16
NAPANS BADNAP+8~, BADNAP+9*, BADNAP+15, BADNAP+16, BADNAP+17*, BADNX
NEWSFLG ASKFLDS~, ASKFLDS+12*, STATUS+4
NODE0 BADNAP+12, ASKFLDS+9~, ASKFLDS+12*, ASKFLDS+13, ASKFLDS+18, NAMENAME+5, NAME+6, NAME+7*, ABBREV+1
, ABBREV1*, PRINTN+1, PRINTN1*, LOINCLOINC+3*, NATL*, NATL+1, TYPESHARE+3, SHARE+5
SHARE+13*, SUPVISITSTATUS+1, STATUS+2, STATUS+3, STATUS+4
OBJFLG BADNAP~, BADNAP+10*, BADNAP+11*, BADNAP+12*, BADNAP+13*, BADNAP+14
OFILEDA BADNAP+8~, BADNAP+16*, BADNAP+17
PARENT1 SHARE+1~, SHARE+9*, SHARE+10, SHARE+11
PARENT2 SHARE+1~, SHARE+9*, SHARE+10, SHARE+19
PFDA ASKFLDS+9~
PFILEDA ASKFLDS~, ASKFLDS+15*, NAME+1, NAME+2, TYPESTATUS+4
SHARE SHARE+1~, SHARE+5*, SHARE+7, SHARE+10, SHARE+11, SHARE+18, SHARE+19
SIGNERS ASKFLDS+10~
STATUS SHARE+1~
SUPVISIT ASKFLDS+11~, SUPVISIT+1*, SUPVISIT+2*, SUPVISIT+3*, SUPVISIT+5
SUPVISIT("E" SUPVISIT+3
>> TIUFFULL ASKFLDS+16*
TIUFIMSG ASKFLDS+10~
TIUFQUIT ASKFLDS+10~, ASKFLDS+14*
>> TIUFSTMP STATUS+2
TIUFTLST ASKFLDS+10~, NAME+2, NAME+4, NAME+5
>> TIUFTMPL BADNAP+11, STATUS+2
TIUFTMSG ASKFLDS+10~, NAME+2
TIUFTMSG("T" NAME+3
TIUFUPP PRINTN1~
>> TIUFWHO NATLSHARE+2, OKDIST
>> TIUFXNOD BADNAP+12, STATUS+1, STATUS+3
TIUFY ASKFLDS+10~
TIUOUT LOINC+1~*, LOINC+4
TYPEDR ASKFLDS+9~
U BADNAP+12, ASKFLDS+13, ASKFLDS+18, NAMENAME+5, NAME+6, ABBREV+1, PRINTN+1, LOINCNATL+1
SHARE+3, SHARE+5, SHARE+10, SHARE+11, SUPVISITSUPVISIT+1, SUPVISIT+5, STATUS+1, STATUS+2, STATUS+3
USED ASKFLDS+9~, ASKFLDS+13*, TYPE
X ASKFLDS+9~, WARNSUP+1~
XFLG ASKFLDS~, ASKFLDS+12*, NATLNATL+5*, TYPESHARE+13, SHARE+16*, OWNERSTATUS+4, ASKFX*
XREF BADNAP+8~, BADNAP+15*, BADNAP+16
Y ASKFLDS+9~, NAME+8, ABBREV1+1, PRINTN1+1, NATL+6, SHARE+12~, SHARE+17, OKDISTSUPVISIT+4, WARNSUP+1~
, WARNSUP+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All