source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XINDX52.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 911 bytes
Line 
1XINDX52 ;SF-ISC/RWF - Add to list other routines called ;02/06/97 16:45
2 ;;7.3;TOOLKIT;**20**;Apr 25, 1995
3L1 S RTN="$",INDLC=0
4 ;Loop thru routines and see what is called
5 F I=0:0 S RTN=$O(^UTILITY($J,1,RTN)) Q:RTN="" I '$D(^(RTN,52)) S ^(52)=1,S="$" F J=0:0 S S=$O(^UTILITY($J,1,RTN,"X",S)) Q:S="" D L21
6 S RTN="$",F52=0
7 ;Look for routines that haven't been INDEXed
8 F I52=0:0 S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" I RTN'=1,'$D(^UTILITY($J,1,RTN)) D LOAD^XINDEX,BEG^XINDEX S F52=1
9 G L1:F52
10 K I52,F52 Q
11L21 ;Check that should add to list
12 S X=$P(S," ") Q:$E(X)="%" Q:$D(^UTILITY($J,1,X)) Q:"DD^DI^XM"[$E(X,1,2) Q:"XQ^XQ1^XUS^"[$E(X,1,8)
13 X ^%ZOSF("TEST") Q:'$T ;I '$T S LAB=$P(^UTILITY($J,1,RTN,"X",S,0),",",1),LABO=0,ERR="W - Routine "_X_" is not in the current Account." G ^XINDX1
14 S ^UTILITY($J,X)="" Q
15CASE(%) ;Convert LC to UC.
16 Q $TR(%,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
Note: See TracBrowser for help on using the repository browser.