Routine: BDWRXP

BDWRXP ;cmi/anch/maw - BDW Mark Visit for Export that didn't export already 8/8/2007 10:14:44 AM

 ;;1.0;IHS DATA WAREHOUSE;**1,2**;JAN 23, 2006

 ;this routine will go back to the beginning of the fiscal year and mark

 ;visits for export that did not export already

MAIN ;-- this is the main routine driver

 S BDWFY=$$FY(DT)

 D LOOK(BDWFY_"0930.9999",(DT-.0001))

 D EOJ

FY(BDWDT) ;-- lets find out the fiscal year based on DT passed in

 N BDWYR,BDWMO,BDWFY

 S BDWYR=$E(BDWDT,1,3)

 S BDWMO=$E(BDWDT,4,5)

 S BDWFY=BDWYR

 I BDWMO="01" S BDWFY=BDWYR-1

 I BDWMO="02" S BDWFY=BDWYR-1

 I BDWMO="03" S BDWFY=BDWYR-1

 I BDWMO="04" S BDWFY=BDWYR-1

 I BDWMO="05" S BDWFY=BDWYR-1

 I BDWMO="06" S BDWFY=BDWYR-1

 I BDWMO="07" S BDWFY=BDWYR-1

 I BDWMO="08" S BDWFY=BDWYR-1

 I BDWMO="09" S BDWFY=BDWYR-1

 Q BDWFY

LOOK(BDWBEG,BDWEND) ;-- look through all visits for the fiscal year until today and mark for export

 N BDWDA,BDWCNT

 S BDWCNT=0

 I $G(BDWINT) W !,"Searching"

 S BDWDA=BDWBEG F  S BDWDA=$O(^AUPNVSIT("B",BDWDA)) Q:'BDWDA!(BDWDA>BDWEND)  D

 . S BDWIEN=0 F  S BDWIEN=$O(^AUPNVSIT("B",BDWDA,BDWIEN)) Q:'BDWIEN  D

 .. S BDWCNT=BDWCNT+1

 .. I $G(BDWINT),BDWCNT=50 D

 ... W "."

 ... S BDWCNT=0

 .. N BDWREC,BDWREC1,BDWVCDT,BDWUSER,BDWVEDT

 .. S BDWREC=$G(^AUPNVSIT(BDWIEN,0))

 .. S BDWUSER=$P(BDWREC,U,23)  ;created by user

 .. I BDWUSER Q:BDWUSER=.5  ;screen out postmaster for MFI sites

 .. S BDWREC1=$G(^AUPNVSIT(BDWIEN,11))

 .. S BDWVCDT=$P(BDWREC,U,2)  ;visit creation date

 .. S BDWVEDT=$P(BDWREC,U,13)  ;visit last update

 .. Q:'BDWVCDT

 .. Q:'BDWVEDT

 .. Q:$P(BDWREC,U,11)  ;visit deleted

 .. Q:$P(BDWREC1,U,6)  ;already exported

 .. Q:$D(^AUPNVSIT("ADWO",BDWVCDT,BDWIEN))  ;xref already set

 .. Q:$D(^AUPNVSIT("ADWO",BDWVEDT,BDWIEN))  ;xref already set

 .. ;N BDWFDA,BDWIENS,BDWERR

 .. ;S BDWIENS=BDWIEN_","

 .. ;S BDWFDA(9000010,BDWIENS,.13)=DT

 .. S BDWRXP=1  ;flag to tell trigger not to fire

 .. ;D FILE^DIE("K","BDWFDA","BDWERR(1)")

 .. D ^XBFMK S DIE="^AUPNVSIT(",DA=BDWIEN,DR=".13////"_DT D ^DIE K DIE,DA,DR

 .. K BDWRXP

EOJ ;-- end of job

 D EN^XBVK("BDW")

 K DIR

 D ^XBFMK

ASK ;-- ask the dates for the run

 N BDWFY,BDW3FY

 S BDWFY=$$FY(DT)  ;get fiscal year

 S BDW3FY=($E(BDWFY,1,3)-3)_"0930.9999"  ; get begin date for last 3 full fys per dr. stan griffith

 S BDWFD=$$FMADD^XLFDT($P(BDW3FY,"."),1)  ;earliest date for reader call

 W !!,"This option can be used to flag visits for export "

 W !,"that have not previously been exported to the National Data Warehouse.",!

 W !,"You will be asked to enter a beginning and ending date.  The system will"

 W !,"review all visits in that date range and if the visit has never been"

 W !,"exported to the NDW it will flag it for export on the next export."

 W !!,"The earliest date you can enter for this option is ",$$FMTE^XLFDT(BDWFD),".",!!

 ;S %DT="AEP",%DT(0)=BDW3FY,%DT("A")="Enter Begin Date: "

 ;D ^%DT

 ;I Y<0 K BDWBG,%DT

 ;S BDWBG=+Y_.9999

 ;S %DT="AE",%DT(0)="-NOW",%DT("A")="Enter End Date: "

 ;D ^%DT

 ;I Y<0 K BDWBG,%DT

 ;S BDWED=+Y_.9999

 ;K %DT

