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

Package: Prosthetics

Routine: RMPRPI04


Information

RMPRPI04 ;HIN/RVD-PROS STOCK ITEM RECORDS ;3/8/05 11:24

Source Information

Source file <RMPRPI04.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 $$THIS^RMPRPI03  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/CHECK BAL  

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT
EXIT ;exit here if report prints in home device.
EXIT1 ;close device and clean-up variables.
WRI
HEAD ;print headers
IHEAD
HEAD1 ;write column headers
HTOTAL ;
ITOTAL ;prints totals.
NONE ;nothing to report.
NONEALL

External References

Name Field # of Occurrence
^%DT EN+7, ENDATE
DD^%DT ENDATE+3, ENDATE+4, HEAD+4
^%ZIS ENDATE+5
HOME^%ZIS EN
^%ZISC EXIT1+1
^%ZTLOAD ENDATE+11
^DIC EN+2
^DIR EXIT+1, WRI+25, HEAD1+1
$$THIS^RMPRPI03 PRINT+11
DIV4^RMPRSIT RMPRPI04+4
KILL^XUSCLEAN EXIT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+2
Function Call: WRITE
  • Prompt: @IOF,!!,"Processing report......"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"ERROR NUMBER = ",RMCHK,!,"*** Error in API RMPRPI03 !!!"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?9,"**Note: ",RMTRA,?31,RMUSE,?45,$J(RMQTY,4),?69,$J(RMVAL,9,2)
  • Line Location: WRI+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: !,"*** ISSUE and STOCK CONTROL RECORD - PROSTHETICS STOCK ITEMS ***"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?65,"Page: ",RMPAGE,!,?30,"station: "
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(4,RMPR("STA"),0)),U,1),1,20)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,Y," to "
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"HCPCS: ",RH,"-",R2,?16,"Item: ",RI
  • Line Location: IHEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,?45,"QTY",?54,"QTY",?61,"QTY",?72,"DOLLAR"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !," DATE",?9,"PATIENT",?26,"SSN",?31,"USER",?44,"ISSUE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?53,"ORDER",?61,"REC",?72,"VALUE"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !," ----",?9,"-------",?26,"---",?31,"----",?44,"-----"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?53,"-----",?61,"---",?72,"------"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"No Item Statistics for HCPCS: "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: RQ,"...for this date range !!!"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !!,"NO DATA AT THIS DATE RANGE!!!!"
  • Line Location: NONEALL+0
Routine Call
  • DIC
  • Line Location:
    • EN+2
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • WRI+25
    • HEAD1+1
