source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVP240.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 579 bytes
Line 
1RCXVP240 ;TJK/Albany OI@Altoona,Pa.-AR Data Extraction Post-Install Program ;23-JUL-03
2 ;;4.5;Accounts Receivable;**240**;Mar 20, 1995
3 ;
4 ;** Program Description **
5 ; This program will be run on installation of patch
6 ; PRCA*4.5*240 for CBO Active Bills to ARC Data Extractions
7 ;
8EN ; Entry Point
9 ; Set up the active records into the AR Queue File (#348.4)
10 N RCXVDSC,RCXVFL,ZTDESC,ZTRTN,ZTIO,ZTDTH
11 S RCXVDSC="CBO ACTIVE BILLS"
12 S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
13 I 'RCXVFL D
14 . S ZTDESC=RCXVDSC,ZTRTN="ACT^RCXVTSK",ZTIO=""
15 . S ZTDTH=$$DT^XLFDT()_".20"
16 . D ^%ZTLOAD
17 Q
Note: See TracBrowser for help on using the repository browser.