Routine: BTIUPRT1

Package	Total	Call Graph
Text Integration Utility	5	EXTRACT^TIULQ $$DATE^TIULS PATPN^TIULV ($$FOOTER,$$STOP,HEADER)^TIUPRPN2 SIGBLK^TIUPRPN8
VA Fileman	2	^DIWP ^DIWW
IHS Mods To Text Integration Utilities	1	($$FOOTER,HEADER)^BTIUPRT2
Kernel	1	$$UP^XLFSTR

Package

Total

Call Graph

Text Integration Utility

EXTRACT^TIULQ $$DATE^TIULS PATPN^TIULV ($$FOOTER,$$STOP,HEADER)^TIUPRPN2 SIGBLK^TIUPRPN8

VA Fileman

^DIWP ^DIWW

IHS Mods To Text Integration Utilities

($$FOOTER,HEADER)^BTIUPRT2

Kernel

$$UP^XLFSTR

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIUPRPN

Package

Total

Caller Graph

IHS Mods To Text Integration Utilities

BTIUPRPN

Entry Points

Name	Comments	DBIA/ICR reference
ADDENDA	; Fall through and do Addenda of docmt TIUDA
SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT,TIUTYPE)	;Does footer
REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND)	; Report Text ; Requires array TIUFOOT, vars TIUMISC, TIUCONT ; Requires TIUROOT = ; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN) ; for ID kid addm.
GETSIG(TIUROOT,TIUSIG)	; Get signature info from TIULQ global; ; Set info into TIUSIG array 100 ; Requires array name TIUROOT; passes back array TIUSIG ; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid. ; Signature should be on bottom of form, Addenda on Subsequent pages
PRINT(TIUTYPE,TIUFLAG,TIUSPG)	; Print Document ; ^TMP("TIUPR",$J) is array of records to be printed ; TIUFLAG=1 --> Chart Copy TIUSPG=1 --> Contiguous ; TIUFLAG=0 --> Work Copy TIUSPG=0 --> Fresh Page- each note ; TIUCONT=1 --> Continue printing ; TIUCONT1=1 --> Write "Continue to next/from previous-page" msgs ; TIUPFNBR ---> Print Form # like vice 509 ; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
CHECK(TIUTITLE,TEMPLATE)	;See if there is a header for this note title
IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)	; Print ID kids

External References