Routine Call
  • %ZIS
  • Line Location:
    • ENDATE+5
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)
^DIC(4 - [#4] HEAD+3
^RMPR(661.1 - [#661.1] EN+3, IHEAD
^TMP($J EN!, PRINT+18, EXIT1+3!, WRI+2, WRI+3, WRI+4

Label References

Name Line Occurrences
ENDATE ENDATE+2
EXIT ENDATE+3, ENDATE+5, PRINT+1, PRINT+12
EXIT1 EN+2, EN+7, ENDATE+1, ENDATE+11
HEAD PRINT+17, WRI+25, WRI+26, HEAD1+1
HEAD1 WRI+2, WRI+12, WRI+25, WRI+26
HTOTAL WRI+2
IHEAD WRI+3
ITOTAL WRI+3
NONE PRINT+18
NONEALL PRINT+1
PRINT ENDATE+6
WRI PRINT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEAD+4~
>> %DT EN+6*, ENDATE*
>> %DT("A" EN+6*, ENDATE*
>> %DT("B" EN+7*, ENDATE*
>> %ZIS ENDATE+5*
>> DIC EN+1*
>> DIC("A" EN+2*
>> DIC(0 EN+1*
DIR EXIT+1!
DIR(0 EXIT+1*, WRI+25*, HEAD1+1*
>> DTOUT EN+2, WRI+25, HEAD1+1
>> DUOUT EXIT+1
>> HCPCS EN+2*, EN+4*
IO ENDATE+6
IO("Q" ENDATE+6, ENDATE+7!
IOF PRINT, WRI+25, WRI+26, HEAD1+1
ION ENDATE+7
IOP ENDATE+5!
IOSL WRI+25, WRI+26, HEAD1+1
IOST PRINT, EXIT+1, WRI+25, HEAD1+1
>> POP ENDATE+5
>> QTYT PRINT+16*
>> R2 WRI+3*, WRI+4, WRI+11, IHEAD+2
>> R3 WRI+3*, WRI+4
>> RDATA WRI+4*, WRI+5, WRI+6, WRI+7, WRI+8, WRI+9, WRI+10
>> RH WRI+1*, WRI+2*, WRI+3, WRI+4, IHEAD, IHEAD+2
>> RI WRI+2*, WRI+3, WRI+4, IHEAD+2
>> RIT2 WRI+2*, WRI+3, WRI+11*
>> RM PRINT+10*, PRINT+11
>> RMAVCO WRI+10*
>> RMBDATE PRINT+14*
>> RMCHK PRINT+11*, PRINT+12
>> RMCLO WRI+6*
>> RMCO PRINT+16*, WRI+10*, ITOTAL+4*
>> RMDAHC IHEAD*
>> RMDAT WRI+5*, WRI+14
>> RMFH WRI*, WRI+2, WRI+13*, HTOTAL+1, HTOTAL+4*
>> RMFI WRI*, WRI+3, WRI+13*, ITOTAL+1, ITOTAL+4*
>> RMHCPC EN+3*, EN+4, EN+5
>> RMI IHEAD+3*
>> RMIFL PRINT+16*
>> RMITE WRI+9*
>> RMITEM WRI+1*, IHEAD+1*
>> RMOPE WRI+5*
>> RMPAGE PRINT+15*, HEAD+2, HEAD+5*
>> RMPAT WRI+7*, WRI+15, WRI+16, WRI+20
RMPR EXIT1+2~
RMPR("L" HEAD1+2, NONE+1
RMPR("STA" RMPRPI04+5, PRINT+10, HEAD+3
>> RMPRBDT EN+7*, ENDATE+2, ENDATE+3, PRINT+11, PRINT+14, HEAD+4
>> RMPRCOUN EN+6*
>> RMPREDT ENDATE+3*, PRINT+11, HEAD+4
>> RMPREND EN*, PRINT+16*, EXIT+1, WRI+3, WRI+25*, HEAD1+1*, HTOTAL+1, ITOTAL+1
RMPRFLG EN!, WRI*, WRI+12, WRI+24*, WRI+26*, HEAD1+8*
RMPRI EN!, PRINT+1, PRINT+11
RMPRI( EN+4, EN+5*, PRINT+18
RMPRSITE EXIT1+2~
>> RMPRX ENDATE+3*
>> RMPRY ENDATE+4*
>> RMQTY WRI+6*, WRI+10, WRI+16, WRI+21, WRI+22, WRI+23
>> RMQTYT PRINT+16*
>> RMSSN WRI+8*, WRI+16
>> RMSTAFL PRINT+16*
>> RMSUF PRINT+16*
>> RMTIM WRI+5*
>> RMTOCO PRINT+16*, WRI*, WRI+18*, WRI+19*, ITOTAL+3, ITOTAL+4*
>> RMTOCOH PRINT+16*, WRI*, HTOTAL+3, HTOTAL+4*, ITOTAL+4*
>> RMTOCOI WRI*
>> RMTRA WRI+7*, WRI+18, WRI+19, WRI+21, WRI+22, WRI+23
>> RMUSE WRI+8*, WRI+16, WRI+21, WRI+22, WRI+23
>> RMVAL WRI+7*, WRI+17, WRI+18, WRI+19, WRI+21, WRI+22, WRI+23
>> RP PRINT+16*
>> RQ PRINT+18*, NONE+2
>> RS RMPRPI04+5*, PRINT+10*, PRINT+11
U EN+3, WRI+5, WRI+6, WRI+7, WRI+8, WRI+9, WRI+10, HEAD+3
X EN+2, HEAD+4~
>> Y RMPRPI04+4, EN+3, EN+5, EN+7, ENDATE+1, ENDATE+2, ENDATE+3*, ENDATE+4, WRI+25, HEAD+4*
, HEAD1+1
>> ZTDESC ENDATE+7*
>> ZTIO ENDATE+7*
>> ZTRTN ENDATE+7*
>> ZTSAVE("RMPR(" ENDATE+10*
>> ZTSAVE("RMPR(""STA"")" ENDATE+9*
>> ZTSAVE("RMPRBDT" ENDATE+8*
>> ZTSAVE("RMPREDT" ENDATE+8*
>> ZTSAVE("RMPRI(" ENDATE+8*
>> ZTSAVE("RMPRX" ENDATE+9*
>> ZTSAVE("RMPRY" ENDATE+9*
>> ZTSK ENDATE+11
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