LRCAPL.m

LRCAPL ;SLC/DCM- CAP STATISTICS BY LOCATION ;4/4/89  20:28 ;

 ;;V~5.0~;LAB;;02/27/90 17:09

 S LREND=0 D STATION^LRCAPS I 'LREND D MAJOR^LRCAPS I 'LREND D DATE^LRCAPS I 'LREND D ZIS I 'LREND U IO D ^LRCAPL1,^LRCAPL2

END X ^%ZIS("C") K RR,LRCHECK,L,L1,^UTILITY($J),LRS,LRM,LRA,LRALL,LRMAJ,LRSEC,LRFDT,LRLDT,LRH1,LRH2,LREND,ZTSAVE,ZTRTN,ZTIO,ZTDESC,ZTSK,S1,I,JJ,KK,LRCL,M

 Q

ZIS S %ZIS="QM" D ^%ZIS I POP S LREND=1 Q

 I $D(IO("Q")) K IO("Q") S ZTRTN="DQ^LRCAPL",ZTDESC="CAP STATISTICS BY LOCATION",ZTSAVE("LR*")="" D ^%ZTLOAD S LREND=1 Q

 Q

DQ U IO K:$D(ZTSK) ^%ZTSK(ZTSK),ZTSK D ^LRCAPL1,^LRCAPL2

 G END

LRCAPL    ;SLC/DCM- CAP STATISTICS BY LOCATION ;4/4/89  20:28 ;

 +1       ;;V~5.0~;LAB;;02/27/90 17:09

 +2        SET LREND=0

           DO STATION^LRCAPS

           IF 'LREND

               DO MAJOR^LRCAPS

               IF 'LREND

                   DO DATE^LRCAPS

                   IF 'LREND

                       DO ZIS

                       IF 'LREND

                           USE IO

                           DO ^LRCAPL1

                           DO ^LRCAPL2

END        XECUTE ^%ZIS("C")

           KILL RR,LRCHECK,L,L1,^UTILITY($JOB),LRS,LRM,LRA,LRALL,LRMAJ,LRSEC,LRFDT,LRLDT,LRH1,LRH2,LREND,ZTSAVE,ZTRTN,ZTIO,ZTDESC,ZTSK,S1,I,JJ,KK,LRCL,M

 +1        QUIT 

ZIS        SET %ZIS="QM"

           DO ^%ZIS

           IF POP

               SET LREND=1

               QUIT 

 +1        IF $DATA(IO("Q"))

               KILL IO("Q")

               SET ZTRTN="DQ^LRCAPL"

               SET ZTDESC="CAP STATISTICS BY LOCATION"

               SET ZTSAVE("LR*")=""

               DO ^%ZTLOAD

               SET LREND=1

               QUIT 

 +2        QUIT 

DQ         USE IO

           IF $DATA(ZTSK)

               KILL ^%ZTSK(ZTSK),ZTSK

           DO ^LRCAPL1

           DO ^LRCAPL2

 +1        GOTO END