Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRCOR

RMPRCOR.m

Go to the documentation of this file.
  1. RMPRCOR ;PHX/HPL - RECALCULATES TOTAL HOURS FOR LAB JOB FOR FILE 660 ;03/12/96
  1. ;;3.0;PROSTHETICS;**2**;Feb 09, 1996
  1. Q
  1. DOIT ;LOOPS THROUGH FILE 660, USES "C" X-REFF IN FILE 664.3 TO FIND
  1. ;THE HOURS FOR THE TRANSACTION, AND ADDS THEM UP BY $ORDERING THROUGH
  1. ;THE "C" X-REFF FOR FILE 664.3 THEN STORES THE RESULTS IN FILE 660
  1. LKAT660 ;$ORDER THROUGH FILE 660
  1. S LP=0,RLP=0
  1. F S THRS=0,LP=$O(^RMPR(660,LP)) Q:LP'>0 D
  1. .Q:'$D(^RMPR(660,LP,"LB"))
  1. .S RMPRDA=+LP
  1. .D SM6643
  1. .S $P(^RMPR(660,RMPRDA,"LB"),U,6)=THRS
  1. G EXIT
  1. Q
  1. SM6643 ;$ORDER THROUGH FILE 664.3
  1. F S RLP=$O(^RMPR(664.3,"C",LP,RLP)) Q:RLP'>0 D
  1. .S RDA=+RLP
  1. .S RMLP=0 D SUMIT
  1. Q
  1. SUMIT ;SUM THE ENTRIES
  1. N HRS
  1. S RMLP=$O(^RMPR(664.3,RDA,1,RMLP)) Q:RMLP'>0 S RMDA=+RMLP S HRS=$P(^RMPR(664.3,RDA,1,RMDA,0),U,2),THRS=THRS+HRS
  1. Q
  1. EXIT ;COMMON EXIT
  1. K LP,RLP,RMLP
  1. W !,"DONE RECALCULATING !"
  1. H 5 Q