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

Call Graph

Call Graph Total: 4

Package Total Call Graph
Text Integration Utility 3 $$BADNAP^TIUFLF1  $$SELTYPE^TIUFLF8  PAUSE^TIUFXHLX  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Text Integration Utility 12 TIUFA1  TIUFC1  TIUFHA5  TIUFLF1  TIUFLF2  TIUFLF3  TIUFLF4  TIUFT  
TIUPRF  TIUPRF2  TIUPRFL  TIUPS184  
Lab Service 1 LRAPRES  

Entry Points

Name Comments DBIA/ICR reference
DDEFIEN(TIUDEFNM,TIUTYPE) ; Function gets IEN (and more) of Doc Def
DUP(NAME,PFILEDA,FILEDA) ; Function returns 1 if PFILEDA already has item
DUPITEM(NAME,PFILEDA,FILEDA) ; Function returns 1 if PFILEDA already has item
POSSTYPE(PFILEDA) ; Function returns possible Types an Entry may have to
POSTX
DUPNAME(NAME,FILEDA) ; Function returns 1 if NAME already
READTYP
DUPX
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
EDTYPE(FILEDA,NODE0,PFILEDA,XFLG,USED) ; User edit FILEDA Type.
; Requires FILEDA, NODE0.
; Requires PFILEDA if DA has an actual/prospective parent. Need PFILEDA
TYPEX
EDTYX
DUPIX

External References

Name Field # of Occurrence
^DIE READTYP+3
$$BADNAP^TIUFLF1 TYPELIST+20
$$SELTYPE^TIUFLF8 READTYP
PAUSE^TIUFXHLX POSSTYPE+10, EDTYPE+14, EDTYPE+17

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
Routine Call
  • DIE
  • Line Location:
    • READTYP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] POSSTYPE+10, TYPELIST+10, DUPNAME+8, DUPNAME+9, DUPITEM+7, DUPITEM+8, DUP+7, READTYP+4, DDEFIEN+19, DDEFIEN+20
, DDEFIEN+21

Label References

