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

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

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