source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDWK.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.8 KB
Line 
1DDWK ;SFISC/MKO-SCREEN EDITOR MAIN ROUTINE ;11:32 AM 25 Aug 2000
2 ;;22.0;VA FileMan;**18**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5GETKEY ;Get key sequences and defaults
6 N AU,AD,AR,AL,F1,F2,F3,F4
7 N FIND,SELECT,INSERT,REMOVE,PREVSC,NEXTSC
8 N A1,A2,A3,I,K,N,T
9 S AU=$P(DDGLKEY,U,2)
10 S AD=$P(DDGLKEY,U,3)
11 S AR=$P(DDGLKEY,U,4)
12 S AL=$P(DDGLKEY,U,5)
13 S F1=$P(DDGLKEY,U,6)
14 S F2=$P(DDGLKEY,U,7)
15 S F3=$P(DDGLKEY,U,8)
16 S F4=$P(DDGLKEY,U,9)
17 S FIND=$P(DDGLKEY,U,10)
18 S SELECT=$P(DDGLKEY,U,11)
19 S INSERT=$P(DDGLKEY,U,12)
20 S REMOVE=$P(DDGLKEY,U,13)
21 S PREVSC=$P(DDGLKEY,U,14)
22 S NEXTSC=$P(DDGLKEY,U,15)
23 ;
24 S A1="DDW(""IN"")",A2="DDW(""OT"")",A3=0
25 S (DDW("IN"),DDW("OT"))=""
26 F I=1:1 S T=$P($T(MAP+I),";;",2,999) Q:T="" D
27 . S @("K="_$P(T,";",2)),T=$P(T,";")
28 . I K]"",@A1'[(U_K) D
29 .. I $L(@A1)+$L(K)+2>255!($L(@A2)+$L(T)+1>255) D
30 ... S @A1=@A1_U,$E(@A2,$L(@A2))=""
31 ... S A3=A3+1,A1=$NA(@A1@(A3)),A2=$NA(@A2@(A3))
32 ... S (@A1,@A2)=""
33 .. S @A1=@A1_U_K
34 .. S @A2=@A2_T_U
35 S @A1=@A1_U,$E(@A2,$L(@A2))=""
36 Q
37 ;
38MAP ;Keys for main screen
39 ;;UP;AU
40 ;;DN;AD
41 ;;RT;AR
42 ;;LT;AL
43 ;;TAB;$C(9)
44 ;;PUP;F1_AU
45 ;;PUP;PREVSC
46 ;;PDN;F1_AD
47 ;;PDN;NEXTSC
48 ;;JLT;F1_AL
49 ;;JRT;F1_AR
50 ;;LB;FIND
51 ;;LB;F1_F1_AL
52 ;;LE;SELECT
53 ;;LE;F1_F1_AR
54 ;;TOP;F1_"T"
55 ;;BOT;F1_"B"
56 ;;WRT;F1_" "
57 ;;WRT;$C(12)
58 ;;WLT;$C(10)
59 ;;RUB;$C(127)
60 ;;RUB;$C(8)
61 ;;DEL;REMOVE
62 ;;DEL;F4
63 ;;DEOL;F1_F2
64 ;;BRK;$C(13)
65 ;;JN;F1_"J"
66 ;;RFT;F1_"R"
67 ;;ST;F1_"?"
68 ;;XLN;F1_"D"
69 ;;TST;F1_$C(9)
70 ;;TSALL;F1_F1_$C(9)
71 ;;LST;F1_","
72 ;;RST;F1_"."
73 ;;WRM;F2
74 ;;RPM;INSERT
75 ;;RPM;F3
76 ;;SV;F1_"S"
77 ;;SW;F1_"A"
78 ;;EX;F1_"E"
79 ;;QT;F1_"Q"
80 ;;QT;$C(5)
81 ;;HLP;F1_"H"
82 ;;DLW;$C(23)
83 ;;MRK;F1_"M"
84 ;;UMK;F1_F1_"M"
85 ;;CUT;F1_"X"
86 ;;CPY;F1_"C"
87 ;;PST;F1_"V"
88 ;;FND;F1_"F"
89 ;;NXT;F1_"N"
90 ;;GTO;F1_"G"
91 ;;CHG;F1_"P"
92 ;;AUT;F1_F1_"S"
93 ;;';$C(27)_"Q"
94 ;;';$C(27)_"R"
95 ;;";$C(27)_"S"
96 ;;";$C(27)_"T"
97 ;;
Note: See TracBrowser for help on using the repository browser.