Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXLR.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/PXRMEXLR.m
r628 r636 1 PXRMEXLR ; SLC/PKR/PJH - List Manager routines for existing repository entries. ;0 7/30/20072 ;;2.0;CLINICAL REMINDERS; **6**;Feb 04, 2005;Build 1231 PXRMEXLR ; SLC/PKR/PJH - List Manager routines for existing repository entries. ;01/10/2003 2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005 3 3 ;================================================== 4 4 CHF ;Create a host file containing repository entries. … … 50 50 ;Rebuild the list for List Manager to display. 51 51 K ^TMP("PXRMEXLR",$J) 52 D REXL^PXRMLIST("PXRMEXLR") 52 D RE^PXRMLIST(.RELIST,.IEN) 53 M ^TMP("PXRMEXLR",$J)=RELIST 54 S VALMCNT=RELIST("VALMCNT") 55 F IND=1:1:VALMCNT S ^TMP("PXRMEXLR",$J,"IDX",IND,IND)=IEN(IND) 53 56 ; 54 57 S VALMHDR(1)="Deleted "_DELLIST("COUNT")_" Exchange File" … … 61 64 ; 62 65 ;================================================== 66 DELHIST ;Get a list of repository installation entries and delete them. 67 ;Save the original list, it contains the selected repository entries. 68 N VALMYO 69 M VALMYO=VALMY 70 N IHIND,IND,RIEN,TEMP,VALMY 71 N VALMBG,VALMLST 72 ; 73 S VALMBG=1,VALMLST=+$O(^TMP("PXRMEXIH",$J,"IDX",""),-1) 74 ;Get the list to delete. 75 D EN^VALM2(XQORNOD(0)) 76 ;If there is no list quit. 77 I '$D(VALMY) Q 78 S IND="" 79 F S IND=$O(VALMY(IND)) Q:IND="" D 80 . S TEMP=^TMP("PXRMEXIH",$J,"SEL",IND) 81 . S RIEN=$P(TEMP,U,1) 82 . S IHIND=$P(TEMP,U,2) 83 . D DELHIST^PXRMEXU1(RIEN,IHIND) 84 ;Rebuild the display list. 85 D HISTLIST^PXRMEXLC(.VALMYO,.VALMCNT) 86 S VALMBCK="R" 87 Q 88 ; 89 ;================================================== 63 90 EXIT ; Exit code 64 91 D CLEAN^VALM10 … … 69 96 ; 70 97 ;================================================== 98 IH ;Get a list of repository entries and show their installation history. 99 N VALMCNT,VALMY 100 D EN^VALM2(XQORNOD(0)) 101 ;If there is no list quit. 102 I '$D(VALMY) Q 103 ;Build a history list. 104 D HISTLIST^PXRMEXLC(.VALMY,.VALMCNT) 105 D EN^VALM("PXRM EX INSTALLATION HISTORY") 106 K ^TMP("PXRMEXIH",$J) 107 S VALMBCK="R" 108 Q 109 ; 110 ;================================================== 111 INDETAIL ;Output the details of an installation. 112 N VALMBG,VALMCNT,VALMHDR,VALMLST,VALMY 113 S VALMBG=1,VALMLST=+$O(^TMP("PXRMEXIH",$J,"IDX",""),-1) 114 ;Get the list to display. 115 D EN^VALM2(XQORNOD(0)) 116 ;If there is no list quit. 117 I '$D(VALMY) Q 118 D INDISP(.VALMY) 119 Q 120 ; 121 ;================================================== 122 INDISP(ARRAY) ;Display details list 123 N ACTION,CMPNT,DI,DP,ENTRY,IHIND,IND,INDEX,JND,KND 124 N NAME,NEWNAME,NLINE,RIEN,TEMP 125 K ^TMP("PXRMEXID",$J) 126 ;If there are no items then quit. 127 I '$D(ARRAY) Q 128 S (IND,NLINE)=0 129 F S IND=$O(ARRAY(IND)) Q:IND="" D 130 . S TEMP=^TMP("PXRMEXIH",$J,"SEL",IND) 131 . S RIEN=$P(TEMP,U,1) 132 . S IHIND=$P(TEMP,U,2) 133 . S TEMP=^PXD(811.8,RIEN,0) 134 . S ENTRY=$E($P(TEMP,U,1),1,38) 135 . S ENTRY=$$LJ^XLFSTR(ENTRY,38," ") 136 . S DP=$$FMTE^XLFDT($P(TEMP,U,3),"5Z") 137 . S DI=$$FMTE^XLFDT(^PXD(811.8,RIEN,130,IHIND,0),"5Z") 138 . I NLINE>1 D 139 .. S NLINE=NLINE+1 140 .. S ^TMP("PXRMEXID",$J,NLINE,0)="------------------------------------------------------------------------------" 141 . S NLINE=NLINE+1 142 . S ^TMP("PXRMEXID",$J,NLINE,0)=ENTRY_" "_DP_" "_DI 143 .;Write the header line here. 144 . S NLINE=NLINE+1 145 . S ^TMP("PXRMEXID",$J,NLINE,0)=" Component Action New Name" 146 . S CMPNT="" 147 . S JND=0 148 . F S JND=$O(^PXD(811.8,RIEN,130,IHIND,1,JND)) Q:JND="" D 149 .. S TEMP=^PXD(811.8,RIEN,130,IHIND,1,JND,0) 150 .. I $P(TEMP,U,2)'=CMPNT D 151 ... S NLINE=NLINE+1 152 ... S ^TMP("PXRMEXID",$J,NLINE,0)=" " 153 ... S CMPNT=$P(TEMP,U,2) 154 ... S NLINE=NLINE+1 155 ... S ^TMP("PXRMEXID",$J,NLINE,0)=CMPNT 156 .. S INDEX=$$RJ^XLFSTR($P(TEMP,U,1),4," ") 157 .. S NAME=$E($P(TEMP,U,3),1,36) 158 .. S NAME=$$LJ^XLFSTR(NAME,36," ") 159 .. S ACTION=$P(TEMP,U,4) 160 .. S NEWNAME=$E($P(TEMP,U,5),1,36) 161 .. S NEWNAME=$$LJ^XLFSTR(NEWNAME,36," ") 162 .. S NLINE=NLINE+1 163 .. S ^TMP("PXRMEXID",$J,NLINE,0)=INDEX_" "_NAME_" "_ACTION_" "_NEWNAME 164 ..;If there are Additional Details add them to the display. 165 .. S KND=0 166 .. F S KND=$O(^PXD(811.8,RIEN,130,IHIND,1,JND,1,KND)) Q:KND="" D 167 ... S NLINE=NLINE+1 168 ... S ^TMP("PXRMEXID",$J,NLINE,0)=^PXD(811.8,RIEN,130,IHIND,1,JND,1,KND,0) 169 . S NLINE=NLINE+1 170 . S ^TMP("PXRMEXID",$J,NLINE,0)=" " 171 S VALMHDR(1)=^PXD(811.8,RIEN,0)_" "_^TMP("PXRMEXID",$J,1,0) 172 S VALMCNT=NLINE 173 D EN^VALM("PXRM EX INSTALLATION DETAIL") 174 K ^TMP("PXRMEXID",$J) 175 S VALMBCK="R" 176 Q 177 ; 178 ;================================================== 71 179 INSTALL ;Get a list of repository entries and install them. 72 180 N IND,PXRMRIEN,VALMY … … 79 187 F S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE) D 80 188 .;Get the repository ien. 81 . S PXRMRIEN=^TMP("PXRMEXLR",$J," SEL",IND)189 . S PXRMRIEN=^TMP("PXRMEXLR",$J,"IDX",IND,IND) 82 190 .;The list template calls INSTALL^PXRMEXLI 83 191 . D EN^VALM("PXRM EX LIST COMPONENTS") … … 98 206 ; 99 207 ;================================================== 208 IS ;Get a list of packed reminders and print the installation summary. 209 N VALMY 210 D EN^VALM2(XQORNOD(0)) 211 ;If there is no list quit. 212 I '$D(VALMY) Q 213 Q 214 ; 215 ;================================================== 100 216 MIENLIST(LIST) ;Get a list of List Manager repository entries and turn it 101 217 ;into iens. … … 108 224 F S IND=$O(VALMY(IND)) Q:+IND=0 D 109 225 . S COUNT=COUNT+1 110 . ;S IEN=^TMP("PXRMEXLR",$J,"IDX",IND,IND) 111 . S IEN=^TMP("PXRMEXLR",$J,"SEL",IND) 226 . S IEN=^TMP("PXRMEXLR",$J,"IDX",IND,IND) 112 227 . S LIST(IEN)="" 113 228 S LIST("COUNT")=COUNT … … 117 232 PEXIT ;PXRM EXCH INSTALLATION MENU protocol exit code 118 233 S VALMSG="+ Next Screen - Prev Screen ?? More Actions" 119 Q 120 ; 234 ;Reset after page up/down etc 235 D XQORM 236 Q 237 ; 238 ;================================================== 239 XQORM S XQORM("#")=$O(^ORD(101,"B","PXRM EXCH SELECT HISTORY",0))_U_"1:"_VALMCNT 240 S XQORM("A")="Select Action: " 241 Q 242 ; 243 ;================================================== 244 XSEL ;PXRM EXCH SELECT HISTORY validation 245 N ARRAY,CNT,SELECT,SEL 246 S SELECT=$P(XQORNOD(0),"=",2) 247 I '$$VALID^PXRMEXLD(SELECT) S VALMBCK="R" Q 248 ;Build array of selected items 249 F CNT=1:1 S SEL=$P(SELECT,",",CNT) Q:'SEL D 250 .S ARRAY(SEL)="" 251 ; 252 ;Display Selected Histories 253 D INDISP(.ARRAY) 254 Q
Note:
See TracChangeset
for help on using the changeset viewer.