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

Call Graph

Text Integration Utility

$$PNAME^TIULC1 $$NAME^TIULS ($$READ,JUSTIFY)^TIUU

VA Fileman

^DIC ^DIE ^DIK

IHS Mods To Text Integration Utilities

MSG^BTIUU

IHS VA Utilities

^XBCLS

Kernel

($$REPEAT,$$UP)^XLFSTR

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

Package

Total

Caller Graph

IHS Mods To Text Integration Utilities

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

External References

Name	Field # of Occurrence
MSG^BTIUU	INTROTXT+3, INTROTXT+4, INTROTXT+5
^DIC	NEWLIST+4, SETDUZ+3
^DIE	EDIT+5
^DIK	DELETE+8
$$PNAME^TIULC1	DELETE+2
$$NAME^TIULS	GETEDIT+5
$$READ^TIUU	GETEDIT+12, NEWLIST+2, DELETE+5
JUSTIFY^TIUU	INTROTXT+2
^XBCLS	INTROTXT+1
$$REPEAT^XLFSTR	PAD+1
$$UP^XLFSTR	DELETE+2

Interaction Calls

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	Line Occurrences
$$NEWLIST	GETEDIT+7
$$PAD	SP+1
$$SETDUZ	GETEDIT+2
DELETE	GETEDIT+15
EDIT	GETEDIT+8, GETEDIT+16
GETEDIT	MAIN+4
INTROTXT	MAIN+3
NEWX	NEWLIST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUPLST

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items