Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIR  
Prosthetics 1 DIV4^RMPRSIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPR INV PRINT LAB ITEM  

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

External References

Name Field # of Occurrence
^%DT CONT, ENDATE
DD^%DT ENDATE+1
^%ZIS ENDATE+2
HOME^%ZIS EN+1
^%ZISC EXIT1+1
^%ZTLOAD ENDATE+5
^DIC EN1+3
^DIR EXIT+3, HEAD1, WRI+23
DIV4^RMPRSIT EN
KILL^XUSCLEAN EXIT1+2

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
Routine Call
  • DIC
  • Line Location:
    • EN1+3
Routine Call
  • DIR
  • Line Location:
    • EXIT+3
    • HEAD1
    • WRI+23
Routine Call
  • %ZIS
  • Line Location:
    • ENDATE+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" EN1+2
^RMPR(661.1 - [#661.1] WRI+13, WRI+14, WRI+15
^RMPR(661.2 - [#661.2] PRI1, REST, REST+1, WRI+7, ALL+2
^TMP($J EN+1!, PRINT+6, PRI1+1, REST+3*, WRI+3, WRI+6
^VA(200 - [#200] EN1+4, ALL+2

Label References

Name Line Occurrences
ALL PRINT+2
CONT EN1+2
EN1 EN1+1
ENDATE ENDATE
EXIT PRINT+3, PRINT+6
EXIT1 EN+1, EN1, EN1+3, CONT, ENDATE, ENDATE+1, ENDATE+2, ENDATE+5
HEAD HEAD1, HEAD1+1, WRI+5, WRI+23, WRI+24
HEAD1 WRI+5, WRI+23, WRI+24
NONE PRI1+1
NONEALL PRINT+3, PRINT+6
PRI1 PRINT+5
PRINT ENDATE+3
REST PRI1
SUM WRI+3
WRI PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT CONT*, ENDATE*
>> %DT("A" CONT*, ENDATE*
>> %DT("B" CONT*, ENDATE*
>> %ZIS ENDATE+2*
>> DIC EN+2*
>> DIC("A" EN1+3*
>> DIC(0 EN+2*
DIR EXIT+3!
DIR(0 EXIT+3*, HEAD1*, WRI+23*
DTIME EN1
>> DTOUT EN1, EN1+3, EXIT+3, HEAD1, WRI+23
>> DUOUT EN1, EXIT+3
>> EMP EN1+3*, EN1+5*
>> I HEAD1+2, WRI+3*, WRI+6, ALL+2*
IO ENDATE+3
IO("Q" ENDATE+3, ENDATE+4!
IOF PRINT+2, HEAD1, HEAD1+1, SUM+1, WRI+23, WRI+24
ION ENDATE+4
IOP ENDATE+2!
IOSL HEAD1, HEAD1+1, WRI+23, WRI+24
IOST PRINT, PRINT+2, EXIT+3, HEAD1, HEAD1+1, WRI+23
>> J WRI+3*, WRI+6, WRI+7
>> POP ENDATE+2
>> RM1 WRI+13*, WRI+14*, WRI+16
>> RM20 REST+1*, WRI+7*, WRI+8, WRI+9, WRI+10
>> RM21 WRI+7*, WRI+17
>> RMD PRINT+5*, PRI1+1, REST+3, NONE+1
>> RMDAHC WRI+10*, WRI+12, WRI+13, WRI+14, WRI+15
>> RMDAIT WRI+11*, WRI+13, WRI+14
>> RMDAT REST+1*, REST+2, REST+3, WRI+6*, WRI+18*, WRI+19
>> RMDOL WRI+17*, WRI+19, WRI+20
>> RMDOTOT SUM, WRI+3*, WRI+20*
RMEMP EN~, EN1+4*, EN1+5, EN1+6, ALL+1*, ALL+2*
>> RMENTER EN1*, EN1+1, EN1+2*
>> RMHCPC WRI+15*, WRI+19
>> RMHOUR WRI+17*, WRI+19, WRI+21
>> RMI PRINT+5*, PRI1
>> RMIT WRI+9*, WRI+11
>> RMITEM WRI+16*, WRI+19
>> RMPAGE PRINT+2*, HEAD+1, HEAD+3*
>> RMPAT WRI+8*
RMPR EXIT1+2~
RMPR("L" HEAD1+2, NONE+1
>> RMPRBDT CONT*, ENDATE, ENDATE+1, REST+2
>> RMPRCOUN CONT*
>> RMPREDT ENDATE+1*, EXIT+3, REST+2
>> RMPREND EN+1*, PRINT+2*, PRINT+6, PRI1, EXIT+3, HEAD1*, WRI+3, WRI+23*
RMPRFLG EN+1!, HEAD1+5*, SUM+1!, WRI+5, WRI+22*, WRI+24*
RMPRI EN+1!, CONT, PRINT+3
RMPRI( EN1+5, EN1+6*, PRINT+5, ALL+2*
RMPRI(0 EN1+2*, PRINT+2, PRI1+1
RMPRSITE EXIT1+2~
>> RMPRX ENDATE+1*, HEAD+2
>> RMPRY ENDATE+1*, HEAD+2
>> RMSUF WRI+3*, WRI+4*
>> RMTITOT SUM, WRI+3*, WRI+21*
>> RO PRI1*, REST, REST+1, REST+3
U EN1+4, REST+1, WRI+8, WRI+9, WRI+10, WRI+13, WRI+14, WRI+15, WRI+16, WRI+17
, ALL+2
>> X EN+1, EN1+2*, EN1+3
>> Y EN1+2, EN1+4, EN1+6, CONT, ENDATE, ENDATE+1*, HEAD1, WRI+23
>> ZTDESC ENDATE+4*
>> ZTIO ENDATE+4*
>> ZTRTN ENDATE+4*
>> ZTSAVE("RMPR(" ENDATE+4*
>> ZTSAVE("RMPR(""STA"")" ENDATE+4*
>> ZTSAVE("RMPRBDT" ENDATE+4*
>> ZTSAVE("RMPREDT" ENDATE+4*
>> ZTSAVE("RMPRI(" ENDATE+4*
>> ZTSAVE("RMPRX" ENDATE+4*
>> ZTSAVE("RMPRY" ENDATE+4*
>> ZTSK ENDATE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All