- APCPPURG ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE PURGE VISIT POINTERS AUGUST 14, 1992 ; [ 04/03/98 08:39 AM ]
- ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;;APR 03, 1998
- ;
- D INIT
- I APCP("QFLG") D EOJ W !!,"Bye",!! Q
- D PROCESS
- D EOJ
- W !!,"DONE",!!
- Q
- ;
- PROCESS ;
- S APCP("LOG")=APCP("OLDEST LOG")-1 F S APCP("LOG")=$O(^APCPLOG(APCP("LOG"))) Q:APCP("LOG")'=+APCP("LOG") D DELCHK Q:APCP("QFLG")
- Q
- DELCHK ;
- S X=^APCPLOG(APCP("LOG"),0),APCP("BEGIN DATE")=$P(X,U),APCP("END DATE")=$P(X,U,2),APCP("COUNT")=$P(X,U,6)
- S Y=APCP("BEGIN DATE") X ^DD("DD") S APCP("BEGIN DATE")=Y
- S Y=APCP("END DATE") X ^DD("DD") S APCP("END DATE")=Y
- S APCP("VISITS")=$P(^APCPLOG(APCP("LOG"),21,0),U,4)
- W !!,"Log entry ",APCP("LOG")," was for date range ",APCP("BEGIN DATE")," through ",APCP("END DATE"),!,"and generated ",APCP("COUNT")," transactions from ",APCP("VISITS")," visits."
- RDD ;
- S DIR(0)="Y",DIR("A")="Do you want to delete the VISIT pointers for this log entry",DIR("B")="N" K DA D ^DIR K DIR
- I Y K ^APCPLOG(APCP("LOG"),21),^APCPLOG(APCP("LOG"),51) W " Done" Q
- S APCP("QFLG")=1
- Q
- ;
- INIT ;
- K APCP
- I '$D(DUZ(2))#2 W !!,$C(7),$C(7),"SITE NOT SET!!!" S APCP("QFLG")=1 Q
- S APCP("COUNT")=0,APCP("QFLG")=0
- D CHKSITE^APCPDRI
- Q:APCP("QFLG")
- S (APCP("X"),APCP("LAST LOG"))=$P(^APCPLOG(0),U,3) F S APCP("X")=$O(^APCPLOG(APCP("X"))) Q:APCP("X")'=+APCP("X") S APCP("LAST LOG")=APCP("X")
- S APCP("OLDEST LOG")=APCP("LAST LOG") F APCP("X")=APCP("LAST LOG"):-1:1 I $D(^APCPLOG(APCP("X"))) Q:'$D(^APCPLOG(APCP("X"),21)) S APCP("OLDEST LOG")=APCP("X"),APCP("COUNT")=APCP("COUNT")+1
- I APCP("COUNT")=0 W !!,"No log entries with VISIT data." S APCP("QFLG")=1 Q
- W !!,"There ",$S(APCP("COUNT")>1:"are",1:"is")," ",APCP("COUNT")," generation",$S(APCP("COUNT")>1:"s ",1:" "),"with VISIT data."
- RD ;
- S DIR(0)="Y",DIR("A")="Do you want to continue",DIR("B")="N" K DA D ^DIR K DIR
- I $D(DIRUT)!('Y) S APCP("QFLG")=1
- Q
- ;
- CHKENTRY ; CHECK LOG ENTRY
- Q:'$D(^APCPLOG(APCP("X"),21))
- S:APCP("OLDEST LOG")="" APCP("OLDEST LOG")=APCP("X")
- S APCP("COUNT")=APCP("COUNT")+1
- Q
- ;
- EOJ ; EOJ CLEAN UP
- K APCP
- Q
- APCPPURG ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE PURGE VISIT POINTERS AUGUST 14, 1992 ; [ 04/03/98 08:39 AM ]
- +1 ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;;APR 03, 1998
- +2 ;
- +3 DO INIT
- +4 IF APCP("QFLG")
- DO EOJ
- WRITE !!,"Bye",!!
- QUIT
- +5 DO PROCESS
- +6 DO EOJ
- +7 WRITE !!,"DONE",!!
- +8 QUIT
- +9 ;
- PROCESS ;
- +1 SET APCP("LOG")=APCP("OLDEST LOG")-1
- FOR
- SET APCP("LOG")=$ORDER(^APCPLOG(APCP("LOG")))
- IF APCP("LOG")'=+APCP("LOG")
- QUIT
- DO DELCHK
- IF APCP("QFLG")
- QUIT
- +2 QUIT
- DELCHK ;
- +1 SET X=^APCPLOG(APCP("LOG"),0)
- SET APCP("BEGIN DATE")=$PIECE(X,U)
- SET APCP("END DATE")=$PIECE(X,U,2)
- SET APCP("COUNT")=$PIECE(X,U,6)
- +2 SET Y=APCP("BEGIN DATE")
- XECUTE ^DD("DD")
- SET APCP("BEGIN DATE")=Y
- +3 SET Y=APCP("END DATE")
- XECUTE ^DD("DD")
- SET APCP("END DATE")=Y
- +4 SET APCP("VISITS")=$PIECE(^APCPLOG(APCP("LOG"),21,0),U,4)
- +5 WRITE !!,"Log entry ",APCP("LOG")," was for date range ",APCP("BEGIN DATE")," through ",APCP("END DATE"),!,"and generated ",APCP("COUNT")," transactions from ",APCP("VISITS")," visits."
- RDD ;
- +1 SET DIR(0)="Y"
- SET DIR("A")="Do you want to delete the VISIT pointers for this log entry"
- SET DIR("B")="N"
- KILL DA
- DO ^DIR
- KILL DIR
- +2 IF Y
- KILL ^APCPLOG(APCP("LOG"),21),^APCPLOG(APCP("LOG"),51)
- WRITE " Done"
- QUIT
- +3 SET APCP("QFLG")=1
- +4 QUIT
- +5 ;
- INIT ;
- +1 KILL APCP
- +2 IF '$DATA(DUZ(2))#2
- WRITE !!,$CHAR(7),$CHAR(7),"SITE NOT SET!!!"
- SET APCP("QFLG")=1
- QUIT
- +3 SET APCP("COUNT")=0
- SET APCP("QFLG")=0
- +4 DO CHKSITE^APCPDRI
- +5 IF APCP("QFLG")
- QUIT
- +6 SET (APCP("X"),APCP("LAST LOG"))=$PIECE(^APCPLOG(0),U,3)
- FOR
- SET APCP("X")=$ORDER(^APCPLOG(APCP("X")))
- IF APCP("X")'=+APCP("X")
- QUIT
- SET APCP("LAST LOG")=APCP("X")
- +7 SET APCP("OLDEST LOG")=APCP("LAST LOG")
- FOR APCP("X")=APCP("LAST LOG"):-1:1
- IF $DATA(^APCPLOG(APCP("X")))
- IF '$DATA(^APCPLOG(APCP("X"),21))
- QUIT
- SET APCP("OLDEST LOG")=APCP("X")
- SET APCP("COUNT")=APCP("COUNT")+1
- +8 IF APCP("COUNT")=0
- WRITE !!,"No log entries with VISIT data."
- SET APCP("QFLG")=1
- QUIT
- +9 WRITE !!,"There ",$SELECT(APCP("COUNT")>1:"are",1:"is")," ",APCP("COUNT")," generation",$SELECT(APCP("COUNT")>1:"s ",1:" "),"with VISIT data."
- RD ;
- +1 SET DIR(0)="Y"
- SET DIR("A")="Do you want to continue"
- SET DIR("B")="N"
- KILL DA
- DO ^DIR
- KILL DIR
- +2 IF $DATA(DIRUT)!('Y)
- SET APCP("QFLG")=1
- +3 QUIT
- +4 ;
- CHKENTRY ; CHECK LOG ENTRY
- +1 IF '$DATA(^APCPLOG(APCP("X"),21))
- QUIT
- +2 IF APCP("OLDEST LOG")=""
- SET APCP("OLDEST LOG")=APCP("X")
- +3 SET APCP("COUNT")=APCP("COUNT")+1
- +4 QUIT
- +5 ;
- EOJ ; EOJ CLEAN UP
- +1 KILL APCP
- +2 QUIT
