source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRSPRPTM.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1LRSPRPTM ;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 ;
19M 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
27E K ^UTILITY($J) S DIWR=IOM-5,DIWL=5,DIWF="W"
28 Q
29 ;
30F 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
Note: See TracBrowser for help on using the repository browser.