source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAI150.m

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

initial load of FOIAVistA 6/30/08 version

File size: 330 bytes
Line 
1PRCAI150 ;WISC/RFJ-post init patch 150 ; 1 Feb 00
2 ;;4.5;Accounts Receivable;**150**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7START ; start pre init
8 ; remove the checksum field from the auto payment file
9 ;
10 N %,DA,DIC,DIK,X,Y
11 S DIK="^DD(344.2,",DA=.06,DA(1)=344.2
12 D ^DIK
13 Q
Note: See TracBrowser for help on using the repository browser.