BD ;get beginning date

 S (BDWBG,BDWED)=""

 S DIR(0)="D^"_BDWFD_":"_DT_":EP",DIR("A")="Enter Beginning Date",DIR("?")="Enter the beginning visit date.  It must be after "_$$FMTE^XLFDT(BDWFD)

 D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) Q

 S BDWBG=Y

ED ;

 S DIR(0)="DA^"_BDWBG_":"_DT_":EP",DIR("A")="Enter Ending Date:  " D ^DIR K DIR,DA S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) Q

 I Y<BDWBG W !,"Ending date must be greater than or equal to beginning date!" G ED

 S BDWED=Y

INTER ;-- interactive run

 S BDWINT=1

 D ASK

 I '$G(BDWBG)!('$G(BDWED)) W !!,"Beginning and ending dates not selected.",! D PAUSE,EOJ Q

 D LOOK(BDWBG,BDWED)

 D EOJ

PAUSE ;

 K DIR S DIR(0)="E",DIR("A")="Press enter:  " D ^DIR K DIR

BDWRXP    ;cmi/anch/maw - BDW Mark Visit for Export that didn't export already 8/8/2007 10:14:44 AM

 +1       ;;1.0;IHS DATA WAREHOUSE;**1,2**;JAN 23, 2006

 +2       ;

 +3       ;

 +4       ;

 +5       ;this routine will go back to the beginning of the fiscal year and mark

 +6       ;visits for export that did not export already

 +7       ;

 +8       ;

MAIN      ;-- this is the main routine driver

 +1        SET BDWFY=$$FY(DT)

 +2        DO LOOK(BDWFY_"0930.9999",(DT-.0001))

 +3        DO EOJ

 +4        QUIT

 +5       ;

FY(BDWDT) ;-- lets find out the fiscal year based on DT passed in

 +1        NEW BDWYR,BDWMO,BDWFY

 +2        SET BDWYR=$EXTRACT(BDWDT,1,3)

 +3        SET BDWMO=$EXTRACT(BDWDT,4,5)

 +4        SET BDWFY=BDWYR

 +5        IF BDWMO="01"

               SET BDWFY=BDWYR-1

 +6        IF BDWMO="02"

               SET BDWFY=BDWYR-1

 +7        IF BDWMO="03"

               SET BDWFY=BDWYR-1

 +8        IF BDWMO="04"

               SET BDWFY=BDWYR-1

 +9        IF BDWMO="05"

               SET BDWFY=BDWYR-1

 +10       IF BDWMO="06"

               SET BDWFY=BDWYR-1

 +11       IF BDWMO="07"

               SET BDWFY=BDWYR-1

 +12       IF BDWMO="08"

               SET BDWFY=BDWYR-1

 +13       IF BDWMO="09"

               SET BDWFY=BDWYR-1

 +14       QUIT BDWFY

 +15      ;

LOOK(BDWBEG,BDWEND) ;-- look through all visits for the fiscal year until today and mark for export

 +1        NEW BDWDA,BDWCNT

 +2        SET BDWCNT=0

 +3        IF $GET(BDWINT)

               WRITE !,"Searching"

 +4        SET BDWDA=BDWBEG

FOR

               SET BDWDA=$ORDER(^AUPNVSIT("B",BDWDA))

               IF 'BDWDA!(BDWDA>BDWEND)

                   QUIT

               Begin DoDot:1

 +5                SET BDWIEN=0

