source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCENV.m@ 1147

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

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1SCMCENV ;ALB/REW - PCMM Environment Checker ; 3 Feb 1996
2 ;;5.3;Scheduling;**41**;AUG 13, 1993
3EN ;entry point
4 W !,"PCMM Installation Requirements:",!
5 IF $D(XPDABORT)#2 W !!?4,"*** Warning: Because variable XPDABORT exists, PCMM will not install."
6 N SCX,SCPATCH,SCROUT,SCCOMM,SC2LINE,SC2DATA,SCGLOB,SC2CHECK,SCARR,SCSUB
7 W !,">>> Checking Programmer Variables:"
8 IF +$G(DUZ)'>0!($G(DUZ(0))'="@")!($G(U)'="^")!('$D(DT)) D Q
9 . S XPDABORT=2
10 . W !,"You must first initialize Programmer Environment by running ^XUP",!
11 ELSE D
12 . W " ...Ok"
13BLDCHK ;check build file entries
14 W !,">>> Checking BUILD File Entries:"
15 F SCX=1:1 S SCPATCH=$P($P($T(BUILD+SCX),";;",2),U,1) Q:'$L(SCPATCH) D
16 .W !,?5,SCPATCH
17 .IF '$D(^XPD(9.6,"B",SCPATCH)) D
18 ..N SCPKG,SCVER
19 ..S SCPKG=$P($P($T(BUILD+SCX),";;",2),U,2)
20 ..S SCVER=$P($P($T(BUILD+SCX),";;",2),U,3)
21 ..IF $$VERSION^XPDUTL(SCPKG)'=SCVER D
22 ...S XPDABORT=2
23 ...W !,"Missing Required Package File Entry (Package/Patch): ",SCPATCH
24 ..ELSE D
25 ...W " ...Ok - in Package File"
26 .ELSE D
27 ..W " ...Ok"
28PKGCHK ;check package file entries
29 W !,">>> Checking PACKAGE File Entries:"
30 F SCX=1:1 S SCPATCH=$P($T(PACKAGE+SCX),";;",2) Q:'$L(SCPATCH) D
31 .N SCPKG,SCVER,SCPTC,SCPKGI,SCVERI
32 .W !,?5,SCPATCH
33 .IF '$$PATCH^XPDUTL(SCPATCH) D
34 ..S XPDABORT=2
35 ..W:$G(XPDABORT) !,"Missing Required (Package/Patch) Entry: ",SCPATCH
36 .ELSE D
37 ..W " Ok"
38 ;check patched routines
39 ;check patched routines
40RTCHK W !,">>> Checking Routines: "
41 ;needs to be improved if 1 digit patches are checked
42 F SCX=1:1 S SCRT=$P($T(ROUTINE+SCX),";;",2) Q:'$L(SCRT) D
43 .S SCROUT=$P(SCRT,U,1)
44 .W !,?5,$P(SCRT,U,3)," v",$P(SCRT,U,2),?30,"Patch#: ",$P(SCRT,U,4),?43,"Routine: ^",SCROUT," ..."
45 .S SCCOMM="S SC2LINE=$P($T(+2"_U_SCROUT_"),"";;"",2)"
46 .X SCCOMM
47 .S SC2CHECK=$P(SCRT,U,2,99)
48 .IF '$L(SC2LINE) D Q
49 ..W "Missing (Required Routine)"
50 ..S XPDABORT=2
51 .ELSE D
52 ..IF $P(SC2LINE,";",1)>$P(SC2CHECK,U,1) D Q
53 ...W !?10,"Version of ",$P(SC2LINE,";",2)," is greater than standard - No patch checks done"
54 ..IF $P(SC2LINE,";",1)<$P(SC2CHECK,U,1) D Q
55 ...W !?10,"Version of ",$P(SC2LINE,";",2)," is less than required"
56 ...S XPDABORT=2
57 ..IF $P(SC2LINE,";",3)'[$P(SC2CHECK,U,3) D Q
58 ...W !?10,"Missing Patch # ",$P(SC2CHECK,U,3)
59 ...S XPDABORT=2
60 ..W "Ok"
61GLOBCHK W !,">>> Checking Globals:"
62 F SCX=1:1 S SCGLOB=$P($T(GLOB+SCX),";;",2) Q:'$L(SCGLOB) D
63 .W !,?5,SCGLOB
64 .IF $$GET1^DID(.84,"","","NAME")'="DIALOG" D
65 ..W " ...Missing"
66 ..S XPDABORT=2
67 .ELSE D
68 ..W " ...Ok"
69 W:$D(XPDABORT) !,">>> PCMM Aborted in Environment Checker"
70 W:'$D(XPDABORT) !!,">>> Environment is Ok"
71 Q
72 ;
73PACKAGE ;
74 ;;XU*8.0*2
75 ;;XU*8.0*15
76 ;;XU*8.0*16
77 ;;XU*8.0*28
78BUILD ;
79 ;;RPC BROKER 1.0^XWB^1.0
80ROUTINE ;
81 ;;DICA^21.0^VA FileMan^17^Dec 28, 1994
82 ;;SDUTL3^5.3^Scheduling^30^AUG 13, 1993
83 ;
84GLOB ;
85 ;;^DI(.84
86 ;
Note: See TracBrowser for help on using the repository browser.