- 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 ---[H[J[2J[HPRCAI149 488 printed Feb 18, 2025@23:06:20 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