Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
513 bytes
|
Rev | Line | |
---|
[613] | 1 | PRYNPOST ;Washington ISC@Altoona,Pa/TJK-SETS FILE 433 "CA" X-REF ;10/19/95 12:23 PM [ 10/25/95 7:10 AM ]
|
---|
| 2 | V ;;4.5;Accounts Receivable;**23**;Mar 20, 1995
|
---|
| 3 | N RCI,TRTYP
|
---|
| 4 | W !,"STARTING POST-INIT"
|
---|
| 5 | W !,"SETTING CA X-REF IN FILE 433"
|
---|
| 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=35,$P($G(^PRCA(433,RCI,8)),U,8) D
|
---|
| 9 | ..S ^PRCA(433,"CA",RCI)=""
|
---|
| 10 | ..W "."
|
---|
| 11 | ..Q
|
---|
| 12 | .Q
|
---|
| 13 | W !,"CA X-REF SET"
|
---|
| 14 | S ^PRCA(433,"CA",0)=""
|
---|
| 15 | W !,"POST-INIT COMPLETED"
|
---|
| 16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.