source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPQAM.m@ 623

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

initial load of WorldVistAEHR

File size: 995 bytes
Line 
1LRAPQAM ;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
7QUE 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
12L 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
21W S (LRQ(9),LRS(99))=1,LRAP=LRDFN_"^"_LRI,LRSAV=1 D EN^LRSPRPT
22 Q
23 ;
24END D V^LRU Q
Note: See TracBrowser for help on using the repository browser.