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

Package: Prosthetics

Routine: RMPRSP6


Information

RMPRSP6 ;HIN/RVD-PRINT 2319 WITH SUSPENSE LINK ;8/27/01

Source Information

Source file <RMPRSP6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 2 (,DD)^%DT  ^DIR  
Prosthetics 1 DIV4^RMPRSIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPR RECORDS WITH SUSPENSE  

Entry Points

Name Comments DBIA/ICR reference
HEAD
CONT
HEAD1
SUMTYP ;get total of each type of request
NONE
WRITE ;write report to a selected device
EXIT1
EXIT
BUILD ;build a tmp global.
PRINT
STDT ;RMPRSDT is start date in FM internal form.

External References

Name Field # of Occurrence
^%DT STDT+5, STDT+7, PRINT+3
DD^%DT PRINT+6, PRINT+7
^%ZIS CONT
^%ZISC EXIT1
^%ZTLOAD CONT+3
^DIR WRITE+14, HEAD1, EXIT
DIV4^RMPRSIT RMPRSP6+4
KILL^XUSCLEAN EXIT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: STDT+9
Function Call: WRITE
  • Prompt: !!,"Processing report......."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: !,"Totals:",?10,"Routine Prosthetics = ",$J(RMPR("ROUTINE"),5)
  • Line Location: WRITE+17
Function Call: WRITE
  • Prompt: ?40,"Eyeglass = ",$J(RMPR("EYEGLASS"),5)
  • Line Location: WRITE+18
Function Call: WRITE
  • Prompt: ?59,"Contact Lens = ",$J(RMPR("CONTACT"),5)
  • Line Location: WRITE+19
Function Call: WRITE
  • Prompt: !,?17," Oxygen = ",$J(RMPR("OXYGEN"),5)
  • Line Location: WRITE+20
Function Call: WRITE
  • Prompt: ?42,"Manual = ",$J(RMPR("MANUAL"),5)
  • Line Location: WRITE+21
Function Call: WRITE
  • Prompt: !,"<End of Report>"
  • Line Location: WRITE+22
Function Call: WRITE
  • Prompt: !,"PROSTHETICS PATIENT RECORDS LINKED TO SUSPENSE Run Date: ",RMDATE,?70,"PAGE: ",RMPAGE
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Start Date: ",RMSDAT,?26,"End Date: ",RMEDAT,?51,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,19)
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?40,"TYPE OF",?52,"CPRS"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"DATE",?10,"PATIENT",?21,"ITEM",?40,"REQUEST",?50,"REQUESTOR",?68,"INITIATOR"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"----",?10,"-------",?21,"----",?40,"-------",?50,"---------",?68,"---------"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!,"NO DATA TO PRINT !!!!!"
  • Line Location: NONE+0
Routine Call
  • DIR
  • Line Location:
    • WRITE+14
    • HEAD1
    • EXIT
Routine Call
  • %ZIS
  • Line Location:
    • CONT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD+1
