Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls