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 |  Local Variables  | All
Print Page as PDF
Routine: RMPRSP

Package: Prosthetics

Routine: RMPRSP


Information

RMPRSP ;HINES-IO/HNC-PRINT SUSPENSE RECORDS ;7/28/00

Source Information

Source file <RMPRSP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
Prosthetics 2 ($$CWRKDAY,$$DES,$$STATUS,$$TYPE,$$WRKDAY)^RMPREOU  $$DAT1^RMPRUTL1  
Registration 1 DEM^VADPT  

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  

Entry Points

Name Comments DBIA/ICR reference
EN ;main entry point
PRINT ;print
MAIN ;main sort logic
DISPLAY ;display record
HEADER
HEADER1 ;main header
EXIT

External References

Name Field # of Occurrence
DD^%DT HEADER1+3
NOW^%DTC HEADER1+3
^%ZIS EN+1
^%ZISC EXIT
^%ZTLOAD EN+4
^DIR HEADER
$$CWRKDAY^RMPREOU DISPLAY+5
$$DES^RMPREOU DISPLAY+8
$$STATUS^RMPREOU DISPLAY+4
$$TYPE^RMPREOU DISPLAY+6
$$WRKDAY^RMPREOU DISPLAY+9
$$DAT1^RMPRUTL1 DISPLAY+1, DISPLAY+10, DISPLAY+18
DEM^VADPT MAIN+15, MAIN+28
$$REPEAT^XLFSTR MAIN+31, HEADER1+6
KILL^XUSCLEAN EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Open/Pending Suspense Records",!
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !,$$DAT1^RMPRUTL1(DATE)
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: ?10,$E(VADM(1),0,18)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: ?28,$P($P(VADM(2),U,2),"-",3)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?34,$$STATUS^RMPREOU(RO,4)," "
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: WRKDAY
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: ?44,$$TYPE^RMPREOU(RO,8)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?59,$P(^DIC(4,$P(^RMPR(668,RO,0),U,7),0),U,1)
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,$$DES^RMPREOU(RO,79)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"**Initial Action Date: ",$$DAT1^RMPRUTL1(INIA)," (",INIDAY," Working Days)"
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"Prosthetics Open/Pending Suspense File List "
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,"DATE",?10,"PATIENT",?28,"SSN",?34,"STATUS",?44,"TYPE",?59,"STATION",?73,"PAGE ",RMPRPAGE
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,"CON'T"
  • Line Location: HEADER1+6
Routine Call
  • DIR
  • Line Location:
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DISPLAY+7
^RMPR(668 - [#668] MAIN+8, MAIN+10, MAIN+11, MAIN+12, MAIN+13, MAIN+14, MAIN+28, DISPLAY+7, DISPLAY+9, DISPLAY+13
, DISPLAY+14, DISPLAY+16, DISPLAY+17, DISPLAY+20, DISPLAY+21
^TMP($J MAIN+4!, MAIN+16*, MAIN+20, MAIN+23, MAIN+25, MAIN+27, EXIT!

Label References

Name Line Occurrences
DISPLAY MAIN+30
EXIT EN+1, EN+4, MAIN+20, MAIN+32
HEADER MAIN+29
HEADER1 MAIN+5
PRINT EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEADER1+3~
>> %ZIS EN+1*
>> DATE MAIN+13*, MAIN+16, MAIN+22*, MAIN+23*, MAIN+25, MAIN+27, DISPLAY+1
DFN MAIN+14*, MAIN+17!, MAIN+28*
DIR HEADER!
DIR(0 HEADER*
>> INIA DISPLAY+9*, DISPLAY+10
INIAN DISPLAY+12*, DISPLAY+13*, DISPLAY+14, DISPLAY+22!
>> INIDAY DISPLAY+9*, DISPLAY+10
IO EN+2, PRINT+2
IO("Q" EN+2, EN+3!, PRINT+2
IOF PRINT+1, HEADER
ION EN+3
IOP EN+1!
IOSL MAIN+29
IOST PRINT+1, MAIN+29
>> NAME MAIN+24*, MAIN+25*, MAIN+27
ODAT DISPLAY+15*, DISPLAY+16*, DISPLAY+17, DISPLAY+20, DISPLAY+21, DISPLAY+22!
ODAT1 DISPLAY+17*, DISPLAY+18, DISPLAY+22!
ODATN DISPLAY+19*, DISPLAY+20*, DISPLAY+21, DISPLAY+22!
>> POP EN+1
RMPREND MAIN+4!, MAIN+23, MAIN+25, MAIN+27, MAIN+29, HEADER*, HEADER1+1
>> RMPRFL MAIN+29, HEADER1+1*
RMPRFLG HEADER1+6!
>> RMPRPAGE MAIN+5*, HEADER1+5, HEADER1+6*
>> RO MAIN+9*, MAIN+10*, MAIN+11, MAIN+12, MAIN+13, MAIN+14, MAIN+16, MAIN+26*, MAIN+27*, MAIN+28
, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+13, DISPLAY+14, DISPLAY+16, DISPLAY+17
, DISPLAY+20, DISPLAY+21
>> ST MAIN+7*, MAIN+8*, MAIN+10
U MAIN+11, MAIN+12, MAIN+13, MAIN+14, MAIN+28, DISPLAY+3, DISPLAY+7, DISPLAY+9, DISPLAY+17
VADM MAIN+28!
VADM(1 MAIN+16, DISPLAY+2
VADM(2 DISPLAY+3
>> WRKDAY DISPLAY+5*
X HEADER1+3~
Y HEADER, HEADER1+3~*
>> ZTDESC EN+3*
>> ZTIO EN+3*
>> ZTRTN EN+3*
>> ZTSK EN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All