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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRPAT6

Package: Prosthetics

Routine: RMPRPAT6


Information

RMPRPAT6 ;PHX/JLT-DISPLAY JOB RECORD INFO ;10/19/1993

Source Information

Source file <RMPRPAT6.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Prosthetics 2 AMC^RMPR293  HDR^RMPR29W  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
ITD
TCH
MU
EXT
MORE ;DISPLAY MORE INFO
ITM ;DISPLAY ITEM
MDSP ;DISPLAY MATERIALS
TDSP ;DISPLAY TECHNICIAN
WDSP ;DISPLAY REMARKS FIELD
EXIT ;EXIT ROUTINE

External References

Name Field # of Occurrence
AMC^RMPR293 ITM+4
HDR^RMPR29W RMPRPAT6+2, MORE+7, MORE+8, MORE+9
$$FMTE^XLFDT ITM+1, ITM+2, MDSP+3, TDSP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: EXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MORE+2
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),?37,TMP(RMPRWO,664.22,RJ,1),?42,TMP(RMPRWO,664.22,RJ,6),?47,$E(TMP(RMPRWO,664.22,RJ,3),1),?53,$J(TMP(RMPRWO,664.22,RJ,2),7,2)
  • Line Location: MDSP+1
Function Call: WRITE
  • Prompt: ?64,"TOTAL:",?69,$J(MC,10,2)
  • Line Location: MDSP+2
Function Call: WRITE
  • Prompt: !,?15,TMP(RMPRWO,664.22,RJ,10),?37,"DATE DELIVERED: ",?53,$$FMTE^XLFDT(RDEL,2)
  • Line Location: MDSP+3
Function Call: WRITE
  • Prompt: !,$$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",?42,TECH(RMPRWO,RTCD,664.33,RTC,1,"E"),?47,"RATE:"
  • Line Location: TDSP+2
Function Call: WRITE
  • Prompt: ?53,$J(RTR,7,0)
  • Line Location: TDSP+3
Function Call: WRITE
  • Prompt: ?64,"TOTAL:",$J(LC,10,2)
  • Line Location: TDSP+4
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,10,2)
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,?45,"TOTAL COST",?69,$J(TLC+TMC,10,2)
  • Line Location: EXIT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660 - [#660] MDSP+3
^RMPR(669.2 TDSP+3
^UTILITY("DIQ1" ITM+1, ITM+2, ITM+3
^UTILITY($J EXT, MORE+4, WDSP+1!

Label References

Name Line Occurrences
EXIT MORE+2, MORE+10
EXT EXT, MORE+9
ITM ITD, MORE+7, MORE+8, MORE+9
MDSP MU
MORE ITD, TCH+1, MU, EXT
MU TCH, MU, MORE+8
TCH TCH+1, MORE+7
TDSP TCH+1
WDSP EXT

Naked Globals

Name Field # of Occurrence
^(0 MDSP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CONT EXIT+4*
DTIME MORE+2, EXIT+4
IOSL ITD, TCH+1, MU, EXT
IOST MORE+1, MORE+2
>> LC RMPRPAT6+2*, TDSP+3*, TDSP+4
>> MC RMPRPAT6+2*, MDSP+2*
>> PAGE RMPRPAT6+2*
>> RCK( ITD, MORE+3, ITM+1, ITM+2, ITM+3
>> RDEL MDSP+3*
>> RI ITD, MORE+3, ITM+1, ITM+2, ITM+3
>> RJ MU*, MDSP+1, MDSP+2, MDSP+3, MDSP+4
>> RJDA RMPRPAT6+2, MORE+7, MORE+8, MORE+9
>> RMPR("L" EXT+1
RMPRCZ MORE+7!, MORE+8!, MORE+9!
RMPRIZ MORE+6*, MORE+7!, MORE+8!
RMPRTZ MORE+5*, MORE+7!
>> RMPRWO ITD*, TCH, TCH+1, MU, EXT, MORE+3*, MORE+4, MORE+5, MORE+6, MDSP+1
, MDSP+2, MDSP+3, MDSP+4, TDSP+2, TDSP+3, TDSP+4, WDSP+1
RMPRWZ MORE+4*, MORE+7!, MORE+8!, MORE+9!
RR WDSP+1!
>> RTC TCH+1*, TDSP+2, TDSP+3, TDSP+4
>> RTCD TCH*, TCH+1, TDSP+1, TDSP+2, TDSP+3, TDSP+4
>> RTHD TDSP+4*
>> RTR TDSP+3*
>> RVA MDSP+3*
>> RW EXT*, WDSP+1
>> TECH( TCH, TCH+1, MORE+5, TDSP+2, TDSP+3, TDSP+4!
>> TLC RMPRPAT6+2*, TDSP+3*, EXIT+1, EXIT+3
>> TMC RMPRPAT6+2*, MDSP+2*, EXIT+2, EXIT+3
>> TMP( MU, MORE+6, MDSP+1, MDSP+2!, MDSP+3, MDSP+4!
U ITD, MORE+3, ITM+1, ITM+2, ITM+3, MDSP+3, TDSP+3
>> X MORE+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All