source: FOIAVistA/trunk/r/NOIS-FSC/FSCLMIPX.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1FSCLMIPX ;SLC/STAFF-NOIS List Manager - Installs Patches ;11/15/97 18:49
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ENTRY ; 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 ;
27HEADER ; 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 ;
43VERINST(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)
Note: See TracBrowser for help on using the repository browser.