BGUFILE.m

BGUFILE ; IHS/OIT/MJL - CALLS FILE RECORDS ;

 ;;1.5;BGU;;MAY 26, 2005

 ;USED WITH PRIMARY TABLE LOOKUP OF GUI CALL

 ;VALUES RETURNED IN Y

EN(Y,X,PARAM) ;PEP CALL FROM REMOTE PROCEDURE BGU TABLENAMES

 S X=0,Z=0 FOR  S X=$O(^BGUT("B",X)) Q:X=""  D ONE

 S Y(0.5)=Z Q

ONE S Z=Z+1

 S X1=0,X1=$O(^BGUT("B",X,X1)) I $D(^BGUT(X1,0)) S Y(X1)=^BGUT(X1,0) Q

 ;SAME CALL AS ABOVE WITH TAG TO TEST

TST S X=0,Z=0 FOR  S X=$O(^BGUT("B",X)) Q:X=""  D ONE

 S Y(0.5)=Z Q

BGUFILE   ; IHS/OIT/MJL - CALLS FILE RECORDS ;

 +1       ;;1.5;BGU;;MAY 26, 2005

 +2       ;USED WITH PRIMARY TABLE LOOKUP OF GUI CALL

 +3       ;VALUES RETURNED IN Y

EN(Y,X,PARAM) ;PEP CALL FROM REMOTE PROCEDURE BGU TABLENAMES

 +1        SET X=0

           SET Z=0

           FOR 

               SET X=$ORDER(^BGUT("B",X))

               IF X=""

                   QUIT 

               DO ONE

 +2        SET Y(0.5)=Z

           QUIT 

ONE        SET Z=Z+1

 +1        SET X1=0

           SET X1=$ORDER(^BGUT("B",X,X1))

           IF $DATA(^BGUT(X1,0))

               SET Y(X1)=^BGUT(X1,0)

               QUIT 

 +2       ;SAME CALL AS ABOVE WITH TAG TO TEST

TST        SET X=0

           SET Z=0

           FOR 

               SET X=$ORDER(^BGUT("B",X))

               IF X=""

                   QUIT 

               DO ONE

 +1        SET Y(0.5)=Z

           QUIT