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
|
Rev | Line | |
---|
[641] | 1 | XBRSRCH1 ; 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 | ;
|
---|
| 6 | CHECK ; 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.