Name	Field # of Occurrence
$$FOOTER^BTIUPRT2	SETCONT+7
HEADER^BTIUPRT2	PRINT+22, PRINT+34
^DIWP	REPORT+44, ADDENDA+11
^DIWW	REPORT+45, ADDENDA+12
EXTRACT^TIULQ	PRINT+40
$$DATE^TIULS	REPORT+19, REPORT+27, ADDENDA+6
PATPN^TIULV	PRINT+18
$$FOOTER^TIUPRPN2	SETCONT+8
$$STOP^TIUPRPN2	PRINT+48
HEADER^TIUPRPN2	PRINT+24, PRINT+36
SIGBLK^TIUPRPN8	REPORT+50, ADDENDA+17
$$UP^XLFSTR	REPORT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(TIUERR,U,2) Line Location: PRINT+41
Function Call: WRITE	Prompt: "<< Interdisciplinary Note - Begin >>",! Line Location: REPORT+15
Function Call: WRITE	Prompt: "<< Interdisciplinary Note - Cont. >>",! Line Location: REPORT+16
Function Call: WRITE	Prompt: $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ") Line Location: REPORT+17
Function Call: WRITE	Prompt: $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN") Line Location: REPORT+19
Function Call: WRITE	Prompt: ?30,$$UP^XLFSTR(TITLE),! Line Location: REPORT+21
Function Call: WRITE	Prompt: $S($P($G(^SC(LOC,0)),U,3)="W":"ADMITTED: ",1:"VISIT: ") Line Location: REPORT+25
Function Call: WRITE	Prompt: $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN") Line Location: REPORT+27
Function Call: WRITE	Prompt: " ",HLOC Line Location: REPORT+29
Function Call: WRITE	Prompt: !,"SUBJECT: ",^("E"),! Line Location: REPORT+31
Function Call: WRITE	Prompt: !,"ASSOCIATED PROBLEMS:" Line Location: REPORT+35
Function Call: WRITE	Prompt: ! Line Location: REPORT+40
Function Call: WRITE	Prompt: ! Line Location: REPORT+49
Function Call: WRITE	Prompt: !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM" Line Location: ADDENDA+6
Function Call: WRITE	Prompt: ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") Line Location: ADDENDA+7
Function Call: WRITE	Prompt: !,"<< Interdisciplinary Note - End >>",! Line Location: ADDENDA+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CHECK+3
^SC - [#44]	REPORT+25
^TIU(8925 - [#8925]	PRINT+30
^TIU(8925.94 - [#8925.94]	CHECK+5, CHECK+6
^TMP("TIULQ"	PRINT+39!, PRINT+42, REPORT+13, IDKIDS+5, IDKIDS+6, IDKIDS+9
^TMP("TIUPR"	PRINT+12, PRINT+26, PRINT+27, PRINT+28
^UTILITY($J	REPORT+41!, REPORT+45!, ADDENDA+2!, ADDENDA+20!

Name	Line Occurrences
$$CHECK	PRINT+20, PRINT+32, SETCONT+6
$$SETCONT	PRINT+46, PRINT+49, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, ADDENDA+4, ADDENDA+10
GETSIG	REPORT+47, ADDENDA+16
IDKIDS	PRINT+45
REPORT	PRINT+44, IDKIDS+10

Name	Field # of Occurrence
^(	REPORT+38
^("E"	REPORT+31, GETSIG+8, GETSIG+9, GETSIG+10, GETSIG+12, GETSIG+15, GETSIG+17, GETSIG+20, GETSIG+21, GETSIG+22 , GETSIG+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDMRDT	ADDENDA+1~, ADDENDA+5*, ADDENDA+6
ADT	REPORT+9~, REPORT+26*, REPORT+27
DFN	PRINT+13~, PRINT+17*, PRINT+18, PRINT+22, PRINT+34, SETCONT+7
DIV	CHECK+1~, CHECK+3*, CHECK+5, CHECK+6
DIW	REPORT+8~, ADDENDA+1~
DIWF	REPORT+8~, REPORT+41, ADDENDA+1~, ADDENDA+2
DIWL	REPORT+8~, REPORT+41, ADDENDA+1~, ADDENDA+2
DIWR	REPORT+8~, REPORT+41, ADDENDA+1~, ADDENDA+2
DIWT	REPORT+8~, ADDENDA+1~
DUZ(2	CHECK+3
FOOTER	PRINT+9~, SETCONT+6*, SETCONT+7
HASIDDAD	REPORT+10~, REPORT+14*, REPORT+16, REPORT+17
HASIDKID	REPORT+10~, REPORT+13*, REPORT+15, REPORT+17
HEADER	PRINT+9~, PRINT+20, PRINT+21, PRINT+22, PRINT+32, PRINT+33, PRINT+34
HLOC	REPORT+9~, REPORT+28*, REPORT+29
IEN	CHECK+1~, CHECK+4, CHECK+5, CHECK+6
IOST	PRINT+48, PRINT+49
KIDDA	IDKIDS+2~, IDKIDS+6*, IDKIDS+7, IDKIDS+8
LOC	REPORT+8~, REPORT+22*, REPORT+23, REPORT+25
REFDT	REPORT+9~, REPORT+18*, REPORT+19
SUBJ	REPORT+9~, REPORT+30*, REPORT+31
TEMPLATE	CHECK~, CHECK+6
TIEN	CHECK+1~, CHECK+2, CHECK+6, CHECK+7
TITLE	REPORT+9~, REPORT+20, REPORT+21, CHECK+1~, CHECK+4, CHECK+5
TIU	PRINT+13~, REPORT+8~
TIUADD	ADDENDA+1~, ADDENDA+2, ADDENDA+3, ADDENDA+5, ADDENDA+7, ADDENDA+9, ADDENDA+11, ADDENDA+15
TIUADRT	ADDENDA+14~, ADDENDA+15*, ADDENDA+16, ADDENDA+17
TIUCONT	PRINT+8~, PRINT+11, PRINT+12, PRINT+26, PRINT+27, PRINT+30, PRINT+44, PRINT+45, PRINT+46, PRINT+47 , PRINT+48, PRINT+49, REPORT~, REPORT+12, REPORT+33, REPORT+34, REPORT+37, REPORT+39, REPORT+42, REPORT+43* , REPORT+46, REPORT+48, REPORT+50, REPORT+51, ADDENDA+3, ADDENDA+4, ADDENDA+9, ADDENDA+10*, ADDENDA+13, ADDENDA+17 , ADDENDA+22, IDKIDS~, IDKIDS+5, IDKIDS+10
TIUCONT1	PRINT+9~, PRINT+11, PRINT+22, PRINT+24, PRINT+28, PRINT+34, PRINT+36, PRINT+45, PRINT+46, PRINT+49 , REPORT+10~, REPORT+11, REPORT+12, REPORT+32, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4 , ADDENDA+10, ADDENDA+17, IDKIDS~, SETCONT~, SETCONT+7, SETCONT+8
TIUDA	PRINT+8~, PRINT+37, PRINT+38, PRINT+40, PRINT+43, REPORT+10~, REPORT+11, REPORT+13, IDKIDS+2~, IDKIDS+3* , IDKIDS+5, IDKIDS+6, IDKIDS+8, IDKIDS+9
TIUERR	PRINT+40, PRINT+41, REPORT+8~
TIUFLAG	PRINT~, PRINT+10*, PRINT+22, PRINT+24, PRINT+34, PRINT+36, PRINT+38, IDKIDS+7
TIUFOOT	PRINT+8~, PRINT+18, PRINT+24, PRINT+36, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+12 , REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4, ADDENDA+10, ADDENDA+17, IDKIDS~, IDKIDS+10 , SETCONT~, SETCONT+8
TIUHEAD	SETCONT~, SETCONT+7, SETCONT+8
TIUI	PRINT+8~, PRINT+12, PRINT+14, PRINT+17, PRINT+26, PRINT+27, PRINT+28, REPORT+8~, REPORT+36~, REPORT+37* , REPORT+38, REPORT+41, REPORT+42, REPORT+44, ADDENDA+1~, ADDENDA+8, ADDENDA+9, ADDENDA+11
TIUIDEND	REPORT~, ADDENDA+19, IDKIDS+2~, IDKIDS+3, IDKIDS+9, IDKIDS+10
TIUIDONE	PRINT+9~
TIUIDRT	IDKIDS+2~, IDKIDS+8*, IDKIDS+10
TIUJ	PRINT+8~, PRINT+26*, PRINT+27, PRINT+28
TIUK	PRINT+8~, PRINT+22, PRINT+27*, PRINT+28, PRINT+30, PRINT+34, PRINT+37, SETCONT+7
TIUL	IDKIDS+2~, IDKIDS+4, IDKIDS+5, IDKIDS+6, IDKIDS+8, IDKIDS+9
TIULINE	GETSIG+7~*
TIUMISC	PRINT+9~, PRINT+38, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+11, REPORT+12, REPORT+34 , REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+4, ADDENDA+10, ADDENDA+17, IDKIDS~, IDKIDS+3, IDKIDS+7 , IDKIDS+10, SETCONT~, SETCONT+7, SETCONT+8
TIUPAGE	PRINT+8~
TIUPFHDR	PRINT+9~, PRINT+14, PRINT+15, PRINT+24, PRINT+36
TIUPFNBR	PRINT+9~, PRINT+28*, PRINT+38, IDKIDS+7
TIUPGRP	PRINT+8~, PRINT+14*, PRINT+16
TIUROOT	PRINT+31~, PRINT+43*, PRINT+44, PRINT+45, PRINT+46, PRINT+49, REPORT~, REPORT+12, REPORT+14, REPORT+18 , REPORT+20, REPORT+22, REPORT+26, REPORT+28, REPORT+30, REPORT+33, REPORT+34, REPORT+37, REPORT+39, REPORT+42 , REPORT+43, REPORT+44, REPORT+47, REPORT+48, REPORT+50, ADDENDA+3, ADDENDA+4, ADDENDA+5, ADDENDA+7, ADDENDA+9 , ADDENDA+10, ADDENDA+11, ADDENDA+15, IDKIDS~, GETSIG~, GETSIG+8, GETSIG+9, GETSIG+10, GETSIG+11, GETSIG+12 , GETSIG+13, GETSIG+14, GETSIG+15, GETSIG+16, GETSIG+17, GETSIG+18, GETSIG+19, GETSIG+20, GETSIG+21, GETSIG+22 , GETSIG+25, SETCONT~, SETCONT+7, SETCONT+8
TIUSIG	REPORT+47, REPORT+50, ADDENDA+16, ADDENDA+17, GETSIG~
TIUSIG("ADMINCDT"	GETSIG+25*
TIUSIG("AUTHOR"	GETSIG+8*
TIUSIG("COSCHRT"	GETSIG+22*
TIUSIG("COSGDATE"	GETSIG+16*
TIUSIG("COSGEDBY"	GETSIG+17*
TIUSIG("COSGMODE"	GETSIG+20*
TIUSIG("COSGNAME"	GETSIG+18*
TIUSIG("COSGTITL"	GETSIG+19*
TIUSIG("EXPCOSNR"	GETSIG+10*
TIUSIG("EXPSIGNR"	GETSIG+9*
TIUSIG("SIGCHRT"	GETSIG+21*
TIUSIG("SIGNDATE"	GETSIG+11*
TIUSIG("SIGNEDBY"	GETSIG+12*
TIUSIG("SIGNMODE"	GETSIG+15*
TIUSIG("SIGNNAME"	GETSIG+13*
TIUSIG("SIGTITL"	GETSIG+14*
TIUSORT	IDKIDS+2~
TIUSPG	PRINT~, PRINT+10, PRINT+16, PRINT+22, PRINT+24, PRINT+34, PRINT+36, PRINT+46, PRINT+49
TIUTITLE	CHECK~, CHECK+4
TIUTYP	PRINT+8~
TIUTYPE	PRINT~, PRINT+20, PRINT+32, PRINT+46, PRINT+49, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48 , ADDENDA+4, ADDENDA+10, SETCONT~, SETCONT+6
TMP	PRINT+9~
U	PRINT+38, PRINT+41, REPORT+11, REPORT+25, IDKIDS+3, IDKIDS+7, CHECK+6
X	REPORT+8~, REPORT+44, ADDENDA+1~, ADDENDA+11, SETCONT+5~, SETCONT+7, SETCONT+8, SETCONT+9
Z	REPORT+8~, ADDENDA+1~

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUPRT1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: