Routine: TIUDTBP0

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL (,$$FIND1)^DIC $$GET1^DIQ ^DIR
Kernel	3	($$DOW,$$FMADD,$$FMTE,$$NOW)^XLFDT ($$CJ,$$RJ,$$UP)^XLFSTR $$NAME^XUSER
Text Integration Utility	2	START^TIUDTBPN $$CNTDIV^TIUUTL2
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Text Integration Utility	1	TIUDTBPN

Entry Points

Name	Comments	DBIA/ICR reference
DIC(LIN)	; extrinsic function ; return -2:timeout, -1:'^'-out, null/selection ; this calls returns the value of X
DICALL()	;
DIC31()	; ; Called from ^DIC("S"), naked is set and Y is ien ; Expects TIUD("TIMS") & TIUD("TIME") ; If no date range, default to T @0000 - @2400 ; "I" node is inactive_dt^reactivated_dt ; Do not allow selection of a clinic more than once ; Return 1 if clinic is allowed
DIR(LIN)	; extrinsic function ; call returns the value of X ; -3:timeout, -2:'^'-out, null or value
DIRCALL()	;
DIRTIM(Y)
DIT(L)	;
DIVISION()	; ; if only one inpatient division, don't ask ; VAUTOMA returns: Y=-1 or Y=1 ; VAUTD = 0:if divisions selected ; 1:if selected "ALL" divisions ; TIUD("DIV")= 0:if multiple divisions selected ; 1:if there is only one division ; 2:all divisions ; TIUD("DIV",ien)=division name, only if TIUD("DIV")=0
FIND1(FILE,IEN,FLG,VAL,IDX,SCR)	;
GET1(FILE,IEN,FLD,FLG)	;
TEST	; programmer testing
SAVE	; save local and global variables to ^XTMP
TEXT(TAG,WR,LF,CLR,PAD,CHR,TIUR)	; ; TAG - line label containing the text ; all groups of text should end with ' ;;---' ; WR - Boolean, write or do not write ; LF - 0:no extra line feeds; 1:leading line feed; 2:trailing feed ; CLR - Boolean, clear screen first ; PAD - number of spaces begin each line with ; If PAD="" then default to 3. If PAD=0 then no padding ; CHR - for center justify, character to pad line, default is space
T1	;
T2	;
T3	;
T4	;
T5	;
T61	;
T62	;
T7	;
T8	;
T9	;
T10	;
T11	;
T12	;
T13	;
T14	;
T15	;
T16	;
T17	;

External References

