Routine: BTIURPT2

Information

BTIURPT2 ; IHS/ITSC/LJF - Review documents by Visit Date ;

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Text Integration Utility	5	($$EDATE,$$LDATE,$$PATIENT,$$SELSTAT)^TIULA ($$HASADDEN,$$PNAME,DOCPRM)^TIULC1 ($$PERSPRF,SETPARM)^TIULE ($$DATE,$$LOWER,$$NAME,$$UPPER)^TIULS HDR^TIURH
Registration	2	$$SETFLD^VALM1 (CLEAN,CNTRL,FLDCTRL,RESTORE)^VALM10
VA Fileman	2	$$GET1^DIQ EN^DIQ1
Authorization Subscription	1	$$ISA^USRLM
IHS Mods To Text Integration Utilities	1	($$VSTCAT,$$VSTDT,$$VSTDX)^BTIURPT
Kernel	1	$$UP^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
STATUS
GATHER(TIUI,TIUPREF,CLASS)	; Find/sort records for the list
DFLTX
PATIENT	; Select Patient
CLEAN	; Clean up your mess!
DFLTSTAT(USER)	; Set default STATUS for current user
URGENCY(TIUDA)	; What is the urgency of the current document
SCREEN	;
ERLY	;S TIUEDFLT=$S(TIUCLASS=3:"T-2",TIUCLASS=244:"T-30",1:"T-7") ;original VA
DOCTYPE	; Select Document Type(s)
CHECKADD(TYPES)	; Checks whether Addendum is included in the list of types
DADINTYP(TIUDA,TYPES)	; Evaluates whether addendum's parent belongs is among ; the selected types
VSTDX()	; -- returns prim dx for visit
BUILD(STATUS,TYPES,SCREEN,EARLY,LATE)	; Build List
MAKELIST(TIUCLASS)	; Get Search Criteria
VSTDT()	; -- returns numdate of visit
RESOLVE(DA,DR)	; Call DIQ1 to resolve field values
ADDELMNT(DA,TIUCNT,APPEND)	; Add each element to the list
PUTLIST(TIUPREF)	; Expands list elements for LM Template
VSTCAT()	; -- returns service category of visit

External References

Name	Field # of Occurrence
$$VSTCAT^BTIURPT	VSTCAT+1
$$VSTDT^BTIURPT	VSTDT+1
$$VSTDX^BTIURPT	VSTDX+1
$$GET1^DIQ	RESOLVE+1
EN^DIQ1	RESOLVE+4, ADDELMNT+5
$$EDATE^TIULA	ERLY+3
$$LDATE^TIULA	ERLY+7
$$PATIENT^TIULA	PATIENT+3
$$SELSTAT^TIULA	STATUS
$$HASADDEN^TIULC1	ADDELMNT+9
$$PNAME^TIULC1	ADDELMNT+6, ADDELMNT+7
DOCPRM^TIULC1	DFLTSTAT+1
$$PERSPRF^TIULE	BUILD+3
SETPARM^TIULE	BUILD+5
$$DATE^TIULS	ADDELMNT+14, ADDELMNT+15, ADDELMNT+18, ADDELMNT+20
$$LOWER^TIULS	ADDELMNT+23
$$NAME^TIULS	ADDELMNT+8, ADDELMNT+16, ADDELMNT+17
$$UPPER^TIULS	BUILD+10, GATHER+14, PUTLIST+7, PUTLIST+9
HDR^TIURH	PUTLIST+17, ADDELMNT+47, ADDELMNT+51
$$ISA^USRLM	DFLTSTAT+2, DFLTSTAT+4
$$SETFLD^VALM1	ADDELMNT+22, ADDELMNT+23, ADDELMNT+30, ADDELMNT+31, ADDELMNT+34, ADDELMNT+35, ADDELMNT+36, ADDELMNT+37, ADDELMNT+38
CLEAN^VALM10	CLEAN+1
CNTRL^VALM10	ADDELMNT+47
FLDCTRL^VALM10	ADDELMNT+44
RESTORE^VALM10	ADDELMNT+46
$$UP^XLFSTR	CHECKADD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching for the documents." Line Location: ERLY+10
Function Call: WRITE	Prompt: "." Line Location: ADDELMNT+42

