BARP1828.m

BARP1828 ; IHS/SD/SDR - Post init for V1.8 Patch 28

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**28**;OCT 26, 2005;Build 92

 ;

 ;IHS/SD/SDR 1.8*28 HEAT293633 - Add A/R Table Entry/IHS 150 Payment Adj-Clean Up.  Added for data cleanup at Belcourt

 ;  but being released nationally in case others need.

 Q

 ; ********************************************************************

 ;

EN ; EP - Driver

 ; Create New transaction type called Remark Code

 W !!,"Creating Payment Adj Clean Up Transaction Types... "

 ;PAYMENT ADJ CLEAN UP

 K DIC,DA,DR,X,Y

 S DIC="^BARTBL("

 S DIC(0)="LZX"

 S DINUM=150

 S X="PAYMENT ADJ CLEAN UP"

 S DLAYGO=90052

 S DIC("DR")="2////20"  ;Table Type

 S DIC("DR")=DIC("DR")_";6///PAYCRD"  ;Acronym

 K DD,DO

 D ^DIC

 ;

 ;Change A/R Collection Batch/Item deletion permissions to "@"

 S ^DIC(90051.01,0,"DEL")="@"

 ;

 ;Update Standard Adjustment Reason Codes

 D EN^BARADJRE

 D EN^BARADJRF

 D EN^BARADJRG

 D EN^BARADJRH

 D EN^BARADJRI

 D EN^BARADJRJ

 D EN^BARADJRK

 D EN^BARADJRL

 Q

 ; ********************************************************************

 ;EOR - IHS/DIT/CPC 1.8*28

BARP1828  ; IHS/SD/SDR - Post init for V1.8 Patch 28

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**28**;OCT 26, 2005;Build 92

 +2       ;

 +3       ;IHS/SD/SDR 1.8*28 HEAT293633 - Add A/R Table Entry/IHS 150 Payment Adj-Clean Up.  Added for data cleanup at Belcourt

 +4       ;  but being released nationally in case others need.

 +5        QUIT 

 +6       ; ********************************************************************

 +7       ;

EN        ; EP - Driver

 +1       ; Create New transaction type called Remark Code

 +2        WRITE !!,"Creating Payment Adj Clean Up Transaction Types... "

 +3       ;PAYMENT ADJ CLEAN UP

 +4        KILL DIC,DA,DR,X,Y

 +5        SET DIC="^BARTBL("

 +6        SET DIC(0)="LZX"

 +7        SET DINUM=150

 +8        SET X="PAYMENT ADJ CLEAN UP"

 +9        SET DLAYGO=90052

 +10      ;Table Type

           SET DIC("DR")="2////20"

 +11      ;Acronym

           SET DIC("DR")=DIC("DR")_";6///PAYCRD"

 +12       KILL DD,DO

 +13       DO ^DIC

 +14      ;

 +15      ;Change A/R Collection Batch/Item deletion permissions to "@"

 +16       SET ^DIC(90051.01,0,"DEL")="@"

 +17      ;

 +18      ;Update Standard Adjustment Reason Codes

 +19       DO EN^BARADJRE

 +20       DO EN^BARADJRF

 +21       DO EN^BARADJRG

 +22       DO EN^BARADJRH

 +23       DO EN^BARADJRI

 +24       DO EN^BARADJRJ

 +25       DO EN^BARADJRK

 +26       DO EN^BARADJRL

 +27       QUIT 

 +28      ; ********************************************************************

 +29      ;EOR - IHS/DIT/CPC 1.8*28