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