| 1 | FSCLMIPX ;SLC/STAFF-NOIS List Manager - Installs Patches ;11/15/97 18:49
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ENTRY ; from FSCSTUP
|
|---|
| 5 | N DAY,DOMAIN,LINE,MESSAGE,NOMSG,NUM,NUM0,NUM1,PATCHNUM,PACKAGE,SEQ,SITENAME,VERSION
|
|---|
| 6 | K ^TMP("FSC INSTALLS",$J),^TMP("FSC PATCH",$J)
|
|---|
| 7 | I '$G(FSCDEV) W !
|
|---|
| 8 | S VALMCNT=0,VALMCAP="",$P(VALMCAP," ",80)=""
|
|---|
| 9 | I '$D(FSCSTU) Q
|
|---|
| 10 | S DATE=$G(DATE,DT)
|
|---|
| 11 | S NOMSG=" No information on tracking"
|
|---|
| 12 | D
|
|---|
| 13 | .I FSCSTU="PATCH SITE" D SITE^FSCSTUPI(PATCH,.VALMCNT) Q
|
|---|
| 14 | .I FSCSTU="PATCH ALL" D ALL^FSCSTUPI(SITE,DATE,.VALMCNT) Q
|
|---|
| 15 | .I FSCSTU="PATCH PACK" D PACK^FSCSTUPI(SITE,MODULE,.VALMCNT) Q
|
|---|
| 16 | .I FSCSTU="PATCH SITENOT" D SITENOT^FSCSTUPN(PATCH,.VALMCNT) Q
|
|---|
| 17 | .I FSCSTU="PATCH ALLNOT" D ALLNOT^FSCSTUPN(SITE,.VALMCNT) Q
|
|---|
| 18 | .I FSCSTU="PATCH PACKNOT" D PACKNOT^FSCSTUPN(SITE,MODULE,.VALMCNT) Q
|
|---|
| 19 | .I FSCSTU="PATCH TEST" D TEST^FSCSTUPT(PATCH,.VALMCNT) Q
|
|---|
| 20 | .I FSCSTU="PATCH TESTSITE" D SITE^FSCSTUPT(SITE,.VALMCNT) Q
|
|---|
| 21 | .I FSCSTU="PATCH TESTPACK" D PACK^FSCSTUPT(MODULE,.VALMCNT) Q
|
|---|
| 22 | S ^TMP("FSC INSTALLS",$J)=VALMCNT_U_VALMCNT
|
|---|
| 23 | I 'VALMCNT S VALMCNT=2,^TMP("FSC INSTALLS",$J,1,0)=" ",^TMP("FSC INSTALLS",$J,2,0)=NOMSG
|
|---|
| 24 | K ^TMP("FSC PATCH",$J)
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | HEADER ; from FSCSTUP
|
|---|
| 28 | N HDR
|
|---|
| 29 | S FSCSTU=$G(FSCSTU)
|
|---|
| 30 | S HDR="Site Tracking"
|
|---|
| 31 | I FSCSTU="PATCH SITE" S HDR=HDR_" - Patch "_$P($G(^A1AE(11005,+$G(PATCH),0)),U)_" installed at these sites"
|
|---|
| 32 | I FSCSTU="PATCH SITENOT" S HDR=HDR_" - Patch "_$P($G(^A1AE(11005,+$G(PATCH),0)),U)_" is NOT installed at these sites"
|
|---|
| 33 | I FSCSTU="PATCH ALL" S HDR=HDR_" - "_$P($G(^FSC("SITE",+$G(SITE),0)),U)_" patch installs backto "_$$FMTE^XLFDT($G(DATE,DT))
|
|---|
| 34 | I FSCSTU="PATCH ALLNOT" S HDR=HDR_" - "_$P($G(^FSC("SITE",+$G(SITE),0)),U)_" patches NOT installed"
|
|---|
| 35 | I FSCSTU="PATCH PACK" S HDR=HDR_" - "_$P($G(^FSC("SITE",+$G(SITE),0)),U)_" patches for "_$P($G(^FSC("MOD",+$G(MODULE),0)),U)
|
|---|
| 36 | I FSCSTU="PATCH PACKNOT" S HDR=HDR_" - "_$P($G(^FSC("SITE",+$G(SITE),0)),U)_" patches NOT installed for "_$P($G(^FSC("MOD",+$G(MODULE),0)),U)
|
|---|
| 37 | I FSCSTU="PATCH TEST" S HDR=HDR_" - Test patch "_$P($G(^A1AE(11005,+$G(PATCH),0)),U)_" installed at these sites"
|
|---|
| 38 | I FSCSTU="PATCH TESTSITE" S HDR=HDR_" - Test patch installs at "_$P($G(^FSC("SITE",+$G(SITE),0)),U)
|
|---|
| 39 | I FSCSTU="PATCH TESTPACK" S HDR=HDR_" - Test patch installs for "_$P($G(^FSC("MOD",+$G(MODULE),0)),U)
|
|---|
| 40 | S VALMHDR(1)=HDR
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | VERINST(PACKAGE,DOMAIN) ; $$(package,domain) -> current version#
|
|---|
| 44 | N APP,SITENUM
|
|---|
| 45 | S DOMAIN=$P($G(^DIC(4.2,+DOMAIN,0)),U)
|
|---|
| 46 | I '$L(DOMAIN) Q ""
|
|---|
| 47 | S SITENUM=$O(^NTS(2050,"AE",DOMAIN,0))
|
|---|
| 48 | I 'SITENUM Q ""
|
|---|
| 49 | S APP=+$O(^DIC(120102,"AP",PACKAGE,0))
|
|---|
| 50 | I 'APP Q ""
|
|---|
| 51 | Q $P($G(^NTS(2050,SITENUM,8,APP,0)),U,7)
|
|---|
