LRCAPW.m

LRCAPW ;SLC/DCM- CAP WORKLOAD SUMMARY ; 1/31/89  10:35 ;

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

 S LREND=0 D MAJOR^LRCAPS I 'LREND D DATE^LRCAPS I 'LREND D TIME I 'LREND D ZIS I 'LREND U IO D ^LRCAPW1,^LRCAPW2

END X ^%ZIS("C") K ^UTILITY($J),LRS,LRM,LRA,LRALL,LREND,LRMAJ,LRSEC,LRFDT,LRLDT,LRH1,LRH2,LRSHIFT,LREND,LRSTOP,ZTSAVE,ZTRTN,ZTIO,ZTDESC,ZTSK

 Q

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

 I $D(IO("Q")) K IO("Q") S ZTRTN="DQ^LRCAPW",ZTDESC="CAP WORKLOAD SUMMARY",ZTSAVE("LR*")="" D ^%ZTLOAD S LREND=1 Q

 Q

DQ U IO K:$D(ZTSK) ^%ZTSK(ZTSK),ZTSK D ^LRCAPW1,^LRCAPW2

 G END

TIME S LREND=0,C1=1,DEF(1)="0000-0759",DEF(2)="0800-1559",DEF(3)="1600-2359"

 F I=0:0 S LRSTOP=0 W !!,"Select starting and ending times for shift #"_C1_": " W:C1<4 DEF(C1)_" // " R X:DTIME D TIME1 Q:LREND  Q:X=""

 S:'$D(LRSHIFT) LREND=1 Q

TIME1 S:X="^"!('$T) LREND=1 S:X=""&(C1<4) X=DEF(C1) Q:X=""!(X="^")  D:X'?4N1P4N HELP I X?4N1P4N D CHECK I 'LRSTOP S LRSHIFT(C1)=X_.9999,C1=C1+1

 Q

HELP W !!,"Enter times in military format separated by a '-' to define"

 W !,"the work shifts that are to be totaled and reported."

 W !,"EXAMPLE: 0800-1630"

 Q

CHECK I +$E(X,1,2)>23!(+$E(X,6,7)>23) W *7,"   INVALID TIME!" D HELP S LRSTOP=1 Q

 I +$E(X,3,4)>59!(+$E(X,8,9)>59) W *7,"   INVALID TIME!" D HELP S LRSTOP=1 Q

 I +$E(X,1,4)>+$E(X,6,9) W *7,"   INVALID TIME RANGE!" D HELP S LRSTOP=1 Q

 Q

LRCAPW    ;SLC/DCM- CAP WORKLOAD SUMMARY ; 1/31/89  10:35 ;

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

 +2        SET LREND=0

           DO MAJOR^LRCAPS

           IF 'LREND

               DO DATE^LRCAPS

               IF 'LREND

                   DO TIME

                   IF 'LREND

                       DO ZIS

                       IF 'LREND

                           USE IO

                           DO ^LRCAPW1

                           DO ^LRCAPW2

END        XECUTE ^%ZIS("C")

           KILL ^UTILITY($JOB),LRS,LRM,LRA,LRALL,LREND,LRMAJ,LRSEC,LRFDT,LRLDT,LRH1,LRH2,LRSHIFT,LREND,LRSTOP,ZTSAVE,ZTRTN,ZTIO,ZTDESC,ZTSK

 +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^LRCAPW"

               SET ZTDESC="CAP WORKLOAD SUMMARY"

               SET ZTSAVE("LR*")=""

               DO ^%ZTLOAD

               SET LREND=1

               QUIT 

 +2        QUIT 

DQ         USE IO

           IF $DATA(ZTSK)

               KILL ^%ZTSK(ZTSK),ZTSK

           DO ^LRCAPW1

           DO ^LRCAPW2

 +1        GOTO END

TIME       SET LREND=0

           SET C1=1

           SET DEF(1)="0000-0759"

           SET DEF(2)="0800-1559"

           SET DEF(3)="1600-2359"

 +1        FOR I=0:0

               SET LRSTOP=0

               WRITE !!,"Select starting and ending times for shift #"_C1_": "

               IF C1<4

                   WRITE DEF(C1)_" // "

               READ X:DTIME

               DO TIME1

               IF LREND

                   QUIT 

               IF X=""

                   QUIT 

 +2        IF '$DATA(LRSHIFT)

               SET LREND=1

           QUIT 

TIME1      IF X="^"!('$TEST)

               SET LREND=1

           IF X=""&(C1<4)

               SET X=DEF(C1)

           IF X=""!(X="^")

               QUIT 

           IF X'?4N1P4N

               DO HELP

           IF X?4N1P4N

               DO CHECK

               IF 'LRSTOP

                   SET LRSHIFT(C1)=X_.9999

                   SET C1=C1+1

 +1        QUIT 

HELP       WRITE !!,"Enter times in military format separated by a '-' to define"

 +1        WRITE !,"the work shifts that are to be totaled and reported."

 +2        WRITE !,"EXAMPLE: 0800-1630"

 +3        QUIT 

CHECK      IF +$EXTRACT(X,1,2)>23!(+$EXTRACT(X,6,7)>23)

               WRITE *7,"   INVALID TIME!"

               DO HELP

               SET LRSTOP=1

               QUIT 

 +1        IF +$EXTRACT(X,3,4)>59!(+$EXTRACT(X,8,9)>59)

               WRITE *7,"   INVALID TIME!"

               DO HELP

               SET LRSTOP=1

               QUIT 

 +2        IF +$EXTRACT(X,1,4)>+$EXTRACT(X,6,9)

               WRITE *7,"   INVALID TIME RANGE!"

               DO HELP

               SET LRSTOP=1

               QUIT 

 +3        QUIT