source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEMPRG.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: 875 bytes
Line 
1IBCEMPRG ;ALB/JEH - Purge Status Messages ;25-apr-01
2 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;This routine will run as part of the EDI nightly background job.
5 ;It will purge status messages in a Final Reveiw Status from
6 ;file 361. If the field, Days to Wait to Purge Msgs(#8.02),
7 ;of the IB Site Parameters file (#350.9) has been populated,
8 ;status messages with a final review date prior to the # days to wait
9 ;to purge msgs will be deleted.
10 ;
11EN ; -- main entry point for purging status messages in final review status
12 N IBDAYS,IBDT,IBDELDT,DIK,DA,X
13 S IBDAYS=$P($G(^IBE(350.9,1,8)),U,2)
14 Q:'IBDAYS
15 S X1=DT,X2=-IBDAYS D C^%DTC S IBDELDT=X
16 S DIK="^IBM(361,"
17 S IBDT=0 F S IBDT=$O(^IBM(361,"AFR",IBDT)) Q:'IBDT!(IBDT>IBDELDT) S DA=0 F S DA=$O(^IBM(361,"AFR",IBDT,DA)) Q:'DA D ^DIK
18 Q
19 ;
Note: See TracBrowser for help on using the repository browser.