Return to DDSCOM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSCOM.m, revision 1.1.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.