Return to DDSCOM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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.