DDSCOM.m

DDSCOM ;SFISC/MLH-COMMAND UTILS ;10:09 AM  29 Jun 1994

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

COM ;Command line prompt

 D:$G(@DDSREFT@("HLP"))>0 HLP^DDSMSG()

 K DTOUT

 I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D

 . S DIR(0)="SO^c:CLOSE;r:REFRESH;"

 . S DIR("?",1)="Close     Refresh"

 . S DIR("B")="Close"

 E  D

 . S DIR(0)="SO^e:EXIT"_$S($D(DDSFDO)[0:";s:SAVE",1:"")_$S(DDSNP]"":";n:NEXT PAGE",1:"")_";r:REFRESH;"

 . S DIR("?",1)="Exit     "_$S($D(DDSFDO)[0:"Save     ",1:"")_$S(DDSNP]"":"Next Page     ",1:"")_"Refresh"

 S DIR("A")="COMMAND:",DIR("?",2)=" ",DIR("?")="Enter a command or '^' followed by a caption to jump to a specific field."

 S DIR("??")="^D CHLP^DDSCOM"

 D:'$G(DDSKM)

 . K DDH,DDQ

 . S DDH=3

 . S DDH(1,"T")=DIR("?",1),DDH(2,"T")=DIR("?",2),DDH(3,"T")=DIR("?")

 . D SC^DDSU

 S DDM=1 K DDSKM

 S DIR0=IOSL-1_U_($L(DIR("A"))+1)_"^30^"_(IOSL-1)_"^0"

 D ^DIR K DIR,DUOUT,DIROUT,DIRUT

 D:X="Close"

 . S:DDACT="N" Y="c"

 . S Y(0)="CLOSE"

 . S:DDACT'="N" (X,Y,Y(0))=""

 Q

CHLP ;

 K DDH,DDQ

 S DDH=0,DDS3CD=$P(DIR(0),U,2)

 F DDS3PC=1:1:$L(DDS3CD,";") D

 . S DDS3C=$C($A($P($P(DDS3CD,";",DDS3PC),":"))-32)

 . I "^E^C^S^N^R^"[(U_DDS3C_U) D

 .. S DDH=DDH+1

 .. S DDH(DDH,"T")=$P($T(@("H"_DDS3C)),";",3,999)

 D:DDH>0 SC^DDSU

 K DDS3C,DDS3CD,DDS3PC

 Q

HE ;;Exit       - Exit the form.

HC ;;Close      - Close the window and return to the previous level.

HS ;;Save       - Save all changes made during the edit session.

HN ;;Next Page  - Go to the next page.

HR ;;Refresh    - Repaint the screen.

DDSCOM    ;SFISC/MLH-COMMAND UTILS ;10:09 AM  29 Jun 1994

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

COM       ;Command line prompt

 +1        IF $GET(@DDSREFT@("HLP"))>0

               DO HLP^DDSMSG()

 +2        KILL DTOUT

 +3        IF DDSSC>1!$GET(DDSSEL)!$PIECE(DDSSC(DDSSC),U,4)

               Begin DoDot:1

 +4                SET DIR(0)="SO^c:CLOSE;r:REFRESH;"

 +5                SET DIR("?",1)="Close     Refresh"

 +6                SET DIR("B")="Close"

               End DoDot:1

 +7       IF '$TEST

               Begin DoDot:1

 +8                SET DIR(0)="SO^e:EXIT"_$SELECT($DATA(DDSFDO)[0:";s:SAVE",1:"")_$SELECT(DDSNP]"":";n:NEXT PAGE",1:"")_";r:REFRESH;"

 +9                SET DIR("?",1)="Exit     "_$SELECT($DATA(DDSFDO)[0:"Save     ",1:"")_$SELECT(DDSNP]"":"Next Page     ",1:"")_"Refresh"

               End DoDot:1

 +10       SET DIR("A")="COMMAND:"

           SET DIR("?",2)=" "

           SET DIR("?")="Enter a command or '^' followed by a caption to jump to a specific field."

 +11       SET DIR("??")="^D CHLP^DDSCOM"

 +12       IF '$GET(DDSKM)

               Begin DoDot:1

 +13               KILL DDH,DDQ

 +14               SET DDH=3

 +15               SET DDH(1,"T")=DIR("?",1)

                   SET DDH(2,"T")=DIR("?",2)

                   SET DDH(3,"T")=DIR("?")

 +16               DO SC^DDSU

               End DoDot:1

 +17       SET DDM=1

           KILL DDSKM

 +18       SET DIR0=IOSL-1_U_($LENGTH(DIR("A"))+1)_"^30^"_(IOSL-1)_"^0"

 +19       DO ^DIR

           KILL DIR,DUOUT,DIROUT,DIRUT

 +20       IF X="Close"

               Begin DoDot:1

 +21               IF DDACT="N"

                       SET Y="c"

 +22               SET Y(0)="CLOSE"

 +23               IF DDACT'="N"

                       SET (X,Y,Y(0))=""

               End DoDot:1

 +24       QUIT 

CHLP      ;

 +1        KILL DDH,DDQ

 +2        SET DDH=0

           SET DDS3CD=$PIECE(DIR(0),U,2)

 +3        FOR DDS3PC=1:1:$LENGTH(DDS3CD,";")

               Begin DoDot:1

 +4                SET DDS3C=$CHAR($ASCII($PIECE($PIECE(DDS3CD,";",DDS3PC),":"))-32)

 +5                IF "^E^C^S^N^R^"[(U_DDS3C_U)

                       Begin DoDot:2

 +6                        SET DDH=DDH+1

 +7                        SET DDH(DDH,"T")=$PIECE($TEXT(@("H"_DDS3C)),";",3,999)

                       End DoDot:2

               End DoDot:1

 +8        IF DDH>0

               DO SC^DDSU

 +9        KILL DDS3C,DDS3CD,DDS3PC

 +10       QUIT 

HE        ;;Exit       - Exit the form.

HC        ;;Close      - Close the window and return to the previous level.

HS        ;;Save       - Save all changes made during the edit session.

HN        ;;Next Page  - Go to the next page.

HR        ;;Refresh    - Repaint the screen.