Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXLI.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMEXLI.m (modified) (8 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXLI.m

@@ -1 @@
-PXRMEXLI ; SLC/PKR - List Manager routines for repository entry install. ;08/08/2007
- ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+PXRMEXLI ; SLC/PKR - List Manager routines for repository entry install. ;01/10/2003
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  ;
  ;================================================
 INSALL ;Install all components in a repository entry.
  N IND,INSTALL
+ K ^TMP("PXRMEXIA",$J)
+ ;Set the install date and time.
+ S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
  ;Initialize the name change storage.
  K PXRMNMCH
@@ -46 +49 @@
  I FILENUM=0 D
  . D RTNLD^PXRMEXIC(PXRMRIEN,START,END,.ATTR,.RTN)
- . D CHECKSUM^PXRMEXCS(.ATTR,START,END)
  . S ACTION=$$GETRACT^PXRMEXCF(.ATTR,.NEWNAME,.PXRMNMCH,.RTN,EXISTS)
  .;Save what was done for the installation summary.
@@ -56 +58 @@
  . I FIELDNUM=.001 S TEMP=^PXD(811.8,PXRMRIEN,100,(START+1),0)
  . S PT01=$P(TEMP,"~",2)
- . D SETATTR^PXRMEXFI(.ATTR,FILENUM,PT01)
- . D CHECKSUM^PXRMEXCS(.ATTR,START,END)
+ . D SETATTR^PXRMEXFI(.ATTR,FILENUM)
  . S ACTION=$$GETFACT^PXRMEXFI(PT01,.ATTR,.NEWPT01,.PXRMNMCH,EXISTS)
  .;Save what was done for the installation summary.
@@ -90 +91 @@
  I '$D(VALMY) Q
  ;
+ K ^TMP("PXRMEXIA",$J)
+ ;Set the install date and time.
+ S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
+ ;
  ;Initialize the name change storage.
  K PXRMNMCH
  S (IND,INSTALL)=0
- F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D INSCOM(IND,.INSTALL)
+ F  S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE)  D
+ .D INSCOM(IND,.INSTALL)
  ;
  ;If anything was installed rebuild the display.
@@ -109 +115 @@
  I '$D(^PXD(811.8,PXRMRIEN,120)) D CLIST^PXRMEXU1(.PXRMRIEN)
  I PXRMRIEN=-1 Q
- K ^TMP("PXRMEXIA",$J),^TMP("PXRMEXIAD",$J)
- ;Set the install date and time and type.
- S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
- S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"
  ;Format the component list for display.
  D CDISP^PXRMEXLC(PXRMRIEN)
@@ -120 +122 @@
  Q
  ;
- ;================================================
  ;Exit action added to PXRM EXCH INSTALL MENU
 PEXIT ;PXRM EXCH INSTALL MENU protocol exit code
@@ -128 +129 @@
  Q
  ;
- ;================================================
 XQORM S XQORM("#")=$O(^ORD(101,"B","PXRM EXCH SELECT COMPONENT",0))_U_"1:"_VALMCNT
  S XQORM("A")="Select Action: "
  Q
  ;
- ;================================================
 XSEL ;PXRM EXCH SELECT COMPONENT validation
  N CNT,SELECT,SEL,PXRMDONE
@@ -140 +139 @@
  ;
  ;Sort selections into ascending sequence order
- D ORDER^PXRMEXLC(.SELECT,1)
+ D ORDER^PXRMEXLD(.SELECT,1)
  ;
- K ^TMP("PXRMEXIA",$J),^TMP("PXRMEXIAD",$J)
- ;Set the install date and time and type.
+ K ^TMP("PXRMEXIA",$J)
+ ;Set the install date and time.
  S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
- S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"
  ;
  ;Install selected component