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

Package: Prosthetics

Routine: RMPRPI14


Information

RMPRPI14 ;HIN/ODJ - ITEMS NOT ISSUED WITHIN 30-DAY ;3/9/05 07:34

Source Information

Source file <RMPRPI14.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 PRINT 30-DAY  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RMPRPI14+6, RMPRPI14+7
DD^%DT RMPRPI14+6
^%ZIS CONT
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD CONT+6
^DIC EN1+4
^DIR WRI+26, HEAD1, EXIT
PROC^RMPRPI02 PRINT+9
DIV4^RMPRSIT RMPRPI14+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: @IOF
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+27
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"<End of Report>"
  • Line Location: WRI+29
Function Call: WRITE
  • Prompt: !,"*** PROSTHETICS ITEMS NOT ISSUED WITHIN 30-DAY ***"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",RMPAGE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Run Date: ",RMTODAT,?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: !,?48,"DATE",?65,"UNIT",?74,"TOTAL"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"HCPCS",?10,"ITEM",?34,"SRC",?39,"VENDOR"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?47,"ENTERED",?57,"QTY",?65,"COST",?74,"VALUE"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"-----",?10,"----",?34,"---",?39,"------"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: ?47,"-------",?57,"---",?65,"----",?73,"------"
  • Line Location: HEAD1+8
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+26
    • 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
^RMPR(661.6 - [#661.6] WRI+6
^TMP($J EN!, PRINT+12, WRI+1, WRI+2, WRI+4, EXIT1+2!

Label References

Name Line Occurrences
CONT EN1+3
EN1 EN1+1
EXIT PRINT+12, PRINT+15
EXIT1 EN1, EN1+4, CONT, CONT+6
HEAD PRINT+14, WRI+26, WRI+27, HEAD1, HEAD1+1, NONE+2
HEAD1 WRI+20, WRI+26, WRI+27
NONE PRINT+12
PRINT CONT+1
WRI PRINT+14

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