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