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

Package: Text Integration Utility

Routine: TIUFLF7


Information

TIUFLF7 ; SLC/MAM - Library; File 8925.1: POSSTYPE(PFILEDA),TYPELIST(NAME,FILEDA,PFILEDA,TYPEMSG,TYPELIST),EDTYPE(FILEDA,NODE0,PFILEDA,XFLG,USED),DUPNAME(NAME,FILEDA),DUPITEM(NAME,PFILEDA,FILEDA),DDEFIEN(TIUDEFNM,etc) ;5/2/05

Source Information

Source file <TIUFLF7.m>

Entry Points

Name Comments DBIA/ICR reference
POSSTYPE(PFILEDA) ; Function returns possible Types an Entry may have to
POSTX
TYPELIST(NAME,FILEDA,PFILEDA,TYPEMSG,TYPELIST) ; Module sets list of possible types, sets msg array TYPEMSG explaining nonparent limits on type.
; Requires NAME of entry being checked
; Requires PFILEDA=IFN of parent if entry has actual or prospective parent (as in Create, Add Items)
; Requires FILEDA if entry already exists in the file
; Optional TYPEMSG
; Optional TYPELIST: Returns TYPELIST = subset of CL,DC,DOC,CO,O
TYPEX
DUPNAME(NAME,FILEDA) ; Function returns 1 if NAME already
DUPITEM(NAME,PFILEDA,FILEDA) ; Function returns 1 if PFILEDA already has item
DUPIX
DUP(NAME,PFILEDA,FILEDA) ; Function returns 1 if PFILEDA already has item
DUPX
EDTYPE(FILEDA,NODE0,PFILEDA,XFLG,USED) ; User edit FILEDA Type.
; Requires FILEDA, NODE0.
; Requires PFILEDA if DA has an actual/prospective parent. Need PFILEDA
READTYP
EDTYX
DDEFIEN(TIUDEFNM,TIUTYPE) ; Function gets IEN (and more) of Doc Def

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," File entry "_PFILEDA_" does not exist in File; See IRM",!
  • Line Location: POSSTYPE+10
Function Call: WRITE
  • Prompt: !!,"TYPE: Object. Can't edit Type",!
  • Line Location: EDTYPE+10
Function Call: WRITE
  • Prompt: !!,"TYPE: Entry In Use by Documents; Can't edit Type",!
  • Line Location: EDTYPE+11
Function Call: WRITE
  • Prompt: !!,TIUFTMSG("T"),!,"Can't edit Type"
  • Line Location: EDTYPE+14
Function Call: WRITE
  • Prompt: !!,TIUFTMSG("R"),!,TIUFTMSG("R1"),!
  • Line Location: EDTYPE+15
Function Call: WRITE
  • Prompt: TIUFTMSG("O"),!
  • Line Location: EDTYPE+16
Function Call: WRITE
  • Prompt: !!,"TYPE: ",$S($D(TIUFTMSG):TIUFTMSG(1),1:" Faulty entry; File has entries of every permitted Type with the same Name"),!
  • Line Location: EDTYPE+17
Function Call: WRITE
  • Prompt: " ?? Enter appropriate Type or '^' to exit",!
  • Line Location: READTYP+2
Info |  Source |  Entry Points |  Interaction Calls