Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
600 bytes
|
Rev | Line | |
---|
[628] | 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.