Routine: TIUDTBP0

Information

TIUDTBP0 ;AITC/CR/SGM - BOOKMARK TIU NOTE AFTER DOWNTIME ;8/20/18 4:02pm

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	;

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