Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXLI.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXLI.m
r628 r636 1 PXRMEXLI ; SLC/PKR - List Manager routines for repository entry install. ;0 8/08/20072 ;;2.0;CLINICAL REMINDERS; **6**;Feb 04, 2005;Build 1231 PXRMEXLI ; SLC/PKR - List Manager routines for repository entry install. ;01/10/2003 2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005 3 3 ; 4 4 ;================================================ 5 5 INSALL ;Install all components in a repository entry. 6 6 N IND,INSTALL 7 K ^TMP("PXRMEXIA",$J) 8 ;Set the install date and time. 9 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT 7 10 ;Initialize the name change storage. 8 11 K PXRMNMCH … … 46 49 I FILENUM=0 D 47 50 . D RTNLD^PXRMEXIC(PXRMRIEN,START,END,.ATTR,.RTN) 48 . D CHECKSUM^PXRMEXCS(.ATTR,START,END)49 51 . S ACTION=$$GETRACT^PXRMEXCF(.ATTR,.NEWNAME,.PXRMNMCH,.RTN,EXISTS) 50 52 .;Save what was done for the installation summary. … … 56 58 . I FIELDNUM=.001 S TEMP=^PXD(811.8,PXRMRIEN,100,(START+1),0) 57 59 . S PT01=$P(TEMP,"~",2) 58 . D SETATTR^PXRMEXFI(.ATTR,FILENUM,PT01) 59 . D CHECKSUM^PXRMEXCS(.ATTR,START,END) 60 . D SETATTR^PXRMEXFI(.ATTR,FILENUM) 60 61 . S ACTION=$$GETFACT^PXRMEXFI(PT01,.ATTR,.NEWPT01,.PXRMNMCH,EXISTS) 61 62 .;Save what was done for the installation summary. … … 90 91 I '$D(VALMY) Q 91 92 ; 93 K ^TMP("PXRMEXIA",$J) 94 ;Set the install date and time. 95 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT 96 ; 92 97 ;Initialize the name change storage. 93 98 K PXRMNMCH 94 99 S (IND,INSTALL)=0 95 F S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE) D INSCOM(IND,.INSTALL) 100 F S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE) D 101 .D INSCOM(IND,.INSTALL) 96 102 ; 97 103 ;If anything was installed rebuild the display. … … 109 115 I '$D(^PXD(811.8,PXRMRIEN,120)) D CLIST^PXRMEXU1(.PXRMRIEN) 110 116 I PXRMRIEN=-1 Q 111 K ^TMP("PXRMEXIA",$J),^TMP("PXRMEXIAD",$J)112 ;Set the install date and time and type.113 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT114 S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"115 117 ;Format the component list for display. 116 118 D CDISP^PXRMEXLC(PXRMRIEN) … … 120 122 Q 121 123 ; 122 ;================================================123 124 ;Exit action added to PXRM EXCH INSTALL MENU 124 125 PEXIT ;PXRM EXCH INSTALL MENU protocol exit code … … 128 129 Q 129 130 ; 130 ;================================================131 131 XQORM S XQORM("#")=$O(^ORD(101,"B","PXRM EXCH SELECT COMPONENT",0))_U_"1:"_VALMCNT 132 132 S XQORM("A")="Select Action: " 133 133 Q 134 134 ; 135 ;================================================136 135 XSEL ;PXRM EXCH SELECT COMPONENT validation 137 136 N CNT,SELECT,SEL,PXRMDONE … … 140 139 ; 141 140 ;Sort selections into ascending sequence order 142 D ORDER^PXRMEXL C(.SELECT,1)141 D ORDER^PXRMEXLD(.SELECT,1) 143 142 ; 144 K ^TMP("PXRMEXIA",$J) ,^TMP("PXRMEXIAD",$J)145 ;Set the install date and time and type.143 K ^TMP("PXRMEXIA",$J) 144 ;Set the install date and time. 146 145 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT 147 S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"148 146 ; 149 147 ;Install selected component
Note:
See TracChangeset
for help on using the changeset viewer.