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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RMPRSE1

Package: Prosthetics

Routine: RMPRSE1


Information

RMPRSE1 ;PHX/RFM-SEARCH FILE 660 ENTRIES FOR ITEM HISTORY ;8/29/1994

Source Information

Source file <RMPRSE1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 (,DD)^%DT  ^DIC  WAIT^DICD  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
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 ITEM HISTORY  

Entry Points

Name Comments DBIA/ICR reference
CK
HEAD
EN
EXIT1
PRI
NONE
REST
PRI1
EXIT ;EXIT FROM REPORT HERE
PRINT ;ENTRY POINT FOR PRINTING REPORT
ENDATE
CON

External References

Name Field # of Occurrence
^%DT EN+3, ENDATE
DD^%DT ENDATE+1, CON+2, HEAD+1
^%ZIS ENDATE+2
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD ENDATE+5
^DIC EN
WAIT^DICD PRINT+1
^DIR EXIT+3, CON+7, REST, NONE
DIV4^RMPRSIT EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate Item"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: !!?32,"END OF REPORT"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !,Y,?15,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,1),1,13),?30,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,9),6,9)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,"SERIAL NBR:",?12,$E($P(^RMPR(660,RP,0),U,11),1,12),?25,"QTY: ",$J($P(^(0),U,7),4),?38,"TOTAL COST: ",$J($FN($P(^(0),U,16),"P",2),8)
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: ?60,$S($P(^RMPR(660,RP,0),U,4)="I":"INITIAL ISSUE",$P(^(0),U,4)="R":"REPLACEMENT",$P(^(0),U,4)="S":"SPARE",$P(^(0),U,4)="X":"REPAIR",$P(^(0),U,4)="5":"RENTAL",1:"UNK"),!,"INITIATOR: "
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: ?15,$P(^(0),U),!
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+8
Function Call: WRITE
  • Prompt: !,"ITEM HISTORY:",?15,$E($P(^PRC(441,$P(^RMPR(661,$P(^RMPR(660,RP,0),U,6),0),U,1),0),U,2),1,39),?63,"STA ",RMPR("STA"),?72,"PAGE ",PAGE
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"REQUEST DATE",?15,"PATIENT NAME",?30,"SSN",?36,"VENDOR"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?55,Y,"-"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: @IOF,!!,"No Item History for this date range for:",!,$P(^PRC(441,$P(^RMPR(661,$P(RMPRARR(RQ),U),0),U),0),U,2)
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NONE+0
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • DIC
  • Line Location:
    • EN
Routine Call
  • DIR
  • Line Location:
    • EXIT+3
    • CON+7
    • REST
    • NONE
Routine Call
  • %ZIS
  • Line Location:
    • ENDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661 - [#661] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CON+2
^PRC(440 - [#440] CON+3
^PRC(441 - [#441] CK+2, HEAD, NONE
^RMPR(660 - [#660] PRI1, CK, CK+1, CK+3, CON+2, CON+3, CON+4, CON+5, CON+6, HEAD
^RMPR(661 - [#661] CK+2, HEAD, NONE
^VA(200 - [#200] CON+6

Label References

Name Line Occurrences
CK PRI1
CON CK+3
ENDATE ENDATE
EXIT ENDATE+1, ENDATE+2, PRI+1
EXIT1 EN, EN+3, ENDATE, ENDATE+5
HEAD CON+1, CON+7, CON+8
NONE REST
PRI1 PRI
PRINT ENDATE+3
REST PRI1

Naked Globals

Name Field # of Occurrence
^(0 CK+2, CON+4, CON+5, CON+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+3*, ENDATE*, EXIT1!
%DT("A" EN+3*, ENDATE*
%DT("B" EN+3*, ENDATE*
>> %ZIS ENDATE+2*
COSTT PRINT+1*, EXIT1!, CON+4*, REST, REST+2*
DIC EN*, EXIT1!
DIC("A" EN*
DIC(0 EN*
DIR EXIT+3!, EXIT1!, CON+7!, REST!, NONE!
DIR(0 EXIT+3*, CON+7*, REST*, NONE*
>> DTOUT EN, EXIT+3
>> DUOUT EXIT+3
ENDD PRI1!, EXIT+2, EXIT+3, EXIT1!, NONE*
GOTO EXIT1!
IO ENDATE+3
IO("Q" ENDATE+3, ENDATE+4!
IOF CON, CON+7, CON+8, REST, REST+1, NONE
ION ENDATE+4
IOP ENDATE+2!
IOSL CON, CON+7, CON+8
IOST PRINT+1, EXIT+2, EXIT+3, CON+7, REST, REST+1, NONE
ITEM EN~*, EN+1*, EN+2, EXIT1!
KILL PRI, PRI1, EXIT+1, EXIT+3, EXIT1!, CON+7*, REST*, NONE*
PAGE PRINT+1*, EXIT1!, CON, HEAD*
>> POP ENDATE+2
QTYT PRINT+1*, EXIT1!, CON+4*, REST, REST+2*
>> RMPR("STA" CK+1, HEAD
RMPRARR EN~, EXIT1!
RMPRARR( EN+2*, PRI, PRI1, CK+3, REST, REST+1, NONE
RMPRBDT EN+3*, ENDATE, ENDATE+1, EXIT1!, CK+2, HEAD+1
RMPRCOUN EN+3*, PRINT+1*, EXIT+1, EXIT1!, CON, CON+1*, REST, REST+2*
RMPREDT ENDATE+1*, EXIT+1, EXIT+3, EXIT1!, CK+2, HEAD+1
>> RMPRFLL EXIT+3
RMPRI EN~, EXIT1!
RMPRI( EN+1, EN+2*
RMPRSE EXIT1!
RMPRX ENDATE+1*, EXIT1!
RMPRY ENDATE+1*, EXIT1!
RO PRI*, PRI1*, EXIT1!
RP PRINT+1*, PRI1*, EXIT1!, CK, CK+1, CK+3, CON+2, CON+3, CON+4, CON+5
, CON+6, HEAD
RQ PRI*, PRI1, EXIT1!, CK+3, REST, REST+1, NONE
U PRI, PRI1, CK+1, CK+2, CK+3, CON+2, CON+3, CON+4, CON+5, CON+6
, HEAD, NONE
>> X EN
>> Y EN+1, EN+2, EN+3, ENDATE, ENDATE+1*, CON+2*, CON+7, HEAD+1*, REST, NONE
>> ZTDESC ENDATE+4*
>> ZTIO ENDATE+4*
>> ZTRTN ENDATE+4*
>> ZTSAVE("RMPR(""STA"")" ENDATE+4*
>> ZTSAVE("RMPRARR(" ENDATE+4*
>> ZTSAVE("RMPRBDT" ENDATE+4*
>> ZTSAVE("RMPREDT" ENDATE+4*
>> ZTSAVE("RMPRI(" ENDATE+4*
>> ZTSAVE("RMPRX" ENDATE+4*
>> ZTSAVE("RMPRY" ENDATE+4*
>> ZTSK ENDATE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All