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

Package: Prosthetics

Routine: RMPR293


Information

RMPR293 ;PHX/JLT/HNB -DISPLAY JOB RECORD INFO ;[ 10/04/94 10:15 AM ]

Source Information

Source file <RMPR293.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Prosthetics 1 (GET,HDR)^RMPR29W  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Prosthetics 11 RMPOPAT3  RMPR 2529-3 STATUS  RMPR 25293  RMPR 7306D 1ST  RMPR29D  RMPR29I  RMPR29J  RMPR29LD  
RMPREOPT  RMPRPAT3  RMPRPAT6  

Entry Points

Name Comments DBIA/ICR reference
DISP(PRDA) ;CALLED FROM TEMPLATE [RMPR 25293] AND RMPRPRT
; VARIABLES REQUIRED: RMPRDA - ENTRY IN FILE 664.1
; PRDA - ENTRY IN FILE 664.1 (COPY PASSED IN)
; RMPR("L") - A LINE OF '-'S
SGL ;DISPLAY JOB SECTION INFO
ITD ;item display
TCH ;Check technician on work order
MU ;display work order
EXT ;display work order
MORE ;DISPLAY MORE INFO
ITM ;DISPLAY ITEM
AMC ;GET AMIS CODES FROM 660
ADC(RD0,RD1) ;SEARCH AMIS ITEM
DA ;DISPLAY SINGLE ITEM AMIS
MDSP ;DISPLAY MATERIALS
TDSP ;DISPLAY TECHNICIAN
WDSP ;DISPLAY REMARKS FIELD
EXIT ;common exit point

External References

Name Field # of Occurrence
^DIR SGL+7, MORE+5, EXIT+5
GET^RMPR29W DISP+9
HDR^RMPR29W SGL+8, MORE+14, MORE+15, MORE+16, MORE+17
$$FMTE^XLFDT ITM+1, ITM+2, MDSP+9, TDSP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?37,"SHIPPING CHARGE: ",?70,$J(SCH,10,2)
  • Line Location: MU+4
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: EXT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MORE+5
Function Call: WRITE
  • Prompt: !,"JOB#:",?6,"("_RI_")",?10,"ITM#: "_$P(RCK(RI),U),?25,$E(^UTILITY("DIQ1",$J,664.16,$P(RCK(RI),U,4),.01),1,25),?54,"DATE MEASURED: "_$$FMTE^XLFDT(^UTILITY("DIQ1",$J,664.2,$P(RCK(RI),U,3),10,"I"),2)
  • Line Location: ITM+1
Function Call: WRITE
  • Prompt: !,"DATE COMPLETED: "_$$FMTE^XLFDT(^UTILITY("DIQ1",$J,664.2,$P(RCK(RI),U,3),8,"I"),2)
  • Line Location: ITM+2
Function Call: WRITE
  • Prompt: ?25,"COMPLETED BY: "_$E(^UTILITY("DIQ1",$J,664.2,$P(RCK(RI),U,3),9,"E"),1,14),?54,"CHECKED BY: "_$E(^UTILITY("DIQ1",$J,664.2,$P(RCK(RI),U,3),11,"E"),1,14),!
  • Line Location: ITM+3
Function Call: WRITE
  • Prompt: !,"MATERIALS:",?15,$E(TMP(RMPRWO,664.22,RJ,.01),1,20)
  • Line Location: MDSP+1
Function Call: WRITE
  • Prompt: ?37,TMP(RMPRWO,664.22,RJ,1),?42,TMP(RMPRWO,664.22,RJ,6)
  • Line Location: MDSP+2
Function Call: WRITE
  • Prompt: ?47,$E(TMP(RMPRWO,664.22,RJ,3),1),?53,$J(TMP(RMPRWO,664.22,RJ,2),7,2)
  • Line Location: MDSP+3
Function Call: WRITE
  • Prompt: ?64,"TOTAL:",?69,$J(MC,10,2)
  • Line Location: MDSP+5
Function Call: WRITE
  • Prompt: ?37,"DATE DELIVERED: ",?53,$$FMTE^XLFDT(RDEL,2)
  • Line Location: MDSP+9
Function Call: WRITE
  • Prompt: !,"DATE:",?6,$$FMTE^XLFDT(RTCD,2)
  • Line Location: TDSP+1
Function Call: WRITE
  • Prompt: ?15,$E(TECH(RMPRWO,RTCD,664.33,RTC,.01,"E"),1,20),?37,"HRS"
  • Line Location: TDSP+2
Function Call: WRITE
  • Prompt: ?42,TECH(RMPRWO,RTCD,664.33,RTC,1,"E"),?47,"RATE:"
  • Line Location: TDSP+3
Function Call: WRITE
  • Prompt: ?53,$J(RTR,7,2)
  • Line Location: TDSP+4
Function Call: WRITE
  • Prompt: ?64,"TOTAL:",$J(LC,10,2)
  • Line Location: TDSP+6
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"TEXT",RMPRWO,RW)
  • Line Location: WDSP+1
