| [613] | 1 | SCMCENV ;ALB/REW - PCMM Environment Checker ; 3 Feb 1996
|
|---|
| 2 | ;;5.3;Scheduling;**41**;AUG 13, 1993
|
|---|
| 3 | EN ;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"
|
|---|
| 13 | BLDCHK ;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"
|
|---|
| 28 | PKGCHK ;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
|
|---|
| 40 | RTCHK 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"
|
|---|
| 61 | GLOBCHK 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 | ;
|
|---|
| 73 | PACKAGE ;
|
|---|
| 74 | ;;XU*8.0*2
|
|---|
| 75 | ;;XU*8.0*15
|
|---|
| 76 | ;;XU*8.0*16
|
|---|
| 77 | ;;XU*8.0*28
|
|---|
| 78 | BUILD ;
|
|---|
| 79 | ;;RPC BROKER 1.0^XWB^1.0
|
|---|
| 80 | ROUTINE ;
|
|---|
| 81 | ;;DICA^21.0^VA FileMan^17^Dec 28, 1994
|
|---|
| 82 | ;;SDUTL3^5.3^Scheduling^30^AUG 13, 1993
|
|---|
| 83 | ;
|
|---|
| 84 | GLOB ;
|
|---|
| 85 | ;;^DI(.84
|
|---|
| 86 | ;
|
|---|
