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

Package: Prosthetics

Routine: RMPRPI08


Information

RMPRPI08 ;HIN/RVD-PRINT ITEM DETAIL BY LOCATION ;3/8/05 11:37

Source Information

Source file <RMPRPI08.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
CONT ;
DT ;
ENDATE
PRINT
WRI
HEAD
HEAD1
EXIT
EXIT1
NONE ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter 'ALL' for all Locations or 'RETURN' to select individual Locations: "
  • Variable: RMENTER
  • Timeout: DTIME
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate Location"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: !!,"Processing report....."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"ERROR NUMBER = ",RMCHK,!,"***Error in API RMPRPI07 !!!!",!!
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+19
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"<End of Report>"
  • Line Location: WRI+20
Function Call: WRITE
  • Prompt: !,"*** DETAIL ITEM USAGE BY LOCATION ***"," for ",RSOU," Items"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,20),?30,"Run Date: ",RMDAT
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",RMPAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,RMBDAT," to ",RMEDAT,?30,"[ ",RMCALDAY," calendar days ]"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,"Location: ",$P($G(^RMPR(661.5,RL,0)),"^",1)
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,?25,"QTY",?35,"$",?41,"DAYS AVE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?54,"DAYS",?62,"STOCK",?72,"TOTAL $"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,"HCPCS",?10,"ITEM",?24,"ISSUE",?33,"VALUE"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?40,"USAGE RATE",?52,"ON-HAND",?61,"ON-HAND",?70,"VAL ON-HND"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,"-----",?10,"----",?24,"-----",?33,"-----"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: ?40,"----------",?52,"-------",?61,"-------",?70,"----------"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: !!,"NO DATA to print !!!"
  • Line Location: NONE+4

FileMan Files Accessed Via FileMan Db Call

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