Routine: LRSPRPT

Information

LRSPRPT ;DALOI/STAFF - CY/EM/SP PATIENT RPT ; 30 Aug 2016 5:20 PM

Source file <LRSPRPT.m>

Name	Comments	DBIA/ICR reference
GETP	;
CH	;
DEV	; from LRAPMOD
QUE	;
PSGL	; Single Report
PQUE	;Report from queue
LST	;
W	;
F	; ; N A,DIWF,DIWL,DIWR
E	;
EN	; from LRSPT ; Moved to LRSPRPTA due to size limits on routine
S	;
SGL	; Print Single Report
A	;
TOP	;
SUPA	; Print supplementary report audit information
SUPM	; Print previous versions of supplementary reports ; This is used by menu option 'Print path modifications [LRAPMOD]'
CONT	;
FOC	; Print final office copy page (SNOMEDS)
END	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," FINAL PATIENT REPORTS" Line Location: LRSPRPT+3
Function Call: WRITE	Prompt: !!,"Save final report list for reprinting " Line Location: CH+2
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: PSGL+20
Function Call: WRITE	Prompt: ! Line Location: PQUE+28
Function Call: WRITE	Prompt: !,LR("%") Line Location: W+1
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",DIWL,A,0) Line Location: F+6
Function Call: WRITE	Prompt: ! Line Location: F+7
Function Call: WRITE	Prompt: !?3,"Date: ",Y Line Location: S+2
Function Call: WRITE	Prompt: " not verified" Line Location: S+3
Function Call: WRITE	Prompt: $C(7)," Sorry, report not verified.",! Line Location: SGL+5
Function Call: WRITE	Prompt: !,$P(^LR(LRDFN,LRSS,LRI,LRV,A,0),"^") Line Location: A+3
Function Call: WRITE	Prompt: !?14,"+ SUPPLEMENTARY REPORT HAS BEEN ADDED/MODIFIED +" Line Location: SUPA+1
Function Call: WRITE	Prompt: !,"(Added/Last modified: " Line Location: SUPA+2
Function Call: WRITE	Prompt: Y,LRSGN,A,")" Line Location: SUPA+13
Function Call: WRITE	Prompt: !,?25,"*- NOT VERIFIED -*" Line Location: SUPA+15
Function Call: WRITE	Prompt: !,"Date ",Y2,Y,LRSGN,X Line Location: SUPM+10
Function Call: WRITE	Prompt: !?13,"==========Text below appears on final report==========" Line Location: SUPM+20
Function Call: WRITE	Prompt: ! Line Location: CONT+2

FileNo	Call Tags
^LR - [#63]	GET1^DIQ
^LRT(67 - [#67]	GET1^DIQ