SCCVEGD2.m

SCCVEGD2 ;ALB/MJK - Estimate Summary ; 30-NOV-1998

 ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21

 ;

EN ; -- main entry point for SCCV GLOBAL ESTIMATE SUMMARY

 N SCDET,DIR

 S DIR(0)="YA",DIR("B")="No",DIR("A")="Include CST Detail? "

 D ^DIR

 K DIR

 IF $D(DIRUT) G ENQ

 S SCDET=+Y

 D EN^VALM("SCCV CONV ESTIMATE SUMMARY")

ENQ Q

 ;

HDR ; -- header code

 ;S VALMHDR(1)=" "

 Q

 ;

INIT ; -- init variables and list array

 N SCLINE,SCNT

 S (SCNT,SCLINE)=0

 D GLOBAL

 D ENTRY

 D MOD

 D PER

 D FOOTER

 S VALMCNT=SCNT,VALMBG=1

 IF 'SCDET D

 . D CHGCAP^VALM("CST","    ")

 . D CHGCAP^VALM("START DATE","          ")

 Q

 ;

SET(STR) ; -- set line in array

 S SCLINE=SCLINE+1

 S SCNT=SCNT+1

 D SET^VALM10(SCLINE,STR)

 Q

 ;

SECT(STR) ; -- set section hdr in array

 N Y

 S Y=""

 S Y=$$SETSTR^VALM1(STR,Y,2,$L(STR))

 D SET(Y)

 D CNTRL^VALM10(SCLINE,2,$L(STR),IORVON,IORVOFF)

 Q

 ;

GLOBAL ; -- build global growth lines

 N SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT,FLD

 S DIC=404.98,DR=".03;207:211",DIQ="SCDATA",DIQ(0)="IE"

 S SCI=0

 ;

 D SECT("Global Block Growth")

 ;

 S SCSTDT=0

 F  S SCSTDT=$O(^SD(404.98,"C",SCSTDT)) Q:'SCSTDT  D

 . F  S SCI=$O(^SD(404.98,"C",SCSTDT,SCI)) Q:'SCI  S X=$G(^SD(404.98,SCI,0)) D

 . . N SCDATA

 . . IF $P(X,U,9) Q  ; -- canceled

 . . S DA=SCI D EN^DIQ1

 . . S Y=""

 . . S Y=$$SETFLD^VALM1($J(SCI,4),Y,"CST")

 . . S Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 . . D FLDUPD("SCE",207,.Y)

 . . D FLDUPD("AUPNVSIT",208,.Y)

 . . D FLDUPD("AUPNVPRV",209,.Y)

 . . D FLDUPD("AUPNVPOV",210,.Y)

 . . D FLDUPD("AUPNVCPT",211,.Y)

 . . IF SCDET D SET(Y)

 ;

 S Y=" Total Blocks"

 D TOTUPD("SCE",207,.Y)

 D TOTUPD("AUPNVSIT",208,.Y)

 D TOTUPD("AUPNVPRV",209,.Y)

 D TOTUPD("AUPNVPOV",210,.Y)

 D TOTUPD("AUPNVCPT",211,.Y)

 D SET(Y)

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 ;

 S Z=0 F FLD=207:1:211 S Z=Z+$G(SCTOT(FLD))

 D SET(" (Grand Total:  "_$FN(Z,",")_")")

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 D SET(" ")

 Q

 ;