^DPT - [#2] BUILD+17
^ICD9 - [#80] BUILD+34
^PRC(441 - [#441] BUILD+14, BUILD+15
^RMPR(660 - [#660] BUILD+6, BUILD+7, BUILD+8
^RMPR(661 - [#661] BUILD+14, BUILD+15
^TMP($J PRINT+1!, PRINT+9, BUILD+41*, WRITE+2, WRITE+3, EXIT1+1!
^VA(200 - [#200] BUILD+19, BUILD+37

Label References

Name Line Occurrences
BUILD PRINT+8
EXIT CONT+3, PRINT+9, PRINT+12
EXIT1 STDT+5, STDT+7, CONT
HEAD PRINT+9, PRINT+10, WRITE+14, WRITE+15, HEAD1, HEAD1+1
HEAD1 PRINT+10, WRITE+14, WRITE+15
NONE PRINT+9
PRINT CONT
STDT STDT+9
SUMTYP BUILD+33
WRITE PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT STDT+1!, STDT+4*, STDT+7*, PRINT+2!
%DT("A" STDT+2*, STDT+7*
%DT(0 STDT+3*
>> %ZIS CONT*
DIR EXIT!
DIR(0 WRITE+14*, HEAD1*, EXIT*
DT STDT+3
>> DTOUT WRITE+14, HEAD1
IO CONT
IO("Q" CONT, CONT+1!
IOF WRITE+14, WRITE+15, HEAD1, HEAD1+1
ION CONT+1
IOP CONT!
IOSL WRITE+14, WRITE+15, HEAD1, HEAD1+1
IOST PRINT, WRITE+14, HEAD1, HEAD1+1, EXIT
>> POP CONT
>> RCDT BUILD+24*, BUILD+40*
>> RDDT BUILD+38*, BUILD+41, WRITE+6*, WRITE+12
>> RDT PRINT+5*, BUILD+6
>> RET PRINT+5*, BUILD+6
>> RI BUILD+6*, BUILD+38, BUILD+41, WRITE+1*, WRITE+2*, WRITE+3
>> RJ BUILD+6*, BUILD+7, BUILD+8, BUILD+41, WRITE+2*, WRITE+3, WRITE+4
>> RM WRITE+1*, WRITE+2*, WRITE+3
>> RM0 BUILD+7*, BUILD+10, BUILD+11, BUILD+12, BUILD+18
>> RM10 BUILD+8*, BUILD+9, BUILD+21, BUILD+22, BUILD+23, BUILD+24, BUILD+25, BUILD+26, BUILD+27, BUILD+28
, BUILD+29, BUILD+30, BUILD+31, BUILD+32
>> RMCOSU BUILD+29*
>> RMDAT WRITE+3*, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11
>> RMDATE PRINT+3*, HEAD
>> RMDFN BUILD+11*, BUILD+17
>> RMEDAT PRINT+7*, HEAD+1
>> RMIADT BUILD+23*
>> RMICD BUILD+34*, BUILD+35*
>> RMICD9 BUILD+28*, BUILD+34
>> RMINI BUILD+19*, BUILD+20*, BUILD+41, WRITE+9*, WRITE+12
>> RMINIE BUILD+18*, BUILD+19
>> RMITEM BUILD+13*, BUILD+15*, BUILD+16*, BUILD+41, WRITE+5*, WRITE+12
>> RMITIEN BUILD+12*, BUILD+14, BUILD+15
>> RMPAGE PRINT+4*, HEAD, HEAD+2*
>> RMPAT BUILD+13*, BUILD+17*, BUILD+41, WRITE+4*, WRITE+12
>> RMPCEP BUILD+31*
RMPR EXIT1+2~
RMPR("CONTACT" BUILD+3*, WRITE+19, SUMTYP+3*
RMPR("EYEGLASS" BUILD+2*, WRITE+18, SUMTYP+2*
RMPR("L" WRITE+16, HEAD1+2
RMPR("MANUAL" BUILD+5*, WRITE+21, SUMTYP+5*
RMPR("OXYGEN" BUILD+4*, WRITE+20, SUMTYP+4*
RMPR("ROUTINE" BUILD+1*, WRITE+17, SUMTYP+1*
RMPR("STA" PRINT+4, PRINT+5
>> RMPRDI BUILD+27*, BUILD+41, WRITE+11*
>> RMPREDT STDT+8*, STDT+9, PRINT+5, PRINT+7, BUILD+6
>> RMPREND PRINT+4*, BUILD+6, WRITE+1*, WRITE+2, WRITE+14*, HEAD1*, EXIT
RMPRFLG WRITE+13*, WRITE+15!, HEAD1+6*
>> RMPRSDT STDT+6*, STDT+9, CONT, PRINT+5, PRINT+6
RMPRSITE EXIT1+2~
>> RMRXDT BUILD+22*
>> RMSDAT PRINT+6*, HEAD+1
>> RMSURE BUILD+26*, BUILD+37*, BUILD+41, WRITE+8*, WRITE+12
>> RMSUSP BUILD+21*
>> RMSUST BUILD+30*
>> RMTOBAL PRINT+4*
>> RMTYRE BUILD+25*, BUILD+36*, BUILD+41, WRITE+7*, WRITE+12, SUMTYP+1, SUMTYP+2, SUMTYP+3, SUMTYP+4, SUMTYP+5
>> RPDT BUILD+32*, BUILD+39*, BUILD+41, WRITE+10*
>> RS PRINT+4*, PRINT+5*, BUILD+10, HEAD+1
U BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+14, BUILD+15, BUILD+17, BUILD+18, BUILD+19, BUILD+21
, BUILD+22, BUILD+23, BUILD+24, BUILD+25, BUILD+26, BUILD+27, BUILD+28, BUILD+29, BUILD+30, BUILD+31
, BUILD+32, BUILD+34, BUILD+37, WRITE+5, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11
, HEAD+1
X STDT+1!, PRINT+2!, PRINT+3*
Y RMPRSP6+4, STDT+1!, STDT+5, STDT+6, STDT+7, STDT+8, PRINT+2!, PRINT+3, PRINT+6*, PRINT+7*
, WRITE+14, HEAD1
>> ZTDESC CONT+1*
>> ZTIO CONT+1*
>> ZTRTN CONT+1*
>> ZTSAVE("RMPR(" CONT+2*
>> ZTSAVE("RMPR(""STA"")" CONT+2*
>> ZTSAVE("RMPREDT" CONT+2*
>> ZTSAVE("RMPRSDT" CONT+1*
>> ZTSK CONT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All