Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
657 bytes
|
Line | |
---|
1 | IBCEPTU ;ALB/TMK-TEST TRANSMIT CLAIMS UTILITIES ;25-JAN-2005
|
---|
2 | ;;2.0;INTEGRATED BILLING;**296**;21-MAR-94
|
---|
3 | ;
|
---|
4 | PURGE ; Purge test claim transmit records over 60 days old
|
---|
5 | N IBDAYS,IBDT,IBDELDT,DIK,DA,X
|
---|
6 | S IBDAYS=60
|
---|
7 | S X1=DT,X2=-IBDAYS D C^%DTC S IBDELDT=X
|
---|
8 | S DIK="^IBM(361.4,"
|
---|
9 | S IBDT=0 F S IBDT=$O(^IBM(361.4,"ALT",IBDT)) Q:'IBDT!(IBDT>IBDELDT) S DA=0 F S DA=$O(^IBM(361.4,"ALT",IBDT,DA)) Q:'DA D ^DIK
|
---|
10 | Q
|
---|
11 | ;
|
---|
12 | LASTDT(DA) ; Get last txmt dt file 361.4 for xref
|
---|
13 | ; DA = array of iens from Fileman
|
---|
14 | N Z,Z0,X
|
---|
15 | S X=""
|
---|
16 | S Z="" F S Z=$O(^IBM(361.4,DA(1),1,"ALTD",Z),-1) Q:Z=""!X S Z0=0 F S Z0=$O(^IBM(361.4,DA(1),1,"ALTD",Z,Z0)) Q:'Z0 I Z0'=DA S X=Z Q
|
---|
17 | Q X
|
---|
18 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.