source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIN00L.m@ 1521

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00L ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
4Q Q
5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,0,0,"N")
6 ;;=9,52^1,52^1,52^9,52^1,52
7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52)
8 ;;=1^0^9.62^^e^^^^1
9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"D")
10 ;;=2^11^30^.01
11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,1,"N")
12 ;;=0^2^2^0^2
13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"D")
14 ;;=4^11^65^1
15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,2,"N")
16 ;;=1^3^3^1^3
17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"D")
18 ;;=6^11^65^2
19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,3,"N")
20 ;;=2^4^4^2^4
21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"D")
22 ;;=7^11^1^3
23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,4,"N")
24 ;;=3^5^5^3^5^^^^^^1
25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"D")
26 ;;=9^11^65^4
27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,5,"N")
28 ;;=4^6^6^4^6
29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"D")
30 ;;=11^11^65^5
31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,6,"N")
32 ;;=5^7^7^5^7
33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"D")
34 ;;=12^11^1^6
35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,7,"N")
36 ;;=6^8^8^6^8^^^^^^1
37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"D")
38 ;;=13^11^64^7
39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,8,"N")
40 ;;=7^9^9^7^9
41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"D")
42 ;;=15^11^65^10
43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,52,9,"N")
44 ;;=8^0^0^8^0
45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ",15,"FIRST")
46 ;;=1,52
47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",2,57,1)
48 ;;=3
49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",8,51,2)
50 ;;=5
51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","ASUB",9,55,5)
52 ;;=10
53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ADDRESS FOR USAGE REPORTING",9,9,55,2)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","AFFECTS RECORD MERGE","8^1^2",8,51,2)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ALPHA/BETA TESTING...","8^1^2",8,54,1)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA COMES WITH FILE...",7,7,49,7)
60 ;;=
61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATA LIST",13,13,64,3)
62 ;;=
63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DATE DISTRIBUTED","1^4^2",1,46,13)
64 ;;=
65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DESCRIPTION","1^4^2",1,46,11)
66 ;;=
67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",6,6,52,2)
68 ;;=
69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(0)",15,15,52,2)
70 ;;=
71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",6,6,52,6)
72 ;;=
73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?)",15,15,52,6)
74 ;;=
75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",6,6,52,7)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(?,#)",15,15,52,7)
78 ;;=
79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",6,6,52,8)
80 ;;=
81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(??)",15,15,52,8)
82 ;;=
83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",6,6,52,3)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A)",15,15,52,3)
86 ;;=
87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",6,6,52,4)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(A,#)",15,15,52,4)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",6,6,52,5)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","DIR(B)",15,15,52,5)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","ENVIRONMENT CHECK ROUTINE","1^4^2",1,46,5)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE",7,7,49,2)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","FILE AFFECTED",5,5,50,2)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","INSTALLATION MESSAGE",9,9,55,1)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",6,6,52,9)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","M CODE",15,15,52,9)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","MAY USER OVERRIDE DATA UPDATE",13,13,64,5)
108 ;;=
109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",6,6,52,1)
110 ;;=
111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME",15,15,52,1)
112 ;;=
113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME","1^4^2",1,46,1)
114 ;;=
115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","NAME OF MERGE ROUTINE",5,5,50,3)
116 ;;=
117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PACKAGE FILE LINK...","2^14^4",14,65,2)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","POST-INSTALL ROUTINE","1^4^2",1,46,6)
120 ;;=
121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRE-INSTALL ROUTINE","1^4^2",1,46,7)
122 ;;=
123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","PRIMARY HELP FRAME","8^1^2",8,51,5)
124 ;;=
125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RECORD HAS PACKAGE DATA",5,5,50,4)
126 ;;=
127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","RESOLVE POINTERS",13,13,64,4)
128 ;;=
129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SCREEN TO DETERMINE DD UPDATE",7,7,49,13)
130 ;;=
Note: See TracBrowser for help on using the repository browser.