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

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 4 (,DD)^%DT  (,NOW)^%DTC  ^DIC  ^DIR  
Prosthetics 2 $$LOC^RMPRPI07  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 ITEM USAGE  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RMPRPI08+7, DT+1, ENDATE
DD^%DT RMPRPI08+7, PRINT+13
^%DTC PRINT+12
NOW^%DTC PRINT+14
^%ZIS ENDATE+3
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD ENDATE+10
^DIC EN1+4
^DIR CONT+4, WRI+18, HEAD1EXIT
$$LOC^RMPRPI07 PRINT+18
DIV4^RMPRSIT RMPRPI08+6
KILL^XUSCLEAN EXIT1+1

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661.5 - [#661.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" EN1+2
^DD("DD" PRINT+14
^DIC(4 - [#4] HEAD+1
^RMPR(661.5 - [#661.5] HEAD1+3
^TMP($J PRINT+22, WRI+1, WRI+2, WRI+3, EXIT1+2!

Label References

Name Line Occurrences
CONT EN1+3
EN1 EN1+1
ENDATE ENDATE
EXIT PRINT+19, PRINT+22, PRINT+25
EXIT1 EN1EN1+4, CONT+4, DT+1, ENDATEENDATE+3, ENDATE+10
HEAD PRINT+24, WRI+18, WRI+19, HEAD1HEAD1+1, NONE+2
HEAD1 WRI+13, WRI+18, WRI+19
NONE PRINT+22
PRINT ENDATE+4
WRI PRINT+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+14
%DT RMPRPI08+5!, DT+1*, ENDATE*
%DT("A" DT+1*, ENDATE*
%DT("B" DT+1*, ENDATE*
>> %ZIS ENDATE+3*
DIC RMPRPI08+5!, EN+1*
DIC("A" EN1+4*
DIC("S" EN+2*
DIC(0 EN+1*
DIR RMPRPI08+5!, CONT+1!, CONT+5!
DIR("A" CONT+2*
DIR("B" CONT+2*
DIR(0 CONT+3*, WRI+18*, HEAD1*, EXIT*
>> DIRUT CONT+4
DTIME EN1
>> DTOUT EN1EN1+4, CONT+4, WRI+18, HEAD1
>> DUOUT EN1CONT+4
IO ENDATE+4
IO("Q" ENDATE+4, ENDATE+5!
IOF PRINT+23, WRI+18, WRI+19, HEAD1HEAD1+1, NONE+1
ION ENDATE+6
IOP ENDATE+3!
IOSL WRI+18, WRI+19, HEAD1HEAD1+1
IOST PRINTPRINT+23, WRI+18, HEAD1HEAD1+1, EXITNONE+1
>> J WRI+1*, WRI+2*, WRI+3, WRI+14
>> K WRI+2*, WRI+3, WRI+4
>> POP ENDATE+3
>> RE CONT+5*, PRINT+15, PRINT+18
>> RH WRI+1*, WRI+2, WRI+3, WRI+15
>> RL WRI*, WRI+1*, WRI+2, WRI+3, HEAD1+3
>> RM PRINT+16*, PRINT+18
>> RM3 WRI+3*, WRI+5, WRI+6, WRI+9, WRI+12
>> RMB DT+1*, ENDATEPRINT+11, PRINT+13, PRINT+18
>> RMBDAT PRINT+13*, HEAD+3
>> RMCALDAY PRINT+12*, WRI+7, HEAD+3
>> RMCHK PRINT+18*, PRINT+19
>> RMCOS WRI+6*, WRI+15
>> RMDAT RMPRPI08+7*, PRINT+14*, HEAD+1
>> RMDAU WRI+7*, WRI+10, WRI+11*, WRI+15
>> RMDOH WRI+8*, WRI+10*, WRI+15
>> RME ENDATE+1*, PRINT+11, PRINT+13, PRINT+18
>> RMEDAT PRINT+13*, HEAD+3
>> RMENTER EN1*, EN1+1, EN1+2*, EN1+3
>> RMIDE WRI+14*, WRI+15
>> RMIT WRI+4*, WRI+15
>> RML EN1+4*, EN1+6*
>> RMLOCI EN1+5*, EN1+6, EN1+7
>> RMPAGE PRINT+21*, HEAD+2, HEAD+4*
RMPR EXIT1+1~
RMPR("L" WRI+20, HEAD1+2, NONE+3
RMPR("STA" PRINT+16
>> RMPREND EN*, PRINT+21*, WRI+1, WRI+2, WRI+18*, HEAD1*, EXIT
RMPRFLG EN!, WRI+1!, WRI+13, WRI+17*, HEAD1+10*
RMPRI EN!, EN1+3*, ENDATE+3, PRINT+18
RMPRI( EN1+6, EN1+7*
RMPRSITE EXIT1+1~
>> RMQTY WRI+5*, WRI+7, WRI+15
>> RMSOH WRI+9*, WRI+10, WRI+16
>> RMTDV WRI+12*, WRI+16
>> RS PRINT+16*, PRINT+18, HEAD+1
>> RSOU PRINT+15*, HEAD
U WRI+5, WRI+6, WRI+9, WRI+12, HEAD+1
>> X RMPRPI08+7*, EN1+2*, EN1+4, PRINT+12
>> X1 PRINT+11*
>> X2 PRINT+11*
>> Y RMPRPI08+6, RMPRPI08+7, EN1+2, EN1+5, CONT+5, DT+1, ENDATEENDATE+1, PRINT+13*, PRINT+14*
WRI+18, HEAD1
>> ZTDESC ENDATE+5*
>> ZTIO ENDATE+6*
>> ZTRTN ENDATE+6*
>> ZTSAVE("RE" ENDATE+8*
>> ZTSAVE("RMB" ENDATE+9*
>> ZTSAVE("RMDAT" ENDATE+7*
>> ZTSAVE("RME" ENDATE+9*
>> ZTSAVE("RMPR(" ENDATE+7*
>> ZTSAVE("RMPR(""STA"")" ENDATE+7*
>> ZTSAVE("RMPRI" ENDATE+8*
>> ZTSAVE("RMPRI(" ENDATE+6*
>> ZTSK ENDATE+10
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