PSXCST1.m

PSXCST1 ;BIR/JMB-Date Range Compile/Recompile Cost Data-CONTINUED ;[ 04/08/97   2:06 PM ]

 ;;2.0;CMOP;;11 Apr 97

RECOM1 ;Gets last month that is compiled with monthly data. (3 months ago)

 ;E.g. Today=11/3/94, 8/94 is last date to be compiled with monthly data.

 S PSXMON=$E(DT,4,5),PSXMON=$P("10^11^12^01^02^03^04^05^06^07^08^09","^",PSXMON) S PSXYR=$S(+PSXMON>9:($E(DT,1,3)-1),1:$E(DT,1,3)),PSXCUT=PSXYR_PSXMON_"00"

 ;If PSXBEG's yr & mon > 2 mons ago, set PSXBEG to 3 months ago & queue

 ;monthly data. Then set 2 months ago to PSXEND & compile daily data.

 I $E(PSXBEG,1,5)<$E(PSXCUT,1,5) S PSXBDT=PSXBEG,PSXEDT=$S($E(PSXEND,1,5)<$E(PSXCUT,1,5):PSXEND,1:PSXCUT),PSXCOM=0 D QUE^PSXCST Q:$G(PSXERR)  G:PSXEND=PSXEDT END^PSXCSUTL D  Q:$G(PSXERR)

 .S PSXBDT=$S($E(PSXCUT,4,5)=12:$E(PSXCUT,1,3)+1,1:$E(PSXCUT,1,3))_$P("02^03^04^05^06^07^08^09^10^11^12^01","^",$E(PSXCUT,4,5))_"01",PSXEDT=PSXEND,PSXCOM=2 D QUE^PSXCST

 ;If PSXBEG's yr & mon are 3 months ago, send PSXBEG's month for monthly

 ;compile. If PSXEND is not same yr & mon as PSXBEG, send 2 months ago to

 ;PSXEND for daily compile.

 I $E(PSXBEG,1,5)=$E(PSXCUT,1,5) S (PSXBDT,PSXEDT)=PSXCUT,PSXCOM=0 D QUE^PSXCST  Q:$G(PSXERR)  D

 .Q:$E(PSXBEG,1,5)=$E(PSXEND,1,5)

 .S PSXNEXT=$S($E(PSXCUT,4,5)=12:$E(PSXCUT,1,3)+1,1:$E(PSXCUT,1,3))_$P("02^03^04^05^06^07^08^09^10^11^12^01","^",$E(PSXCUT,4,5))

 .S PSXBDT=PSXNEXT_"00",PSXEDT=PSXEND,PSXCOM=2 D QUE^PSXCST Q:$G(PSXERR) 

 ;If PSXBEG is before monthly data should be compiled, send PSXBEG to

 ;PSXEND for daily compilation.

 I $E(PSXBEG,1,5)>$E(PSXCUT,1,5) S PSXBDT=PSXBEG,PSXEDT=PSXEND,PSXCOM=2 D QUE^PSXCST Q:$G(PSXERR)

 G END^PSXCSUTL

PSXCST1   ;BIR/JMB-Date Range Compile/Recompile Cost Data-CONTINUED ;[ 04/08/97   2:06 PM ]

 +1       ;;2.0;CMOP;;11 Apr 97

RECOM1    ;Gets last month that is compiled with monthly data. (3 months ago)

 +1       ;E.g. Today=11/3/94, 8/94 is last date to be compiled with monthly data.

 +2        SET PSXMON=$EXTRACT(DT,4,5)

           SET PSXMON=$PIECE("10^11^12^01^02^03^04^05^06^07^08^09","^",PSXMON)

           SET PSXYR=$SELECT(+PSXMON>9:($EXTRACT(DT,1,3)-1),1:$EXTRACT(DT,1,3))

           SET PSXCUT=PSXYR_PSXMON_"00"

 +3       ;If PSXBEG's yr & mon > 2 mons ago, set PSXBEG to 3 months ago & queue

 +4       ;monthly data. Then set 2 months ago to PSXEND & compile daily data.

 +5        IF $EXTRACT(PSXBEG,1,5)<$EXTRACT(PSXCUT,1,5)

               SET PSXBDT=PSXBEG

               SET PSXEDT=$SELECT($EXTRACT(PSXEND,1,5)<$EXTRACT(PSXCUT,1,5):PSXEND,1:PSXCUT)

               SET PSXCOM=0

               DO QUE^PSXCST

               IF $GET(PSXERR)

                   QUIT 

               IF PSXEND=PSXEDT

                   GOTO END^PSXCSUTL

               Begin DoDot:1

 +6                SET PSXBDT=$SELECT($EXTRACT(PSXCUT,4,5)=12:$EXTRACT(PSXCUT,1,3)+1,1:$EXTRACT(PSXCUT,1,3))_$PIECE("02^03^04^05^06^07^08^09^10^11^12^01","^",$EXTRACT(PSXCUT,4,5))_"01"

                   SET PSXEDT=PSXEND

                   SET PSXCOM=2

                   DO QUE^PSXCST

               End DoDot:1

               IF $GET(PSXERR)

                   QUIT 

 +7       ;If PSXBEG's yr & mon are 3 months ago, send PSXBEG's month for monthly

 +8       ;compile. If PSXEND is not same yr & mon as PSXBEG, send 2 months ago to

 +9       ;PSXEND for daily compile.

 +10       IF $EXTRACT(PSXBEG,1,5)=$EXTRACT(PSXCUT,1,5)

               SET (PSXBDT,PSXEDT)=PSXCUT

               SET PSXCOM=0

               DO QUE^PSXCST

               IF $GET(PSXERR)

                   QUIT 

               Begin DoDot:1

 +11               IF $EXTRACT(PSXBEG,1,5)=$EXTRACT(PSXEND,1,5)

                       QUIT 

 +12               SET PSXNEXT=$SELECT($EXTRACT(PSXCUT,4,5)=12:$EXTRACT(PSXCUT,1,3)+1,1:$EXTRACT(PSXCUT,1,3))_$PIECE("02^03^04^05^06^07^08^09^10^11^12^01","^",$EXTRACT(PSXCUT,4,5))

 +13               SET PSXBDT=PSXNEXT_"00"

                   SET PSXEDT=PSXEND

                   SET PSXCOM=2

                   DO QUE^PSXCST

                   IF $GET(PSXERR)

                       QUIT 

               End DoDot:1

 +14      ;If PSXBEG is before monthly data should be compiled, send PSXBEG to

 +15      ;PSXEND for daily compilation.

 +16       IF $EXTRACT(PSXBEG,1,5)>$EXTRACT(PSXCUT,1,5)

               SET PSXBDT=PSXBEG

               SET PSXEDT=PSXEND

               SET PSXCOM=2

               DO QUE^PSXCST

               IF $GET(PSXERR)

                   QUIT 

 +17       GOTO END^PSXCSUTL