AUSBRS.m

%AUSBRS ; STANDARD INPUT ROUTINE; [ 06/09/87  11:05 AM ]

 ;

 S U="^" S:'$D(DTIME) DTIME=300 K DFOUT,DTOUT,DUOUT,DQOUT,DLOUT

SBRS R Y:DTIME I '$T W *7 R Y:5 G SBRS:Y="." I '$T S (DTOUT,DFOUT)="" Q

 S:Y="" DLOUT="" S:Y="^" (DUOUT,Y)=""

 I Y?1"?".E!(Y["^") S DQOUT=$S(Y="??":2,1:1),Y="" Q

 I Y]"",$D(DUZ)#2,$D(^DIC(3,DUZ,200)),Y=$P(^(200),U,7) S (Y,DFOUT)=""

 Q

%AUSBRS   ; STANDARD INPUT ROUTINE; [ 06/09/87  11:05 AM ]

 +1       ;

 +2        SET U="^"

           IF '$DATA(DTIME)

               SET DTIME=300

           KILL DFOUT,DTOUT,DUOUT,DQOUT,DLOUT

SBRS       READ Y:DTIME

           IF '$TEST

               WRITE *7

               READ Y:5

               IF Y="."

                   GOTO SBRS

               IF '$TEST

                   SET (DTOUT,DFOUT)=""

                   QUIT 

 +1        IF Y=""

               SET DLOUT=""

           IF Y="^"

               SET (DUOUT,Y)=""

 +2        IF Y?1"?".E!(Y["^")

               SET DQOUT=$SELECT(Y="??":2,1:1)

               SET Y=""

               QUIT 

 +3        IF Y]""

               IF $DATA(DUZ)#2

                   IF $DATA(^DIC(3,DUZ,200))

                       IF Y=$PIECE(^(200),U,7)

                           SET (Y,DFOUT)=""

 +4        QUIT