- ADEFLEX ; IHS/HQT/MJL - EXTRACT F DATA PT 1 ;10:16 AM [ 03/24/1999 9:04 AM ]
- ;;6.0;ADE;;APRIL 1999
- W !!,"Fluoridation Surveillance Data Extraction for Transmission to Area HQ",!!
- INIT D ^XBKVAR
- I '$D(^AUTTSITE(1,0)) W "RPMS SITE File not properly initialized. Contact Site Manager." G QUIT
- CTRL ;------->IF NO PREVIOUS EXTRACTION GO SUEX0
- I '$D(^ADELOG("LAST","F")) S ADEXDT=DT G ^ADEFLEX0
- ;------->GET INFO ON LAST EXTRACTION
- S ADELAST=^ADELOG("LAST","F"),ADESTAT=$P(ADELAST,U,2),ADELAST=$P(ADELAST,U) S Y=ADELAST X ^DD("DD") S ADELDAY=Y W "The last data extraction was performed on ",ADELDAY
- ;------->LAST EXTRACTION ABENDED - FORCE RE-EXRACTION
- I ADESTAT["AB" W " but it ended abnormally." G LOG1
- ;------->LAST EXTRACTION ENDED OK
- W " and it finished normally."
- ;------->IF LAST EXTRACT DONE BEFORE TODAY - NEW OR DUPE EXTRACT
- G:ADELAST'=DT LOG3
- ;------->LAST EXTRACT WAS EARLIER TODAY - CHECK LOG FILE INTEGRITY
- I '+$P(^ADELOG("LAST","F"),U,3) W !,"LOG FILE CORRUPTED!" G QUIT
- I '$D(^ADELOG($P(^ADELOG("LAST","F"),U,3),0)) W !,"LOG FILE CORRUPTED!" G QUIT
- S ADEXDA=$P(^ADELOG("LAST","F"),U,3)
- ;------->FORCE RE-EXTRACT IF LOG-FILE INACCURATE
- G:$P(^ADELOG(ADEXDA,0),U,5)'="F" LOG1
- ;------->OTW REPEAT OR DUPE EXTRACT
- G LOG2
- END ;
- LOG1 R !!,"Do you want to reset that day's extract flags",!,"and run a fresh extraction //N ",X:DTIME G:('$T)!(X["^") QUIT S X=$E(X_"N")
- I X["?" W !!,"Answer 'Yes' to delete all extract flags set on ",ADELDAY," and proceed",!,"with a fresh extraction of all unflagged records. You will be prompted"
- I X["?" W !,"for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything." G LOG1
- G:"Yy"'[X QUIT S ADEFDV=ADELAST,ADEXDT=DT W !,"Please wait... " D RESET2^ADEFFLG K ADEFDV
- S ADERERUN=1
- S ADEXDA=$P(^ADELOG("LAST","F"),U,3)
- G ^ADEFLEX0
- LOG2 R !!,"Do you want to repeat an extraction run earlier today? N// ",X:DTIME G:('$T)!(X["^") QUIT S X=$E(X_"N")
- I X["?" W !!,"Answer 'Yes' to delete all extract flags set earlier today",!,"and proceed with a fresh extraction of unflagged records. You will be"
- I X["?" W !,"prompted for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything." G LOG2
- I "Yy"'[X G LOG3
- S ADERERUN=1,ADEFDV=ADELAST,ADEXDT=DT W !,"Please wait... " D RESET2^ADEFFLG G ^ADEFLEX0
- LOG3 R !!,"Do you want to DUPLICATE an extraction run previously? N// ",X:DTIME G:('$T)!(X["^") QUIT S X=$E(X_"N")
- I X["?" W !!,"Answer 'Yes' to duplicate a previous extraction. No extraction flags will be",!,"set or reset. You will be asked to select a date from the Data Extraction Log",!,"File. Only records extracted on that day will be stored." G LOG3
- I "Yy"'[X G LOG6
- LOG4 S DIC="^ADELOG(",DIC(0)="AEZQ",DIC("S")="I $P(^ADELOG(Y,0),U,5)=""F""",DIC("A")="Select Extraction Log Date: ",%DT="AEQP" D ^DIC K DIC,%DT I Y=-1 W " -- Data extraction cancelled" G QUIT
- S ADEXDA=$P(Y,U),ADEXNOD=^ADELOG(ADEXDA,0),ADEXDT=$P(ADEXNOD,U),ADEB=$P(ADEXNOD,U,2),ADEND=$P(ADEXNOD,U,3),ADEREX=1
- W !!,"Ready to repeat extraction performed originally on ",Y(0,0),".",!,"The original record count was ",$S($P(ADEXNOD,U,4)]"":$P(ADEXNOD,U,4),1:0),", but this may be different",!,"today if records have been modified or deleted."
- LOG5 R !!,"Are you sure everything's OK? NO// ",X:DTIME G:'$T QUIT S X=$E(X_"N")
- I X["?" W !,"Answer 'Y' or 'N'" G LOG5
- I "Yy"'[X W " -- Data extraction cancelled" G QUIT
- G ^ADEFLEX0
- LOG6 G:ADELAST=DT QUIT R !,"Do you want to run a new data extraction today? N//",X:DTIME G:'$T QUIT G:X["^" LOG3 S X=$E(X_"N")
- I X["?" W !!,"Answer 'Y' to extract data from all fluoride records not already flagged",!,"as extracted. You will be asked for a range of dates to extract from.",!,"Answer 'N' to quit without changing anything.",! G LOG6
- I "Yy"'[X W " -- Data extraction cancelled" G QUIT
- S ADEXDT=DT
- G ^ADEFLEX0
- QUIT K ADELAST,ADELDAY,ADESTAT,ADEXDT,ADEXDA,ADEB,ADEND,ADEREX,ADEXNOD,ADERERUN Q
- ADEFLEX ; IHS/HQT/MJL - EXTRACT F DATA PT 1 ;10:16 AM [ 03/24/1999 9:04 AM ]
- +1 ;;6.0;ADE;;APRIL 1999
- +2 WRITE !!,"Fluoridation Surveillance Data Extraction for Transmission to Area HQ",!!
- INIT DO ^XBKVAR
- +1 IF '$DATA(^AUTTSITE(1,0))
- WRITE "RPMS SITE File not properly initialized. Contact Site Manager."
- GOTO QUIT
- CTRL ;------->IF NO PREVIOUS EXTRACTION GO SUEX0
- +1 IF '$DATA(^ADELOG("LAST","F"))
- SET ADEXDT=DT
- GOTO ^ADEFLEX0
- +2 ;------->GET INFO ON LAST EXTRACTION
- +3 SET ADELAST=^ADELOG("LAST","F")
- SET ADESTAT=$PIECE(ADELAST,U,2)
- SET ADELAST=$PIECE(ADELAST,U)
- SET Y=ADELAST
- XECUTE ^DD("DD")
- SET ADELDAY=Y
- WRITE "The last data extraction was performed on ",ADELDAY
- +4 ;------->LAST EXTRACTION ABENDED - FORCE RE-EXRACTION
- +5 IF ADESTAT["AB"
- WRITE " but it ended abnormally."
- GOTO LOG1
- +6 ;------->LAST EXTRACTION ENDED OK
- +7 WRITE " and it finished normally."
- +8 ;------->IF LAST EXTRACT DONE BEFORE TODAY - NEW OR DUPE EXTRACT
- +9 IF ADELAST'=DT
- GOTO LOG3
- +10 ;------->LAST EXTRACT WAS EARLIER TODAY - CHECK LOG FILE INTEGRITY
- +11 IF '+$PIECE(^ADELOG("LAST","F"),U,3)
- WRITE !,"LOG FILE CORRUPTED!"
- GOTO QUIT
- +12 IF '$DATA(^ADELOG($PIECE(^ADELOG("LAST","F"),U,3),0))
- WRITE !,"LOG FILE CORRUPTED!"
- GOTO QUIT
- +13 SET ADEXDA=$PIECE(^ADELOG("LAST","F"),U,3)
- +14 ;------->FORCE RE-EXTRACT IF LOG-FILE INACCURATE
- +15 IF $PIECE(^ADELOG(ADEXDA,0),U,5)'="F"
- GOTO LOG1
- +16 ;------->OTW REPEAT OR DUPE EXTRACT
- +17 GOTO LOG2
- END ;
- LOG1 READ !!,"Do you want to reset that day's extract flags",!,"and run a fresh extraction //N ",X:DTIME
- IF ('$TEST)!(X["^")
- GOTO QUIT
- SET X=$EXTRACT(X_"N")
- +1 IF X["?"
- WRITE !!,"Answer 'Yes' to delete all extract flags set on ",ADELDAY," and proceed",!,"with a fresh extraction of all unflagged records. You will be prompted"
- +2 IF X["?"
- WRITE !,"for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything."
- GOTO LOG1
- +3 IF "Yy"'[X
- GOTO QUIT
- SET ADEFDV=ADELAST
- SET ADEXDT=DT
- WRITE !,"Please wait... "
- DO RESET2^ADEFFLG
- KILL ADEFDV
- +4 SET ADERERUN=1
- +5 SET ADEXDA=$PIECE(^ADELOG("LAST","F"),U,3)
- +6 GOTO ^ADEFLEX0
- LOG2 READ !!,"Do you want to repeat an extraction run earlier today? N// ",X:DTIME
- IF ('$TEST)!(X["^")
- GOTO QUIT
- SET X=$EXTRACT(X_"N")
- +1 IF X["?"
- WRITE !!,"Answer 'Yes' to delete all extract flags set earlier today",!,"and proceed with a fresh extraction of unflagged records. You will be"
- +2 IF X["?"
- WRITE !,"prompted for a Beginning Date and an Ending date.",!,"Answer 'N' to quit without changing anything."
- GOTO LOG2
- +3 IF "Yy"'[X
- GOTO LOG3
- +4 SET ADERERUN=1
- SET ADEFDV=ADELAST
- SET ADEXDT=DT
- WRITE !,"Please wait... "
- DO RESET2^ADEFFLG
- GOTO ^ADEFLEX0
- LOG3 READ !!,"Do you want to DUPLICATE an extraction run previously? N// ",X:DTIME
- IF ('$TEST)!(X["^")
- GOTO QUIT
- SET X=$EXTRACT(X_"N")
- +1 IF X["?"
- WRITE !!,"Answer 'Yes' to duplicate a previous extraction. No extraction flags will be",!,"set or reset. You will be asked to select a date from the Data Extraction Log",!,"File. Only records extracted on that day will be stored."
- GOTO LOG3
- +2 IF "Yy"'[X
- GOTO LOG6
- LOG4 SET DIC="^ADELOG("
- SET DIC(0)="AEZQ"
- SET DIC("S")="I $P(^ADELOG(Y,0),U,5)=""F"""
- SET DIC("A")="Select Extraction Log Date: "
- SET %DT="AEQP"
- DO ^DIC
- KILL DIC,%DT
- IF Y=-1
- WRITE " -- Data extraction cancelled"
- GOTO QUIT
- +1 SET ADEXDA=$PIECE(Y,U)
- SET ADEXNOD=^ADELOG(ADEXDA,0)
- SET ADEXDT=$PIECE(ADEXNOD,U)
- SET ADEB=$PIECE(ADEXNOD,U,2)
- SET ADEND=$PIECE(ADEXNOD,U,3)
- SET ADEREX=1
- +2 WRITE !!,"Ready to repeat extraction performed originally on ",Y(0,0),".",!,"The original record count was ",$SELECT($PIECE(ADEXNOD,U,4)]"":$PIECE(ADEXNOD,U,4),1:0),", but this may be different",!,"today if records have been modified or deleted
- ."
- LOG5 READ !!,"Are you sure everything's OK? NO// ",X:DTIME
- IF '$TEST
- GOTO QUIT
- SET X=$EXTRACT(X_"N")
- +1 IF X["?"
- WRITE !,"Answer 'Y' or 'N'"
- GOTO LOG5
- +2 IF "Yy"'[X
- WRITE " -- Data extraction cancelled"
- GOTO QUIT
- +3 GOTO ^ADEFLEX0
- LOG6 IF ADELAST=DT
- GOTO QUIT
- READ !,"Do you want to run a new data extraction today? N//",X:DTIME
- IF '$TEST
- GOTO QUIT
- IF X["^"
- GOTO LOG3
- SET X=$EXTRACT(X_"N")
- +1 IF X["?"
- WRITE !!,"Answer 'Y' to extract data from all fluoride records not already flagged",!,"as extracted. You will be asked for a range of dates to extract from.",!,"Answer 'N' to quit without changing anything.",!
- GOTO LOG6
- +2 IF "Yy"'[X
- WRITE " -- Data extraction cancelled"
- GOTO QUIT
- +3 SET ADEXDT=DT
- +4 GOTO ^ADEFLEX0
- QUIT KILL ADELAST,ADELDAY,ADESTAT,ADEXDT,ADEXDA,ADEB,ADEND,ADEREX,ADEXNOD,ADERERUN
- QUIT
