PRCAI150.m

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 ---PRCAI150   343     printed  Apr 09, 2024@20:47:35                                                                                                                                                                                                     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