AURSRCH1.m

AURSRCH1 ; COMMON CHECK LOGIC [ 04/05/88  3:58 PM ]

 ;

CHECK ; EXCLUDE ^%DT,^DIC, 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)="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 AURSRCH("FOUND")=1

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

 S ^UTILITY("AURSRCH",$J,YY)=""

 Q

AURSRCH1  ; COMMON CHECK LOGIC [ 04/05/88  3:58 PM ]

 +1       ;

CHECK     ; EXCLUDE ^%DT,^DIC, 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)="DIQ"

               QUIT 

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

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

           SET X2=$FIND(Y," ")

           IF 'X0

               SET X0=999

           IF 'X1

               SET X1=999

           IF 'X2

               SET X2=888

 +7        IF X0<X2

               QUIT 

 +8        IF X1<X2

               QUIT 

 +9        SET AURSRCH("FOUND")=1

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

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

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

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

 +11       SET ^UTILITY("AURSRCH",$JOB,YY)=""

 +12       QUIT