ENTRY ; -- build new entry lines

 N SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT

 S DIC=404.98,DR=".03;2.07:2.11",DIQ="SCDATA",DIQ(0)="IE"

 S SCI=0

 ;

 D SECT("New Entries")

 ;

 S SCSTDT=0

 F  S SCSTDT=$O(^SD(404.98,"C",SCSTDT)) Q:'SCSTDT  D

 . F  S SCI=$O(^SD(404.98,"C",SCSTDT,SCI)) Q:'SCI  S X=$G(^SD(404.98,SCI,0)) D

 . . N SCDATA

 . . IF $P(X,U,9) Q  ; -- canceled

 . . S DA=SCI D EN^DIQ1

 . . S Y=""

 . . S Y=$$SETFLD^VALM1($J(SCI,4),Y,"CST")

 . . S Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 . . D FLDUPD("SCE",2.07,.Y)

 . . D FLDUPD("AUPNVSIT",2.08,.Y)

 . . D FLDUPD("AUPNVPRV",2.09,.Y)

 . . D FLDUPD("AUPNVPOV",2.10,.Y)

 . . D FLDUPD("AUPNVCPT",2.11,.Y)

 . . IF SCDET D SET(Y)

 ;

 S Y=" Total Entries"

 D TOTUPD("SCE",2.07,.Y)

 D TOTUPD("AUPNVSIT",2.08,.Y)

 D TOTUPD("AUPNVPRV",2.09,.Y)

 D TOTUPD("AUPNVPOV",2.10,.Y)

 D TOTUPD("AUPNVCPT",2.11,.Y)

 D SET(Y)

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 D SET(" ")

 Q

MOD ; -- build modified entry lines

 N SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT

 S DIC=404.98,DR=".03;2.07:2.08",DIQ="SCDATA",DIQ(0)="IE"

 S SCI=0

 ;

 D SECT("Modified Entries")

 ;

 S SCSTDT=0

 F  S SCSTDT=$O(^SD(404.98,"C",SCSTDT)) Q:'SCSTDT  D

 . F  S SCI=$O(^SD(404.98,"C",SCSTDT,SCI)) Q:'SCI  S X=$G(^SD(404.98,SCI,0)) D

 . . N SCDATA,Z

 . . IF $P(X,U,9) Q  ; -- canceled

 . . S DA=SCI D EN^DIQ1

 . . S Y=""

 . . S Y=$$SETFLD^VALM1($J(SCI,4),Y,"CST")

 . . S Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 . . S Z=SCDATA(404.98,SCI,2.08,"E")-SCDATA(404.98,SCI,2.07,"E")

 . . S Y=$$SETFLD^VALM1($J($FN(Z,","),11),Y,"SCE")

 . . S SCTOT(2.07)=$G(SCTOT(2.07))+Z

 . . IF SCDET D SET(Y)

 ;

 S Y=" Total Entries"

 D TOTUPD("SCE",2.07,.Y)

 D SET(Y)

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 D SET(" ")

 Q

 ;

PER ; -- build blocks per records lines

 N Y,SCDATA

 D ESTGROW^SCCVEGU1("SCDATA")

 ;

 D SECT("Global Block Estimates per Entry")

 ;

 S Y=" New Entries"

 S Y=$$SETFLD^VALM1($J(SCDATA("SCE","NEW"),11),Y,"SCE")

 S Y=$$SETFLD^VALM1($J(SCDATA("AUPNVSIT"),11),Y,"AUPNVSIT")

 S Y=$$SETFLD^VALM1($J(SCDATA("AUPNVPRV"),11),Y,"AUPNVPRV")

 S Y=$$SETFLD^VALM1($J(SCDATA("AUPNVPOV"),11),Y,"AUPNVPOV")

 S Y=$$SETFLD^VALM1($J(SCDATA("AUPNVCPT"),11),Y,"AUPNVCPT")

 D SET(Y)

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 ;

 S Y=" Updated Entries"

 S Y=$$SETFLD^VALM1($J(SCDATA("SCE","UPD"),11),Y,"SCE")

 D SET(Y)

 D CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 Q

 ;

FOOTER ; -- build general info footer

 D SET(" ")

 D SET(" ")

 D SET(" Note: Estimates are assuming the following:")

 D SET("                  Block Size: "_$$BLKSIZE^SCCVEGU1()_" bytes")

 D SET("           Global Efficiency: 70%")

 Q

 ;

