source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSPOS1.m@ 1006

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

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1GMTSPOS1 ;SLC/SBW - Smart routine installer and Comp. Disabler ;22/MAR/95
2 ;;2.7;Health Summary;;Oct 20, 1995
3PSO ; Controls Outpatient Pharmacy install
4 N GMPSOVER
5 ;If Health Summary is absent, then quit
6 I '$L($T(^PSOHCSUM)) Q
7 S GMPSOVER=$$VERSION^XPDUTL("PSO")
8 D PSOINST(GMPSOVER)
9 Q
10PSOINST(VERSION) ; Install routine corresponding to HS version in
11 ; target account
12 ; If the patch is already installed, then quit w/o overwriting
13 N DIE,DIF,GMMSG,X,XCN,XCNP
14 I VERSION'<6.0 Q
15 W !,"** Installing GMTSPSO routine for Outpatient Pharmacy component. **"
16 W !," Outpatient Pharmacy version ",VERSION," is installed in this account.",!
17 S X="GMTSPSZO",XCNP=0,DIF="^UTILITY(""GMTSPSZO""," X ^%ZOSF("LOAD") W !,"Renaming GMTSPSZO as GMTSPSO."
18 S X="GMTSPSO",XCN=2,DIE="^UTILITY(""GMTSPSZO""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSPSZO") W " Done.",!
19 Q
20 ;******************************************************
21SOWK ; Controls Social Work install
22 N X,GMMSG
23 ; Checks conditions for auto-disable of Social Work component
24 I $$VERSION^XPDUTL("SOWK")<3 D
25 . S GMMSG="Social Work Service version 3.0 not yet installed"
26 . S X="SOCIAL WORK" D DISABLE^GMTSPOST
27 I $$VERSION^XPDUTL("SOWK")>2.99 D
28 . ;If Social Work extract routine for Health Summary is present, quit
29 . I $L($T(^SOWKHSUM)) Q
30 . W !,"** Installing SOWKHSUM routine for Social Work Component. **"
31 . D SOWKINST
32 Q
33SOWKINST ; Install SOWKHSUM routine
34 N DIE,DIF,GMMSG,X,XCN,XCNP
35 S X="GMTSSOWZ",XCNP=0,DIF="^UTILITY(""GMTSSOWZ""," X ^%ZOSF("LOAD") W !,"Renaming GMTSSOWZ as SOWKHSUM."
36 S X="SOWKHSUM",XCN=2,DIE="^UTILITY(""GMTSSOWZ""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSSOWZ") W " Done.",!
37 Q
38 ;******************************************************
39MED ; Controls Medicine 2.0 install and disable 2.2 components
40 N X,GMMSG
41 ;Checks conditions for auto-disable of Medicine 2.2 components
42 I $$VERSION^XPDUTL("MC")<2.2 D
43 . S GMMSG="Medicine 2.2 Package not yet installed or available"
44 . F X="MEDICINE ABNORMAL BRIEF","MEDICINE BRIEF REPORT","MEDICINE FULL CAPTIONED","MEDICINE FULL REPORT" D DISABLE^GMTSPOST
45 . ;If Medicine 2.2 not installed, restore 2.0 medicine routines
46 . W !,"** Installing GMTSMCPS routine for Medicine 2.0 component. **"
47 . D MED2INST
48 I $$VERSION^XPDUTL("MC")>2.19 D M22INST
49 Q
50MED2INST ; Install GMTSMCPS routine for med 2.0
51 N DIE,DIF,GMMSG,X,XCN,XCNP
52 S X="GMTSMCPZ",XCNP=0,DIF="^UTILITY(""GMTSMCPZ""," X ^%ZOSF("LOAD") W !,"Renaming GMTSMCPZ as GMTSMCPS."
53 S X="GMTSMCPS",XCN=2,DIE="^UTILITY(""GMTSMCPZ""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSMCPZ") W " Done.",!
54 Q
55M22INST ; Install GMTSMCPS routine for med 2.2
56 W !,"** Installing GMTSMCPS routine for Medicine 2.2 components. **"
57 N DIE,DIF,GMMSG,X,XCN,XCNP
58 S X="GMTSMCZZ",XCNP=0,DIF="^UTILITY(""GMTSMCZZ""," X ^%ZOSF("LOAD") W !,"Renaming GMTSMCZZ as GMTSMCPS."
59 S X="GMTSMCPS",XCN=2,DIE="^UTILITY(""GMTSMCZZ""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSMCZZ") W " Done.",!
60 Q
61 ;******************************************************
62PL ; Controls Problem List 2.0 install
63 ; Checks conditions for auto-disable of Problem List components
64 N X,GMMSG
65 I $$VERSION^XPDUTL("GMPL")<2 D
66 . S GMMSG="Problem List 2.0 Package not yet installed or available"
67 . F X="PROBLEM LIST ACTIVE","PROBLEM LIST INACTIVE","PROBLEM LIST ALL" D DISABLE^GMTSPOST
68 I $$VERSION^XPDUTL("GMPL")>1.99 D
69 . W !,"** Installing GMPLHS routine for Problem List components. **"
70 . D PLINST
71 Q
72PLINST ; Install GMPLHS routine
73 N DIE,DIF,GMMSG,X,XCN,XCNP
74 W !,"Renaming GMTSPLSZ as GMPLHS."
75 S X="GMTSPLSZ",XCNP=0,DIF="^UTILITY(""GMTSPLSZ""," X ^%ZOSF("LOAD") W "."
76 S X="GMPLHS",XCN=2,DIE="^UTILITY(""GMTSPLSZ""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSPLSZ") W " Done."
77 Q
Note: See TracBrowser for help on using the repository browser.