Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIURPT4

Package: IHS Mods To Text Integration Utilities

Routine: BTIURPT4


Information

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

Source Information

Source file <BTIURPT4.m>

Call Graph

Call Graph Total: 11

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

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
HDR^BTIURPT PUTLIST+18
NOTES^BTIURPT ADDELMNT+35
$$GET1^DIQ RESOLVE+1
EN^DIQ1 RESOLVE+4, ADDELMNT+5
$$EDATE^TIULA ERLY+2
$$LDATE^TIULA ERLY+5
$$PATIENT^TIULA PATIENT+3
$$SELSTAT^TIULA STATUS
$$DOCCLASS^TIULC1 GATHER+18
$$HASADDEN^TIULC1 ADDELMNT+9
$$PNAME^TIULC1 ADDELMNT+6, ADDELMNT+7
DOCPRM^TIULC1 DFLTSTAT+1
$$PERSPRF^TIULE BUILD+3
SETPARM^TIULE BUILD+6
$$DATE^TIULS ADDELMNT+14, ADDELMNT+15, ADDELMNT+18, ADDELMNT+20
$$NAME^TIULS ADDELMNT+8, ADDELMNT+16, ADDELMNT+17
$$UPPER^TIULS BUILD+11, GATHER+13, PUTLIST+7, PUTLIST+9
HDR^TIURH ADDELMNT+44, ADDELMNT+48
$$ISA^USRLM DFLTSTAT+2, DFLTSTAT+4
CLEAN^VALM10 CLEAN+1
CNTRL^VALM10 ADDELMNT+44
RESTORE^VALM10 ADDELMNT+43
$$UP^XLFSTR CHECKADD+2

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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+14, BUILD+15, GATHER+15, GATHER+17, DADINTYP+3, RESOLVE+3, ADDELMNT+7, ADDELMNT+9, URGENCY+2
^TIU(8925.1 - [#8925.1] GATHER+9
^TIU(8925.6 - [#8925.6] GATHER+13
^TMP("TIUI" BUILD+4!, GATHER+21*, PUTLIST+4, PUTLIST+5, PUTLIST+6
^TMP("TIUR" BUILD+4!, BUILD+17*, PUTLIST+11*, PUTLIST+14*, PUTLIST+15*, PUTLIST+16*, PUTLIST+20*, PUTLIST+21*, ADDELMNT+2, ADDELMNT+3*
, ADDELMNT+46*, ADDELMNT+47*, CLEAN+1!
^TMP("TIURIDX" BUILD+4!, ADDELMNT+40*, CLEAN+1!
^TMP("TIURIHS" BUILD+5!
^VA(200 - [#200] SCREEN+2

Label References

Name Line Occurrences
$$RESOLVE GATHER+20
$$URGENCY ADDELMNT+10
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+14*
AMD ADDELMNT+1~, ADDELMNT+16*
APPEND ADDELMNT~, ADDELMNT+42
AUT ADDELMNT+1~, ADDELMNT+17*
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+35, ADDELMNT+40
, 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+3, ERLY+6
>> DOC ADDELMNT+6*, ADDELMNT+7*
DR RESOLVE~, RESOLVE+1, RESOLVE+3*, RESOLVE+6, ADDELMNT+1~, ADDELMNT+5*
DUZ SCREEN+2, BUILD+3, DFLTSTAT+2, DFLTSTAT+4
EARLY BUILD~, BUILD+7*, GATHER+15
EDT ADDELMNT+1~, ADDELMNT+18*
HIT CHECKADD+1~*, CHECKADD+2*, CHECKADD+3
>> IOINHI ADDELMNT+44
>> IOINORM ADDELMNT+44
LATE BUILD~, BUILD+7*, GATHER+15
LCT ADDELMNT+1~
MOM ADDELMNT+1~
PT ADDELMNT+1~, ADDELMNT+8*, ADDELMNT+9*, ADDELMNT+11*
RMD ADDELMNT+1~
SCREEN MAKELIST+1~, SCREEN+4*, 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+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+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, GATHER+18, PUTLIST+15
TIUCNT BUILD+1~, PUTLIST+6, PUTLIST+11, PUTLIST+16, PUTLIST+19, ADDELMNT~, ADDELMNT+21*, ADDELMNT+40, ADDELMNT+43, ADDELMNT+44
, ADDELMNT+45, ADDELMNT+46, ADDELMNT+47
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+20, GATHER+21
TIUJ BUILD+1~, GATHER+15*, GATHER+17, GATHER+21, 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+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+12, BUILD+15, BUILD+16, GATHER~, PUTLIST~, PUTLIST+2
>> TIUPRM0 BUILD+6
TIUQ BUILD+1~, GATHER+20*, GATHER+21, 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+12, ADDELMNT+13, ADDELMNT+14, ADDELMNT+15, ADDELMNT+16, ADDELMNT+17, ADDELMNT+18, ADDELMNT+19
TIUREC BUILD+1~
TIUS BUILD+2~, GATHER+1~, GATHER+12*, GATHER+13, PUTLIST+7*, PUTLIST+8*, PUTLIST+9
TIUSFLD GATHER+1~, GATHER+5*, GATHER+20
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, GATHER+18
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+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
TIUZCNT BUILD+5*, CLEAN+3!
>> TIUZIHS PATIENT+2
TIUZLN BUILD+5*, ADDELMNT+38, CLEAN+3!
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+1
, RESOLVE+3, PUTLIST+2, PUTLIST+7, PUTLIST+9, PUTLIST+10, PUTLIST+11, PUTLIST+13, ADDELMNT+7, ADDELMNT+12, ADDELMNT+40
, ADDELMNT+46, URGENCY+2, URGENCY+3, DFLTSTAT+3
USER DFLTSTAT~
>> VALM("RM" ADDELMNT+44
>> VALMCNT BUILD+3*, PUTLIST+20*, ADDELMNT+3*, ADDELMNT+38*, ADDELMNT+40
>> VALMHDR PUTLIST+18, ADDELMNT+48
>> VALMQUIT STATUS+1*, PATIENT+4*, ERLY+3*, ERLY+6*
>> VALMSG ADDELMNT+45*
VALMY CLEAN+2!
X RESOLVE+2~
XDT ADDELMNT+1~
XREF BUILD+2~, BUILD+9*, BUILD+10, BUILD+11, BUILD+13, BUILD+14, BUILD+15, GATHER+15, GATHER+17
Y RESOLVE+2~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All