Routine: LRUW

Information

LRUW ;AVAMC/REG - ACCESSION AREA WORKLIST ;2/22/94 07:21 ;

Source file <LRUW.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," Date not specific enough" Line Location: D+1
Function Call: WRITE	Prompt: $C(7),!!,"NO ",W(1)," ACCESSIONS IN FILE FOR ",LRH(0),! Line Location: D+2
Function Call: READ	Formatting: !! Prompt: "Start from accn #: " Variable: N(1) Timeout: DTIME Line Location: ST+0
Function Call: READ	Formatting: !! Prompt: "Go to accn #: LAST// " Variable: N(2) Timeout: DTIME Line Location: ST+1
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY" Line Location: ST+1
Function Call: WRITE	Prompt: !,$J(Z,3),") ",$J($S(T(5)>.999:T(5),1:T(5)*1000),5),?14,$P(N,"^",6) Line Location: L+0
Function Call: WRITE	Prompt: ! Condition for execution: $L($P(N,"^",6))>21 Line Location: L+0
Function Call: WRITE	Prompt: ?37,N(7),?49,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?54,$P(N,"^",2),?60,$E($P(N,"^"),1,19),!?15 Line Location: L+1
Function Call: WRITE	Prompt: "-" Line Location: L+1
Function Call: WRITE	Prompt: !,^TMP($J,W,0)," Worklist",?40,"(* = STAT)" Line Location: H+1
Function Call: WRITE	Prompt: !,"COUNT",?6,"ACC#",?17,"RESULT",?37,"Completed",?49,"Tech",?54,"ID",?60,"PATIENT",!,LR("%"),! Line Location: H+2
Function Call: WRITE	Prompt: !?15,T(2),T(3),":",!,LRH(0) Line Location: NEW+0
Function Call: WRITE	Prompt: !?15,T(2),T(3),":",!,LRH(0) Line Location: ZZ+0