source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVRMV.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 946 bytes
Line 
1RCXVRMV ;DAOU/ALA-AR Data Extract Remove ;23-OCT-2003
2 ;;4.5;Accounts Receivable;**201**;Mar 20, 1995
3 ;
4 ;**Program Description**
5 ;
6 ;WARNING - This program should only be run by direction
7 ;of the NVS team. It is meant to cleanup possible bill
8 ;transmissions to the ARC which were generated by a re-index
9 ;of one of the following files; 399, 430, or 433. A
10 ;re-index has serious consequences for a site's billing
11 ;process and should only be done after serious consideration
12 ;and direction from the IB or AR programmers.
13 ;
14EN ; Entry point
15 S %DT="AEX",%DT("A")="Enter DATE re-index started: "
16 D ^%DT
17 I Y<1 G EXIT
18 S RCXVSDT=Y
19 ;
20 S %DT("A")="Enter DATE re-index ended: "
21 D ^%DT
22 I Y<1 G EXIT
23 S RCXVEDT=Y
24 ;
25 S DIK="^RCXV("
26 S RCXVDT=RCXVSDT-.1
27 F S RCXVDT=$O(^RCXV("C",RCXVDT)) Q:RCXVDT=""!(RCXVDT>RCXVEDT) D
28 . S DA=0
29 . F S DA=$O(^RCXV("C",RCXVDT,DA)) Q:DA="" D ^DIK W "."
30 ;
31EXIT K %DT,Y,RCXVSDT,RCXVEDT,X,DA,RCXVDT,DIK
32 Q
Note: See TracBrowser for help on using the repository browser.