Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^DDA(0)="DD AUDIT^.6I"
^DDA(3.702,0)="MAILBOX (MESSAGE SUB-FIELD) DD AUDIT^.6I^1^1"
^DDA(3.702,1,0)="6^D^3020906.192226^1^CROSS REFERENCE^1^3.702"
^DDA(3.702,1,1.1,0)="^.601^2^2^3020906"
^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)="""""
^DDA(3.702,1,1.1,2,0)="K ^XMB(3.7,DA(2),2,""AC"",$E(X,1,30),DA(1),DA)"
^DDA(3.702,"B",6,1)=""
^DDA(3.702,"D",3020906.192226,1)=""
^DDA(3.702,"E",1,1)=""
^DDA(3.81,0)="MAIL GROUP (MEMBER SUB-FIELD) DD AUDIT^.6I^5^5"
^DDA(3.81,1,0)=".01^D^2990914.174316^1^CROSS REFERENCE^1^3.81"
^DDA(3.81,1,1.1,0)="^.601^2^2^2990914"
^DDA(3.81,1,1.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DDA(3.81,1,1.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
^DDA(3.81,2,0)=".01^D^2990914.174408^1^CROSS REFERENCE^1^3.81"
^DDA(3.81,2,1.1,0)="^.601^2^2^2990914"
^DDA(3.81,2,1.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DDA(3.81,2,1.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
^DDA(3.81,3,0)=".01^N^2990914.174501^1^CROSS REFERENCE^1^3.81"
^DDA(3.81,3,2.1,0)="^.602^2^2^2990914"
^DDA(3.81,3,2.1,1,0)="S ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DDA(3.81,3,2.1,2,0)="K ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DDA(3.81,4,0)=".01^N^2990914.174541^1^CROSS REFERENCE^1^3.81"
^DDA(3.81,4,2.1,0)="^.602^2^2^2990914"
^DDA(3.81,4,2.1,1,0)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DDA(3.81,4,2.1,2,0)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
^DDA(3.81,5,0)=".01^D^2991019.154643^1^CROSS REFERENCE^1^3.81"
^DDA(3.81,5,1.1,0)="^.601^2^2^2991019"
^DDA(3.81,5,1.1,1,0)="S ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DDA(3.81,5,1.1,2,0)="K ^XMB(3.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DDA(3.81,"B",.01,1)=""
^DDA(3.81,"B",.01,2)=""
^DDA(3.81,"B",.01,3)=""
^DDA(3.81,"B",.01,4)=""
^DDA(3.81,"B",.01,5)=""
^DDA(3.81,"D",2990914.174316,1)=""
^DDA(3.81,"D",2990914.174408,2)=""
^DDA(3.81,"D",2990914.174501,3)=""
^DDA(3.81,"D",2990914.174541,4)=""
^DDA(3.81,"D",2991019.154643,5)=""
^DDA(3.81,"E",1,1)=""
^DDA(3.81,"E",1,2)=""
^DDA(3.81,"E",1,3)=""
^DDA(3.81,"E",1,4)=""
^DDA(3.81,"E",1,5)=""
^DDA(4.3,0)="KERNEL SITE PARAMETERS DD AUDIT^.6I^1^1"
^DDA(4.3,1,0)="8.15^N^2960604.184053^0^LABEL^.01^4.3"
^DDA(4.3,1,2)="TCP/IP POLLER RUN FLAG"
^DDA(4.3,"B",8.15,1)=""
^DDA(4.3,"D",2960604.184053,1)=""
^DDA(4.3,"E",0,1)=""
^DDA(52,0)="PRESCRIPTION DD AUDIT^.6I^1^1"
^DDA(52,1,0)="26^E^2960716.13281^1^CROSS REFERENCE^1^52"
^DDA(52,1,1.1,0)="^.601^3^3^2960716"
^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)="""""
^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)"
^DDA(52,1,1.1,3,0)="DO NOT DELETE !"
^DDA(52,1,2.1,0)="^.602^3^3^2960716"
^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)="""""
^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)"
^DDA(52,1,2.1,3,0)="DO NOT DELETE !"
^DDA(52,"B",26,1)=""
^DDA(52,"D",2960716.13281,1)=""
^DDA(52,"E",1,1)=""
^DDA(52.11,0)="PATIENT NOTIFICATION (Rx READY) DD AUDIT^.6I^3^3"
^DDA(52.11,1,0)="1^E^2960716.130921^1^TYPE^.25^52.11"
^DDA(52.11,1,1)="NJ5,0"
^DDA(52.11,1,2)="RNJ5,0"
^DDA(52.11,2,0)="4^D^2960716.131015^1^CROSS REFERENCE^1^52.11"
^DDA(52.11,2,1.1,0)="^.601^2^2^2960716"
^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)="""""
^DDA(52.11,2,1.1,2,0)="Q"
^DDA(52.11,3,0)=".01^E^2960716.131052^1^INPUT TRANSFORM^.5^52.11"
^DDA(52.11,3,1)="S DINUM=X Q"
^DDA(52.11,3,2)="Q"
^DDA(52.11,"B",.01,3)=""
^DDA(52.11,"B",1,1)=""
^DDA(52.11,"B",4,2)=""
^DDA(52.11,"D",2960716.130921,1)=""
^DDA(52.11,"D",2960716.131015,2)=""
^DDA(52.11,"D",2960716.131052,3)=""
^DDA(52.11,"E",1,1)=""
^DDA(52.11,"E",1,2)=""
^DDA(52.11,"E",1,3)=""
^DDA(650.1,0)="SOCIAL WORK SITE PARAMETERS DD AUDIT^.6I^1^1"
^DDA(650.1,1,0)="1^E^2960924.171402^1^'HELP'-PROMPT^3^650.1"
^DDA(650.1,1,1)="Answer must be 1-2 upper case characters in length and not numeric."
^DDA(650.1,1,2)="Answer must be 1-2 upper case characters or one upper case letter and one number"
^DDA(650.1,"B",1,1)=""
^DDA(650.1,"D",2960924.171402,1)=""
^DDA(650.1,"E",1,1)=""
^DDA(6925,0)="CONSTRUCTION PROJECT DD AUDIT^.6I^1^1"
^DDA(6925,1,0)="2^E^2960611.162737^1^'HELP'-PROMPT^3^6925"
^DDA(6925,1,1)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DDA(6925,1,2)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND NOT CONTAIN SEMICOLON"
^DDA(6925,"B",2,1)=""
^DDA(6925,"D",2960611.162737,1)=""
^DDA(6925,"E",1,1)=""