|
Last change
on this file since 1499 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
875 bytes
|
| Line | |
|---|
| 1 | IBCEMPRG ;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 | ;
|
|---|
| 11 | EN ; -- 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.
