| 1 | DDSCOM ;SFISC/MLH-COMMAND UTILS ;10:09 AM 29 Jun 1994
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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.
|
|---|
