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

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1DIR0H ;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
38CMD ;
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
Note: See TracBrowser for help on using the repository browser.