source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBXIP23.m@ 1582

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

initial load of FOIAVistA 6/30/08 version

File size: 350 bytes
Line 
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.