Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
600 bytes
|
Line | |
---|
1 | PRYBPOST ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "AW" X-REF ;4/18/95 8:06 AM
|
---|
2 | V ;;4.5;Accounts Receivable;**3**;Mar 20, 1995
|
---|
3 | N RCI,TRTYP
|
---|
4 | W !,"SETTING AW X-REF IN FILE 433"
|
---|
5 | ;S DIK="^PRCA(433,",DIK(1)="12^AW" D ENALL^DIK
|
---|
6 | S RCI=0 F S RCI=$O(^PRCA(433,RCI)) Q:RCI'?1N.N D
|
---|
7 | .S TRTYP=$P($G(^PRCA(433,RCI,1)),U,2)
|
---|
8 | .I TRTYP>7,TRTYP<12 S ^PRCA(433,"AW",TRTYP,RCI)="" W "."
|
---|
9 | .Q
|
---|
10 | W !,"AW X-REF SET"
|
---|
11 | W !,"RECOMPILING PRCA BATCH PAYMENT INPUT TEMPLATE"
|
---|
12 | S X="PRCATB",Y=$O(^DIE("B","PRCA BATCH PAYMENT",0)),DMAX=5000
|
---|
13 | D EN^DIEZ
|
---|
14 | W !,"PRCA BATCH PAYMENT INPUT TEMPLATE RECOMPILED",!,"DONE"
|
---|
15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.