FLDUPD(NAME,FLD,STR) ; -- update line with field info

 N Z

 S Z=SCDATA(404.98,SCI,FLD,"E")

 S STR=$$SETFLD^VALM1($J($FN(Z,","),11),STR,NAME)

 S SCTOT(FLD)=$G(SCTOT(FLD))+Z

 Q

 ;

TOTUPD(NAME,FLD,STR) ; -- update total line with field total

 S STR=$$SETFLD^VALM1($J($FN(+$G(SCTOT(FLD)),","),11),STR,NAME)

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("SCCV GESTIMATE",$J)

 Q

 ;

EXPND ; -- expand code

 Q

 ;

SCCVEGD2  ;ALB/MJK - Estimate Summary ; 30-NOV-1998

 +1       ;;5.3;Scheduling;**211,1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ; -- main entry point for SCCV GLOBAL ESTIMATE SUMMARY

 +1        NEW SCDET,DIR

 +2        SET DIR(0)="YA"

           SET DIR("B")="No"

           SET DIR("A")="Include CST Detail? "

 +3        DO ^DIR

 +4        KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO ENQ

 +6        SET SCDET=+Y

 +7        DO EN^VALM("SCCV CONV ESTIMATE SUMMARY")

ENQ        QUIT 

 +1       ;

HDR       ; -- header code

 +1       ;S VALMHDR(1)=" "

 +2        QUIT 

 +3       ;

INIT      ; -- init variables and list array

 +1        NEW SCLINE,SCNT

 +2        SET (SCNT,SCLINE)=0

 +3        DO GLOBAL

 +4        DO ENTRY

 +5        DO MOD

 +6        DO PER

 +7        DO FOOTER

 +8        SET VALMCNT=SCNT

           SET VALMBG=1

 +9        IF 'SCDET

               Begin DoDot:1

 +10               DO CHGCAP^VALM("CST","    ")

 +11               DO CHGCAP^VALM("START DATE","          ")

               End DoDot:1

 +12       QUIT 

 +13      ;

SET(STR)  ; -- set line in array

 +1        SET SCLINE=SCLINE+1

 +2        SET SCNT=SCNT+1

 +3        DO SET^VALM10(SCLINE,STR)

 +4        QUIT 

 +5       ;

SECT(STR) ; -- set section hdr in array

 +1        NEW Y

 +2        SET Y=""

 +3        SET Y=$$SETSTR^VALM1(STR,Y,2,$LENGTH(STR))

 +4        DO SET(Y)

 +5        DO CNTRL^VALM10(SCLINE,2,$LENGTH(STR),IORVON,IORVOFF)

 +6        QUIT 

 +7       ;

GLOBAL    ; -- build global growth lines

 +1        NEW SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT,FLD

 +2        SET DIC=404.98

           SET DR=".03;207:211"

           SET DIQ="SCDATA"

           SET DIQ(0)="IE"

 +3        SET SCI=0

 +4       ;

 +5        DO SECT("Global Block Growth")

 +6       ;

 +7        SET SCSTDT=0

 +8        FOR 

               SET SCSTDT=$ORDER(^SD(404.98,"C",SCSTDT))

               IF 'SCSTDT

                   QUIT 

               Begin DoDot:1

 +9                FOR 

                       SET SCI=$ORDER(^SD(404.98,"C",SCSTDT,SCI))

                       IF 'SCI

                           QUIT 

                       SET X=$GET(^SD(404.98,SCI,0))

                       Begin DoDot:2

 +10                       NEW SCDATA

 +11      ; -- canceled

                           IF $PIECE(X,U,9)

                               QUIT 

 +12                       SET DA=SCI

                           DO EN^DIQ1

 +13                       SET Y=""

 +14                       SET Y=$$SETFLD^VALM1($JUSTIFY(SCI,4),Y,"CST")

 +15                       SET Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 +16                       DO FLDUPD("SCE",207,.Y)

 +17                       DO FLDUPD("AUPNVSIT",208,.Y)

 +18                       DO FLDUPD("AUPNVPRV",209,.Y)

 +19                       DO FLDUPD("AUPNVPOV",210,.Y)

 +20                       DO FLDUPD("AUPNVCPT",211,.Y)

 +21                       IF SCDET

                               DO SET(Y)

                       End DoDot:2

               End DoDot:1

 +22      ;

 +23       SET Y=" Total Blocks"

 +24       DO TOTUPD("SCE",207,.Y)

 +25       DO TOTUPD("AUPNVSIT",208,.Y)

 +26       DO TOTUPD("AUPNVPRV",209,.Y)

 +27       DO TOTUPD("AUPNVPOV",210,.Y)

 +28       DO TOTUPD("AUPNVCPT",211,.Y)

 +29       DO SET(Y)

 +30       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +31      ;

 +32       SET Z=0

           FOR FLD=207:1:211

               SET Z=Z+$GET(SCTOT(FLD))

 +33       DO SET(" (Grand Total:  "_$FNUMBER(Z,",")_")")

 +34       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +35       DO SET(" ")

 +36       QUIT 

 +37      ;

