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