Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

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. ;08/08/2007
    2  ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
     1PXRMEXLI ; SLC/PKR - List Manager routines for repository entry install. ;01/10/2003
     2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
    33 ;
    44 ;================================================
    55INSALL ;Install all components in a repository entry.
    66 N IND,INSTALL
     7 K ^TMP("PXRMEXIA",$J)
     8 ;Set the install date and time.
     9 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
    710 ;Initialize the name change storage.
    811 K PXRMNMCH
     
    4649 I FILENUM=0 D
    4750 . D RTNLD^PXRMEXIC(PXRMRIEN,START,END,.ATTR,.RTN)
    48  . D CHECKSUM^PXRMEXCS(.ATTR,START,END)
    4951 . S ACTION=$$GETRACT^PXRMEXCF(.ATTR,.NEWNAME,.PXRMNMCH,.RTN,EXISTS)
    5052 .;Save what was done for the installation summary.
     
    5658 . I FIELDNUM=.001 S TEMP=^PXD(811.8,PXRMRIEN,100,(START+1),0)
    5759 . 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)
    6061 . S ACTION=$$GETFACT^PXRMEXFI(PT01,.ATTR,.NEWPT01,.PXRMNMCH,EXISTS)
    6162 .;Save what was done for the installation summary.
     
    9091 I '$D(VALMY) Q
    9192 ;
     93 K ^TMP("PXRMEXIA",$J)
     94 ;Set the install date and time.
     95 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
     96 ;
    9297 ;Initialize the name change storage.
    9398 K PXRMNMCH
    9499 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)
    96102 ;
    97103 ;If anything was installed rebuild the display.
     
    109115 I '$D(^PXD(811.8,PXRMRIEN,120)) D CLIST^PXRMEXU1(.PXRMRIEN)
    110116 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^XLFDT
    114  S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"
    115117 ;Format the component list for display.
    116118 D CDISP^PXRMEXLC(PXRMRIEN)
     
    120122 Q
    121123 ;
    122  ;================================================
    123124 ;Exit action added to PXRM EXCH INSTALL MENU
    124125PEXIT ;PXRM EXCH INSTALL MENU protocol exit code
     
    128129 Q
    129130 ;
    130  ;================================================
    131131XQORM S XQORM("#")=$O(^ORD(101,"B","PXRM EXCH SELECT COMPONENT",0))_U_"1:"_VALMCNT
    132132 S XQORM("A")="Select Action: "
    133133 Q
    134134 ;
    135  ;================================================
    136135XSEL ;PXRM EXCH SELECT COMPONENT validation
    137136 N CNT,SELECT,SEL,PXRMDONE
     
    140139 ;
    141140 ;Sort selections into ascending sequence order
    142  D ORDER^PXRMEXLC(.SELECT,1)
     141 D ORDER^PXRMEXLD(.SELECT,1)
    143142 ;
    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.
    146145 S ^TMP("PXRMEXIA",$J,"DT")=$$NOW^XLFDT
    147  S ^TMP("PXRMEXIA",$J,"TYPE")="INTERACTIVE"
    148146 ;
    149147 ;Install selected component
Note: See TracChangeset for help on using the changeset viewer.