Routine: LRSORB

Information

LRSORB ;DALOI/RWF/RLM-SCAN PART OF LRSORA ;7/3/86 12:47 PM

Source file <LRSORB.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PNM,?35,SSN," " Line Location: PRINT+2
Function Call: WRITE	Prompt: $S($D(^DPT(DFN,.1)):^(.1),1:LRLLOC) Condition for execution: LRDPF=2 Line Location: PRINT+2
Function Call: WRITE	Prompt: ?60,$P(L0,U,6) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?5,LRTEST(I,1),?20," ",$J($P(V(I),U,1),8),$J($P(V(I),U,2),3)," ",$S($D(^LAB(61,LRSPEC,0)):$P(^(0),U,1),1:"") Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF,"SPECIAL REPORT: SEARCHING FOR ",?30,LRTEST(1,1)," ",LRTEST(1,2)," ",$$FMTE^XLFDT($$NOW^XLFDT,"") Line Location: HDR+0
Function Call: WRITE	Prompt: !,?25," or" Condition for execution: I>1 Line Location: HDR+1
Function Call: WRITE	Prompt: ?30,LRTEST(I,1)," ",LRTEST(I,2) Line Location: HDR+1
Function Call: READ	Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: $C(7) Line Location: WAIT+0