Return to DIP31.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIP31.m, revision 1.1

1.1     ! snw         1: DIP31  ;SFISC/TKW-ASK USER QUESTIONS ABOUT HEADING ;9/8/94  12:53
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             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:        W !!,"  *************************"
        !             7:        I $D(DIS)>9 S DIZ(1)=$$EZBLD^DIALOG(8006),DIZ(2)=$$EZBLD^DIALOG(8038)
        !             8:        E  S DIZ(1)=$$EZBLD^DIALOG(8007),DIZ(2)=$$EZBLD^DIALOG(8037)
        !             9:        S DIR("A")=$$EZBLD^DIALOG(8008) D BLD^DIALOG(8005,.DIZ,"","DIR(""?"")")
        !            10:        S DIR("B")=X,DIR(0)="FO" D ^DIR K DIR G Q:$D(DIRUT)
        !            11:        Q:X=""  I "SC"'[X,"CS"'[X Q
        !            12:        W ! I X["S" S DISUPNO=1 D BLD^DIALOG(8010,.DIZ,"","DIR") W !,"  ",DIR
        !            13:        I X["C" S DIPCRIT=1,DIZ=DIZ(2) D BLD^DIALOG(8011,DIZ,"","DIR") W !,"  ",DIR
        !            14:        W !!
        !            15: HQ1    D BLD^DIALOG(8009,"","","DIR(""?"")")
        !            16:        S DIR("A")=$$EZBLD^DIALOG(8012),DIR("B")=DISAVX,DIR(0)="FO^^K:X]""""&(""SC""[X!(""CS""[X)) X" D ^DIR K DIR G Q
        !            17:        ;
        !            18: Q      S:$D(DUOUT)!($D(DTOUT)) X="^" Q
        !            19:        ;DIALOG #8005  'There are two different options:'
        !            20:        ;       #8006  'Number of Matches from the search'
        !            21:        ;       #8007  'heading when there are no records to print'
        !            22:        ;       #8008  'Heading/S/C'
        !            23:        ;       #8009  'Accept default heading or enter a custom heading...'
        !            24:        ;       #8010  '** Suppress the...'
        !            25:        ;       #8011  '** Print...criteria in heading.'
        !            26:        ;       #8012  'Heading'
        !            27:        ;       #8037 'sort'
        !            28:        ;       #8038  'search'