FileNo	Call Tags
^TIU(8925 - [#8925]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ADDELMNT+12
^ORD(101 - [#101]	PUTLIST+3
^TIU(8925 - [#8925]	BUILD+13, BUILD+14, GATHER+16, GATHER+18, DADINTYP+3, RESOLVE+3, ADDELMNT+7, ADDELMNT+9, URGENCY+2
^TIU(8925.1 - [#8925.1]	GATHER+10
^TIU(8925.6 - [#8925.6]	GATHER+14
^TMP("TIUI"	BUILD+4!, GATHER+21*, PUTLIST+4, PUTLIST+5, PUTLIST+6
^TMP("TIUR"	BUILD+4!, BUILD+16, PUTLIST+11, PUTLIST+14, PUTLIST+15, PUTLIST+16, PUTLIST+19, PUTLIST+20, ADDELMNT+2, ADDELMNT+3 , ADDELMNT+41, ADDELMNT+42, ADDELMNT+49, ADDELMNT+50, CLEAN+1!
^TMP("TIURIDX"	BUILD+4!, ADDELMNT+43*, CLEAN+1!
^VA(200 - [#200]	SCREEN+2

Label References

Name	Line Occurrences
$$RESOLVE	GATHER+20
$$URGENCY	ADDELMNT+10
$$VSTCAT	ADDELMNT+37
$$VSTDT	ADDELMNT+36
$$VSTDX	ADDELMNT+38
ADDELMNT	PUTLIST+6
BUILD	ERLY+11
DFLTX	DFLTSTAT+3, DFLTSTAT+4
ERLY	ERLY+9
GATHER	BUILD+11, BUILD+14
PUTLIST	BUILD+15
SCREEN	ERLY+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADT	ADDELMNT+1~, ADDELMNT+14*
AMD	ADDELMNT+1~, ADDELMNT+16*, ADDELMNT+31
APPEND	ADDELMNT~, ADDELMNT+45
AUT	ADDELMNT+1~, ADDELMNT+17*, ADDELMNT+30
CLASS	GATHER~
DA	RESOLVE~, RESOLVE+1, RESOLVE+3, RESOLVE+6, ADDELMNT~, ADDELMNT+6, ADDELMNT+7, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10 , ADDELMNT+12, ADDELMNT+13, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19, ADDELMNT+23, ADDELMNT+43 , VSTDT+1, VSTCAT+1, VSTDX+1
DDT	ADDELMNT+1~, ADDELMNT+15*
DFN	PATIENT+2!, PATIENT+3, PATIENT+4, SCREEN+4
DIC	RESOLVE+2~, ADDELMNT+1~, ADDELMNT+4
DIQ	RESOLVE+2~, ADDELMNT+1~, ADDELMNT+4
DIQ(0	RESOLVE+2, ADDELMNT+4
>> DIROUT	ERLY+4, ERLY+8
>> DOC	ADDELMNT+6, ADDELMNT+7, ADDELMNT+34
DR	RESOLVE~, RESOLVE+1, RESOLVE+3, RESOLVE+6, ADDELMNT+1~, ADDELMNT+5
DUZ	SCREEN+2, BUILD+3, DFLTSTAT+2, DFLTSTAT+4
EARLY	BUILD~, BUILD+6*, GATHER+16
EDT	ADDELMNT+1~, ADDELMNT+18*, ADDELMNT+35
HIT	CHECKADD+1~, CHECKADD+2, CHECKADD+3
>> IOINHI	ADDELMNT+44, ADDELMNT+47
>> IOINORM	ADDELMNT+44, ADDELMNT+47
LATE	BUILD~, BUILD+6*, GATHER+16
LCT	ADDELMNT+1~
MOM	ADDELMNT+1~
PT	ADDELMNT+1~, ADDELMNT+8, ADDELMNT+9, ADDELMNT+11*
RMD	ADDELMNT+1~
SCREEN	MAKELIST+1~, SCREEN+4, ERLY+11, BUILD~, PUTLIST+12, PUTLIST+13*, PUTLIST+14
SCREEN(	BUILD+7, BUILD+8, BUILD+10, BUILD+13, BUILD+14, PUTLIST+12, PUTLIST+13
SCREEN(1	SCREEN+4*
SDT	ADDELMNT+1~, ADDELMNT+19, ADDELMNT+20
STATUS	MAKELIST+1~, STATUS, STATUS+1, BUILD~, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11
STATUS(	GATHER+13, GATHER+14, PUTLIST+8, PUTLIST+9
STATUS(1	PUTLIST+7, PUTLIST+9
STATUS(4	PUTLIST+8, PUTLIST+10
TIUCLASS	MAKELIST~, BUILD+11, BUILD+14, PUTLIST+15
TIUCNT	BUILD+1~, PUTLIST+6, PUTLIST+11, PUTLIST+16, PUTLIST+18, ADDELMNT~, ADDELMNT+21*, ADDELMNT+22, ADDELMNT+41, ADDELMNT+42 , ADDELMNT+43, ADDELMNT+44, ADDELMNT+46, ADDELMNT+47, ADDELMNT+48, ADDELMNT+49, ADDELMNT+50
TIUD0	GATHER+1~, URGENCY+1~, URGENCY+2*, URGENCY+3
TIUD12	GATHER+1~
TIUD13	GATHER+1~
TIUD15	GATHER+1~
TIUDA	DADINTYP~, DADINTYP+3, PUTLIST+1~, PUTLIST+6*, URGENCY~, URGENCY+2
TIUDCL	MAKELIST+1~
TIUDPRM	DFLTSTAT+1~
TIUDPRM(0	DFLTSTAT+3
TIUDSTAT	URGENCY+1~, URGENCY+2*, URGENCY+4
TIUDT	BUILD+1~
TIUDTYP	DADINTYP+2~, DADINTYP+3*, DADINTYP+5
TIUDURG	URGENCY+1~, URGENCY+3*, URGENCY+4
TIUEDFLT	MAKELIST+1~, ERLY+1*, ERLY+3
>> TIUEDT	ERLY+3*, ERLY+5, ERLY+11
TIUI	MAKELIST+1~, CHECKADD+1~, CHECKADD+2, BUILD+1~, BUILD+10, BUILD+11, BUILD+13, BUILD+14, GATHER~, GATHER+16 , GATHER+18, DADINTYP+2~, DADINTYP+4*, DADINTYP+5
TIUIFN	BUILD+1~, GATHER+17, GATHER+18, GATHER+20, GATHER+21
TIUJ	BUILD+1~, GATHER+16, GATHER+18, GATHER+21, PUTLIST+1~, PUTLIST+5, PUTLIST+6, PUTLIST+12*, PUTLIST+13
TIUK	BUILD+1~, BUILD+3, BUILD+7, BUILD+8, BUILD+10, BUILD+13, BUILD+14
>> TIULDT	ERLY+7*, ERLY+9, ERLY+11
TIULST4	ADDELMNT+1~, ADDELMNT+12, ADDELMNT+13
TIUMD	DFLTSTAT+1~
TIUMIS	DFLTSTAT+1~, DFLTSTAT+2*, DFLTSTAT+3
TIUNAME	SCREEN+1~, SCREEN+2*
TIUORDER	PUTLIST+1~, PUTLIST+2*, PUTLIST+4
TIUP	BUILD+1~, ADDELMNT+10*, ADDELMNT+11
TIUPICK	PUTLIST+1~, PUTLIST+3*, PUTLIST+16
TIUPREF	BUILD+2~, BUILD+3*, BUILD+11, BUILD+14, BUILD+15, GATHER~, PUTLIST~, PUTLIST+2
>> TIUPRM0	BUILD+5
TIUQ	BUILD+1~, GATHER+20, GATHER+21, PUTLIST+1~, PUTLIST+4, PUTLIST+5, PUTLIST+6
>> TIUQUIK	ERLY+3, ERLY+7
TIUQUIT	MAKELIST+1~
TIUR	ADDELMNT+1~
TIUR(8925	ADDELMNT+6, ADDELMNT+8, ADDELMNT+12, ADDELMNT+13, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19 , ADDELMNT+23
TIUREC	BUILD+1~, ADDELMNT+22, ADDELMNT+23, ADDELMNT+30, ADDELMNT+31, ADDELMNT+34, ADDELMNT+35, ADDELMNT+36, ADDELMNT+37, ADDELMNT+38* , ADDELMNT+41
TIUS	BUILD+2~, GATHER+1~, GATHER+13, GATHER+14, PUTLIST+7, PUTLIST+8*, PUTLIST+9
TIUSFLD	GATHER+1~, GATHER+5*, GATHER+20
TIUSTAT	MAKELIST+1~, STATUS, ERLY+11, GATHER+1~, GATHER+14*, GATHER+15, GATHER+16, GATHER+18
TIUSVAL	GATHER+2~
TIUT	BUILD+2~, GATHER+1~, GATHER+10*, GATHER+11
TIUTP	BUILD+2~, GATHER+1~, GATHER+11*, GATHER+16, GATHER+18
TIUTYP	MAKELIST+1~, ERLY+11
TIUY	DADINTYP+2~, DADINTYP+4, DADINTYP+5, DADINTYP+6, RESOLVE+2~, RESOLVE+5, RESOLVE+6, RESOLVE+7, RESOLVE+8, URGENCY+1~ , URGENCY+4, URGENCY+5, DFLTSTAT+1~, DFLTSTAT+3, DFLTSTAT+4, DFLTSTAT+5, DFLTX
TIUY(8925	RESOLVE+6
>> TIUZIHS	PATIENT+2
TYPES	CHECKADD~, CHECKADD+3*, BUILD~, DADINTYP~
TYPES(	CHECKADD+2, CHECKADD+3*, DADINTYP+4, DADINTYP+5
U	SCREEN+2, CHECKADD+3, BUILD+8, BUILD+10, BUILD+13, BUILD+14, GATHER+14, DADINTYP+3, DADINTYP+5, RESOLVE+1 , RESOLVE+3, PUTLIST+2, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11, PUTLIST+13, ADDELMNT+7, ADDELMNT+12, ADDELMNT+43 , ADDELMNT+49, URGENCY+2, URGENCY+3, DFLTSTAT+3
USER	DFLTSTAT~
>> VALM("RM"	ADDELMNT+47
>> VALMCNT	BUILD+3, PUTLIST+19, ADDELMNT+3, ADDELMNT+41, ADDELMNT+42, ADDELMNT+43
>> VALMHDR	PUTLIST+17, ADDELMNT+51
>> VALMQUIT	STATUS+1, PATIENT+4, ERLY+4, ERLY+8
>> VALMSG	ADDELMNT+48*
VALMY	CLEAN+2!
X	RESOLVE+2~
XDT	ADDELMNT+1~
XREF	BUILD+2~, BUILD+8*, BUILD+9, BUILD+10, BUILD+12, BUILD+13, BUILD+14, GATHER+16, GATHER+18
Y	RESOLVE+2~

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIURPT2

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: