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

Package: Prosthetics

Routine: RMPRPI06


Information

RMPRPI06 ;HIN/RVD-PRINT INVENTORY BALANCE BY HCPCS ;3/8/05 11:36

Source Information

Source file <RMPRPI06.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^RMPRPI01  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 HCPCS  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RMPRPI06+6
DD^%DT RMPRPI06+6
^%ZIS CONT
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD CONT+5
^DIC SEL
^DIR WRI+17, HEAD1EXIT
PROC^RMPRPI01 PRINT+9
DIV4^RMPRSIT RMPRPI06+5
KILL^XUSCLEAN EXIT1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RAS1,RAS2
  • Line Location: EN1+3
Function Call: READ
  • Variable: RMENTER
  • Timeout: DTIME
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Processing report......."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"*** Error in API RMPRPI01 !!!"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+18
Function Call: WRITE
  • Prompt: !,?56,"=======================",!,?31,"Totals for ",RHO," = "
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: ?54,$J(RTO,7),?69,$J($FN(RVA,",",2),10),!,RMPR("L")
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,"*** PROSTHETICS INVENTORY BALANCE BY HCPCS ***"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?68,"PAGE: ",RMPAGE,!,"Run Date: ",RMDAT
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?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: !,?47,"RE-",?52,"UNIT"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,?46,"ORDER",?53,"OF",?65,"UNIT",?74,"TOTAL"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"HCPCS",?10,"ITEM",?26,"SRC",?30,"LOCATION",?39,"VENDOR"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?46,"LEVEL",?52,"ISSUE",?59,"QTY",?65,"COST",?74,"VALUE"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"-----",?10,"----",?26,"---",?30,"--------",?39,"------"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: ?46,"-----",?52,"-----",?59,"---",?65,"----",?73,"------"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !!,"NO DATA !!!!!"
  • Line Location: NONE+2
Routine Call
  • DIC
  • Line Location:
    • SEL
Routine Call
  • DIR
  • Line Location:
    • WRI+17
    • 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.1 - [#661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" EN1+6
^DIC(4 - [#4] HEAD+2
^RMPR(661.1 - [#661.1] SEL+1
^TMP($J EN!, PRINT+12, WRI+1, WRI+2, WRI+3, EXIT1+2!

Label References

Name Line Occurrences
CONT EN1+7
EN1 EN1+5
EXIT CONT+5, PRINT+12, PRINT+15
EXIT1 EN1+4, SELCONT
HEAD PRINT+14, WRI+17, WRI+18, HEAD1HEAD1+1, NONE+2
HEAD1 WRIWRI+17, WRI+18
NONE PRINT+12
PRINT CONT+1
TOTAL PRINT+15, WRI+1
WRI PRINT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS CONT*
>> DIC EN+1*
>> DIC("A" SEL*
>> DIC("S" EN+2*
>> DIC(0 EN+1*
>> DIR(0 WRI+17*, HEAD1*, EXIT*
DTIME EN1+4
>> DTOUT EN1+4, SELWRI+17, HEAD1
>> DUOUT EN1+4
IO CONT+1
IO("Q" CONT+1, CONT+2!
IOF PRINT+13, WRI+17, WRI+18, HEAD1HEAD1+1, NONE+1
ION CONT+3
IOP CONT!
IOSL WRI+17, WRI+18, HEAD1HEAD1+1
IOST PRINTPRINT+13, WRI+17, HEAD1HEAD1+1, EXITNONE+1
>> J WRI+1*, WRI+2*, WRI+3
>> POP CONT
>> RAS1 EN1+1*, EN1+3
>> RAS2 EN1+2*, EN1+3
>> RH WRI*, WRI+1*, WRI+2, WRI+3, WRI+12, WRI+14
>> RHO WRI+1*, TOTAL
>> RI WRI+1*, WRI+2, WRI+3, WRI+12, WRI+14
>> RMAST WRI+3*, WRI+9*
>> RMCOS WRI+4*, WRI+15
>> RMDAT RMPRPI06+6*, HEAD+1
>> RMENTER EN1+4*, EN1+5, EN1+6*, EN1+7
>> RMHCPC WRI+12*
>> RMI SEL+1*, SEL+2, SEL+3
>> RMIDE WRI+5*, WRI+13*, WRI+14
>> RMITEM WRI+12*
>> RML SEL*, SEL+2*
>> RMLOC WRI+5*, WRI+14
>> RMPAGE PRINT+11*, HEAD+1, HEAD+3*
RMPR EXIT1+1~
RMPR("L" TOTAL+1, HEAD1+2
RMPR("STA" PRINT+1
>> RMPREND EN*, PRINT+11*, WRI*, WRI+1, WRI+2, WRI+17*, HEAD1*, EXIT
RMPRFLG EN!, WRI+1!, WRI+16*, WRI+18!, HEAD1+9*
RMPRI EN!, EN1+7*, CONTPRINT+9
RMPRI( SEL+2, SEL+3*
>> RMPRLOCN WRI+2*, WRI+3
RMPRSITE EXIT1+1~
>> RMQTY WRI+3*, WRI+9, WRI+10*, WRI+11, WRI+15
>> RMROR WRI+7*, WRI+9, WRI+15
>> RMSOR WRI+8*, WRI+14
>> RMSUB PRINT+1*, PRINT+9
>> RMSUF PRINT+15, WRI*, WRI+1, WRI+12*, TOTAL+2*
>> RMTMP WRI+3*, WRI+4, WRI+5, WRI+7, WRI+8
>> RMTOBAL PRINT+11*
>> RMUNI WRI+5*, WRI+15
>> RMVAL WRI+4*, WRI+11, WRI+15
>> RMVEN WRI+4*, WRI+14
>> RS PRINT+1*, PRINT+9, HEAD+2
>> RTO WRI+1*, WRI+11*, TOTAL+1, TOTAL+2*
>> RVA WRI+1*, WRI+11*, TOTAL+1
U SEL+1, WRI+3, WRI+4, WRI+5, WRI+7, WRI+8, HEAD+2
>> X RMPRPI06+6*, EN1+6*, SEL
>> Y RMPRPI06+5, RMPRPI06+6, EN1+6, SEL+1, SEL+3, WRI+17, 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