Routine: SCRPBK5

SCRPBK5 ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96

 ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21

PARSE(SCQDEF,SCQREC) ; -- parse incoming raw broker array

 ; -- return formatted query record

 ; -- SEE BOTTOM OF SCRPBK FOR VARIABLE DEFINITIONS

 N SCINC,X

 ; -- build internal formatted variables

 S SCINC=1,X=SCQDEF(SCINC)

 S SCQREC("NAME")=$P(X,U)

 S SCQREC("CREATORID")=+$P(X,U,2)

 S SCQREC("ACCESSID")=+$P(X,U,3)

 S SCQREC("REPORTID")=+$P(X,U,4)

 ; -- build external formatted variables

 S SCINC=2,X=SCQDEF(SCINC)

 S SCQREC("QUERYID")=$P(X,U)

 S SCQREC("CREATOR")=$P(X,U,2)

 S SCQREC("ACCESS")=$P(X,U,3)

 S SCQREC("REPORT")=$P(X,U,4)

 F  S SCINC=$O(SCQDEF(SCINC)) Q:'SCINC  S X=$G(SCQDEF(SCINC)) D

 . IF X="[Description]" D DESC(.SCINC,.SCQDEF,.SCQREC)

 . ; -- get fields

 . IF X="[Fields]" D FIELDS(.SCINC,.SCQDEF,.SCQREC)

 . ; -- get files

 . IF X="[Selections]" D SELECT(.SCINC,.SCQDEF,.SCQREC)

DESC(SCINC,SCQDEF,SCQREC) ; -- build query description

 N I,X

 S I=0

 F  S SCINC=$O(SCQDEF(SCINC)) Q:'SCINC  S X=$G(SCQDEF(+SCINC)) Q:X="$$END"  D

 . S I=I+1,SCQREC("DESCRIPTION",I,0)=X

FIELDS(SCINC,SCQRY,SCQREC) ; -- build field answeredk

N X

 F  S SCINC=$O(SCQDEF(SCINC)) Q:'SCINC  S X=$G(SCQDEF(+SCINC)) Q:X="$$END"  D

 . S SCQREC("FIELDS",$P(X,U))=$P(X,U,2)

SELECT(SCINC,SCQRY,SCQREC) ; -- build file entries selected

N X

 F  S SCINC=$O(SCQDEF(SCINC)) Q:'SCINC  S X=$G(SCQDEF(+SCINC)) Q:X="$$END"  D

 . S SCQREC("SELECTIONS",$P(X,U,2),$$SEL(X))=""

SEL(SEL) ; -- set vp for selection

 N Y,IEN,SCTYPE

 S SCTYPE=$P(SEL,U,2),IEN=+$P(SEL,U,3),Y="NOT VALID: "_SCTYPE

 IF SCTYPE="DIVISION" S Y="DIC(4," G SELQ

 IF SCTYPE="TEAM" S Y="SCTM(404.51," G SELQ

 IF SCTYPE="PRACTITIONER" S Y="VA(200," G SELQ

 IF SCTYPE="ROLE" S Y="SD(403.46," G SELQ

 IF SCTYPE="CLINIC" S Y="SC(" G SELQ

 IF SCTYPE="USERCLASS" S Y="USR(8930," G SELQ

SELQ Q IEN_";"_Y

SCRPBK5   ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96

 +1       ;;5.3;Scheduling;**41,1015**;AUG 13, 1993;Build 21

 +2       ;

