16 lines
600 B
Mathematica
16 lines
600 B
Mathematica
PRYBPOST ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "AW" X-REF ;4/18/95 8:06 AM
|
|
V ;;4.5;Accounts Receivable;**3**;Mar 20, 1995
|
|
N RCI,TRTYP
|
|
W !,"SETTING AW X-REF IN FILE 433"
|
|
;S DIK="^PRCA(433,",DIK(1)="12^AW" D ENALL^DIK
|
|
S RCI=0 F S RCI=$O(^PRCA(433,RCI)) Q:RCI'?1N.N D
|
|
.S TRTYP=$P($G(^PRCA(433,RCI,1)),U,2)
|
|
.I TRTYP>7,TRTYP<12 S ^PRCA(433,"AW",TRTYP,RCI)="" W "."
|
|
.Q
|
|
W !,"AW X-REF SET"
|
|
W !,"RECOMPILING PRCA BATCH PAYMENT INPUT TEMPLATE"
|
|
S X="PRCATB",Y=$O(^DIE("B","PRCA BATCH PAYMENT",0)),DMAX=5000
|
|
D EN^DIEZ
|
|
W !,"PRCA BATCH PAYMENT INPUT TEMPLATE RECOMPILED",!,"DONE"
|
|
Q
|