- LRSPRPTM ;AVAMC/REG/WTY - MODIFIED PATH REPORT ;9/22/00
- ;;5.2;LAB SERVICE;**1,248,416**;Sep 27, 1994;Build 4
- ;
- ;Reference to ^VA(200 supported by IA #10060
- ;Reference to ^DIWP suppported by IA #10011
- ;Reference to ^DIWW suppported by IA #10029
- ;
- W !?28,"*+* MODIFIED REPORT *+*"
- W !,"(Last modified: "
- S B=0
- F A=0:0 S A=$O(^LR(LRDFN,LRSS,LRI,LR(0),A)) Q:'A!(LR("Q")) S B=A
- Q:LR("Q") Q:'$D(^LR(LRDFN,LRSS,LRI,LR(0),B,0))
- S A=^LR(LRDFN,LRSS,LRI,LR(0),B,0),Y=+A,A=$P(A,"^",2)
- S A=$S($D(^VA(200,A,0)):$P(^(0),"^"),1:A)
- D D^LRU W Y," typed by ",A,")"
- D:$D(LRQ(9)) M
- Q
- ;
- M F A=0:0 S A=$O(^LR(LRDFN,LRSS,LRI,LR(0),A)) Q:'A!(LR("Q")) D
- .S LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,0)
- .D:$Y>(IOSL-14) F^LRAPF,^LRAPF Q:LR("Q")
- .S Y=+LRT,X=$P(LRT,"^",2),X=$S($D(^VA(200,X,0)):$P(^(0),"^"),1:X)
- .D D^LRU W !,"Date modified:",Y," typed by ",X D F
- Q:LR("Q")
- W !?13,"==========Text below appears on final report=========="
- Q
- E K ^UTILITY($J) S DIWR=IOM-5,DIWL=5,DIWF="W"
- Q
- ;
- F D E S B=0
- F LRZ=0:1 S B=$O(^LR(LRDFN,LRSS,LRI,LR(0),A,1,B)) Q:'B!(LR("Q")) D
- .S LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,1,B,0)
- .D:$Y>(IOSL-14) F^LRAPF,^LRAPF Q:LR("Q")
- .S X=LRT D ^DIWP
- Q:LR("Q") D:LRZ ^DIWW
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRSPRPTM 1224 printed Jan 18, 2025@03:21:24 Page 2
- LRSPRPTM ;AVAMC/REG/WTY - MODIFIED PATH REPORT ;9/22/00
- +1 ;;5.2;LAB SERVICE;**1,248,416**;Sep 27, 1994;Build 4
- +2 ;
- +3 ;Reference to ^VA(200 supported by IA #10060
- +4 ;Reference to ^DIWP suppported by IA #10011
- +5 ;Reference to ^DIWW suppported by IA #10029
- +6 ;
- +7 WRITE !?28,"*+* MODIFIED REPORT *+*"
- +8 WRITE !,"(Last modified: "
- +9 SET B=0
- +10 FOR A=0:0
- SET A=$ORDER(^LR(LRDFN,LRSS,LRI,LR(0),A))
- if 'A!(LR("Q"))
- QUIT
- SET B=A
- +11 if LR("Q")
- QUIT
- if '$DATA(^LR(LRDFN,LRSS,LRI,LR(0),B,0))
- QUIT
- +12 SET A=^LR(LRDFN,LRSS,LRI,LR(0),B,0)
- SET Y=+A
- SET A=$PIECE(A,"^",2)
- +13 SET A=$SELECT($DATA(^VA(200,A,0)):$PIECE(^(0),"^"),1:A)
- +14 DO D^LRU
- WRITE Y," typed by ",A,")"
- +15 if $DATA(LRQ(9))
- DO M
- +16 QUIT
- +17 ;
- M FOR A=0:0
- SET A=$ORDER(^LR(LRDFN,LRSS,LRI,LR(0),A))
- if 'A!(LR("Q"))
- QUIT
- Begin DoDot:1
- +1 SET LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,0)
- +2 if $Y>(IOSL-14)
- DO F^LRAPF
- DO ^LRAPF
- if LR("Q")
- QUIT
- +3 SET Y=+LRT
- SET X=$PIECE(LRT,"^",2)
- SET X=$SELECT($DATA(^VA(200,X,0)):$PIECE(^(0),"^"),1:X)
- +4 DO D^LRU
- WRITE !,"Date modified:",Y," typed by ",X
- DO F
- End DoDot:1
- +5 if LR("Q")
- QUIT
- +6 WRITE !?13,"==========Text below appears on final report=========="
- +7 QUIT
- E KILL ^UTILITY($JOB)
- SET DIWR=IOM-5
- SET DIWL=5
- SET DIWF="W"
- +1 QUIT
- +2 ;
- F DO E
- SET B=0
- +1 FOR LRZ=0:1
- SET B=$ORDER(^LR(LRDFN,LRSS,LRI,LR(0),A,1,B))
- if 'B!(LR("Q"))
- QUIT
- Begin DoDot:1
- +2 SET LRT=^LR(LRDFN,LRSS,LRI,LR(0),A,1,B,0)
- +3 if $Y>(IOSL-14)
- DO F^LRAPF
- DO ^LRAPF
- if LR("Q")
- QUIT
- +4 SET X=LRT
- DO ^DIWP
- End DoDot:1
- +5 if LR("Q")
- QUIT
- if LRZ
- DO ^DIWW
- +6 QUIT