source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDSCOM.m@ 862

Last change on this file since 862 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1DDSCOM ;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.
4COM ;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
29CHLP ;
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
40HE ;;Exit - Exit the form.
41HC ;;Close - Close the window and return to the previous level.
42HS ;;Save - Save all changes made during the edit session.
43HN ;;Next Page - Go to the next page.
44HR ;;Refresh - Repaint the screen.
Note: See TracBrowser for help on using the repository browser.