Routine: BTIUPLST

Package	Total	Call Graph
Text Integration Utility	3	$$PNAME^TIULC1 $$NAME^TIULS ($$READ,JUSTIFY)^TIUU
VA Fileman	3	^DIC ^DIE ^DIK
IHS Mods To Text Integration Utilities	1	MSG^BTIUU
IHS VA Utilities	1	^XBCLS
Kernel	1	($$REPEAT,$$UP)^XLFSTR

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIUPREF

Entry Points

Name	Comments	DBIA/ICR reference
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
HELP	;;
NEWLIST(X,ASK)	; Create a new List for the user
EDIT	; Call ^DIE to edit the record
NEWX
GETEDIT	; Get record in picklist file, determine action
SETDUZ()	; -- returns user to edit
DELETE(DA)	; Call ^DIK to delete the list
INTROTXT	; Write Introductory Text for the Option
SP(NUM)	; -- SUBRTN to pad spaces
MAIN	; Control branching

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Enter/edit Personal Document List for " Line Location: GETEDIT+4
Function Call: WRITE	Prompt: $$NAME^TIULS(X,"FIRST LAST") Line Location: GETEDIT+5
Function Call: WRITE	Prompt: !!,"You already have a Personal List...",! Line Location: GETEDIT+9
Function Call: WRITE	Prompt: !!,"This TIU user already has a Personal List...",! Line Location: GETEDIT+10
Function Call: WRITE	Prompt: !!,"You are about to delete your entry for CLASS " Line Location: DELETE+3
Function Call: WRITE	Prompt: TIUNAME,! Line Location: DELETE+4
Function Call: WRITE	Prompt: !,"Nothing deleted...No harm done!" Line Location: DELETE+6
Function Call: WRITE	Prompt: !,TIUNAME," List DELETED." Line Location: DELETE+9
Routine Call	DIE Line Location: EDIT+5
Routine Call	DIC Line Location: NEWLIST+4 SETDUZ+3

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

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.98 - [#8925.98]	GETEDIT+6, GETEDIT+14, DELETE+2
^VA(200 - [#200]	GETEDIT+3
^XUSEC("TIUZCMGR"	SETDUZ+1

Name	Field # of Occurrence
ASK	NEWLIST~, NEWLIST+2
ASKNEW	NEWLIST+1~, NEWLIST+2, NEWLIST+3
CREATE	GETEDIT+1~, GETEDIT+12*, GETEDIT+13, GETEDIT+15
DA	MAIN+1~, GETEDIT+8, GETEDIT+16, DELETE~, DELETE+2
DATA	PAD~, PAD+1
DIC	GETEDIT+1~, NEWLIST+1~, SETDUZ+2~, SETDUZ+3
DIC("A"	SETDUZ+3*
DIC("DR"	NEWLIST+4*
DIC(0	NEWLIST+1, NEWLIST+4, SETDUZ+3*
DIE	EDIT+1~, EDIT+2*
DIK	DELETE+1~, DELETE+7*
DLAYGO	NEWLIST+1~*
DR	EDIT+1~, EDIT+4*
DUZ	GETEDIT+9, SETDUZ+1
>> I	INTROTXT+4*
LENGTH	PAD~, PAD+1
NUM	SP~, SP+1
PROMPT	GETEDIT+1~, GETEDIT+11*, GETEDIT+12
TIUASK	EDIT+1~
TIUCLASS	EDIT+1~
TIUDUZ	MAIN+1~, GETEDIT+2*, GETEDIT+3, GETEDIT+6, GETEDIT+9, GETEDIT+14
TIUFPRIV	MAIN+1~, MAIN+2*
TIUNAME	DELETE+1~, DELETE+2*, DELETE+4, DELETE+9
U	GETEDIT+3, GETEDIT+12, DELETE+2
X	INTROTXT+4, GETEDIT+1~, GETEDIT+3, GETEDIT+5, GETEDIT+7, NEWLIST~, NEWLIST+4*
Y	GETEDIT+1~, GETEDIT+7, GETEDIT+8, GETEDIT+14, GETEDIT+15, GETEDIT+16, NEWLIST+1~, NEWLIST+3*, NEWX, SETDUZ+2~ , SETDUZ+3
YASURE	DELETE+1~, DELETE+5, DELETE+6

Name	Field # of Occurrence
$T(HELP+I	INTROTXT+4