Function Call: WRITE
  • Prompt: !,?45,"TOTAL LABOR COST: ",?69,$J(TLC,10,2)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,?45,"TOTAL MATERIAL COST:",?69,$J(TMC+TSH,10,2)
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,?45,"TOTAL COST",?69,$J(TLC+TMC,10,2)
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+5
Routine Call
  • DIR
  • Line Location:
    • SGL+7
    • MORE+5
    • EXIT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660 - [#660] AMC+1, MDSP+7, MDSP+9
^RMPR(661 - [#661] AMC+1, ADC+4
^RMPR(663 - [#663] DA+6, DA+7, DA+11, DA+12, DA+16, DA+17, DA+21, DA+22
^RMPR(664.1 - [#664.1] DISP+8, DISP+9, ADC+3, ADC+4, ADC+5, ADC+6
^UTILITY("DIQ1" MU+3, MU+4, ITM+1, ITM+2, ITM+3
^UTILITY($J EXT+1, MORE+10, WDSP+1, WDSP+2!

Label References

Name Line Occurrences
DA AMC+1
EXIT MORE+7, MORE+8, MORE+17, MORE+18
EXT EXT+2, MORE+16
ITD EXT+4, MORE+17
ITM ITD+1, MORE+14, MORE+15, MORE+16
MDSP MU+2
MORE ITD+1, TCH+3, MU+1, EXT+1
MU TCH+1, MU+2, MORE+15
TCH TCH+4, MORE+14
TDSP TCH+4
WDSP EXT+2

Naked Globals

Name Field # of Occurrence
^("E" MU+4
^(0 MDSP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 DISP+9~, DA+5, DA+10, DA+15, DA+20
DIR SGL+7~, MORE+5~, EXIT+5~
DIR(0 SGL+7*, MORE+5*, EXIT+5*
IOF MORE+5, EXIT+5
IOSL ITD+1, TCH+3, MU+1, EXT+1, MORE+3, MORE+4
IOST DISP+7, SGL+7, MORE+3
LC SGL+4~, SGL+8*, TDSP+5*, TDSP+6
MC SGL+4~, SGL+8*, MDSP+4*, MDSP+5
PAGE SGL+4~, SGL+8*
PRDA DISP~, DISP+4, DISP+8, DISP+9, MORE+8, MORE+14, MORE+15, MORE+16, MORE+17
PZD AMC+1*, ADC+2, ADC+4*, DA+6, DA+7, DA+11, DA+12, DA+16, DA+17, DA+21
, DA+22, DA+23!
RCK DISP+9, EXIT+6!
RCK( ITD+1, EXT+4, MORE+9, MORE+13, MORE+17, ITM+1, ITM+2, ITM+3, AMC+1
RCK(0 SGL+8
RD0 ADC~, ADC+2, ADC+3, ADC+4, ADC+5, ADC+6, DA+23!
RD1 ADC~, ADC+2, ADC+4, ADC+5, DA+23!
RDEL MDSP+9*, EXIT+6!
RI SGL+8*, ITD+1, EXT+4*, MORE+7, MORE+9, MORE+13, MORE+14, MORE+15, MORE+16, MORE+17*
, ITM+1, ITM+2, ITM+3, AMC+1, EXIT+6!
RJ SGL+8*, MU+2*, MDSP+1, MDSP+2, MDSP+3, MDSP+4, MDSP+6, MDSP+7, MDSP+8, MDSP+10
, EXIT+6!
RLAB ADC+1!, ADC+3*, DA+7, DA+12, DA+17, DA+22, DA+23!
>> RMPR("L" EXT+3
>> RMPR("STA" ADC+3
RMPRBAC1 EXIT+7, EXIT+8!
>> RMPRBCK SGL+7
RMPRCZ MORE+13*, MORE+14!, MORE+15!, MORE+16!, MORE+17!
RMPRDA SGL+8, EXIT+8!
RMPRIZ MORE+12*, MORE+14!, MORE+15!
RMPRTZ MORE+11*, MORE+14!
RMPRWO ITD+1*, TCH+1, TCH+2, TCH+3, MU+2, MU+3, MU+4, EXT+1, MORE+9*, MORE+10
, MORE+11, MORE+12, MDSP+1, MDSP+2, MDSP+3, MDSP+4, MDSP+6, MDSP+7, MDSP+8, MDSP+10
, TDSP+2, TDSP+3, TDSP+4, TDSP+5, TDSP+6, WDSP+1, WDSP+2, EXIT+8!, EXIT+9!
RMPRWZ MORE+10*, MORE+14!, MORE+15!, MORE+16!
RP EXIT+6!
RR WDSP+2!
RTC TCH+3*, TCH+4, TDSP+2, TDSP+3, TDSP+4, TDSP+5, TDSP+6, EXIT+6!
RTCD TCH+2*, TCH+3, TDSP+1, TDSP+2, TDSP+3, TDSP+4, TDSP+5, TDSP+6, EXIT+6!
RTHD SGL+8*, TDSP+6*, EXIT+6!
RTR TDSP+4*, TDSP+5, EXIT+6!
RVA MDSP+7*, MDSP+9, EXIT+6!
RW EXT+1*, EXT+2, WDSP+1, WDSP+2, EXIT+6!
RX EXIT+6!
SCH SGL+4~, MU+3*, MU+4*
SRC SGL+4~, ADC+6*, DA+3, DA+4, DA+9, DA+14, DA+19
TECH EXIT+6!
TECH( TCH+1, TCH+2, TCH+3, MORE+11, TDSP+2, TDSP+3, TDSP+4, TDSP+5, TDSP+6!
TLC SGL+4~, SGL+8*, TDSP+5*, EXIT+1, EXIT+3
TMC SGL+4~, SGL+8*, MDSP+4*, EXIT+2, EXIT+3
TMP EXIT+6!
TMP( MU+2, MORE+12, MDSP+1, MDSP+2, MDSP+3, MDSP+4, MDSP+6, MDSP+7, MDSP+8, MDSP+10!
TSH SGL+4~, SGL+8*, MU+4*, EXIT+2
TYPE SGL+4~, ADC+5*, DA+4, DA+9, DA+14, DA+19
U DISP+9, ITD+1, MORE+9, ITM+1, ITM+2, ITM+3, AMC+1, ADC+3, ADC+4, ADC+5
, ADC+6, DA+6, DA+7, DA+11, DA+12, DA+16, DA+17, DA+21, DA+22, MDSP+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All