Routine: LRAPQOR1

Information

LRAPQOR1 ;AVAMC/REG/CYM - QA CODE REPORT ;2/12/98 10:46

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sort by QA CODE only " Line Location: LRAPQOR1+2
Function Call: WRITE	Prompt: !!,$P(LRB,"^"),?5,$P(LRB,"^",2) Line Location: QUE+2
Function Call: WRITE	Prompt: !,"Total QA Codes: ",LRM Line Location: D+1
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !,LRD,?10,LRY,?24,LRE Line Location: W+0
Function Call: WRITE	Prompt: !,$P(LRB,"^"),?5,$P(LRB,"^",2) Line Location: W1+0
Function Call: WRITE	Prompt: !?24,"Total QA Codes: ",$J(LRT,3) Line Location: W1+1
Function Call: WRITE	Prompt: !,LRE,?10,LRY Line Location: W2+0
Function Call: WRITE	Prompt: !,"Subtotal QA Codes: ",$J(LRN,3) Line Location: W2+1
Function Call: WRITE	Prompt: !,"QA CODES for ",LRAA(1)," From: ",LRSTR," To: ",LRLST Line Location: H+1
Function Call: WRITE	Prompt: !,$P(LRB,"^"),?5,$P(LRB,"^",2) Line Location: H2+0
Function Call: WRITE	Prompt: !,"Acc #",?10,"Rec'd",!,LR("%") Line Location: H3+0
Function Call: WRITE	Prompt: !,"Pathologist: ",LRP Line Location: H4+0
Function Call: WRITE	Prompt: !,$P(LRB,"^"),?5,$P(LRB,"^",2) Line Location: H5+0