|
Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
789 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | %INDX52 ;SF-ISC/RWF - Add to list other routines called ;11/29/93 12:27 ;
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | L1 S RTN="$",INDLC=0
|
|---|
| 4 | 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
|
|---|
| 5 | S RTN="$",F52=0
|
|---|
| 6 | F I52=0:0 S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" I RTN'=1,'$D(^UTILITY($J,1,RTN)) D LOAD^%INDEX,BEG^%INDEX S F52=1
|
|---|
| 7 | G L1:F52
|
|---|
| 8 | K I52,F52 Q
|
|---|
| 9 | L21 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)
|
|---|
| 10 | 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 ^%INDX1
|
|---|
| 11 | S ^UTILITY($J,X)="" Q
|
|---|
| 12 | CASE ;Convert LC to UC.
|
|---|
| 13 | S CM=$TR(CM,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
