source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPAUPT.m@ 724

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

initial load of WorldVistAEHR

File size: 469 bytes
Line 
1LRAPAUPT ;AVAMC/REG/WTY - AUTOPSY PRINT ;9/13/01
2 ;;5.2;LAB SERVICE;**72,248,259**;Sep 27, 1994
3 ;
4 N LRFLG
5 S:$G(LREND) LREND=0
6 S LRDICS="AU" D ^LRAP G:'$D(Y) END
7 S LR("Q")=0
8 S LR("AU1")=1,LRAPX=3
9 D XR^LRU,EN2^LRUA,SGL^LRAURPT
10 I LR("Q") D END Q
11 I '$G(POP),'$D(ZTSK),LR("AU1")=1,LRDFN>0 D
12 .S LRFLG=1
13 .D EN^LRAPAUSR
14 .I '+$G(LR("Q")),IOST?1"C-".E D
15 ..K DIR S DIR(0)="E"
16 ..D ^DIR W @IOF
17END ;
18 W:IOST?1"P-".E @IOF
19 D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
20 D V^LRU
21 Q
Note: See TracBrowser for help on using the repository browser.