Routine: LRUPAD

Information

LRUPAD ;AVAMC/REG/WTY - LAB ACCESSION LIST BY DATE ;9/25/00

Source file <LRUPAD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," ACCESSION LIST" Line Location: LRUPAD+8
Function Call: READ	Variable: X Timeout: DTIME Line Location: L+0
Function Call: WRITE	Prompt: !?72,"-----",!,"Cell block (b) count: ",Q(1),?58,"Slide count:",?72,$J(Q(2),5) Line Location: QUE+3
Function Call: WRITE	Prompt: !,LRO(68)," (",LRSTR,"-",LRLST,")",! Line Location: H+3
Function Call: WRITE	Prompt: "Collection Sample: ",C,! Condition for execution: $D(C)#2 Line Location: H+3
Function Call: WRITE	Prompt: "# = Not VA patient ",$S(LRSS="CY":"* = Reviewed by pathologist",1:""),?57,$S("AUSPCYEMMI"[LRSS:"% =Incomplete",1:"") Line Location: H+4
Function Call: WRITE	Prompt: ?60,$S("CH"[LRSS:"%=Test not verified",1:"") Line Location: H+5
Function Call: WRITE	Prompt: ?72,"Slide" Line Location: H+5
Function Call: WRITE	Prompt: ?72,"Count" Line Location: H+6
Function Call: WRITE	Prompt: ?62,"Test",?76,"Tech",!,LR("%") Line Location: H+7
Function Call: WRITE	Prompt: ?46,"Date/time of Autopsy" Condition for execution: LRSS="AU" Line Location: H+8
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+8
Function Call: WRITE	Prompt: !!,"Enter following letter for appropriate listing:" Line Location: S+0
Function Call: WRITE	Prompt: !?5,"'A' for listing by accession number" Line Location: S+1
Function Call: WRITE	Prompt: !?5,"'P' for listing by patient" Line Location: S+2