Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
859 bytes
|
Line | |
---|
1 | RMPRCOR ;PHX/HPL - RECALCULATES TOTAL HOURS FOR LAB JOB FOR FILE 660 ;03/12/96
|
---|
2 | ;;3.0;PROSTHETICS;**2**;Feb 09, 1996
|
---|
3 | Q
|
---|
4 | DOIT ;LOOPS THROUGH FILE 660, USES "C" X-REFF IN FILE 664.3 TO FIND
|
---|
5 | ;THE HOURS FOR THE TRANSACTION, AND ADDS THEM UP BY $ORDERING THROUGH
|
---|
6 | ;THE "C" X-REFF FOR FILE 664.3 THEN STORES THE RESULTS IN FILE 660
|
---|
7 | LKAT660 ;$ORDER THROUGH FILE 660
|
---|
8 | S LP=0,RLP=0
|
---|
9 | F S THRS=0,LP=$O(^RMPR(660,LP)) Q:LP'>0 D
|
---|
10 | .Q:'$D(^RMPR(660,LP,"LB"))
|
---|
11 | .S RMPRDA=+LP
|
---|
12 | .D SM6643
|
---|
13 | .S $P(^RMPR(660,RMPRDA,"LB"),U,6)=THRS
|
---|
14 | G EXIT
|
---|
15 | Q
|
---|
16 | SM6643 ;$ORDER THROUGH FILE 664.3
|
---|
17 | F S RLP=$O(^RMPR(664.3,"C",LP,RLP)) Q:RLP'>0 D
|
---|
18 | .S RDA=+RLP
|
---|
19 | .S RMLP=0 D SUMIT
|
---|
20 | Q
|
---|
21 | SUMIT ;SUM THE ENTRIES
|
---|
22 | N HRS
|
---|
23 | 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
|
---|
24 | Q
|
---|
25 | EXIT ;COMMON EXIT
|
---|
26 | K LP,RLP,RMLP
|
---|
27 | W !,"DONE RECALCULATING !"
|
---|
28 | H 5 Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.