Routine: TIULA3

Information

TIULA3 ; SLC/JER - Still more interactive functions ;1/31/08

Source Information

Source file <TIULA3.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Text Integration Utility	6	($$ASKTYP,DOCSPICK)^TIULA2 $$PNAME^TIULC1 $$REQCOSIG^TIULP $$ISDS^TIULX $$PROVIDER^TIUPXAP1 $$READ^TIUU
Kernel	2	$$UP^XLFSTR $$ACTIVE^XUSER
Authorization Subscription	1	($$ISA,$$ISTERM)^USRLM
VA Fileman	1	^%DT

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Text Integration Utility	7	TIUCPFIX TIUEPN7 TIUPEFIX TIUROR TIURPTTL TIURS1 TIURTITL
Order Entry Results Reporting	2	ORWTPN ORWU1

Entry Points

Name	Comments	DBIA/ICR reference
SCRATTX
RSLVTITL(TIUTTL)	; Resolve pointers to titles
DATENOTE(X)	; Ask for date/time of note
TITLE	; Title Look-up
SCRCSNR(TIUDA,Y)	; Evaluate whether a person may be selected to cosign
SCRATT(TIUDA,PERSON)	; Can a person be an Attending for a given docmt?
TITLPICK(TIUTYP,CLASS)	; Select multiple titles
ASKTITLE(CLASS,TIUTTL)	; Ask for a different title, same class
SCRDFCS(USER,Y)	; Screen Default Cosigner selection for USER
SCREENX
SCRDFX
ASKSEQ(TIUDFLT)	; Ask preferred sort sequence

External References

