source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEPTU.m@ 1757

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 
1IBCEPTU ;ALB/TMK-TEST TRANSMIT CLAIMS UTILITIES ;25-JAN-2005
2 ;;2.0;INTEGRATED BILLING;**296**;21-MAR-94
3 ;
4PURGE ; 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 ;
12LASTDT(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.