Routine: TIUFIX

Information

TIUFIX ; SLC/JER,MAM - Resolve Upload Filing Errors Library ;10/19/06 14:31

Source file <TIUFIX.m>

Package	Total	Call Graph
Text Integration Utility	4	$$ASKTYP^TIULA2 $$PNAME^TIULC1 $$ISA^TIULX $$READ^TIUU
VA Fileman	1	^DIC

Package	Total	Caller Graph
Text Integration Utility	3	TIUCNFIX TIUPFFIX TIUPNFIX

Name	Comments	DBIA/ICR reference
ASKX
ISTYPEX
ASKCHNG(ONEORTWO,TIUTYPE)	; Ask user if they want to change doc type
TITLDFLT(TRANTITL,TIUTYPE,BADTYPES)	; Return default title ; Call with: [TRANTITL] - transcribed title ; [TIUTYPE] - type of docmt being uploaded ; [BADTYPES] - ^-delimited string of types default ; should NOT be (optional) ; Returns: Title - transcribed title if TRANTITL is a ; unique TITLE of type TIUTYPE and ; not of a type in list BADTYPES. ; Null Otherwise
ISTYPE(TITLDA,TYPELIST)	; Is TITLDA in list TYPELIST? ; Requires TITLDA ; Requires TYPELIST of form typeien^typeien^typeien etc., or null
GETTITLE(SUCCESS,TIUTYPE,TIUFLDS,TITLDA,BADTYPES,ASK)	; Get title from user ; SUCCESS - Passed back ; TIUTYPE - Type of docmt being uploaded ; TIUFLDS - Array of transcribed data, as set in LOADHDR^TIUFIX2 ; TITLDA - Gotten from user and passed back ; BADTYPES - ^-delimited list of types title CANNOT be (optional) ; ASK - Flag to ask user if they want to change ; type to progress note (optional)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Please enter a ",$$PNAME^TIULC1(+TIUTYPE)," title" Line Location: GETTITLE+13
Function Call: WRITE	Prompt: "." Line Location: GETTITLE+14
Function Call: WRITE	Prompt: ", or enter '^' to exit",!,"or to change document to a Progress Note." Line Location: GETTITLE+15
Function Call: WRITE	Prompt: !,"Title is Required.",! Line Location: GETTITLE+21
Function Call: WRITE	Prompt: !," OK, please enter a ",TYPENM," title." Line Location: GETTITLE+28
Routine Call	DIC Line Location: TITLDFLT+11 TITLDFLT+12

Name	Field # of Occurrence
ANS	ISTYPE+3~, ISTYPE+4, ISTYPE+5, ISTYPE+6, ISTYPEX, ASKCHNG+4~, ASKCHNG+9*, ASKCHNG+10, ASKX
ASK	GETTITLE~, GETTITLE+14, GETTITLE+15, GETTITLE+19
BADTYPES	TITLDFLT~, TITLDFLT+17, GETTITLE~, GETTITLE+10
DEFAULT	GETTITLE+8~, GETTITLE+10*, GETTITLE+17, GETTITLE+29
DIC	TITLDFLT+9~, TITLDFLT+10*
DIC("S"	TITLDFLT+11*
DIC(0	TITLDFLT+10*
DIRUT	GETTITLE+23!, GETTITLE+25
HELP	ASKCHNG+4~, ASKCHNG+5, ASKCHNG+6, ASKCHNG+7, ASKCHNG+8, ASKCHNG+9
HELP1	ASKCHNG+4~, ASKCHNG+6*, ASKCHNG+8
HELP2	ASKCHNG+4~, ASKCHNG+7*, ASKCHNG+8
ONEORTWO	ASKCHNG~, ASKCHNG+8
SCREEN	GETTITLE+8~, GETTITLE+11*, GETTITLE+17, GETTITLE+29
SUCCESS	GETTITLE~, GETTITLE+9, GETTITLE+18, GETTITLE+30*
TITLDA	TITLDFLT+9~, TITLDFLT+13, TITLDFLT+16, TITLDFLT+17, ISTYPE~, ISTYPE+6, GETTITLE~, GETTITLE+17, GETTITLE+18, GETTITLE+20 , GETTITLE+29*, GETTITLE+30
TITLE	TITLDFLT+9~, TITLDFLT+14, TITLDFLT+16, TITLDFLT+17*, TITLDFLT+18
TIUFLDS	GETTITLE~
TIUFLDS(	GETTITLE+10
TIUI	ISTYPE+3~, ISTYPE+5*
TIUTYPE	TITLDFLT~, TITLDFLT+16, GETTITLE~, GETTITLE+10, GETTITLE+12, GETTITLE+13, GETTITLE+17, GETTITLE+23, GETTITLE+26, GETTITLE+29 , ASKCHNG~, ASKCHNG+10*
TRANTITL	TITLDFLT~, TITLDFLT+11
TYPE	ISTYPE+3~, ISTYPE+5*, ISTYPE+6
TYPELIST	ISTYPE~, ISTYPE+5
TYPENM	GETTITLE+8~, GETTITLE+12*, GETTITLE+28
U	TITLDFLT+14, ISTYPE+5
X	TITLDFLT+9~, TITLDFLT+11*
Y	TITLDFLT+9~, TITLDFLT+13, TITLDFLT+14, GETTITLE+8~, GETTITLE+23*