Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XINDX52

XINDX52.m

Go to the documentation of this file.
  1. XINDX52 ;SF-ISC/RWF - Add to list other routines called ;3/26/98 08:43
  1. ;;7.3;TOOLKIT;**20,140**;Apr 25, 1995;Build 40
  1. ; Per VHA Directive 2004-038, this routine should not be modified.
  1. L1 S RTN="$",INDLC=0
  1. ;Loop thru routines and see what is called
  1. 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
  1. S RTN="$",F52=0
  1. ;Look for routines that haven't been INDEXed
  1. 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
  1. G L1:F52
  1. K I52,F52 Q
  1. L21 ;Check that should add to list
  1. 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)
  1. 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
  1. I X'["&",X'["@" S ^UTILITY($J,X)="" Q
  1. CASE(%) ;Convert LC to UC.
  1. Q $TR(%,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")