| 1 | DIP31 ;SFISC/TKW-ASK USER QUESTIONS ABOUT HEADING ;7:19 AM 27 May 1999
|
|---|
| 2 | ;;22.0;VA FileMan;**2**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | HQ N DISAVX,Y,DA,DIZ S DISAVX=X K DIR,DTOUT,DUOUT,DIRUT
|
|---|
| 5 | G:$D(DISUPNO)!($D(DIPCRIT)) HQ1 S DISUPNO=0,DIPCRIT=0
|
|---|
| 6 | I $D(DIS)>9 S DIZ(1)=$$EZBLD^DIALOG(8006),DIZ(2)=$$EZBLD^DIALOG(8038)
|
|---|
| 7 | E S DIZ(1)=$$EZBLD^DIALOG(8007),DIZ(2)=$$EZBLD^DIALOG(8037)
|
|---|
| 8 | S DIR("A")=$$EZBLD^DIALOG(8008) D BLD^DIALOG(8005,.DIZ,"","DIR(""?"")")
|
|---|
| 9 | S DIR("B")=X,DIR(0)="FOU" D ^DIR K DIR G Q:$D(DIRUT)
|
|---|
| 10 | Q:X="" I "SC"'[X,"CS"'[X Q
|
|---|
| 11 | W ! I X["S" S DISUPNO=1 D BLD^DIALOG(8010,.DIZ,"","DIR") W !," ",DIR
|
|---|
| 12 | I X["C" S DIPCRIT=1,DIZ=DIZ(2) D BLD^DIALOG(8011,DIZ,"","DIR") W !," ",DIR
|
|---|
| 13 | W !!
|
|---|
| 14 | HQ1 D BLD^DIALOG(8009,"","","DIR(""?"")")
|
|---|
| 15 | S DIR("A")=$$EZBLD^DIALOG(8012),DIR("B")=DISAVX,DIR(0)="FOU^^K:X]""""&(""SC""[X!(""CS""[X)) X" D ^DIR K DIR G Q
|
|---|
| 16 | ;
|
|---|
| 17 | Q S:$D(DUOUT)!($D(DTOUT)) X="^" Q
|
|---|
| 18 | ;DIALOG #8005 'There are two different options:'
|
|---|
| 19 | ; #8006 'Number of Matches from the search'
|
|---|
| 20 | ; #8007 'heading when there are no records to print'
|
|---|
| 21 | ; #8008 'Heading/S/C'
|
|---|
| 22 | ; #8009 'Accept default heading or enter a custom heading...'
|
|---|
| 23 | ; #8010 '** Suppress the...'
|
|---|
| 24 | ; #8011 '** Print...criteria in heading.'
|
|---|
| 25 | ; #8012 'Heading'
|
|---|
| 26 | ; #8037 'sort'
|
|---|
| 27 | ; #8038 'search'
|
|---|
