Routine: BTIUFD

Information

BTIUFD ;IHS/CIA/MGH - LM Routine to display and edit description field ;26-Jan-2006 12:40;MGH

Source file <BTIUFD.m>

Package	Total	Call Graph
Text Integration Utility	5	AUPDATE^TIUFLA1 NODE0ARR^TIUFLF $$STATWORD^TIUFLF5 LINEUP^TIUFLLM1 PAUSE^TIUFXHLX
Registration	1	FULL^VALM1
VA Fileman	1	EN^DIWE

Package	Total	Caller Graph
Text Integration Utility	2	TIUFD1 TIUFLF

Name	Comments	DBIA/ICR reference
DSBOX
HASDESC(FILDEDA,NODEO)	; EP Function returns no or yes if description field exists
DESC(LASTLIN)	; EP Set Display Array TIUF3 starting with Description. ; Used by subtemplates D and X AND T ; See DSBASICS for required variables, etc.
SETDESC(FILEDA,LASTLIN)	;Set description
EDDESC(FILEDA,NODE0)	; Edit Description of FILEDA. ; Requires FILEDA, NODE0 of FILEDA
EDBOX	;
EDDES	; EP Entry point to edit the description field ; Requires CURRENT arrays TIUFINFO, TIUFNOD0.
SETBX

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Entry is not Inactive: Can't edit Description" Line Location: EDDES+6
Function Call: WRITE	Prompt: !!," Another user is editing this entry.",! Line Location: EDDES+7

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	SETDESC+4, SETDESC+6, HASDESC+3, EDDES+5, EDDES+7, EDBOX+1
^TMP("TIUF3"	DESC+7, DESC+8!, DESC+12, DESC+14, DESC+15, SETDESC+2!, SETDESC+6
^TMP("TIUF3IDX"	DESC+8!

Name	Line Occurrences
DESC	EDDES+11
DSBOX	DESC+5
EDBOX	EDDES+6, EDDES+7, EDDES+8, EDDES+9, EDDES+11
EDDESC	EDDES+8
SETDESC	DESC+16

Name	Field # of Occurrence
ANS	HASDESC+1~, HASDESC+2, HASDESC+3, HASDESC+4*, HASDESC+5
CNT	DESC+3~, DESC+7*, DESC+8
CNTCHNG	EDDES+2~, EDDES+12
DIC	EDDESC+3~, EDDESC+4*
DIROUT	EDDES+2~
DIRUT	EDDES+2~
DIWESUB	EDDESC+3~, EDDESC+5*
DTOUT	DSBOX, EDDES+2~, EDDES+8, EDDES+9, EDDES+11, EDBOX+2
DWPK	EDDESC+3~, EDDESC+4*
FILDEDA	HASDESC~
FILEDA	DESC+3~, DESC+9, DESC+16, SETDESC~, SETDESC+4, SETDESC+6, HASDESC+3, EDDES+2~, EDDES+3, EDDES+5 , EDDES+7, EDDES+8, EDDES+9, EDDES+12, EDBOX+1, EDDESC~, EDDESC+4
LASTLIN	DESC~, DESC+4, DESC+8, DSBOX, SETDESC~, SETDESC+2, SETDESC+3, SETDESC+7
LINE2	SETDESC+1~, SETDESC+3, SETDESC+5, SETDESC+6, SETDESC+7
LINENO	DESC+3~, DESC+4, DESC+11, DESC+12, DESC+13, DESC+14, DESC+15, DESC+16, DSBOX, EDDES+2~ , EDDES+11*
MSG	EDDES+2~
NAME	DESC+3~, DESC+15*
NODE0	EDDESC~, EDDESC+5
NODEO	HASDESC~
STATUS	EDDES+2~, EDDES+5*, EDDES+6
TIUFBLIN	DESC+3~, DESC+4*, EDDES+11
TIUFI	SETDESC+1~, SETDESC+3, SETDESC+4, SETDESC+6
>> TIUFINFO	EDDES+13
>> TIUFINFO("FILEDA"	DESC+9, EDDES+3
TIUFJ	SETDESC+1~, SETDESC+2*
>> TIUFNOD0	DESC+15, EDDES+8, EDDES+9, EDDES+12
>> TIUFNOD0("DESC"	DESC+5
>> TIUFNOD0("TYPE"	DESC+15
TIUFQ	DSBOX!
>> TIUFSTMP	DESC+10, EDDES+7, EDBOX+1
>> TIUFTMPL	EDDES+12, EDDES+13
>> TIUFVCN1	EDDES+12*
TIUFXNOD	EDDES+2~, EDDES+4*
TIUI	DESC+3~, DESC+8*
U	DESC+15, EDDES+5, EDDESC+5
>> VALMBCK	EDDES+4, EDDES+6, EDBOX+2*
>> VALMCNT	EDDES+11*
>> XQORNOD(0	EDDES+4