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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRSP2

Package: Prosthetics

Routine: RMPRSP2


Information

RMPRSP2 ;PHX/RFM-PRINT SUSPENSE STATISTICS ;8/29/1994

Source Information

Source file <RMPRSP2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 (,DD)^%DT  (,NOW)^%DTC  ^DIR  
Prosthetics 2 DIV4^RMPRSIT  $$STA^RMPRUTIL  

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 SUSPENSE STAT  

Entry Points

Name Comments DBIA/ICR reference
PRINT
C
CK
WRI ;
LINE
TOT1 ;
PCAL
ASK1
EXIT1 ;common exit
CALC

External References

Name Field # of Occurrence
^%DT RMPRSP2+11, RMPRSP2+12
DD^%DT WRI+5, LINE+1, LINE+4
^%DTC CALC+1, CALC+6
NOW^%DTC LINE+1
^%ZIS RMPRSP2+13
HOME^%ZIS RMPRSP2+11
^%ZISC EXIT1+5
^%ZTLOAD RMPRSP2+16
^DIR ASK1, ASK1+2
DIV4^RMPRSIT RMPRSP2+11
$$STA^RMPRUTIL WRI+5, LINE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y,?25,"PROSTHETICS SUSPENSE STATISTICS"_" STA ",$$STA^RMPRUTIL
  • Line Location: WRI+5
Function Call: WRITE
  • Prompt: !!,"No statistics available for this period!"
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: !?15,"Prosthetics Suspense Statistics "
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !?16,"For The Period "
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: "-"_Y_" STA "_$$STA^RMPRUTIL
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: !,"OPEN SUSPENSE RECORDS"
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: !,"PSC",?5,"2421",?11,"2237",?17,"2529-3",?25,"2529-7",?33,"2474",?39,"2431",?45,"2914",?51,"OTHER",?58,"2520",?64,"STK ISU"
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: !,$J(OFOT(1),3),?5,$J(OFOT(2),4),?11,$J(OFOT(3),4),?17,$J(OFOT(4),6),?25,$J(OFOT(5),6),?33,$J(OFOT(6),4),?39,$J(OFOT(7),4),?45,$J(OFOT(8),4),?51,$J(OFOT(9),5),?58,$J(OFOT(10),4),?64,$J(OFOT(11),7)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: !!,"CLOSED SUSPENSE RECORDS"
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: !,"PSC",?5,"2421",?11,"2237",?17,"2529-3",?25,"2529-7"
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: ?33,"2474",?39,"2431",?45,"2914",?51,"OTHER",?58,"2520"
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: ?64,"STK ISU"
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: !,$J(CFOT(1),3),?5,$J(CFOT(2),4),?11,$J(CFOT(3),4),?17
  • Line Location: LINE+16
Function Call: WRITE
  • Prompt: $J(CFOT(4),6),?25,$J(CFOT(5),6),?33,$J(CFOT(6),4),?39
  • Line Location: LINE+17
Function Call: WRITE
  • Prompt: $J(CFOT(7),4),?45,$J(CFOT(8),4),?51,$J(CFOT(9),5),?58
  • Line Location: LINE+18
Function Call: WRITE
  • Prompt: $J(CFOT(10),4),?64,$J(CFOT(11),7)
  • Line Location: LINE+19
Function Call: WRITE
  • Prompt: !!,"NUMBER INITIAL ACTION AFTER 5 DAYS: ",DELDAT
  • Line Location: TOT1+5
Function Call: WRITE
  • Prompt: !,"PERCENT OF DELIQUENT RECORDS: "
  • Line Location: TOT1+7
Function Call: WRITE
  • Prompt: DELDAT/CTOT*100\1_"%"
  • Line Location: TOT1+8
Function Call: WRITE
  • Prompt: "NONE"
  • Line Location: TOT1+9
Function Call: WRITE
  • Prompt: !,"NUMBER OF DELIQUENT OPEN RECORDS: ",ODELDAT
  • Line Location: TOT1+11
Function Call: WRITE
  • Prompt: ?42,"PERCENT: "
  • Line Location: TOT1+11
Function Call: WRITE
  • Prompt: ?42,"PERCENT: "
  • Line Location: TOT1+11
Function Call: WRITE
  • Prompt: !!,"TOTAL CLOSED RECORDS: ",CTOT
  • Line Location: TOT1+12
Function Call: WRITE
  • Prompt: !,"TOTAL PENDING RECORDS: ",ITOT
  • Line Location: TOT1+13
