Return to DDSRUN.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSRUN.m, revision 1.1.1.1

1.1       snw         1: DDSRUN ;SFISC/MKO-RUN A FORM ;11:13 AM  20 Dec 1994
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        ;Select file
                      5:        S DDS1="RUN FORM FROM" D W^DICRW K DDS1 G:Y<0 RUNQ
                      6:        G:'$D(@(DIC_"0)")) RUNQ
                      7:        ;
                      8:        ;Select form
                      9:        W ! S DDSFILE=+Y,DIC=.403,DIC(0)="QEA",D="F"_+Y
                     10:        S DIC("S")="I $P(^(0),U,8)=+DDSFILE"
                     11:        I DUZ(0)'="@" S DIC("S")=DIC("S")_" N DDSI F DDSI=1:1:$L($P(^(0),U,2)) I DUZ(0)[$E($P(^(0),U,2),DDSI) Q"
                     12:        D IX^DIC K DIC,D G:Y<0 RUNQ
                     13:        S DR="["_$P(Y,U,2)_"]"
                     14:        ;
                     15:        ;Select page
                     16:        W ! K DIR S DIR(0)="NOA^1:999.9:1"
                     17:        S DIR("A")="Enter number of first page: ",DIR("B")=1
                     18:        D ^DIR K DIR G:$D(DIRUT) RUNQ
                     19:        K DDSPAGE S:Y'=1 DDSPAGE=Y
                     20:        ;
                     21: REC    ;Select record
                     22:        W ! S DIC=DDSFILE,DIC(0)="QEAM" D ^DIC K DIC G:Y<0 RUNQ
                     23:        S DA=+Y
                     24:        K D,DIC,X,Y D ^DDS G REC
                     25:        ;
                     26: RUNQ   K D,DIC,X,Y
                     27:        K DDSFILE,DDSPAGE,DA,DR
                     28:        K DIRUT,DTOUT,DUOUT
                     29:        Q