ENTRY     ; -- build new entry lines

 +1        NEW SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT

 +2        SET DIC=404.98

           SET DR=".03;2.07:2.11"

           SET DIQ="SCDATA"

           SET DIQ(0)="IE"

 +3        SET SCI=0

 +4       ;

 +5        DO SECT("New Entries")

 +6       ;

 +7        SET SCSTDT=0

 +8        FOR 

               SET SCSTDT=$ORDER(^SD(404.98,"C",SCSTDT))

               IF 'SCSTDT

                   QUIT 

               Begin DoDot:1

 +9                FOR 

                       SET SCI=$ORDER(^SD(404.98,"C",SCSTDT,SCI))

                       IF 'SCI

                           QUIT 

                       SET X=$GET(^SD(404.98,SCI,0))

                       Begin DoDot:2

 +10                       NEW SCDATA

 +11      ; -- canceled

                           IF $PIECE(X,U,9)

                               QUIT 

 +12                       SET DA=SCI

                           DO EN^DIQ1

 +13                       SET Y=""

 +14                       SET Y=$$SETFLD^VALM1($JUSTIFY(SCI,4),Y,"CST")

 +15                       SET Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 +16                       DO FLDUPD("SCE",2.07,.Y)

 +17                       DO FLDUPD("AUPNVSIT",2.08,.Y)

 +18                       DO FLDUPD("AUPNVPRV",2.09,.Y)

 +19                       DO FLDUPD("AUPNVPOV",2.10,.Y)

 +20                       DO FLDUPD("AUPNVCPT",2.11,.Y)

 +21                       IF SCDET

                               DO SET(Y)

                       End DoDot:2

               End DoDot:1

 +22      ;

 +23       SET Y=" Total Entries"

 +24       DO TOTUPD("SCE",2.07,.Y)

 +25       DO TOTUPD("AUPNVSIT",2.08,.Y)

 +26       DO TOTUPD("AUPNVPRV",2.09,.Y)

 +27       DO TOTUPD("AUPNVPOV",2.10,.Y)

 +28       DO TOTUPD("AUPNVCPT",2.11,.Y)

 +29       DO SET(Y)

 +30       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +31       DO SET(" ")

 +32       QUIT 