Name	Field # of Occurrence
EN^DDIOL	DIR+68
^DIC	DICALL+2
$$FIND1^DIC	FIND1+5
$$GET1^DIQ	GET1+5
^DIR	DIRCALL+2
START^TIUDTBPN	TEST+2
$$CNTDIV^TIUUTL2	DIVISION+10
DIVISION^VAUTOMA	DIVISION+11
$$DOW^XLFDT	DIRTIM
$$FMADD^XLFDT	SAVE+2
$$FMTE^XLFDT	DIR+35, DIRTIM
$$NOW^XLFDT	DIR+14, DIR+23, SAVE+5
$$CJ^XLFSTR	TEXT+20
$$RJ^XLFSTR	TEXT+21
$$UP^XLFSTR	DIC+26
$$NAME^XUSER	DIC+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIRCALL+2
Function Call: WRITE	Prompt: @IOF Condition for execution: CLR Line Location: TEXT+26
Function Call: WRITE	Prompt: ! Condition for execution: LF[1 Line Location: TEXT+26
Function Call: WRITE	Prompt: !,TIUR(Y) Line Location: TEXT+26
Function Call: WRITE	Prompt: ! Line Location: TEXT+26
Routine Call	DIC Line Location: DICALL+2
Routine Call	DIC Line Location: FIND1+5
Routine Call	DIR Line Location: DIRCALL+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIUDT"	DIR+63
^XTMP("TIUDTBP0"	SAVE+3

Label References

Name	Line Occurrences
$$DICALL	DIC+9, DIC+27, DIC+41, DIC+55
$$DIRCALL	DIR+7, DIR+16, DIR+26, DIR+34, DIR+48, DIR+57, DIR+70, DIR+75, DIR+83
$$DIRTIM	DIR+17, DIR+27
$$DIT	DIR+56
$$FIND1	DIC+18, DIC+19
TEXT	DIC+6, DIC+22, DIC+49, DIR+40, DIR+65, DIR+79, DIVISION+11

Naked Globals

Name	Field # of Occurrence
^("I"	DIC31+10
^(0	SAVE+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHR	TEXT~, TEXT+13*, TEXT+20, TEXT+21
CLR	TEXT~, TEXT+12*, TEXT+26
D0	DICALL+1~
DA	DICALL+1~, GET1+1~
DIC	DIC+3~, DIC+7, DIC+24, DIC+40!, DIC+54!, GET1+1~
DIC("A"	DIC+22, DIC+25
DIC("B"	DIC+26*
DIC("S"	DIC+8, DIC+15, DIC+21*
DIC(0	DIC+7, DIC+24
DIERR	FIND1+1~, FIND1+6, GET1+1~, GET1+6
DIR	DIR+3~
DIR("?"	DIR+46, DIR+47, DIR+81*
DIR("A"	DIR+6, DIR+15, DIR+25, DIR+32, DIR+44, DIR+45, DIR+56, DIR+69, DIR+74, DIR+82
DIR("B"	DIR+33, DIR+69, DIR+73, DIR+80
DIR(0	DIR+5, DIR+14, DIR+24, DIR+31, DIR+43, DIR+56, DIR+69, DIR+73, DIR+80*
DIROUT	DIR+3~, DIRCALL+1~
DIRUT	DIR+3~, DIRCALL+1~
DT	DIC31+8, SAVE+2
DTOUT	DIC+3~, DICALL+1~, DICALL+2, DIR+3~, DIRCALL+1~, DIRCALL+2
DUOUT	DIC+3~, DICALL+1~, DICALL+2, DIR+3~, DIRCALL+1~, DIRCALL+2
DUZ	DIC+26, DIC+58, SAVE+8
ED	DIC31+7~, DIC31+9*, DIC31+15
ED(0	DIC31+11*, DIC31+16, DIC31+17
EFORM	TEST+1~*
ERRON	TEST+1~*
EVENT	DIC+17~, DIC+19*, DIC+20
FILE	FIND1~, FIND1+2, FIND1+4, FIND1+5, GET1~, GET1+2, GET1+4, GET1+5
FLD	GET1~, GET1+2*, GET1+4, GET1+5
FLG	FIND1~, FIND1+2, FIND1+3, FIND1+5, GET1~, GET1+2*, GET1+5
FMT	TEXT+11~, TEXT+18, TEXT+19, TEXT+20, TEXT+21, TEXT+22, TEXT+24
GL	SAVE+1~, SAVE+3*, SAVE+4, SAVE+5, SAVE+6, SAVE+7, SAVE+8, SAVE+9
>> GLT	SAVE+9
GLX	DIR+62~, DIR+63*, DIR+64, DIR+66, DIR+67, DIR+68
I	DIC+3~, DIR+47, DIR+62~, DIR+66, DIR+67, DIVISION+9~, FIND1+1~, GET1+1~, SAVE+1~, SAVE+4 , SAVE+5, SAVE+6, SAVE+7, SAVE+8, SAVE+9, TEXT+11~, TEXT+17, TEXT+18, TEXT+23, TEXT+24* , TEXT+26
IDX	FIND1~, FIND1+5
IEN	FIND1~, FIND1+2, FIND1+5, GET1~, GET1+2, GET1+3*, GET1+4, GET1+5
INC	DIC+33~, DIC+39, DIC+42, DIC+48~, DIC+53, DIC+56
IOF	TEXT+26
IOM	TEXT+15
J	DIR+62~, TEXT+11~, TEXT+17*
L	DIT~
LAB	DIC+3~
LEN	TEXT+11~, TEXT+15*, TEXT+16, TEXT+20, TEXT+21
LF	TEXT~, TEXT+12*, TEXT+26
LIN	DIC~, DIC+4, DIC+12, DIC+30, DIC+46, DIR~, DIR+4, DIR+12, DIR+20, DIR+30 , DIR+38, DIR+51, DIR+60, DIR+72, DIR+77
LN	DIR+62~, DIR+66, DIR+67
MAX	DIR+21~, DIR+22, DIR+23, DIR+24
MIN	DIR+21~, DIR+22, DIR+23, DIR+24
NOKILL	TEST+1~*
PAD	TEXT~, TEXT+14*, TEXT+22
SCR	FIND1~, FIND1+5
SP	TEXT+11~, TEXT+16*, TEXT+22
ST	DIC31+7~, DIC31+8*, DIC31+9, DIC31+16, DIC31+17
ST(0	DIC31+11*, DIC31+13, DIC31+14, DIC31+15, DIC31+16
STAT	DIC+17~, DIC+18*, DIC+19, DIC+20
TAG	TEXT~, TEXT+12*
>> TEXT(3	DIR+67
>> TIUD	SAVE+6
>> TIUD("CLSEL"	DIC+32, DIC+41, DIC+44, DIC31+12, DIR+49
>> TIUD("DIV"	DIVISION+10, DIVISION+14
>> TIUD("MAIL"	DIC+55, DIC+58
>> TIUD("NOTEDT"	DIR+35*, DIR+64
>> TIUD("SCH"	DIR+8*
>> TIUD("SIGN"	DIC+27*
>> TIUD("TIME"	DIC+36, DIC31+9, DIR+27*
>> TIUD("TIMS"	DIC+36, DIC31+8, DIR+13, DIR+17*, DIR+22, DIR+23
>> TIUD("TITLE"	DIC+9*, DIC+20
>> TIUD("TYPE"	DIC+16, DIR+53, DIR+57
TIUDIC	DIC+33~, DIC+34, DIC+40, DIC+48~, DIC+50, DIC+54
TIUDIC("A"	DIC+35, DIC+42, DIC+56*
TIUDIC("S"	DIC+37, DIC+52
TIUDIC(0	DIC+34, DIC+50
TIUER	FIND1+1~, GET1+1~
TIUR	DIR+39~, DIR+40, TEXT~
TIUR(	DIR+47, TEXT+23, TEXT+24, TEXT+26
TIUR(6	DIR+46
TIUX	DIR+78~, DIR+79, DIR+81
TX	DIC+17~, DIC+22, DIR+62~, DIR+65
TX(	DIR+66
U	DIC+9, DIC+27, DIC+41, DIC+55, DIC31+11, SAVE+2, SAVE+4
VAL	FIND1~, FIND1+2*, FIND1+4, FIND1+5
VAUTD	DIVISION+9~, DIVISION+12, DIVISION+13*, DIVISION+14
WR	TEXT~, TEXT+12*, TEXT+26
X	DIC+3~, DIC+10, DIC+17~, DIC+20, DIC+21, DIC+28, DIC+32, DIC+36, DIC+44, DIC+51* , DIC+52, DIC+58, DIC+60, DICALL+1~, DIR+3~, DIR+7, DIR+10, DIR+13, DIR+16, DIR+18 , DIR+22, DIR+26, DIR+28, DIR+36, DIR+42, DIR+43, DIR+48, DIR+49, DIR+53, DIR+58* , DIR+70, DIR+75, DIR+83, DIR+85, DIRCALL+1~, DIVISION+9~, FIND1+1~, GET1+1~, GET1+5, GET1+6* , GET1+7, SAVE+1~, SAVE+2, SAVE+4, TEXT+11~, TEXT+17, TEXT+18, TEXT+19, TEXT+20, TEXT+21 , TEXT+22*, TEXT+23
Y	DIC+3~, DIC+9, DIC+10, DIC+17~, DIC+27, DIC+28, DIC+36, DIC+39, DIC+41, DIC+53* , DIC+55, DIC+58, DICALL+1~, DICALL+2, DICALL+3, DIC31+12, DIR+3~, DIR+7, DIR+8, DIR+10 , DIR+16, DIR+17, DIR+18, DIR+26, DIR+27, DIR+28, DIR+34, DIR+35, DIR+36, DIR+48* , DIR+49, DIR+57, DIR+58, DIRCALL+1~, DIRCALL+2, DIRCALL+3, DIRTIM~, DIVISION+9~, DIVISION+12, FIND1+1~ , FIND1+5, FIND1+6, FIND1+7, GET1+1~, TEXT+11~, TEXT+26*
Z	DIC31+7~, DIC31+10, DIC31+11, DIC31+12, DIC31+13, DIC31+15, DIC31+16, DIC31+17, DIC31+18*, DIC31+20
>> ZTSK	SAVE+7

Marked Items

Name	Field # of Occurrence
$T(@TAG+J	TEXT+17
$T(DIT+L	DIT+3

Customize PDF page

Package: Text Integration Utility

Routine: TIUDTBP0

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items