Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RMPR5HQ2

Package: Prosthetics

Routine: RMPR5HQ2


Information

RMPR5HQ2 ;HCIOFO/RVD - ITEM & HCPCS USAGE REPORT ; 15 AUG 00

Source Information

Source file <RMPR5HQ2.m>

Entry Points

Name Comments DBIA/ICR reference
MANUAL ;run the USAGE report manually. User needs to enter the month the
ITEM ;entry point for Item Detail Usage report
HCPCS ;entry point for HCPCS Summary Usage report.
LINE ;entry point for NPPD LINE Usage report.
GROUP ;entry point for NPPD GROUP Usage report.
DQ1 ;print PIP Report (Item Detail Usage report).
TOT
CLEAN1 ; Clean and EXITS program.
HDRI ;print heading.
LBL1 ;print column header.
GLN1 ;print NPPD GROUP and LINE header.
SUML1 ;print summary total for NPPD LINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+78
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+79
Function Call: WRITE
  • Prompt: !!,"No Records to Print !!"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!,?10,"GRAND TOTAL $ VALUE ISSUED (Used) = ",?38,"$",$J($FN(RMGTIU,",",2),10)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?80,"GRAND TOTAL $ VALUE ON-HAND (Used) = ",?115,"$",$J($FN(RMGTOU,",",2),12)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !,?10,"GRAND TOTAL $ VALUE ISSUED (New) = ",?38,"$",$J($FN(RMGTIN,",",2),10)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?80,"GRAND TOTAL $ VALUE ON-HAND (New) = ",?115,"$",$J($FN(RMGTON,",",2),12)
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: TOT+6
Function Call: WRITE
  • Prompt: !,"PROSTHETIC INVENTORY ITEM DETAIL REPORT",?50,"Run Date: ",RMRDATE,?100,"Page: ",RMPAGE
  • Line Location: HDRI+3
Function Call: WRITE
  • Prompt: !,"STATION: ",$E(RSTN,1,20)
  • Line Location: HDRI+4
Function Call: WRITE
  • Prompt: ?32,RMBD," - ",RMED," [ ",RMCALDAY," calendar days ]"
  • Line Location: HDRI+5
Function Call: WRITE
  • Prompt: !,RLN
  • Line Location: LBL1+2
Function Call: WRITE
  • Prompt: ?23,"V.A.(Used) Total| COM. (New) Total| Total |Days Ave | Stock On-Hand| Days |Total $ Value On-Hand"
  • Line Location: LBL1+7
Function Call: WRITE
  • Prompt: !,?23,"Issue $ Value| Issue $ Value| Issue |Usage Rate| Used New | On-Hand| Used New"
  • Line Location: LBL1+8
Function Call: WRITE
  • Prompt: !!,RJ," ",RNPLINE," [",RNPGRP," ]"
  • Line Location: GLN1+2
Function Call: WRITE
  • Prompt: !,REQ
  • Line Location: SUML1+2
Function Call: WRITE
  • Prompt: !,?5,"(Used)",?26,$J(RMTVAL,5),?34,$J($FN(RMTISUL,",",2),6),?40,"|",?59,"|",?60,$J(RMTUSELU,5),?67,"|",?71,$J(RMTAVELU,5,2),?78,"|"
  • Line Location: SUML1+7
Function Call: WRITE
  • Prompt: ?81,$J(RMTQOHUL,5),?94,"|",?103,"|",?104,$J($FN(RMTVALUL,",",2),11)
  • Line Location: SUML1+8
Function Call: WRITE
  • Prompt: !,?5,"(New)",?40,"|",?41,$J(RMTCOML,4),?49,$J($FN(RMTISNL,",",2),9),?59,"|",?60,$J(RMTUSELN,5),?67,"|",?71,$J(RMTAVELN,5,2),?78,"|"
  • Line Location: SUML1+10
Function Call: WRITE
  • Prompt: ?87,$J(RMTQOHNL,6),?94,"|",?103,"|",?116,$J($FN(RMTVALNL,",",2),11)
  • Line Location: SUML1+11
Info |  Source |  Entry Points |  Interaction Calls