Routine: TIULA1

Package	Total	Call Graph
Text Integration Utility	5	($$PERSNAME,$$PNAME)^TIULC1 BADSIG^TIULG ($$DATE,$$UPPER)^TIULS $$READ^TIUU MAIN^TIUVISIT
Kernel	3	EN^XQORM SIG^XUSESIG DIVGET^XUSRB2
VA Fileman	2	^DIC ^DIR
Registration	1	($$PRIM,$$SITE)^VASITE

Package	Total	Caller Graph
Text Integration Utility	8	TIULA TIUR TIUR3 TIURS TIURS1 TIUSRVD TIUSRVL TIUSRVL1
IHS Mods To Text Integration Utilities	1	BTIURS
Order Entry Results Reporting	1	ORCNOTE

Name	Comments	DBIA/ICR reference
LOOK(LOOKUP)	; Execute LOOKUP CODE
ASKSIG()	; Prompt for ES, return encrypted data
GETTERM(X)	; Get Lexicon term
TYPMATCH(TYPE,CURTYP)	; Check for type match
DICLOOK(CATEGORY,SCREEN)	; Call ^DIC to get category value
ASKSUBJ()	; Handle query by subject
ASKX
SELCAT(Y,PARM,DFLT,TIUOVER)	; Get preferred documents for user
TRAVERSE(DA,RETURN,PARM,TYPE)	; Select Document Type(s)
GETDIV()	; Get Institution Number and Name
DOCLIST(CLASS,Y,PARM,DFLT)	; Get preferred documents for user
ASKLOC()	; Handle query by location
GETVSIT(DFN)	; Visit selection code
MULTDIV()	; User selects from active divisions

Name	Field # of Occurrence
^DIC	DICLOOK+5, GETTERM+3
^DIR	MULTDIV+5
$$PERSNAME^TIULC1	DOCLIST+17
$$PNAME^TIULC1	DOCLIST+12
BADSIG^TIULG	ASKSIG+2
$$DATE^TIULS	GETVSIT+5
$$UPPER^TIULS	ASKSUBJ+3
$$READ^TIUU	ASKSUBJ+2, ASKLOC+2, GETTERM+5
MAIN^TIUVISIT	GETVSIT+3
$$PRIM^VASITE	GETDIV+6
$$SITE^VASITE	GETDIV+7, GETDIV+9
EN^XQORM	TRAVERSE+7, DOCLIST+21, SELCAT+14
SIG^XUSESIG	ASKSIG+2
DIVGET^XUSRB2	GETDIV+4

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	TRAVERSE+5, DOCLIST+5, DOCLIST+6, SELCAT+6, SELCAT+7
^TIU(8925.1 - [#8925.1]	TRAVERSE+6, TRAVERSE+11
^TIU(8925.8 - [#8925.8]	SELCAT+34, SELCAT+35, SELCAT+36
^TIU(8925.98 - [#8925.98]	DOCLIST+2, DOCLIST+7, DOCLIST+8
^VA(200 - [#200]	ASKSIG+3
^XUTL("XQORM"	DOCLIST+3

Name	Line Occurrences
$$DICLOOK	SELCAT+38
$$LOOK	SELCAT+39
$$MULTDIV	GETDIV+5
ASKX	ASKSIG+2
TRAVERSE	TRAVERSE+11

Name	Field # of Occurrence
^(0	DOCLIST+8
^(20	ASKSIG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	TRAVERSE+1~
CATEGORY	DICLOOK~, DICLOOK+2, DICLOOK+3
CATLOOK	SELCAT+1~, SELCAT+36*, SELCAT+38, SELCAT+39
CATREC	SELCAT+1~, SELCAT+34*, SELCAT+38, SELCAT+40
CATSCRN	SELCAT+1~, SELCAT+35*, SELCAT+38
CATVAL	SELCAT+1~, SELCAT+37, SELCAT+38, SELCAT+39*, SELCAT+40
CLASS	DOCLIST~, DOCLIST+2, DOCLIST+10, DOCLIST+12
CURTYP	TYPMATCH~, TYPMATCH+2, TYPMATCH+3
DA	TRAVERSE~, TRAVERSE+3, TRAVERSE+5, TRAVERSE+6
DFLT	DOCLIST~, DOCLIST+4, DOCLIST+5, DOCLIST+6, DOCLIST+8, SELCAT~, SELCAT+5, SELCAT+6, SELCAT+7, SELCAT+9
DFN	GETVSIT~, GETVSIT+2*, GETVSIT+3
DIC	DICLOOK+1~, DICLOOK+2, GETTERM+1~, GETTERM+2
DIC("A"	DICLOOK+3, GETTERM+2
DIC(0	DICLOOK+2, GETTERM+2
DIR	MULTDIV+1~
DIR("A"	MULTDIV+3*
DIR("S"	MULTDIV+4*
DIR(0	MULTDIV+2*
>> DIROUT	DICLOOK+5*
>> DUOUT	DICLOOK+5
DUZ	TRAVERSE+5, ASKSIG+3, DOCLIST+2, DOCLIST+5, DOCLIST+6, DOCLIST+17, SELCAT+6, SELCAT+7, GETDIV+4
ESNAME	ASKSIG+1~, ASKSIG+3*, ASKSIG+4
ESTITLE	ASKSIG+1~, ASKSIG+3*, ASKSIG+4
I	TRAVERSE+1~, TRAVERSE+9*, TRAVERSE+10
>> IHSDIV	GETDIV+4
>> IHSDIV(2	GETDIV+5
>> J	TRAVERSE+10*, TRAVERSE+11
LEVEL	TRAVERSE+1~*, TRAVERSE+8
LISTNAME	DOCLIST+12~, DOCLIST+13, DOCLIST+14, DOCLIST+15, DOCLIST+16, DOCLIST+18, DOCLIST+19
LOOKUP	LOOK~, LOOK+2
>> ORVP	SELCAT+10, GETVSIT+2
PARM	TRAVERSE~, TRAVERSE+3, TRAVERSE+11, DOCLIST~, DOCLIST+7, SELCAT~, SELCAT+8
PERSNAME	DOCLIST+12~, DOCLIST+17*, DOCLIST+18
RETURN	TRAVERSE~, TRAVERSE+11
RETURN(	TRAVERSE+8*
SCREEN	DICLOOK~, DICLOOK+4
TIUDA	DOCLIST+1~, DOCLIST+2, DOCLIST+3, DOCLIST+7, DOCLIST+8, SELCAT+1~, SELCAT+33, SELCAT+34, SELCAT+35, SELCAT+36
TIUDIV	GETDIV+1~, GETDIV+5, GETDIV+6, GETDIV+7, GETDIV+9
TIUHOLD	SELCAT+2~, SELCAT+24*
TIUHOLD(	SELCAT+26, SELCAT+27, SELCAT+28
TIUI	TYPMATCH+1~, TYPMATCH+3, SELCAT+1~, SELCAT+3, SELCAT+32*, SELCAT+33, SELCAT+40, SELCAT+41
TIUOVER	SELCAT~, SELCAT+21*
TIUSTN	GETDIV+1~, GETDIV+7, GETDIV+9, GETDIV+10, GETDIV+11
TIUT1	SELCAT+2~, SELCAT+17, SELCAT+18, SELCAT+19, SELCAT+20, SELCAT+25, SELCAT+26, SELCAT+27, SELCAT+28
TIUT2	SELCAT+2~, SELCAT+25, SELCAT+28, SELCAT+29, SELCAT+30
TIUTSTR	SELCAT+2~, SELCAT+17, SELCAT+19, SELCAT+20*, SELCAT+21, SELCAT+23
TIUY	TYPMATCH+1~, TYPMATCH+2, TYPMATCH+3*, TYPMATCH+4
TYPE	TRAVERSE~, TRAVERSE+2*, TRAVERSE+11, TYPMATCH~, TYPMATCH+2, TYPMATCH+3
U	TRAVERSE+6, TRAVERSE+10, TRAVERSE+11, ASKSIG+3, ASKSIG+4, DOCLIST+7, DOCLIST+8, SELCAT+33, SELCAT+38, SELCAT+40 , DICLOOK+2, DICLOOK+3, GETVSIT+5, GETTERM+6, GETDIV+10, GETDIV+11
USEX	GETTERM+1~, GETTERM+5*, GETTERM+6
X	ASKSIG+2, DOCLIST+1~, DOCLIST+9, SELCAT+1~, SELCAT+11*, DICLOOK+1~, DICLOOK+5, LOOK+1~, GETVSIT+1~, GETTERM~ , GETTERM+4, GETTERM+5, GETTERM+6, MULTDIV+1~
>> X1	ASKSIG+2
XQORM	TRAVERSE+1~, TRAVERSE+3, DOCLIST+1~, DOCLIST+2, DOCLIST+3, DOCLIST+5, DOCLIST+6, SELCAT+1~, SELCAT+4*, SELCAT+6 , SELCAT+7
XQORM("A"	TRAVERSE+6, DOCLIST+10, SELCAT+12*
XQORM("B"	TRAVERSE+5, DOCLIST+8, DOCLIST+9, SELCAT+9*, SELCAT+11
XQORM("H"	TRAVERSE+4, DOCLIST+19, SELCAT+13*
XQORM("S"	DOCLIST+20, SELCAT+10
XQORM(0	TRAVERSE+3, TRAVERSE+4, TRAVERSE+6, DOCLIST+7, DOCLIST+9, DOCLIST+10, DOCLIST+11, SELCAT+8*, SELCAT+11, SELCAT+12 , SELCAT+13
Y	TRAVERSE+1~, TRAVERSE+8, ASKSIG+1~, ASKSIG+4, ASKX, ASKSUBJ+1~, ASKSUBJ+2, ASKSUBJ+3, ASKLOC+1~, ASKLOC+2 , ASKLOC+3, DOCLIST~, DOCLIST+3, SELCAT~, SELCAT+24!, SELCAT+29, SELCAT+41, DICLOOK+1~, DICLOOK+6, LOOK+1~ , LOOK+3, GETVSIT+1~, GETVSIT+3, GETVSIT+4, GETVSIT+5, GETVSIT+6, GETTERM+1~, GETTERM+4, GETTERM+6, GETTERM+7 , GETDIV+1~, GETDIV+11, GETDIV+13, GETDIV+14, MULTDIV+1~, MULTDIV+6
Y(	TRAVERSE+9, TRAVERSE+10, SELCAT+18, SELCAT+19, SELCAT+20, SELCAT+28, SELCAT+32, SELCAT+33, SELCAT+40, SELCAT+41!
Y(""	SELCAT+23
Y("VISIT"	GETVSIT+4

Customize PDF page

Package: Text Integration Utility

Routine: TIULA1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: