Routine: TIUPRDS1

Package	Total	Call Graph
Text Integration Utility	4	$$STATUS^TIULC GETTIU^TIULD LOADSIG^TIULS1 ($$FOOTER,HEADER)^TIUPRDS2
VA Fileman	2	^DIWP ^DIWW
Registration	1	^DGPMLOS

Package	Total	Caller Graph
Text Integration Utility	1	TIUPRDS

Entry Points

Name	Comments	DBIA/ICR reference
PRINT(TIUDA,TIUFLAG)	; Print Summary ; TIUCONT=1 for Continue, 0 for Exit, NULL for Timeout. ; Returned from $$Stop
ADDENDA	; Discharge Summary Addenda
SETCONT(TIUHEAD)	;Does footer and sets TIUCONT
ADDENSIG	;
AMENDMNT	;If DCS has been amended, next lines are printed.
REPORT	; Report Text
RPTSIG	; Signature should be on bottom of form, Addenda on Subsequent pages

External References

Name	Field # of Occurrence
^DGPMLOS	PRINT+6
^DIWP	REPORT+5, ADDENDA+10
^DIWW	REPORT+6, ADDENDA+11
$$STATUS^TIULC	PRINT+12
GETTIU^TIULD	PRINT+4
LOADSIG^TIULS1	RPTSIG+4, ADDENSIG+2
$$FOOTER^TIUPRDS2	SETCONT+1
HEADER^TIUPRDS2	PRINT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DICTATION DATE: ",$P(^TMP("TIULQ",$J,TIUDA,1307,"E"),"@"),?40,"TRANSCRIPTION DATE: ",$P(^TMP("TIULQ",$J,TIUDA,1201,"E"),"@") Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"LOCAL TITLE: ",$G(^TMP("TIULQ",$J,TIUDA,.01,"E")) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,"STANDARD TITLE: ",STDTTL Line Location: PRINT+19
Function Call: WRITE	Prompt: !,"TRANSCRIPTIONIST: ",^TMP("TIULQ",$J,TIUDA,1302,"E") Line Location: PRINT+20
Function Call: WRITE	Prompt: !!,^TMP("TIULQ",$J,TIUDA,1601,"E"),?23,"AMENDMENT FILED:" Line Location: AMENDMNT+3
Function Call: WRITE	Prompt: !!?23 Line Location: AMENDMNT+4
Function Call: WRITE	Prompt: "_" Line Location: AMENDMNT+4
Function Call: WRITE	Prompt: !?17,"/es/",?23,^TMP("TIULQ",$J,TIUDA,1604,"E") Line Location: AMENDMNT+6
Function Call: WRITE	Prompt: !?23,$G(^TMP("TIULQ",$J,TIUDA,1605,"E")) Line Location: AMENDMNT+7
Function Call: WRITE	Prompt: ! Line Location: RPTSIG+7
Function Call: WRITE	Prompt: !,TIULINE Line Location: RPTSIG+8
Function Call: WRITE	Prompt: !,"WORK COPY =========== UNOFFICIAL - NOT FOR MEDICAL RECORD ========== DO NOT FILE" Line Location: RPTSIG+9
Function Call: WRITE	Prompt: !,"SIGNATURE PHYSICIAN/DENTIST",?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST" Line Location: RPTSIG+10
Function Call: WRITE	Prompt: !?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST" Line Location: RPTSIG+11
Function Call: WRITE	Prompt: !,TIUSBLK(TIUI) Line Location: RPTSIG+12
Function Call: WRITE	Prompt: !,TIULINE Line Location: RPTSIG+14
Function Call: WRITE	Prompt: !,"=========================== CONFIDENTIAL INFORMATION ===========================" Line Location: RPTSIG+15
Function Call: WRITE	Prompt: !!,$G(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD,1201,"E")),?23,"ADDENDUM" Line Location: ADDENDA+5
Function Call: WRITE	Prompt: ?39,"STATUS: ",$G(^TMP("TIULQ",$J,TIUDA,"ZADD",TIUADD,.05,"E")) Line Location: ADDENDA+6
Function Call: WRITE	Prompt: ! Line Location: ADDENDA+14
Function Call: WRITE	Prompt: !,"SIGNATURE PHYSICIAN/DENTIST",?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST" Line Location: ADDENSIG+7
Function Call: WRITE	Prompt: !?39,"SIGNATURE APPROVING PHYSICIAN/DENTIST" Line Location: ADDENSIG+8
Function Call: WRITE	Prompt: !,TIUSBLK(TIUI) Line Location: ADDENSIG+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIULQ"	PRINT+16, PRINT+17, PRINT+18, PRINT+20, REPORT+3, REPORT+5, AMENDMNT+2, AMENDMNT+3, AMENDMNT+4, AMENDMNT+5 , AMENDMNT+6, AMENDMNT+7, RPTSIG+2, RPTSIG+3, RPTSIG+4, ADDENDA+3, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10 , ADDENSIG+2, ADDENSIG+4, ADDENSIG+5
^UTILITY($J	REPORT+1!, REPORT+6!, ADDENDA+1!, ADDENDA+16!

Label References

Name	Line Occurrences
ADDENDA	RPTSIG+13
ADDENSIG	ADDENDA+12
SETCONT	REPORT+4, AMENDMNT+1, RPTSIG+6, ADDENDA+4, ADDENDA+9, ADDENDA+15, ADDENSIG+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATTNDNG	RPTSIG+1~, RPTSIG+3, RPTSIG+10, ADDENSIG+1~, ADDENSIG+5, ADDENSIG+7
DGPMIFN	PRINT+6~*
DIW	REPORT+1~, ADDENDA+1~
DIWF	REPORT+1~, REPORT+2, ADDENDA+1~, ADDENDA+2
DIWL	REPORT+1~, REPORT+2, ADDENDA+1~, ADDENDA+2
DIWR	REPORT+1~, REPORT+2, ADDENDA+1~, ADDENDA+2
DIWT	REPORT+1~, ADDENDA+1~
EXPSGNR	RPTSIG+1~, RPTSIG+2, RPTSIG+10, ADDENSIG+1~, ADDENSIG+4, ADDENSIG+7
IOF	PRINT+15
IOM	RPTSIG+5
IOSL	RPTSIG+7, ADDENDA+14
IOST	PRINT+8, PRINT+15, PRINT+21
>> IOT	RPTSIG+7, ADDENDA+14
STDTTL	PRINT+3~, PRINT+18*, PRINT+19
TIU	PRINT+3~, PRINT+4, PRINT+15, SETCONT+1
TIU("AD#"	PRINT+5, PRINT+6
TIU("DAYS"	PRINT+6*
TIU("LDT"	PRINT+5
TIU("WARD"	PRINT+7*
TIUADD	PRINT+3~, ADDENDA+2, ADDENDA+3, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+2, ADDENSIG+4, ADDENSIG+5
TIUCONT	PRINT+3~, REPORT+2, REPORT+3, REPORT+4, REPORT+7, AMENDMNT+1, RPTSIG+6, ADDENDA+3, ADDENDA+4, ADDENDA+8 , ADDENDA+9, ADDENDA+12, ADDENDA+14, ADDENSIG+6, SETCONT+1
TIUCOPY	PRINT+3~, PRINT+8, PRINT+12, SETCONT+1
TIUDA	PRINT~, PRINT+4, PRINT+12, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+20, REPORT+3, REPORT+5 , AMENDMNT+2, AMENDMNT+3, AMENDMNT+4, AMENDMNT+5, AMENDMNT+6, AMENDMNT+7, RPTSIG+2, RPTSIG+3, RPTSIG+4, ADDENDA+3 , ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+2, ADDENSIG+4, ADDENSIG+5, SETCONT+1
TIUFLAG	PRINT~, PRINT+8, PRINT+15, RPTSIG+8, RPTSIG+14, SETCONT+1
TIUHEAD	SETCONT~, SETCONT+1
TIUI	REPORT+1~, REPORT+2, REPORT+3, REPORT+5, AMENDMNT+4, RPTSIG+12, ADDENDA+7, ADDENDA+8, ADDENDA+10, ADDENSIG+9*
TIULINE	RPTSIG+1~, RPTSIG+5, RPTSIG+8, RPTSIG+14, ADDENSIG+3
TIUPAGE	PRINT+3~, PRINT+4*, PRINT+15, SETCONT+1
TIUSBLK	RPTSIG+1~, RPTSIG+4, RPTSIG+6, ADDENSIG+1~, ADDENSIG+2
TIUSBLK(	RPTSIG+12, ADDENSIG+9
TIUSTAT	PRINT+3~, PRINT+12*
TIUY	PRINT+3~, REPORT+2, AMENDMNT+1, RPTSIG+6, RPTSIG+7, ADDENDA+4, ADDENDA+14, ADDENSIG+6
X	PRINT+6, REPORT+1~, REPORT+5, ADDENDA+1~, ADDENDA+10
Z	REPORT+1~, ADDENDA+1~

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRDS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: