Line | |
---|
1 | LBRYPRG ;SSI/ALA-PURGE COMPLETED TRANSACTIONS ;[ 05/23/97 12:13 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | ; This is to purge transactions after they have been processed
|
---|
4 | ; and/or transmitted.
|
---|
5 | S X="T-1M" D ^%DT S LBRDDT=Y
|
---|
6 | S DIK="^LBRY(682.1,"
|
---|
7 | F LBRSTA="P","T" S LBRYN="" D NT
|
---|
8 | K LBRSTA,LBRYN,DIK,DA,LBRDDT,LBRTYP
|
---|
9 | Q
|
---|
10 | NT S LBRYN=$O(^LBRY(682.1,"AC",LBRSTA,LBRYN)) Q:LBRYN=""
|
---|
11 | I $P(^LBRY(682.1,LBRYN,0),U,6)>LBRDDT G NT
|
---|
12 | S LBRTYP=$P(^LBRY(682.1,LBRYN,0),U,2)
|
---|
13 | I LBRTYP="NTL"!(LBRTYP="UTL"),^XMB("NETNAME")["FORUM.VA.GOV" G NT
|
---|
14 | S DA=LBRYN D ^DIK
|
---|
15 | G NT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.