[1768] | 1 | KIDS Distribution saved on Jul 26, 2016@15:53:57
|
---|
| 2 | Find strings or labels in routines c 2016 Jim Bell, BFP, LLC
|
---|
| 3 | **KIDS**:VWBFPFND*1.0*0^
|
---|
| 4 |
|
---|
| 5 | **INSTALL NAME**
|
---|
| 6 | VWBFPFND*1.0*0
|
---|
| 7 | "BLD",8559,0)
|
---|
| 8 | VWBFPFND*1.0*0^^0^3160726^n
|
---|
| 9 | "BLD",8559,1,0)
|
---|
| 10 | ^^1^1^3160726^
|
---|
| 11 | "BLD",8559,1,1,0)
|
---|
| 12 | See installed option VWBFPFND
|
---|
| 13 | "BLD",8559,4,0)
|
---|
| 14 | ^9.64PA^^
|
---|
| 15 | "BLD",8559,6.3)
|
---|
| 16 | 1
|
---|
| 17 | "BLD",8559,"KRN",0)
|
---|
| 18 | ^9.67PA^779.2^20
|
---|
| 19 | "BLD",8559,"KRN",.4,0)
|
---|
| 20 | .4
|
---|
| 21 | "BLD",8559,"KRN",.401,0)
|
---|
| 22 | .401
|
---|
| 23 | "BLD",8559,"KRN",.402,0)
|
---|
| 24 | .402
|
---|
| 25 | "BLD",8559,"KRN",.403,0)
|
---|
| 26 | .403
|
---|
| 27 | "BLD",8559,"KRN",.5,0)
|
---|
| 28 | .5
|
---|
| 29 | "BLD",8559,"KRN",.84,0)
|
---|
| 30 | .84
|
---|
| 31 | "BLD",8559,"KRN",3.6,0)
|
---|
| 32 | 3.6
|
---|
| 33 | "BLD",8559,"KRN",3.8,0)
|
---|
| 34 | 3.8
|
---|
| 35 | "BLD",8559,"KRN",9.2,0)
|
---|
| 36 | 9.2
|
---|
| 37 | "BLD",8559,"KRN",9.8,0)
|
---|
| 38 | 9.8
|
---|
| 39 | "BLD",8559,"KRN",9.8,"NM",0)
|
---|
| 40 | ^9.68A^1^1
|
---|
| 41 | "BLD",8559,"KRN",9.8,"NM",1,0)
|
---|
| 42 | VWBFPFND^^0^B9263114
|
---|
| 43 | "BLD",8559,"KRN",9.8,"NM","B","VWBFPFND",1)
|
---|
| 44 |
|
---|
| 45 | "BLD",8559,"KRN",19,0)
|
---|
| 46 | 19
|
---|
| 47 | "BLD",8559,"KRN",19,"NM",0)
|
---|
| 48 | ^9.68A^1^1
|
---|
| 49 | "BLD",8559,"KRN",19,"NM",1,0)
|
---|
| 50 | VWBFPFND^^0
|
---|
| 51 | "BLD",8559,"KRN",19,"NM","B","VWBFPFND",1)
|
---|
| 52 |
|
---|
| 53 | "BLD",8559,"KRN",19.1,0)
|
---|
| 54 | 19.1
|
---|
| 55 | "BLD",8559,"KRN",101,0)
|
---|
| 56 | 101
|
---|
| 57 | "BLD",8559,"KRN",409.61,0)
|
---|
| 58 | 409.61
|
---|
| 59 | "BLD",8559,"KRN",771,0)
|
---|
| 60 | 771
|
---|
| 61 | "BLD",8559,"KRN",779.2,0)
|
---|
| 62 | 779.2
|
---|
| 63 | "BLD",8559,"KRN",870,0)
|
---|
| 64 | 870
|
---|
| 65 | "BLD",8559,"KRN",8989.51,0)
|
---|
| 66 | 8989.51
|
---|
| 67 | "BLD",8559,"KRN",8989.52,0)
|
---|
| 68 | 8989.52
|
---|
| 69 | "BLD",8559,"KRN",8994,0)
|
---|
| 70 | 8994
|
---|
| 71 | "BLD",8559,"KRN","B",.4,.4)
|
---|
| 72 |
|
---|
| 73 | "BLD",8559,"KRN","B",.401,.401)
|
---|
| 74 |
|
---|
| 75 | "BLD",8559,"KRN","B",.402,.402)
|
---|
| 76 |
|
---|
| 77 | "BLD",8559,"KRN","B",.403,.403)
|
---|
| 78 |
|
---|
| 79 | "BLD",8559,"KRN","B",.5,.5)
|
---|
| 80 |
|
---|
| 81 | "BLD",8559,"KRN","B",.84,.84)
|
---|
| 82 |
|
---|
| 83 | "BLD",8559,"KRN","B",3.6,3.6)
|
---|
| 84 |
|
---|
| 85 | "BLD",8559,"KRN","B",3.8,3.8)
|
---|
| 86 |
|
---|
| 87 | "BLD",8559,"KRN","B",9.2,9.2)
|
---|
| 88 |
|
---|
| 89 | "BLD",8559,"KRN","B",9.8,9.8)
|
---|
| 90 |
|
---|
| 91 | "BLD",8559,"KRN","B",19,19)
|
---|
| 92 |
|
---|
| 93 | "BLD",8559,"KRN","B",19.1,19.1)
|
---|
| 94 |
|
---|
| 95 | "BLD",8559,"KRN","B",101,101)
|
---|
| 96 |
|
---|
| 97 | "BLD",8559,"KRN","B",409.61,409.61)
|
---|
| 98 |
|
---|
| 99 | "BLD",8559,"KRN","B",771,771)
|
---|
| 100 |
|
---|
| 101 | "BLD",8559,"KRN","B",779.2,779.2)
|
---|
| 102 |
|
---|
| 103 | "BLD",8559,"KRN","B",870,870)
|
---|
| 104 |
|
---|
| 105 | "BLD",8559,"KRN","B",8989.51,8989.51)
|
---|
| 106 |
|
---|
| 107 | "BLD",8559,"KRN","B",8989.52,8989.52)
|
---|
| 108 |
|
---|
| 109 | "BLD",8559,"KRN","B",8994,8994)
|
---|
| 110 |
|
---|
| 111 | "BLD",8559,"QUES",0)
|
---|
| 112 | ^9.62^^
|
---|
| 113 | "BLD",8559,"REQB",0)
|
---|
| 114 | ^9.611^^
|
---|
| 115 | "KRN",19,11343,-1)
|
---|
| 116 | 0^1
|
---|
| 117 | "KRN",19,11343,0)
|
---|
| 118 | VWBFPFND^Find Routine Labels or Strings^^R^^^^^^^^
|
---|
| 119 | "KRN",19,11343,1,0)
|
---|
| 120 | ^19.06^5^5^3160726^^
|
---|
| 121 | "KRN",19,11343,1,1,0)
|
---|
| 122 | This is an alternative to the %RSE that not only lists all the
|
---|
| 123 | "KRN",19,11343,1,2,0)
|
---|
| 124 | routines from RSEL, but then lists ALL the routines, whether
|
---|
| 125 | "KRN",19,11343,1,3,0)
|
---|
| 126 | there is a hit or not.
|
---|
| 127 | "KRN",19,11343,1,4,0)
|
---|
| 128 | This routine will simply display target matches, simplifying
|
---|
| 129 | "KRN",19,11343,1,5,0)
|
---|
| 130 | the review.
|
---|
| 131 | "KRN",19,11343,25)
|
---|
| 132 | ASK^VWBFPFND
|
---|
| 133 | "KRN",19,11343,"U")
|
---|
| 134 | FIND ROUTINE LABELS OR STRINGS
|
---|
| 135 | "MBREQ")
|
---|
| 136 | 0
|
---|
| 137 | "ORD",18,19)
|
---|
| 138 | 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
|
---|
| 139 | "ORD",18,19,0)
|
---|
| 140 | OPTION
|
---|
| 141 | "QUES","XPF1",0)
|
---|
| 142 | Y
|
---|
| 143 | "QUES","XPF1","??")
|
---|
| 144 | ^D REP^XPDH
|
---|
| 145 | "QUES","XPF1","A")
|
---|
| 146 | Shall I write over your |FLAG| File
|
---|
| 147 | "QUES","XPF1","B")
|
---|
| 148 | YES
|
---|
| 149 | "QUES","XPF1","M")
|
---|
| 150 | D XPF1^XPDIQ
|
---|
| 151 | "QUES","XPF2",0)
|
---|
| 152 | Y
|
---|
| 153 | "QUES","XPF2","??")
|
---|
| 154 | ^D DTA^XPDH
|
---|
| 155 | "QUES","XPF2","A")
|
---|
| 156 | Want my data |FLAG| yours
|
---|
| 157 | "QUES","XPF2","B")
|
---|
| 158 | YES
|
---|
| 159 | "QUES","XPF2","M")
|
---|
| 160 | D XPF2^XPDIQ
|
---|
| 161 | "QUES","XPI1",0)
|
---|
| 162 | YO
|
---|
| 163 | "QUES","XPI1","??")
|
---|
| 164 | ^D INHIBIT^XPDH
|
---|
| 165 | "QUES","XPI1","A")
|
---|
| 166 | Want KIDS to INHIBIT LOGONs during the install
|
---|
| 167 | "QUES","XPI1","B")
|
---|
| 168 | NO
|
---|
| 169 | "QUES","XPI1","M")
|
---|
| 170 | D XPI1^XPDIQ
|
---|
| 171 | "QUES","XPM1",0)
|
---|
| 172 | PO^VA(200,:EM
|
---|
| 173 | "QUES","XPM1","??")
|
---|
| 174 | ^D MG^XPDH
|
---|
| 175 | "QUES","XPM1","A")
|
---|
| 176 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
| 177 | "QUES","XPM1","B")
|
---|
| 178 |
|
---|
| 179 | "QUES","XPM1","M")
|
---|
| 180 | D XPM1^XPDIQ
|
---|
| 181 | "QUES","XPO1",0)
|
---|
| 182 | Y
|
---|
| 183 | "QUES","XPO1","??")
|
---|
| 184 | ^D MENU^XPDH
|
---|
| 185 | "QUES","XPO1","A")
|
---|
| 186 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
| 187 | "QUES","XPO1","B")
|
---|
| 188 | NO
|
---|
| 189 | "QUES","XPO1","M")
|
---|
| 190 | D XPO1^XPDIQ
|
---|
| 191 | "QUES","XPZ1",0)
|
---|
| 192 | Y
|
---|
| 193 | "QUES","XPZ1","??")
|
---|
| 194 | ^D OPT^XPDH
|
---|
| 195 | "QUES","XPZ1","A")
|
---|
| 196 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
| 197 | "QUES","XPZ1","B")
|
---|
| 198 | NO
|
---|
| 199 | "QUES","XPZ1","M")
|
---|
| 200 | D XPZ1^XPDIQ
|
---|
| 201 | "QUES","XPZ2",0)
|
---|
| 202 | Y
|
---|
| 203 | "QUES","XPZ2","??")
|
---|
| 204 | ^D RTN^XPDH
|
---|
| 205 | "QUES","XPZ2","A")
|
---|
| 206 | Want to MOVE routines to other CPUs
|
---|
| 207 | "QUES","XPZ2","B")
|
---|
| 208 | NO
|
---|
| 209 | "QUES","XPZ2","M")
|
---|
| 210 | D XPZ2^XPDIQ
|
---|
| 211 | "RTN")
|
---|
| 212 | 1
|
---|
| 213 | "RTN","VWBFPFND")
|
---|
| 214 | 0^1^B9263114
|
---|
| 215 | "RTN","VWBFPFND",1,0)
|
---|
| 216 | VWBFPFND ;WV/BFP/jBell Portland, OR display labels in routine(s) May 2016
|
---|
| 217 | "RTN","VWBFPFND",2,0)
|
---|
| 218 | ;;**LOCAL**;;;;Build 1
|
---|
| 219 | "RTN","VWBFPFND",3,0)
|
---|
| 220 | ;; This program is free software: you can redistribute it and/or modify
|
---|
| 221 | "RTN","VWBFPFND",4,0)
|
---|
| 222 | ;; it under the terms of the GNU General Public License as published by
|
---|
| 223 | "RTN","VWBFPFND",5,0)
|
---|
| 224 | ;; the Free Software Foundation, either version 3 of the License, or
|
---|
| 225 | "RTN","VWBFPFND",6,0)
|
---|
| 226 | ;; (at your option) any later version.
|
---|
| 227 | "RTN","VWBFPFND",7,0)
|
---|
| 228 | ;;
|
---|
| 229 | "RTN","VWBFPFND",8,0)
|
---|
| 230 | ;; This program is distributed in the hope that it will be useful,
|
---|
| 231 | "RTN","VWBFPFND",9,0)
|
---|
| 232 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 233 | "RTN","VWBFPFND",10,0)
|
---|
| 234 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 235 | "RTN","VWBFPFND",11,0)
|
---|
| 236 | ;; GNU General Public License for more details.
|
---|
| 237 | "RTN","VWBFPFND",12,0)
|
---|
| 238 | ;;
|
---|
| 239 | "RTN","VWBFPFND",13,0)
|
---|
| 240 | ;; You should have received a copy of the GNU General Public License
|
---|
| 241 | "RTN","VWBFPFND",14,0)
|
---|
| 242 | ;; along with this program. If not, see <http://www.gnu.org/licenses>
|
---|
| 243 | "RTN","VWBFPFND",15,0)
|
---|
| 244 | Q
|
---|
| 245 | "RTN","VWBFPFND",16,0)
|
---|
| 246 | ;
|
---|
| 247 | "RTN","VWBFPFND",17,0)
|
---|
| 248 | LL ;Find labels or strings
|
---|
| 249 | "RTN","VWBFPFND",18,0)
|
---|
| 250 | ;***********************************************************
|
---|
| 251 | "RTN","VWBFPFND",19,0)
|
---|
| 252 | ;*For gtm environs *
|
---|
| 253 | "RTN","VWBFPFND",20,0)
|
---|
| 254 | ;* After driving myself to Van Gogh level insanity trying *
|
---|
| 255 | "RTN","VWBFPFND",21,0)
|
---|
| 256 | ;* to remember line labels in only MY routines, or using *
|
---|
| 257 | "RTN","VWBFPFND",22,0)
|
---|
| 258 | ;* %RSE for string find and getting some several thousand *
|
---|
| 259 | "RTN","VWBFPFND",23,0)
|
---|
| 260 | ;* routine names AND being in a non-connective locale *
|
---|
| 261 | "RTN","VWBFPFND",24,0)
|
---|
| 262 | ;* (idyll fingers, etc, etc...) I finally did this routine *
|
---|
| 263 | "RTN","VWBFPFND",25,0)
|
---|
| 264 | ;* that will only list the targeted item in the routine *
|
---|
| 265 | "RTN","VWBFPFND",26,0)
|
---|
| 266 | ;* set. The immediate benefit: I still have 2 ears. *
|
---|
| 267 | "RTN","VWBFPFND",27,0)
|
---|
| 268 | ;***********************************************************
|
---|
| 269 | "RTN","VWBFPFND",28,0)
|
---|
| 270 | ;
|
---|
| 271 | "RTN","VWBFPFND",29,0)
|
---|
| 272 | Q
|
---|
| 273 | "RTN","VWBFPFND",30,0)
|
---|
| 274 | ;
|
---|
| 275 | "RTN","VWBFPFND",31,0)
|
---|
| 276 | X W !?5 F I=1:1:10 W !,$T(LL+I^VWBFPFND)
|
---|
| 277 | "RTN","VWBFPFND",32,0)
|
---|
| 278 | W !
|
---|
| 279 | "RTN","VWBFPFND",33,0)
|
---|
| 280 | Q
|
---|
| 281 | "RTN","VWBFPFND",34,0)
|
---|
| 282 | ;
|
---|
| 283 | "RTN","VWBFPFND",35,0)
|
---|
| 284 | C R !,"String: ",MATCH:30
|
---|
| 285 | "RTN","VWBFPFND",36,0)
|
---|
| 286 | I '$L(MATCH) Q
|
---|
| 287 | "RTN","VWBFPFND",37,0)
|
---|
| 288 | E W !?10,"Searching for ",$S(WHAT="L":"LABEL ",1:"STRING "),""""_MATCH_"""" G @WHERE
|
---|
| 289 | "RTN","VWBFPFND",38,0)
|
---|
| 290 | ;
|
---|
| 291 | "RTN","VWBFPFND",39,0)
|
---|
| 292 | A G @WHERE
|
---|
| 293 | "RTN","VWBFPFND",40,0)
|
---|
| 294 | ;
|
---|
| 295 | "RTN","VWBFPFND",41,0)
|
---|
| 296 | ASK N WHAT,WHERE,ANS,R,X,I,J
|
---|
| 297 | "RTN","VWBFPFND",42,0)
|
---|
| 298 | D X
|
---|
| 299 | "RTN","VWBFPFND",43,0)
|
---|
| 300 | A2 K %ZR S ANS=""
|
---|
| 301 | "RTN","VWBFPFND",44,0)
|
---|
| 302 | W !!,"(L)abel only, (S)tring match in routine set?: " R WHAT:30 Q:'$L(WHAT)
|
---|
| 303 | "RTN","VWBFPFND",45,0)
|
---|
| 304 | S WHAT=$E($$UP^XLFSTR(WHAT),1)
|
---|
| 305 | "RTN","VWBFPFND",46,0)
|
---|
| 306 | S WHERE=$S(WHAT="L":"LAB",WHAT="S":"STR",WHAT="H":"HELP",1:"LAB")
|
---|
| 307 | "RTN","VWBFPFND",47,0)
|
---|
| 308 | S ANS="C"
|
---|
| 309 | "RTN","VWBFPFND",48,0)
|
---|
| 310 | S ANS=$E($$UP^XLFSTR(ANS),1)
|
---|
| 311 | "RTN","VWBFPFND",49,0)
|
---|
| 312 | A3 D @ANS
|
---|
| 313 | "RTN","VWBFPFND",50,0)
|
---|
| 314 | G A2
|
---|
| 315 | "RTN","VWBFPFND",51,0)
|
---|
| 316 | ;
|
---|
| 317 | "RTN","VWBFPFND",52,0)
|
---|
| 318 | LAB D ^%RSEL
|
---|
| 319 | "RTN","VWBFPFND",53,0)
|
---|
| 320 | Q:$D(%ZR)#11 ;No selection array
|
---|
| 321 | "RTN","VWBFPFND",54,0)
|
---|
| 322 | D ^%ZIS U IO
|
---|
| 323 | "RTN","VWBFPFND",55,0)
|
---|
| 324 | S R="" F S R=$O(%ZR(R)) Q:R="" D
|
---|
| 325 | "RTN","VWBFPFND",56,0)
|
---|
| 326 | . S MATCH=$S('$L($G(MATCH)):"",1:MATCH)
|
---|
| 327 | "RTN","VWBFPFND",57,0)
|
---|
| 328 | . F I=1:1 S X=$T(@R+I^@R) Q:X="" S LABEL=$P(X," ") I $L(LABEL) D
|
---|
| 329 | "RTN","VWBFPFND",58,0)
|
---|
| 330 | .. I ANS="A",MATCH="" S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
|
---|
| 331 | "RTN","VWBFPFND",59,0)
|
---|
| 332 | .. I ANS="C",X[MATCH S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
|
---|
| 333 | "RTN","VWBFPFND",60,0)
|
---|
| 334 | .. I ANS="E",X=MATCH S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
|
---|
| 335 | "RTN","VWBFPFND",61,0)
|
---|
| 336 | D WR,^%ZISC
|
---|
| 337 | "RTN","VWBFPFND",62,0)
|
---|
| 338 | Q
|
---|
| 339 | "RTN","VWBFPFND",63,0)
|
---|
| 340 | ;
|
---|
| 341 | "RTN","VWBFPFND",64,0)
|
---|
| 342 | STR ;Strings in the code
|
---|
| 343 | "RTN","VWBFPFND",65,0)
|
---|
| 344 | I '$L(MATCH) W !?4,"Dude! No info!" Q
|
---|
| 345 | "RTN","VWBFPFND",66,0)
|
---|
| 346 | D ^%RSEL
|
---|
| 347 | "RTN","VWBFPFND",67,0)
|
---|
| 348 | Q:$D(%ZR)#11 ;No selection array
|
---|
| 349 | "RTN","VWBFPFND",68,0)
|
---|
| 350 | D ^%ZIS U IO
|
---|
| 351 | "RTN","VWBFPFND",69,0)
|
---|
| 352 | S R="" F S R=$O(%ZR(R)) Q:R="" D
|
---|
| 353 | "RTN","VWBFPFND",70,0)
|
---|
| 354 | . F I=1:1 S X=$T(@R+I^@R) Q:X="" D
|
---|
| 355 | "RTN","VWBFPFND",71,0)
|
---|
| 356 | .. F J=1:1:$L(X,MATCH) I X[MATCH S %ZR(R,$O(%ZR(" "),-1)+1)="+"_I_" ->"_X
|
---|
| 357 | "RTN","VWBFPFND",72,0)
|
---|
| 358 | D WR,^%ZISC
|
---|
| 359 | "RTN","VWBFPFND",73,0)
|
---|
| 360 | Q
|
---|
| 361 | "RTN","VWBFPFND",74,0)
|
---|
| 362 | ;
|
---|
| 363 | "RTN","VWBFPFND",75,0)
|
---|
| 364 | WR ;Go through %ZR array and only print path/routine name
|
---|
| 365 | "RTN","VWBFPFND",76,0)
|
---|
| 366 | ; target...
|
---|
| 367 | "RTN","VWBFPFND",77,0)
|
---|
| 368 | W !,"Searching for ",MATCH
|
---|
| 369 | "RTN","VWBFPFND",78,0)
|
---|
| 370 | S R="" F S R=$O(%ZR(R)) Q:R="" D:$O(%ZR(R,0))
|
---|
| 371 | "RTN","VWBFPFND",79,0)
|
---|
| 372 | . W !,%ZR(R)_R
|
---|
| 373 | "RTN","VWBFPFND",80,0)
|
---|
| 374 | . S N=0 F S N=$O(%ZR(R,N)) Q:'+N W !?4,%ZR(R,N)
|
---|
| 375 | "RTN","VWBFPFND",81,0)
|
---|
| 376 | Q
|
---|
| 377 | "RTN","VWBFPFND",82,0)
|
---|
| 378 | ;
|
---|
| 379 | "RTN","VWBFPFND",83,0)
|
---|
| 380 | ;fini
|
---|
| 381 | "VER")
|
---|
| 382 | 8.0^22.0
|
---|
| 383 | **END**
|
---|
| 384 | **END**
|
---|