- XPDANLYZ1 ;OAK/RSF- BUILD ANALYZER ;10/28/22
- ;;8.0;KERNEL;**782**;Jul 10, 1995;Build 4
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- START(XPDRC) ; OPTION XPDANLYZ which passes XPDRC=4 an XPDRC=5 to run initially for build
- ; other options pass other numbers to run other things
- N XPDARR,END,XPDPG,XPDRTN,XPDR,XPQR,XPDCAR,XPDHR,XPDN,XPDSPC,XPDIS,XPDIS2,TCNT,XTOG S (END,XPDPG,XPDR,XPDIS2,TCNT,XTOG)=0
- N X,XPDATE,XPDLINE,XPDBN,%,%H,%I D NOW^%DTC S XPDATE=X,XPDIS=1
- I XPDRC=5 S XPDRC=4,XPDIS2=1 ;WILL HAVE FULL SQA CHECK-DOES NOT REFINE CODE CHECKS
- I XPDRC=6 S XPDRC=4,XTOG=1 ;SHOW SQA LINES IN ANALYSIS SECTION (NEEDS OPTION CREATED IF WANTED)
- I XPDRC=1 S XPDLINE="File Analysis" D FILENUM^XPDANLYZ4 ;THESE THREE HAVE NOT BEEN USED RECENTLY. IF WANTED, WILL NEED CODE CHECKED AND OPTIONS ADDED
- I XPDRC=2 S XPDLINE="Option Analysis" D OPTME^XPDANLYZ2
- I XPDRC=3 S XPDLINE="RPC Analysis" D RPCHK^XPDANLYZ2
- I XPDRC=4 N XPDCS,TRKN,XPOPT,XPDREF,XPRSPL,XPPATH,XPDTOP,XPDBIEN,XPDSQA,XPMM,XTMPARR,XPDXRR,XPDTRR,XPDKT,XPDROUT,XPTL,XPNS,XPEX,XPTK,PFL D BUILDME^XPDANLYZ6
- Q:XPDRC>6
- G:END X1
- ;
- PME ;Build Analysis report
- I XPDIS=1 S END=0 N POP,IO,IOP,%ZIS,ZTIO D G:POP X1
- . W ! S %ZIS("A")="Print Analysis to which Device: " S %ZIS="MQ" D ^%ZIS Q:POP Q:'$G(ZTIO)']""
- . I $D(IO("Q")) D ;queue the report
- .. S ZTRTN="PNT^XPDANLYZ1"
- .. S ZTSAVE("ORY(")="",ZTSAVE("*")="" ;,ZTSAVE("XPDRC")=""XPDCOMP,XPDCOMP,XPDR,XPDIS,XPDRC,"XPDARR("
- .. S ZTDESC="Build Analysis Report"
- .. D ^%ZTLOAD
- .. K ZTDESC,ZTRTN,ZTSAVE
- .. I $D(ZTSK)[0 W !!?5,"Report canceled!"
- .. E W !!?5,"Report queued."
- .. D HOME^%ZIS
- .. K %ZIS
- . I $D(IO("Q")) K IO("Q") S END=1 Q
- . ;I '$D(IO("S")) S END=1 Q
- . S XPDPG=1,END=0
- . U IO
- . I $E(IOST,1,2)="C-" W @IOF ;sending to screen, so clear screen first
- G:END X1
- ;
- PNT ;Queue the report
- N XPDCOMP,XPDNUM,XPDCNT,XPDFLD,XPDW S XPDCNT=0
- N XPDSP S XPDSP=$J(" ",3)
- I XPDRC'=4 S XPDSP=""
- I XPDRC=4 N XPDBB S XPDBB=$O(XPDARR("BUILD",0)) Q:'XPDBB D PB1^XPDANLYZ5
- ;GET ALL COMPONENTS PLUS BUILD AND FILE
- N XPDCHK,XPDC1,CLEN S XPDCHK="BUILD,FILE,"
- S XPDC1="" F S XPDC1=$O(XPDCS(XPDC1)) Q:XPDC1']"" S XPDCHK=XPDCHK_XPDC1_","
- S XPDCHK=$$TRIM^XLFSTR(XPDCHK,"R",","),CLEN=$L(XPDCHK,",")
- N XPDXX,XPDOLD,XPDFNUM S XPDOLD="" F XPDXX=1:1:CLEN S XPDCOMP=$P(XPDCHK,",",XPDXX) S:$D(XPDCS(XPDCOMP)) XPDFNUM=XPDCS(XPDCOMP) D
- . S XPDNUM=0 F S XPDNUM=$O(XPDARR(XPDCOMP,XPDNUM)) Q:'XPDNUM D
- .. I XPDCOMP="BUILD" S XPDOLD="BUILD"
- .. I $G(XPDOLD)]"",XPDOLD'=XPDCOMP D
- ... I $D(XPDARR(XPDOLD,"WARNING")) D PWARN^XPDANLYZ6(XPDOLD)
- ... S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$TR($J("-",79)," ","-"),XPDCNT=XPDCNT+1,XPDW(XPDCNT)=XPDCOMP_":",XPDOLD=XPDCOMP,XPDHR(XPDCNT)=XPDCOMP
- .. N TMPTX S TMPTX="" I XPDCOMP["TEMPLATE",XPDCOMP'["LIST" S TMPTX=$J(" ",(40-$L(XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME"))))_$$GET1^DIQ(XPDFNUM,XPDNUM_",",4)_" file (#"_$$GET1^DIQ(XPDFNUM,XPDNUM_",",4,"I")_")"
- .. S:XPDCOMP'="BUILD" XPDCNT=XPDCNT+1,XPDW(XPDCNT)="",XPDCNT=XPDCNT+1,XPDW(XPDCNT)=XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME")_TMPTX ;_" (#"_XPDNUM_")" ;,XPDCNT=XPDCNT+1,XPDW(XPDCNT)=""
- .. S:XPDCOMP="FILE" XPDW(XPDCNT)=XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME")_" (#"_XPDNUM_")"
- .. I XPDRC<4 D
- ... S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=XPDCOMP_" Description:"
- ... S:XPDCOMP="OPTION" XPDW(XPDCNT)="Option Description" S:XPDCOMP="REMOTE PROCEDURE" XPDW(XPDCNT)="RPC Description" S:XPDCOMP="MAIL GROUP" XPDW(XPDCNT)="Mail Group Description"
- ... S:XPDCOMP="BUILD" XPDW(XPDCNT)="BUILD Description" S:XPDCOMP="BULLETIN" XPDW(XPDCNT)="Bulletin Description"
- ... I XPDARR(XPDCOMP,XPDNUM,"DESCRIPT")="Yes" N II S II=0 F S II=$O(XPDARR(XPDCOMP,XPDNUM,"DESCRIPTION",II)) Q:'II S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=XPDARR(XPDCOMP,XPDNUM,"DESCRIPTION",II)
- ... I XPDARR(XPDCOMP,XPDNUM,"DESCRIPT")="No" S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=" DESCRIPTION missing."
- .. I XPDRC=4,XPDCOMP="BUILD" D BTXT^XPDANLYZ6
- .. N FSKP S FSKP=1 ;LINE SKIP IN FILE ;XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",5)_"File Issues:"
- .. I '$D(XPDARR(XPDCOMP,XPDNUM,"WARNING")),('$D(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING"))),XPDCOMP'="BUILD" S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",5)_"No issues noted."
- .. E I XPDCOMP="FILE",'$D(XPDARR(XPDCOMP,XPDNUM,"WARNING")) S FSKP=0 ;S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",5)_"File Issues: None"
- .. N XPDWRN S XPDWRN="" I $D(XPDARR(XPDCOMP,XPDNUM,"WARNING"))!($D(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING"))) D
- ... I $D(XPDARR(XPDCOMP,XPDNUM,"WARNING")) D:XPDCOMP="FILE" FADJ^XPDANLYZ3(0,"File Issues:") F S XPDWRN=$O(XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN)) Q:XPDWRN']"" S XPDCNT=XPDCNT+1 D
- .... I (XPDCOMP="FILE"),((XPDWRN="ADIC")!(XPDWRN="ADIZ")) D @XPDWRN^XPDANLYZ6(XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN))
- .... E S XPDW(XPDCNT)=$J(" ",5)_"* "_XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN)
- ... I $D(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING")) D:XPDCOMP="FILE" FADJ^XPDANLYZ3(FSKP,"Field Issues:") S XPDFLD=0 F S XPDFLD=$O(XPDARR(XPDCOMP,XPDNUM,XPDFLD)) Q:'XPDFLD D
- .... I $D(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING")) S XPDWRN=" " F S XPDWRN=$O(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN)) Q:XPDWRN']"" S XPDCNT=XPDCNT+1 D
- ..... I XPDWRN'="SUBFILE" S XPDW(XPDCNT)=$J(" ",5)_"* "_XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN)
- ..... I XPDWRN="SUBFILE" D
- ...... N XPDTMP S XPDTMP=$O(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,"")),XPDW(XPDCNT)=" "_$P(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,XPDTMP),":")_":"
- ...... S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",7)_"* "_$P(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,XPDTMP),":",2)
- ;If build, get routine info
- S END=0
- N XPFNAME1,XPFNAME3,XPFNAME4,XPBA1,TMPT,LNUM I XPDRC=4 S XPDLINE=XPDLINE_" "_XPDBN D RTE1^XPDANLYZ3
- I XPDRC'=4 D G:END X1
- . N RR S RR=0 F S RR=$O(XPDW(RR)) Q:'RR W !,XPDW(RR) I ($Y+5)>IOSL S TMPT=XPDLINE_" - (continued)" D HDR(TMPT) Q:END
- . D PDESC^XPDANLYZ3
- ;ONLY XPDRC=4 (BUILD)FOR REST OF TAG
- N XPDMM I XPDR D MMT^XPDANLYZ3 ;SET SPELL CHECK ARRAY
- I XPDIS=1 D G:END=2 X1 G:END=1 X2 ;PRINT
- . D BA^XPDANLYZ5
- . N RR S RR=0 F S RR=$O(XPBA1(RR)) Q:'RR W !,XPBA1(RR) I $E(IOST,1,2)="C-",($Y+5)>IOSL S LNUM=$O(XPDHR(RR+2),-1),TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - "_XPDHR(LNUM)_" (cont.)" D HDR(TMPT) Q:END
- . Q:END
- . I ('XPDR)&('XPQR) S END=1 Q ;ONLY WANT TO SEE ANLYSIS SECTION
- . I XPQR D Q:END ;W !!,"SQA CHECKLIST REVIEW:",!
- .. D SQAMM^XPDANLYZ5
- .. N LL S LL=0 F S LL=$O(XPMM(LL)) Q:'LL W !,XPMM(LL) I $E(IOST,1,2)="C-",($Y+5)>IOSL N AA S AA=LL,AA=$O(XPDROUT(AA),-1),TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - SQA LINE REVIEW, "_XPDROUT($G(AA,0))_" (cont.)" D HDR(TMPT) Q:END
- . I XPDR Q:'$D(XPDMM) W !! N TTT S TTT=0 F S TTT=$O(XPDMM(TTT)) Q:'TTT D Q:END ;W !!,"Compiling Description/Routine text review." H .5 W !," . " H .5 W ". " H .5
- .. W !,XPDMM(TTT) I $E(IOST,1,2)="C-",($Y+5)>IOSL S TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - TEXT REVIEW (cont.)" D HDR(TMPT) Q:END
- . W !!,"** Analysis Complete **",!! H 2
- . S END=1 Q
- I XPDIS=2 D G:END=1 X2 G:END=2 X1 ;CREATE TEXT FILES
- . S DIR(0)="F",DIR("A",1)="Set the path to place the .TXT files",DIR("A",2)="or accept the standard default."
- . S DIR("A",3)="",DIR("A")="PATH",DIR("B")=XPPATH
- . S DIR("?",1)="Full path specification up to, but not including, the filename. This includes "
- . S DIR("?",2)="any trailing slashes or brackets."
- . S DIR("?")=" "
- . D ^DIR S:$D(DTOUT) END=1 S:$D(DIRUT) END=1 Q:END
- . S XPPATH=Y
- . D FILEME^XPDANLYZ5(1)
- . W !!,"Build Analysis file was created."
- . W !,"File:"
- . W !,?10,XPPATH_XPFNAME1
- . I ('XPDR)&('XPQR) S END=1 Q ;ONLY WANT TO SEE ANLYSIS SECTION
- . I XPQR W ! H 1 D FILEME^XPDANLYZ5(4) D
- .. W !,"SQA Checklist review file was created."
- .. W !,"File:"
- .. W !,?5,XPPATH_XPFNAME4
- . I XPDR W ! H 1 D FILEME^XPDANLYZ5(3) D
- .. W !,"Description/Routine text review file was created."
- .. W !,"File:"
- .. W !,?5,XPPATH_XPFNAME3
- . ;W !!,"Use SFTP to move text documents to your PC.",!,"(Detailed instructions for moving files in the Build Analyzer documentation.)"
- . W !!,"** Analysis Complete **",!! H 2
- . S END=1
- I XPDIS=3 N XPSUB,XMSUB,XMTEXT,XMDUZ D Q:END ;CREATE MAILMAN MESSAGES
- . D BA^XPDANLYZ5 W !,"BUILD ANALYSIS email:"
- . S (XPSUB,XMSUB)="Build Analysis - "_XPDBN,XMTEXT="XPBA1(",XMDUZ="Kernel Build Analyzer" D ^XMD ;,XMY(DUZ)=""
- . W !!,"Check for email with subject of "_XPSUB,!
- . I ('XPDR)&('XPQR) S END=1 ;ONLY WANT TO SEE ANLYSIS SECTION
- . I XPQR W !! D
- .. W !!,"SQA Checklist review email:"
- .. D SQAMM^XPDANLYZ5 N XSUB3 S (XSUB3,XMSUB)="SQA Analysis - "_XPDBN,XMTEXT="XPMM(",XMDUZ="Kernel Build Analyzer" D ^XMD ;,XMY(DUZ)=""
- .. W !,"Check for email with subject of: "
- .. W !,?10,XSUB3,! S END=1
- . I XPDR Q:'$D(XPDMM) D
- .. W !!,"Routine/Component Text email:"
- .. N XPSUB1 S (XPSUB1,XMSUB)="Routine and Component Text - "_XPDBN,XMTEXT="XPDMM(",XMDUZ="Kernel Build Analyzer" D ^XMD ;XMY(DUZ)="",
- .. W !,"Check for email with subject of: "
- .. W !,?10,XPSUB1,! S END=1
- . W !!,"** Analysis Complete **",!! H 2
- . Q:END
- X2 I $E(IOST,1,2)="C-" D
- . W !! N DIRUT K DIR S DIR(0)="E",DIR("A")="Press <Enter> or '^' to exit"
- . D ^DIR ;Q:$D(DIRUT)
- X1 D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@" K DIR,DIC,XPDFARR,FLDARR,XPDRC,Y W @IOF Q
- ;
- HDR(HTXT) ;header information
- I $E(IOST,1,2)="C-" D G:END X1
- . W !! N DIRUT K DIR S DIR(0)="E",DIR("A")="Press <Enter> to continue or '^' to exit"
- . S DIR("?")="Press <Enter> to continue display, ""^"" to exit option."
- . D ^DIR ;Q:$D(DIRUT)
- . I '$G(Y) S END=2 Q
- S XPDPG=XPDPG+1
- I $E(IOST,1,2)="C-" W @IOF W !,HTXT,$$RJ^XLFSTR($$FMTE^XLFDT(XPDATE),79-$L(HTXT)," ")
- E W !,HTXT,$$RJ^XLFSTR($$FMTE^XLFDT(XPDATE)_"; Pg: "_XPDPG,79-$L(HTXT)," ")
- W !,$TR($J("=",79)," ","=")
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDANLYZ1 9821 printed Mar 13, 2025@21:08:01 Page 2
- XPDANLYZ1 ;OAK/RSF- BUILD ANALYZER ;10/28/22
- +1 ;;8.0;KERNEL;**782**;Jul 10, 1995;Build 4
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- START(XPDRC) ; OPTION XPDANLYZ which passes XPDRC=4 an XPDRC=5 to run initially for build
- +1 ; other options pass other numbers to run other things
- +2 NEW XPDARR,END,XPDPG,XPDRTN,XPDR,XPQR,XPDCAR,XPDHR,XPDN,XPDSPC,XPDIS,XPDIS2,TCNT,XTOG
- SET (END,XPDPG,XPDR,XPDIS2,TCNT,XTOG)=0
- +3 NEW X,XPDATE,XPDLINE,XPDBN,%,%H,%I
- DO NOW^%DTC
- SET XPDATE=X
- SET XPDIS=1
- +4 ;WILL HAVE FULL SQA CHECK-DOES NOT REFINE CODE CHECKS
- IF XPDRC=5
- SET XPDRC=4
- SET XPDIS2=1
- +5 ;SHOW SQA LINES IN ANALYSIS SECTION (NEEDS OPTION CREATED IF WANTED)
- IF XPDRC=6
- SET XPDRC=4
- SET XTOG=1
- +6 ;THESE THREE HAVE NOT BEEN USED RECENTLY. IF WANTED, WILL NEED CODE CHECKED AND OPTIONS ADDED
- IF XPDRC=1
- SET XPDLINE="File Analysis"
- DO FILENUM^XPDANLYZ4
- +7 IF XPDRC=2
- SET XPDLINE="Option Analysis"
- DO OPTME^XPDANLYZ2
- +8 IF XPDRC=3
- SET XPDLINE="RPC Analysis"
- DO RPCHK^XPDANLYZ2
- +9 IF XPDRC=4
- NEW XPDCS,TRKN,XPOPT,XPDREF,XPRSPL,XPPATH,XPDTOP,XPDBIEN,XPDSQA,XPMM,XTMPARR,XPDXRR,XPDTRR,XPDKT,XPDROUT,XPTL,XPNS,XPEX,XPTK,PFL
- DO BUILDME^XPDANLYZ6
- +10 if XPDRC>6
- QUIT
- +11 if END
- GOTO X1
- +12 ;
- PME ;Build Analysis report
- +1 IF XPDIS=1
- SET END=0
- NEW POP,IO,IOP,%ZIS,ZTIO
- Begin DoDot:1
- +2 WRITE !
- SET %ZIS("A")="Print Analysis to which Device: "
- SET %ZIS="MQ"
- DO ^%ZIS
- if POP
- QUIT
- if '$GET(ZTIO)']""
- QUIT
- +3 ;queue the report
- IF $DATA(IO("Q"))
- Begin DoDot:2
- +4 SET ZTRTN="PNT^XPDANLYZ1"
- +5 ;,ZTSAVE("XPDRC")=""XPDCOMP,XPDCOMP,XPDR,XPDIS,XPDRC,"XPDARR("
- SET ZTSAVE("ORY(")=""
- SET ZTSAVE("*")=""
- +6 SET ZTDESC="Build Analysis Report"
- +7 DO ^%ZTLOAD
- +8 KILL ZTDESC,ZTRTN,ZTSAVE
- +9 IF $DATA(ZTSK)[0
- WRITE !!?5,"Report canceled!"
- +10 IF '$TEST
- WRITE !!?5,"Report queued."
- +11 DO HOME^%ZIS
- +12 KILL %ZIS
- End DoDot:2
- +13 IF $DATA(IO("Q"))
- KILL IO("Q")
- SET END=1
- QUIT
- +14 ;I '$D(IO("S")) S END=1 Q
- +15 SET XPDPG=1
- SET END=0
- +16 USE IO
- +17 ;sending to screen, so clear screen first
- IF $EXTRACT(IOST,1,2)="C-"
- WRITE @IOF
- End DoDot:1
- if POP
- GOTO X1
- +18 if END
- GOTO X1
- +19 ;
- PNT ;Queue the report
- +1 NEW XPDCOMP,XPDNUM,XPDCNT,XPDFLD,XPDW
- SET XPDCNT=0
- +2 NEW XPDSP
- SET XPDSP=$JUSTIFY(" ",3)
- +3 IF XPDRC'=4
- SET XPDSP=""
- +4 IF XPDRC=4
- NEW XPDBB
- SET XPDBB=$ORDER(XPDARR("BUILD",0))
- if 'XPDBB
- QUIT
- DO PB1^XPDANLYZ5
- +5 ;GET ALL COMPONENTS PLUS BUILD AND FILE
- +6 NEW XPDCHK,XPDC1,CLEN
- SET XPDCHK="BUILD,FILE,"
- +7 SET XPDC1=""
- FOR
- SET XPDC1=$ORDER(XPDCS(XPDC1))
- if XPDC1']""
- QUIT
- SET XPDCHK=XPDCHK_XPDC1_","
- +8 SET XPDCHK=$$TRIM^XLFSTR(XPDCHK,"R",",")
- SET CLEN=$LENGTH(XPDCHK,",")
- +9 NEW XPDXX,XPDOLD,XPDFNUM
- SET XPDOLD=""
- FOR XPDXX=1:1:CLEN
- SET XPDCOMP=$PIECE(XPDCHK,",",XPDXX)
- if $DATA(XPDCS(XPDCOMP))
- SET XPDFNUM=XPDCS(XPDCOMP)
- Begin DoDot:1
- +10 SET XPDNUM=0
- FOR
- SET XPDNUM=$ORDER(XPDARR(XPDCOMP,XPDNUM))
- if 'XPDNUM
- QUIT
- Begin DoDot:2
- +11 IF XPDCOMP="BUILD"
- SET XPDOLD="BUILD"
- +12 IF $GET(XPDOLD)]""
- IF XPDOLD'=XPDCOMP
- Begin DoDot:3
- +13 IF $DATA(XPDARR(XPDOLD,"WARNING"))
- DO PWARN^XPDANLYZ6(XPDOLD)
- +14 SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=$TRANSLATE($JUSTIFY("-",79)," ","-")
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=XPDCOMP_":"
- SET XPDOLD=XPDCOMP
- SET XPDHR(XPDCNT)=XPDCOMP
- End DoDot:3
- +15 NEW TMPTX
- SET TMPTX=""
- IF XPDCOMP["TEMPLATE"
- IF XPDCOMP'["LIST"
- SET TMPTX=$JUSTIFY(" ",(40-$LENGTH(XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME"))))_$$GET1^DIQ(XPDFNUM,XPDNUM_",",4)_" file (#"_$$GET1^DIQ(XPDFNUM,XPDNUM_",",4,"I")_")"
- +16 ;_" (#"_XPDNUM_")" ;,XPDCNT=XPDCNT+1,XPDW(XPDCNT)=""
- if XPDCOMP'="BUILD"
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=""
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME")_TMPTX
- +17 if XPDCOMP="FILE"
- SET XPDW(XPDCNT)=XPDSP_XPDARR(XPDCOMP,XPDNUM,"NAME")_" (#"_XPDNUM_")"
- +18 IF XPDRC<4
- Begin DoDot:3
- +19 SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=XPDCOMP_" Description:"
- +20 if XPDCOMP="OPTION"
- SET XPDW(XPDCNT)="Option Description"
- if XPDCOMP="REMOTE PROCEDURE"
- SET XPDW(XPDCNT)="RPC Description"
- if XPDCOMP="MAIL GROUP"
- SET XPDW(XPDCNT)="Mail Group Description"
- +21 if XPDCOMP="BUILD"
- SET XPDW(XPDCNT)="BUILD Description"
- if XPDCOMP="BULLETIN"
- SET XPDW(XPDCNT)="Bulletin Description"
- +22 IF XPDARR(XPDCOMP,XPDNUM,"DESCRIPT")="Yes"
- NEW II
- SET II=0
- FOR
- SET II=$ORDER(XPDARR(XPDCOMP,XPDNUM,"DESCRIPTION",II))
- if 'II
- QUIT
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=XPDARR(XPDCOMP,XPDNUM,"DESCRIPTION",II)
- +23 IF XPDARR(XPDCOMP,XPDNUM,"DESCRIPT")="No"
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=" DESCRIPTION missing."
- End DoDot:3
- +24 IF XPDRC=4
- IF XPDCOMP="BUILD"
- DO BTXT^XPDANLYZ6
- +25 ;LINE SKIP IN FILE ;XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",5)_"File Issues:"
- NEW FSKP
- SET FSKP=1
- +26 IF '$DATA(XPDARR(XPDCOMP,XPDNUM,"WARNING"))
- IF ('$DATA(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING")))
- IF XPDCOMP'="BUILD"
- SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=$JUSTIFY(" ",5)_"No issues noted."
- +27 ;S XPDCNT=XPDCNT+1,XPDW(XPDCNT)=$J(" ",5)_"File Issues: None"
- IF '$TEST
- IF XPDCOMP="FILE"
- IF '$DATA(XPDARR(XPDCOMP,XPDNUM,"WARNING"))
- SET FSKP=0
- +28 NEW XPDWRN
- SET XPDWRN=""
- IF $DATA(XPDARR(XPDCOMP,XPDNUM,"WARNING"))!($DATA(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING")))
- Begin DoDot:3
- +29 IF $DATA(XPDARR(XPDCOMP,XPDNUM,"WARNING"))
- if XPDCOMP="FILE"
- DO FADJ^XPDANLYZ3(0,"File Issues:")
- FOR
- SET XPDWRN=$ORDER(XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN))
- if XPDWRN']""
- QUIT
- SET XPDCNT=XPDCNT+1
- Begin DoDot:4
- +30 IF (XPDCOMP="FILE")
- IF ((XPDWRN="ADIC")!(XPDWRN="ADIZ"))
- DO @XPDWRN^XPDANLYZ6(XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN))
- +31 IF '$TEST
- SET XPDW(XPDCNT)=$JUSTIFY(" ",5)_"* "_XPDARR(XPDCOMP,XPDNUM,"WARNING",XPDWRN)
- End DoDot:4
- +32 IF $DATA(XPDARR(XPDCOMP,XPDNUM,"FIELD-WARNING"))
- if XPDCOMP="FILE"
- DO FADJ^XPDANLYZ3(FSKP,"Field Issues:")
- SET XPDFLD=0
- FOR
- SET XPDFLD=$ORDER(XPDARR(XPDCOMP,XPDNUM,XPDFLD))
- if 'XPDFLD
- QUIT
- Begin DoDot:4
- +33 IF $DATA(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING"))
- SET XPDWRN=" "
- FOR
- SET XPDWRN=$ORDER(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN))
- if XPDWRN']""
- QUIT
- SET XPDCNT=XPDCNT+1
- Begin DoDot:5
- +34 IF XPDWRN'="SUBFILE"
- SET XPDW(XPDCNT)=$JUSTIFY(" ",5)_"* "_XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN)
- +35 IF XPDWRN="SUBFILE"
- Begin DoDot:6
- +36 NEW XPDTMP
- SET XPDTMP=$ORDER(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,""))
- SET XPDW(XPDCNT)=" "_$PIECE(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,XPDTMP),":")_":"
- +37 SET XPDCNT=XPDCNT+1
- SET XPDW(XPDCNT)=$JUSTIFY(" ",7)_"* "_$PIECE(XPDARR(XPDCOMP,XPDNUM,XPDFLD,"WARNING",XPDWRN,XPDTMP),":",2)
- End DoDot:6
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +38 ;If build, get routine info
- +39 SET END=0
- +40 NEW XPFNAME1,XPFNAME3,XPFNAME4,XPBA1,TMPT,LNUM
- IF XPDRC=4
- SET XPDLINE=XPDLINE_" "_XPDBN
- DO RTE1^XPDANLYZ3
- +41 IF XPDRC'=4
- Begin DoDot:1
- +42 NEW RR
- SET RR=0
- FOR
- SET RR=$ORDER(XPDW(RR))
- if 'RR
- QUIT
- WRITE !,XPDW(RR)
- IF ($Y+5)>IOSL
- SET TMPT=XPDLINE_" - (continued)"
- DO HDR(TMPT)
- if END
- QUIT
- +43 DO PDESC^XPDANLYZ3
- End DoDot:1
- if END
- GOTO X1
- +44 ;ONLY XPDRC=4 (BUILD)FOR REST OF TAG
- +45 ;SET SPELL CHECK ARRAY
- NEW XPDMM
- IF XPDR
- DO MMT^XPDANLYZ3
- +46 ;PRINT
- IF XPDIS=1
- Begin DoDot:1
- +47 DO BA^XPDANLYZ5
- +48 NEW RR
- SET RR=0
- FOR
- SET RR=$ORDER(XPBA1(RR))
- if 'RR
- QUIT
- WRITE !,XPBA1(RR)
- IF $EXTRACT(IOST,1,2)="C-"
- IF ($Y+5)>IOSL
- SET LNUM=$ORDER(XPDHR(RR+2),-1)
- SET TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - "_XPDHR(LNUM)_" (cont.)"
- DO HDR(TMPT)
- if END
- QUIT
- +49 if END
- QUIT
- +50 ;ONLY WANT TO SEE ANLYSIS SECTION
- IF ('XPDR)&('XPQR)
- SET END=1
- QUIT
- +51 ;W !!,"SQA CHECKLIST REVIEW:",!
- IF XPQR
- Begin DoDot:2
- +52 DO SQAMM^XPDANLYZ5
- +53 NEW LL
- SET LL=0
- FOR
- SET LL=$ORDER(XPMM(LL))
- if 'LL
- QUIT
- WRITE !,XPMM(LL)
- IF $EXTRACT(IOST,1,2)="C-"
- IF ($Y+5)>IOSL
- NEW AA
- SET AA=LL
- SET AA=$ORDER(XPDROUT(AA),-1)
- SET TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - SQA LINE REVIEW, "_XPDROUT($GET(AA,0))_" (cont.)"
- DO HDR(TMPT)
- if END
- QUIT
- End DoDot:2
- if END
- QUIT
- +54 ;W !!,"Compiling Description/Routine text review." H .5 W !," . " H .5 W ". " H .5
- IF XPDR
- if '$DATA(XPDMM)
- QUIT
- WRITE !!
- NEW TTT
- SET TTT=0
- FOR
- SET TTT=$ORDER(XPDMM(TTT))
- if 'TTT
- QUIT
- Begin DoDot:2
- +55 WRITE !,XPDMM(TTT)
- IF $EXTRACT(IOST,1,2)="C-"
- IF ($Y+5)>IOSL
- SET TMPT=XPDARR("BUILD",XPDBB,"NAME")_" - TEXT REVIEW (cont.)"
- DO HDR(TMPT)
- if END
- QUIT
- End DoDot:2
- if END
- QUIT
- +56 WRITE !!,"** Analysis Complete **",!!
- HANG 2
- +57 SET END=1
- QUIT
- End DoDot:1
- if END=2
- GOTO X1
- if END=1
- GOTO X2
- +58 ;CREATE TEXT FILES
- IF XPDIS=2
- Begin DoDot:1
- +59 SET DIR(0)="F"
- SET DIR("A",1)="Set the path to place the .TXT files"
- SET DIR("A",2)="or accept the standard default."
- +60 SET DIR("A",3)=""
- SET DIR("A")="PATH"
- SET DIR("B")=XPPATH
- +61 SET DIR("?",1)="Full path specification up to, but not including, the filename. This includes "
- +62 SET DIR("?",2)="any trailing slashes or brackets."
- +63 SET DIR("?")=" "
- +64 DO ^DIR
- if $DATA(DTOUT)
- SET END=1
- if $DATA(DIRUT)
- SET END=1
- if END
- QUIT
- +65 SET XPPATH=Y
- +66 DO FILEME^XPDANLYZ5(1)
- +67 WRITE !!,"Build Analysis file was created."
- +68 WRITE !,"File:"
- +69 WRITE !,?10,XPPATH_XPFNAME1
- +70 ;ONLY WANT TO SEE ANLYSIS SECTION
- IF ('XPDR)&('XPQR)
- SET END=1
- QUIT
- +71 IF XPQR
- WRITE !
- HANG 1
- DO FILEME^XPDANLYZ5(4)
- Begin DoDot:2
- +72 WRITE !,"SQA Checklist review file was created."
- +73 WRITE !,"File:"
- +74 WRITE !,?5,XPPATH_XPFNAME4
- End DoDot:2
- +75 IF XPDR
- WRITE !
- HANG 1
- DO FILEME^XPDANLYZ5(3)
- Begin DoDot:2
- +76 WRITE !,"Description/Routine text review file was created."
- +77 WRITE !,"File:"
- +78 WRITE !,?5,XPPATH_XPFNAME3
- End DoDot:2
- +79 ;W !!,"Use SFTP to move text documents to your PC.",!,"(Detailed instructions for moving files in the Build Analyzer documentation.)"
- +80 WRITE !!,"** Analysis Complete **",!!
- HANG 2
- +81 SET END=1
- End DoDot:1
- if END=1
- GOTO X2
- if END=2
- GOTO X1
- +82 ;CREATE MAILMAN MESSAGES
- IF XPDIS=3
- NEW XPSUB,XMSUB,XMTEXT,XMDUZ
- Begin DoDot:1
- +83 DO BA^XPDANLYZ5
- WRITE !,"BUILD ANALYSIS email:"
- +84 ;,XMY(DUZ)=""
- SET (XPSUB,XMSUB)="Build Analysis - "_XPDBN
- SET XMTEXT="XPBA1("
- SET XMDUZ="Kernel Build Analyzer"
- DO ^XMD
- +85 WRITE !!,"Check for email with subject of "_XPSUB,!
- +86 ;ONLY WANT TO SEE ANLYSIS SECTION
- IF ('XPDR)&('XPQR)
- SET END=1
- +87 IF XPQR
- WRITE !!
- Begin DoDot:2
- +88 WRITE !!,"SQA Checklist review email:"
- +89 ;,XMY(DUZ)=""
- DO SQAMM^XPDANLYZ5
- NEW XSUB3
- SET (XSUB3,XMSUB)="SQA Analysis - "_XPDBN
- SET XMTEXT="XPMM("
- SET XMDUZ="Kernel Build Analyzer"
- DO ^XMD
- +90 WRITE !,"Check for email with subject of: "
- +91 WRITE !,?10,XSUB3,!
- SET END=1
- End DoDot:2
- +92 IF XPDR
- if '$DATA(XPDMM)
- QUIT
- Begin DoDot:2
- +93 WRITE !!,"Routine/Component Text email:"
- +94 ;XMY(DUZ)="",
- NEW XPSUB1
- SET (XPSUB1,XMSUB)="Routine and Component Text - "_XPDBN
- SET XMTEXT="XPDMM("
- SET XMDUZ="Kernel Build Analyzer"
- DO ^XMD
- +95 WRITE !,"Check for email with subject of: "
- +96 WRITE !,?10,XPSUB1,!
- SET END=1
- End DoDot:2
- +97 WRITE !!,"** Analysis Complete **",!!
- HANG 2
- +98 if END
- QUIT
- End DoDot:1
- if END
- QUIT
- X2 IF $EXTRACT(IOST,1,2)="C-"
- Begin DoDot:1
- +1 WRITE !!
- NEW DIRUT
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Press <Enter> or '^' to exit"
- +2 ;Q:$D(DIRUT)
- DO ^DIR
- End DoDot:1
- X1 DO ^%ZISC
- if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- KILL DIR,DIC,XPDFARR,FLDARR,XPDRC,Y
- WRITE @IOF
- QUIT
- +1 ;
- HDR(HTXT) ;header information
- +1 IF $EXTRACT(IOST,1,2)="C-"
- Begin DoDot:1
- +2 WRITE !!
- NEW DIRUT
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Press <Enter> to continue or '^' to exit"
- +3 SET DIR("?")="Press <Enter> to continue display, ""^"" to exit option."
- +4 ;Q:$D(DIRUT)
- DO ^DIR
- +5 IF '$GET(Y)
- SET END=2
- QUIT
- End DoDot:1
- if END
- GOTO X1
- +6 SET XPDPG=XPDPG+1
- +7 IF $EXTRACT(IOST,1,2)="C-"
- WRITE @IOF
- WRITE !,HTXT,$$RJ^XLFSTR($$FMTE^XLFDT(XPDATE),79-$LENGTH(HTXT)," ")
- +8 IF '$TEST
- WRITE !,HTXT,$$RJ^XLFSTR($$FMTE^XLFDT(XPDATE)_"; Pg: "_XPDPG,79-$LENGTH(HTXT)," ")
- +9 WRITE !,$TRANSLATE($JUSTIFY("=",79)," ","=")
- +10 QUIT
- +11 ;
