Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
657 bytes
|
Rev | Line | |
---|
[628] | 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.