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

Package: Prosthetics

Routine: RMPRSP3


Information

RMPRSP3 ;HINES/HNC; - Print Pending Suspense Records File 668 ;5-5-00

Source Information

Source file <RMPRSP3.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Prosthetics 3 ($$CWRKDAY,$$STATUS)^RMPREOU  $$STA^RMPRUTIL  $$DAT1^RMPRUTL1  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
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 PENDING SUSPENSE  

Entry Points

Name Comments DBIA/ICR reference
EN ;PRINT PENDING SUSPENSE
PRINT
ALL ;main sort logic
CK1 ;screen records
WRI
EXIT
WRI2
HEADER
HEADER1
TYPE

External References

Name Field # of Occurrence
DD^%DT HEADER1+2
NOW^%DTC HEADER1+2
^%ZIS EN+2
^%ZISC EXIT
^%ZTLOAD EN+5
^DIR HEADER
$$CWRKDAY^RMPREOU WRI2+6
$$STATUS^RMPREOU WRI2+5
$$STA^RMPRUTIL HEADER1+3
$$DAT1^RMPRUTL1 WRI2+4
DEM^VADPT CK1+5
$$REPEAT^XLFSTR HEADER1+5
KILL^XUSCLEAN EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Open/Pending Suspense Records",!
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI2+2
Function Call: WRITE
  • Prompt: !,$$DAT1^RMPRUTL1(RP)
  • Line Location: WRI2+4
Function Call: WRITE
  • Prompt: ?10,$$STATUS^RMPREOU(RZ,4)
  • Line Location: WRI2+5
Function Call: WRITE
  • Prompt: " ",WRKDAY
  • Line Location: WRI2+6
Function Call: WRITE
  • Prompt: ?24,$E($P(^DPT($P(^RMPR(668,RZ,0),U,2),0),U),1,20),?42,$E($P(^(0),U,9),6,9)
  • Line Location: WRI2+7
Function Call: WRITE
  • Prompt: ?61,$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: WRI2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"Prosthetics Open/Pending Summary Suspense List "
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: ?70,"STA ",$$STA^RMPRUTIL,!,"DATE",?10,"STATUS",?24,"PATIENT"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: ?42,"SSN",?48,"TYPE",?61,"SUSPENDED BY",?73,"PAGE ",RMPRPAGE
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,"CON'T"
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: ?48,$S(FO=1:"ROUTINE",FO=2:"EYEGLASS",FO=3:"CONTACT LENS",FO=4:"OXYGEN",FO=5:"MANUAL",1:"")
  • Line Location: TYPE+0
Routine Call
  • DIR
  • Line Location:
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRI2+7
^RMPR(668 - [#668] ALL+6, ALL+8, CK1+1, CK1+2, CK1+4, CK1+6, WRI2+7, WRI2+9, TYPE
^TMP($J PRINT+3!, CK1+6*, WRI, WRI+3, WRI+6, WRI+9, EXIT!
^VA(200 - [#200] WRI2+9

Label References

Name Line Occurrences
CK1 ALL+8
EXIT EN+2, EN+5, WRI
HEADER WRI2+1
HEADER1 WRI2, WRI2+2
PRINT EN+3
TYPE WRI2+8
WRI ALL+9
WRI2 WRI+9

Naked Globals

Name Field # of Occurrence
^(0 WRI2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEADER1+2~
>> %ZIS EN+2*
>> DFN CK1+4*
DIR HEADER!
DIR(0 HEADER*
>> FO TYPE*
IO EN+3, PRINT
IO("Q" EN+3, EN+4!, PRINT
IOF PRINT+1, WRI2, WRI2+2, HEADER
ION EN+4
IOP EN+2!
IOSL WRI2+1, WRI2+2
IOST PRINT+1, WRI2+1
>> POP EN+2
>> RMPREND WRI+9, WRI2, WRI2+1, WRI2+10, HEADER*, HEADER1
>> RMPRFL WRI2, WRI2+1, WRI2+2, WRI2+9*, HEADER1*
RMPRFLG HEADER1+6!
>> RMPRPAGE PRINT+2*, WRI2, HEADER1+4, HEADER1+6*
>> RO ALL+7*, ALL+8*, CK1+1, CK1+2, CK1+4, CK1+6
>> RP ALL+5*, ALL+6*, ALL+8, WRI+2*, WRI+3*, WRI+6, WRI+9, WRI2+4
>> RQ WRI+5*, WRI+6*, WRI+9
>> RZ WRI+8*, WRI+9*, WRI2+5, WRI2+6, WRI2+7, WRI2+9, TYPE
U CK1+1, CK1+2, CK1+4, CK1+6, WRI2+7, WRI2+9, TYPE
VADM CK1+7!
VADM(1 CK1+6
WRKDAY WRI2+6*!
X HEADER1+2~
Y HEADER, HEADER1+2~*
>> ZTDESC EN+4*
>> ZTIO EN+4*
>> ZTRTN EN+4*
>> ZTSK EN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All