Routine: LRMLRIV

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

LRMLRIV ;BPFO/DTG - FILE 60 TEST-SPECIMENS WITH INACTIVE VUIDS REPORT ;02/10/2016

Source file <LRMLRIV.m>

Name	Comments	DBIA/ICR reference
EN	;entry point
ST	;
DEVICE
DO
DONE	; exit
BK	;entry if queued
PRT	; print report
PL	; Step down the B X-ref - exclude synomyms
PLE
PDONE	; print done
HEADER	;Description: Prints the report header.
PAUSE
GET664	; get file 66.4 info
GET60T	; get top of file 60 test info

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!! Line Location: ST+2
Function Call: WRITE	Prompt: !,*7,"No Device Selected" Line Location: DEVICE+1
Function Call: WRITE	Prompt: @IOF Line Location: PRT+3
Function Call: WRITE	Prompt: !,LRTSTN," [",LRTST,"]" Line Location: PLE+7
Function Call: WRITE	Prompt: !,?2,D," [",LRTE,"]",?42,$E(C,1,30)," [",K,"]" Line Location: PLE+15
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?11,HD Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?27,"Date Printed: "_$$FMTE^XLFDT(DT),?70,"Page ",PAGE,! Line Location: HEADER+5
Function Call: WRITE	Prompt: !,?2,"Specimen",?42,"MLTF" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,ULINE Line Location: HEADER+9
Function Call: WRITE	Prompt: !,LRTSTN," [",LRTST,"]" Line Location: HEADER+12
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1