Function Call: WRITE
  • Prompt: !,"TOTAL OPEN RECORDS: ",OTOT
  • Line Location: TOT1+14
Function Call: WRITE
  • Prompt: !!,"TOTAL RECORDS: ",CTOT+OTOT+ITOT
  • Line Location: TOT1+15
Function Call: WRITE
  • Prompt: !!,"OVERALL PERCENT OF RECORDS BY FORM TYPE",?73,"ERROR"
  • Line Location: TOT1+16
Function Call: WRITE
  • Prompt: !,"PSC",?5,"2421",?11,"2237",?17,"2529-3",?25,"2529-7",?33
  • Line Location: TOT1+21
Function Call: WRITE
  • Prompt: "2474",?39,"2431",?45,"2914",?51,"OTHER",?58,"2520"
  • Line Location: TOT1+22
Function Call: WRITE
  • Prompt: ?64,"STK ISU",?73,"MARGIN"
  • Line Location: TOT1+23
Function Call: WRITE
  • Prompt: !,RTOT(1),?5,RTOT(2),?11,$J(RTOT(3),4),?17,$J(RTOT(4),6)
  • Line Location: TOT1+24
Function Call: WRITE
  • Prompt: ?25,$J(RTOT(5),6),?33,$J(RTOT(6),4),?39,$J(RTOT(7),4)
  • Line Location: TOT1+25
Function Call: WRITE
  • Prompt: ?45,$J(RTOT(8),4),?51,$J(RTOT(9),5),?58,$J(RTOT(10),4)
  • Line Location: TOT1+26
Function Call: WRITE
  • Prompt: ?64,$J(RTOT(11),7)
  • Line Location: TOT1+27
Function Call: WRITE
  • Prompt: ?74,100-MARERR_"%"
  • Line Location: TOT1+31
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>(IOSL-4)
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!,"RECORDS CLOSED BY PROSTHETICS AGENT",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,RO,?30,$P(NAME(RO),U)
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK1+2
Routine Call
  • DIR
  • Line Location:
    • ASK1
    • ASK1+2
Routine Call
  • %ZIS
  • Line Location:
    • RMPRSP2+13
