source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PT8.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1IB20PT8 ;ALB/MJK/CPM - CONDITIONALLY EXPORT ROUTINES ; 14-FEB-94
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4 ;
5EXPORT ; 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)
13EXPORTQ Q
14 ;
15LOAD(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 ;
21INSTALL(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 ;
30ROU ; -- 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 ;
Note: See TracBrowser for help on using the repository browser.