Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls