|
Last change
on this file since 619 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
