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

Package: Prosthetics

Routine: RMPRPI05


Information

RMPRPI05 ;HIN/RVD-PRINT INVENTORY BALANCE BY LOCATION ;3/8/05 11:26

Source Information

Source file <RMPRPI05.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIR  
Prosthetics 2 PROC^RMPRPI02  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 STOCK BY LOCATION  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RMPRPI05+6
DD^%DT RMPRPI05+6
^%ZIS CONT
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD CONT+5
^DIC EN1+4
^DIR WRI+24, HEAD1, EXIT
PROC^RMPRPI02 PRINT+11
DIV4^RMPRSIT RMPRPI05+5
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: !!,"Processing report....."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"***Error in API RMPRPI02 !!!!",!!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+25
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"<End of Report>"
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: !,"*** PROSTHETICS INVENTORY BALANCE BY LOCATION ***"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",RMPAGE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Run Date: ",RMDAT,?30,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,20)
  • 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")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,"Location: ",RLO
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,?52,"UNIT"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,?45,"DATE",?53,"OF",?65,"UNIT",?74,"TOTAL"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,"HCPCS",?10,"ITEM",?33,"SRC",?37,"VENDOR"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?45,"RECVD",?52,"ISSUE",?58,"QTY",?65,"COST",?74,"VALUE"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,"-----",?10,"----",?33,"---",?37,"------"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: ?45,"-----",?52,"-----",?58,"---",?65,"----",?73,"------"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !!,"NO DATA !!!!"
  • Line Location: NONE+3
Routine Call
  • DIC
  • Line Location:
    • EN1+4
Routine Call
  • DIR
  • Line Location:
    • WRI+24
    • HEAD1
    • EXIT
Routine Call
  • %ZIS
  • Line Location:
    • CONT
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
^DIC(4 - [#4] HEAD+2
^TMP($J EN!, PRINT+14, WRI+1, WRI+2, WRI+3, EXIT1+2!

Label References

Name Line Occurrences
CONT EN1+3
EN1 EN1+1
EXIT PRINT+14, PRINT+17
EXIT1 EN1, EN1+4, CONT, CONT+5
HEAD PRINT+16, WRI+24, WRI+25, HEAD1, HEAD1+1, NONE+2
HEAD1 WRI+19, WRI+24, WRI+25
NONE PRINT+14
PRINT CONT+1
WRI PRINT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS CONT*
>> DIC EN+1*
>> DIC("A" EN1+4*
>> DIC("S" EN+2*
>> DIC(0 EN+1*
>> DIR(0 WRI+24*, HEAD1*, EXIT*
DTIME EN1
>> DTOUT EN1, EN1+4, WRI+24, HEAD1
>> DUOUT EN1
IO CONT+1
IO("Q" CONT+1, CONT+2!
IOF PRINT+15, WRI+24, WRI+25, HEAD1, HEAD1+1, NONE+1
ION CONT+3
IOP CONT!
IOSL WRI+24, WRI+25, HEAD1, HEAD1+1
IOST PRINT, PRINT+15, WRI+24, HEAD1, HEAD1+1, EXIT, NONE+1
>> J WRI+1*, WRI+2*, WRI+3, WRI+4
>> K WRI+2*, WRI+3, WRI+6
>> POP CONT
>> RH WRI+1*, WRI+2, WRI+3, WRI+21
>> RL WRI*, WRI+1*, WRI+2, WRI+3, WRI+18
>> RLF WRI+1*
>> RLO WRI+18*, HEAD1+3
>> RM PRINT+8*, PRINT+11
>> RM3 WRI+3*, WRI+8, WRI+9, WRI+10, WRI+11, WRI+12, WRI+13, WRI+14, WRI+15
>> RMAST WRI+7*, WRI+16*
>> RMCOS WRI+10*, WRI+22
>> RMDAT RMPRPI05+6*, HEAD+2
>> RMDTE WRI+5*, WRI+6*, WRI+21
>> RMENTER EN1*, EN1+1, EN1+2*, EN1+3
>> RMIDE WRI+13*, WRI+20*, WRI+21
>> RMIT WRI+4*, WRI+21
>> RML EN1+4*, EN1+6*
>> RMLOCI EN1+5*, EN1+6, EN1+7
>> RMPAGE PRINT+13*, HEAD+1, HEAD+3*
RMPR EXIT1+1~
RMPR("L" WRI+26, HEAD1+2
RMPR("STA" PRINT+8
>> RMPREND EN*, PRINT+13*, WRI+1, WRI+2, WRI+24*, HEAD1*, EXIT
RMPRFLG EN!, WRI+1!, WRI+19, WRI+23*, HEAD1+10*
RMPRI EN!, EN1+3*, CONT, PRINT+11
RMPRI( EN1+6, EN1+7*
RMPRSITE EXIT1+1~
>> RMQTY WRI+9*, WRI+16, WRI+17*, WRI+21
>> RMROR WRI+8*, WRI+16
>> RMSOR WRI+15*, WRI+21
>> RMUNI WRI+7*, WRI+14*, WRI+21
>> RMVAL WRI+11*, WRI+22
>> RMVEN WRI+12*, WRI+21
>> RS PRINT+8*, PRINT+11, HEAD+2
U WRI+8, WRI+9, WRI+10, WRI+11, WRI+12, WRI+13, WRI+14, WRI+15, HEAD+2
>> X RMPRPI05+6*, EN1+2*, EN1+4
>> Y RMPRPI05+5, RMPRPI05+6, EN1+2, EN1+5, WRI+24, HEAD1
>> ZTDESC CONT+2*
>> ZTIO CONT+3*
>> ZTRTN CONT+3*
>> ZTSAVE("RMDAT" CONT+4*
>> ZTSAVE("RMPR(" CONT+4*
>> ZTSAVE("RMPR(""STA"")" CONT+4*
>> ZTSAVE("RMPRI" CONT+3*
>> ZTSAVE("RMPRI(" CONT+3*
>> ZTSK CONT+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