Return to DDSCOM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSCOM.m, revision 1.1

1.1     ! snw         1: DDSCOM ;SFISC/MLH-COMMAND UTILS ;10:09 AM  29 Jun 1994;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: COM    ;Command line prompt
        !             5:        D:$G(@DDSREFT@("HLP"))>0 HLP^DDSMSG()
        !             6:        K DTOUT
        !             7:        I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D
        !             8:        . S DIR(0)="SO^c:CLOSE;r:REFRESH;"
        !             9:        . S DIR("?",1)="Close     Refresh"
        !            10:        . S DIR("B")="Close"
        !            11:        E  D
        !            12:        . S DIR(0)="SO^e:EXIT"_$S($D(DDSFDO)[0:";s:SAVE",1:"")_$S(DDSNP]"":";n:NEXT PAGE",1:"")_";r:REFRESH;"
        !            13:        . S DIR("?",1)="Exit     "_$S($D(DDSFDO)[0:"Save     ",1:"")_$S(DDSNP]"":"Next Page     ",1:"")_"Refresh"
        !            14:        S DIR("A")="COMMAND:",DIR("?",2)=" ",DIR("?")="Enter a command or '^' followed by a caption to jump to a specific field."
        !            15:        S DIR("??")="^D CHLP^DDSCOM"
        !            16:        D:'$G(DDSKM)
        !            17:        . K DDH,DDQ
        !            18:        . S DDH=3
        !            19:        . S DDH(1,"T")=DIR("?",1),DDH(2,"T")=DIR("?",2),DDH(3,"T")=DIR("?")
        !            20:        . D SC^DDSU
        !            21:        S DDM=1 K DDSKM
        !            22:        S DIR0=IOSL-1_U_($L(DIR("A"))+1)_"^30^"_(IOSL-1)_"^0"
        !            23:        D ^DIR K DIR,DUOUT,DIROUT,DIRUT
        !            24:        D:X="Close"
        !            25:        . S:DDACT="N" Y="c"
        !            26:        . S Y(0)="CLOSE"
        !            27:        . S:DDACT'="N" (X,Y,Y(0))=""
        !            28:        Q
        !            29: CHLP   ;
        !            30:        K DDH,DDQ
        !            31:        S DDH=0,DDS3CD=$P(DIR(0),U,2)
        !            32:        F DDS3PC=1:1:$L(DDS3CD,";") D
        !            33:        . S DDS3C=$C($A($P($P(DDS3CD,";",DDS3PC),":"))-32)
        !            34:        . I "^E^C^S^N^R^"[(U_DDS3C_U) D
        !            35:        .. S DDH=DDH+1
        !            36:        .. S DDH(DDH,"T")=$P($T(@("H"_DDS3C)),";",3,999)
        !            37:        D:DDH>0 SC^DDSU
        !            38:        K DDS3C,DDS3CD,DDS3PC
        !            39:        Q
        !            40: HE     ;;Exit       - Exit the form.
        !            41: HC     ;;Close      - Close the window and return to the previous level.
        !            42: HS     ;;Save       - Save all changes made during the edit session.
        !            43: HN     ;;Next Page  - Go to the next page.
        !            44: HR     ;;Refresh    - Repaint the screen.