Routine: TIUPLST

Package	Total	Call Graph
VA Fileman	3	IX^DIC ^DIE ^DIK
Text Integration Utility	2	$$PNAME^TIULC1 ($$READ,JUSTIFY)^TIUU
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
IHS Electronic Health Record	1	BEHODC
Text Integration Utility	1	TIU PREFERRED DOCUMENT LIST

Entry Points

Name	Comments	DBIA/ICR reference
EDIT(DA)	; Call ^DIE to edit the record
NEWLIST(TIUNM,ASK)	; Create a new List for the user
NEWX
GETEDIT	; Get record in picklist file, determine action
DELETE(DA)	; Call ^DIK to delete the list
INTROTXT	; Write Introductory Text for the Option
ALREADY(TIUCLASS)	; Indicate that a List for TIUCLASS already exists
MAIN	; Control branching
DIK(DA,TIUNAME)	; Remove a list
DOCNAME(TIUDA)	; Get the NAME (.01) field of the document

External References

Name	Field # of Occurrence
IX^DIC	GETEDIT+16, NEWLIST+8
^DIE	EDIT+4
^DIK	NEWLIST+12, DIK+3
$$PNAME^TIULC1	DELETE+2, ALREADY+1
$$READ^TIUU	INTROTXT+5, GETEDIT+9, NEWLIST+3, DELETE+6
JUSTIFY^TIUU	INTROTXT+2
$$UP^XLFSTR	DELETE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: INTROTXT+1
Function Call: WRITE	Prompt: !!,"This option allows you to create and maintain lists of TITLES for any of the" Line Location: INTROTXT+3
Function Call: WRITE	Prompt: !,"active CLASSES of documents supported by TIU at your site.",! Line Location: INTROTXT+4
Function Call: WRITE	Prompt: !!,"When you use the option to enter a document belonging to a given class" Line Location: INTROTXT+6
Function Call: WRITE	Prompt: !,"you will be asked to select a TITLE belonging to that class." Line Location: INTROTXT+7
Function Call: WRITE	Prompt: !!,"For any particular class, you may find that you only wish to choose from" Line Location: INTROTXT+8
Function Call: WRITE	Prompt: !,"among a few highly specific titles (e.g., if you are a Pulmonologist" Line Location: INTROTXT+9
Function Call: WRITE	Prompt: !,"entering a PROGRESS NOTE, you may wish to choose from a short list of" Line Location: INTROTXT+10
Function Call: WRITE	Prompt: !,"three or four titles related to Pulmonary Function, or Pulmonary Disease)." Line Location: INTROTXT+11
Function Call: WRITE	Prompt: !,"Rather than presenting you with a list of hundreds of unrelated titles," Line Location: INTROTXT+12
Function Call: WRITE	Prompt: !,"TIU will present you with the list you name here." Line Location: INTROTXT+13
Function Call: WRITE	Prompt: !!,"In the event that you need to select a TITLE which doesn't appear on your" Line Location: INTROTXT+14
Function Call: WRITE	Prompt: !,"list, you will always be able to do so." Line Location: INTROTXT+15
Function Call: WRITE	Prompt: !!,"NOTE: If you expect to enter a single title, or would be unduely restricted" Line Location: INTROTXT+16
Function Call: WRITE	Prompt: !,"by use of a short list, then we recommend that you bypass the creation of" Line Location: INTROTXT+17
Function Call: WRITE	Prompt: !,"a list, and simply enter a DEFAULT TITLE for the class...This option will" Line Location: INTROTXT+18
Function Call: WRITE	Prompt: !,"afford you the opportunity to do so.",! Line Location: INTROTXT+19
Function Call: WRITE	Prompt: !," Enter/edit Personal Document List" Line Location: GETEDIT+3
Function Call: WRITE	Prompt: !!,"You already have one or more Personal Lists...",! Line Location: GETEDIT+7
Function Call: WRITE	Prompt: !!,"Please choose a list to ",$S(CREATE="E":"Edit",1:"Delete"),"...",! Line Location: GETEDIT+12
Function Call: WRITE	Prompt: !!,"No List Selected...",! Line Location: GETEDIT+18
Function Call: WRITE	Prompt: !!,"No changes made..." Line Location: GETEDIT+19
Function Call: WRITE	Prompt: !!,"Creating a new Personal Document List...",! Line Location: NEWLIST+7
Function Call: WRITE	Prompt: !!," Sorry, you can create lists for YOURSELF only. Please try again." Line Location: NEWLIST+11
Function Call: WRITE	Prompt: !!,"You are about to DELETE your entry for CLASS " Line Location: DELETE+4
Function Call: WRITE	Prompt: TIUNAME,! Line Location: DELETE+5
Function Call: WRITE	Prompt: !!,"You must specify a CLASS in order to maintain the list.",! Line Location: DELETE+8
Function Call: WRITE	Prompt: !!,"Nothing deleted...No harm done!" Line Location: DELETE+10
Function Call: WRITE	Prompt: !,TIUNAME," List DELETED." Line Location: DIK+4
Function Call: WRITE	Prompt: !!,$C(7),"You already have a list for class ",$$PNAME^TIULC1(TIUCLASS),"." Line Location: ALREADY+1
Function Call: WRITE	Prompt: !!,"Please Edit that list instead..." Line Location: ALREADY+2
Routine Call	DIE Line Location: EDIT+4
Routine Call	DIC Line Location: GETEDIT+16 NEWLIST+8

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	DOCNAME+1
^TIU(8925.98 - [#8925.98]	GETEDIT+4, DELETE+2
^VA(200 - [#200]	GETEDIT+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASK	NEWLIST~, NEWLIST+3
ASKNEW	NEWLIST+1~, NEWLIST+2, NEWLIST+3, NEWLIST+4
CREATE	GETEDIT+1~, GETEDIT+9*, GETEDIT+10, GETEDIT+11, GETEDIT+12, GETEDIT+18, GETEDIT+20
D	GETEDIT+1~, GETEDIT+13, NEWLIST+5
DA	MAIN+1~, NEWLIST+10~, NEWLIST+12*, DELETE~, DELETE+2, DELETE+11, DIK~, EDIT~, EDIT+5
DIC	GETEDIT+1~, GETEDIT+13, NEWLIST+1~, NEWLIST+2
DIC("S"	GETEDIT+14*
DIC("W"	GETEDIT+15*
DIC(0	GETEDIT+13, NEWLIST+2
DIE	EDIT+1~, EDIT+2*
DIK	NEWLIST+10~, NEWLIST+12, DIK+1~, DIK+2
DIROUT	MAIN+4, GETEDIT+10, EDIT+1~
DIRUT	EDIT+1~
DLAYGO	NEWLIST+1~, NEWLIST+2*
DR	EDIT+1~, EDIT+3*
DTOUT	MAIN+1~, MAIN+4, GETEDIT+10, EDIT+1~, EDIT+4
DUOUT	MAIN+1~, MAIN+4, GETEDIT+10
DUZ	GETEDIT+2, GETEDIT+4, GETEDIT+13, NEWLIST+5, NEWLIST+10
PROMPT	GETEDIT+1~, GETEDIT+8*, GETEDIT+9
TIUASK	EDIT+1~
TIUCLASS	EDIT+1~, EDIT+5, ALREADY~, ALREADY+1
TIUDA	DOCNAME~, DOCNAME+1
TIUFPRIV	MAIN+1~, MAIN+2*
TIUNAME	DELETE+1~, DELETE+2*, DELETE+3, DELETE+5, DELETE+7, DELETE+11, DIK~, DIK+4
TIUNM	GETEDIT+1~, GETEDIT+2*, GETEDIT+5, GETEDIT+11, GETEDIT+18, NEWLIST~
U	GETEDIT+2, GETEDIT+9, DOCNAME+1, NEWLIST+12, DELETE+2
X	GETEDIT+1~, GETEDIT+13, NEWLIST+5, NEWLIST+6*, EDIT+1~
Y	GETEDIT+1~, GETEDIT+5, GETEDIT+6, GETEDIT+11, GETEDIT+18, GETEDIT+19, GETEDIT+20, GETEDIT+21, NEWLIST+1~, NEWLIST+4 , NEWLIST+10, NEWLIST+12*, NEWX, EDIT+1~, EDIT+4
Y(0	NEWLIST+10
YASURE	DELETE+1~, DELETE+6, DELETE+9*, DELETE+10

Customize PDF page

Package: Text Integration Utility

Routine: TIUPLST

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
$$NEWLIST	GETEDIT+5, GETEDIT+11, GETEDIT+18
DELETE	GETEDIT+20
DIK	DELETE+11, EDIT+5
EDIT	GETEDIT+6, GETEDIT+11, GETEDIT+21
GETEDIT	MAIN+5
INTROTXT	MAIN+3
NEWX	NEWLIST+4