RCXVP240.m

RCXVP240 ;TJK/Albany OI@Altoona,Pa.-AR Data Extraction Post-Install Program ;23-JUL-03

 ;;4.5;Accounts Receivable;**240**;Mar 20, 1995

 ;

 ;** Program Description **

 ;  This program will be run on installation of patch

 ;  PRCA*4.5*240 for CBO Active Bills to ARC Data Extractions

 ;

EN ; Entry Point

 ;  Set up the active records into the AR Queue File (#348.4)

 N RCXVDSC,RCXVFL,ZTDESC,ZTRTN,ZTIO,ZTDTH

 S RCXVDSC="CBO ACTIVE BILLS"

 S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)

 I 'RCXVFL D

 . S ZTDESC=RCXVDSC,ZTRTN="ACT^RCXVTSK",ZTIO=""

 . S ZTDTH=$$DT^XLFDT()_".20"

 . D ^%ZTLOAD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCXVP240   596     printed  Apr 09, 2024@20:48:53                                                                                                                                                                                                     Page 2

RCXVP240  ;TJK/Albany OI@Altoona,Pa.-AR Data Extraction Post-Install Program ;23-JUL-03

 +1       ;;4.5;Accounts Receivable;**240**;Mar 20, 1995

 +2       ;

 +3       ;** Program Description **

 +4       ;  This program will be run on installation of patch

 +5       ;  PRCA*4.5*240 for CBO Active Bills to ARC Data Extractions

 +6       ;

EN        ; Entry Point

 +1       ;  Set up the active records into the AR Queue File (#348.4)

 +2        NEW RCXVDSC,RCXVFL,ZTDESC,ZTRTN,ZTIO,ZTDTH

 +3        SET RCXVDSC="CBO ACTIVE BILLS"

 +4        SET RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)

 +5        IF 'RCXVFL

               Begin DoDot:1

 +6                SET ZTDESC=RCXVDSC

                   SET ZTRTN="ACT^RCXVTSK"

                   SET ZTIO=""

 +7                SET ZTDTH=$$DT^XLFDT()_".20"

 +8                DO ^%ZTLOAD

               End DoDot:1

 +9        QUIT