Routine: TIUPRDS2

Package	Total	Call Graph
Text Integration Utility	3	$$NOW^TIULC $$DATE^TIULS $$STOP^TIUU
Kernel	2	$$FMDIFF^XLFDT $$REPEAT^XLFSTR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Text Integration Utility	1	TIUPRDS1

Entry Points

Name	Comments	DBIA/ICR reference
HEADER(TIUDA,TIU,TIUFLAG,TIUPAGE)	; Header
FOOTEXIT	;
FOOTER(TIUDA,TIU,TIUFLAG,TIUPAGE,TIUCOPY,TIUHDR)	; Control Pagination ; position, write footer when appropriate ; IF TIUHDR=1, HEADER WILL NOT BE PRINTED
DISPTYP(TEXT)	; NOIS SHE-1098-52553
HEADERX	;Header exit
AGE(TIUDT,TIUDOB)	; Compute patient's age as of discharge (or entry)

External References

Name	Field # of Occurrence
$$GET1^DIQ	FOOTER+16
$$NOW^TIULC	HEADER+7
$$DATE^TIULS	HEADER+7
$$STOP^TIUU	FOOTER+20
$$FMDIFF^XLFDT	AGE+1
$$REPEAT^XLFSTR	FOOTER+13, HEADER+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FOOTER+6
Function Call: WRITE	Prompt: !,"PATIENT: ",^TMP("TIULQ",$J,TIUDA,.02,"E") Line Location: FOOTER+8
Function Call: WRITE	Prompt: ?47,"VA FORM 10-1000 DISCHARGE SUMMARY" Line Location: FOOTER+9
Function Call: WRITE	Prompt: !,TIU("SSN")," DOB: ",$$DATE^TIULS(+$G(TIU("DOB")),"MM/DD/CCYY") Line Location: FOOTER+10
Function Call: WRITE	Prompt: ! Line Location: FOOTER+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: FOOTER+13
Function Call: WRITE	Prompt: !,"PATIENT: ",^TMP("TIULQ",$J,TIUDA,.02,"E") Line Location: FOOTER+14
Function Call: WRITE	Prompt: " ",TIU("SSN")," #",TIU("HRCN") Line Location: FOOTER+15
Function Call: WRITE	Prompt: !,$$GET1^DIQ(8925,+TIUDA,.01) Line Location: FOOTER+16
Function Call: WRITE	Prompt: ?40,$J(TIUCOPY,39) Line Location: FOOTER+19
Function Call: WRITE	Prompt: @IOF Line Location: FOOTER+21
Function Call: WRITE	Prompt: !,$E($P($G(TIU("DIV")),U,2),1,37),?$X+3,$S(^TMP("TIULQ",$J,TIUDA,.09,"I")="P":^("E"),1:"") Line Location: HEADER+6
Function Call: WRITE	Prompt: ?50,$$DATE^TIULS($$NOW^TIULC,"MM/DD/CCYY HR:MIN"),?71,"Page: ",$J(TIUPAGE,2) Line Location: HEADER+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("_",80) Line Location: HEADER+8
Function Call: WRITE	Prompt: !,TIULINE Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?33,"\| AGE \| SEX \| SSN \| CLAIM NUMBER" Line Location: HEADER+11
Function Call: WRITE	Prompt: !,^TMP("TIULQ",$J,TIUDA,.02,"E"),?33,"\| ",$J($G(TIU("AGE")),3),?39,"\|",?42,$P($G(TIU("SEX")),U),?45,"\| ",$P($G(TIU("SSN")),U),?60,"\| ",$G(TIU("CLAIM")) Line Location: HEADER+12
Function Call: WRITE	Prompt: !,TIULINE Line Location: HEADER+13
Function Call: WRITE	Prompt: !?2,"ADM DATE \| DISC DATE \| TYPE OF RELEASE \| INP \| ABS \| WARD NO" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,$P(^TMP("TIULQ",$J,TIUDA,.07,"E"),"@"),?13,"\| ",$P(^TMP("TIULQ",$J,TIUDA,.08,"E"),"@"),?28,"\| " Line Location: HEADER+16
Function Call: WRITE	Prompt: $S($G(^TMP("TIULQ",$J,TIUDA,.08,"E"))]"":$$DISPTYP($P($G(TIU("MTYPE")),U,2)),1:" "),?48,"\|" Line Location: HEADER+17
Function Call: WRITE	Prompt: ?49,$J($P($G(TIU("DAYS")),U),4),?54,"\|",?55,$J($P($G(TIU("DAYS")),U,4),4),?60,"\| ",$E($P($G(TIU("WARD")),U,2),1,18) Line Location: HEADER+18
Function Call: WRITE	Prompt: !,TIULINE Line Location: HEADER+19

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	HEADER+2
^TMP("TIULQ"	FOOTER+14, HEADER+6, HEADER+12, HEADER+16, HEADER+17

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRDS2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
$$AGE	HEADER+4
$$DISPTYP	HEADER+17
FOOTEXIT	FOOTER+3, FOOTER+20
HEADER	FOOTER+22
HEADERX	HEADER+14

Name	Field # of Occurrence
IOF	FOOTER+21
IOSL	FOOTER+3, FOOTER+11
IOST	FOOTER+12, FOOTER+20, HEADER+5, HEADER+14
>> IOT	FOOTER+11
TEXT	DISPTYP~, DISPTYP+2, DISPTYP+3, DISPTYP+4, DISPTYP+5
TIU	FOOTER~, FOOTER+22, HEADER~
TIU("AGE"	HEADER+4*, HEADER+12
TIU("CLAIM"	HEADER+12
TIU("DAYS"	HEADER+18
TIU("DIV"	HEADER+6
TIU("DOB"	HEADER+4
TIU("EDT"	HEADER+3
TIU("HRCN"	FOOTER+15
TIU("LDT"	HEADER+3
TIU("MTYPE"	HEADER+17
TIU("SEX"	HEADER+12
TIU("SSN"	FOOTER+15, HEADER+12
TIU("WARD"	HEADER+18
TIUADT	HEADER+1~, HEADER+3*, HEADER+4
>> TIUCONT	FOOTER+3, FOOTER+20, FOOTEXIT+1
TIUCOPY	FOOTER~, FOOTER+19
TIUDA	FOOTER~, FOOTER+14, FOOTER+16, FOOTER+22, HEADER~, HEADER+2, HEADER+6, HEADER+12, HEADER+16, HEADER+17
TIUDOB	AGE~, AGE+1
TIUDT	AGE~, AGE+1
TIUENTDT	HEADER+1~, HEADER+2*, HEADER+3
TIUFLAG	FOOTER~, FOOTER+22, HEADER~, HEADER+5
TIUHDR	FOOTER~, FOOTER+22
TIULINE	HEADER+1~*, HEADER+9, HEADER+13, HEADER+19
TIUPAGE	FOOTER~, FOOTER+22, HEADER~, HEADER+7, HEADER+8, HEADER+14, HEADERX+1
TIUY	FOOTER+3, DISPTYP+1~, DISPTYP+2, DISPTYP+3, DISPTYP+4, DISPTYP+5, DISPTYP+6
U	HEADER+6, HEADER+12, HEADER+17, HEADER+18
Y	AGE+1~*, AGE+2