Routine: RMPR5HQH

Information

RMPR5HQH ;HCIOFO/RVD - HCPCS USAGE REPORT ; 15 AUG 00

Name	Comments	DBIA/ICR reference
DQ1	;print PIP Report
HDRH	;print heading.
GLN1	;print NPPD GROUP and LINE header.
SUMH1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DQ1+3
Function Call: WRITE	Prompt: !,"PROSTHETIC INVENTORY HCPCS SUMMARY REPORT",?50,"Run Date: ",RMRDATE,?100,"Page: ",RMPAGE Line Location: HDRH+3
Function Call: WRITE	Prompt: !,"STATION: ",$E(RSTN,1,20) Line Location: HDRH+4
Function Call: WRITE	Prompt: ?32,RMBD," - ",RMED," [ ",RMCALDAY," calendar days ]" Line Location: HDRH+5
Function Call: WRITE	Prompt: !!,RJ," ",RNPLINE," [ ",RNPGRP," ]" Line Location: GLN1+2
Function Call: WRITE	Prompt: !,RHCPC,?10,$E(RNPITEM,1,10),"(Used)",?26,$J(RMTVAH,5),?34,$J($FN(RMTISUH,",",2),6),?40,"\|",?59,"\|",?60,$J(RTUSEHA,5),?67,"\|",?71,$J(RTAVEHA,5,2),?78,"\|" Line Location: SUMH1+14
Function Call: WRITE	Prompt: ?81,$J(RMTQOHUH,5),?94,"\|",?97,$J(RTDLEHA,6),?103,"\|",?104,$J($FN(RMTVALUH,",",2),11) Line Location: SUMH1+15
Function Call: WRITE	Prompt: !,RHCPC,?10,$E(RNPITEM,1,10),"(New)",?40,"\|",?41,$J(RMTCOMH,4),?49,$J($FN(RMTISNH,",",2),9),?59,"\|",?60,$J(RTUSEHC,5),?67,"\|",?71,$J(RTAVEHC,5,2),?78,"\|" Line Location: SUMH1+17
Function Call: WRITE	Prompt: ?87,$J(RMTQOHNH,6),?94,"\|",?97,$J(RTDLEHC,6),?103,"\|",?116,$J($FN(RMTVALNH,",",2),11) Line Location: SUMH1+18
Function Call: WRITE	Prompt: @IOF Line Location: SUMH1+20
Function Call: WRITE	Prompt: @IOF Line Location: SUMH1+21