FBXIP23.m

FBXIP23 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;9/25/2000

 ;;3.5;FEE BASIS;**23**;JAN 30, 1995

 Q

 ;

INIT ; Initialze the mail code field (#5.5) in the FEE BASIS SITE PARAMETER

 ; (#161.4) file.

 N STAT

 S STAT=0

 F  S STAT=$O(^FBAA(161.4,STAT)) Q:'STAT  D

 .Q:$P($G(^FBAA(161.4,STAT,1)),"^",11)'=""

 .S $P(^FBAA(161.4,STAT,1),"^",11)=136

 Q

 ;

 ;FBXIP23

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP23   364     printed  Nov 22, 2024@17:11:45                                                                                                                                                                                                      Page 2

FBXIP23   ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;9/25/2000

 +1       ;;3.5;FEE BASIS;**23**;JAN 30, 1995

 +2        QUIT 

 +3       ;

INIT      ; Initialze the mail code field (#5.5) in the FEE BASIS SITE PARAMETER

 +1       ; (#161.4) file.

 +2        NEW STAT

 +3        SET STAT=0

 +4        FOR 

               SET STAT=$ORDER(^FBAA(161.4,STAT))

               if 'STAT

                   QUIT 

               Begin DoDot:1

 +5                if $PIECE($GET(^FBAA(161.4,STAT,1)),"^",11)'=""

                       QUIT 

 +6                SET $PIECE(^FBAA(161.4,STAT,1),"^",11)=136

               End DoDot:1

 +7        QUIT 

 +8       ;

 +9       ;FBXIP23