RCXVRMV.m

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 ---RCXVRMV   978     printed  Apr 09, 2024@20:44:31                                                                                                                                                                                                      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