Routine Call
  • %ZIS
  • Line Location:
    • RMPRSP2+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(668 - [#668] PRINT+2, C, CK+1, CK+2, CK+3, CK+4, CALC, CALC+1, CALC+3, CALC+5
, CALC+6
^TMP($J RMPRSP2+10!, CK+4*, WRI+2, WRI+4, EXIT1+4!
^VA(200 - [#200] CALC+5

Label References

Name Line Occurrences
ASK1 TOT1+32
CALC WRI+2
CK C
EXIT1 RMPRSP2+11, RMPRSP2+12, RMPRSP2+13, RMPRSP2+16, WRI+7, ASK1
PCAL TOT1+19
PRINT RMPRSP2+14
WRI C+1

Naked Globals

Name Field # of Occurrence
^(0 CK+1, CK+2, CALC+1, CALC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LINE+1~
%DT RMPRSP2+11*, RMPRSP2+12!
%DT("A" RMPRSP2+11*, RMPRSP2+12*
%DT(0 RMPRSP2+12*
>> %ZIS RMPRSP2+13*
CALC TOT1+18*, PCAL, EXIT1+1!
CFOT EXIT1+2!
CFOT( PRINT*, TOT1+3, CALC+1*
CFOT(1 LINE+16, TOT1+19
CFOT(10 LINE+19, TOT1+19
CFOT(11 LINE+19, TOT1+19
CFOT(2 LINE+16, TOT1+19
CFOT(3 LINE+16, TOT1+19
CFOT(4 LINE+17, TOT1+19
CFOT(5 LINE+17, TOT1+19
CFOT(6 LINE+17, TOT1+19
CFOT(7 LINE+18, TOT1+19
CFOT(8 LINE+18, TOT1+19
CFOT(9 LINE+18, TOT1+19
CTOT PRINT+1*, TOT1+3*, TOT1+8, TOT1+12, TOT1+15, EXIT1+2!
DELDAT PRINT+1*, TOT1+5, TOT1+8, EXIT1+1!, CALC+1*
DIR ASK1!, EXIT1+3!, EXIT1+4!
DIR(0 ASK1*
DT WRI+5, CALC+6
FO EXIT1+1!, CALC*, CALC+1, CALC+6
FOT EXIT1+1!
FTOT PCAL, EXIT1+2!
I PRINT*, TOT1+19*, PCAL, EXIT1+1!
IO RMPRSP2+14
IO("Q" RMPRSP2+14, RMPRSP2+15!
IOF PRINT, ASK1+1
ION RMPRSP2+15
IOP RMPRSP2+13!
IOSL ASK1+1
IOST PRINT, ASK1, ASK1+2
ITOT PRINT+1*, TOT1+13, TOT1+15, EXIT1+1!, CALC+3*
J1 PRINT+1*, PCAL*, EXIT1+1!
MARERR TOT1+28~, TOT1+29*, TOT1+30*, TOT1+31, EXIT1+1!
MART EXIT1+1!
NAME ASK1+1, ASK1+2, EXIT1+4!
NAME( ASK1+1, CALC+5*
ODELDAT PRINT+1*, TOT1+11, EXIT1+2!, CALC+6*
OFOT EXIT1+1!
OFOT( PRINT*, LINE+10, CALC+6*
OFOT(1 LINE+8, TOT1+19
OFOT(10 LINE+8, TOT1+19
OFOT(11 LINE+8, TOT1+19
OFOT(2 LINE+8, TOT1+19
OFOT(3 LINE+8, TOT1+19
OFOT(4 LINE+8, TOT1+19
OFOT(5 LINE+8, TOT1+19
OFOT(6 LINE+8, TOT1+19
OFOT(7 LINE+8, TOT1+19
OFOT(8 LINE+8, TOT1+19
OFOT(9 LINE+8, TOT1+19
OTOT PRINT+1*, LINE+10*, TOT1+11, TOT1+14, TOT1+15, EXIT1+2!
>> POP RMPRSP2+13
RB PRINT+1*, PRINT+2*, C*, CK, EXIT1+3!
>> RMPR("STA" CK+1, CK+2
RMPRBDT RMPRSP2+11*, PRINT+1, CK, LINE+4, EXIT1+1!
RMPREDT RMPRSP2+12*, C, LINE+4, EXIT1+2!
RMPREND EXIT1+2!
RMPREX WRI+6*, WRI+7, EXIT1+3!
RMPRFL EXIT1+2!
RMPRFLG EXIT1+2!
RMPRFOR1 EXIT1+3!
RMPRFOR2 EXIT1+4!
RMPRFORM EXIT1+3!
RMPRG EXIT1+3!
RMPRPAGE PRINT*, EXIT1+3!
>> RMPRSITE CK+1, CK+2
RO PRINT+1*, C*, CK+1, CK+2, CK+3, CK+4, LINE+10*, TOT1+1~, TOT1+2*, TOT1+3*
, TOT1+28~, TOT1+29*, TOT1+30*, ASK1+1*, EXIT1+3!
RP WRI+1*, WRI+2*, EXIT1+3!, EXIT1+4!
RQ WRI+1*, WRI+2*, EXIT1+3!, CALC, CALC+1, CALC+3, CALC+5, CALC+6
RR EXIT1+4!
RS EXIT1+3!
RTOT EXIT1+2!
RTOT( TOT1+30, PCAL*
RTOT(1 TOT1+24
RTOT(10 TOT1+26
RTOT(11 TOT1+27
RTOT(2 TOT1+24
RTOT(3 TOT1+24
RTOT(4 TOT1+24
RTOT(5 TOT1+25
RTOT(6 TOT1+25
RTOT(7 TOT1+25
RTOT(8 TOT1+26
RTOT(9 TOT1+26
RX LINE+6*, EXIT1+1!
RZ EXIT1+3!
TOT EXIT1+1!
TTOT PCAL*, EXIT1+1!
U CK+1, CK+2, CK+3, CK+4, ASK1+1, CALC, CALC+1, CALC+3, CALC+5, CALC+6
X RMPRSP2+11, LINE+1~, EXIT1+3!, CALC+1, CALC+6
>> X1 CALC+1*, CALC+6*
>> X2 CALC+1*, CALC+6*
Y RMPRSP2+11, RMPRSP2+12, WRI+5*, LINE+1~*, LINE+4*, LINE+5, ASK1, EXIT1+3!
>> ZTDESC RMPRSP2+15*
>> ZTIO RMPRSP2+15*
>> ZTRTN RMPRSP2+15*
>> ZTSAVE("RMPR(""STA"")" RMPRSP2+15*
>> ZTSAVE("RMPRBDT" RMPRSP2+15*
>> ZTSAVE("RMPREDT" RMPRSP2+15*
>> ZTSAVE("RMPRSITE" RMPRSP2+15*
>> ZTSK RMPRSP2+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All