source: WorldVistAEHR/trunk/g/DDA.zwr@ 1704

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

initial load of WorldVistAEHR
File size: 4.5 KB
RevLine 
[613]1FirstRelease WVEHR VER VOE1.0
2Cache 31-Jan-2008 23:07:04 ZWR
3^DDA(0)="DD AUDIT^.6I"
4^DDA(3.702,0)="MAILBOX (MESSAGE SUB-FIELD) DD AUDIT^.6I^1^1"
5^DDA(3.702,1,0)="6^D^3020906.192226^1^CROSS REFERENCE^1^3.702"
6^DDA(3.702,1,1.1,0)="^.601^2^2^3020906"
7^DDA(3.702,1,1.1,1,0)="S:X=1 ^XMB(3.7,DA(2),2,""AC"",$E(X,1,30),DA(1),DA)="""""
8^DDA(3.702,1,1.1,2,0)="K ^XMB(3.7,DA(2),2,""AC"",$E(X,1,30),DA(1),DA)"
9^DDA(3.702,"B",6,1)=""
10^DDA(3.702,"D",3020906.192226,1)=""
11^DDA(3.702,"E",1,1)=""
12^DDA(3.81,0)="MAIL GROUP (MEMBER SUB-FIELD) DD AUDIT^.6I^5^5"
13^DDA(3.81,1,0)=".01^D^2990914.174316^1^CROSS REFERENCE^1^3.81"
14^DDA(3.81,1,1.1,0)="^.601^2^2^2990914"
15^DDA(3.81,1,1.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
16^DDA(3.81,1,1.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
17^DDA(3.81,2,0)=".01^D^2990914.174408^1^CROSS REFERENCE^1^3.81"
18^DDA(3.81,2,1.1,0)="^.601^2^2^2990914"
19^DDA(3.81,2,1.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
20^DDA(3.81,2,1.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
21^DDA(3.81,3,0)=".01^N^2990914.174501^1^CROSS REFERENCE^1^3.81"
22^DDA(3.81,3,2.1,0)="^.602^2^2^2990914"
23^DDA(3.81,3,2.1,1,0)="S ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
24^DDA(3.81,3,2.1,2,0)="K ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)"
25^DDA(3.81,4,0)=".01^N^2990914.174541^1^CROSS REFERENCE^1^3.81"
26^DDA(3.81,4,2.1,0)="^.602^2^2^2990914"
27^DDA(3.81,4,2.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
28^DDA(3.81,4,2.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
29^DDA(3.81,5,0)=".01^D^2991019.154643^1^CROSS REFERENCE^1^3.81"
30^DDA(3.81,5,1.1,0)="^.601^2^2^2991019"
31^DDA(3.81,5,1.1,1,0)="S ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
32^DDA(3.81,5,1.1,2,0)="K ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)"
33^DDA(3.81,"B",.01,1)=""
34^DDA(3.81,"B",.01,2)=""
35^DDA(3.81,"B",.01,3)=""
36^DDA(3.81,"B",.01,4)=""
37^DDA(3.81,"B",.01,5)=""
38^DDA(3.81,"D",2990914.174316,1)=""
39^DDA(3.81,"D",2990914.174408,2)=""
40^DDA(3.81,"D",2990914.174501,3)=""
41^DDA(3.81,"D",2990914.174541,4)=""
42^DDA(3.81,"D",2991019.154643,5)=""
43^DDA(3.81,"E",1,1)=""
44^DDA(3.81,"E",1,2)=""
45^DDA(3.81,"E",1,3)=""
46^DDA(3.81,"E",1,4)=""
47^DDA(3.81,"E",1,5)=""
48^DDA(4.3,0)="KERNEL SITE PARAMETERS DD AUDIT^.6I^1^1"
49^DDA(4.3,1,0)="8.15^N^2960604.184053^0^LABEL^.01^4.3"
50^DDA(4.3,1,2)="TCP/IP POLLER RUN FLAG"
51^DDA(4.3,"B",8.15,1)=""
52^DDA(4.3,"D",2960604.184053,1)=""
53^DDA(4.3,"E",0,1)=""
54^DDA(52,0)="PRESCRIPTION DD AUDIT^.6I^1^1"
55^DDA(52,1,0)="26^E^2960716.13281^1^CROSS REFERENCE^1^52"
56^DDA(52,1,1.1,0)="^.601^3^3^2960716"
57^DDA(52,1,1.1,1,0)="S:$P($G(^PSRX(DA,0)),""^"",15)'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",$P($G(^PSRX(DA,2)),""^"",6),DA)="""""
58^DDA(52,1,1.1,2,0)="K:$P($G(^PSRX(DA,0)),""^"",15)'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",$P($G(^PSRX(DA,2)),""^"",6),DA)"
59^DDA(52,1,1.1,3,0)="DO NOT DELETE !"
60^DDA(52,1,2.1,0)="^.602^3^3^2960716"
61^DDA(52,1,2.1,1,0)="S:$P($G(^PSRX(DA,0)),""^"",15)'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",X,DA)="""""
62^DDA(52,1,2.1,2,0)="K:$P($G(^PSRX(DA,0)),""^"",15)'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",X,DA)"
63^DDA(52,1,2.1,3,0)="DO NOT DELETE !"
64^DDA(52,"B",26,1)=""
65^DDA(52,"D",2960716.13281,1)=""
66^DDA(52,"E",1,1)=""
67^DDA(52.11,0)="PATIENT NOTIFICATION (Rx READY) DD AUDIT^.6I^3^3"
68^DDA(52.11,1,0)="1^E^2960716.130921^1^TYPE^.25^52.11"
69^DDA(52.11,1,1)="NJ5,0"
70^DDA(52.11,1,2)="RNJ5,0"
71^DDA(52.11,2,0)="4^D^2960716.131015^1^CROSS REFERENCE^1^52.11"
72^DDA(52.11,2,1.1,0)="^.601^2^2^2960716"
73^DDA(52.11,2,1.1,1,0)="I $D(DIU(0)) S ^PS(52.11,""ATIM"",$E($P(^PS(52.11,DA,0),""^"",5)_""000"",1,10),DA)="""""
74^DDA(52.11,2,1.1,2,0)="Q"
75^DDA(52.11,3,0)=".01^E^2960716.131052^1^INPUT TRANSFORM^.5^52.11"
76^DDA(52.11,3,1)="S DINUM=X Q"
77^DDA(52.11,3,2)="Q"
78^DDA(52.11,"B",.01,3)=""
79^DDA(52.11,"B",1,1)=""
80^DDA(52.11,"B",4,2)=""
81^DDA(52.11,"D",2960716.130921,1)=""
82^DDA(52.11,"D",2960716.131015,2)=""
83^DDA(52.11,"D",2960716.131052,3)=""
84^DDA(52.11,"E",1,1)=""
85^DDA(52.11,"E",1,2)=""
86^DDA(52.11,"E",1,3)=""
87^DDA(650.1,0)="SOCIAL WORK SITE PARAMETERS DD AUDIT^.6I^1^1"
88^DDA(650.1,1,0)="1^E^2960924.171402^1^'HELP'-PROMPT^3^650.1"
89^DDA(650.1,1,1)="Answer must be 1-2 upper case characters in length and not numeric."
90^DDA(650.1,1,2)="Answer must be 1-2 upper case characters or one upper case letter and one number"
91^DDA(650.1,"B",1,1)=""
92^DDA(650.1,"D",2960924.171402,1)=""
93^DDA(650.1,"E",1,1)=""
94^DDA(6925,0)="CONSTRUCTION PROJECT DD AUDIT^.6I^1^1"
95^DDA(6925,1,0)="2^E^2960611.162737^1^'HELP'-PROMPT^3^6925"
96^DDA(6925,1,1)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
97^DDA(6925,1,2)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND NOT CONTAIN SEMICOLON"
98^DDA(6925,"B",2,1)=""
99^DDA(6925,"D",2960611.162737,1)=""
100^DDA(6925,"E",1,1)=""
Note: See TracBrowser for help on using the repository browser.