Return to DIR0H.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIR0H	;SFISC/MKO-HELP FOR SCREENS ;10:59 AM  22 Jul 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	S DIR0DX=DX,DIR0DY=DY
    5: 	W $P(DDGLVID,DDGLDEL,10)_$P(DDGLCLR,DDGLDEL,2)_$P(DDGLVID,DDGLDEL)
    6: 	D HLP^DDGLIBH(9231,9233,"DDSH",IOSL-1)
    7: 	;
    8: 	I $D(DDS)#2 D
    9: 	. D R^DDS3
   10: 	. I $D(DDO)#2 D
   11: 	.. I 'DDO D CMD
   12: 	.. E  D
   13: 	... K DDSH
   14: 	... S DX=0,DY=IOSL-1 X DDXY W "COMMAND:"
   15: 	... S DX=IOM-35 X IOXY W $P(DDGLVID,DDGLDEL,10)_"Press <PF1>H for help"
   16: 	E  W $P(DDGLCLR,DDGLDEL,2)
   17: 	;
   18: 	S DX=IOM-8,DY=IOSL-1 X IOXY
   19: 	W $P(DDGLVID,DDGLDEL,10)_$S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")_$S($G(DIR0("REP")):"Replace",1:"Insert ")_$P(DDGLVID,DDGLDEL,10)
   20: 	;
   21: 	S DY=$P(DIR0,U,4),DX=$P(DIR0,U,5)
   22: 	I $D(DIR("A"))=11 D
   23: 	. S DIR0X=""
   24: 	. F  S DIR0X=$O(DIR("A",DIR0X)) Q:DIR0X=""  D
   25: 	.. X IOXY
   26: 	.. W DIR("A",DIR0X)
   27: 	.. S DY=DY+1
   28: 	;
   29: 	I $D(DIR("A"))#2 D
   30: 	. X IOXY W DIR("A")
   31: 	. I $D(DDS),DDO,DY=IOSL-1 W $P(DDGLCLR,DDGLDEL)
   32: 	;
   33: 	S DIR0X=$E(DIR0A,DIR0C-DIR0DX+DIR0S,DIR0C+DIR0F-DIR0DX-1)
   34: 	S DX=DIR0S,DY=DIR0DY X IOXY W $S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")_DIR0X,$E(DIR0SP,$L(DIR0X)+1,999)
   35: 	S DX=DIR0DX X IOXY
   36: 	K DIR0DX,DIR0DY,DIR0X
   37: 	Q
   38: CMD	;
   39: 	K DDH,DDQ
   40: 	F DDH=1:1 Q:$D(DIR("?",DDH))[0  S DDH(DDH,"T")=DIR("?",DDH)
   41: 	S:$D(DIR("?"))#2 DDH(DDH,"T")=DIR("?")
   42: 	D LIST^DDSU
   43: 	Q