Name	Field # of Occurrence
^%DT	DATENOTE+5
$$ASKTYP^TIULA2	ASKTITLE+4
DOCSPICK^TIULA2	TITLPICK+7
$$PNAME^TIULC1	TITLE+8, TITLE+11, TITLPICK+2, TITLPICK+10
$$REQCOSIG^TIULP	SCRCSNR+5, SCRCSNR+15, SCRATT+19
$$ISDS^TIULX	SCRATT+10
$$PROVIDER^TIUPXAP1	SCRCSNR+9, SCRATT+14, SCRDFCS+8
$$READ^TIUU	ASKSEQ+4
$$ISA^USRLM	SCRATT+17
$$ISTERM^USRLM	SCRATT+12
$$UP^XLFSTR	TITLE+11, TITLPICK+2, TITLPICK+10
$$ACTIVE^XUSER	SCRCSNR+7, SCRDFCS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"For ",$$UP^XLFSTR($$PNAME^TIULC1(TIUCLASS)),": " Line Location: TITLE+11
Function Call: WRITE	Prompt: !!,"Please Select the ",$$UP^XLFSTR($$PNAME^TIULC1(CLASS)) Line Location: TITLPICK+2
Function Call: WRITE	Prompt: " TITLES to search for:",! Line Location: TITLPICK+3
Function Call: WRITE	Prompt: !,"There is only one TITLE under ",$$UP^XLFSTR($$PNAME^TIULC1(CLASS)) Line Location: TITLPICK+10
Function Call: WRITE	Prompt: ! Line Location: TITLPICK+13
Function Call: WRITE	Prompt: " ",$P(TIUY,U,2) Line Location: DATENOTE+4
Function Call: WRITE	Prompt: !,$C(7),"Enter DATE AND TIME of the note [TIME REQUIRED] (future dates prohibited)." Line Location: DATENOTE+7

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	SCRCSNR+2, SCRATT+3, SCRATT+4, SCRATT+8
^TIU(8925.1 - [#8925.1]	TITLE+6, RSLVTITL+1, SCRATT+9
^TMP("TIUTYP"	TITLE+2

Name	Line Occurrences
$$RSLVTITL	ASKTITLE+2
SCRATTX	SCRATT+12, SCRATT+14, SCRATT+17
SCRDFX	SCRDFCS+4
SCREENX	SCRCSNR+5, SCRCSNR+7, SCRCSNR+9, SCRCSNR+11, SCRCSNR+13, SCRDFCS+6, SCRDFCS+8
TITLPICK	TITLE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATENOTE+1~, DATENOTE+5*
%DT(0	DATENOTE+5*
CANSEL	SCRATT+1~, SCRATT+2, SCRATT+12, SCRATT+14, SCRATT+17, SCRATT+19*, SCRATTX
CLASS	TITLPICK~, TITLPICK+2, TITLPICK+7, TITLPICK+10, ASKTITLE~, ASKTITLE+4
DFLT	ASKTITLE+1~, ASKTITLE+2*, ASKTITLE+4
DICTDT	SCRATT+1~, SCRATT+4, SCRATT+5, SCRATT+19
DT	SCRCSNR+9, SCRATT+14, SCRDFCS+8
>> DTOUT	TITLPICK+12
>> DUOUT	TITLPICK+12
DUZ	SCRCSNR+5, SCRDFCS+2
PERSON	SCRATT~, SCRATT+2*, SCRATT+12, SCRATT+14, SCRATT+17, SCRATT+19
SCREEN	ASKTITLE+1~, ASKTITLE+3*, ASKTITLE+4
TIUCLASS	TITLE+1~, TITLE+6, TITLE+8, TITLE+10, TITLE+11, TITLE+12
TIUD0	SCRCSNR+1~, SCRCSNR+2, SCRCSNR+5, SCRCSNR+15, SCRATT+1~, SCRATT+3, SCRATT+7
TIUD12	SCRCSNR+1~, SCRCSNR+2*, SCRCSNR+11, SCRCSNR+13
TIUDA	SCRCSNR~, SCRCSNR+2, SCRCSNR+5, SCRCSNR+15, SCRATT~, SCRATT+2*, SCRATT+3, SCRATT+4, SCRATT+19
TIUDFLT	ASKSEQ~, ASKSEQ+1*, ASKSEQ+4
TIUI	TITLE+1~, TITLE+9, TITLE+10, TITLPICK+1~, TITLPICK+6, SCRCSNR+1~
TIUISAD	SCRATT+1~, SCRATT+7, SCRATT+9, SCRATT+10
TIUISDS	SCRATT+1~, SCRATT+10*, SCRATT+14
TIUPD0	SCRATT+1~
TIUPICT	TITLE+4, TITLE+7!, TITLE+8*
TIUPICT(	TITLE+9, TITLE+10
TIUPICT(1	TITLE+5, TITLE+6, TITLE+8*
TIUPRMT	TITLPICK+1~, TITLPICK+6, TITLPICK+7, ASKSEQ+1~, ASKSEQ+2, ASKSEQ+4
TIUPRNT	SCRATT+1~, SCRATT+3*, SCRATT+8
TIUPTYP	SCRATT+1~, SCRATT+7, SCRATT+8, SCRATT+9, SCRATT+10
>> TIUQUIT	TITLPICK+12*
TIUSET	ASKSEQ+1~, ASKSEQ+3*, ASKSEQ+4
TIUTTL	ASKTITLE~, ASKTITLE+2, ASKTITLE+5, RSLVTITL~, RSLVTITL+1
TIUTYP	TITLE+2, TITLE+3, TITLE+13, TITLPICK~, TITLPICK+8, TITLPICK+12, ASKTITLE+1~, SCRATT+1~, SCRATT+7*, SCRATT+9 , SCRATT+10, SCRATT+19
TIUTYP(	TITLPICK+8*
TIUY	ASKTITLE+1~, ASKTITLE+4, ASKTITLE+5, ASKTITLE+6, ASKSEQ+1~, ASKSEQ+4, ASKSEQ+5, SCRCSNR+1~, SCRCSNR+5, SCRCSNR+7 , SCRCSNR+9, SCRCSNR+11, SCRCSNR+13, SCRCSNR+15, SCREENX, SCRDFCS+1~, SCRDFCS+4, SCRDFCS+6, SCRDFCS+8, SCRDFX
TYPE	TITLE+1~, TITLE+12, TITLE+13, TITLPICK+1~, TITLPICK+4, TITLPICK+5!, TITLPICK+7, TITLPICK+8, TITLPICK+11*, TITLPICK+12
TYPE(1	TITLPICK+8, TITLPICK+9
U	TITLE+5, TITLE+6, TITLE+8, TITLE+10, TITLPICK+9, RSLVTITL+1, SCRCSNR+11, SCRCSNR+13, SCRATT+3, SCRATT+4 , SCRATT+9
USER	SCRDFCS~, SCRDFCS+2*, SCRDFCS+4
X	ASKTITLE+1~, DATENOTE~
Y	TITLE+14*, ASKTITLE+1~, DATENOTE+1~, DATENOTE+6, DATENOTE+8, SCRCSNR~, SCRCSNR+5, SCRCSNR+7, SCRCSNR+9, SCRCSNR+11 , SCRCSNR+13, SCRCSNR+15, SCRDFCS~, SCRDFCS+4, SCRDFCS+6, SCRDFCS+8

Customize PDF page

Package: Text Integration Utility

Routine: TIULA3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: