source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBXIP23.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 350 bytes
RevLine 
[613]1FBXIP23 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;9/25/2000
2 ;;3.5;FEE BASIS;**23**;JAN 30, 1995
3 Q
4 ;
5INIT ; 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.