Routine: LRUPACS

Information

LRUPACS ;AVAMC/REG - LAB ACCESSION COUNTS BY SHIFT ;2/18/93 13:09 ;

Source file <LRUPACS.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,W(1)," ACCESSION & TEST COUNTS BY SHIFT" Line Location: LRUPACS+3
Function Call: WRITE	Prompt: !,$E($P(^LAB(61,S,0),"^"),1,19) Line Location: QUE+6
Function Call: WRITE	Prompt: !,?20,"-----",?35,"-----",?50,"-----",?65,"-------",!,"Total",$S($D(S):" Accessions",1:" Tests"),?20,$J(A(7),5),?35,$J(A(5),5),?50,$J(A(6),5),?65,$J(A(8),7) Line Location: TOT+0
Function Call: WRITE	Prompt: ?20,$J(A(3),5),?35,$J(A(1),5),?50,$J(A(2),5),?65,$J(A(4),7) Line Location: SUM+1
Function Call: WRITE	Prompt: !! Line Location: TST+0
Function Call: WRITE	Prompt: !,$E($P(^LAB(60,T,0),"^"),1,19) Line Location: TST+1
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE ",W(1)," COUNTS",!?21,"From:",LRSTR," To:",LRLST Line Location: H+1
Function Call: WRITE	Prompt: !,?20,"12am-8am",?35,"8am-4pm",?50,"4pm-midnight",?65,"Total count",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: Y Line Location: B+0
Function Call: WRITE	Prompt: Y Line Location: B+2
Function Call: WRITE	Prompt: $C(7),!?3,"Date cannot be TODAY." Line Location: N+0