|
Last change
on this file since 642 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
551 bytes
|
| 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.
