| [613] | 1 | DIR0H ;SFISC/MKO-HELP FOR SCREENS ;10:59 AM 22 Jul 1994
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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
|
|---|
