| 1 | LRSPRPTM ;AVAMC/REG/WTY - MODIFIED PATH REPORT ;9/22/00
|
|---|
| 2 | ;;5.2;LAB SERVICE;**1,248**;Sep 27, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ;Reference to ^VA(200 supported by IA #10060
|
|---|
| 5 | ;Reference to ^DIWP suppported by IA #10011
|
|---|
| 6 | ;Reference to ^DIWW suppported by IA #10029
|
|---|
| 7 | ;
|
|---|
| 8 | W !?28,"*** MODIFIED REPORT ***"
|
|---|
| 9 | W !,"(Last modified: "
|
|---|
| 10 | S B=0
|
|---|
| 11 | F A=0:0 S A=$O(^LR(LRDFN,LRSS,LRI,LR(0),A)) Q:'A!(LR("Q")) S B=A
|
|---|
| 12 | Q:LR("Q") Q:'$D(^LR(LRDFN,LRSS,LRI,LR(0),B,0))
|
|---|
| 13 | S A=^LR(LRDFN,LRSS,LRI,LR(0),B,0),Y=+A,A=$P(A,"^",2)
|
|---|
| 14 | S A=$S($D(^VA(200,A,0)):$P(^(0),"^"),1:A)
|
|---|
| 15 | D D^LRU W Y," typed by ",A,")"
|
|---|
| 16 | D:$D(LRQ(9)) M
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | M F A=0:0 S A=$O(^LR(LRDFN,LRSS,LRI,LR(0),A)) Q:'A!(LR("Q")) D
|
|---|
| 20 | .S LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,0)
|
|---|
| 21 | .D:$Y>(IOSL-14) F^LRAPF,^LRAPF Q:LR("Q")
|
|---|
| 22 | .S Y=+LRT,X=$P(LRT,"^",2),X=$S($D(^VA(200,X,0)):$P(^(0),"^"),1:X)
|
|---|
| 23 | .D D^LRU W !,"Date modified:",Y," typed by ",X D F
|
|---|
| 24 | Q:LR("Q")
|
|---|
| 25 | W !?13,"==========Text below appears on final report=========="
|
|---|
| 26 | Q
|
|---|
| 27 | E K ^UTILITY($J) S DIWR=IOM-5,DIWL=5,DIWF="W"
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | F D E S B=0
|
|---|
| 31 | F LRZ=0:1 S B=$O(^LR(LRDFN,LRSS,LRI,LR(0),A,1,B)) Q:'B!(LR("Q")) D
|
|---|
| 32 | .S LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,1,B,0)
|
|---|
| 33 | .D:$Y>(IOSL-14) F^LRAPF,^LRAPF Q:LR("Q")
|
|---|
| 34 | .S X=LRT D ^DIWP
|
|---|
| 35 | Q:LR("Q") D:LRZ ^DIWW
|
|---|
| 36 | Q
|
|---|
