Routine: BTIURPT

Package	Total	Call Graph
Text Integration Utility	8	$$SELSTAT^TIULA ($$HASADDEN,$$PNAME)^TIULC1 $$CANDO^TIULP ($$CENTER,$$NAME)^TIULS EDIT^TIURA ADDEND^TIURA1 ADD^TIURC $$READ^TIUU
Registration	3	EN^VALM ($$SETSTR,CLEAR)^VALM1 FLDCTRL^VALM10
IHS Mods To Text Integration Utilities	2	$$URGENCY^BTIURPT3 ($$VALMSG,MSG)^BTIUU
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	ENP^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	6	BTIUBR BTIURPT1 BTIURPT2 BTIURPT3 BTIURPT4 BTIURS
IHS View Patient Record	1	BVPTIU

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; -- called to rebuild ^tmp and return to list template
NOTES(NOTE,DTORDER)	;EP -- creates ^tmp("tiur" to display text of notes ; -- TIUN=doc ien; DTORDER=type of date to print 1st (ref or visit)
HDR	;EP; -- set up header for IHS browse by patient templates
SET2(LINE,IEN,NEW)	; -- SUBRTN to set data line into ^tmp for text
TEXT(NOTE,LINE)	; -- sets array of note texts so user can display comments
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
HELPVIEW	;EP; -- help text for view by title or by text
VSTDX(NOT)	;EP -- returns prim dx for visit
VISIT(NOTE)	;EP; -- creates line of visit info ; NOTE=ien of document
SP(NUM)	; -- SUBRTN to pad spaces
VSTCAT(NOT)	;EP -- returns service category of visit
TITLE(USR)	; -- returns title for user
ADDEND	;EP; add addendum action from browse all menu
VSTDT(NOT)	;EP -- returns numdate of visit
HELPSORT	;EP; -- help text for ref date vs. visit date question
ADD	;EP; add action from browse all menu
SRV(NOTE)	;EP; -- returns service of note based on visit
DATE(N,O,NOTE)	; -- returns readable date
UNSIG(NOTE,STATUS)	;EP; -- returns unsigned note message
ADDSRV(NOTE)	;EP -- returns 1 if okay to add service to doc title
EDIT	;EP; edit action from browse all menu
VST(NOT)	; -- returns ien for visit
DOCNM()	; -- returns formatted document name
MAIN	;PEP -- main driver
AUTHOR(NOTE)	; -- returns author name and class
REBUILD(SORT,RTN)	;EP -- sets variables for rebuild after action performed

External References

Name	Field # of Occurrence
$$URGENCY^BTIURPT3	DOCNM+6
$$VALMSG^BTIUU	RESET+9
MSG^BTIUU	MAIN+9, HELPVIEW+1, HELPVIEW+2, HELPVIEW+3, HELPVIEW+4, HELPVIEW+5, HELPSORT+1, HELPSORT+2, HELPSORT+3, HELPSORT+4 , HELPSORT+5, RESET+3
$$GET1^DIQ	HDR+3, VISIT+3, TEXT+5, VST+1, VSTDT+1, VSTCAT+1, VSTDX+4, VSTDX+5, DOCNM+4, SRV+3 , SRV+6, SRV+7, SRV+11, SRV+12, ADDSRV+2, ADDSRV+3, AUTHOR+1, TITLE+3, TITLE+4
$$SELSTAT^TIULA	REBUILD+2
$$HASADDEN^TIULC1	DOCNM+5
$$PNAME^TIULC1	DOCNM+2
$$CANDO^TIULP	TEXT+8
$$CENTER^TIULS	HDR+4
$$NAME^TIULS	NOTES+7, NOTES+9
EDIT^TIURA	EDIT+1
ADDEND^TIURA1	ADDEND+1
ADD^TIURC	ADD+4
$$READ^TIUU	MAIN+6, MAIN+10
EN^VALM	MAIN+14
$$SETSTR^VALM1	HDR+6
CLEAR^VALM1	ADD+4
FLDCTRL^VALM10	SET2+5, SET2+6
ENP^XBDIQ1	VISIT+4, NOTES+3
$$FMTE^XLFDT	HDR+2, DATE+2, VSTDT+1
$$REPEAT^XLFSTR	TEXT+14, PAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^TIU(8925 - [#8925]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	GET1^DIQ
^USR(8930.3 - [#8930.3]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVINP - [#9000010.02]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	SRV+10
^AUPNVPOV("AD"	VSTDX+3
^TIU(8925 - [#8925]	TEXT+12, TEXT+13, DOCNM+5
^TMP("TIUR"	HDR+5, SET2+3, SET2+4
^USR(8930.3 - [#8930.3]	TITLE+2

Label References

Name	Line Occurrences
$$ADDSRV	SRV+2
$$AUTHOR	UNSIG+1
$$DATE	NOTES+4, NOTES+5
$$DOCNM	NOTES+6
$$PAD	NOTES+4, NOTES+5, NOTES+6, NOTES+7, NOTES+9, SP+1
$$SP	TEXT+9, SET2+2, UNSIG+1
$$TITLE	AUTHOR+1
$$UNSIG	TEXT+6
$$VST	VSTDT+1, VSTCAT+1, VSTDX+2
$$VSTCAT	VSTDX+4
$$VSTDT	DATE+3
@(	REBUILD+7
HDR	RESET+9
REBUILD	RESET+4, RESET+5, RESET+6, RESET+7, RESET+8
RESET	EDIT+1, ADD+1, ADD+4, ADDEND+1
SET2	TEXT+2, TEXT+6, TEXT+10, TEXT+13, TEXT+14, TEXT+15
TEXT	NOTES+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDOK	SRV+1~, SRV+2*, SRV+11
>> AUPNPAT	HDR+3
BTIURPT	EDIT+1~, ADD+2~, ADDEND+1~*
DATA	PAD~, PAD+1
>> DFN	ADD+1, RESET+1*, RESET+4, RESET+5, RESET+6, RESET+7, RESET+8
DOC	DOCNM+1~, DOCNM+2, DOCNM+3, DOCNM+4, DOCNM+5, DOCNM+7, DOCNM+8
DOCS	HDR+1~, HDR+5*, HDR+6
DTORDER	NOTES~, NOTES+4, NOTES+5
IEN	SET2~, SET2+4
IFN	TITLE+1~, TITLE+2*, TITLE+3, TITLE+4
>> IOINHI	SET2+5, SET2+6, UNSIG+1
>> IOINORM	SET2+5, SET2+6, UNSIG+1
IOM	HDR+6
LENGTH	PAD~, PAD+1
LINE	NOTES+2~, NOTES+4, NOTES+5, NOTES+6, NOTES+7, NOTES+8, NOTES+9, NOTES+10*, NOTES+11, TEXT~ , TEXT+2, SET2~, SET2+3
N	DATE~, DATE+1
NAME	HDR+1~, HDR+3*, HDR+4
NEW	SET2~, SET2+2, SET2+5, SET2+6
NOT	VST~, VST+1, VSTDT~, VSTDT+1, VSTCAT~, VSTCAT+1, VSTDX~, VSTDX+2, VSTDX+4
NOTE	VISIT~, VISIT+3, NOTES~, NOTES+3, NOTES+4, NOTES+5, NOTES+11, TEXT~, TEXT+2, TEXT+5 , TEXT+6, TEXT+8, TEXT+10, TEXT+12, TEXT+13, TEXT+14, TEXT+15, DATE~, DATE+3, DOCNM+5 , DOCNM+6, SRV~, SRV+2, SRV+3, ADDSRV~, ADDSRV+2, UNSIG~, UNSIG+1, AUTHOR~, AUTHOR+1
NUM	SET2+2*, SET2+3, SP~, SP+1
O	DATE~, DATE+1*, DATE+2, DATE+3
RANGE	HDR+1~, HDR+2*, HDR+4
RTN	REBUILD~, REBUILD+6
SCREEN	REBUILD+1~, REBUILD+4*
SCREEN(1	REBUILD+4*
SORT	REBUILD~, REBUILD+4
SRV	SRV+1~, SRV+6, SRV+7, SRV+11, SRV+12
STATUS	REBUILD+1~, REBUILD+2*, REBUILD+3, UNSIG~, UNSIG+1
TITLE	TITLE+1~, TITLE+2, TITLE+4*, TITLE+5
>> TIUCLASS	RESET+2, RESET+8
>> TIUCNT	SET2+2, SET2+4
TIUEDT	MAIN+15!, HDR+2
TIULDT	MAIN+15!, HDR+2
>> TIUP	DOCNM+6*, DOCNM+7
>> TIUSTAT	REBUILD+2
TIUV	VSTDX+1~, VSTDX+2*, VSTDX+3
TIUX	VSTDX+1~, VSTDX+2, VSTDX+3, VSTDX+4, VSTDX+5
TIUZ	VSTDX+1~, VSTDX+3, VSTDX+5*, VSTDX+6
TIUZCNT	MAIN+15!
TIUZIHS	MAIN+15!, HDR+3, ADD+1*, RESET+1
TIUZLN	MAIN+15!, SET2+1*, SET2+3, SET2+4, SET2+5, SET2+6
TIUZLT	MAIN+4~, MAIN+13*, MAIN+14, RESET+4, RESET+5, RESET+6, RESET+7, RESET+8
TIUZSORT	MAIN+4~, MAIN+10*, MAIN+13
TIUZVIEW	MAIN+4~, MAIN+6*, MAIN+13
TIUZZ	VISIT+2~, NOTES+2~
TIUZZ(	NOTES+10, DOCNM+2, DOCNM+4
TIUZZ(1202	NOTES+7
TIUZZ(1208	NOTES+8, NOTES+9
TIUZZ(1301	DATE+2
TYP	NOTES+2~
USR	TITLE~, TITLE+2
>> VALMBCK	RESET+1, RESET+9
VALMHDR	HDR+1!
VALMHDR(1	HDR+4, HDR+6
>> VALMQUIT	REBUILD+3*
>> VALMSG	RESET+9*
VALMY	RESET+2!
VST	VISIT+2~, VISIT+3, VISIT+4, SRV+1~, SRV+3, SRV+6, SRV+10
X	REBUILD+1~, REBUILD+6, REBUILD+7, TEXT+1~, TEXT+5, TEXT+6, TEXT+9, TEXT+10, TEXT+12, TEXT+13 , SRV+1~, SRV+10, SRV+11, ADDSRV+1~, ADDSRV+2, ADDSRV+3

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIURPT

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: