16 lines
551 B
Mathematica
16 lines
551 B
Mathematica
LBRYPRG ;SSI/ALA-PURGE COMPLETED TRANSACTIONS ;[ 05/23/97 12:13 PM ]
|
|
;;2.5;Library;**2**;Mar 11, 1996
|
|
; This is to purge transactions after they have been processed
|
|
; and/or transmitted.
|
|
S X="T-1M" D ^%DT S LBRDDT=Y
|
|
S DIK="^LBRY(682.1,"
|
|
F LBRSTA="P","T" S LBRYN="" D NT
|
|
K LBRSTA,LBRYN,DIK,DA,LBRDDT,LBRTYP
|
|
Q
|
|
NT S LBRYN=$O(^LBRY(682.1,"AC",LBRSTA,LBRYN)) Q:LBRYN=""
|
|
I $P(^LBRY(682.1,LBRYN,0),U,6)>LBRDDT G NT
|
|
S LBRTYP=$P(^LBRY(682.1,LBRYN,0),U,2)
|
|
I LBRTYP="NTL"!(LBRTYP="UTL"),^XMB("NETNAME")["FORUM.VA.GOV" G NT
|
|
S DA=LBRYN D ^DIK
|
|
G NT
|