45 lines
1.5 KiB
Mathematica
45 lines
1.5 KiB
Mathematica
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.
|