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

Package: Prosthetics

Routine: RMPR71


Information

RMPR71 ;PHX/JLT-CALCULATE AND PRINT 2927a ;10/01/1994

Source Information

Source file <RMPR71.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ;PRINT WORKSHEETS
TOT ;TOTALS
DIS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?3,"WORKSHEET FOR ORTHOTICS LABORATORY OR RESTORATIONS CLINIC REPORT",?69,"PAGE: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?3,"WORKSHEET FOR ORTHOTICS LABORATORY OR RESTORATIONS CLINIC REPORT",?69,"PAGE: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?3,"WORKSHEET FOR ORTHOTICS LABORATORY OR RESTORATIONS CLINIC REPORT",?69,"PAGE: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"|IDENTIFICATION DATA",?21,"| APPLIANCES/SERVICES COMPLETED",?61,"| BACKLOG",?79,"|"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,RL
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$STAN^RMPR31U(RMPR("STA"))_"_"_$P(CODE,U)_"_"_$P($G(^RMPR(663,+$P(CODE,U,2),0)),U)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?22,"#",?27,"PATIENTS",?37,"MATERIAL",?48,"LBR",?56,"LBR",?62,"#",?67,"LBR",?74,"COSTS"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"REQUEST",?9,"WORK",?17,"REQ",?22,"ITM",?27,"SC",?31,"NSC",?39,"COST",?48,"HRS",?56,"COST",?62,"ITM",?67,"HRS",?73,"CHARGED"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"DATE",?9,"ORDER",?17,"STA",?22,"(1)",?27,"(2)",?31,"(3)",?40,"(4)",?48,"(5)",?57,"(6)",?62,"(7)",?67,"(8)",?75,"(9)"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,RL
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,?12,"TOTALS: ",?23,TCI,?27,TSC,?31,TNSC,?33,$J(TCM,10,2)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?46,TCLHM
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?50,$J(TCLC,10,2),?63,TBI,?65
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: $J(TBH_"."_$S(TBM>9:TBM,1:"0"_TBM),5,2)
  • Condition for execution: TBM<60
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: ?70,$J(TBC,10,2)
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: !,RL
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: !,"Period Covered",?22,"Name of Item",?59,"Segment No.",?71,"Item No."
  • Line Location: TOT+9
Function Call: WRITE
  • Prompt: !,RL
  • Line Location: TOT+9
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DATE(1),2)_" TO "_$$FMTE^XLFDT(DATE(2),2),?22,$P($G(^RMPR(663,+$P(CODE,U,2),0)),U,3),?62,$P(CODE,U),?73,$P($G(^RMPR(663,+$P(CODE,U,2),0)),U)
  • Line Location: TOT+10
Info |  Source |  Entry Points |  Interaction Calls