source: IHS-VA_UTILITIES-XB/trunk/XBRSRCH1.m@ 1745

Last change on this file since 1745 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 507 bytes
RevLine 
[641]1XBRSRCH1 ; IHS/ADC/GTH - COMMON CHECK LOGIC ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; Part of XBRSRCH
5 ;
6CHECK ; EXCLUDE ^%DT,^DIC,^DIK,^DIQ, AND GLOBALS
7 Q:Y=""
8 Q:$E(Y)=""""
9 Q:$E(Y,1,3)="%DT"
10 Q:$E(Y,1,3)="DIC"
11 Q:$E(Y,1,3)="DIK"
12 Q:$E(Y,1,3)="DIQ"
13 S X0=$F(Y,")"),X1=$F(Y,"("),X2=$F(Y," ")
14 S:'X0 X0=999
15 S:'X1 X1=999
16 S:'X2 X2=888
17 Q:X0<X2
18 Q:X1<X2
19 S XBRSRCH("FOUND")=1
20 S YY=$P(Y," ",1),YY=$P(YY,",",1),YY=$P(YY,")",1),YY=$P(YY,":",1)
21 S:YY]"" ^UTILITY("XBRSRCH",$J,YY)=""
22 Q
23 ;
Note: See TracBrowser for help on using the repository browser.