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

Package: Prosthetics

Routine: RMPROPN1


Information

RMPROPN1 ;PHX/RFM-LISTS OPEN STOCK ISSUES ;8/29/1994

Source Information

Source file <RMPROPN1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  C^%DTC  WAIT^DICD  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 1 DIV4^RMPRSIT  

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 PRINT OPEN STK ISS  

Entry Points

Name Comments DBIA/ICR reference
START
PRINT
EXIT
EX
CK
WRI
HDR

External References

Name Field # of Occurrence
^%DT START+1, START+2
DD^%DT START+3, WRI+2
C^%DTC PRINT
^%ZIS START+4
HOME^%ZIS START+1
^%ZISC EX
^%ZTLOAD START+7
WAIT^DICD PRINT
^DIR EXIT+1, WRI+6
DIV4^RMPRSIT RMPROPN1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?32,"END OF REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?14,"SSN",?20,"REQUEST DATE",?34,"VENDOR",?49,"ITEM",?70,"ITEM COST"
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,1),1,12),?14,$E($P(^(0),U,9),6,9)
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: ?20,Y,?34
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: $E($P(^PRC(440,$P(^RMPR(660,RP,0),U,9),0),U,1),1,13)
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: ?49
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: $E($P(^(0),U,2),1,18)
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: ?70,$J($FN(+$P(^RMPR(660,RP,0),U,16),"P",2),10)
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"FROM: ",RMPRX_"-",RMPRY,?34,"OPEN STOCK ISSUES",?72,"PAGE ",PAGE,!
  • Line Location: HDR+1
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • WRI+6
Routine Call
  • %ZIS
  • Line Location:
    • START+4
Routine Call
  • %ZIS
  • Line Location:
    • START+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRI+1
^PRC(440 - [#440] WRI+2
^PRC(441 - [#441] WRI+3
^RMPR(660 - [#660] PRINT+1, CK+1, WRI+1, WRI+2, WRI+3, WRI+4
^RMPR(661 - [#661] WRI+3
^TMP($J START!, PRINT+2, EX!, CK+7*

Label References

Name Line Occurrences
CK PRINT+1
EXIT RMPROPN1+6, START+1, START+2, START+3, START+4, START+7
HDR PRINT+3, WRIWRI+6
PRINT START+5
START START+2
WRI PRINT+2

Naked Globals

Name Field # of Occurrence
^(0 WRI+1, WRI+2, WRI+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1*, START+2*, EX!
%DT("A" START+1*, START+2*
>> %ZIS START+4*
DIR EX!
DIR(0 EXIT+1*, WRI+6*
>> DTOUT EXIT+1, WRI+6
DUOUT EXIT+1, EX!
IO START+5
>> IO("Q" START+5
IOF PRINT+3, HDR
ION START+6
IOP START+4!
IOSL WRI+6, WRI+7
IOST PRINTEXITEXIT+1, WRI+6, HDR
IT EX!
PAGE PRINT*, EX!, HDRHDR+1*
>> POP START+4
>> RMPR("STA" CK+3
RMPRBDT START+1*, START+2, START+3, PRINT, EX!
RMPRCK EX!
RMPRCOUN START+1*, PRINT*, PRINT+3, PRINT+4, EX!, CK+7*
RMPREDT START+3*, PRINT+1, PRINT+3, PRINT+4, EXIT+1, EX!
RMPREND PRINT*, PRINT+2, PRINT+4, EXIT+1, EX!, WRI+6*
RMPRFLG EX!, WRIWRI+5*, WRI+7!
RMPRFLL EXIT+1, EX!, WRI+6*
RMPROBL EX!
RMPRX START+3*, EX!, CK~, CK+1*, CK+2, CK+3, CK+4, CK+6, HDR+1
RMPRY START+3*, EX!, HDR+1
RO PRINT*, PRINT+1*, EX!
RP PRINT*, PRINT+1*, PRINT+2*, EX!, CK+1, CK+7, WRI+1, WRI+2, WRI+3, WRI+4
U CK+3, CK+4, CK+6, WRI+1, WRI+2, WRI+3, WRI+4
X RMPROPN1+6, PRINT, EX!
>> X1 PRINT*
>> X2 PRINT*
Y START+1, START+2, START+3*, EX!, WRI+2*, WRI+6
>> ZTDESC START+6*
>> ZTIO START+6*
>> ZTRTN START+6*
>> ZTSAVE("RMPR(""STA"")" START+6*
>> ZTSAVE("RMPRBDT" START+6*
>> ZTSAVE("RMPREDT" START+6*
>> ZTSAVE("RMPRX" START+6*
>> ZTSAVE("RMPRY" START+6*
ZTSK START+7, EX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All