RCXVRMV ;DAOU/ALA-AR Data Extract Remove ;23-OCT-2003
;;4.5;Accounts Receivable;**201**;Mar 20, 1995
;
;**Program Description**
;
;WARNING - This program should only be run by direction
;of the NVS team. It is meant to cleanup possible bill
;transmissions to the ARC which were generated by a re-index
;of one of the following files; 399, 430, or 433. A
;re-index has serious consequences for a site's billing
;process and should only be done after serious consideration
;and direction from the IB or AR programmers.
;
EN ; Entry point
S %DT="AEX",%DT("A")="Enter DATE re-index started: "
D ^%DT
I Y<1 G EXIT
S RCXVSDT=Y
;
S %DT("A")="Enter DATE re-index ended: "
D ^%DT
I Y<1 G EXIT
S RCXVEDT=Y
;
S DIK="^RCXV("
S RCXVDT=RCXVSDT-.1
F S RCXVDT=$O(^RCXV("C",RCXVDT)) Q:RCXVDT=""!(RCXVDT>RCXVEDT) D
. S DA=0
. F S DA=$O(^RCXV("C",RCXVDT,DA)) Q:DA="" D ^DIK W "."
;
EXIT K %DT,Y,RCXVSDT,RCXVEDT,X,DA,RCXVDT,DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXVRMV 978 printed Nov 22, 2024@16:59:59 Page 2
RCXVRMV ;DAOU/ALA-AR Data Extract Remove ;23-OCT-2003
+1 ;;4.5;Accounts Receivable;**201**;Mar 20, 1995
+2 ;
+3 ;**Program Description**
+4 ;
+5 ;WARNING - This program should only be run by direction
+6 ;of the NVS team. It is meant to cleanup possible bill
+7 ;transmissions to the ARC which were generated by a re-index
+8 ;of one of the following files; 399, 430, or 433. A
+9 ;re-index has serious consequences for a site's billing
+10 ;process and should only be done after serious consideration
+11 ;and direction from the IB or AR programmers.
+12 ;
EN ; Entry point
+1 SET %DT="AEX"
SET %DT("A")="Enter DATE re-index started: "
+2 DO ^%DT
+3 IF Y<1
GOTO EXIT
+4 SET RCXVSDT=Y
+5 ;
+6 SET %DT("A")="Enter DATE re-index ended: "
+7 DO ^%DT
+8 IF Y<1
GOTO EXIT
+9 SET RCXVEDT=Y
+10 ;
+11 SET DIK="^RCXV("
+12 SET RCXVDT=RCXVSDT-.1
+13 FOR
SET RCXVDT=$ORDER(^RCXV("C",RCXVDT))
if RCXVDT=""!(RCXVDT>RCXVEDT)
QUIT
Begin DoDot:1
+14 SET DA=0
+15 FOR
SET DA=$ORDER(^RCXV("C",RCXVDT,DA))
if DA=""
QUIT
DO ^DIK
WRITE "."
End DoDot:1
+16 ;
EXIT KILL %DT,Y,RCXVSDT,RCXVEDT,X,DA,RCXVDT,DIK
+1 QUIT
