Routine: LRUPACA

Information

LRUPACA ;AVAMC/REG - LAB ACC COUNTS BY LOC ;2/18/93 13:09 ;

Source file <LRUPACA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRAA(1)," ACCESSION COUNTS" Line Location: LRUPACA+12
Function Call: WRITE	Prompt: !,S,?30,$J(^TMP($J,"B",S),5) Line Location: QUE+2
Function Call: WRITE	Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9) Line Location: QUE+3
Function Call: WRITE	Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T) Line Location: QUE+4
Function Call: WRITE	Prompt: !?41,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T),?70,$J(T(1),9) Line Location: T+0
Function Call: WRITE	Prompt: !?30,S,?55,$J(Z,9) Line Location: B+0
Function Call: WRITE	Prompt: ?70,$J(V,9) Line Location: B+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS (",LRSTR,"-",LRLST,")",!,"INCLUSIVE DATES/TIMES WITH DATA: ",LRINCA Line Location: H+3
Function Call: WRITE	Prompt: " TO ",LRINCB Condition for execution: LRINCB]"" Line Location: H+3
Function Call: WRITE	Prompt: !,"Location",?26,"# Accessions",?69,"Test count",!,LR("%") Line Location: H1+0
Function Call: WRITE	Prompt: !,S Line Location: H2+0
Function Call: WRITE	Prompt: !,"Test",?35,"Location",?55,"Test count",?70,"Cum count",!,LR("%") Line Location: H3+0