Name Line Occurrences
$$DUPITEM DUP+8
$$DUPNAME TYPELIST+12
$$POSSTYPE TYPELIST+13
DUPX DUP+7
EDTYX EDTYPE+10, EDTYPE+11, EDTYPE+13, EDTYPE+14, EDTYPE+17, READTYP+1
POSTX POSSTYPE+9, POSSTYPE+10
READTYP READTYP+2
TYPELIST EDTYPE+13
TYPEX TYPELIST+13, TYPELIST+14, TYPELIST+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DEFLT EDTYPE+8~, EDTYPE+18*, READTYP
DIE EDTYPE+8~, READTYP+3*
DIROUT EDTYPE+9!
DIRUT EDTYPE+9!
DR EDTYPE+8~, READTYP+3*
>> DTOUT TYPELIST+13, EDTYPE+13, READTYP+1, EDTYX
DUOUT EDTYPE+9!, READTYP!, READTYP+1, EDTYX
DUPANS DUP+4~*, DUP+7*, DUP+8*, DUPX
DUPNAME TYPELIST+8~, TYPELIST+12*, TYPELIST+17
ERRMSG DDEFIEN+13~, DDEFIEN+19*, DDEFIEN+20, DDEFIEN+25*, DDEFIEN+29
FDATYPE TYPELIST+8~, TYPELIST+10*, TYPELIST+11*, TYPELIST+15, TYPELIST+19
FILEDA TYPELIST~, TYPELIST+9*, TYPELIST+10, TYPELIST+12, TYPELIST+20, DUPNAME~, DUPNAME+6*, DUPNAME+9, DUPITEM~, DUPITEM+6*
, DUPITEM+8, DUP~, DUP+7, DUP+8, EDTYPE~, EDTYPE+13, READTYP, READTYP+4
GOTIT DDEFIEN+13~, DDEFIEN+25, DDEFIEN+27*, DDEFIEN+31
ITEMANS DUPITEM+5~, DUPITEM+6*, DUPITEM+7, DUPITEM+8*, DUPITEM+9, DUPIX
NAME TYPELIST~, TYPELIST+12, TYPELIST+20, DUPNAME~, DUPNAME+8, DUPNAME+9, DUPITEM~, DUPITEM+7, DUPITEM+8, DUP~
, DUP+8, EDTYPE+8~, EDTYPE+12*, EDTYPE+13
NODE0 EDTYPE~, EDTYPE+10, EDTYPE+12, EDTYPE+18, READTYP+4*
PFILEDA POSSTYPE~, POSSTYPE+9, POSSTYPE+10, TYPELIST~, TYPELIST+9*, TYPELIST+13, DUPITEM~, DUPITEM+8, DUP~, DUP+7
, DUP+8, EDTYPE~, EDTYPE+12*, EDTYPE+13
PNODE0 POSSTYPE+7~, POSSTYPE+10*, POSSTYPE+11
POSSTYPE POSSTYPE+7~, POSSTYPE+8*, POSSTYPE+9*, POSSTYPE+12*, POSTX, TYPELIST+8~, TYPELIST+13*, TYPELIST+14, TYPELIST+16
PTYPE POSSTYPE+7~, POSSTYPE+11*, POSSTYPE+12
REST TYPELIST+8~, TYPELIST+16*, TYPELIST+17*, TYPELIST+24
TIUDEFDA DDEFIEN+13~, DDEFIEN+17*, DDEFIEN+20*, DDEFIEN+21, DDEFIEN+27
TIUDEFNM DDEFIEN~, DDEFIEN+19, DDEFIEN+20
>> TIUFIMSG DUPITEM+9*, DUP+7*
TIUFTLST EDTYPE+8~, EDTYPE+13, EDTYPE+17, EDTYPE+18
>> TIUFTMPL TYPELIST+15
TIUFTMSG EDTYPE+8~, EDTYPE+13, EDTYPE+17
TIUFTMSG("O" EDTYPE+16
TIUFTMSG("R" EDTYPE+15, EDTYPE+16
TIUFTMSG("R1" EDTYPE+15
TIUFTMSG("T" EDTYPE+14
TIUFTMSG(1 EDTYPE+17
TIUNODE0 DDEFIEN+13~, DDEFIEN+21*, DDEFIEN+23, DDEFIEN+27
TIUTYPE DDEFIEN~, DDEFIEN+14*, DDEFIEN+15, DDEFIEN+16*, DDEFIEN+23
TYPE TYPELIST+8~, TYPELIST+16*, TYPELIST+17, TYPELIST+18, TYPELIST+20, TYPELIST+22, DUPNAME+5~, DUPNAME+9*, EDTYPE+8~, READTYP*
, READTYP+2, READTYP+3*
TYPELIST TYPELIST~, TYPELIST+9*, TYPELIST+15*, TYPELIST+20*, TYPELIST+22*, TYPELIST+23*
TYPEMSG TYPELIST~
TYPEMSG("O" TYPELIST+21*
TYPEMSG("R" TYPELIST+24*
TYPEMSG("R1" TYPELIST+24*
TYPEMSG("T" TYPELIST+14*
U POSSTYPE+11, TYPELIST+10, TYPELIST+16, TYPELIST+17, TYPELIST+20, TYPELIST+22, TYPELIST+23, DUPNAME+9, DUPITEM+8, EDTYPE+10
, EDTYPE+12, EDTYPE+18, DDEFIEN+23, DDEFIEN+27
USED EDTYPE~, EDTYPE+11
X EDTYPE+8~
XDUPANS DUPNAME+5~, DUPNAME+7*, DUPNAME+9*, DUPNAME+10
XDUPDA DUPNAME+5~, DUPNAME+7*, DUPNAME+8*, DUPNAME+9, DUPITEM+5~, DUPITEM+6*, DUPITEM+7*, DUPITEM+8
XFLG EDTYPE~, EDTYPE+14*, EDTYPE+17*, EDTYX*
Y EDTYPE+8~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All