XBRSRCH1.m

XBRSRCH1 ; IHS/ADC/GTH - COMMON CHECK LOGIC ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; Part of XBRSRCH

 ;

CHECK ; EXCLUDE ^%DT,^DIC,^DIK,^DIQ, AND GLOBALS

 Q:Y=""

 Q:$E(Y)=""""

 Q:$E(Y,1,3)="%DT"

 Q:$E(Y,1,3)="DIC"

 Q:$E(Y,1,3)="DIK"

 Q:$E(Y,1,3)="DIQ"

 S X0=$F(Y,")"),X1=$F(Y,"("),X2=$F(Y," ")

 S:'X0 X0=999

 S:'X1 X1=999

 S:'X2 X2=888

 Q:X0<X2

 Q:X1<X2

 S XBRSRCH("FOUND")=1

 S YY=$P(Y," ",1),YY=$P(YY,",",1),YY=$P(YY,")",1),YY=$P(YY,":",1)

 S:YY]"" ^UTILITY("XBRSRCH",$J,YY)=""

 Q

 ;

XBRSRCH1  ; IHS/ADC/GTH - COMMON CHECK LOGIC ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; Part of XBRSRCH

 +4       ;

CHECK     ; EXCLUDE ^%DT,^DIC,^DIK,^DIQ, AND GLOBALS

 +1        IF Y=""

               QUIT 

 +2        IF $EXTRACT(Y)=""""

               QUIT 

 +3        IF $EXTRACT(Y,1,3)="%DT"

               QUIT 

 +4        IF $EXTRACT(Y,1,3)="DIC"

               QUIT 

 +5        IF $EXTRACT(Y,1,3)="DIK"

               QUIT 

 +6        IF $EXTRACT(Y,1,3)="DIQ"

               QUIT 

 +7        SET X0=$FIND(Y,")")

           SET X1=$FIND(Y,"(")

           SET X2=$FIND(Y," ")

 +8        IF 'X0

               SET X0=999

 +9        IF 'X1

               SET X1=999

 +10       IF 'X2

               SET X2=888

 +11       IF X0<X2

               QUIT 

 +12       IF X1<X2

               QUIT 

 +13       SET XBRSRCH("FOUND")=1

 +14       SET YY=$PIECE(Y," ",1)

           SET YY=$PIECE(YY,",",1)

           SET YY=$PIECE(YY,")",1)

           SET YY=$PIECE(YY,":",1)

 +15       IF YY]""

               SET ^UTILITY("XBRSRCH",$JOB,YY)=""

 +16       QUIT 

 +17      ;