Routine: LRUPACT

Information

LRUPACT ;AVAMC/REG - LAB ACC COUNTS BY TREATING SPECIALTY ;9/30/93 11:57 ;

Source file <LRUPACT.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,LRAA(1)," ACCESSION COUNTS BY TREATING SPECIALTY" Line Location: LRUPACT+3
Function Call: WRITE	Prompt: !,T(6),?30,$J(^TMP($J,"B",S),5) Line Location: QUE+4
Function Call: WRITE	Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(LRT,9) Line Location: QUE+5
Function Call: WRITE	Prompt: !,N Line Location: QUE+6
Function Call: WRITE	Prompt: !?30,M,?55,$J(Z,9) Line Location: F+0
Function Call: WRITE	Prompt: ?70,$J(V,9) Line Location: F+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: F+1
Function Call: WRITE	Prompt: !?41,N,?70,$J(T(1),9) Line Location: T+0
Function Call: WRITE	Prompt: !?70,"---------",!?25,"Sub-total for ",T(6),":",?70,$J(T(5),9),!,LR("%") Line Location: T+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS(",LRSTR,"-",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,"Specialty",?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,"Specialty",?55,"Test count",?70,"Cum count",!,LR("%") Line Location: H4+0