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: RMPR5HQG

Package: Prosthetics

Routine: RMPR5HQG


Information

RMPR5HQG ;HCIOFO/RVD - NPPD GROUP USAGE REPORT ; 15 AUG 00

Source Information

Source file <RMPR5HQG.m>

Entry Points

Name Comments DBIA/ICR reference
DQ1 ;print PIP Report
HDRG ;print heading.
GLN1 ;print NPPD GROUP and LINE header.
SUMG1 ;print summary total for NPPD GROUP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+51
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ1+52
Function Call: WRITE
  • Prompt: !!,"No Records to Print !!"
  • Line Location: DQ1+53
Function Call: WRITE
  • Prompt: !!,REQ
  • Line Location: DQ1+55
Function Call: WRITE
  • Prompt: !!,?10,"GRAND TOTAL $ VALUE ISSUED (Used) = ",?38,"$",$J($FN(RMGISUG,",",2),10)
  • Line Location: DQ1+57
Function Call: WRITE
  • Prompt: ?80,"GRAND TOTAL $ VALUE ON-HAND (Used) = ",?115,"$",$J($FN(RMGTOU,",",2),12)
  • Line Location: DQ1+58
Function Call: WRITE
  • Prompt: !,?10,"GRAND TOTAL $ VALUE ISSUED (New) = ",?38,"$",$J($FN(RMGISNG,",",2),10)
  • Line Location: DQ1+59
Function Call: WRITE
  • Prompt: ?80,"GRAND TOTAL $ VALUE ON-HAND (New) = ",?115,"$",$J($FN(RMGTON,",",2),12)
  • Line Location: DQ1+60
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: DQ1+62
Function Call: WRITE
  • Prompt: !,"PROSTHETIC INVENTORY NPPD GROUP REPORT",?50,"Run Date: ",RMRDATE,?100,"Page: ",RMPAGE
  • Line Location: HDRG+3
Function Call: WRITE
  • Prompt: !,"STATION: ",$E(RSTN,1,20)
  • Line Location: HDRG+4
Function Call: WRITE
  • Prompt: ?32,RMBD," - ",RMED," [ ",RMCALDAY," calendar days ]"
  • Line Location: HDRG+5
Function Call: WRITE
  • Prompt: !!,"ENTIRE SUMMARY"
  • Line Location: GLN1+1
Function Call: WRITE
  • Prompt: !,RLN
  • Line Location: SUMG1+2
Function Call: WRITE
  • Prompt: !,RGRP," ",RNPGRP
  • Line Location: SUMG1+3
Function Call: WRITE
  • Prompt: !,?5,"(Used)",?26,$J(RMTVAG,5),?34,$J($FN(RMTISUG,",",2),6),?40,"|",?59,"|",?60,$J(RTUSEGA,5),?67,"|",?71,$J(RTAVEGA,5,2),?78,"|"
  • Line Location: SUMG1+15
Function Call: WRITE
  • Prompt: ?81,$J(RMTQOHUG,5),?94,"|",?97,$J(RTDLEGA,6),?103,"|",?104,$J($FN(RMTVALUG,",",2),11)
  • Line Location: SUMG1+16
Function Call: WRITE
  • Prompt: !,?5,"(New)",?40,"|",?41,$J(RMTCOMG,4),?49,$J($FN(RMTISNG,",",2),9),?59,"|",?60,$J(RTUSEGC,5),?67,"|",?71,$J(RTAVEGC,5,2),?78,"|"
  • Line Location: SUMG1+18
Function Call: WRITE
  • Prompt: ?87,$J(RMTQOHNG,6),?94,"|",?97,$J(RTDLEGC,6),?103,"|",?116,$J($FN(RMTVALNG,",",2),11)
  • Line Location: SUMG1+19
Info |  Source |  Entry Points |  Interaction Calls