Routine: TIUU

Information

TIUU ; SLC/JER - Utility subroutines for Discharge Summary ;9/7/94 16:37

Source file <TIUU.m>

Package	Total	Caller Graph
Text Integration Utility	113	TIU MISSING TEXT CLEAN TIU MISSING TEXT NODE TIUADCL TIUADCL1 TIUADD TIUALFUN TIUALRT TIUALRT1 TIUALSET TIUAPIOK TIUASRPT TIUAUDIT TIUBR1 TIUBRWS TIUCHLP TIUCNFIX TIUCNSLT TIUDAEN TIUDPEDT TIUDSCN1 TIUDSCNV TIUE246 TIUEDI1 TIUEDI2 TIUEDI3 TIUEDI4 TIUEDIT TIUEDIU TIUELST TIUEN169 TIUEPRNT TIUFIX TIUFXHLX TIUGEDI1 TIUGEDIT TIUGR TIUGR1 TIUGR2 TIUHELP TIUHL7 TIUHL7A TIUHL7U2 TIULA TIULA1 TIULA2 TIULA3 TIULA4 TIULD TIULG TIULP1 TIULX TIUMAP TIUMAP1 TIUMAP2 TIUMLIST TIUP134 TIUP188 TIUPEDSP TIUPEVN1 TIUPEVNT TIUPLST TIUPNAPI TIUPNCV4 TIUPNCVU TIUPR200 TIUPRCN TIUPRDS2 TIUPRF1 TIUPRPN3 TIUPRPN4 TIUPRPN5 TIUPRPN7 TIUPS14 TIUPS169 TIUPUTA TIUPUTCP TIUPUTS TIUPUTSX TIUPXAP2 TIUPXAPC TIUPXAPI TIUPXAPS TIUR2 TIURA TIURA1 TIURA2 TIURA3 TIURB TIURB1 TIURB2 TIURB3 TIURC TIURC1 TIURD TIURD1 TIURD2 TIURD3 TIURDIV TIURE TIURHX TIUROR TIURS TIURS1 TIURT TIURVBC TIUSROI TIUSROI1 TIUSUPN TIUSUPN1 TIUT TIUUPLD TIUVSIT TIUVSIT1
IHS Mods To Text Integration Utilities	16	BTIUCHLP BTIUDOC BTIUDSC BTIUED BTIUEDIT BTIUHELP BTIUICL BTIULD BTIUP13 BTIUPLST BTIUPREF BTIURPT BTIURS BTIUU1 BTIUUPL BTIUVSIT
Order Entry Results Reporting	1	ORCNOTE

Name	Comments	DBIA/ICR reference
STOPX
UPDATE	; Updates fields in review screen ; Receives: X=new value of field ; FLD=name of field to be modified
JUSTIFY(X,JUST)	; Justifies Text ; Receives: X=text to be justified ; JUST="L" --> left, "C" --> center, "R" --> right, ; "J" --> justified to WIDTH ; WIDTH=justification width (when JUST="j"
STOP(PROMPT,SCROLL)	; Call DIR at bottom of screen
LISTREAD(TIULIST,ANSTYPE)	; Present list to user for selection of item(s)
TITLE(X)	; Pads titles ; Recieves: X=title to be padded
READX
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN)	; Calls reader, returns response

Name	Line Occurrences
Function Call: WRITE	Prompt: ?((80-$L(X))/2),X Line Location: JUSTIFY+5
Function Call: WRITE	Prompt: X,!! Line Location: JUSTIFY+6
Function Call: WRITE	Prompt: ?(80-$L(X)),X Line Location: JUSTIFY+7
Function Call: WRITE	Prompt: ! Line Location: STOP+3
Function Call: WRITE	Prompt: !,TIUI,?5,$P(TIULIST(TIUI),U,2) Line Location: LISTREAD+4
Function Call: WRITE	Prompt: ! Line Location: LISTREAD+6
Routine Call	DIR Line Location: STOP+6 READ+7

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIUVIEW"	UPDATE+3, UPDATE+4*

Name	Field # of Occurrence
ANSTYPE	LISTREAD~, LISTREAD+2*, LISTREAD+7
DEFAULT	READ~, READ+5
DIR	STOP+1~, READ+1~
DIR("?"	STOP+5, READ+6
DIR("A"	STOP+4, READ+4
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	STOP+4, READ+2
DIRUT	STOP+6!
>> DTOUT	STOP+7
HELP	READ~, READ+6
I	TITLE+2~, TITLE+3*
IOSL	STOP+3
IOST	STOP+2
JUST	JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7
PROMPT	STOP~, STOP+4, READ~, READ+4
SCREEN	READ~, READ+3
SCROLL	STOP~, STOP+3
TITLE	TITLE+2~, TITLE+3*, TITLE+4
>> TIUDA	UPDATE+3, UPDATE+4
TIUI	LISTREAD+1~, LISTREAD+3, LISTREAD+4
TIUL	LISTREAD+1~, LISTREAD+4*, LISTREAD+5, LISTREAD+7
TIULIST	LISTREAD~, LISTREAD+7
TIULIST(	LISTREAD+3, LISTREAD+4, LISTREAD+8
TIUY	LISTREAD+1~, LISTREAD+7, LISTREAD+8*, LISTREAD+9
TYPE	READ~, READ+2
U	STOP+7, READ+9, UPDATE+4, LISTREAD+4, LISTREAD+7
X	TITLE~, TITLE+3, JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7, STOP+1~, READ+1~, READ+8
Y	STOP+1~, STOP+2, STOP+6, STOP+7, STOPX, READ+1~, READ+8, READ+9, READX
Y(0	READ+9