Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: RCDPP283

RCDPP283.m

Go to the documentation of this file.

RCDPP283 ;ALB/TXH - PRCA*4.5*283 PRE-INIT

 ;;4.5;Accounts Receivable;**283**;Mar 20, 1995;Build 8

PRE ; Pre-init to delete field .03 from file 344.3

 ; the data is not deleted.

 N DIK,DA

 S DIK="^DD(344.3,",DA=.03,DA(1)=344.3

 D ^DIK

 K DIK,DA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPP283   272     printed  Nov 22, 2024@16:56:22                                                                                                                                                                                                     Page 2

RCDPP283  ;ALB/TXH - PRCA*4.5*283 PRE-INIT

 +1       ;;4.5;Accounts Receivable;**283**;Mar 20, 1995;Build 8

 +2       ;

 +3        QUIT

PRE       ; Pre-init to delete field .03 from file 344.3

 +1       ; the data is not deleted.

 +2       ;

 +3        NEW DIK,DA

 +4        SET DIK="^DD(344.3,"

           SET DA=.03

           SET DA(1)=344.3

 +5        DO ^DIK

 +6        KILL DIK,DA

 +7       ;

 +8        QUIT