| [613] | 1 | IB20PT8 ;ALB/MJK/CPM - CONDITIONALLY EXPORT ROUTINES ; 14-FEB-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | EXPORT ; Conditionally installs other package routines
|
|---|
| 6 | N DIE,DIF,X,XCN,XCNP,IBTO,IBFR,IBI,IBX
|
|---|
| 7 | W !!,">>> Loading routines of other packages, if appropriate..."
|
|---|
| 8 | F IBI=1:1 S IBX=$T(ROU+IBI) Q:$P(IBX,";",3)="$END" D
|
|---|
| 9 | .S IBTO=$P(IBX,";",3),IBFR=$P(IBX,";",4) D LOAD(IBTO) D
|
|---|
| 10 | ..S X=$G(^UTILITY("IBLOAD",$J,2,0)) X $P(IBX,";",5)
|
|---|
| 11 | ..I $T D INSTALL(IBTO,IBFR)
|
|---|
| 12 | K ^UTILITY("IBLOAD",$J)
|
|---|
| 13 | EXPORTQ Q
|
|---|
| 14 | ;
|
|---|
| 15 | LOAD(IBTO) ; -- load current routine
|
|---|
| 16 | K ^UTILITY("IBLOAD",$J)
|
|---|
| 17 | S X=IBTO X ^%ZOSF("TEST")
|
|---|
| 18 | I $T S XCNP=0,DIF="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("LOAD")
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | INSTALL(IBTO,IBFR) ; -- install routine
|
|---|
| 22 | K ^UTILITY("IBLOAD",$J)
|
|---|
| 23 | W !," >> Installing ",IBTO," routine from ",IBFR," routine... "
|
|---|
| 24 | S X=IBFR,XCNP=0,DIF="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("LOAD")
|
|---|
| 25 | S X=IBTO,XCN=3,DIE="^UTILITY(""IBLOAD"",$J," X ^%ZOSF("SAVE")
|
|---|
| 26 | K ^UTILITY("IBLOAD",$J)
|
|---|
| 27 | W IBTO," filed."
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | ROU ; -- routines to export
|
|---|
| 31 | ;;DGBLRV;IB20PT81;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 32 | ;;DGPTF;IB20PT82;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 33 | ;;DGPTTS;IB20PT83;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 34 | ;;DGPTTS1;IB20PT84;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 35 | ;;DGPTTS3;IB20PT85;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 36 | ;;DGPTUTL;IB20PT86;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 37 | ;;DGRPDB;IB20PT87;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 38 | ;;DG3PR0;IB20PT88;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 39 | ;;DG3PR1;IB20PT89;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 40 | ;;DG3PR2;IB20PT8A;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 41 | ;;DGPMVBUR;IB20PT8B;I $S(X="":1,1:X["5.3"),X'["*26",X'[",26"
|
|---|
| 42 | ;;FBUINS;IB20PT8C;I +$G(^DD(161.4,0,"VR"))=3,X'["*5",X'[",5"
|
|---|
| 43 | ;;$END
|
|---|
| 44 | ;
|
|---|
| 45 | ; piece 3 --> routine to replace
|
|---|
| 46 | ; " 4 --> post-init routine holding new verion
|
|---|
| 47 | ; " 5 --> 'ok to replace' IF test
|
|---|
| 48 | ; - X will be defined to be the 2nd line of
|
|---|
| 49 | ; current version
|
|---|
| 50 | ;
|
|---|
