PRCAI149.m

PRCAI149 ;WISC/RFJ-post init patch 149 ; 1 Feb 00

 ;;4.5;Accounts Receivable;**149**;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

 ;

START ;  start pre init

 ;  remove the comment field from the receipt file so the c cross

 ;  reference will be deleted.  the field will be reinstalled with

 ;  the kids build

 N %,DA,DIC,DIK,X,Y

 S DIK="^DD(344.1,",DA=1,DA(1)=344.1

 D ^DIK

 ;

 ;  kill cross reference data

 K ^RC(344.1,"C")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAI149   488     printed  Apr 09, 2024@20:49:44                                                                                                                                                                                                     Page 2

PRCAI149  ;WISC/RFJ-post init patch 149 ; 1 Feb 00

 +1       ;;4.5;Accounts Receivable;**149**;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 comment field from the receipt file so the c cross

 +2       ;  reference will be deleted.  the field will be reinstalled with

 +3       ;  the kids build

 +4        NEW %,DA,DIC,DIK,X,Y

 +5        SET DIK="^DD(344.1,"

           SET DA=1

           SET DA(1)=344.1

 +6        DO ^DIK

 +7       ;

 +8       ;  kill cross reference data

 +9        KILL ^RC(344.1,"C")

 +10       QUIT