Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
350 bytes
|
Rev | Line | |
---|
[613] | 1 | FBXIP23 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;9/25/2000
|
---|
| 2 | ;;3.5;FEE BASIS;**23**;JAN 30, 1995
|
---|
| 3 | Q
|
---|
| 4 | ;
|
---|
| 5 | INIT ; Initialze the mail code field (#5.5) in the FEE BASIS SITE PARAMETER
|
---|
| 6 | ; (#161.4) file.
|
---|
| 7 | N STAT
|
---|
| 8 | S STAT=0
|
---|
| 9 | F S STAT=$O(^FBAA(161.4,STAT)) Q:'STAT D
|
---|
| 10 | .Q:$P($G(^FBAA(161.4,STAT,1)),"^",11)'=""
|
---|
| 11 | .S $P(^FBAA(161.4,STAT,1),"^",11)=136
|
---|
| 12 | Q
|
---|
| 13 | ;
|
---|
| 14 | ;FBXIP23
|
---|
Note:
See
TracBrowser
for help on using the repository browser.