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

Package: Prosthetics

Routine: RMPR5N4


Information

RMPR5N4 ;HIN/RVD-PRINT LAB ITEM SUMMARY BY EMPLOYEE ;3/13/1998

Source Information

Source file <RMPR5N4.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
CONT
ENDATE
PRINT
PRI1
EXIT ;Exit
EXIT1 ;
HEAD ;write heading
HEAD1
SUM
REST
WRI ;
ALL ;process all lab employees.
NONE ;No data for certain employee
NONEALL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter 'ALL' for all Lab Employees or 'RETURN' to select individual names: "
  • Variable: RMENTER
  • Timeout: DTIME
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate employee name"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+0
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: !!?32,"END OF REPORT"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,?18,"PROSTHETICS LAB ITEM SUMMARY BY EMPLOYEE",?64,"Page: ",RMPAGE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,RMPRX," to ",RMPRY
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"Employee: ",I
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !," DATE",?17,"ITEM",?43,"HCPCS",?51,"TIME SPENT(hr)",?68,"LABOR COST"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !," ----",?17,"----",?43,"-----",?51,"--------------",?68,"----------"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,?53,"--------",?70,"--------",!,?39,"***TOTALS =",?53,$J(RMTITOT,7,2),?67,$J(RMDOTOT,10,2),!
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+24
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"No Lab data for Employee: ",RMD," ....for this date range !!!"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !!,"NO DATA FOR THIS DATE RANGE!!!"
  • Line Location: NONEALL+0

FileMan Files Accessed Via FileMan Db Call

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