| [613] | 1 | LRAPQAM ;AVAMC/REG/WTY - PRINT PATH MICRO MODIFICATIONS ;9/25/00
|
|---|
| 2 | ;;5.2;LAB SERVICE;**58,72,248**;Sep 27, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | S LRDICS="SPCYEM" D ^LRAP G:'$D(Y) END D B^LRU G:Y<0 END
|
|---|
| 5 | S LRSDT=LRSDT-.01,LRLDT=LRLDT+.99
|
|---|
| 6 | S ZTRTN="QUE^LRAPQAM" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
|---|
| 7 | QUE U IO S LRA=1,LR("DIWF")="W"
|
|---|
| 8 | D XR^LRU,L^LRU,S^LRU,L1^LRU,EN2^LRUA,SET^LRUA
|
|---|
| 9 | F LRX=0:0 S LRSDT=$O(^LR(LRXR,LRSDT)) Q:'LRSDT!(LRSDT>LRLDT) D
|
|---|
| 10 | .F LRDFN=0:0 S LRDFN=$O(^LR(LRXR,LRSDT,LRDFN)) Q:'LRDFN!(LR("Q")) D L
|
|---|
| 11 | W:'$D(LRSAV) !,"No modifications to print" D END^LRUTL,END Q
|
|---|
| 12 | L F LRI=0:0 S LRI=$O(^LR(LRXR,LRSDT,LRDFN,LRI)) Q:'LRI!(LR("Q")) D
|
|---|
| 13 | .I $D(^LR(LRDFN,LRSS,LRI,4))!($D(^(5)))!($D(^(6)))!($D(^(7))) D W Q
|
|---|
| 14 | .;Check for supplementary report changes
|
|---|
| 15 | .I $D(^LR(LRDFN,LRSS,LRI,1.2)) D
|
|---|
| 16 | ..S LRFLG=0
|
|---|
| 17 | ..F I=0:0 S I=$O(^LR(LRDFN,LRSS,LRI,1.2,I)) Q:'I!(LR("Q"))!(LRFLG) D
|
|---|
| 18 | ...I $D(^LR(LRDFN,LRSS,LRI,1.2,I,2)) S LRFLG=1
|
|---|
| 19 | ..I LRFLG D W K LRFLG
|
|---|
| 20 | Q
|
|---|
| 21 | W S (LRQ(9),LRS(99))=1,LRAP=LRDFN_"^"_LRI,LRSAV=1 D EN^LRSPRPT
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | END D V^LRU Q
|
|---|
