IB20PT8.m

IB20PT8	;ALB/MJK/CPM - CONDITIONALLY EXPORT ROUTINES ; 14-FEB-94

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;

	;

EXPORT	; Conditionally installs other package routines

	N DIE,DIF,X,XCN,XCNP,IBTO,IBFR,IBI,IBX

	W !!,">>> Loading routines of other packages, if appropriate..."

	F IBI=1:1 S IBX=$T(ROU+IBI) Q:$P(IBX,";",3)="$END"  D

	.S IBTO=$P(IBX,";",3),IBFR=$P(IBX,";",4) D LOAD(IBTO) D

	..S X=$G(^UTILITY("IBLOAD",$J,2,0)) X $P(IBX,";",5)

	..I $T D INSTALL(IBTO,IBFR)

	K ^UTILITY("IBLOAD",$J)

EXPORTQ	Q

	;

LOAD(IBTO)	; -- load current routine

	K ^UTILITY("IBLOAD",$J)

	S X=IBTO X ^%ZOSF("TEST")

	I $T S XCNP=0,DIF="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("LOAD")

	Q

	;

INSTALL(IBTO,IBFR)	; -- install routine

	K ^UTILITY("IBLOAD",$J)

	W !," >> Installing ",IBTO," routine from ",IBFR," routine...  "

	S X=IBFR,XCNP=0,DIF="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("LOAD")

	S X=IBTO,XCN=3,DIE="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("SAVE")

	K ^UTILITY("IBLOAD",$J)

	W IBTO," filed."

	Q

	;

ROU	; -- routines to export

	;;DGBLRV;IB20PT81;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPTF;IB20PT82;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPTTS;IB20PT83;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPTTS1;IB20PT84;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPTTS3;IB20PT85;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPTUTL;IB20PT86;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGRPDB;IB20PT87;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DG3PR0;IB20PT88;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DG3PR1;IB20PT89;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DG3PR2;IB20PT8A;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;DGPMVBUR;IB20PT8B;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

	;;FBUINS;IB20PT8C;I +$G(^DD(161.4,0,"VR"))=3,X'["*5",X'[",5"

	;;$END

	;

	;    piece 3 --> routine to replace

	;      "   4 --> post-init routine holding new verion

	;      "   5 --> 'ok to replace' IF test

	;                  - X will be defined to be the 2nd line of

	;                    current version

	;

IB20PT8   ;ALB/MJK/CPM - CONDITIONALLY EXPORT ROUTINES ; 14-FEB-94

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;

 +3       ;

EXPORT    ; Conditionally installs other package routines

 +1        NEW DIE,DIF,X,XCN,XCNP,IBTO,IBFR,IBI,IBX

 +2        WRITE !!,">>> Loading routines of other packages, if appropriate..."

 +3        FOR IBI=1:1

               SET IBX=$TEXT(ROU+IBI)

               IF $PIECE(IBX,";",3)="$END"

                   QUIT 

               Begin DoDot:1

 +4                SET IBTO=$PIECE(IBX,";",3)

                   SET IBFR=$PIECE(IBX,";",4)

                   DO LOAD(IBTO)

                   Begin DoDot:2

 +5                    SET X=$GET(^UTILITY("IBLOAD",$JOB,2,0))

                       XECUTE $PIECE(IBX,";",5)

 +6                    IF $TEST

                           DO INSTALL(IBTO,IBFR)

                   End DoDot:2

               End DoDot:1

 +7        KILL ^UTILITY("IBLOAD",$JOB)

EXPORTQ    QUIT 

 +1       ;

LOAD(IBTO) ; -- load current routine

 +1        KILL ^UTILITY("IBLOAD",$JOB)

 +2        SET X=IBTO

           XECUTE ^%ZOSF("TEST")

 +3        IF $TEST

               SET XCNP=0

               SET DIF="^UTILITY(""IBLOAD"",$J,"

               XECUTE ^%ZOSF("LOAD")

 +4        QUIT 

 +5       ;

INSTALL(IBTO,IBFR) ; -- install routine

 +1        KILL ^UTILITY("IBLOAD",$JOB)

 +2        WRITE !," >> Installing ",IBTO," routine from ",IBFR," routine...  "

 +3        SET X=IBFR

           SET XCNP=0

           SET DIF="^UTILITY(""IBLOAD"",$J,"

           XECUTE ^%ZOSF("LOAD")

 +4        SET X=IBTO

           SET XCN=3

           SET DIE="^UTILITY(""IBLOAD"",$J,"

           XECUTE ^%ZOSF("SAVE")

 +5        KILL ^UTILITY("IBLOAD",$JOB)

 +6        WRITE IBTO," filed."

 +7        QUIT 

 +8       ;

ROU       ; -- routines to export

 +1       ;;DGBLRV;IB20PT81;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +2       ;;DGPTF;IB20PT82;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +3       ;;DGPTTS;IB20PT83;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +4       ;;DGPTTS1;IB20PT84;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +5       ;;DGPTTS3;IB20PT85;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +6       ;;DGPTUTL;IB20PT86;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +7       ;;DGRPDB;IB20PT87;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +8       ;;DG3PR0;IB20PT88;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +9       ;;DG3PR1;IB20PT89;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +10      ;;DG3PR2;IB20PT8A;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +11      ;;DGPMVBUR;IB20PT8B;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"

 +12      ;;FBUINS;IB20PT8C;I +$G(^DD(161.4,0,"VR"))=3,X'["*5",X'[",5"

 +13      ;;$END

 +14      ;

 +15      ;    piece 3 --> routine to replace

 +16      ;      "   4 --> post-init routine holding new verion

 +17      ;      "   5 --> 'ok to replace' IF test

 +18      ;                  - X will be defined to be the 2nd line of

 +19      ;                    current version

 +20      ;