PARSE(SCQDEF,SCQREC) ; -- parse incoming raw broker array

 +1       ; -- return formatted query record

 +2       ;

 +3       ; -- SEE BOTTOM OF SCRPBK FOR VARIABLE DEFINITIONS

 +4       ;

 +5        NEW SCINC,X

 +6       ;

 +7       ; -- build internal formatted variables

 +8        SET SCINC=1

           SET X=SCQDEF(SCINC)

 +9        SET SCQREC("NAME")=$PIECE(X,U)

 +10       SET SCQREC("CREATORID")=+$PIECE(X,U,2)

 +11       SET SCQREC("ACCESSID")=+$PIECE(X,U,3)

 +12       SET SCQREC("REPORTID")=+$PIECE(X,U,4)

 +13      ;

 +14      ; -- build external formatted variables

 +15       SET SCINC=2

           SET X=SCQDEF(SCINC)

 +16       SET SCQREC("QUERYID")=$PIECE(X,U)

 +17       SET SCQREC("CREATOR")=$PIECE(X,U,2)

 +18       SET SCQREC("ACCESS")=$PIECE(X,U,3)

 +19       SET SCQREC("REPORT")=$PIECE(X,U,4)

 +20      ;

 +21       FOR

               SET SCINC=$ORDER(SCQDEF(SCINC))

               IF 'SCINC

                   QUIT

               SET X=$GET(SCQDEF(SCINC))

               Begin DoDot:1

 +22               IF X="[Description]"

                       DO DESC(.SCINC,.SCQDEF,.SCQREC)

 +23      ; -- get fields

 +24               IF X="[Fields]"

                       DO FIELDS(.SCINC,.SCQDEF,.SCQREC)

 +25      ; -- get files

 +26               IF X="[Selections]"

                       DO SELECT(.SCINC,.SCQDEF,.SCQREC)

               End DoDot:1

 +27       QUIT

 +28      ;

DESC(SCINC,SCQDEF,SCQREC) ; -- build query description

 +1        NEW I,X

 +2        SET I=0

 +3        FOR

               SET SCINC=$ORDER(SCQDEF(SCINC))

               IF 'SCINC

                   QUIT

               SET X=$GET(SCQDEF(+SCINC))

               IF X="$$END"

                   QUIT

               Begin DoDot:1

 +4                SET I=I+1

                   SET SCQREC("DESCRIPTION",I,0)=X

               End DoDot:1

 +5        QUIT

 +6       ;

FIELDS(SCINC,SCQRY,SCQREC) ; -- build field answeredk

 +1        NEW X

 +2        FOR

               SET SCINC=$ORDER(SCQDEF(SCINC))

               IF 'SCINC

                   QUIT

               SET X=$GET(SCQDEF(+SCINC))

               IF X="$$END"

                   QUIT

               Begin DoDot:1

 +3                SET SCQREC("FIELDS",$PIECE(X,U))=$PIECE(X,U,2)

               End DoDot:1

 +4        QUIT

 +5       ;

SELECT(SCINC,SCQRY,SCQREC) ; -- build file entries selected

 +1        NEW X

 +2        FOR

               SET SCINC=$ORDER(SCQDEF(SCINC))

               IF 'SCINC

                   QUIT

               SET X=$GET(SCQDEF(+SCINC))

               IF X="$$END"

                   QUIT

               Begin DoDot:1

 +3                SET SCQREC("SELECTIONS",$PIECE(X,U,2),$$SEL(X))=""

               End DoDot:1

 +4        QUIT

 +5       ;

SEL(SEL)  ; -- set vp for selection

 +1        NEW Y,IEN,SCTYPE

 +2        SET SCTYPE=$PIECE(SEL,U,2)

           SET IEN=+$PIECE(SEL,U,3)

           SET Y="NOT VALID: "_SCTYPE

 +3        IF SCTYPE="DIVISION"

               SET Y="DIC(4,"

               GOTO SELQ

 +4        IF SCTYPE="TEAM"

               SET Y="SCTM(404.51,"

               GOTO SELQ

 +5        IF SCTYPE="PRACTITIONER"

               SET Y="VA(200,"

               GOTO SELQ

 +6        IF SCTYPE="ROLE"

               SET Y="SD(403.46,"

               GOTO SELQ

 +7        IF SCTYPE="CLINIC"

               SET Y="SC("

               GOTO SELQ

 +8        IF SCTYPE="USERCLASS"

               SET Y="USR(8930,"

               GOTO SELQ

SELQ       QUIT IEN_";"_Y

 +1       ;

SCRPBK5.m