| [613] | 1 | XUAPURGE ;SF/RWF - PURGE %ZUA GLOBAL FILES. ;1/22/93 14:37 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | PMPURGE ;Programmer mode purge
|
|---|
| 4 | D BEG G END:'$D(EDATE)
|
|---|
| 5 | S ZTIO="",ZTRTN="PMPURG^ZUA",ZTDESC="Purge Programmer Mode Entry Log",ZTUCI=^%ZOSF("MGR") F G="BDATE","EDATE" S ZTSAVE(G)=""
|
|---|
| 6 | D ^%ZTLOAD G OKEND
|
|---|
| 7 | OKEND W:$D(ZTSK) !,"Request queued"
|
|---|
| 8 | END K %DT,BDATE,EDATE,ZTIO,ZTRTN,ZTUCI,ZTSAVE,ZTSK Q
|
|---|
| 9 | BEG W !!,"You will be asked for a date range to purge, Begin to End"
|
|---|
| 10 | S %DT("A")="PURGE BEGIN DATE: ",%DT="AETX" D ^%DT S BDATE=Y G:Y<1 END S %DT(0)=BDATE,%DT("A")="PURGE END DATE: " D ^%DT S EDATE=Y G:Y<1 END
|
|---|
| 11 | Q
|
|---|
| 12 | FAPURGE ;Failed access purge
|
|---|
| 13 | D BEG G:'$D(EDATE) END
|
|---|
| 14 | S ZTIO="",ZTRTN="PURGE^ZUA",ZTDESC="Purge User Failed Access Attempts",ZTUCI=^%ZOSF("MGR") F G="BDATE","EDATE" S ZTSAVE(G)=""
|
|---|
| 15 | D ^%ZTLOAD
|
|---|
| 16 | G OKEND
|
|---|
| 17 | OPTPURGE ;Option audit purge
|
|---|
| 18 | D BEG G:'$D(EDATE) END
|
|---|
| 19 | S ZTIO="",ZTRTN="PURGE^XUAPURGE",ZTDESC="Purge Menu Option Audit Entries" F G="BDATE","EDATE" S ZTSAVE(G)=""
|
|---|
| 20 | D ^%ZTLOAD K ZTIO,ZTRTN,ZTDESC,ZTUCI,ZTSAVE
|
|---|
| 21 | G OKEND
|
|---|
| 22 | PURGE F REC=BDATE-.000001:0 S REC=$O(^XUSEC(19,REC)) Q:REC'>0!(REC>EDATE) S DIK="^XUSEC(19,",DA=REC D ^DIK K DA
|
|---|
| 23 | G END
|
|---|
| 24 | PRFAA ;Print faild access log with text
|
|---|
| 25 | I '$D(^XUSEC("XUMGR",DUZ)) S X="" Q
|
|---|
| 26 | S X2=$P(D0,".") D DE^XUSHSHP
|
|---|
| 27 | Q
|
|---|
