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 ---[H[J[2J[HRCXVP240 596 printed Nov 22, 2024@16:59:58 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