MOD       ; -- build modified entry lines

 +1        NEW SCI,DIC,DR,DIQ,DA,X,Y,Z,SCTOT,SCSTDT

 +2        SET DIC=404.98

           SET DR=".03;2.07:2.08"

           SET DIQ="SCDATA"

           SET DIQ(0)="IE"

 +3        SET SCI=0

 +4       ;

 +5        DO SECT("Modified Entries")

 +6       ;

 +7        SET SCSTDT=0

 +8        FOR 

               SET SCSTDT=$ORDER(^SD(404.98,"C",SCSTDT))

               IF 'SCSTDT

                   QUIT 

               Begin DoDot:1

 +9                FOR 

                       SET SCI=$ORDER(^SD(404.98,"C",SCSTDT,SCI))

                       IF 'SCI

                           QUIT 

                       SET X=$GET(^SD(404.98,SCI,0))

                       Begin DoDot:2

 +10                       NEW SCDATA,Z

 +11      ; -- canceled

                           IF $PIECE(X,U,9)

                               QUIT 

 +12                       SET DA=SCI

                           DO EN^DIQ1

 +13                       SET Y=""

 +14                       SET Y=$$SETFLD^VALM1($JUSTIFY(SCI,4),Y,"CST")

 +15                       SET Y=$$SETFLD^VALM1($$FMTE^XLFDT(SCDATA(404.98,SCI,.03,"I"),"5ZD"),Y,"START DATE")

 +16                       SET Z=SCDATA(404.98,SCI,2.08,"E")-SCDATA(404.98,SCI,2.07,"E")

 +17                       SET Y=$$SETFLD^VALM1($JUSTIFY($FNUMBER(Z,","),11),Y,"SCE")

 +18                       SET SCTOT(2.07)=$GET(SCTOT(2.07))+Z

 +19                       IF SCDET

                               DO SET(Y)

                       End DoDot:2

               End DoDot:1

 +20      ;

 +21       SET Y=" Total Entries"

 +22       DO TOTUPD("SCE",2.07,.Y)

 +23       DO SET(Y)

 +24       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +25       DO SET(" ")

 +26       QUIT 

 +27      ;

PER       ; -- build blocks per records lines

 +1        NEW Y,SCDATA

 +2        DO ESTGROW^SCCVEGU1("SCDATA")

 +3       ;

 +4        DO SECT("Global Block Estimates per Entry")

 +5       ;

 +6        SET Y=" New Entries"

 +7        SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("SCE","NEW"),11),Y,"SCE")

 +8        SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("AUPNVSIT"),11),Y,"AUPNVSIT")

 +9        SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("AUPNVPRV"),11),Y,"AUPNVPRV")

 +10       SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("AUPNVPOV"),11),Y,"AUPNVPOV")

 +11       SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("AUPNVCPT"),11),Y,"AUPNVCPT")

 +12       DO SET(Y)

 +13       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +14      ;

 +15       SET Y=" Updated Entries"

 +16       SET Y=$$SETFLD^VALM1($JUSTIFY(SCDATA("SCE","UPD"),11),Y,"SCE")

 +17       DO SET(Y)

 +18       DO CNTRL^VALM10(SCLINE,1,79,IOINHI,IOINORM)

 +19       QUIT 

 +20      ;

FOOTER    ; -- build general info footer

 +1        DO SET(" ")

 +2        DO SET(" ")

 +3        DO SET(" Note: Estimates are assuming the following:")

 +4        DO SET("                  Block Size: "_$$BLKSIZE^SCCVEGU1()_" bytes")

 +5        DO SET("           Global Efficiency: 70%")

 +6        QUIT 

 +7       ;

FLDUPD(NAME,FLD,STR) ; -- update line with field info

 +1        NEW Z

 +2        SET Z=SCDATA(404.98,SCI,FLD,"E")

 +3        SET STR=$$SETFLD^VALM1($JUSTIFY($FNUMBER(Z,","),11),STR,NAME)

 +4        SET SCTOT(FLD)=$GET(SCTOT(FLD))+Z

 +5        QUIT 

 +6       ;

TOTUPD(NAME,FLD,STR) ; -- update total line with field total

 +1        SET STR=$$SETFLD^VALM1($JUSTIFY($FNUMBER(+$GET(SCTOT(FLD)),","),11),STR,NAME)

 +2        QUIT 

 +3       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("SCCV GESTIMATE",$JOB)

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;