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

XBRSRCH2.m

Go to the documentation of this file.
  1. XBRSRCH2 ; IHS/ADC/GTH - SEARCH INPUT TRANSFORM FOR ROUTINES ; [ 02/07/97 3:02 PM ]
  1. ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
  1. ;
  1. ; Part of XBRSRCH
  1. ;
  1. START ;
  1. W !!,"This routine searches a file for INPUT TRANSFORMS that call routines.",!
  1. S U="^",DIC="^DIC(",DIC(0)="AEMQ"
  1. D ^DIC
  1. I Y<0 D EOJ Q
  1. S XBSINP("FILE")=+Y
  1. KILL ^UTILITY("XBRSRCH",$J)
  1. S XBSINP("MASTER")=""
  1. EN ;EP - Search for routines in Input Transforms.
  1. S XBSINP("LAST FILE")=""
  1. D SBTRACE
  1. D:$D(XBSINP("MASTER")) LIST
  1. D EOJ
  1. Q
  1. ;
  1. SBTRACE ; CHECK ALL SUB-FILES
  1. KILL XBSINPFL
  1. S XBSINP("CNT")=1,XBSINPFL(XBSINP("CNT"))=XBSINP("FILE")
  1. F XBSINP("L")=0:0 S XBSINP("LCTL")=$O(XBSINPFL("")) Q:XBSINP("LCTL")="" S XBSINP("FILE")=XBSINPFL(XBSINP("LCTL")) D SBTRACE2 S XBSINP("LCTL")=$O(XBSINPFL("")) D FILE KILL XBSINPFL(XBSINP("LCTL"))
  1. Q
  1. ;
  1. SBTRACE2 ;
  1. S XBSINP("LCTL")=0
  1. F XBSINP("L")=0:0 S XBSINP("LCTL")=$O(^DD(XBSINP("FILE"),"SB",XBSINP("LCTL"))) Q:XBSINP("LCTL")="" S XBSINP("CNT")=XBSINP("CNT")+1,XBSINPFL(XBSINP("CNT"))=XBSINP("LCTL")
  1. Q
  1. ;
  1. FILE ; CHECK ONE FILE OR SUB-FILE
  1. S XBSINP("FIELD")=0
  1. F XBSINP("L")=0:0 S XBSINP("FIELD")=$O(^DD(XBSINP("FILE"),XBSINP("FIELD"))) Q:XBSINP("FIELD")'=+XBSINP("FIELD") S X=$P(^(XBSINP("FIELD"),0),U,5,99) D:X[U FIELD
  1. Q
  1. ;
  1. FIELD ; Check Field's Input Transform.
  1. S XBRSRCH("FOUND")=0,XBSINP("COUNT")=$L(X,U)
  1. F XBSINP("I")=XBSINP("COUNT"):-1:2 S Y=$P(X,U,XBSINP("I")) D ^XBRSRCH1
  1. D:XBRSRCH("FOUND") WRITE
  1. Q
  1. ;
  1. WRITE ;
  1. I $D(XBRSRCH("NO DETAIL")) W "." Q
  1. I XBSINP("FILE")'=XBSINP("LAST FILE") S XBSINP("LAST FILE")=XBSINP("FILE") W !
  1. W !,XBSINP("FILE"),",",XBSINP("FIELD"),?20,$E(X,1,59)
  1. F XBSINP("L")=0:0 S X=$E(X,60,999) Q:X="" W !?20,$E(X,1,59)
  1. Q
  1. ;
  1. LIST ; List Routine Names.
  1. Q:'$D(^UTILITY("XBRSRCH",$J))
  1. W !!,"Sorted list of routines found:",!
  1. S X=""
  1. F XBSINP("L")=0:0 S X=$O(^UTILITY("XBRSRCH",$J,X)) Q:X="" W !,"^",X
  1. KILL ^UTILITY("XBRSRCH",$J)
  1. W !
  1. Q
  1. ;
  1. EOJ ;
  1. KILL DIC,X,X0,X1,X2,Y,YY
  1. KILL:$D(XBSINP("MASTER")) XBRSRCH
  1. KILL XBSINP,XBSINPFL
  1. Q
  1. ;