Routine: LRAPTIUP

Information

LRAPTIUP ;DALOI/STAFF - API Print AP Reports from TIU ;11/05/10 17:30

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$CHKSUM^XUSESIG1 $$ENCRYP^XUSRB1
VA FileMan	2	$$GET1^DIQ ^DIR
Text Integration Utility	1	EXTRACT^TIULQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LRAPFICH LRAPMOD LRAURPT LRSPRPT

Entry Points

Name	Comments	DBIA/ICR reference
MAIN(LRTIUDA,LRDEV)	; Control Branching
EXTRACT	; Extract the report from TIU
DISSECT	; Dissect the report into header, body, and footer
ASKDEV	;
REPORT	;
HEADER	;Report Header
BODY	; Body of Report
FOOTER	;Report Footer
CHKSUM	;Compare LR and TIU checksums ; Get original checksum value from file 63
END	;

Name	Field # of Occurrence
^%ZIS	ASKDEV+2
HOME^%ZIS	ASKDEV+8
^%ZISC	END+2
^%ZTLOAD	ASKDEV+7
$$GET1^DIQ	CHKSUM+15
^DIR	HEADER+3
EXTRACT^TIULQ	EXTRACT+1
$$CHKSUM^XUSESIG1	CHKSUM+20
$$ENCRYP^XUSRB1	BODY+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"The IEN from the TIU DOCUMENT (#8925) file is undefined.",! Line Location: MAIN+14
Function Call: WRITE	Prompt: $C(7),!!,"Document not found.",! Line Location: EXTRACT+3
Function Call: WRITE	Prompt: $C(7),!!,"Document is not an Anatomic Pathology report.",! Line Location: DISSECT+5
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+1
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+3
Function Call: WRITE	Prompt: !,"Request Queued, #",ZTSK Condition for execution: $D(ZTSK) Line Location: ASKDEV+7
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: LRTXT Line Location: HEADER+9
Function Call: WRITE	Prompt: ?68,"Pg",$J(LRPG,3)," of ",LRTOTPGS Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: LRTXT,! Line Location: BODY+6
Function Call: WRITE	Prompt: ! Line Location: FOOTER+2
Function Call: WRITE	Prompt: LRTXT,! Line Location: FOOTER+7
Function Call: WRITE	Prompt: ?57,"(See next page)",! Line Location: FOOTER+8
Function Call: WRITE	Prompt: ?57,"(End of report)",! Line Location: FOOTER+9
Function Call: WRITE	Prompt: LRTXT,! Line Location: FOOTER+10
Routine Call	%ZIS Line Location: ASKDEV+2
Routine Call	%ZIS Line Location: ASKDEV+8
Routine Call	DIR Line Location: HEADER+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	CHKSUM+5, CHKSUM+9
^TMP("LRTIU"	MAIN+8!, EXTRACT+2, EXTRACT+5, CHKSUM+18*, END+3!
^TMP("LRTIUTXT"	MAIN+8!, EXTRACT+5, DISSECT+2, DISSECT+3, DISSECT+9!, DISSECT+12, DISSECT+13!, DISSECT+17, DISSECT+18!, DISSECT+21 , DISSECT+22!, DISSECT+26, DISSECT+27!, DISSECT+30, DISSECT+31!, DISSECT+32, DISSECT+33, REPORT+5, REPORT+6, REPORT+7 , HEADER+7, HEADER+8, BODY+2, BODY+4, FOOTER+3, FOOTER+5, END+3!

Label References

Name	Line Occurrences
ASKDEV	MAIN+19
BODY	REPORT+19
CHKSUM	REPORT+16
DISSECT	MAIN+17
END	MAIN+16, MAIN+18, MAIN+20, MAIN+22
EXTRACT	MAIN+15
FOOTER	REPORT+22, BODY+3
HEADER	REPORT+12, BODY+3
REPORT	MAIN+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+4!
%ZIS	ASKDEV+2*, END+5!
DIR	HEADER+2!, END+4!
DIR(0	HEADER+2*
DIRUT	END+4!
DTOUT	HEADER+4, END+4!
DUOUT	END+4!
IO	REPORT+1
IO("Q"	ASKDEV+4, ASKDEV+8!
IOF	REPORT+2, HEADER+5, END+1
IOSL	REPORT+9, REPORT+10, BODY+3, FOOTER+2
IOST	REPORT+2, HEADER+1, HEADER+10, BODY+3, END+1
LRCKSUM	REPORT+17, CHKSUM+12, CHKSUM+15, CHKSUM+16*, END+5!
LRCNT	MAIN+6~, DISSECT+1, DISSECT+12, DISSECT+14, DISSECT+16, DISSECT+17, DISSECT+21, DISSECT+25, DISSECT+26, DISSECT+29* , DISSECT+30, DISSECT+32
LRCNTF	MAIN+6~, FOOTER+1, FOOTER+4, FOOTER+6
LRCNTT	MAIN+6~, DISSECT+1, DISSECT+16, DISSECT+25, DISSECT+29, DISSECT+33
LRDEV	MAIN~, MAIN+10*, MAIN+19, END+2
>> LRDFN	CHKSUM+5, CHKSUM+6, CHKSUM+9, CHKSUM+10
LRENCRYP	REPORT+17, BODY+5, CHKSUM+3, END+5!
LREND	REPORT+3~, REPORT+4, REPORT+21, FOOTER+8
LRFILE	CHKSUM+2~, CHKSUM+7, CHKSUM+11, CHKSUM+12, CHKSUM+15
LRFLD	CHKSUM+2~
LRFLG	MAIN+6~, DISSECT+1, DISSECT+10, DISSECT+14, DISSECT+15, DISSECT+19, DISSECT+20, DISSECT+23*, DISSECT+24, DISSECT+28
LRFTC	REPORT+3~, REPORT+6*, REPORT+9, REPORT+10, BODY+3, FOOTER+2
LRHDC	REPORT+3~, REPORT+5*, REPORT+9, REPORT+10
LRHFLG	MAIN+6~, DISSECT+1, DISSECT+4, DISSECT+8
>> LRI	CHKSUM+9, CHKSUM+10
LRIENS	CHKSUM+2~, CHKSUM+6, CHKSUM+10, CHKSUM+14*, CHKSUM+15
LROR	MAIN+6~, DISSECT+1, DISSECT+2, DISSECT+3, DISSECT+9, DISSECT+13, DISSECT+18, DISSECT+22, DISSECT+27, DISSECT+31 , HEADER+6, HEADER+7, HEADER+8
LROR1	REPORT+3~, BODY+1, BODY+2, BODY+4
LROR2	REPORT+3~, FOOTER+1, FOOTER+3, FOOTER+5
LRPG	REPORT+3~, REPORT+4, HEADER+1, HEADER+5, HEADER+10
LRPTR	MAIN+6~, MAIN+11*, CHKSUM+5, CHKSUM+9, END+5!
>> LRQUIT	MAIN+12, MAIN+16, MAIN+18, MAIN+20, EXTRACT+4, DISSECT+2, DISSECT+6, ASKDEV+3, ASKDEV+9, REPORT+4 , REPORT+13, REPORT+20, HEADER+1, HEADER+4*, BODY+2, BODY+3
LRREL	CHKSUM+2~
LRROOT	CHKSUM+2~
>> LRSS	CHKSUM+4, CHKSUM+8, CHKSUM+9, CHKSUM+11
LRTIUDA	MAIN~, MAIN+11, MAIN+13, EXTRACT+1, EXTRACT+2, EXTRACT+5, CHKSUM+18, CHKSUM+19
LRTOTPGS	REPORT+3~, REPORT+9, REPORT+10, HEADER+10
LRTREC	CHKSUM+2~, CHKSUM+3, CHKSUM+5, CHKSUM+9*, CHKSUM+12, CHKSUM+14
LRTXC	REPORT+3~, REPORT+7*, REPORT+9, REPORT+10
LRTXT	MAIN+6~, DISSECT+3, DISSECT+4, DISSECT+7, DISSECT+11, DISSECT+17, DISSECT+20, DISSECT+26, DISSECT+30, HEADER+8 , HEADER+9, HEADER+10, BODY+4, BODY+5, BODY+6, FOOTER+5*, FOOTER+7, FOOTER+10
LRVAL	MAIN+6~, CHKSUM+19*, CHKSUM+20
POP	MAIN+20, ASKDEV+3, END+5!
TIUCKSUM	REPORT+17, CHKSUM+20*, END+5!
U	HEADER+4, CHKSUM+18
X	HEADER+4, END+4!
Y	END+4!
ZTDESC	ASKDEV+5*, END+6!
ZTQUEUED	END+2, END+6!
ZTREQ	END+2*, END+6!
ZTRTN	ASKDEV+6*, END+6!
ZTSK	ASKDEV+7, ASKDEV+8!

Customize PDF page

Package: Lab Service