|
Last change
on this file since 1654 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
507 bytes
|
| Line | |
|---|
| 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.
