- PRCAI150 ;WISC/RFJ-post init patch 150 ; 1 Feb 00
- ;;4.5;Accounts Receivable;**150**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- Q
- ;
- ;
- START ; start pre init
- ; remove the checksum field from the auto payment file
- ;
- N %,DA,DIC,DIK,X,Y
- S DIK="^DD(344.2,",DA=.06,DA(1)=344.2
- D ^DIK
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAI150 343 printed Feb 18, 2025@23:06:21 Page 2
- PRCAI150 ;WISC/RFJ-post init patch 150 ; 1 Feb 00
- +1 ;;4.5;Accounts Receivable;**150**;Mar 20, 1995
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 QUIT
- +4 ;
- +5 ;
- START ; start pre init
- +1 ; remove the checksum field from the auto payment file
- +2 ;
- +3 NEW %,DA,DIC,DIK,X,Y
- +4 SET DIK="^DD(344.2,"
- SET DA=.06
- SET DA(1)=344.2
- +5 DO ^DIK
- +6 QUIT