FOR

                       SET BDWIEN=$ORDER(^AUPNVSIT("B",BDWDA,BDWIEN))

                       IF 'BDWIEN

                           QUIT

                       Begin DoDot:2

 +6                        SET BDWCNT=BDWCNT+1

 +7                        IF $GET(BDWINT)

                               IF BDWCNT=50

                                   Begin DoDot:3

 +8                                    WRITE "."

 +9                                    SET BDWCNT=0

                                   End DoDot:3

 +10                       NEW BDWREC,BDWREC1,BDWVCDT,BDWUSER,BDWVEDT

 +11                       SET BDWREC=$GET(^AUPNVSIT(BDWIEN,0))

 +12      ;created by user

                           SET BDWUSER=$PIECE(BDWREC,U,23)

 +13      ;screen out postmaster for MFI sites

                           IF BDWUSER

                               IF BDWUSER=.5

                                   QUIT

 +14                       SET BDWREC1=$GET(^AUPNVSIT(BDWIEN,11))

 +15      ;visit creation date

                           SET BDWVCDT=$PIECE(BDWREC,U,2)

 +16      ;visit last update

                           SET BDWVEDT=$PIECE(BDWREC,U,13)

 +17                       IF 'BDWVCDT

                               QUIT

 +18                       IF 'BDWVEDT

                               QUIT

 +19      ;visit deleted

                           IF $PIECE(BDWREC,U,11)

                               QUIT

 +20      ;already exported

                           IF $PIECE(BDWREC1,U,6)

                               QUIT

 +21      ;xref already set

                           IF $DATA(^AUPNVSIT("ADWO",BDWVCDT,BDWIEN))

                               QUIT

 +22      ;xref already set

                           IF $DATA(^AUPNVSIT("ADWO",BDWVEDT,BDWIEN))

                               QUIT

 +23      ;N BDWFDA,BDWIENS,BDWERR

 +24      ;S BDWIENS=BDWIEN_","

 +25      ;S BDWFDA(9000010,BDWIENS,.13)=DT

 +26      ;flag to tell trigger not to fire

                           SET BDWRXP=1

 +27      ;D FILE^DIE("K","BDWFDA","BDWERR(1)")

 +28                       DO ^XBFMK

                           SET DIE="^AUPNVSIT("

                           SET DA=BDWIEN

                           SET DR=".13////"_DT

                           DO ^DIE

                           KILL DIE,DA,DR

 +29                       KILL BDWRXP

                       End DoDot:2

               End DoDot:1

 +30       QUIT

 +31      ;

EOJ       ;-- end of job

 +1        DO EN^XBVK("BDW")

 +2        KILL DIR

 +3        DO ^XBFMK

 +4        QUIT

 +5       ;

ASK       ;-- ask the dates for the run

 +1        NEW BDWFY,BDW3FY

 +2       ;get fiscal year

           SET BDWFY=$$FY(DT)

 +3       ; get begin date for last 3 full fys per dr. stan griffith

           SET BDW3FY=($EXTRACT(BDWFY,1,3)-3)_"0930.9999"

 +4       ;earliest date for reader call

           SET BDWFD=$$FMADD^XLFDT($PIECE(BDW3FY,"."),1)

 +5        WRITE !!,"This option can be used to flag visits for export "

 +6        WRITE !,"that have not previously been exported to the National Data Warehouse.",!

 +7        WRITE !,"You will be asked to enter a beginning and ending date.  The system will"

 +8        WRITE !,"review all visits in that date range and if the visit has never been"

 +9        WRITE !,"exported to the NDW it will flag it for export on the next export."

 +10       WRITE !!,"The earliest date you can enter for this option is ",$$FMTE^XLFDT(BDWFD),".",!!

 +11      ;S %DT="AEP",%DT(0)=BDW3FY,%DT("A")="Enter Begin Date: "

 +12      ;D ^%DT

 +13      ;I Y<0 K BDWBG,%DT

 +14      ;S BDWBG=+Y_.9999

 +15      ;S %DT="AE",%DT(0)="-NOW",%DT("A")="Enter End Date: "

 +16      ;D ^%DT

 +17      ;I Y<0 K BDWBG,%DT

 +18      ;S BDWED=+Y_.9999

 +19      ;K %DT

BD        ;get beginning date

 +1        SET (BDWBG,BDWED)=""

 +2        SET DIR(0)="D^"_BDWFD_":"_DT_":EP"

           SET DIR("A")="Enter Beginning Date"

           SET DIR("?")="Enter the beginning visit date.  It must be after "_$$FMTE^XLFDT(BDWFD)

 +3        DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               QUIT

 +5        SET BDWBG=Y

ED        ;

 +1        SET DIR(0)="DA^"_BDWBG_":"_DT_":EP"

           SET DIR("A")="Enter Ending Date:  "

           DO ^DIR

           KILL DIR,DA

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               QUIT

 +3        IF Y<BDWBG

               WRITE !,"Ending date must be greater than or equal to beginning date!"

               GOTO ED

 +4        SET BDWED=Y

 +5        QUIT

 +6       ;

INTER     ;-- interactive run

 +1        SET BDWINT=1

 +2        DO ASK

 +3        IF '$GET(BDWBG)!('$GET(BDWED))

               WRITE !!,"Beginning and ending dates not selected.",!

               DO PAUSE

               DO EOJ

               QUIT

 +4        DO LOOK(BDWBG,BDWED)

 +5        DO EOJ

 +6        QUIT

 +7       ;

PAUSE     ;

 +1        KILL DIR

           SET DIR(0)="E"

           SET DIR("A")="Press enter:  "

           DO ^DIR

           KILL DIR

 +2        QUIT

BDWRXP.m