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

Package: Prosthetics

Routine: RMPRSP1


Information

RMPRSP1 ;PHX/RFM/HPL/HNC-PRINT 5 DAY OLD SUSPENSE RECORDS ;8/29/1994

Source Information

Source file <RMPRSP1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMADD^XLFDT  
Prosthetics 3 DIV4^RMPRSIT  $$STA^RMPRUTIL  $$DAT1^RMPRUTL1  
VA FileMan 2 DD^%DT  ^DIR  

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 PRINT 5 DAY OLD  

Entry Points

Name Comments DBIA/ICR reference
PRINT
C
CK
WRI ;
EXIT1 ;common exit
WRI2
WRI3 ;
HEADER ;
HEADER1 ;
EXT ;display only the first line of description
PEXT ;
FORM ;

External References

Name Field # of Occurrence
DD^%DT WRI+8
^%ZIS RMPRSP1+6
^%ZISC EXIT1+3
^%ZTLOAD RMPRSP1+9
^DIR WRI+18, HEADER+2
DIV4^RMPRSIT RMPRSP1+6
$$STA^RMPRUTIL HEADER1+3
$$DAT1^RMPRUTL1 WRI3+2
$$FMADD^XLFDT C

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y,?25,"OVER 5 DAY OLD SUSPENSE REPORT"
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: !!,"No open suspense records over 5 days!"
  • Line Location: WRI+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WRI+12
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",?74,"TOTAL"
  • Line Location: WRI+13
Function Call: WRITE
  • Prompt: !,$J(FOT(1),3),?5,$J(FOT(2),4),?11,$J(FOT(3),4),?17,$J(FOT(4),6),?25,$J(FOT(5),6),?33,$J(FOT(6),4),?39,$J(FOT(7),4),?45,$J(FOT(8),4),?51,$J(FOT(9),5),?58,$J(FOT(10),4),?64,$J(FOT(11),7)
  • Line Location: WRI+14
Function Call: WRITE
  • Prompt: ?74,$J(TOT,5)
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI2+2
Function Call: WRITE
  • Prompt: !,DAT1,?13,$E($P(^DPT($P(^RMPR(668,RZ,0),U,2),0),U),1,20),?35,$E($P(^(0),U,9),6,9)
  • Line Location: WRI3+3
Function Call: WRITE
  • Prompt: ?59,$S($D(^VA(200,+$P(^RMPR(668,RZ,0),U,4),0)):$E($P(^VA(200,$P(^RMPR(668,RZ,0),U,4),0),U),1,19),1:"NO NAME AVAILABLE")
  • Line Location: WRI3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?23,"DELINQUENT OPEN SUSPENSE REPORT",?70,"STA ",$$STA^RMPRUTIL,!,?2,"DATE",?18,"PATIENT",?35,"SSN",?41,"FORM",?59,"SUSPENDED BY",?73,"PAGE ",RMPRPAGE,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,"CON'T"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PEXT+2
Function Call: WRITE
  • Prompt: ?41,$S(FO=1:"PSC",FO=2:"2421",FO=3:"2237",FO=4:"2529-3",FO=5:"2529-7",FO=6:"2474",FO=7:"2431",FO=8:"2914",FO=9:"OTHER",FO=10:"2520",FO=11:"STOCK ISSUE",1:"UNK")
  • Line Location: FORM+2
Routine Call
  • DIR
  • Line Location:
    • WRI+18
    • HEADER+2
Routine Call
  • %ZIS
  • Line Location:
    • RMPRSP1+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CK+4, WRI3+3
^RMPR(668 - [#668] C, CK, CK+1, CK+2, CK+3, CK+4, WRI3+3, WRI3+5, WRI3+8, EXT+3
, EXT+4, FORM+1
^TMP($J CK+4*, WRI+3, WRI+7, EXIT1+2!
^VA(200 - [#200] WRI3+5

Label References

Name Line Occurrences
CK C
EXIT1 RMPRSP1+6, RMPRSP1+9, WRI+4, WRI+10
EXT WRI3+8
FORM WRI3+4
HEADER WRI2+1
HEADER1 WRI2, WRI2+2
PRINT RMPRSP1+7
WRI C+1
WRI2 WRI+3

Naked Globals

Name Field # of Occurrence
^(0 CK+2, CK+4, WRI3+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS RMPRSP1+6*
DAT1 WRI3+1~, WRI3+2*, WRI3+3
DIR WRI+18!, EXIT1+2!, HEADER+2!
DIR(0 WRI+18*, HEADER+2*
DT C, WRI+8
FO EXIT1+1!, FORM+1*, FORM+2, FORM+3
FOT EXIT1+1!
FOT( PRINT*, WRI+16, FORM+3*
FOT(1 WRI+14
FOT(10 WRI+14
FOT(11 WRI+14
FOT(2 WRI+14
FOT(3 WRI+14
FOT(4 WRI+14
FOT(5 WRI+14
FOT(6 WRI+14
FOT(7 WRI+14
FOT(8 WRI+14
FOT(9 WRI+14
I PRINT*, WRI+12*, EXIT1+1!
IO RMPRSP1+7
IO("Q" RMPRSP1+7, RMPRSP1+8!
IOF PRINT, WRI2, WRI2+2, HEADER+4
ION RMPRSP1+8
IOP RMPRSP1+6!
IOSL WRI2+1, WRI2+2
IOST PRINT, WRI+18, WRI2+1
>> POP RMPRSP1+6
RB C*, EXIT1+2!
>> RMPR("STA" CK+3
RMPREDT C*, EXIT1+1!
RMPREND WRI+3, WRI+4, EXIT1+1!, WRI2, WRI2+1, WRI3+7, HEADER+3*, HEADER1+1
RMPREX WRI+9*, WRI+10!
RMPRFL EXIT1+1!, WRI2, WRI2+1, WRI2+2, WRI3+6*, HEADER1+2*
RMPRFLG EXIT1+1!, HEADER1+5!
RMPRFOR1 EXIT1+2!
RMPRFOR2 EXIT1+2!
RMPRFORM EXIT1+2!
RMPRG EXIT1+1!
RMPRPAGE PRINT*, EXIT1+1!, WRI2, HEADER1+3, HEADER1+4*
RO C*, CK, CK+1, CK+2, CK+3, CK+4, WRI+15*, WRI+16*, EXIT1+2!
RP WRI+1~, WRI+2*, WRI+3*, EXIT1+2!, WRI3+2
RQ WRI+1~, WRI+2*, WRI+3*, EXIT1+2!
RR EXIT1+2!, EXT+2~, EXT+3*, EXT+4
RS WRI+1~, WRI+2*, WRI+3*, EXIT1+2!
RZ WRI+1~, WRI+2*, WRI+3*, EXIT1+2!, WRI3+3, WRI3+5, WRI3+8, EXT+3, EXT+4, FORM+1
TOT PRINT*, WRI+16*, WRI+17, EXIT1+1!
U CK+1, CK+2, CK+3, CK+4, WRI3+3, WRI3+5, FORM+1, FORM+3
X RMPRSP1+6, EXIT1+1!
Y WRI+8*, EXIT1+1!, HEADER+3
>> ZTDESC RMPRSP1+8*
>> ZTIO RMPRSP1+8*
>> ZTRTN RMPRSP1+8*
>> ZTSAVE("RMPR(""STA"")" RMPRSP1+8*
>> ZTSAVE("RMPRSITE" RMPRSP1+8*
>> ZTSK RMPRSP1+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All