Routine: LRAPTIUP

Information

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

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