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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPORPT

Package: Prosthetics

Routine: RMPORPT


Information

RMPORPT ;(NG)/DG/CAP /HINES CIOFO/HNC - Home Oxygen Primary Item Report ;7/24/98

Source Information

Source file <RMPORPT.m>

Entry Points

Name Comments DBIA/ICR reference
SITE ;Set up site variables.
LI ;List the sought patient.
EXIT ;
CNT ;COUNT NAMES
PBREAK ;Print the break of primary items.
SSN ;GET SSN
IT ;Get the primary Item.
QTY ;Get the quntity of the primary item.
UCOST ;Get the unit cost of the primary item.
TCOST ;Calculate the total cost of the primary item.
ZPAGE(RY)
RPTHDR ;Report header.
SORT ;Sort patient by primary item and patient name.
ST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Primary Item: ",PBREAK,!
  • Line Location: PBREAK+2
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RA)/2)),RA,?72,"Page: "_PAGE
  • Line Location: RPTHDR+2
Function Call: WRITE
  • Prompt: !?23,"Primary Item Report",!
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !?64,"Unit",?73,"Total"
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,"Patient",?20,"SSN",?26,"Primary Item",?58,"Qty"
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: ?64,"Cost",?74,"Cost"
  • Line Location: RPTHDR+6
Function Call: WRITE
  • Prompt: !,"=================",?19,"====",?26,"=============================="
  • Line Location: RPTHDR+7
Function Call: WRITE
  • Prompt: ?58,"===",?64,"======",?73,"======"
  • Line Location: RPTHDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTHDR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call