source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYPRG.m@ 724

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

initial load of WorldVistAEHR

File size: 551 bytes
Line 
1LBRYPRG ;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
10NT 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.