Routine: TIUPRPN1

Package	Total	Call Graph
Text Integration Utility	7	($$STOP,IDKID)^TIUFLP1 EXTRACT^TIULQ $$DATE^TIULS PATPN^TIULV $$MEMBEROF^TIUPR222 ($$FOOTER,$$STOP,HEADER)^TIUPRPN2 SIGBLK^TIUPRPN8
VA Fileman	2	^DIWP ^DIWW
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Text Integration Utility	4	TIUPRPN TIUPRPN5 TIUPRPN7 TIUPRPN8
IHS Mods To Text Integration Utilities	1	BTIUPRPN

Entry Points

Name	Comments	DBIA/ICR reference
SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT)	;Does footer
ADDENDA	; Fall through and do Addenda of docmt TIUDA
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
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.
IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)	; Print ID kids
PRINT(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

External References

Name	Field # of Occurrence
^DIWP	REPORT+44, ADDENDA+12
^DIWW	REPORT+45, ADDENDA+13
$$STOP^TIUFLP1	ADDENDA+23, IDKIDS+10
IDKID^TIUFLP1	IDKIDS+11
EXTRACT^TIULQ	PRINT+37
$$DATE^TIULS	REPORT+19, REPORT+27, ADDENDA+7
PATPN^TIULV	PRINT+20
$$MEMBEROF^TIUPR222	IDKIDS+7
$$FOOTER^TIUPRPN2	SETCONT+4
$$STOP^TIUPRPN2	PRINT+45
HEADER^TIUPRPN2	PRINT+21, PRINT+35
SIGBLK^TIUPRPN8	REPORT+50, ADDENDA+18
$$UP^XLFSTR	REPORT+21, REPORT+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!! Line Location: PRINT+32
Function Call: WRITE	Prompt: !,$P(TIUERR,U,2) Line Location: PRINT+38
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: !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),! Line Location: REPORT+21
Function Call: WRITE	Prompt: "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),! Line Location: REPORT+22
Function Call: WRITE	Prompt: $S($P(^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+7
Function Call: WRITE	Prompt: ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") Line Location: ADDENDA+8
Function Call: WRITE	Prompt: !,"<< Interdisciplinary Note - End >>",! Line Location: ADDENDA+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	REPORT+25
^TIU(8925 - [#8925]	PRINT+30, ADDENDA+4, IDKIDS+7
^TMP("TIULQ"	PRINT+36!, PRINT+39, REPORT+13, IDKIDS+5, IDKIDS+6, IDKIDS+14
^TMP("TIUPR"	PRINT+12, PRINT+23, PRINT+24, PRINT+25
^UTILITY($J	REPORT+41!, REPORT+45!, ADDENDA+2!, ADDENDA+21!

Label References

Name	Line Occurrences
$$SETCONT	PRINT+31, PRINT+33, PRINT+43, PRINT+46, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, ADDENDA+5 , ADDENDA+11, IDKIDS+8
GETSIG	REPORT+47, ADDENDA+17
IDKIDS	PRINT+42
REPORT	PRINT+41, IDKIDS+15

Naked Globals

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+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDMRDT	ADDENDA+1~, ADDENDA+6*, ADDENDA+7
ADT	REPORT+9~, REPORT+26*, REPORT+27
CONT	PRINT+8~, PRINT+11, IDKIDS+9, IDKIDS+10
DFN	PRINT+13~, PRINT+18*, PRINT+20
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~
HASIDDAD	REPORT+10~, REPORT+14*, REPORT+16, REPORT+17
HASIDKID	REPORT+10~, REPORT+13*, REPORT+15, REPORT+17
HLOC	REPORT+9~, REPORT+28*, REPORT+29
IOST	PRINT+45, PRINT+46, ADDENDA+23, IDKIDS+10
KIDDA	IDKIDS+2~, IDKIDS+6*, IDKIDS+7, IDKIDS+11, IDKIDS+12, IDKIDS+13
LOC	REPORT+8~, REPORT+23*, REPORT+24, REPORT+25
LOINCNM	REPORT+9~, REPORT+20*, REPORT+22
REFDT	REPORT+9~, REPORT+18*, REPORT+19
SUBJ	REPORT+9~, REPORT+30*, REPORT+31
TITLE	REPORT+9~, REPORT+20*, REPORT+21
TIU	PRINT+13~, REPORT+8~
TIUADD	ADDENDA+1~, ADDENDA+2, ADDENDA+4, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENDA+12, ADDENDA+16
TIUADRT	ADDENDA+15~, ADDENDA+16*, ADDENDA+17, ADDENDA+18
TIUASK	PRINT+8~, PRINT+11, ADDENDA+23, IDKIDS+10, IDKIDS+11*
TIUCONT	PRINT+8~, PRINT+11, PRINT+12, PRINT+23, PRINT+24, PRINT+31, PRINT+33, PRINT+41, PRINT+42, PRINT+43 , PRINT+44, PRINT+45, PRINT+46, REPORT~, REPORT+12, REPORT+33, REPORT+34, REPORT+37, REPORT+39, REPORT+42 , REPORT+43, REPORT+46, REPORT+48, REPORT+50, REPORT+51, ADDENDA+4, ADDENDA+5, ADDENDA+10, ADDENDA+11, ADDENDA+14 , ADDENDA+18, ADDENDA+23, ADDENDA+24, IDKIDS~, IDKIDS+5, IDKIDS+8, IDKIDS+9, IDKIDS+10, IDKIDS+15
TIUCONT1	PRINT+9~, PRINT+11, PRINT+21, PRINT+25, PRINT+31, PRINT+33, PRINT+35, PRINT+42, PRINT+43, PRINT+46 , REPORT+10~, REPORT+11, REPORT+12, REPORT+32, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5 , ADDENDA+11, ADDENDA+18, IDKIDS~, IDKIDS+8*, SETCONT~, SETCONT+4
TIUDA	PRINT+8~, PRINT+28, PRINT+30, PRINT+32, PRINT+37, PRINT+40, REPORT+10~, REPORT+11, REPORT+13, IDKIDS+2~ , IDKIDS+3*, IDKIDS+5, IDKIDS+6, IDKIDS+11, IDKIDS+13, IDKIDS+14
TIUERR	PRINT+37, PRINT+38, REPORT+8~
TIUFLAG	PRINT~, PRINT+10*, PRINT+21, PRINT+28, PRINT+35, IDKIDS+12
TIUFOOT	PRINT+8~, PRINT+20, PRINT+21, PRINT+31, PRINT+33, PRINT+35, PRINT+41, PRINT+42, PRINT+43, PRINT+46 , REPORT~, REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5, ADDENDA+11, ADDENDA+18 , IDKIDS~, IDKIDS+8, IDKIDS+15, SETCONT~, SETCONT+4
TIUFOOT("PNMP"	PRINT+32
TIUHEAD	SETCONT~, SETCONT+4
TIUI	PRINT+8~, PRINT+12, PRINT+16, PRINT+18, PRINT+23, PRINT+24, PRINT+25, REPORT+8~, REPORT+36~, REPORT+37* , REPORT+38, REPORT+41, REPORT+42, REPORT+44, ADDENDA+1~, ADDENDA+9, ADDENDA+10, ADDENDA+12
TIUIDEND	REPORT~, ADDENDA+20, IDKIDS+2~, IDKIDS+3, IDKIDS+14, IDKIDS+15
TIUIDONE	PRINT+9~
TIUIDRT	IDKIDS+2~, IDKIDS+13*, IDKIDS+15
TIUJ	PRINT+8~, PRINT+23*, PRINT+24, PRINT+25
TIUK	PRINT+8~, PRINT+24*, PRINT+25, PRINT+28
TIUKID	PRINT+8~, PRINT+43, PRINT+46, IDKIDS+8, IDKIDS+11*
TIUL	IDKIDS+2~, IDKIDS+4, IDKIDS+5, IDKIDS+6, IDKIDS+13, IDKIDS+14
TIULINE	GETSIG+7~*
TIUMISC	PRINT+9~, PRINT+28, PRINT+31, PRINT+33, PRINT+41, PRINT+42, PRINT+43, PRINT+46, REPORT~, REPORT+11 , REPORT+12, REPORT+34, REPORT+39, REPORT+43, REPORT+48, REPORT+50, ADDENDA+5, ADDENDA+11, ADDENDA+18, IDKIDS~ , IDKIDS+3, IDKIDS+8, IDKIDS+12, IDKIDS+15, SETCONT~, SETCONT+4
TIUPAGE	PRINT+8~
TIUPFHDR	PRINT+9~, PRINT+16, PRINT+17, PRINT+21, PRINT+35
TIUPFNBR	PRINT+9~, PRINT+25*, PRINT+28, IDKIDS+12
TIUPGRP	PRINT+8~, PRINT+16*, PRINT+19
TIUROOT	PRINT+31, PRINT+33, PRINT+34~, PRINT+40*, PRINT+41, PRINT+42, PRINT+43, PRINT+46, REPORT~, REPORT+12 , REPORT+14, REPORT+18, REPORT+20, REPORT+23, 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+4, ADDENDA+5, ADDENDA+6 , ADDENDA+8, ADDENDA+10, ADDENDA+11, ADDENDA+12, ADDENDA+16, IDKIDS~, IDKIDS+8, 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+24, SETCONT~, SETCONT+4
TIUSIG	REPORT+47, REPORT+50, ADDENDA+17, ADDENDA+18, GETSIG~
TIUSIG("ADMINCDT"	GETSIG+24*
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+19, PRINT+21, PRINT+35, PRINT+43, PRINT+46, IDKIDS+8
TIUTYP	PRINT+8~
TMP	PRINT+9~
U	PRINT+28, PRINT+38, REPORT+11, REPORT+25, ADDENDA+4, IDKIDS+3, IDKIDS+12
X	REPORT+8~, REPORT+44, ADDENDA+1~, ADDENDA+12
Z	REPORT+8~, ADDENDA+1~

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRPN1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: