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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUFHA1

Package: Text Integration Utility

Routine: TIUFHA1


Information

TIUFHA1 ; SLC/MAM - LM Templates H,A Actn Delete. CANTDEL(FILEDA,USED),ASKOK(OLDLNO,IFLAG,USED) ;1/19/06

Source Information

Source file <TIUFHA1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Text Integration Utility 9 INIT^TIUFA  COLLAPSE^TIUFH1  $$DDEFUSED^TIUFLF  $$PERSOWNS^TIUFLF2  ANCESTOR^TIUFLF4  $$OBJUSED^TIUFLJ  PARSE^TIUFLLM  UPDATE^TIUFLLM1  
PAUSE^TIUFXHLX  
VA FileMan 2 ^DIK  ^DIR  
Authorization Subscription 1 $$HASAS^USRLFF  
List Manager 1 EN^VALM2  
Registration 1 $$FNDTITLE^DGPFAPI1  

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

Package Total Caller Graph
Text Integration Utility 2 TIUFD4  TIUFHA ACTION DELETE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
DELETE ; Templates H and A Action Delete Entries
; Requires TIUFTMPL.
; Requires TIUFWHO, set in Options TIUF/A/C/H EDIT/SORT/CREATE DDEFS CLIN/MGR/NATL.
; Not on Clinician menu: don't worry about TIUFWHO="C".
DELENTY
MSG
DELEX
ASKOK(OLDLNO,IFLAG,USED) ; Function warns user, asks if OK to continue delete. 1/OK; 0/not OK
ASKOX
CANTDEL(FILEDA,USED) ; Function returns 1 if FILEDA can't be deleted, else 0.
CANTX ;

External References

Name Field # of Occurrence
$$FNDTITLE^DGPFAPI1 CANTDEL+6
^DIK DELETE+45, DELENTY+3
^DIR ASKOX
INIT^TIUFA DELEX+1
COLLAPSE^TIUFH1 DELENTY+10
$$DDEFUSED^TIUFLF DELETE+30
$$PERSOWNS^TIUFLF2 DELETE+28
ANCESTOR^TIUFLF4 DELETE+19
$$OBJUSED^TIUFLJ DELETE+30
PARSE^TIUFLLM DELENTY+9, DELENTY+11
UPDATE^TIUFLLM1 DELENTY+7, DELENTY+12
PAUSE^TIUFXHLX DELETE+22, DELETE+23, DELETE+25, DELETE+26, DELETE+27, DELETE+28, DELETE+33, DELETE+38, CANTX+1
$$HASAS^USRLFF CANTDEL+5
EN^VALM2 DELETE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,MSG
  • Line Location: DELETE+16
Function Call: WRITE
  • Prompt: !!,MSG,!
  • Line Location: DELETE+22
Function Call: WRITE
  • Prompt: !!,MSG,!
  • Line Location: DELETE+23
Function Call: WRITE
  • Prompt: !!,MSG,!,MSG1
  • Line Location: DELETE+25
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: DELETE+26
Function Call: WRITE
  • Prompt: !,"To delete an Object, please select action Detailed Display.",!
  • Line Location: DELETE+27
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: DELETE+28
Function Call: WRITE
  • Prompt: !!," Another user is editing this entry; Please try later"
  • Line Location: DELETE+29
Function Call: WRITE
  • Prompt: !!," Entry "_OLDLNO_" has Parent:"
  • Line Location: DELETE+34
Function Call: WRITE
  • Prompt: !?5,$P(^TIU(8925.1,PFILEDA,0),U)
  • Line Location: DELETE+37
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: DELETE+38
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOX+0
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: CANTDEL+3
Function Call: WRITE
  • Prompt: !,MSG,!
  • Line Location: CANTDEL+4
Function Call: WRITE
  • Prompt: !!,MSG,!
  • Line Location: CANTDEL+5
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: CANTDEL+6
Function Call: WRITE
  • Prompt: MSG,!
  • Line Location: CANTDEL+8
Routine Call
  • DIR
  • Line Location:
    • ASKOX

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] DELETE+15, DELETE+19, DELETE+24, DELETE+26, DELETE+29, DELETE+32, DELETE+36, DELETE+37, DELETE+42, DELETE+43
, CANTDEL+7
^TMP("TIUF" CANTDEL+7
^TMP("TIUF1IDX" DELETE+12, DELENTY+4, DELENTY+9, DELENTY+11

Label References

Name Line Occurrences
$$ASKOK DELETE+38
$$CANTDEL DELETE+31
ASKOX ASKOK+3
CANTX CANTDEL+3, CANTDEL+4, CANTDEL+5, CANTDEL+6, CANTDEL+7
DELENTY DELETE+39
DELEX DELETE+9
MSG DELENTY+5, DELENTY+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANCESTOR DELETE+5~, DELETE+19
ANCESTOR( DELETE+20
ANCQUIT DELETE+4~, DELETE+18, DELETE+19*, DELETE+21*
ANS ASKOK+1~, ASKOK+2*, ASKOX*, ASKOX+1, CANTDEL+1~, CANTDEL+2*, CANTDEL+3*, CANTDEL+4*, CANTDEL+5*, CANTDEL+6*
, CANTDEL+8*, CANTX+2
ASKOK DELETE+5~, DELETE+38*
DA DELETE+41~, DELETE+45*, DELENTY+1~, DELENTY+3*
DA(1 DELETE+45*
DIK DELETE+41~, DELETE+45*, DELENTY+1~, DELENTY+3*
DIR ASKOK+1~
DIR("A" ASKOK+3*, ASKOK+4*, ASKOK+5*, ASKOK+6*
DIR("B" ASKOX*
DIR(0 ASKOX*
DIROUT DELETE+6~
DIRUT DELETE+6~, DELETE+14!, DELETE+15, DELETE+33
DTOUT DELETE+6~, DELEX, DELEX+1
DUZ DELETE+28
FILEDA DELETE+4~, DELETE+15, DELETE+17*, DELETE+20, DELETE+24, DELETE+26, DELETE+28, DELETE+29, DELETE+30, DELETE+31
, DELETE+32, DELETE+36, DELETE+42, DELETE+43, DELENTY+3, DELENTY+4, CANTDEL~, CANTDEL+5, CANTDEL+6, CANTDEL+7
IFLAG DELETE+4~, DELETE+32*, DELETE+33, DELETE+38, DELETE+39, ASKOK~, ASKOK+5
INFO DELETE+5~, DELENTY+9*, DELENTY+10
INFO("PLINENO" DELENTY+11
INFO("XPDLCNT" DELENTY+10
ITEMDA DELETE+5~, DELETE+43*, DELETE+45
LINENO DELETE+5~, DELENTY+4*, DELENTY+5, DELENTY+7, DELENTY+9, DELENTY+12
MSG DELETE+5~, DELETE+16*, DELETE+22*, DELETE+23*, DELETE+25*, DELETE+26*, DELETE+28*, DELETE+38*, MSG*, CANTDEL+1~
, CANTDEL+3*, CANTDEL+4*, CANTDEL+5*, CANTDEL+6*, CANTDEL+8*, CANTX+1
MSG1 DELETE+4~, DELETE+25*
NATL DELETE+5~, DELETE+24*
NODE0 DELETE+5~, DELETE+24*, DELETE+27, DELETE+28, DELETE+30
OLDLNO DELETE+4~, DELETE+10*, DELETE+11*, DELETE+12, DELETE+14*, DELETE+15*, DELETE+16, DELETE+17, DELETE+34, DELETE+38
, MSG, ASKOK~, ASKOK+4
PFILEDA DELETE+4~, DELETE+35*, DELETE+36*, DELETE+37, DELETE+42*, DELETE+43, DELETE+45
PINFO DELETE+5~, DELENTY+11*, DELENTY+12
SHARED DELETE+4~, DELETE+24*, DELETE+25
>> TIUFATTR DELETE+44, DELENTY+2
>> TIUFCDA DELETE+18, DELETE+19
TIUFCMSG MSG+2!
TIUFCMSG(1 MSG+3*
TIUFCMSG(2 MSG+4*, MSG+5*
TIUFCMSG(3 MSG+5*
>> TIUFCNM MSG+3, MSG+5
>> TIUFCTYP MSG+3
TIUFDA DELETE+4~
TIUFDA( DELETE+12*, DELETE+15, DELETE+17
>> TIUFREDO DELETE+44*, DELENTY+2*, DELENTY+7, DELEX+1
>> TIUFTMPL DELETE+33, DELETE+44, DELENTY+2, DELENTY+6, DELENTY+7, MSG+2, DELEX+1
TIUFXNOD DELETE+5~, DELETE+7*, DELETE+8
TIUI DELETE+5~, DELETE+20*, DELETE+22
U DELETE+12, DELETE+24, DELETE+26, DELETE+27, DELETE+28, DELETE+30, DELETE+37, CANTDEL+7
USED DELETE+4~, DELETE+30*, DELETE+31, DELETE+38, ASKOK~, ASKOK+3, CANTDEL~, CANTDEL+3, CANTDEL+4
>> VALM("LINES" MSG+5
>> VALMBCK DELETE+7*, MSG*, DELEX*, DELEX+1*
>> VALMCNT DELENTY+7*, DELENTY+10*, DELENTY+12*, MSG+5
>> VALMY( DELETE+11
>> VALMY(0 DELETE+9
X ASKOK+1~
>> XQORNOD(0 DELETE+7
Y ASKOK+1~, ASKOX
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All