LEXQC.m

LEXQC ;ISL/KER - Query - Changes - Extract ;04/21/2014

 ;;2.0;LEXICON UTILITY;**62,80**;Sep 23, 1996;Build 10

 ;               

 ; Global Variables

 ;    ^DIC(81.3,          ICR   4492

 ;    ^ICPT(              ICR   4489

 ;    ^ICPT(0)            ICR   4489

 ;    ^TMP("LEXQC")       SACC 2.3.2.5.1

 ;    ^TMP("LEXQCO")      SACC 2.3.2.5.1

 ;               

 ; External References

 ;    HOME^%ZIS           ICR  10086

 ;    $$ROOT^ICDEX        ICR   5747

 ;    $$FMADD^XLFDT       ICR  10103

 ;               

EN ; Main Entry Point

 N LEXENV S LEXENV=$$EV^LEXQM Q:+LEXENV'>0

 K ^TMP("LEXQCO",$J),^TMP("LEXQC",$J)

 N LEXCDT,LEXEDT,LEXEXIT S LEXCDT=$$CSD^LEXQM Q:'$L(LEXCDT)

 Q:+($G(LEXEXIT))>0  S LEXEDT=$P(LEXCDT,"^",1),LEXCDT=$P(LEXCDT,"^",2)

 Q:LEXCDT'?7N  D TASK

 Q

TASK ; Task Re-indexing

 N X,Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTQUEUED,ZTREQ

 S LEXCDT=+($G(LEXCDT)) Q:LEXCDT'?7N  S LEXEDT=$G(LEXEDT) Q:'$L(LEXEDT)

 S ZTRTN="SEARCH^LEXQC",ZTSAVE("LEXCDT")="",ZTIO="",ZTDTH=$H

 S ZTDESC="Search for CSV Changes on "_LEXEDT

 D @ZTRTN D HOME^%ZIS S X=+($G(ZTSK))

 W:+X>0 !!,"   A search for CSV changes on ",LEXEDT

 W:+X>0 " has been queued (task ",+X,")",!

 K Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN

 Q

SEARCH ; Search for CSV changes

 S:$D(ZTQUEUED) ZTREQ="@" S LEXCDT=$G(LEXCDT) Q:LEXCDT'?7N

 N LEXBDT,LEXADT,LEXRT,LEXQTOT,LEXQLEN,LEXQSTR

 S LEXBDT=$$FMADD^XLFDT(LEXCDT,-1),LEXADT=$$FMADD^XLFDT(DT,+1)

 Q:LEXBDT'?7N  Q:LEXADT'?7N  K ^TMP("LEXQC",$J) W !!,"   "

 S LEXQTOT=$P($G(^ICPT(0)),"^",4)

 S LEXRT=$$ROOT^ICDEX(80) S LEXQTOT=LEXQTOT+$P($G(@(LEXRT_"0)")),"^",4)

 S LEXRT=$$ROOT^ICDEX(80.1) S LEXQTOT=LEXQTOT+$P($G(@(LEXRT_"0)")),"^",4)

 S LEXQTOT=LEXQTOT+$P($G(^DIC(81.3,0)),"^",4)

 S LEXQLEN=68,LEXQSTR=+(LEXQTOT\LEXQLEN) S:LEXQSTR=0 LEXQSTR=1

 D D09^LEXQC3,P09^LEXQC3,D10^LEXQC3,P10^LEXQC3,CPT^LEXQC4,MOD^LEXQC4

 D EN^LEXQC2 D:$D(^TMP("LEXQCO",$J)) DSP^LEXQO("LEXQCO")

 Q

LEXQC     ;ISL/KER - Query - Changes - Extract ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**62,80**;Sep 23, 1996;Build 10

 +2       ;               

 +3       ; Global Variables

 +4       ;    ^DIC(81.3,          ICR   4492

 +5       ;    ^ICPT(              ICR   4489

 +6       ;    ^ICPT(0)            ICR   4489

 +7       ;    ^TMP("LEXQC")       SACC 2.3.2.5.1

 +8       ;    ^TMP("LEXQCO")      SACC 2.3.2.5.1

 +9       ;               

 +10      ; External References

 +11      ;    HOME^%ZIS           ICR  10086

 +12      ;    $$ROOT^ICDEX        ICR   5747

 +13      ;    $$FMADD^XLFDT       ICR  10103

 +14      ;               

EN        ; Main Entry Point

 +1        NEW LEXENV

           SET LEXENV=$$EV^LEXQM

           IF +LEXENV'>0

               QUIT 

 +2        KILL ^TMP("LEXQCO",$JOB),^TMP("LEXQC",$JOB)

 +3        NEW LEXCDT,LEXEDT,LEXEXIT

           SET LEXCDT=$$CSD^LEXQM

           IF '$LENGTH(LEXCDT)

               QUIT 

 +4        IF +($GET(LEXEXIT))>0

               QUIT 

           SET LEXEDT=$PIECE(LEXCDT,"^",1)

           SET LEXCDT=$PIECE(LEXCDT,"^",2)

 +5        IF LEXCDT'?7N

               QUIT 

           DO TASK

 +6        QUIT 

TASK      ; Task Re-indexing

 +1        NEW X,Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTQUEUED,ZTREQ

 +2        SET LEXCDT=+($GET(LEXCDT))

           IF LEXCDT'?7N

               QUIT 

           SET LEXEDT=$GET(LEXEDT)

           IF '$LENGTH(LEXEDT)

               QUIT 

 +3        SET ZTRTN="SEARCH^LEXQC"

           SET ZTSAVE("LEXCDT")=""

           SET ZTIO=""

           SET ZTDTH=$HOROLOG

 +4        SET ZTDESC="Search for CSV Changes on "_LEXEDT

 +5        DO @ZTRTN

           DO HOME^%ZIS

           SET X=+($GET(ZTSK))

 +6        IF +X>0

               WRITE !!,"   A search for CSV changes on ",LEXEDT

 +7        IF +X>0

               WRITE " has been queued (task ",+X,")",!

 +8        KILL Y,ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN

 +9        QUIT 

SEARCH    ; Search for CSV changes

 +1        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

           SET LEXCDT=$GET(LEXCDT)

           IF LEXCDT'?7N

               QUIT 

 +2        NEW LEXBDT,LEXADT,LEXRT,LEXQTOT,LEXQLEN,LEXQSTR

 +3        SET LEXBDT=$$FMADD^XLFDT(LEXCDT,-1)

           SET LEXADT=$$FMADD^XLFDT(DT,+1)

 +4        IF LEXBDT'?7N

               QUIT 

           IF LEXADT'?7N

               QUIT 

           KILL ^TMP("LEXQC",$JOB)

           WRITE !!,"   "

 +5        SET LEXQTOT=$PIECE($GET(^ICPT(0)),"^",4)

 +6        SET LEXRT=$$ROOT^ICDEX(80)

           SET LEXQTOT=LEXQTOT+$PIECE($GET(@(LEXRT_"0)")),"^",4)

 +7        SET LEXRT=$$ROOT^ICDEX(80.1)

           SET LEXQTOT=LEXQTOT+$PIECE($GET(@(LEXRT_"0)")),"^",4)

 +8        SET LEXQTOT=LEXQTOT+$PIECE($GET(^DIC(81.3,0)),"^",4)

 +9        SET LEXQLEN=68

           SET LEXQSTR=+(LEXQTOT\LEXQLEN)

           IF LEXQSTR=0

               SET LEXQSTR=1

 +10       DO D09^LEXQC3

           DO P09^LEXQC3

           DO D10^LEXQC3

           DO P10^LEXQC3

           DO CPT^LEXQC4

           DO MOD^LEXQC4

 +11       DO EN^LEXQC2

           IF $DATA(^TMP("LEXQCO",$JOB))

               DO DSP^LEXQO("LEXQCO")

 +12       QUIT