source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUAPURGE.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XUAPURGE ;SF/RWF - PURGE %ZUA GLOBAL FILES. ;1/22/93 14:37 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3PMPURGE ;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
7OKEND W:$D(ZTSK) !,"Request queued"
8END K %DT,BDATE,EDATE,ZTIO,ZTRTN,ZTUCI,ZTSAVE,ZTSK Q
9BEG 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
12FAPURGE ;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
17OPTPURGE ;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
22PURGE 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
24PRFAA ;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
Note: See TracBrowser for help on using the repository browser.