Routine: BTIURPT1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

BTIURPT1 ; IHS/ITSC/LJF - Review documents by Reference Date ;

Source Information

Source file <BTIURPT1.m>

Call Graph

Call Graph Total: 11

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
Authorization Subscription	1	$$ISA^USRLM
IHS Mods To Text Integration Utilities	1	($$VSTCAT,$$VSTDT,$$VSTDX)^BTIURPT
Kernel	1	$$UP^XLFSTR
VA Fileman	1	EN^DIQ1

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
EN^DIQ1	RESOLVE+3, ADDELMNT+5
$$EDATE^TIULA	ERLY+2
$$LDATE^TIULA	ERLY+5
$$PATIENT^TIULA	PATIENT+3
$$SELSTAT^TIULA	STATUS
$$HASADDEN^TIULC1	ADDELMNT+10
$$PNAME^TIULC1	ADDELMNT+6, ADDELMNT+7
DOCPRM^TIULC1	DFLTSTAT+1
$$PERSPRF^TIULE	BUILD+3
SETPARM^TIULE	BUILD+6
$$DATE^TIULS	ADDELMNT+16, ADDELMNT+17, ADDELMNT+20, ADDELMNT+22
$$LOWER^TIULS	ADDELMNT+25
$$NAME^TIULS	ADDELMNT+8, ADDELMNT+18, ADDELMNT+19
$$UPPER^TIULS	BUILD+11, GATHER+13, PUTLIST+7, PUTLIST+9
HDR^TIURH	PUTLIST+17, ADDELMNT+51, ADDELMNT+55
$$ISA^USRLM	DFLTSTAT+2, DFLTSTAT+4
$$SETFLD^VALM1	ADDELMNT+24, ADDELMNT+25, ADDELMNT+35, ADDELMNT+36, ADDELMNT+39, ADDELMNT+40, ADDELMNT+41, ADDELMNT+42, ADDELMNT+43
CLEAN^VALM10	CLEAN+1
CNTRL^VALM10	ADDELMNT+51
FLDCTRL^VALM10	ADDELMNT+48
RESTORE^VALM10	ADDELMNT+50
$$UP^XLFSTR	CHECKADD+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ADDELMNT+14
^ORD(101 - [#101]	PUTLIST+3
^TIU(8925 - [#8925]	BUILD+14, BUILD+15, GATHER+15, GATHER+17, DADINTYP+3, RESOLVE+2, ADDELMNT+7, ADDELMNT+10, URGENCY+2
^TIU(8925.1 - [#8925.1]	GATHER+9
^TIU(8925.6 - [#8925.6]	GATHER+13
^TMP("TIUI"	BUILD+4!, GATHER+20*, PUTLIST+4, PUTLIST+5, PUTLIST+6
^TMP("TIUR"	BUILD+4!, BUILD+17, PUTLIST+11, PUTLIST+14, PUTLIST+15, PUTLIST+16, PUTLIST+19, PUTLIST+20, ADDELMNT+2, ADDELMNT+3 , ADDELMNT+45, ADDELMNT+46, ADDELMNT+53, ADDELMNT+54, CLEAN+1!
^TMP("TIURIDX"	BUILD+4!, ADDELMNT+47*, CLEAN+1!
^TMP("TIURIHS"	BUILD+5!
^VA(200 - [#200]	SCREEN+2

Name	Line Occurrences
$$RESOLVE	GATHER+19
$$URGENCY	ADDELMNT+11
$$VSTCAT	ADDELMNT+42
$$VSTDT	ADDELMNT+41
$$VSTDX	ADDELMNT+43
ADDELMNT	PUTLIST+6
BUILD	ERLY+9
DFLTX	DFLTSTAT+3, DFLTSTAT+4
ERLY	ERLY+7
GATHER	BUILD+12, BUILD+15
PUTLIST	BUILD+16
SCREEN	ERLY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADT	ADDELMNT+1~, ADDELMNT+16*
AMD	ADDELMNT+1~, ADDELMNT+18*, ADDELMNT+36
APPEND	ADDELMNT~, ADDELMNT+49
AUT	ADDELMNT+1~, ADDELMNT+19*, ADDELMNT+35
CLASS	GATHER~
DA	RESOLVE~, RESOLVE+2, RESOLVE+5, ADDELMNT~, ADDELMNT+6, ADDELMNT+7, ADDELMNT+8, ADDELMNT+10, ADDELMNT+11, ADDELMNT+14 , ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19, ADDELMNT+20, ADDELMNT+21, ADDELMNT+25, ADDELMNT+47, VSTDT+1 , VSTCAT+1, VSTDX+1
DDT	ADDELMNT+1~, ADDELMNT+17*
DFN	PATIENT+2!, PATIENT+3, PATIENT+4, SCREEN+3
DIC	RESOLVE+1~, ADDELMNT+1~, ADDELMNT+4
DIQ	RESOLVE+1~, ADDELMNT+1~, ADDELMNT+4
DIQ(0	RESOLVE+1, ADDELMNT+4
>> DIROUT	ERLY+3, ERLY+6
>> DOC	ADDELMNT+6, ADDELMNT+7, ADDELMNT+10, ADDELMNT+13, ADDELMNT+39
DR	RESOLVE~, RESOLVE+2, RESOLVE+5, ADDELMNT+1~, ADDELMNT+5
DUZ	SCREEN+2, BUILD+3, DFLTSTAT+2, DFLTSTAT+4
EARLY	BUILD~, BUILD+7*, GATHER+15
EDT	ADDELMNT+1~, ADDELMNT+20*, ADDELMNT+40
HIT	CHECKADD+1~, CHECKADD+2, CHECKADD+3
>> IOINHI	ADDELMNT+48, ADDELMNT+51
>> IOINORM	ADDELMNT+48, ADDELMNT+51
LATE	BUILD~, BUILD+7*, GATHER+15
LCT	ADDELMNT+1~
MOM	ADDELMNT+1~
PT	ADDELMNT+1~, ADDELMNT+8*
RMD	ADDELMNT+1~
SCREEN	MAKELIST+1~, SCREEN+3, ERLY+9, BUILD~, PUTLIST+12, PUTLIST+13*, PUTLIST+14
SCREEN(	BUILD+8, BUILD+9, BUILD+11, BUILD+14, BUILD+15, PUTLIST+12, PUTLIST+13
SCREEN(1	SCREEN+3*
SDT	ADDELMNT+1~, ADDELMNT+21, ADDELMNT+22
STATUS	MAKELIST+1~, STATUS, STATUS+1, BUILD~, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11
STATUS(	GATHER+12, GATHER+13, PUTLIST+8, PUTLIST+9
STATUS(1	PUTLIST+7, PUTLIST+9
STATUS(4	PUTLIST+8, PUTLIST+10
TIUCLASS	MAKELIST~, BUILD+12, BUILD+15, PUTLIST+15
TIUCNT	BUILD+1~, PUTLIST+6, PUTLIST+11, PUTLIST+16, PUTLIST+18, ADDELMNT~, ADDELMNT+23*, ADDELMNT+24, ADDELMNT+45, ADDELMNT+46 , ADDELMNT+47, ADDELMNT+48, ADDELMNT+50, ADDELMNT+51, ADDELMNT+52, ADDELMNT+53, ADDELMNT+54
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+2
>> TIUEDT	ERLY+2*, ERLY+4, ERLY+9
TIUI	MAKELIST+1~, CHECKADD+1~, CHECKADD+2, BUILD+1~, BUILD+11, BUILD+12, BUILD+14, BUILD+15, GATHER~, GATHER+15 , GATHER+17, DADINTYP+2~, DADINTYP+4*, DADINTYP+5
TIUIFN	BUILD+1~, GATHER+16, GATHER+17, GATHER+19, GATHER+20
TIUJ	BUILD+1~, GATHER+15, GATHER+17, GATHER+20, PUTLIST+1~, PUTLIST+5, PUTLIST+6, PUTLIST+12*, PUTLIST+13
TIUK	BUILD+1~, BUILD+3, BUILD+8, BUILD+9, BUILD+11, BUILD+14, BUILD+15
>> TIULDT	ERLY+5*, ERLY+7, ERLY+9
TIULST4	ADDELMNT+1~, ADDELMNT+14, ADDELMNT+15
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+11*, ADDELMNT+13
TIUPICK	PUTLIST+1~, PUTLIST+3*, PUTLIST+16
TIUPREF	BUILD+2~, BUILD+3*, BUILD+12, BUILD+15, BUILD+16, GATHER~, PUTLIST~, PUTLIST+2
>> TIUPRM0	BUILD+6
TIUQ	BUILD+1~, GATHER+19, GATHER+20, PUTLIST+1~, PUTLIST+4, PUTLIST+5, PUTLIST+6
>> TIUQUIK	ERLY+2, ERLY+5
TIUQUIT	MAKELIST+1~
TIUR	ADDELMNT+1~
TIUR(8925	ADDELMNT+6, ADDELMNT+8, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19, ADDELMNT+20, ADDELMNT+21 , ADDELMNT+25
TIUREC	BUILD+1~, ADDELMNT+24, ADDELMNT+25, ADDELMNT+35, ADDELMNT+36, ADDELMNT+39, ADDELMNT+40, ADDELMNT+41, ADDELMNT+42, ADDELMNT+43* , ADDELMNT+45
TIUS	BUILD+2~, GATHER+1~, GATHER+12, GATHER+13, PUTLIST+7, PUTLIST+8*, PUTLIST+9
TIUSFLD	GATHER+1~, GATHER+5*, GATHER+19
TIUSTAT	MAKELIST+1~, STATUS, ERLY+9, GATHER+1~, GATHER+13*, GATHER+14, GATHER+15, GATHER+17
TIUSVAL	GATHER+2~
TIUT	BUILD+2~, GATHER+1~, GATHER+9*, GATHER+10
TIUTP	BUILD+2~, GATHER+1~, GATHER+10*, GATHER+15, GATHER+17
TIUTYP	MAKELIST+1~, ERLY+9
TIUY	DADINTYP+2~, DADINTYP+4, DADINTYP+5, DADINTYP+6, RESOLVE+1~, RESOLVE+4, RESOLVE+5, RESOLVE+6, RESOLVE+7, URGENCY+1~ , URGENCY+4, URGENCY+5, DFLTSTAT+1~, DFLTSTAT+3, DFLTSTAT+4, DFLTSTAT+5, DFLTX
TIUY(8925	RESOLVE+5
>> TIUZCNT	BUILD+5*
>> TIUZIHS	PATIENT+2
>> TIUZLN	BUILD+5*
TYPES	CHECKADD~, CHECKADD+3*, BUILD~, DADINTYP~
TYPES(	CHECKADD+2, CHECKADD+3*, DADINTYP+4, DADINTYP+5
U	SCREEN+2, CHECKADD+3, BUILD+9, BUILD+11, BUILD+14, BUILD+15, GATHER+13, DADINTYP+3, DADINTYP+5, RESOLVE+2 , PUTLIST+2, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11, PUTLIST+13, ADDELMNT+7, ADDELMNT+14, ADDELMNT+47, ADDELMNT+53 , URGENCY+2, URGENCY+3, DFLTSTAT+3
USER	DFLTSTAT~
>> VALM("RM"	ADDELMNT+51
>> VALMCNT	BUILD+3, PUTLIST+19, ADDELMNT+3, ADDELMNT+45, ADDELMNT+46, ADDELMNT+47
>> VALMHDR	PUTLIST+17, ADDELMNT+55
>> VALMQUIT	STATUS+1, PATIENT+4, ERLY+3, ERLY+6
>> VALMSG	ADDELMNT+52*
VALMY	CLEAN+2!
X	RESOLVE+1~
XDT	ADDELMNT+1~
XREF	BUILD+2~, BUILD+9*, BUILD+10, BUILD+11, BUILD+13, BUILD+14, BUILD+15, GATHER+15, GATHER+17
Y	RESOLVE+1~

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIURPT1

Call Graph Total: 11