- LRARCMR2 ;DALISC/CKA - ARCHIVED WKLD STATS REPORT - COMMENTS PRINT ; 5/22/95
- ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
- ;same as LRCAPMR2 except archived wkld file
- ;
- ASKCOM ;lrcm
- R !!,"PRINT THE COMMENT PAGES? NO//",LRCM:DTIME
- I '$T!(LRCM=U) S LREND=1 Q
- I LRCM["?" W !,"Do you want to print comments? YES or NO.",! G ASKCOM
- S LRCM=$S($E(LRCM,1)="Y"!($E(LRCM,1)="y"):1,1:0) W !
- Q
- COMM ;Called from LRARCMA2,LRARCML2,LRRP8C
- Q:'+$G(LRCM)
- N LRDAT,LRCC,LRGCN,LRCCN,LRDCN,LRCONT
- D GENCOM Q:LREND
- D CAPCOM Q:LREND
- D DATCOM
- Q
- GENCOM ;
- N LRHDR,LRHDR3
- S LRGCN=0
- S LRGCN=$O(^TMP("LRAR",$J,"GCOM",LRGCN))
- Q:'LRGCN ;no general comments
- S LRHDR="GENERAL WORKLOAD COMMENTS"
- S LRHDR3="[Includes all archived workload data in date range]"
- D HDR^LRARCU
- S LRGCN=0
- F S LRGCN=$O(^TMP("LRAR",$J,"GCOM",LRGCN)) Q:('LRGCN)!(LREND) D
- . S LRCOMM=$G(^TMP("LRAR",$J,"GCOM",LRGCN))
- . I $Y+6'<IOSL D NPG^LRARCU Q:LREND
- . W !,LRCOMM,!
- D:$E(IOST,1,2)="C-" PAUSE^LRARCU Q:LREND W @IOF
- Q
- CAPCOM ;
- N LRHDR,LRHDR3
- S LRCAPNAM=""
- S LRCAPNAM=$O(^TMP("LRAR",$J,"CCOM",LRCAPNAM))
- Q:LRCAPNAM="" ;no wkld code comments
- S LRHDR="WORKLOAD COMMENTS by WKLD CODE"
- S LRHDR3="[Includes all archived workload data in date range]"
- D HDR^LRARCU
- S LRCAPNAM=""
- F S LRCAPNAM=$O(^TMP("LRAR",$J,"CCOM",LRCAPNAM)) Q:(LRCAPNAM="")!(LREND) D
- . S LRCAPNUM=$G(^TMP("LRAR",$J,"CCOM",LRCAPNAM,0))
- . W !!,LRCAPNUM,?15,LRCAPNAM,!
- . S LRCCN=0
- . F S LRCCN=$O(^TMP("LRAR",$J,"CCOM",LRCAPNAM,LRCCN)) Q:('LRCCN)!(LREND) D
- . . S LRCOMM=$G(^TMP("LRAR",$J,"CCOM",LRCAPNAM,LRCCN))
- . . I $Y+6'<IOSL D
- . . . D NPG^LRARCU
- . . . Q:LREND
- . . . W !!,LRCAPNUM,?15,LRCAPNAM," (cont.)",!
- . . Q:LREND
- . . W LRCOMM,!
- . W $E(LRDSHS,1,80),!
- D:$E(IOST,1,2)="C-" PAUSE^LRARCU Q:LREND W @IOF
- Q
- DATCOM ;
- N LRDATE,LRHDR,LRHDR3
- S LRDAT=0
- S LRDAT=$O(^TMP("LRAR",$J,"DCOM",LRDAT))
- Q:'LRDAT ;no date comments
- S LRHDR="WORKLOAD COMMENTS by DATE"
- S LRHDR3="[Includes all archived workload data in date range]"
- D HDR^LRARCU
- S LRDAT=0
- F S LRDAT=$O(^TMP("LRAR",$J,"DCOM",LRDAT)) Q:('LRDAT)!(LREND) D
- . S Y=LRDAT D DD^%DT S LRDATE=Y
- . W !!,LRDATE,!
- . S LRDCN=0
- . F S LRDCN=$O(^TMP("LRAR",$J,"DCOM",LRDAT,LRDCN)) Q:('LRDCN)!(LREND) D
- . . S LRCOMM=$G(^TMP("LRAR",$J,"DCOM",LRDAT,LRDCN))
- . . I $Y+6'<IOSL D
- . . . D NPG^LRARCU
- . . . Q:LREND
- . . . W !!,LRDATE," (cont.)",!
- . . Q:LREND
- . . W LRCOMM,!
- . W $E(LRDSHS,1,80),!
- D:$E(IOST,1,2)="C-" PAUSE^LRARCU Q:LREND W @IOF
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRARCMR2 2533 printed Jan 18, 2025@03:09:57 Page 2
- LRARCMR2 ;DALISC/CKA - ARCHIVED WKLD STATS REPORT - COMMENTS PRINT ; 5/22/95
- +1 ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
- +2 ;same as LRCAPMR2 except archived wkld file
- +3 ;
- ASKCOM ;lrcm
- +1 READ !!,"PRINT THE COMMENT PAGES? NO//",LRCM:DTIME
- +2 IF '$TEST!(LRCM=U)
- SET LREND=1
- QUIT
- +3 IF LRCM["?"
- WRITE !,"Do you want to print comments? YES or NO.",!
- GOTO ASKCOM
- +4 SET LRCM=$SELECT($EXTRACT(LRCM,1)="Y"!($EXTRACT(LRCM,1)="y"):1,1:0)
- WRITE !
- +5 QUIT
- COMM ;Called from LRARCMA2,LRARCML2,LRRP8C
- +1 if '+$GET(LRCM)
- QUIT
- +2 NEW LRDAT,LRCC,LRGCN,LRCCN,LRDCN,LRCONT
- +3 DO GENCOM
- if LREND
- QUIT
- +4 DO CAPCOM
- if LREND
- QUIT
- +5 DO DATCOM
- +6 QUIT
- GENCOM ;
- +1 NEW LRHDR,LRHDR3
- +2 SET LRGCN=0
- +3 SET LRGCN=$ORDER(^TMP("LRAR",$JOB,"GCOM",LRGCN))
- +4 ;no general comments
- if 'LRGCN
- QUIT
- +5 SET LRHDR="GENERAL WORKLOAD COMMENTS"
- +6 SET LRHDR3="[Includes all archived workload data in date range]"
- +7 DO HDR^LRARCU
- +8 SET LRGCN=0
- +9 FOR
- SET LRGCN=$ORDER(^TMP("LRAR",$JOB,"GCOM",LRGCN))
- if ('LRGCN)!(LREND)
- QUIT
- Begin DoDot:1
- +10 SET LRCOMM=$GET(^TMP("LRAR",$JOB,"GCOM",LRGCN))
- +11 IF $Y+6'<IOSL
- DO NPG^LRARCU
- if LREND
- QUIT
- +12 WRITE !,LRCOMM,!
- End DoDot:1
- +13 if $EXTRACT(IOST,1,2)="C-"
- DO PAUSE^LRARCU
- if LREND
- QUIT
- WRITE @IOF
- +14 QUIT
- CAPCOM ;
- +1 NEW LRHDR,LRHDR3
- +2 SET LRCAPNAM=""
- +3 SET LRCAPNAM=$ORDER(^TMP("LRAR",$JOB,"CCOM",LRCAPNAM))
- +4 ;no wkld code comments
- if LRCAPNAM=""
- QUIT
- +5 SET LRHDR="WORKLOAD COMMENTS by WKLD CODE"
- +6 SET LRHDR3="[Includes all archived workload data in date range]"
- +7 DO HDR^LRARCU
- +8 SET LRCAPNAM=""
- +9 FOR
- SET LRCAPNAM=$ORDER(^TMP("LRAR",$JOB,"CCOM",LRCAPNAM))
- if (LRCAPNAM="")!(LREND)
- QUIT
- Begin DoDot:1
- +10 SET LRCAPNUM=$GET(^TMP("LRAR",$JOB,"CCOM",LRCAPNAM,0))
- +11 WRITE !!,LRCAPNUM,?15,LRCAPNAM,!
- +12 SET LRCCN=0
- +13 FOR
- SET LRCCN=$ORDER(^TMP("LRAR",$JOB,"CCOM",LRCAPNAM,LRCCN))
- if ('LRCCN)!(LREND)
- QUIT
- Begin DoDot:2
- +14 SET LRCOMM=$GET(^TMP("LRAR",$JOB,"CCOM",LRCAPNAM,LRCCN))
- +15 IF $Y+6'<IOSL
- Begin DoDot:3
- +16 DO NPG^LRARCU
- +17 if LREND
- QUIT
- +18 WRITE !!,LRCAPNUM,?15,LRCAPNAM," (cont.)",!
- End DoDot:3
- +19 if LREND
- QUIT
- +20 WRITE LRCOMM,!
- End DoDot:2
- +21 WRITE $EXTRACT(LRDSHS,1,80),!
- End DoDot:1
- +22 if $EXTRACT(IOST,1,2)="C-"
- DO PAUSE^LRARCU
- if LREND
- QUIT
- WRITE @IOF
- +23 QUIT
- DATCOM ;
- +1 NEW LRDATE,LRHDR,LRHDR3
- +2 SET LRDAT=0
- +3 SET LRDAT=$ORDER(^TMP("LRAR",$JOB,"DCOM",LRDAT))
- +4 ;no date comments
- if 'LRDAT
- QUIT
- +5 SET LRHDR="WORKLOAD COMMENTS by DATE"
- +6 SET LRHDR3="[Includes all archived workload data in date range]"
- +7 DO HDR^LRARCU
- +8 SET LRDAT=0
- +9 FOR
- SET LRDAT=$ORDER(^TMP("LRAR",$JOB,"DCOM",LRDAT))
- if ('LRDAT)!(LREND)
- QUIT
- Begin DoDot:1
- +10 SET Y=LRDAT
- DO DD^%DT
- SET LRDATE=Y
- +11 WRITE !!,LRDATE,!
- +12 SET LRDCN=0
- +13 FOR
- SET LRDCN=$ORDER(^TMP("LRAR",$JOB,"DCOM",LRDAT,LRDCN))
- if ('LRDCN)!(LREND)
- QUIT
- Begin DoDot:2
- +14 SET LRCOMM=$GET(^TMP("LRAR",$JOB,"DCOM",LRDAT,LRDCN))
- +15 IF $Y+6'<IOSL
- Begin DoDot:3
- +16 DO NPG^LRARCU
- +17 if LREND
- QUIT
- +18 WRITE !!,LRDATE," (cont.)",!
- End DoDot:3
- +19 if LREND
- QUIT
- +20 WRITE LRCOMM,!
- End DoDot:2
- +21 WRITE $EXTRACT(LRDSHS,1,80),!
- End DoDot:1
- +22 if $EXTRACT(IOST,1,2)="C-"
- DO PAUSE^LRARCU
- if LREND
- QUIT
- WRITE @IOF
- +23 QUIT