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
^DIST(.403,0)="FORM^.403I^103^134"
^DIST(.403,.001,0)="DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1"
^DIST(.403,.001,1)="2000000"
^DIST(.403,.001,3)="3000000"
^DIST(.403,.001,4)="N"
^DIST(.403,.001,5)="Y"
^DIST(.403,.001,6)="N"
^DIST(.403,.001,7)="N"
^DIST(.403,.001,15,0)="^^36^36^2981214"
^DIST(.403,.001,15,1,0)="Pages: 1          Main form"
^DIST(.403,.001,15,2,0)="       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text"
^DIST(.403,.001,15,3,0)="       2.1-2.8    TYPE-specific   (2.1=DATE, etc)"
^DIST(.403,.001,15,4,0)="       3          SUBSCRIPT & PIECE-position"
^DIST(.403,.001,15,5,0)="       4          SUBSCRIPT & SUB-DICTIONARY NUMBER"
^DIST(.403,.001,15,6,0)="       5          Multiples"
^DIST(.403,.001,15,7,0)="       6          SCREEN for Pointers & Sets"
^DIST(.403,.001,15,8,0)="       8          VARIABLE-POINTER extra fields for each pointer"
^DIST(.403,.001,15,9,0)="       9          ""ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"""
^DIST(.403,.001,15,10,0)="      10          Multiple-field"
^DIST(.403,.001,15,11,0)="                                                 "
^DIST(.403,.001,15,12,0)=" "
^DIST(.403,.001,15,13,0)=" "
^DIST(.403,.001,15,14,0)="Branching logic:"
^DIST(.403,.001,15,15,0)="              From Field 20.5 (""MULTIPLE?"")"
^DIST(.403,.001,15,16,0)="       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?"
^DIST(.403,.001,15,17,0)="          |                                      |"
^DIST(.403,.001,15,18,0)="         NO                                     YES"
^DIST(.403,.001,15,19,0)="          |                                      |"
^DIST(.403,.001,15,20,0)="          |                               IS FIELD MULTIPLE?"
^DIST(.403,.001,15,21,0)="          |                                |              |"
^DIST(.403,.001,15,22,0)="          |                               YES            NO"
^DIST(.403,.001,15,23,0)="          |                                |              |"
^DIST(.403,.001,15,24,0)="IS FIELD EDITABLE & MULTIPLE?              |              |"
^DIST(.403,.001,15,25,0)="   |                    |                  |              |"
^DIST(.403,.001,15,26,0)="   |                   YES  --------->  Page 5         Page 3"
^DIST(.403,.001,15,27,0)="   |                                       |              |"
^DIST(.403,.001,15,28,0)="   |                                 PROGRAMMER?          |"
^DIST(.403,.001,15,29,0)="   |                                  |        |          |"
^DIST(.403,.001,15,30,0)="   |                                 YES      NO          |"
^DIST(.403,.001,15,31,0)="   |                                  |        |          |"
^DIST(.403,.001,15,32,0)="   |                                Page 4     |          | "
^DIST(.403,.001,15,33,0)="   |                                  |        |          |"
^DIST(.403,.001,15,34,0)="    --------------------------------->|<------------------"
^DIST(.403,.001,15,35,0)="                                      |"
^DIST(.403,.001,15,36,0)="                           Field 98 (HELP-PROMPT)"
^DIST(.403,.001,20)="D POST^DICATTDE"
^DIST(.403,.001,40,0)="^.4031I^21^18"
^DIST(.403,.001,40,1,0)="1^^1,1"
^DIST(.403,.001,40,1,1)="Page 1"
^DIST(.403,.001,40,1,40,0)="^.4032IP^.00101^1"
^DIST(.403,.001,40,1,40,.00101,0)=".00101^1^1,1^e"
^DIST(.403,.001,40,1,40,.00101,11)="D PRE^DICATTD"
^DIST(.403,.001,40,1,40,"AC",1,.00101)=""
^DIST(.403,.001,40,1,40,"B",.00101,.00101)=""
^DIST(.403,.001,40,2,0)="2.1^^4,3^^^1^12,70"
^DIST(.403,.001,40,2,1)="Page 2.1"
^DIST(.403,.001,40,2,12)="D POST1^DICATTD1"
^DIST(.403,.001,40,2,40,0)="^.4032IP^.00102^1"
^DIST(.403,.001,40,2,40,.00102,0)=".00102^1^2,3^e"
^DIST(.403,.001,40,2,40,"AC",1,.00102)=""
^DIST(.403,.001,40,2,40,"B",.00102,.00102)=""
^DIST(.403,.001,40,3,0)="2.2^^4,3^^^1^9,70"
^DIST(.403,.001,40,3,1)="Page 2.2"
^DIST(.403,.001,40,3,12)="D POST2^DICATTD2"
^DIST(.403,.001,40,3,40,0)="^.4032IP^.00103^1"
^DIST(.403,.001,40,3,40,.00103,0)=".00103^1^2,3^e"
^DIST(.403,.001,40,3,40,"AC",1,.00103)=""
^DIST(.403,.001,40,3,40,"B",.00103,.00103)=""
^DIST(.403,.001,40,6,0)="2.4^^3,8^^^1^7,67"
^DIST(.403,.001,40,6,1)="Page 2.4"
^DIST(.403,.001,40,6,12)="D POST4^DICATTD4"
^DIST(.403,.001,40,6,40,0)="^.4032IP^.00104^1"
^DIST(.403,.001,40,6,40,.00104,0)=".00104^1^1,1^e"
^DIST(.403,.001,40,6,40,"AC",1,.00104)=""
^DIST(.403,.001,40,6,40,"B",.00104,.00104)=""
^DIST(.403,.001,40,7,0)="2.5^^4,2^^^1^8,78"
^DIST(.403,.001,40,7,1)="Page 2.5"
^DIST(.403,.001,40,7,40,0)="^.4032IP^.00105^1"
^DIST(.403,.001,40,7,40,.00105,0)=".00105^1^1,1^e"
^DIST(.403,.001,40,7,40,"AC",1,.00105)=""
^DIST(.403,.001,40,7,40,"B",.00105,.00105)=""
^DIST(.403,.001,40,8,0)="2.6^^3,2^^^1^11,77"
^DIST(.403,.001,40,8,1)="Page 2.6"
^DIST(.403,.001,40,8,12)="D POST6^DICATTD6"
^DIST(.403,.001,40,8,40,0)="^.4032IP^.00106^1"
^DIST(.403,.001,40,8,40,.00106,0)=".00106^1^1,1^e"
^DIST(.403,.001,40,8,40,"AC",1,.00106)=""
^DIST(.403,.001,40,8,40,"B",.00106,.00106)=""
^DIST(.403,.001,40,9,0)="2.7^^3,2^^^1^8,75"
^DIST(.403,.001,40,9,1)="Page 2.7"
^DIST(.403,.001,40,9,12)="D POST7^DICATTD7"
^DIST(.403,.001,40,9,40,0)="^.4032IP^.00107^1"
^DIST(.403,.001,40,9,40,.00107,0)=".00107^1^1,1^e"
^DIST(.403,.001,40,9,40,"AC",1,.00107)=""
^DIST(.403,.001,40,9,40,"B",.00107,.00107)=""
^DIST(.403,.001,40,10,0)="2.8^^3,3^^^1^11,77"
^DIST(.403,.001,40,10,1)="Page 2.8"
^DIST(.403,.001,40,10,40,0)="^.4032IP^.00108^1"
^DIST(.403,.001,40,10,40,.00108,0)=".00108^1^1,1^e"
^DIST(.403,.001,40,10,40,"AC",1,.00108)=""
^DIST(.403,.001,40,10,40,"B",.00108,.00108)=""
^DIST(.403,.001,40,11,0)="2.3^^3,6^^^1^17,70"
^DIST(.403,.001,40,11,1)="Page 2.3"
^DIST(.403,.001,40,11,12)="D POST3^DICATTD3"
^DIST(.403,.001,40,11,40,0)="^.4032IP^.00109^1"
^DIST(.403,.001,40,11,40,.00109,0)=".00109^1^1,1^e"
^DIST(.403,.001,40,11,40,"AC",1,.00109)=""
^DIST(.403,.001,40,11,40,"B",.00109,.00109)=""
^DIST(.403,.001,40,12,0)="1.1^^1,1^^1"
^DIST(.403,.001,40,12,1)="Page 1.1"
^DIST(.403,.001,40,12,40,0)="^.4032IP^.0011^1"
^DIST(.403,.001,40,12,40,.0011,0)=".0011^1^1,1^e"
^DIST(.403,.001,40,12,40,.0011,11)="D WORD^DICATTD0(21)"
^DIST(.403,.001,40,12,40,"AC",1,.0011)=""
^DIST(.403,.001,40,12,40,"B",.0011,.0011)=""
^DIST(.403,.001,40,13,0)="1.2^^1,1"
^DIST(.403,.001,40,13,1)="Page 1.2"
^DIST(.403,.001,40,13,40,0)="^.4032IP^.00111^1"
^DIST(.403,.001,40,13,40,.00111,0)=".00111^1^1,1^e"
^DIST(.403,.001,40,13,40,"AC",1,.00111)=""
^DIST(.403,.001,40,13,40,"B",.00111,.00111)=""
^DIST(.403,.001,40,15,0)="3^^4,8^^^1^7,64"
^DIST(.403,.001,40,15,1)="Page 3"
^DIST(.403,.001,40,15,12)="D POST^DICATTDM"
^DIST(.403,.001,40,15,40,0)="^.4032IP^.00112^1"
^DIST(.403,.001,40,15,40,.00112,0)=".00112^1^2,2^e"
^DIST(.403,.001,40,15,40,"AC",1,.00112)=""
^DIST(.403,.001,40,15,40,"B",.00112,.00112)=""
^DIST(.403,.001,40,16,0)="9^^3,10^^^1^7,70"
^DIST(.403,.001,40,16,1)="Page 9"
^DIST(.403,.001,40,16,40,0)="^.4032IP^.00113^1"
^DIST(.403,.001,40,16,40,.00113,0)=".00113^1^1,1^e"
^DIST(.403,.001,40,16,40,"AC",1,.00113)=""
^DIST(.403,.001,40,16,40,"B",.00113,.00113)=""
^DIST(.403,.001,40,17,0)="4^^9,5^^^1^12,75"
^DIST(.403,.001,40,17,1)="Page 4"
^DIST(.403,.001,40,17,40,0)="^.4032IP^.00114^1"
^DIST(.403,.001,40,17,40,.00114,0)=".00114^1^1,1^e"
^DIST(.403,.001,40,17,40,"AC",1,.00114)=""
^DIST(.403,.001,40,17,40,"B",.00114,.00114)=""
^DIST(.403,.001,40,18,0)="8^^10,3^^^1^17,77"
^DIST(.403,.001,40,18,1)="Page 8"
^DIST(.403,.001,40,18,11)="D PRE8^DICATTD8"
^DIST(.403,.001,40,18,12)="D POST8^DICATTD8"
^DIST(.403,.001,40,18,40,0)="^.4032IP^.00115^1"
^DIST(.403,.001,40,18,40,.00115,0)=".00115^1^2,3^e"
^DIST(.403,.001,40,18,40,"AC",1,.00115)=""
^DIST(.403,.001,40,18,40,"B",.00115,.00115)=""
^DIST(.403,.001,40,19,0)="10^^1,1"
^DIST(.403,.001,40,19,1)="Page 10"
^DIST(.403,.001,40,19,40,0)="^.4032IP^.00116^1"
^DIST(.403,.001,40,19,40,.00116,0)=".00116^1^1,1^e"
^DIST(.403,.001,40,19,40,"AC",1,.00116)=""
^DIST(.403,.001,40,19,40,"B",.00116,.00116)=""
^DIST(.403,.001,40,20,0)="5^^14,1^^^1^17,78"
^DIST(.403,.001,40,20,1)="Page 5"
^DIST(.403,.001,40,20,12)="I DICATT4="""",DUZ(0)=""@"" S DDSSTACK=4"
^DIST(.403,.001,40,20,40,0)="^.4032IP^.00117^1"
^DIST(.403,.001,40,20,40,.00117,0)=".00117^1^1,1^e"
^DIST(.403,.001,40,20,40,"AC",1,.00117)=""
^DIST(.403,.001,40,20,40,"B",.00117,.00117)=""
^DIST(.403,.001,40,21,0)="6^^7,3^^^1^13,77"
^DIST(.403,.001,40,21,1)="Page 6"
^DIST(.403,.001,40,21,40,0)="^.4032IP^.00118^1"
^DIST(.403,.001,40,21,40,.00118,0)=".00118^1^1,1^e"
^DIST(.403,.001,40,21,40,"AC",1,.00118)=""
^DIST(.403,.001,40,21,40,"B",.00118,.00118)=""
^DIST(.403,.001,40,"B",1,1)=""
^DIST(.403,.001,40,"B",1.1,12)=""
^DIST(.403,.001,40,"B",1.2,13)=""
^DIST(.403,.001,40,"B",2.1,2)=""
^DIST(.403,.001,40,"B",2.2,3)=""
^DIST(.403,.001,40,"B",2.3,11)=""
^DIST(.403,.001,40,"B",2.4,6)=""
^DIST(.403,.001,40,"B",2.5,7)=""
^DIST(.403,.001,40,"B",2.6,8)=""
^DIST(.403,.001,40,"B",2.7,9)=""
^DIST(.403,.001,40,"B",2.8,10)=""
^DIST(.403,.001,40,"B",3,15)=""
^DIST(.403,.001,40,"B",4,17)=""
^DIST(.403,.001,40,"B",5,20)=""
^DIST(.403,.001,40,"B",6,21)=""
^DIST(.403,.001,40,"B",8,18)=""
^DIST(.403,.001,40,"B",9,16)=""
^DIST(.403,.001,40,"B",10,19)=""
^DIST(.403,.001,40,"C","PAGE 1",1)=""
^DIST(.403,.001,40,"C","PAGE 1.1",12)=""
^DIST(.403,.001,40,"C","PAGE 1.2",13)=""
^DIST(.403,.001,40,"C","PAGE 10",19)=""
^DIST(.403,.001,40,"C","PAGE 2.1",2)=""
^DIST(.403,.001,40,"C","PAGE 2.2",3)=""
^DIST(.403,.001,40,"C","PAGE 2.3",11)=""
^DIST(.403,.001,40,"C","PAGE 2.4",6)=""
^DIST(.403,.001,40,"C","PAGE 2.5",7)=""
^DIST(.403,.001,40,"C","PAGE 2.6",8)=""
^DIST(.403,.001,40,"C","PAGE 2.7",9)=""
^DIST(.403,.001,40,"C","PAGE 2.8",10)=""
^DIST(.403,.001,40,"C","PAGE 3",15)=""
^DIST(.403,.001,40,"C","PAGE 4",17)=""
^DIST(.403,.001,40,"C","PAGE 5",20)=""
^DIST(.403,.001,40,"C","PAGE 6",21)=""
^DIST(.403,.001,40,"C","PAGE 8",18)=""
^DIST(.403,.001,40,"C","PAGE 9",16)=""
^DIST(.403,.001,"AY",1,0,0,"N")="13,.00101^1,.00101^1,.00101^13,.00101^1,.00101"
^DIST(.403,.001,"AY",1,.00101)="0^0^1^^e^^^^1"
^DIST(.403,.001,"AY",1,.00101,1,"D")="1^13^30^1,.00101"
^DIST(.403,.001,"AY",1,.00101,1,"N")="0^2^14^0^2"
^DIST(.403,.001,"AY",1,.00101,2,"D")="3^17^60^2,.00101"
^DIST(.403,.001,"AY",1,.00101,2,"N")="1^4^4^14^4"
^DIST(.403,.001,"AY",1,.00101,3,"D")="10^16^1^3,.00101"
^DIST(.403,.001,"AY",1,.00101,3,"N")="16^17^9^16^9"
^DIST(.403,.001,"AY",1,.00101,4,"D")="4^17^16^4,.00101"
^DIST(.403,.001,"AY",1,.00101,4,"N")="2^5^5^2^5"
^DIST(.403,.001,"AY",1,.00101,5,"D")="5^17^60^5,.00101"
^DIST(.403,.001,"AY",1,.00101,5,"N")="4^6^6^4^6"
^DIST(.403,.001,"AY",1,.00101,6,"D")="6^17^13^6,.00101"
^DIST(.403,.001,"AY",1,.00101,6,"N")="5^7^7^5^7"
^DIST(.403,.001,"AY",1,.00101,7,"D")="7^17^13^7,.00101"
^DIST(.403,.001,"AY",1,.00101,7,"N")="6^8^8^6^8"
^DIST(.403,.001,"AY",1,.00101,8,"D")="8^17^13^8,.00101"
^DIST(.403,.001,"AY",1,.00101,8,"N")="7^16^16^7^16"
^DIST(.403,.001,"AY",1,.00101,9,"D")="10^48^1^9,.00101"
^DIST(.403,.001,"AY",1,.00101,9,"N")="16^17^17^3^10"
^DIST(.403,.001,"AY",1,.00101,10,"D")="14^16^3^10,.00101"
^DIST(.403,.001,"AY",1,.00101,10,"N")="17^12^12^17^14"
^DIST(.403,.001,"AY",1,.00101,12,"D")="15^16^61^12,.00101"
^DIST(.403,.001,"AY",1,.00101,12,"N")="10^13^13^10^13"
^DIST(.403,.001,"AY",1,.00101,13,"D")="16^16^61^13,.00101"
^DIST(.403,.001,"AY",1,.00101,13,"N")="12^0^0^12^0"
^DIST(.403,.001,"AY",1,.00101,14,"D")="1^59^20^14,.00101"
^DIST(.403,.001,"AY",1,.00101,14,"N")="0^2^2^1^17"
^DIST(.403,.001,"AY",1,.00101,15,"D")="0^0^77^0^^^^^1"
^DIST(.403,.001,"AY",1,.00101,16,"D")="9^17^61^16,.00101"
^DIST(.403,.001,"AY",1,.00101,16,"N")="8^3^3^8^3"
^DIST(.403,.001,"AY",1,.00101,17,"D")="12^48^3^17,.00101"
^DIST(.403,.001,"AY",1,.00101,17,"N")="9^10^10^9^12"
^DIST(.403,.001,"AY",1,"FIRST")="1,.00101"
^DIST(.403,.001,"AY",2,0,0,"N")="6,.00102^1,.00102^1,.00102^6,.00102^1,.00102"
^DIST(.403,.001,"AY",2,.00102)="4^4^1^^e^^^^1"
^DIST(.403,.001,"AY",2,.00102,1,"D")="4^32^18^1,.00102"
^DIST(.403,.001,"AY",2,.00102,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",2,.00102,2,"D")="5^32^20^2,.00102"
^DIST(.403,.001,"AY",2,.00102,2,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",2,.00102,3,"D")="6^32^3^3,.00102"
^DIST(.403,.001,"AY",2,.00102,3,"N")="2^4^4^2^4"
^DIST(.403,.001,"AY",2,.00102,4,"D")="7^32^3^4,.00102"
^DIST(.403,.001,"AY",2,.00102,4,"N")="3^5^5^3^5"
^DIST(.403,.001,"AY",2,.00102,5,"D")="8^32^3^5,.00102"
^DIST(.403,.001,"AY",2,.00102,5,"N")="4^6^6^4^6"
^DIST(.403,.001,"AY",2,.00102,6,"D")="9^32^3^6,.00102"
^DIST(.403,.001,"AY",2,.00102,6,"N")="5^0^0^5^0"
^DIST(.403,.001,"AY",2,"FIRST")="1,.00102"
^DIST(.403,.001,"AY",3,0,0,"N")="4,.00103^1,.00103^1,.00103^4,.00103^1,.00103"
^DIST(.403,.001,"AY",3,.00103)="4^4^1^^e^^^^1"
^DIST(.403,.001,"AY",3,.00103,1,"D")="4^41^20^1,.00103"
^DIST(.403,.001,"AY",3,.00103,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",3,.00103,2,"D")="5^41^20^2,.00103"
^DIST(.403,.001,"AY",3,.00103,2,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",3,.00103,3,"D")="6^41^3^3,.00103"
^DIST(.403,.001,"AY",3,.00103,3,"N")="2^4^4^2^4"
^DIST(.403,.001,"AY",3,.00103,4,"D")="7^41^1^4,.00103"
^DIST(.403,.001,"AY",3,.00103,4,"N")="3^0^0^3^0"
^DIST(.403,.001,"AY",3,"FIRST")="1,.00103"
^DIST(.403,.001,"AY",6,0,0,"N")="3,.00104^1,.00104^1,.00104^3,.00104^1,.00104"
^DIST(.403,.001,"AY",6,.00104)="2^7^1^^e^^^^1"
^DIST(.403,.001,"AY",6,.00104,1,"D")="3^33^3^1,.00104"
^DIST(.403,.001,"AY",6,.00104,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",6,.00104,2,"D")="4^33^3^2,.00104"
^DIST(.403,.001,"AY",6,.00104,2,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",6,.00104,3,"D")="5^33^30^3,.00104"
^DIST(.403,.001,"AY",6,.00104,3,"N")="2^0^0^2^0"
^DIST(.403,.001,"AY",6,"FIRST")="1,.00104"
^DIST(.403,.001,"AY",7,0,0,"N")="2,.00105^1,.00105^1,.00105^2,.00105^1,.00105"
^DIST(.403,.001,"AY",7,.00105)="3^1^1^^e^^^^1"
^DIST(.403,.001,"AY",7,.00105,1,"D")="4^53^3^1,.00105"
^DIST(.403,.001,"AY",7,.00105,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",7,.00105,2,"D")="5^74^3^2,.00105"
^DIST(.403,.001,"AY",7,.00105,2,"N")="1^0^0^1^0"
^DIST(.403,.001,"AY",7,"FIRST")="1,.00105"
^DIST(.403,.001,"AY",8,0,0,"N")="5,.00106^1,.00106^1,.00106^8,.00106^1,.00106"
^DIST(.403,.001,"AY",8,.00106)="2^1^1^^e^^^^1"
^DIST(.403,.001,"AY",8,.00106,1,"D")="4^2^73^1,.00106"
^DIST(.403,.001,"AY",8,.00106,1,"N")="0^4^4^0^4"
^DIST(.403,.001,"AY",8,.00106,3,"D")="6^65^1^3,.00106"
^DIST(.403,.001,"AY",8,.00106,3,"N")="4^6^6^4^6"
^DIST(.403,.001,"AY",8,.00106,4,"D")="5^29^17^4,.00106"
^DIST(.403,.001,"AY",8,.00106,4,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",8,.00106,5,"D")="9^19^3^5,.00106"
^DIST(.403,.001,"AY",8,.00106,5,"N")="7^0^8^7^8"
^DIST(.403,.001,"AY",8,.00106,6,"D")="7^65^3^6,.00106"
^DIST(.403,.001,"AY",8,.00106,6,"N")="3^7^7^3^7"
^DIST(.403,.001,"AY",8,.00106,7,"D")="8^65^3^7,.00106"
^DIST(.403,.001,"AY",8,.00106,7,"N")="6^8^5^6^5"
^DIST(.403,.001,"AY",8,.00106,8,"D")="9^46^27^8,.00106"
^DIST(.403,.001,"AY",8,.00106,8,"N")="7^0^0^5^0"
^DIST(.403,.001,"AY",8,"FIRST")="1,.00106"
^DIST(.403,.001,"AY",9,0,0,"N")="2,.00107^1,.00107^1,.00107^2,.00107^1,.00107"
^DIST(.403,.001,"AY",9,.00107)="2^1^1^^e^^^^1"
^DIST(.403,.001,"AY",9,.00107,1,"D")="3^27^39^1,.00107"
^DIST(.403,.001,"AY",9,.00107,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",9,.00107,2,"D")="5^59^3^2,.00107"
^DIST(.403,.001,"AY",9,.00107,2,"N")="1^0^0^1^0"
^DIST(.403,.001,"AY",9,"FIRST")="1,.00107"
^DIST(.403,.001,"AY",10,0,0,"N")="14,.00108^1,.00108^1,.00108^10,.00108^1,.00108"
^DIST(.403,.001,"AY",10,.00108)="2^2^1^^e^^^^1"
^DIST(.403,.001,"AY",10,.00108,1,"D")="3^30^30^1,.00108"
^DIST(.403,.001,"AY",10,.00108,1,"N")="0^2^3^0^3"
^DIST(.403,.001,"AY",10,.00108,2,"D")="4^30^30^2,.00108"
^DIST(.403,.001,"AY",10,.00108,2,"N")="1^5^4^3^4"
^DIST(.403,.001,"AY",10,.00108,3,"D")="3^71^4^3,.00108"
^DIST(.403,.001,"AY",10,.00108,3,"N")="0^4^2^1^2"
^DIST(.403,.001,"AY",10,.00108,4,"D")="4^71^4^4,.00108"
^DIST(.403,.001,"AY",10,.00108,4,"N")="3^6^5^2^5"
^DIST(.403,.001,"AY",10,.00108,5,"D")="5^30^30^5,.00108"
^DIST(.403,.001,"AY",10,.00108,5,"N")="2^11^6^4^6"
^DIST(.403,.001,"AY",10,.00108,6,"D")="5^71^4^6,.00108"
^DIST(.403,.001,"AY",10,.00108,6,"N")="4^7^11^5^11"
^DIST(.403,.001,"AY",10,.00108,7,"D")="6^71^4^7,.00108"
^DIST(.403,.001,"AY",10,.00108,7,"N")="6^8^12^11^12"
^DIST(.403,.001,"AY",10,.00108,8,"D")="7^71^4^8,.00108"
^DIST(.403,.001,"AY",10,.00108,8,"N")="7^9^13^12^13"
^DIST(.403,.001,"AY",10,.00108,9,"D")="8^71^4^9,.00108"
^DIST(.403,.001,"AY",10,.00108,9,"N")="8^10^14^13^14"
^DIST(.403,.001,"AY",10,.00108,10,"D")="9^71^4^10,.00108"
^DIST(.403,.001,"AY",10,.00108,10,"N")="9^0^0^14^0"
^DIST(.403,.001,"AY",10,.00108,11,"D")="6^30^30^11,.00108"
^DIST(.403,.001,"AY",10,.00108,11,"N")="5^12^7^6^7"
^DIST(.403,.001,"AY",10,.00108,12,"D")="7^30^30^12,.00108"
^DIST(.403,.001,"AY",10,.00108,12,"N")="11^13^8^7^8"
^DIST(.403,.001,"AY",10,.00108,13,"D")="8^30^30^13,.00108"
^DIST(.403,.001,"AY",10,.00108,13,"N")="12^14^9^8^9"
^DIST(.403,.001,"AY",10,.00108,14,"D")="9^30^30^14,.00108"
^DIST(.403,.001,"AY",10,.00108,14,"N")="13^0^10^9^10"
^DIST(.403,.001,"AY",10,"FIRST")="1,.00108"
^DIST(.403,.001,"AY",11,0,0,"N")="25,.00109^1,.00109^1,.00109^26,.00109^1,.00109"
^DIST(.403,.001,"AY",11,.00109)="2^5^1^^e^^^^1"
^DIST(.403,.001,"AY",11,.00109,1,"D")="3^12^4^1,.00109"
^DIST(.403,.001,"AY",11,.00109,1,"N")="0^3^2^0^2"
^DIST(.403,.001,"AY",11,.00109,2,"D")="3^34^30^2,.00109"
^DIST(.403,.001,"AY",11,.00109,2,"N")="0^4^3^1^3"
^DIST(.403,.001,"AY",11,.00109,3,"D")="4^12^4^3,.00109"
^DIST(.403,.001,"AY",11,.00109,3,"N")="1^5^4^2^4"
^DIST(.403,.001,"AY",11,.00109,4,"D")="4^34^30^4,.00109"
^DIST(.403,.001,"AY",11,.00109,4,"N")="2^6^5^3^5"
^DIST(.403,.001,"AY",11,.00109,5,"D")="5^12^4^5,.00109"
^DIST(.403,.001,"AY",11,.00109,5,"N")="3^7^6^4^6"
^DIST(.403,.001,"AY",11,.00109,6,"D")="5^34^30^6,.00109"
^DIST(.403,.001,"AY",11,.00109,6,"N")="4^8^7^5^7"
^DIST(.403,.001,"AY",11,.00109,7,"D")="6^12^4^7,.00109"
^DIST(.403,.001,"AY",11,.00109,7,"N")="5^9^8^6^8"
^DIST(.403,.001,"AY",11,.00109,8,"D")="6^34^30^8,.00109"
^DIST(.403,.001,"AY",11,.00109,8,"N")="6^10^9^7^9"
^DIST(.403,.001,"AY",11,.00109,9,"D")="7^12^4^9,.00109"
^DIST(.403,.001,"AY",11,.00109,9,"N")="7^11^10^8^10"
^DIST(.403,.001,"AY",11,.00109,10,"D")="7^34^30^10,.00109"
^DIST(.403,.001,"AY",11,.00109,10,"N")="8^12^11^9^11"
^DIST(.403,.001,"AY",11,.00109,11,"D")="8^12^4^11,.00109"
^DIST(.403,.001,"AY",11,.00109,11,"N")="9^13^12^10^12"
^DIST(.403,.001,"AY",11,.00109,12,"D")="8^34^30^12,.00109"
^DIST(.403,.001,"AY",11,.00109,12,"N")="10^14^13^11^13"
^DIST(.403,.001,"AY",11,.00109,13,"D")="9^12^4^13,.00109"
^DIST(.403,.001,"AY",11,.00109,13,"N")="11^15^14^12^14"
^DIST(.403,.001,"AY",11,.00109,14,"D")="9^34^30^14,.00109"
^DIST(.403,.001,"AY",11,.00109,14,"N")="12^16^15^13^15"
^DIST(.403,.001,"AY",11,.00109,15,"D")="10^12^4^15,.00109"
^DIST(.403,.001,"AY",11,.00109,15,"N")="13^17^16^14^16"
^DIST(.403,.001,"AY",11,.00109,16,"D")="10^34^30^16,.00109"
^DIST(.403,.001,"AY",11,.00109,16,"N")="14^18^17^15^17"
^DIST(.403,.001,"AY",11,.00109,17,"D")="11^12^4^17,.00109"
^DIST(.403,.001,"AY",11,.00109,17,"N")="15^19^18^16^18"
^DIST(.403,.001,"AY",11,.00109,18,"D")="11^34^30^18,.00109"
^DIST(.403,.001,"AY",11,.00109,18,"N")="16^20^19^17^19"
^DIST(.403,.001,"AY",11,.00109,19,"D")="12^12^4^19,.00109"
^DIST(.403,.001,"AY",11,.00109,19,"N")="17^21^20^18^20"
^DIST(.403,.001,"AY",11,.00109,20,"D")="12^34^30^20,.00109"
^DIST(.403,.001,"AY",11,.00109,20,"N")="18^22^21^19^21"
^DIST(.403,.001,"AY",11,.00109,21,"D")="13^12^4^21,.00109"
^DIST(.403,.001,"AY",11,.00109,21,"N")="19^23^22^20^22"
^DIST(.403,.001,"AY",11,.00109,22,"D")="13^34^30^22,.00109"
^DIST(.403,.001,"AY",11,.00109,22,"N")="20^24^23^21^23"
^DIST(.403,.001,"AY",11,.00109,23,"D")="14^12^4^23,.00109"
^DIST(.403,.001,"AY",11,.00109,23,"N")="21^25^24^22^24"
^DIST(.403,.001,"AY",11,.00109,24,"D")="14^34^30^24,.00109"
^DIST(.403,.001,"AY",11,.00109,24,"N")="22^26^25^23^25"
^DIST(.403,.001,"AY",11,.00109,25,"D")="15^12^4^25,.00109"
^DIST(.403,.001,"AY",11,.00109,25,"N")="23^0^26^24^26"
^DIST(.403,.001,"AY",11,.00109,26,"D")="15^34^30^26,.00109"
^DIST(.403,.001,"AY",11,.00109,26,"N")="24^0^0^25^0"
^DIST(.403,.001,"AY",11,"FIRST")="1,.00109"
^DIST(.403,.001,"AY",12,0,0,"N")="1,.0011^1,.0011^1,.0011^1,.0011^1,.0011"
^DIST(.403,.001,"AY",12,.0011)="0^0^1^^e^^^^1"
^DIST(.403,.001,"AY",12,.0011,1,"D")="0^3^1^1,.0011"
^DIST(.403,.001,"AY",12,.0011,1,"N")="0^0^0^0^0"
^DIST(.403,.001,"AY",12,"FIRST")="1,.0011"
^DIST(.403,.001,"AY",13,0,0,"N")="1,.00111^1,.00111^1,.00111^1,.00111^1,.00111"
^DIST(.403,.001,"AY",13,.00111)="0^0^1^^e^^^^1"
^DIST(.403,.001,"AY",13,.00111,1,"D")="0^3^1^0"
^DIST(.403,.001,"AY",13,.00111,1,"N")="0^0^0^0^0"
^DIST(.403,.001,"AY",13,"FIRST")="1,.00111"
^DIST(.403,.001,"AY",15,0,0,"N")="3,.00112^2,.00112^2,.00112^3,.00112^2,.00112"
^DIST(.403,.001,"AY",15,.00112)="4^8^1^^e^^^^2"
^DIST(.403,.001,"AY",15,.00112,2,"D")="4^25^33^2,.00112"
^DIST(.403,.001,"AY",15,.00112,2,"N")="0^3^3^0^3"
^DIST(.403,.001,"AY",15,.00112,3,"D")="5^25^8^3,.00112"
^DIST(.403,.001,"AY",15,.00112,3,"N")="2^0^0^2^0"
^DIST(.403,.001,"AY",15,"FIRST")="2,.00112"
^DIST(.403,.001,"AY",16,0,0,"N")="1,.00113^1,.00113^1,.00113^1,.00113^1,.00113"
^DIST(.403,.001,"AY",16,.00113)="2^9^1^^e^^^^1"
^DIST(.403,.001,"AY",16,.00113,1,"D")="4^61^3^1,.00113"
^DIST(.403,.001,"AY",16,.00113,1,"N")="0^0^0^0^0"
^DIST(.403,.001,"AY",16,"FIRST")="1,.00113"
^DIST(.403,.001,"AY",17,0,0,"N")="2,.00114^1,.00114^1,.00114^2,.00114^1,.00114"
^DIST(.403,.001,"AY",17,.00114)="8^4^1^^e^^^^1"
^DIST(.403,.001,"AY",17,.00114,1,"D")="9^29^33^1,.00114"
^DIST(.403,.001,"AY",17,.00114,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",17,.00114,2,"D")="10^29^22^2,.00114"
^DIST(.403,.001,"AY",17,.00114,2,"N")="1^0^0^1^0"
^DIST(.403,.001,"AY",17,"FIRST")="1,.00114"
^DIST(.403,.001,"AY",18,0,0,"N")="4,.00115^1,.00115^1,.00115^4,.00115^1,.00115"
^DIST(.403,.001,"AY",18,.00115)="10^4^1^^e^^^^1"
^DIST(.403,.001,"AY",18,.00115,1,"D")="11^13^28^1,.00115"
^DIST(.403,.001,"AY",18,.00115,1,"N")="0^5^5^0^5"
^DIST(.403,.001,"AY",18,.00115,2,"D")="14^12^60^2,.00115"
^DIST(.403,.001,"AY",18,.00115,2,"N")="3^4^4^3^4"
^DIST(.403,.001,"AY",18,.00115,3,"D")="13^47^3^3,.00115"
^DIST(.403,.001,"AY",18,.00115,3,"N")="5^2^2^5^2"
^DIST(.403,.001,"AY",18,.00115,4,"D")="15^27^45^4,.00115"
^DIST(.403,.001,"AY",18,.00115,4,"N")="2^0^0^2^0"
^DIST(.403,.001,"AY",18,.00115,5,"D")="12^12^10^5,.00115"
^DIST(.403,.001,"AY",18,.00115,5,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",18,.00115,6,"D")="10^23^30^0^^^^^1"
^DIST(.403,.001,"AY",18,"FIRST")="1,.00115"
^DIST(.403,.001,"AY",19,0,0,"N")="6,.00116^1,.00116^1,.00116^7,.00116^1,.00116"
^DIST(.403,.001,"AY",19,.00116)="0^0^1^^e^^^^1"
^DIST(.403,.001,"AY",19,.00116,1,"D")="2^22^30^1,.00116"
^DIST(.403,.001,"AY",19,.00116,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",19,.00116,2,"D")="3^22^13^2,.00116"
^DIST(.403,.001,"AY",19,.00116,2,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",19,.00116,3,"D")="4^22^13^3,.00116"
^DIST(.403,.001,"AY",19,.00116,3,"N")="2^4^4^2^4"
^DIST(.403,.001,"AY",19,.00116,4,"D")="5^22^54^4,.00116"
^DIST(.403,.001,"AY",19,.00116,4,"N")="3^6^6^3^6"
^DIST(.403,.001,"AY",19,.00116,5,"D")="0^1^77^0^^^^^1"
^DIST(.403,.001,"AY",19,.00116,6,"D")="6^16^1^6,.00116"
^DIST(.403,.001,"AY",19,.00116,6,"N")="4^0^7^4^7"
^DIST(.403,.001,"AY",19,.00116,7,"D")="6^48^1^7,.00116"
^DIST(.403,.001,"AY",19,.00116,7,"N")="4^0^0^6^0"
^DIST(.403,.001,"AY",19,"FIRST")="1,.00116"
^DIST(.403,.001,"AY",20,0,0,"N")="2,.00117^1,.00117^1,.00117^2,.00117^1,.00117"
^DIST(.403,.001,"AY",20,.00117)="13^0^1^^e^^^^1"
^DIST(.403,.001,"AY",20,.00117,1,"D")="14^51^3^1,.00117"
^DIST(.403,.001,"AY",20,.00117,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",20,.00117,2,"D")="15^71^3^2,.00117"
^DIST(.403,.001,"AY",20,.00117,2,"N")="1^0^0^1^0"
^DIST(.403,.001,"AY",20,"FIRST")="1,.00117"
^DIST(.403,.001,"AY",21,0,0,"N")="3,.00118^1,.00118^1,.00118^3,.00118^1,.00118"
^DIST(.403,.001,"AY",21,.00118)="6^2^1^^e^^^^1"
^DIST(.403,.001,"AY",21,.00118,1,"D")="7^32^3^1,.00118"
^DIST(.403,.001,"AY",21,.00118,1,"N")="0^2^2^0^2"
^DIST(.403,.001,"AY",21,.00118,2,"D")="9^4^72^2,.00118"
^DIST(.403,.001,"AY",21,.00118,2,"N")="1^3^3^1^3"
^DIST(.403,.001,"AY",21,.00118,3,"D")="11^4^72^3,.00118"
^DIST(.403,.001,"AY",21,.00118,3,"N")="2^0^0^2^0"
^DIST(.403,.001,"AY",21,"FIRST")="1,.00118"
^DIST(.403,.001,"AY","CAP"," ","12^1",12,.0011,1)=""
^DIST(.403,.001,"AY","CAP","ARE YOU SURE YOU WANT TO DELETE THE ENTI",16,16,.00113,1)=""
^DIST(.403,.001,"AY","CAP","AUDIT",1,1,.00101,4)=""
^DIST(.403,.001,"AY","CAP","AUDIT CONDITION",1,1,.00101,5)=""
^DIST(.403,.001,"AY","CAP","CAN DATE BE IMPRECISE",2,2,.00102,3)=""
^DIST(.403,.001,"AY","CAP","CAN SECONDS BE ENTERED",2,2,.00102,5)=""
^DIST(.403,.001,"AY","CAP","CAN TIME OF DAY BE ENTERED",2,2,.00102,4)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,1)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,3)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,5)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,7)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,9)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,11)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,13)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,15)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,17)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,19)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,21)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,23)=""
^DIST(.403,.001,"AY","CAP","CODE",11,11,.00109,25)=""
^DIST(.403,.001,"AY","CAP","DATA TYPE...",1,1,.00101,14)=""
^DIST(.403,.001,"AY","CAP","DELETE ACCESS",1,1,.00101,7)=""
^DIST(.403,.001,"AY","CAP","DESCRIPTION...",1,1,.00101,3)=""
^DIST(.403,.001,"AY","CAP","DESCRIPTION...",19,19,.00116,6)=""
^DIST(.403,.001,"AY","CAP","EARLIEST DATE",2,2,.00102,1)=""
^DIST(.403,.001,"AY","CAP","EXPLANATION OF SCREEN",18,18,.00115,4)=""
^DIST(.403,.001,"AY","CAP","EXPLANATION OF SCREEN",21,21,.00118,3)=""
^DIST(.403,.001,"AY","CAP","FIELD LABEL",1,1,.00101,1)=""
^DIST(.403,.001,"AY","CAP","HAVING ENTERED OR EDITED ONE MULTIPLE, S",20,20,.00117,2)=""
^DIST(.403,.001,"AY","CAP","HELP-PROMPT",1,1,.00101,12)=""
^DIST(.403,.001,"AY","CAP","INCLUSIVE LOWER BOUND",3,3,.00103,1)=""
^DIST(.403,.001,"AY","CAP","INCLUSIVE UPPER BOUND",3,3,.00103,2)=""
^DIST(.403,.001,"AY","CAP","IS THIS A DOLLAR AMOUNT",3,3,.00103,3)=""
^DIST(.403,.001,"AY","CAP","IS THIS FIELD MULTIPLE...",1,1,.00101,17)=""
^DIST(.403,.001,"AY","CAP","IS TIME REQUIRED",2,2,.00102,6)=""
^DIST(.403,.001,"AY","CAP","LATEST DATE",2,2,.00102,2)=""
^DIST(.403,.001,"AY","CAP","LENGTH OF FIELD",8,8,.00106,5)=""
^DIST(.403,.001,"AY","CAP","MANDATORY",1,1,.00101,10)=""
^DIST(.403,.001,"AY","CAP","MAXIMUM LENGTH",6,6,.00104,2)=""
^DIST(.403,.001,"AY","CAP","MAXIMUM NUMBER OF FRACTIONAL DIGITS",3,3,.00103,4)=""
^DIST(.403,.001,"AY","CAP","MESSAGE",18,18,.00115,1)=""
^DIST(.403,.001,"AY","CAP","MINIMUM LENGTH",6,6,.00104,1)=""
^DIST(.403,.001,"AY","CAP","MULTIPLE-FIELD LABEL",19,19,.00116,1)=""
^DIST(.403,.001,"AY","CAP","MUMPS CODE THAT WILL SET DIC(""S"")",21,21,.00118,2)=""
^DIST(.403,.001,"AY","CAP","NUMBER OF FRACTIONAL DIGITS TO OUTPUT",8,8,.00106,3)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,3)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,4)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,6)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,7)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,8)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,9)=""
^DIST(.403,.001,"AY","CAP","ORDER...",10,10,.00108,10)=""
^DIST(.403,.001,"AY","CAP","PATTERN MATCH (IN 'X')",6,6,.00104,3)=""
^DIST(.403,.001,"AY","CAP","PIECE-POSITION",15,15,.00112,3)=""
^DIST(.403,.001,"AY","CAP","POINT TO FILE",8,8,.00106,8)=""
^DIST(.403,.001,"AY","CAP","POINT TO WHICH FILE",9,9,.00107,1)=""
^DIST(.403,.001,"AY","CAP","PREFIX",18,18,.00115,5)=""
^DIST(.403,.001,"AY","CAP","READ ACCESS",1,1,.00101,6)=""
^DIST(.403,.001,"AY","CAP","READ ACCESS",19,19,.00116,2)=""
^DIST(.403,.001,"AY","CAP","SCREEN",18,18,.00115,2)=""
^DIST(.403,.001,"AY","CAP","SHALL ""|"" CHARACTERS IN THIS TEXT BE TRE",7,7,.00105,2)=""
^DIST(.403,.001,"AY","CAP","SHALL 'ADDING A NEW FILE ENTRY (""LAYGO"")",9,9,.00107,2)=""
^DIST(.403,.001,"AY","CAP","SHALL THIS TEXT NORMALLY APPEAR IN WORD-",7,7,.00105,1)=""
^DIST(.403,.001,"AY","CAP","SHOULD ENTRIES BE SCREENED",21,21,.00118,1)=""
^DIST(.403,.001,"AY","CAP","SHOULD USER BE ALLOWED TO ADD A NEW ENTR",18,18,.00115,3)=""
^DIST(.403,.001,"AY","CAP","SHOULD USER SEE AN ""ADDING A NEW ENTRY"" ",20,20,.00117,1)=""
^DIST(.403,.001,"AY","CAP","SHOULD VALUE ALWAYS BE ROUNDED",8,8,.00106,6)=""
^DIST(.403,.001,"AY","CAP","SOURCE",1,1,.00101,16)=""
^DIST(.403,.001,"AY","CAP","SOURCE",19,19,.00116,4)=""
^DIST(.403,.001,"AY","CAP","SUB-DICTIONARY NUMBER",17,17,.00114,2)=""
^DIST(.403,.001,"AY","CAP","SUBSCRIPT",15,15,.00112,2)=""
^DIST(.403,.001,"AY","CAP","SUBSCRIPT",17,17,.00114,1)=""
^DIST(.403,.001,"AY","CAP","TECHNICAL DESCRIPTION...",1,1,.00101,9)=""
^DIST(.403,.001,"AY","CAP","TECHNICAL DESCRIPTION...",19,19,.00116,7)=""
^DIST(.403,.001,"AY","CAP","TITLE",1,1,.00101,2)=""
^DIST(.403,.001,"AY","CAP","TYPE OF RESULT",8,8,.00106,4)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #1",10,10,.00108,1)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #2",10,10,.00108,2)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #3",10,10,.00108,5)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #4",10,10,.00108,11)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #5",10,10,.00108,12)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #6",10,10,.00108,13)=""
^DIST(.403,.001,"AY","CAP","VARIABLE-POINTER FILE #7",10,10,.00108,14)=""
^DIST(.403,.001,"AY","CAP","WHEN TOTALLING, SHOULD SUMS BE SUMS OF C",8,8,.00106,7)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,2)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,4)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,6)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,8)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,10)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,12)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,14)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,16)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,18)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,20)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,22)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,24)=""
^DIST(.403,.001,"AY","CAP","WILL STAND FOR",11,11,.00109,26)=""
^DIST(.403,.001,"AY","CAP","WRITE ACCESS",1,1,.00101,8)=""
^DIST(.403,.001,"AY","CAP","WRITE ACCESS",19,19,.00116,3)=""
^DIST(.403,.001,"AY","CAP","XECUTABLE HELP",1,1,.00101,13)=""
^DIST(.403,.001,"AY","COMPE",.00101,15)="D NUMBER^DICATTD"
^DIST(.403,.001,"AY","COMPE",.00115,6)="S Y=""VARIABLE-POINTER #""_$G(DICATTVP)"
^DIST(.403,.001,"AY","COMPE",.00116,5)="D NUMBER^DICATTD"
^DIST(.403,.001,"AY","F0","1,.00101","L",1,.00101,1)=""
^DIST(.403,.001,"AY","F0","1,.00102","L",2,.00102,1)=""
^DIST(.403,.001,"AY","F0","1,.00103","L",3,.00103,1)=""
^DIST(.403,.001,"AY","F0","1,.00104","L",6,.00104,1)=""
^DIST(.403,.001,"AY","F0","1,.00105","L",7,.00105,1)=""
^DIST(.403,.001,"AY","F0","1,.00106","L",8,.00106,1)=""
^DIST(.403,.001,"AY","F0","1,.00107","L",9,.00107,1)=""
^DIST(.403,.001,"AY","F0","1,.00108","L",10,.00108,1)=""
^DIST(.403,.001,"AY","F0","1,.00109","L",11,.00109,1)=""
^DIST(.403,.001,"AY","F0","1,.0011","L",12,.0011,1)=""
^DIST(.403,.001,"AY","F0","1,.00113","L",16,.00113,1)=""
^DIST(.403,.001,"AY","F0","1,.00114","L",17,.00114,1)=""
^DIST(.403,.001,"AY","F0","1,.00115","L",18,.00115,1)=""
^DIST(.403,.001,"AY","F0","1,.00116","L",19,.00116,1)=""
^DIST(.403,.001,"AY","F0","1,.00117","L",20,.00117,1)=""
^DIST(.403,.001,"AY","F0","1,.00118","L",21,.00118,1)=""
^DIST(.403,.001,"AY","F0","10,.00101","L",1,.00101,10)=""
^DIST(.403,.001,"AY","F0","10,.00108","L",10,.00108,10)=""
^DIST(.403,.001,"AY","F0","10,.00109","L",11,.00109,10)=""
^DIST(.403,.001,"AY","F0","11,.00108","L",10,.00108,11)=""
^DIST(.403,.001,"AY","F0","11,.00109","L",11,.00109,11)=""
^DIST(.403,.001,"AY","F0","12,.00101","L",1,.00101,12)=""
^DIST(.403,.001,"AY","F0","12,.00108","L",10,.00108,12)=""
^DIST(.403,.001,"AY","F0","12,.00109","L",11,.00109,12)=""
^DIST(.403,.001,"AY","F0","13,.00101","L",1,.00101,13)=""
^DIST(.403,.001,"AY","F0","13,.00108","L",10,.00108,13)=""
^DIST(.403,.001,"AY","F0","13,.00109","L",11,.00109,13)=""
^DIST(.403,.001,"AY","F0","14,.00101","L",1,.00101,14)=""
^DIST(.403,.001,"AY","F0","14,.00108","L",10,.00108,14)=""
^DIST(.403,.001,"AY","F0","14,.00109","L",11,.00109,14)=""
^DIST(.403,.001,"AY","F0","15,.00109","L",11,.00109,15)=""
^DIST(.403,.001,"AY","F0","16,.00101","L",1,.00101,16)=""
^DIST(.403,.001,"AY","F0","16,.00109","L",11,.00109,16)=""
^DIST(.403,.001,"AY","F0","17,.00101","L",1,.00101,17)=""
^DIST(.403,.001,"AY","F0","17,.00109","L",11,.00109,17)=""
^DIST(.403,.001,"AY","F0","18,.00109","L",11,.00109,18)=""
^DIST(.403,.001,"AY","F0","19,.00109","L",11,.00109,19)=""
^DIST(.403,.001,"AY","F0","2,.00101","L",1,.00101,2)=""
^DIST(.403,.001,"AY","F0","2,.00102","L",2,.00102,2)=""
^DIST(.403,.001,"AY","F0","2,.00103","L",3,.00103,2)=""
^DIST(.403,.001,"AY","F0","2,.00104","L",6,.00104,2)=""
^DIST(.403,.001,"AY","F0","2,.00105","L",7,.00105,2)=""
^DIST(.403,.001,"AY","F0","2,.00107","L",9,.00107,2)=""
^DIST(.403,.001,"AY","F0","2,.00108","L",10,.00108,2)=""
^DIST(.403,.001,"AY","F0","2,.00109","L",11,.00109,2)=""
^DIST(.403,.001,"AY","F0","2,.00112","L",15,.00112,2)=""
^DIST(.403,.001,"AY","F0","2,.00114","L",17,.00114,2)=""
^DIST(.403,.001,"AY","F0","2,.00115","L",18,.00115,2)=""
^DIST(.403,.001,"AY","F0","2,.00116","L",19,.00116,2)=""
^DIST(.403,.001,"AY","F0","2,.00117","L",20,.00117,2)=""
^DIST(.403,.001,"AY","F0","2,.00118","L",21,.00118,2)=""
^DIST(.403,.001,"AY","F0","20,.00109","L",11,.00109,20)=""
^DIST(.403,.001,"AY","F0","21,.00109","L",11,.00109,21)=""
^DIST(.403,.001,"AY","F0","22,.00109","L",11,.00109,22)=""
^DIST(.403,.001,"AY","F0","23,.00109","L",11,.00109,23)=""
^DIST(.403,.001,"AY","F0","24,.00109","L",11,.00109,24)=""
^DIST(.403,.001,"AY","F0","25,.00109","L",11,.00109,25)=""
^DIST(.403,.001,"AY","F0","26,.00109","L",11,.00109,26)=""
^DIST(.403,.001,"AY","F0","3,.00101","L",1,.00101,3)=""
^DIST(.403,.001,"AY","F0","3,.00102","L",2,.00102,3)=""
^DIST(.403,.001,"AY","F0","3,.00103","L",3,.00103,3)=""
^DIST(.403,.001,"AY","F0","3,.00104","L",6,.00104,3)=""
^DIST(.403,.001,"AY","F0","3,.00106","L",8,.00106,3)=""
^DIST(.403,.001,"AY","F0","3,.00108","L",10,.00108,3)=""
^DIST(.403,.001,"AY","F0","3,.00109","L",11,.00109,3)=""
^DIST(.403,.001,"AY","F0","3,.00112","L",15,.00112,3)=""
^DIST(.403,.001,"AY","F0","3,.00115","L",18,.00115,3)=""
^DIST(.403,.001,"AY","F0","3,.00116","L",19,.00116,3)=""
^DIST(.403,.001,"AY","F0","3,.00118","L",21,.00118,3)=""
^DIST(.403,.001,"AY","F0","4,.00101","L",1,.00101,4)=""
^DIST(.403,.001,"AY","F0","4,.00102","L",2,.00102,4)=""
^DIST(.403,.001,"AY","F0","4,.00103","L",3,.00103,4)=""
^DIST(.403,.001,"AY","F0","4,.00106","L",8,.00106,4)=""
^DIST(.403,.001,"AY","F0","4,.00108","L",10,.00108,4)=""
^DIST(.403,.001,"AY","F0","4,.00109","L",11,.00109,4)=""
^DIST(.403,.001,"AY","F0","4,.00115","L",18,.00115,4)=""
^DIST(.403,.001,"AY","F0","4,.00116","L",19,.00116,4)=""
^DIST(.403,.001,"AY","F0","5,.00101","L",1,.00101,5)=""
^DIST(.403,.001,"AY","F0","5,.00102","L",2,.00102,5)=""
^DIST(.403,.001,"AY","F0","5,.00106","L",8,.00106,5)=""
^DIST(.403,.001,"AY","F0","5,.00108","L",10,.00108,5)=""
^DIST(.403,.001,"AY","F0","5,.00109","L",11,.00109,5)=""
^DIST(.403,.001,"AY","F0","5,.00115","L",18,.00115,5)=""
^DIST(.403,.001,"AY","F0","6,.00101","L",1,.00101,6)=""
^DIST(.403,.001,"AY","F0","6,.00102","L",2,.00102,6)=""
^DIST(.403,.001,"AY","F0","6,.00106","L",8,.00106,6)=""
^DIST(.403,.001,"AY","F0","6,.00108","L",10,.00108,6)=""
^DIST(.403,.001,"AY","F0","6,.00109","L",11,.00109,6)=""
^DIST(.403,.001,"AY","F0","6,.00116","L",19,.00116,6)=""
^DIST(.403,.001,"AY","F0","7,.00101","L",1,.00101,7)=""
^DIST(.403,.001,"AY","F0","7,.00106","L",8,.00106,7)=""
^DIST(.403,.001,"AY","F0","7,.00108","L",10,.00108,7)=""
^DIST(.403,.001,"AY","F0","7,.00109","L",11,.00109,7)=""
^DIST(.403,.001,"AY","F0","7,.00116","L",19,.00116,7)=""
^DIST(.403,.001,"AY","F0","8,.00101","L",1,.00101,8)=""
^DIST(.403,.001,"AY","F0","8,.00106","L",8,.00106,8)=""
^DIST(.403,.001,"AY","F0","8,.00108","L",10,.00108,8)=""
^DIST(.403,.001,"AY","F0","8,.00109","L",11,.00109,8)=""
^DIST(.403,.001,"AY","F0","9,.00101","L",1,.00101,9)=""
^DIST(.403,.001,"AY","F0","9,.00108","L",10,.00108,9)=""
^DIST(.403,.001,"AY","F0","9,.00109","L",11,.00109,9)=""
^DIST(.403,.001,"AY","F1",0,"L",1,.00101,15)=""
^DIST(.403,.001,"AY","F1",0,"L",13,.00111,1)=""
^DIST(.403,.001,"AY","F1",0,"L",18,.00115,6)=""
^DIST(.403,.001,"AY","F1",0,"L",19,.00116,5)=""
^DIST(.403,.001,"AY","X",1,1,0)="FIELD LABEL:                                  DATA TYPE..."
^DIST(.403,.001,"AY","X",1,1,0,"A")="47;58;U"
^DIST(.403,.001,"AY","X",1,3,10)="TITLE:"
^DIST(.403,.001,"AY","X",1,4,10)="AUDIT:"
^DIST(.403,.001,"AY","X",1,5,0)="AUDIT CONDITION:"
^DIST(.403,.001,"AY","X",1,6,4)="READ ACCESS:"
^DIST(.403,.001,"AY","X",1,7,2)="DELETE ACCESS:"
^DIST(.403,.001,"AY","X",1,8,3)="WRITE ACCESS:"
^DIST(.403,.001,"AY","X",1,9,9)="SOURCE:"
^DIST(.403,.001,"AY","X",1,10,1)="DESCRIPTION...        TECHNICAL DESCRIPTION..."
^DIST(.403,.001,"AY","X",1,12,22)="IS THIS FIELD MULTIPLE..."
^DIST(.403,.001,"AY","X",1,14,5)="MANDATORY:"
^DIST(.403,.001,"AY","X",1,15,3)="HELP-PROMPT:"
^DIST(.403,.001,"AY","X",1,16,0)="XECUTABLE HELP:"
^DIST(.403,.001,"AY","X",2,4,17)="EARLIEST DATE:"
^DIST(.403,.001,"AY","X",2,5,19)="LATEST DATE:"
^DIST(.403,.001,"AY","X",2,6,9)="CAN DATE BE IMPRECISE:"
^DIST(.403,.001,"AY","X",2,7,4)="CAN TIME OF DAY BE ENTERED:"
^DIST(.403,.001,"AY","X",2,8,8)="CAN SECONDS BE ENTERED:"
^DIST(.403,.001,"AY","X",2,9,14)="IS TIME REQUIRED:"
^DIST(.403,.001,"AY","X",3,4,18)="INCLUSIVE LOWER BOUND:"
^DIST(.403,.001,"AY","X",3,4,18,"A")="1;21;U"
^DIST(.403,.001,"AY","X",3,5,18)="INCLUSIVE UPPER BOUND:"
^DIST(.403,.001,"AY","X",3,5,18,"A")="1;21;U"
^DIST(.403,.001,"AY","X",3,6,16)="IS THIS A DOLLAR AMOUNT:"
^DIST(.403,.001,"AY","X",3,7,4)="MAXIMUM NUMBER OF FRACTIONAL DIGITS:"
^DIST(.403,.001,"AY","X",6,3,17)="MINIMUM LENGTH:"
^DIST(.403,.001,"AY","X",6,3,17,"A")="1;14;U"
^DIST(.403,.001,"AY","X",6,4,17)="MAXIMUM LENGTH:"
^DIST(.403,.001,"AY","X",6,4,17,"A")="1;14;U"
^DIST(.403,.001,"AY","X",6,5,9)="PATTERN MATCH (IN 'X'):"
^DIST(.403,.001,"AY","X",7,4,2)="SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE:"
^DIST(.403,.001,"AY","X",7,5,2)="SHALL ""|"" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHARACTERS:"
^DIST(.403,.001,"AY","X",8,3,2)="COMPUTED-FIELD EXPRESSION:"
^DIST(.403,.001,"AY","X",8,5,13)="TYPE OF RESULT:"
^DIST(.403,.001,"AY","X",8,6,26)="NUMBER OF FRACTIONAL DIGITS TO OUTPUT:"
^DIST(.403,.001,"AY","X",8,7,33)="SHOULD VALUE ALWAYS BE ROUNDED:"
^DIST(.403,.001,"AY","X",8,8,8)="WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS:"
^DIST(.403,.001,"AY","X",8,9,2)="LENGTH OF FIELD:            POINT TO FILE:"
^DIST(.403,.001,"AY","X",9,3,6)="POINT TO WHICH FILE:"
^DIST(.403,.001,"AY","X",9,5,6)="SHALL 'ADDING A NEW FILE ENTRY (""LAYGO"") BE ALLOWED:"
^DIST(.403,.001,"AY","X",10,3,4)="VARIABLE-POINTER FILE #1:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,3,4,"A")="1;24;U"
^DIST(.403,.001,"AY","X",10,4,4)="VARIABLE-POINTER FILE #2:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,5,4)="VARIABLE-POINTER FILE #3:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,6,4)="VARIABLE-POINTER FILE #4:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,7,4)="VARIABLE-POINTER FILE #5:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,8,4)="VARIABLE-POINTER FILE #6:                                 ORDER..."
^DIST(.403,.001,"AY","X",10,9,4)="VARIABLE-POINTER FILE #7:                                 ORDER..."
^DIST(.403,.001,"AY","X",11,3,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,3,6,"A")="1;4;U^13;26;U"
^DIST(.403,.001,"AY","X",11,4,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,5,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,6,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,7,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,8,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,9,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,10,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,11,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,12,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,13,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,14,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",11,15,6)="CODE:       WILL STAND FOR:"
^DIST(.403,.001,"AY","X",12,0,0)=" "
^DIST(.403,.001,"AY","X",13,0,0)=" "
^DIST(.403,.001,"AY","X",15,4,14)="SUBSCRIPT:"
^DIST(.403,.001,"AY","X",15,4,14,"A")="1;9;U"
^DIST(.403,.001,"AY","X",15,5,9)="PIECE-POSITION:"
^DIST(.403,.001,"AY","X",15,5,9,"A")="1;14;U"
^DIST(.403,.001,"AY","X",16,3,11)="*****************************************************"
^DIST(.403,.001,"AY","X",16,4,11)="ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD:"
^DIST(.403,.001,"AY","X",16,5,11)="*****************************************************"
^DIST(.403,.001,"AY","X",17,9,18)="SUBSCRIPT:"
^DIST(.403,.001,"AY","X",17,9,18,"A")="1;9;U"
^DIST(.403,.001,"AY","X",17,10,6)="SUB-DICTIONARY NUMBER:"
^DIST(.403,.001,"AY","X",17,10,6,"A")="1;21;U"
^DIST(.403,.001,"AY","X",18,11,4)="MESSAGE:"
^DIST(.403,.001,"AY","X",18,12,4)="PREFIX:"
^DIST(.403,.001,"AY","X",18,13,4)="SHOULD USER BE ALLOWED TO ADD A NEW ENTRY:"
^DIST(.403,.001,"AY","X",18,14,4)="SCREEN:"
^DIST(.403,.001,"AY","X",18,15,4)="EXPLANATION OF SCREEN:"
^DIST(.403,.001,"AY","X",19,0,0)=" "
^DIST(.403,.001,"AY","X",19,2,0)="MULTIPLE-FIELD LABEL:"
^DIST(.403,.001,"AY","X",19,3,9)="READ ACCESS:"
^DIST(.403,.001,"AY","X",19,4,8)="WRITE ACCESS:"
^DIST(.403,.001,"AY","X",19,5,14)="SOURCE:"
^DIST(.403,.001,"AY","X",19,6,1)="DESCRIPTION...        TECHNICAL DESCRIPTION..."
^DIST(.403,.001,"AY","X",20,14,2)="SHOULD USER SEE AN ""ADDING A NEW ENTRY"" MESSAGE:"
^DIST(.403,.001,"AY","X",20,15,2)="HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER:"
^DIST(.403,.001,"AY","X",21,7,4)="SHOULD ENTRIES BE SCREENED:"
^DIST(.403,.001,"AY","X",21,8,4)="MUMPS CODE THAT WILL SET DIC(""S""):"
^DIST(.403,.001,"AY","X",21,10,4)="EXPLANATION OF SCREEN:"
^DIST(.403,.1001,0)="DIPTED^@^^^2980611.1708^2990303.0831^^.4^0^0^1"
^DIST(.403,.1001,14)="D SAVEFLDS^DIPTED(DA)"
^DIST(.403,.1001,40,0)="^.4031I^2^2"
^DIST(.403,.1001,40,1,0)="1^^1,1^2"
^DIST(.403,.1001,40,1,1)="Page 1"
^DIST(.403,.1001,40,1,40,0)="^.4032IP^.10011^1"
^DIST(.403,.1001,40,1,40,.10011,0)=".10011^1^1,1^e"
^DIST(.403,.1001,40,1,40,"AC",1,.10011)=""
^DIST(.403,.1001,40,1,40,"B",.10011,.10011)=""
^DIST(.403,.1001,40,2,0)="2^^1,1^^1"
^DIST(.403,.1001,40,2,1)="Page 2"
^DIST(.403,.1001,40,2,40,0)="^.4032IP^.10012^1"
^DIST(.403,.1001,40,2,40,.10012,0)=".10012^1^1,1^e"
^DIST(.403,.1001,40,2,40,"AC",1,.10012)=""
^DIST(.403,.1001,40,2,40,"B",.10012,.10012)=""
^DIST(.403,.1001,40,"B",1,1)=""
^DIST(.403,.1001,40,"B",2,2)=""
^DIST(.403,.1001,40,"C","PAGE 1",1)=""
^DIST(.403,.1001,40,"C","PAGE 2",2)=""
^DIST(.403,.1001,"AY",1,0,0,"N")="8,.10011^1,.10011^1,.10011^8,.10011^1,.10011"
^DIST(.403,.1001,"AY",1,.10011)="0^0^.4^^e^^^^1"
^DIST(.403,.1001,"AY",1,.10011,1,"D")="0^15^30^.01"
^DIST(.403,.1001,"AY",1,.10011,1,"N")="0^2^10^0^10"
^DIST(.403,.1001,"AY",1,.10011,2,"D")="3^27^17^2"
^DIST(.403,.1001,"AY",1,.10011,2,"N")="1^3^3^10^3"
^DIST(.403,.1001,"AY",1,.10011,3,"D")="4^27^11^7"
^DIST(.403,.1001,"AY",1,.10011,3,"N")="2^4^4^2^4"
^DIST(.403,.1001,"AY",1,.10011,4,"D")="5^27^13^3"
^DIST(.403,.1001,"AY",1,.10011,4,"N")="3^5^5^3^5"
^DIST(.403,.1001,"AY",1,.10011,5,"D")="6^27^13^6"
^DIST(.403,.1001,"AY",1,.10011,5,"N")="4^6^6^4^6"
^DIST(.403,.1001,"AY",1,.10011,6,"D")="7^27^9^5"
^DIST(.403,.1001,"AY",1,.10011,6,"N")="5^7^7^5^7"
^DIST(.403,.1001,"AY",1,.10011,7,"D")="9^27^1^10"
^DIST(.403,.1001,"AY",1,.10011,7,"N")="6^12^12^6^12^^^^^^1"
^DIST(.403,.1001,"AY",1,.10011,8,"D")="13^27^3^707"
^DIST(.403,.1001,"AY",1,.10011,8,"N")="12^0^0^12^0"
^DIST(.403,.1001,"AY",1,.10011,10,"D")="0^70^9^8"
^DIST(.403,.1001,"AY",1,.10011,10,"N")="0^2^2^1^2"
^DIST(.403,.1001,"AY",1,.10011,12,"D")="12^3^76^12,.10011"
^DIST(.403,.1001,"AY",1,.10011,12,"N")="7^8^8^7^8"
^DIST(.403,.1001,"AY",1,.10011,13,"D")="1^19^44^0^^^^^1"
^DIST(.403,.1001,"AY",1,"FIRST")="1,.10011"
^DIST(.403,.1001,"AY",2,0,0,"N")="0^0^0^0^0"
^DIST(.403,.1001,"AY",2,.10012)="0^0^.4^^e^^^^0"
^DIST(.403,.1001,"AY",2,"FIRST")="0,.10012"
^DIST(.403,.1001,"AY","CAP","DATE LAST MODIFIED","1^2",1,.10011,2)=""
^DIST(.403,.1001,"AY","CAP","DATE LAST USED","1^2",1,.10011,3)=""
^DIST(.403,.1001,"AY","CAP","DESCRIPTION...","1^2",1,.10011,7)=""
^DIST(.403,.1001,"AY","CAP","HEADER","1^2",1,.10011,12)=""
^DIST(.403,.1001,"AY","CAP","READ ACCESS","1^2",1,.10011,4)=""
^DIST(.403,.1001,"AY","CAP","SUB-HEADER SUPPRESSED","1^2",1,.10011,8)=""
^DIST(.403,.1001,"AY","CAP","TEMPLATE NAME","1^2",1,.10011,1)=""
^DIST(.403,.1001,"AY","CAP","TEMPLATE TYPE","1^2",1,.10011,10)=""
^DIST(.403,.1001,"AY","CAP","USER #","1^2",1,.10011,6)=""
^DIST(.403,.1001,"AY","CAP","WRITE ACCESS","1^2",1,.10011,5)=""
^DIST(.403,.1001,"AY","COMPE",.10011,13)="S Y=$G(^DIPT(DA,""ROU"")),Y=$S(Y]"""":""(Compiled as '""_Y_""' routine)"",1:""(Not Compiled)"")"
^DIST(.403,.1001,"AY","F.4",0,"L",1,.10011,13)=""
^DIST(.403,.1001,"AY","F.4",.01,"L",1,.10011,1)=""
^DIST(.403,.1001,"AY","F.4",2,"L",1,.10011,2)=""
^DIST(.403,.1001,"AY","F.4",3,"L",1,.10011,4)=""
^DIST(.403,.1001,"AY","F.4",5,"L",1,.10011,6)=""
^DIST(.403,.1001,"AY","F.4",6,"L",1,.10011,5)=""
^DIST(.403,.1001,"AY","F.4",7,"L",1,.10011,3)=""
^DIST(.403,.1001,"AY","F.4",8,"L",1,.10011,10)=""
^DIST(.403,.1001,"AY","F.4",10,"L",1,.10011,7)=""
^DIST(.403,.1001,"AY","F.4",707,"L",1,.10011,8)=""
^DIST(.403,.1001,"AY","F0","12,.10011","L",1,.10011,12)=""
^DIST(.403,.1001,"AY","X",1,0,0)="TEMPLATE NAME:                                         TEMPLATE TYPE:"
^DIST(.403,.1001,"AY","X",1,3,7)="DATE LAST MODIFIED:"
^DIST(.403,.1001,"AY","X",1,4,11)="DATE LAST USED:"
^DIST(.403,.1001,"AY","X",1,5,14)="READ ACCESS:"
^DIST(.403,.1001,"AY","X",1,6,13)="WRITE ACCESS:"
^DIST(.403,.1001,"AY","X",1,7,19)="USER #:"
^DIST(.403,.1001,"AY","X",1,9,12)="DESCRIPTION..."
^DIST(.403,.1001,"AY","X",1,11,3)="HEADER:"
^DIST(.403,.1001,"AY","X",1,13,4)="SUB-HEADER SUPPRESSED:"
^DIST(.403,.1001,"AY","X",1,15,19)="(Print Fields on Next Page...)"
^DIST(.403,.1001,"AY","X",2,0,0)=" "
^DIST(.403,.1101,0)="DIKC EDIT^^^^2970612.1058^3000110.1335^^.11^0^0^1"
^DIST(.403,.1101,14)="D POSTSV^DIKCFORM"
^DIST(.403,.1101,20)="D FORMDV^DIKCFORM"
^DIST(.403,.1101,40,0)="^.4031I^2^4"
^DIST(.403,.1101,40,1,0)="1^^1,1^2^2"
^DIST(.403,.1101,40,1,1)="Page 1"
^DIST(.403,.1101,40,1,40,0)="^.4032IP^.110101^2"
^DIST(.403,.1101,40,1,40,.110101,0)=".110101^2^4,1^e"
^DIST(.403,.1101,40,1,40,.110102,0)=".110102^1^1,1^d"
^DIST(.403,.1101,40,1,40,"AC",1,.110102)=""
^DIST(.403,.1101,40,1,40,"AC",2,.110101)=""
^DIST(.403,.1101,40,1,40,"B",.110101,.110101)=""
^DIST(.403,.1101,40,1,40,"B",.110102,.110102)=""
^DIST(.403,.1101,40,2,0)="2^^1,1^1^1"
^DIST(.403,.1101,40,2,1)="Page 2"
^DIST(.403,.1101,40,2,40,0)="^.4032IP^.110103^4"
^DIST(.403,.1101,40,2,40,.110103,0)=".110103^4^10,1^e"
^DIST(.403,.1101,40,2,40,.110104,0)=".110104^3^6,2^e"
^DIST(.403,.1101,40,2,40,.110104,2)="5^^f"
^DIST(.403,.1101,40,2,40,.110105,0)=".110105^2^3,1^d"
^DIST(.403,.1101,40,2,40,.110106,0)=".110106^1^1,1^d"
^DIST(.403,.1101,40,2,40,"AC",1,.110106)=""
^DIST(.403,.1101,40,2,40,"AC",2,.110105)=""
^DIST(.403,.1101,40,2,40,"AC",3,.110104)=""
^DIST(.403,.1101,40,2,40,"AC",4,.110103)=""
^DIST(.403,.1101,40,2,40,"B",.110103,.110103)=""
^DIST(.403,.1101,40,2,40,"B",.110104,.110104)=""
^DIST(.403,.1101,40,2,40,"B",.110105,.110105)=""
^DIST(.403,.1101,40,2,40,"B",.110106,.110106)=""
^DIST(.403,.1101,40,3,0)="2.1^^6,1^^^1^17,79"
^DIST(.403,.1101,40,3,1)="Page 2.1"
^DIST(.403,.1101,40,3,11)="S DIKCPG21=1"
^DIST(.403,.1101,40,3,12)="K DIKCPG21"
^DIST(.403,.1101,40,3,40,0)="^.4032IP^.110107^1"
^DIST(.403,.1101,40,3,40,.110107,0)=".110107^1^1,1^e"
^DIST(.403,.1101,40,3,40,.110107,11)="K DIKCCRV D BKPRE21^DIKCFORM"
^DIST(.403,.1101,40,3,40,.110107,12)="I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV"
^DIST(.403,.1101,40,3,40,"AC",1,.110107)=""
^DIST(.403,.1101,40,3,40,"B",.110107,.110107)=""
^DIST(.403,.1101,40,4,0)="2.2^^10,1^^^1^17,79"
^DIST(.403,.1101,40,4,1)="Page 2.2"
^DIST(.403,.1101,40,4,40,0)="^.4032IP^.110108^1"
^DIST(.403,.1101,40,4,40,.110108,0)=".110108^1^1,1^e"
^DIST(.403,.1101,40,4,40,.110108,11)="K DIKCCRV"
^DIST(.403,.1101,40,4,40,.110108,12)="I $D(DIKCCRV)#2 D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV"
^DIST(.403,.1101,40,4,40,"AC",1,.110108)=""
^DIST(.403,.1101,40,4,40,"B",.110108,.110108)=""
^DIST(.403,.1101,40,"B",1,1)=""
^DIST(.403,.1101,40,"B",2,2)=""
^DIST(.403,.1101,40,"B",2.1,3)=""
^DIST(.403,.1101,40,"B",2.2,4)=""
^DIST(.403,.1101,40,"C","PAGE 1",1)=""
^DIST(.403,.1101,40,"C","PAGE 2",2)=""
^DIST(.403,.1101,40,"C","PAGE 2.1",3)=""
^DIST(.403,.1101,40,"C","PAGE 2.2",4)=""
^DIST(.403,.1101,"AY",1,0,0,"N")="9,.110101^1,.110101^1,.110101^9,.110101^1,.110101"
^DIST(.403,.1101,"AY",1,.110101)="3^0^.11^^e^^^^1"
^DIST(.403,.1101,"AY",1,.110101,1,"D")="3^14^20^.01"
^DIST(.403,.1101,"AY",1,.110101,1,"N")="0^2^10^0^10"
^DIST(.403,.1101,"AY",1,.110101,2,"D")="4^14^30^.02"
^DIST(.403,.1101,"AY",1,.110101,2,"N")="1^3^11^10^11"
^DIST(.403,.1101,"AY",1,.110101,3,"D")="6^19^60^.11"
^DIST(.403,.1101,"AY",1,.110101,3,"N")="2^4^4^11^4"
^DIST(.403,.1101,"AY",1,.110101,4,"D")="7^19^1^.1"
^DIST(.403,.1101,"AY",1,.110101,4,"N")="3^5^5^3^5^^^^^^1"
^DIST(.403,.1101,"AY",1,.110101,5,"D")="9^14^8^.2"
^DIST(.403,.1101,"AY",1,.110101,5,"N")="4^8^8^4^8"
^DIST(.403,.1101,"AY",1,.110101,7,"D")="12^14^6^.4"
^DIST(.403,.1101,"AY",1,.110101,7,"N")="8^9^9^8^9"
^DIST(.403,.1101,"AY",1,.110101,8,"D")="11^14^5^.41"
^DIST(.403,.1101,"AY",1,.110101,8,"N")="5^7^7^5^7"
^DIST(.403,.1101,"AY",1,.110101,9,"D")="14^14^16^.42"
^DIST(.403,.1101,"AY",1,.110101,9,"N")="7^0^0^7^0"
^DIST(.403,.1101,"AY",1,.110101,10,"D")="3^59^20^.51"
^DIST(.403,.1101,"AY",1,.110101,10,"N")="0^11^2^1^2"
^DIST(.403,.1101,"AY",1,.110101,11,"D")="4^59^16^.5"
^DIST(.403,.1101,"AY",1,.110101,11,"N")="10^3^3^2^3"
^DIST(.403,.1101,"AY",1,.110101,14,"D")="^^^^7^22^^0"
^DIST(.403,.1101,"AY",1,.110102)="0^0^.11^^d^^^^0"
^DIST(.403,.1101,"AY",1,.110102,2,"D")="0^8^15^0^^^^^1"
^DIST(.403,.1101,"AY",1,"FIRST")="1,.110101"
^DIST(.403,.1101,"AY",2,0,0,"N")="28,.110103^1,.110104^1,.110104^28,.110103^1,.110104"
^DIST(.403,.1101,"AY",2,.110103)="9^0^.11^^e^^^^1"
^DIST(.403,.1101,"AY",2,.110103,1,"D")="11^12^67^1.1"
^DIST(.403,.1101,"AY",2,.110103,1,"N")="1,.110104^2^2^5,.110104^2"
^DIST(.403,.1101,"AY",2,.110103,2,"D")="12^12^67^2.1"
^DIST(.403,.1101,"AY",2,.110103,2,"N")="1^18^18^1^18"
^DIST(.403,.1101,"AY",2,.110103,18,"D")="13^12^67^2.5"
^DIST(.403,.1101,"AY",2,.110103,18,"N")="2^27^27^2^27"
^DIST(.403,.1101,"AY",2,.110103,27,"D")="15^16^63^1.4"
^DIST(.403,.1101,"AY",2,.110103,27,"N")="18^28^28^18^28"
^DIST(.403,.1101,"AY",2,.110103,28,"D")="16^16^63^2.4"
^DIST(.403,.1101,"AY",2,.110103,28,"N")="27^0^0^27^0"
^DIST(.403,.1101,"AY",2,.110104)="5^1^.114^^e^^5^^1^1"
^DIST(.403,.1101,"AY",2,.110104,1,"D")="5^3^3^.01"
^DIST(.403,.1101,"AY",2,.110104,1,"N")="0^1,.110103^1,.110103^0^1,.110103^1,-1^1,+1^2^5,-1^2"
^DIST(.403,.1101,"AY",2,.110104,2,"D")="5^12^3^.5"
^DIST(.403,.1101,"AY",2,.110104,2,"N")="0^1,.110103^1,.110103^1^1,.110103^2,-1^2,+1^3^1^3"
^DIST(.403,.1101,"AY",2,.110104,3,"D")="5^19^8^1"
^DIST(.403,.1101,"AY",2,.110104,3,"N")="0^1,.110103^1,.110103^2^1,.110103^3,-1^3,+1^5^2^5"
^DIST(.403,.1101,"AY",2,.110104,4,"D")="5^36^43^0^^^^^1"
^DIST(.403,.1101,"AY",2,.110104,4,"N")="^^1,.110103^^1,.110103"
^DIST(.403,.1101,"AY",2,.110104,5,"D")="5^29^3^6"
^DIST(.403,.1101,"AY",2,.110104,5,"N")="0^1,.110103^1,.110103^3^1,.110103^5,-1^5,+1^1,+1^3^1,+1"
^DIST(.403,.1101,"AY",2,.110105)="2^0^.11^^d^^^^0"
^DIST(.403,.1101,"AY",2,.110106)="0^0^.11^^d^^^^0"
^DIST(.403,.1101,"AY",2,.110106,1,"D")="0^8^15^0^^^^^1"
^DIST(.403,.1101,"AY",2,"FIRST")="1,.110104"
^DIST(.403,.1101,"AY",3,0,0,"N")="11,.110107^2,.110107^2,.110107^11,.110107^2,.110107"
^DIST(.403,.1101,"AY",3,.110107)="5^0^.114^^e^^^^2"
^DIST(.403,.1101,"AY",3,.110107,2,"D")="7^17^3^.01"
^DIST(.403,.1101,"AY",3,.110107,2,"N")="0^9^3^0^3"
^DIST(.403,.1101,"AY",3,.110107,3,"D")="7^57^3^.5"
^DIST(.403,.1101,"AY",3,.110107,3,"N")="0^8^9^2^9"
^DIST(.403,.1101,"AY",3,.110107,4,"D")="13^24^53^5"
^DIST(.403,.1101,"AY",3,.110107,4,"N")="7^12^12^7^12"
^DIST(.403,.1101,"AY",3,.110107,5,"D")="11^17^3^6"
^DIST(.403,.1101,"AY",3,.110107,5,"N")="9^7^6^8^6"
^DIST(.403,.1101,"AY",3,.110107,6,"D")="11^57^9^7"
^DIST(.403,.1101,"AY",3,.110107,6,"N")="8^7^7^5^7"
^DIST(.403,.1101,"AY",3,.110107,7,"D")="12^17^30^8"
^DIST(.403,.1101,"AY",3,.110107,7,"N")="5^4^4^6^4"
^DIST(.403,.1101,"AY",3,.110107,8,"D")="8^57^20^2"
^DIST(.403,.1101,"AY",3,.110107,8,"N")="3^6^5^9^5"
^DIST(.403,.1101,"AY",3,.110107,9,"D")="8^17^20^3"
^DIST(.403,.1101,"AY",3,.110107,9,"N")="2^5^8^3^8"
^DIST(.403,.1101,"AY",3,.110107,10,"D")="9^17^60^0^^^^^1"
^DIST(.403,.1101,"AY",3,.110107,11,"D")="15^24^53^5.5"
^DIST(.403,.1101,"AY",3,.110107,11,"N")="12^0^0^12^0"
^DIST(.403,.1101,"AY",3,.110107,12,"D")="14^24^53^5.3"
^DIST(.403,.1101,"AY",3,.110107,12,"N")="4^11^11^4^11"
^DIST(.403,.1101,"AY",3,"FIRST")="2,.110107"
^DIST(.403,.1101,"AY",4,0,0,"N")="8,.110108^2,.110108^2,.110108^8,.110108^2,.110108"
^DIST(.403,.1101,"AY",4,.110108)="9^0^.114^^e^^^^2"
^DIST(.403,.1101,"AY",4,.110108,2,"D")="11^20^3^.01"
^DIST(.403,.1101,"AY",4,.110108,2,"N")="0^3^3^0^3"
^DIST(.403,.1101,"AY",4,.110108,3,"D")="12^20^3^.5"
^DIST(.403,.1101,"AY",4,.110108,3,"N")="2^4^5^2^5"
^DIST(.403,.1101,"AY",4,.110108,4,"D")="13^20^3^6"
^DIST(.403,.1101,"AY",4,.110108,4,"N")="3^8^6^5^6"
^DIST(.403,.1101,"AY",4,.110108,5,"D")="12^47^30^8"
^DIST(.403,.1101,"AY",4,.110108,5,"N")="2^6^4^3^4"
^DIST(.403,.1101,"AY",4,.110108,6,"D")="13^47^9^7"
^DIST(.403,.1101,"AY",4,.110108,6,"N")="5^8^8^4^8"
^DIST(.403,.1101,"AY",4,.110108,8,"D")="15^17^60^4.5"
^DIST(.403,.1101,"AY",4,.110108,8,"N")="4^0^0^6^0"
^DIST(.403,.1101,"AY",4,"FIRST")="2,.110108"
^DIST(.403,.1101,"AY","CAP","ACTIVITY","1^2",1,.110101,8)=""
^DIST(.403,.1101,"AY","CAP","COLLATION",3,3,.110107,6)=""
^DIST(.403,.1101,"AY","CAP","COLLATION",4,4,.110108,6)=""
^DIST(.403,.1101,"AY","CAP","COMPUTED CODE",4,4,.110108,8)=""
^DIST(.403,.1101,"AY","CAP","DESCRIPTION (WP)","1^2",1,.110101,4)=""
^DIST(.403,.1101,"AY","CAP","EXECUTION","1^2",1,.110101,7)=""
^DIST(.403,.1101,"AY","CAP","FIELD",3,3,.110107,9)=""
^DIST(.403,.1101,"AY","CAP","FILE",3,3,.110107,8)=""
^DIST(.403,.1101,"AY","CAP","FILE","1^2",1,.110101,1)=""
^DIST(.403,.1101,"AY","CAP","INDEX NAME","1^2",1,.110101,2)=""
^DIST(.403,.1101,"AY","CAP","KILL CONDITION","1^2",2,.110103,28)=""
^DIST(.403,.1101,"AY","CAP","KILL LOGIC","1^2",2,.110103,2)=""
^DIST(.403,.1101,"AY","CAP","LOOKUP PROMPT",3,3,.110107,7)=""
^DIST(.403,.1101,"AY","CAP","LOOKUP PROMPT",4,4,.110108,5)=""
^DIST(.403,.1101,"AY","CAP","MAXIMUM LENGTH",3,3,.110107,5)=""
^DIST(.403,.1101,"AY","CAP","MAXIMUM LENGTH",4,4,.110108,4)=""
^DIST(.403,.1101,"AY","CAP","ORDER NUMBER",3,3,.110107,2)=""
^DIST(.403,.1101,"AY","CAP","ORDER NUMBER",4,4,.110108,2)=""
^DIST(.403,.1101,"AY","CAP","ROOT FILE","1^2",1,.110101,10)=""
^DIST(.403,.1101,"AY","CAP","ROOT TYPE","1^2",1,.110101,11)=""
^DIST(.403,.1101,"AY","CAP","SET CONDITION","1^2",2,.110103,27)=""
^DIST(.403,.1101,"AY","CAP","SET LOGIC","1^2",2,.110103,1)=""
^DIST(.403,.1101,"AY","CAP","SHORT DESCRIPTION","1^2",1,.110101,3)=""
^DIST(.403,.1101,"AY","CAP","SUBSCRIPT NUMBER",3,3,.110107,3)=""
^DIST(.403,.1101,"AY","CAP","SUBSCRIPT NUMBER",4,4,.110108,3)=""
^DIST(.403,.1101,"AY","CAP","TRANSFORM FOR DISPLAY",3,3,.110107,11)=""
^DIST(.403,.1101,"AY","CAP","TRANSFORM FOR LOOKUP",3,3,.110107,12)=""
^DIST(.403,.1101,"AY","CAP","TRANSFORM FOR STORAGE",3,3,.110107,4)=""
^DIST(.403,.1101,"AY","CAP","TYPE","1^2",1,.110101,5)=""
^DIST(.403,.1101,"AY","CAP","USE","1^2",1,.110101,9)=""
^DIST(.403,.1101,"AY","CAP","WHOLE KILL","1^2",2,.110103,18)=""
^DIST(.403,.1101,"AY","COMP",.114,1,2,.110104,4)=""
^DIST(.403,.1101,"AY","COMP",.114,2,2,.110104,4)=""
^DIST(.403,.1101,"AY","COMP",.114,2,3,.110107,10)=""
^DIST(.403,.1101,"AY","COMP",.114,3,2,.110104,4)=""
^DIST(.403,.1101,"AY","COMP",.114,3,3,.110107,10)=""
^DIST(.403,.1101,"AY","COMP",.114,4.5,2,.110104,4)=""
^DIST(.403,.1101,"AY","COMPE",.110102,2)="S Y=DA"
^DIST(.403,.1101,"AY","COMPE",.110104,4)="N FIL,FLD,TYP S TYP=DDSE(1) S:TYP=""F"" FIL=+DDSE(2),FLD=+DDSE(3),Y=$S('FIL!'FLD:"""",$P($G(^DD(FIL,FLD,0)),U)="""":"""",1:$P(^(0),U)_"" (#""_FLD_"")"") S:TYP=""C"" Y=DDSE(4) S:$L($G(Y))>43 Y=$E(Y,1,40)_""..."""
^DIST(.403,.1101,"AY","COMPE",.110104,4,1)="N X S X=$$GET^DDSVAL(.114,.DA,1),DDSE(1)=X"
^DIST(.403,.1101,"AY","COMPE",.110104,4,2)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(2)=X"
^DIST(.403,.1101,"AY","COMPE",.110104,4,3)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(3)=X"
^DIST(.403,.1101,"AY","COMPE",.110104,4,4)="N X S X=$$GET^DDSVAL(.114,.DA,4.5,"""",""E""),DDSE(4)=X"
^DIST(.403,.1101,"AY","COMPE",.110106,1)="S Y=DA"
^DIST(.403,.1101,"AY","COMPE",.110107,10)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+DDSE(1),DIKCFLD=+DDSE(2) I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.403,.1101,"AY","COMPE",.110107,10,1)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(1)=X"
^DIST(.403,.1101,"AY","COMPE",.110107,10,2)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(2)=X"
^DIST(.403,.1101,"AY","F.11",0,"L",1,.110102,2)=""
^DIST(.403,.1101,"AY","F.11",0,"L",2,.110106,1)=""
^DIST(.403,.1101,"AY","F.11",.01,"L",1,.110101,1)=""
^DIST(.403,.1101,"AY","F.11",.02,"L",1,.110101,2)=""
^DIST(.403,.1101,"AY","F.11",.1,"L",1,.110101,4)=""
^DIST(.403,.1101,"AY","F.11",.11,"L",1,.110101,3)=""
^DIST(.403,.1101,"AY","F.11",.2,"L",1,.110101,5)=""
^DIST(.403,.1101,"AY","F.11",.4,"L",1,.110101,7)=""
^DIST(.403,.1101,"AY","F.11",.41,"L",1,.110101,8)=""
^DIST(.403,.1101,"AY","F.11",.42,"L",1,.110101,9)=""
^DIST(.403,.1101,"AY","F.11",.5,"L",1,.110101,11)=""
^DIST(.403,.1101,"AY","F.11",.51,"L",1,.110101,10)=""
^DIST(.403,.1101,"AY","F.11",1.1,"L",2,.110103,1)=""
^DIST(.403,.1101,"AY","F.11",1.4,"L",2,.110103,27)=""
^DIST(.403,.1101,"AY","F.11",2.1,"L",2,.110103,2)=""
^DIST(.403,.1101,"AY","F.11",2.4,"L",2,.110103,28)=""
^DIST(.403,.1101,"AY","F.11",2.5,"L",2,.110103,18)=""
^DIST(.403,.1101,"AY","F.114",0,"L",2,.110104,4)=""
^DIST(.403,.1101,"AY","F.114",0,"L",3,.110107,10)=""
^DIST(.403,.1101,"AY","F.114",.01,"L",2,.110104,1)=""
^DIST(.403,.1101,"AY","F.114",.01,"L",3,.110107,2)=""
^DIST(.403,.1101,"AY","F.114",.01,"L",4,.110108,2)=""
^DIST(.403,.1101,"AY","F.114",.5,"L",2,.110104,2)=""
^DIST(.403,.1101,"AY","F.114",.5,"L",3,.110107,3)=""
^DIST(.403,.1101,"AY","F.114",.5,"L",4,.110108,3)=""
^DIST(.403,.1101,"AY","F.114",1,"L",2,.110104,3)=""
^DIST(.403,.1101,"AY","F.114",2,"L",3,.110107,8)=""
^DIST(.403,.1101,"AY","F.114",3,"L",3,.110107,9)=""
^DIST(.403,.1101,"AY","F.114",4.5,"L",4,.110108,8)=""
^DIST(.403,.1101,"AY","F.114",5,"L",3,.110107,4)=""
^DIST(.403,.1101,"AY","F.114",5.3,"L",3,.110107,12)=""
^DIST(.403,.1101,"AY","F.114",5.5,"L",3,.110107,11)=""
^DIST(.403,.1101,"AY","F.114",6,"L",2,.110104,5)=""
^DIST(.403,.1101,"AY","F.114",6,"L",3,.110107,5)=""
^DIST(.403,.1101,"AY","F.114",6,"L",4,.110108,4)=""
^DIST(.403,.1101,"AY","F.114",7,"L",3,.110107,6)=""
^DIST(.403,.1101,"AY","F.114",7,"L",4,.110108,6)=""
^DIST(.403,.1101,"AY","F.114",8,"L",3,.110107,7)=""
^DIST(.403,.1101,"AY","F.114",8,"L",4,.110108,5)=""
^DIST(.403,.1101,"AY","X",1,0,0)="Number:                          EDIT AN INDEX                      Page 1 of 2"
^DIST(.403,.1101,"AY","X",1,1,0)="-------------------------------------------------------------------------------"
^DIST(.403,.1101,"AY","X",1,3,8)="File:                                   Root File:"
^DIST(.403,.1101,"AY","X",1,3,8,"A")="1;4;U^41;49;U"
^DIST(.403,.1101,"AY","X",1,4,2)="Index Name:                                   Root Type:"
^DIST(.403,.1101,"AY","X",1,4,2,"A")="1;10;U"
^DIST(.403,.1101,"AY","X",1,6,0)="Short Description:"
^DIST(.403,.1101,"AY","X",1,6,0,"A")="1;17;U"
^DIST(.403,.1101,"AY","X",1,7,1)="Description (wp):"
^DIST(.403,.1101,"AY","X",1,9,8)="Type:"
^DIST(.403,.1101,"AY","X",1,9,8,"A")="1;4;U"
^DIST(.403,.1101,"AY","X",1,11,4)="Activity:"
^DIST(.403,.1101,"AY","X",1,12,3)="Execution:"
^DIST(.403,.1101,"AY","X",1,12,3,"A")="1;9;U"
^DIST(.403,.1101,"AY","X",1,14,9)="Use:"
^DIST(.403,.1101,"AY","X",2,0,0)="Number:                          EDIT AN INDEX                      Page 2 of 2"
^DIST(.403,.1101,"AY","X",2,1,0)="-------------------------------------------------------------------------------"
^DIST(.403,.1101,"AY","X",2,2,0)="CROSS-REFERENCE VALUES:"
^DIST(.403,.1101,"AY","X",2,3,1)="Order...  Subscr  Type     Length  Field or Computed Expression"
^DIST(.403,.1101,"AY","X",2,4,1)="--------  ------  ----     ------  -------------------------------------"
^DIST(.403,.1101,"AY","X",2,11,1)="Set Logic:"
^DIST(.403,.1101,"AY","X",2,11,1,"A")="1;9;U"
^DIST(.403,.1101,"AY","X",2,12,0)="Kill Logic:"
^DIST(.403,.1101,"AY","X",2,12,0,"A")="1;10;U"
^DIST(.403,.1101,"AY","X",2,13,0)="Whole Kill:"
^DIST(.403,.1101,"AY","X",2,15,1)="Set Condition:"
^DIST(.403,.1101,"AY","X",2,16,0)="Kill Condition:"
^DIST(.403,.1101,"AY","X",3,5,22)=" Field-Type Cross Reference Value "
^DIST(.403,.1101,"AY","X",3,7,3)="Order Number:                       Subscript Number:"
^DIST(.403,.1101,"AY","X",3,7,3,"A")="1;12;U"
^DIST(.403,.1101,"AY","X",3,8,10)="Field:                                   File:"
^DIST(.403,.1101,"AY","X",3,8,10,"A")="1;5;U^42;45;U"
^DIST(.403,.1101,"AY","X",3,9,5)="Field Name:"
^DIST(.403,.1101,"AY","X",3,11,1)="Maximum Length:                              Collation:"
^DIST(.403,.1101,"AY","X",3,12,2)="Lookup Prompt:"
^DIST(.403,.1101,"AY","X",3,13,1)="Transform for Storage:"
^DIST(.403,.1101,"AY","X",3,14,2)="Transform for Lookup:"
^DIST(.403,.1101,"AY","X",3,15,1)="Transform for Display:"
^DIST(.403,.1101,"AY","X",4,9,20)=" Computed-Type Cross Reference Value "
^DIST(.403,.1101,"AY","X",4,11,6)="Order Number:"
^DIST(.403,.1101,"AY","X",4,11,6,"A")="1;12;U"
^DIST(.403,.1101,"AY","X",4,12,2)="Subscript Number:             Lookup Prompt:"
^DIST(.403,.1101,"AY","X",4,13,4)="Maximum Length:                 Collation:"
^DIST(.403,.1101,"AY","X",4,15,2)="Computed Code:"
^DIST(.403,.1101,"AY","X",4,15,2,"A")="1;13;U"
^DIST(.403,.1102,0)="DIKC EDIT UI^^^^2970612.1058^2981229.1134^^.11^0^0^1"
^DIST(.403,.1102,14)="D POSTSV^DIKCFORM"
^DIST(.403,.1102,40,0)="^.4031I^2^2"
^DIST(.403,.1102,40,1,0)="1^^1,1"
^DIST(.403,.1102,40,1,1)="Page 1"
^DIST(.403,.1102,40,1,40,0)="^.4032IP^.11021^2"
^DIST(.403,.1102,40,1,40,.11021,0)=".11021^2^3,1^e"
^DIST(.403,.1102,40,1,40,.11022,0)=".11022^1^1,1^d"
^DIST(.403,.1102,40,1,40,.11023,0)=".11023^4^11,3^e"
^DIST(.403,.1102,40,1,40,.11023,2)="4^^f^1"
^DIST(.403,.1102,40,1,40,.11024,0)=".11024^3^9,2^e"
^DIST(.403,.1102,40,1,40,"AC",1,.11022)=""
^DIST(.403,.1102,40,1,40,"AC",2,.11021)=""
^DIST(.403,.1102,40,1,40,"AC",3,.11024)=""
^DIST(.403,.1102,40,1,40,"AC",4,.11023)=""
^DIST(.403,.1102,40,1,40,"B",.11021,.11021)=""
^DIST(.403,.1102,40,1,40,"B",.11022,.11022)=""
^DIST(.403,.1102,40,1,40,"B",.11023,.11023)=""
^DIST(.403,.1102,40,1,40,"B",.11024,.11024)=""
^DIST(.403,.1102,40,2,0)="1.1^^7,1^^^1^15,79"
^DIST(.403,.1102,40,2,1)="Page 1.1^ORDER,4,1"
^DIST(.403,.1102,40,2,40,0)="^.4032IP^.11025^1"
^DIST(.403,.1102,40,2,40,.11025,0)=".11025^1^1,1^e"
^DIST(.403,.1102,40,2,40,"AC",1,.11025)=""
^DIST(.403,.1102,40,2,40,"B",.11025,.11025)=""
^DIST(.403,.1102,40,"B",1,1)=""
^DIST(.403,.1102,40,"B",1.1,2)=""
^DIST(.403,.1102,40,"C","PAGE 1",1)=""
^DIST(.403,.1102,40,"C","PAGE 1.1",2)=""
^DIST(.403,.1102,"AY",1,0,0,"N")="9,.11021^1,.11021^1,.11021^9,.11021^1,.11021"
^DIST(.403,.1102,"AY",1,.11021)="2^0^.11^^e^^^^1"
^DIST(.403,.1102,"AY",1,.11021,1,"D")="2^14^20^.01"
^DIST(.403,.1102,"AY",1,.11021,1,"N")="0^3^2^0^2"
^DIST(.403,.1102,"AY",1,.11021,2,"D")="2^59^20^.51"
^DIST(.403,.1102,"AY",1,.11021,2,"N")="0^4^3^1^3"
^DIST(.403,.1102,"AY",1,.11021,3,"D")="3^14^30^.02"
^DIST(.403,.1102,"AY",1,.11021,3,"N")="1^5^4^2^4"
^DIST(.403,.1102,"AY",1,.11021,4,"D")="3^59^16^.5"
^DIST(.403,.1102,"AY",1,.11021,4,"N")="2^5^5^3^5"
^DIST(.403,.1102,"AY",1,.11021,5,"D")="5^19^60^.11"
^DIST(.403,.1102,"AY",1,.11021,5,"N")="3^6^6^4^6"
^DIST(.403,.1102,"AY",1,.11021,6,"D")="6^19^1^.1"
^DIST(.403,.1102,"AY",1,.11021,6,"N")="5^1,.11023^1,.11023^5^8^^^^^^1"
^DIST(.403,.1102,"AY",1,.11021,7,"D")="^^^^6^22^^0"
^DIST(.403,.1102,"AY",1,.11021,8,"D")="15^12^67^1.1"
^DIST(.403,.1102,"AY",1,.11021,8,"N")="1,.11023^9^9^3,.11023^9"
^DIST(.403,.1102,"AY",1,.11021,9,"D")="16^12^67^2.1"
^DIST(.403,.1102,"AY",1,.11021,9,"N")="8^0^0^8^1,.11023"
^DIST(.403,.1102,"AY",1,.11022)="0^0^.11^^d^^^^0"
^DIST(.403,.1102,"AY",1,.11022,1,"D")="0^8^15^0^^^^^1"
^DIST(.403,.1102,"AY",1,.11023)="10^2^.114^^e^^4^^1^1"
^DIST(.403,.1102,"AY",1,.11023,1,"D")="10^4^3^.01"
^DIST(.403,.1102,"AY",1,.11023,1,"N")="6,.11021^8,.11021^8,.11021^6,.11021^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,.1102,"AY",1,.11023,2,"D")="10^13^3^.5"
^DIST(.403,.1102,"AY",1,.11023,2,"N")="6,.11021^8,.11021^8,.11021^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,.1102,"AY",1,.11023,3,"D")="10^21^3^6"
^DIST(.403,.1102,"AY",1,.11023,3,"N")="6,.11021^8,.11021^8,.11021^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,.1102,"AY",1,.11023,4,"D")="10^28^43^0^^^^^1"
^DIST(.403,.1102,"AY",1,.11023,4,"N")="^^8,.11021^^0"
^DIST(.403,.1102,"AY",1,.11024)="8^1^.11^^e^^^^0"
^DIST(.403,.1102,"AY",1,"FIRST")="1,.11021"
^DIST(.403,.1102,"AY",2,0,0,"N")="9,.11025^2,.11025^2,.11025^9,.11025^2,.11025"
^DIST(.403,.1102,"AY",2,.11025)="6^0^.114^^e^^^^2"
^DIST(.403,.1102,"AY",2,.11025,2,"D")="8^17^3^.01"
^DIST(.403,.1102,"AY",2,.11025,2,"N")="0^4^3^0^3"
^DIST(.403,.1102,"AY",2,.11025,3,"D")="8^57^3^.5"
^DIST(.403,.1102,"AY",2,.11025,3,"N")="0^5^4^2^4"
^DIST(.403,.1102,"AY",2,.11025,4,"D")="9^17^20^3"
^DIST(.403,.1102,"AY",2,.11025,4,"N")="2^7^5^3^5"
^DIST(.403,.1102,"AY",2,.11025,5,"D")="9^57^20^2"
^DIST(.403,.1102,"AY",2,.11025,5,"N")="3^8^7^4^7"
^DIST(.403,.1102,"AY",2,.11025,6,"D")="10^17^60^0^^^^^1"
^DIST(.403,.1102,"AY",2,.11025,7,"D")="12^17^3^6"
^DIST(.403,.1102,"AY",2,.11025,7,"N")="4^9^8^5^8"
^DIST(.403,.1102,"AY",2,.11025,8,"D")="12^57^9^7"
^DIST(.403,.1102,"AY",2,.11025,8,"N")="5^9^9^7^9"
^DIST(.403,.1102,"AY",2,.11025,9,"D")="13^17^30^8"
^DIST(.403,.1102,"AY",2,.11025,9,"N")="7^0^0^8^0"
^DIST(.403,.1102,"AY",2,"FIRST")="2,.11025"
^DIST(.403,.1102,"AY","ASUB",1,.11023,1)="2"
^DIST(.403,.1102,"AY","CAP","COLLATION",2,2,.11025,8)=""
^DIST(.403,.1102,"AY","CAP","DESCRIPTION (WP)",1,1,.11021,6)=""
^DIST(.403,.1102,"AY","CAP","FIELD",2,2,.11025,4)=""
^DIST(.403,.1102,"AY","CAP","FILE",1,1,.11021,1)=""
^DIST(.403,.1102,"AY","CAP","FILE",2,2,.11025,5)=""
^DIST(.403,.1102,"AY","CAP","INDEX NAME",1,1,.11021,3)=""
^DIST(.403,.1102,"AY","CAP","KILL LOGIC",1,1,.11021,9)=""
^DIST(.403,.1102,"AY","CAP","LOOKUP PROMPT",2,2,.11025,9)=""
^DIST(.403,.1102,"AY","CAP","MAXIMUM LENGTH",2,2,.11025,7)=""
^DIST(.403,.1102,"AY","CAP","ORDER NUMBER",2,2,.11025,2)=""
^DIST(.403,.1102,"AY","CAP","ROOT FILE",1,1,.11021,2)=""
^DIST(.403,.1102,"AY","CAP","ROOT TYPE",1,1,.11021,4)=""
^DIST(.403,.1102,"AY","CAP","SET LOGIC",1,1,.11021,8)=""
^DIST(.403,.1102,"AY","CAP","SHORT DESCRIPTION",1,1,.11021,5)=""
^DIST(.403,.1102,"AY","CAP","SUBSCRIPT NUMBER",2,2,.11025,3)=""
^DIST(.403,.1102,"AY","COMP",.114,2,1,.11023,4)=""
^DIST(.403,.1102,"AY","COMP",.114,2,2,.11025,6)=""
^DIST(.403,.1102,"AY","COMP",.114,3,1,.11023,4)=""
^DIST(.403,.1102,"AY","COMP",.114,3,2,.11025,6)=""
^DIST(.403,.1102,"AY","COMPE",.11022,1)="S Y=DA"
^DIST(.403,.1102,"AY","COMPE",.11023,4)="N DIKCFIL,DIKCFLD S DIKCFIL=DDSE(1),DIKCFLD=DDSE(2) S Y=""[""_DIKCFIL_"",""_DIKCFLD_""] ""_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)"
^DIST(.403,.1102,"AY","COMPE",.11023,4,1)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(1)=X"
^DIST(.403,.1102,"AY","COMPE",.11023,4,2)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(2)=X"
^DIST(.403,.1102,"AY","COMPE",.11025,6)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+DDSE(1),DIKCFLD=+DDSE(2) I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.403,.1102,"AY","COMPE",.11025,6,1)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(1)=X"
^DIST(.403,.1102,"AY","COMPE",.11025,6,2)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(2)=X"
^DIST(.403,.1102,"AY","F.11",0,"L",1,.11022,1)=""
^DIST(.403,.1102,"AY","F.11",.01,"L",1,.11021,1)=""
^DIST(.403,.1102,"AY","F.11",.02,"L",1,.11021,3)=""
^DIST(.403,.1102,"AY","F.11",.1,"L",1,.11021,6)=""
^DIST(.403,.1102,"AY","F.11",.11,"L",1,.11021,5)=""
^DIST(.403,.1102,"AY","F.11",.5,"L",1,.11021,4)=""
^DIST(.403,.1102,"AY","F.11",.51,"L",1,.11021,2)=""
^DIST(.403,.1102,"AY","F.11",1.1,"L",1,.11021,8)=""
^DIST(.403,.1102,"AY","F.11",2.1,"L",1,.11021,9)=""
^DIST(.403,.1102,"AY","F.114",0,"L",1,.11023,4)=""
^DIST(.403,.1102,"AY","F.114",0,"L",2,.11025,6)=""
^DIST(.403,.1102,"AY","F.114",.01,"L",1,.11023,1)=""
^DIST(.403,.1102,"AY","F.114",.01,"L",2,.11025,2)=""
^DIST(.403,.1102,"AY","F.114",.5,"L",1,.11023,2)=""
^DIST(.403,.1102,"AY","F.114",.5,"L",2,.11025,3)=""
^DIST(.403,.1102,"AY","F.114",2,"L",2,.11025,5)=""
^DIST(.403,.1102,"AY","F.114",3,"L",2,.11025,4)=""
^DIST(.403,.1102,"AY","F.114",6,"L",1,.11023,3)=""
^DIST(.403,.1102,"AY","F.114",6,"L",2,.11025,7)=""
^DIST(.403,.1102,"AY","F.114",7,"L",2,.11025,8)=""
^DIST(.403,.1102,"AY","F.114",8,"L",2,.11025,9)=""
^DIST(.403,.1102,"AY","X",1,0,0)="Number:                      EDIT A UNIQUENESS INDEX                Page 1 of 1"
^DIST(.403,.1102,"AY","X",1,1,0)="-------------------------------------------------------------------------------"
^DIST(.403,.1102,"AY","X",1,2,8)="File:                                   Root File:"
^DIST(.403,.1102,"AY","X",1,2,8,"A")="1;4;U^41;49;U"
^DIST(.403,.1102,"AY","X",1,3,2)="Index Name:                                   Root Type:"
^DIST(.403,.1102,"AY","X",1,3,2,"A")="1;10;U"
^DIST(.403,.1102,"AY","X",1,5,0)="Short Description:"
^DIST(.403,.1102,"AY","X",1,5,0,"A")="1;17;U"
^DIST(.403,.1102,"AY","X",1,6,1)="Description (wp):"
^DIST(.403,.1102,"AY","X",1,8,2)="Order...  Subscr  Length  [File,Field] Field Name"
^DIST(.403,.1102,"AY","X",1,9,2)="--------  ------  ------  -----------------------"
^DIST(.403,.1102,"AY","X",1,15,1)="Set Logic:"
^DIST(.403,.1102,"AY","X",1,15,1,"A")="1;9;U"
^DIST(.403,.1102,"AY","X",1,16,0)="Kill Logic:"
^DIST(.403,.1102,"AY","X",1,16,0,"A")="1;10;U"
^DIST(.403,.1102,"AY","X",2,6,22)=" Field-Type Cross Reference Value "
^DIST(.403,.1102,"AY","X",2,8,3)="Order Number:                       Subscript Number:"
^DIST(.403,.1102,"AY","X",2,8,3,"A")="1;12;U"
^DIST(.403,.1102,"AY","X",2,9,10)="Field:                                   File:"
^DIST(.403,.1102,"AY","X",2,10,5)="Field Name:"
^DIST(.403,.1102,"AY","X",2,12,1)="Maximum Length:                              Collation:"
^DIST(.403,.1102,"AY","X",2,13,2)="Lookup Prompt:"
^DIST(.403,.3101,0)="DIKK EDIT^^^^2970721.144^2990311.1203^^.31^0^0^1"
^DIST(.403,.3101,20)="D FORMDV^DIKKFORM"
^DIST(.403,.3101,40,0)="^.4031I^3^3"
^DIST(.403,.3101,40,1,0)="1^^1,1^2"
^DIST(.403,.3101,40,1,1)="Page 1"
^DIST(.403,.3101,40,1,40,0)="^.4032IP^.310101^6"
^DIST(.403,.3101,40,1,40,.310101,0)=".310101^1^1,1^d"
^DIST(.403,.3101,40,1,40,.310102,0)=".310102^2^3,1^e"
^DIST(.403,.3101,40,1,40,.310103,0)=".310103^3^5,3^d"
^DIST(.403,.3101,40,1,40,.310104,0)=".310104^4^9,3^e"
^DIST(.403,.3101,40,1,40,.310104,2)="5"
^DIST(.403,.3101,40,1,40,.310105,0)=".310105^5^15,1^d"
^DIST(.403,.3101,40,1,40,.310105,1)="UNIQUENESS INDEX"
^DIST(.403,.3101,40,1,40,.310106,0)=".310106^6^15,1^e"
^DIST(.403,.3101,40,1,40,"AC",1,.310101)=""
^DIST(.403,.3101,40,1,40,"AC",2,.310102)=""
^DIST(.403,.3101,40,1,40,"AC",3,.310103)=""
^DIST(.403,.3101,40,1,40,"AC",4,.310104)=""
^DIST(.403,.3101,40,1,40,"AC",5,.310105)=""
^DIST(.403,.3101,40,1,40,"AC",6,.310106)=""
^DIST(.403,.3101,40,1,40,"B",.310101,.310101)=""
^DIST(.403,.3101,40,1,40,"B",.310102,.310102)=""
^DIST(.403,.3101,40,1,40,"B",.310103,.310103)=""
^DIST(.403,.3101,40,1,40,"B",.310104,.310104)=""
^DIST(.403,.3101,40,1,40,"B",.310105,.310105)=""
^DIST(.403,.3101,40,1,40,"B",.310106,.310106)=""
^DIST(.403,.3101,40,2,0)="1.1^^1,1^^^1^17,79"
^DIST(.403,.3101,40,2,1)="Page 1.1^DETAILS,DIKK EDIT UNIQUENESS INDEX,1"
^DIST(.403,.3101,40,2,40,0)="^.4032IP^.310107^4"
^DIST(.403,.3101,40,2,40,.310107,0)=".310107^1^1,1^d"
^DIST(.403,.3101,40,2,40,.310107,1)="UNIQUENESS INDEX"
^DIST(.403,.3101,40,2,40,.310108,0)=".310108^2^2,3^e"
^DIST(.403,.3101,40,2,40,.310108,1)="UNIQUENESS INDEX"
^DIST(.403,.3101,40,2,40,.310109,0)=".310109^3^8,3^d"
^DIST(.403,.3101,40,2,40,.31011,0)=".31011^4^10,3^e"
^DIST(.403,.3101,40,2,40,.31011,1)="UNIQUENESS INDEX"
^DIST(.403,.3101,40,2,40,.31011,2)="4^^f^1"
^DIST(.403,.3101,40,2,40,"AC",1,.310107)=""
^DIST(.403,.3101,40,2,40,"AC",2,.310108)=""
^DIST(.403,.3101,40,2,40,"AC",3,.310109)=""
^DIST(.403,.3101,40,2,40,"AC",4,.31011)=""
^DIST(.403,.3101,40,2,40,"B",.310107,.310107)=""
^DIST(.403,.3101,40,2,40,"B",.310108,.310108)=""
^DIST(.403,.3101,40,2,40,"B",.310109,.310109)=""
^DIST(.403,.3101,40,2,40,"B",.31011,.31011)=""
^DIST(.403,.3101,40,3,0)="1.2^^8,2^^^1^16,78"
^DIST(.403,.3101,40,3,1)="Page 1.2^ORDER,DIKK EDIT UI FIELD REP,1.1"
^DIST(.403,.3101,40,3,40,0)="^.4032IP^.310111^1"
^DIST(.403,.3101,40,3,40,.310111,0)=".310111^1^1,1^e"
^DIST(.403,.3101,40,3,40,.310111,11)="K DIKKCRV"
^DIST(.403,.3101,40,3,40,.310111,12)="I $D(DIKKCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKKCRV"
^DIST(.403,.3101,40,3,40,"AC",1,.310111)=""
^DIST(.403,.3101,40,3,40,"B",.310111,.310111)=""
^DIST(.403,.3101,40,"B",1,1)=""
^DIST(.403,.3101,40,"B",1.1,2)=""
^DIST(.403,.3101,40,"B",1.2,3)=""
^DIST(.403,.3101,40,"C","PAGE 1",1)=""
^DIST(.403,.3101,40,"C","PAGE 1.1",2)=""
^DIST(.403,.3101,40,"C","PAGE 1.2",3)=""
^DIST(.403,.3101,"AY",1,0,0,"N")="2,.310106^1,.310102^1,.310102^2,.310106^1,.310102"
^DIST(.403,.3101,"AY",1,.310101)="0^0^.31^^d^^^^0"
^DIST(.403,.3101,"AY",1,.310101,1,"D")="0^8^16^0^^^^^1"
^DIST(.403,.3101,"AY",1,.310102)="2^0^.31^^e^^^^1"
^DIST(.403,.3101,"AY",1,.310102,1,"D")="2^8^20^.01"
^DIST(.403,.3101,"AY",1,.310102,1,"N")="0^1,.310104^2^0^2"
^DIST(.403,.3101,"AY",1,.310102,2,"D")="2^38^1^.02"
^DIST(.403,.3101,"AY",1,.310102,2,"N")="0^1,.310104^3^1^3"
^DIST(.403,.3101,"AY",1,.310102,3,"D")="2^70^9^1"
^DIST(.403,.3101,"AY",1,.310102,3,"N")="0^1,.310104^1,.310104^2^1,.310104"
^DIST(.403,.3101,"AY",1,.310103)="4^2^.31^^d^^^^0"
^DIST(.403,.3101,"AY",1,.310104)="8^2^.312^^e^^5^^1^1"
^DIST(.403,.3101,"AY",1,.310104,1,"D")="8^2^20^.01"
^DIST(.403,.3101,"AY",1,.310104,1,"N")="1,.310102^1,.310106^1,.310106^3,.310102^1,.310106^1,-1^1,+1^2^3,-1^2"
^DIST(.403,.3101,"AY",1,.310104,2,"D")="8^25^3^1"
^DIST(.403,.3101,"AY",1,.310104,2,"N")="1,.310102^1,.310106^1,.310106^1^1,.310106^2,-1^2,+1^3^1^3"
^DIST(.403,.3101,"AY",1,.310104,3,"D")="8^32^20^.02"
^DIST(.403,.3101,"AY",1,.310104,3,"N")="1,.310102^1,.310106^1,.310106^2^1,.310106^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,.3101,"AY",1,.310104,4,"D")="8^54^25^0^^^^^1"
^DIST(.403,.3101,"AY",1,.310104,4,"N")="^^1,.310106^^1,.310106"
^DIST(.403,.3101,"AY",1,.310105)="14^0^.11^^d^^^1^0"
^DIST(.403,.3101,"AY",1,.310105,1,"D")="14^43^30^.02"
^DIST(.403,.3101,"AY",1,.310105,2,"D")="15^18^61^.11"
^DIST(.403,.3101,"AY",1,.310105,"PTB")=".31,3"
^DIST(.403,.3101,"AY",1,.310105,"PTB",1)="S X=$$GET^DDSVAL(.31,.DA,3),DA=X"
^DIST(.403,.3101,"AY",1,.310106)="14^0^.31^^e^^^^1"
^DIST(.403,.3101,"AY",1,.310106,1,"D")="14^18^20^3"
^DIST(.403,.3101,"AY",1,.310106,1,"N")="1,.310104^2^2^3,.310104^2"
^DIST(.403,.3101,"AY",1,.310106,2,"D")="16^18^1^2,.310106"
^DIST(.403,.3101,"AY",1,.310106,2,"N")="1^0^0^1^0"
^DIST(.403,.3101,"AY",1,"FIRST")="1,.310102"
^DIST(.403,.3101,"AY",2,0,0,"N")="9,.310108^1,.310108^1,.310108^9,.310108^1,.310108"
^DIST(.403,.3101,"AY",2,.310107)="0^0^.11^^d^^^1^0"
^DIST(.403,.3101,"AY",2,.310107,"PTB")=".31,3"
^DIST(.403,.3101,"AY",2,.310107,"PTB",1)="S X=$$GET^DDSVAL(.31,.DA,3),DA=X"
^DIST(.403,.3101,"AY",2,.310108)="1^2^.11^^e^^^1^1"
^DIST(.403,.3101,"AY",2,.310108,1,"D")="1^14^20^.01"
^DIST(.403,.3101,"AY",2,.310108,1,"N")="0^3^2^0^2"
^DIST(.403,.3101,"AY",2,.310108,2,"D")="1^57^20^.51"
^DIST(.403,.3101,"AY",2,.310108,2,"N")="0^4^3^1^3"
^DIST(.403,.3101,"AY",2,.310108,3,"D")="2^14^30^.02"
^DIST(.403,.3101,"AY",2,.310108,3,"N")="1^5^4^2^4"
^DIST(.403,.3101,"AY",2,.310108,4,"D")="2^57^16^.5"
^DIST(.403,.3101,"AY",2,.310108,4,"N")="2^5^5^3^5"
^DIST(.403,.3101,"AY",2,.310108,5,"D")="4^21^56^.11"
^DIST(.403,.3101,"AY",2,.310108,5,"N")="3^6^6^4^6"
^DIST(.403,.3101,"AY",2,.310108,6,"D")="5^21^1^.1"
^DIST(.403,.3101,"AY",2,.310108,6,"N")="5^1,.31011^1,.31011^5^8^^^^^^1"
^DIST(.403,.3101,"AY",2,.310108,7,"D")="^^^^5^24^^0"
^DIST(.403,.3101,"AY",2,.310108,8,"D")="14^14^63^1.1"
^DIST(.403,.3101,"AY",2,.310108,8,"N")="1,.31011^9^9^3,.31011^9"
^DIST(.403,.3101,"AY",2,.310108,9,"D")="15^14^63^2.1"
^DIST(.403,.3101,"AY",2,.310108,9,"N")="8^0^0^8^1,.31011"
^DIST(.403,.3101,"AY",2,.310108,"PTB")=".31,3"
^DIST(.403,.3101,"AY",2,.310108,"PTB",1)="S X=$$GET^DDSVAL(.31,.DA,3),DA=X"
^DIST(.403,.3101,"AY",2,.310109)="7^2^.31^^d^^^^0"
^DIST(.403,.3101,"AY",2,.31011)="9^2^.114^^e^^4^1^1^1"
^DIST(.403,.3101,"AY",2,.31011,1,"D")="9^4^3^.01"
^DIST(.403,.3101,"AY",2,.31011,1,"N")="6,.310108^8,.310108^8,.310108^6,.310108^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,.3101,"AY",2,.31011,2,"D")="9^13^3^.5"
^DIST(.403,.3101,"AY",2,.31011,2,"N")="6,.310108^8,.310108^8,.310108^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,.3101,"AY",2,.31011,3,"D")="9^21^3^6"
^DIST(.403,.3101,"AY",2,.31011,3,"N")="6,.310108^8,.310108^8,.310108^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,.3101,"AY",2,.31011,4,"D")="9^28^49^0^^^^^1"
^DIST(.403,.3101,"AY",2,.31011,4,"N")="^^8,.310108^^0"
^DIST(.403,.3101,"AY",2,.31011,"PTB")=".31,3"
^DIST(.403,.3101,"AY",2,.31011,"PTB",1)="S X=$$GET^DDSVAL(.31,.DA,3),DA=X"
^DIST(.403,.3101,"AY",2,.31011,"PTB","N")="^^8,.310108^^0"
^DIST(.403,.3101,"AY",2,"FIRST")="1,.310108"
^DIST(.403,.3101,"AY",3,0,0,"N")="9,.310111^2,.310111^2,.310111^9,.310111^2,.310111"
^DIST(.403,.3101,"AY",3,.310111)="7^1^.114^^e^^^^2"
^DIST(.403,.3101,"AY",3,.310111,2,"D")="9^18^3^.01"
^DIST(.403,.3101,"AY",3,.310111,2,"N")="0^4^3^0^3"
^DIST(.403,.3101,"AY",3,.310111,3,"D")="9^56^3^.5"
^DIST(.403,.3101,"AY",3,.310111,3,"N")="0^5^4^2^4"
^DIST(.403,.3101,"AY",3,.310111,4,"D")="10^18^20^3"
^DIST(.403,.3101,"AY",3,.310111,4,"N")="2^7^5^3^5"
^DIST(.403,.3101,"AY",3,.310111,5,"D")="10^56^20^2"
^DIST(.403,.3101,"AY",3,.310111,5,"N")="3^7^7^4^7"
^DIST(.403,.3101,"AY",3,.310111,6,"D")="11^18^58^0^^^^^1"
^DIST(.403,.3101,"AY",3,.310111,7,"D")="13^18^3^6"
^DIST(.403,.3101,"AY",3,.310111,7,"N")="4^9^8^5^8"
^DIST(.403,.3101,"AY",3,.310111,8,"D")="13^58^9^7"
^DIST(.403,.3101,"AY",3,.310111,8,"N")="5^9^9^7^9"
^DIST(.403,.3101,"AY",3,.310111,9,"D")="14^18^30^8"
^DIST(.403,.3101,"AY",3,.310111,9,"N")="7^0^0^8^0"
^DIST(.403,.3101,"AY",3,"FIRST")="2,.310111"
^DIST(.403,.3101,"AY","ASUB",1,.310106,2)="2"
^DIST(.403,.3101,"AY","ASUB",2,.31011,1)="3"
^DIST(.403,.3101,"AY","CAP","COLLATION",3,3,.310111,8)=""
^DIST(.403,.3101,"AY","CAP","DESCRIPTION (WP)",2,2,.310108,6)=""
^DIST(.403,.3101,"AY","CAP","FIELD",3,3,.310111,4)=""
^DIST(.403,.3101,"AY","CAP","FILE",1,1,.310102,1)=""
^DIST(.403,.3101,"AY","CAP","FILE",2,2,.310108,1)=""
^DIST(.403,.3101,"AY","CAP","FILE",3,3,.310111,5)=""
^DIST(.403,.3101,"AY","CAP","INDEX DETAILS...",1,1,.310106,2)=""
^DIST(.403,.3101,"AY","CAP","INDEX NAME",2,2,.310108,3)=""
^DIST(.403,.3101,"AY","CAP","KILL LOGIC",2,2,.310108,9)=""
^DIST(.403,.3101,"AY","CAP","LOOKUP PROMPT",3,3,.310111,9)=""
^DIST(.403,.3101,"AY","CAP","MAXIMUM LENGTH",3,3,.310111,7)=""
^DIST(.403,.3101,"AY","CAP","NAME",1,1,.310102,2)=""
^DIST(.403,.3101,"AY","CAP","ORDER NUMBER",3,3,.310111,2)=""
^DIST(.403,.3101,"AY","CAP","PRIORITY",1,1,.310102,3)=""
^DIST(.403,.3101,"AY","CAP","ROOT FILE",2,2,.310108,2)=""
^DIST(.403,.3101,"AY","CAP","ROOT TYPE",2,2,.310108,4)=""
^DIST(.403,.3101,"AY","CAP","SET LOGIC",2,2,.310108,8)=""
^DIST(.403,.3101,"AY","CAP","SHORT DESCRIPTION",2,2,.310108,5)=""
^DIST(.403,.3101,"AY","CAP","SUBSCRIPT NUMBER",3,3,.310111,3)=""
^DIST(.403,.3101,"AY","CAP","UNIQUENESS INDEX",1,1,.310106,1)=""
^DIST(.403,.3101,"AY","COMP",.114,2,2,.31011,4)=""
^DIST(.403,.3101,"AY","COMP",.114,2,3,.310111,6)=""
^DIST(.403,.3101,"AY","COMP",.114,3,2,.31011,4)=""
^DIST(.403,.3101,"AY","COMP",.114,3,3,.310111,6)=""
^DIST(.403,.3101,"AY","COMP",.312,.01,1,.310104,4)=""
^DIST(.403,.3101,"AY","COMP",.312,.02,1,.310104,4)=""
^DIST(.403,.3101,"AY","COMPE",.310101,1)="S Y=DA"
^DIST(.403,.3101,"AY","COMPE",.310104,4)="S Y=$P($G(^DD(DDSE(1),DDSE(2),0)),U)"
^DIST(.403,.3101,"AY","COMPE",.310104,4,1)="N X S X=$$GET^DDSVAL(.312,.DA,.02,"""",""E""),DDSE(1)=X"
^DIST(.403,.3101,"AY","COMPE",.310104,4,2)="N X S X=$$GET^DDSVAL(.312,.DA,.01,"""",""E""),DDSE(2)=X"
^DIST(.403,.3101,"AY","COMPE",.31011,4)="N DIKKFIL,DIKKFLD S DIKKFIL=DDSE(1),DIKKFLD=DDSE(2) S Y=""[""_DIKKFIL_"",""_DIKKFLD_""] ""_$P($G(^DD(DIKKFIL,DIKKFLD,0)),U)"
^DIST(.403,.3101,"AY","COMPE",.31011,4,1)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(1)=X"
^DIST(.403,.3101,"AY","COMPE",.31011,4,2)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(2)=X"
^DIST(.403,.3101,"AY","COMPE",.310111,6)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+DDSE(1),DIKCFLD=+DDSE(2) I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.403,.3101,"AY","COMPE",.310111,6,1)="N X S X=$$GET^DDSVAL(.114,.DA,2,"""",""E""),DDSE(1)=X"
^DIST(.403,.3101,"AY","COMPE",.310111,6,2)="N X S X=$$GET^DDSVAL(.114,.DA,3,"""",""E""),DDSE(2)=X"
^DIST(.403,.3101,"AY","F.11",.01,"L",2,.310108,1)=""
^DIST(.403,.3101,"AY","F.11",.02,"L",1,.310105,1)=""
^DIST(.403,.3101,"AY","F.11",.02,"L",2,.310108,3)=""
^DIST(.403,.3101,"AY","F.11",.1,"L",2,.310108,6)=""
^DIST(.403,.3101,"AY","F.11",.11,"L",1,.310105,2)=""
^DIST(.403,.3101,"AY","F.11",.11,"L",2,.310108,5)=""
^DIST(.403,.3101,"AY","F.11",.5,"L",2,.310108,4)=""
^DIST(.403,.3101,"AY","F.11",.51,"L",2,.310108,2)=""
^DIST(.403,.3101,"AY","F.11",1.1,"L",2,.310108,8)=""
^DIST(.403,.3101,"AY","F.11",2.1,"L",2,.310108,9)=""
^DIST(.403,.3101,"AY","F.114",0,"L",2,.31011,4)=""
^DIST(.403,.3101,"AY","F.114",0,"L",3,.310111,6)=""
^DIST(.403,.3101,"AY","F.114",.01,"L",2,.31011,1)=""
^DIST(.403,.3101,"AY","F.114",.01,"L",3,.310111,2)=""
^DIST(.403,.3101,"AY","F.114",.5,"L",2,.31011,2)=""
^DIST(.403,.3101,"AY","F.114",.5,"L",3,.310111,3)=""
^DIST(.403,.3101,"AY","F.114",2,"L",3,.310111,5)=""
^DIST(.403,.3101,"AY","F.114",3,"L",3,.310111,4)=""
^DIST(.403,.3101,"AY","F.114",6,"L",2,.31011,3)=""
^DIST(.403,.3101,"AY","F.114",6,"L",3,.310111,7)=""
^DIST(.403,.3101,"AY","F.114",7,"L",3,.310111,8)=""
^DIST(.403,.3101,"AY","F.114",8,"L",3,.310111,9)=""
^DIST(.403,.3101,"AY","F.31",0,"L",1,.310101,1)=""
^DIST(.403,.3101,"AY","F.31",.01,"L",1,.310102,1)=""
^DIST(.403,.3101,"AY","F.31",.02,"L",1,.310102,2)=""
^DIST(.403,.3101,"AY","F.31",1,"L",1,.310102,3)=""
^DIST(.403,.3101,"AY","F.31",3,"L",1,.310106,1)=""
^DIST(.403,.3101,"AY","F.312",0,"L",1,.310104,4)=""
^DIST(.403,.3101,"AY","F.312",.01,"L",1,.310104,1)=""
^DIST(.403,.3101,"AY","F.312",.02,"L",1,.310104,3)=""
^DIST(.403,.3101,"AY","F.312",1,"L",1,.310104,2)=""
^DIST(.403,.3101,"AY","F0","2,.310106","L",1,.310106,2)=""
^DIST(.403,.3101,"AY","PT",.31,3,1,.310105)=""
^DIST(.403,.3101,"AY","PT",.31,3,2,.310107)=""
^DIST(.403,.3101,"AY","PT",.31,3,2,.310108)=""
^DIST(.403,.3101,"AY","PT",.31,3,2,.31011)=""
^DIST(.403,.3101,"AY","X",1,0,0)="Number:                            EDIT A KEY                       Page 1 of 1"
^DIST(.403,.3101,"AY","X",1,1,0)="-------------------------------------------------------------------------------"
^DIST(.403,.3101,"AY","X",1,2,2)="File:                         Name:                       Priority:"
^DIST(.403,.3101,"AY","X",1,2,2,"A")="1;4;U^31;34;U^59;66;U"
^DIST(.403,.3101,"AY","X",1,4,2)="KEY FIELDS:"
^DIST(.403,.3101,"AY","X",1,5,2)="=========="
^DIST(.403,.3101,"AY","X",1,6,2)="Field                Seq No.  File                  Field Name"
^DIST(.403,.3101,"AY","X",1,7,2)="-----                -------  ----                  ----------"
^DIST(.403,.3101,"AY","X",1,14,0)="Uniqueness Index:"
^DIST(.403,.3101,"AY","X",1,16,1)="Index Details..."
^DIST(.403,.3101,"AY","X",2,0,30)=" Uniqueness Index "
^DIST(.403,.3101,"AY","X",2,1,8)="File:                                 Root File:"
^DIST(.403,.3101,"AY","X",2,1,8,"A")="1;4;U^39;47;U"
^DIST(.403,.3101,"AY","X",2,2,2)="Index Name:                                 Root Type:"
^DIST(.403,.3101,"AY","X",2,2,2,"A")="1;10;U"
^DIST(.403,.3101,"AY","X",2,4,2)="Short Description:"
^DIST(.403,.3101,"AY","X",2,4,2,"A")="1;17;U"
^DIST(.403,.3101,"AY","X",2,5,3)="Description (wp):"
^DIST(.403,.3101,"AY","X",2,7,2)="Order...  Subscr  Length  [File,Field] Field Name"
^DIST(.403,.3101,"AY","X",2,8,2)="--------  ------  ------  -----------------------"
^DIST(.403,.3101,"AY","X",2,14,3)="Set Logic:"
^DIST(.403,.3101,"AY","X",2,14,3,"A")="1;9;U"
^DIST(.403,.3101,"AY","X",2,15,2)="Kill Logic:"
^DIST(.403,.3101,"AY","X",2,15,2,"A")="1;10;U"
^DIST(.403,.3101,"AY","X",3,7,23)=" Field-Type Cross Reference Value "
^DIST(.403,.3101,"AY","X",3,9,4)="Order Number:                     Subscript Number:"
^DIST(.403,.3101,"AY","X",3,9,4,"A")="1;12;U"
^DIST(.403,.3101,"AY","X",3,10,11)="Field:                                 File:"
^DIST(.403,.3101,"AY","X",3,11,6)="Field Name:"
^DIST(.403,.3101,"AY","X",3,13,2)="Maximum Length:                              Collation:"
^DIST(.403,.3101,"AY","X",3,14,3)="Lookup Prompt:"
^DIST(.403,.40001,0)="DIBTED^@^^^2980904.1357^2990130.0900^^.401^0^0^1"
^DIST(.403,.40001,12)="D SAVEFLDS^DIBTED(DA)"
^DIST(.403,.40001,40,0)="^.4031I^2^2"
^DIST(.403,.40001,40,1,0)="1^^1,1^2"
^DIST(.403,.40001,40,1,1)="Page 1"
^DIST(.403,.40001,40,1,40,0)="^.4032IP^.400011^1"
^DIST(.403,.40001,40,1,40,.400011,0)=".400011^1^1,1^e"
^DIST(.403,.40001,40,1,40,"AC",1,.400011)=""
^DIST(.403,.40001,40,1,40,"B",.400011,.400011)=""
^DIST(.403,.40001,40,2,0)="2^^1,1^^1"
^DIST(.403,.40001,40,2,1)="Page 2"
^DIST(.403,.40001,40,2,40,0)="^.4032IP^.400012^1"
^DIST(.403,.40001,40,2,40,.400012,0)=".400012^1^1,1^e"
^DIST(.403,.40001,40,2,40,"AC",1,.400012)=""
^DIST(.403,.40001,40,2,40,"B",.400012,.400012)=""
^DIST(.403,.40001,40,"B",1,1)=""
^DIST(.403,.40001,40,"B",2,2)=""
^DIST(.403,.40001,40,"C","PAGE 1",1)=""
^DIST(.403,.40001,40,"C","PAGE 2",2)=""
^DIST(.403,.40001,"AY",1,0,0,"N")="9,.400011^1,.400011^1,.400011^9,.400011^1,.400011"
^DIST(.403,.40001,"AY",1,.400011)="0^0^.401^^e^^^^1"
^DIST(.403,.40001,"AY",1,.400011,1,"D")="0^15^30^.01"
^DIST(.403,.40001,"AY",1,.400011,1,"N")="0^2^2^0^2"
^DIST(.403,.40001,"AY",1,.400011,2,"D")="3^27^17^2"
^DIST(.403,.40001,"AY",1,.400011,2,"N")="1^3^3^1^3"
^DIST(.403,.40001,"AY",1,.400011,3,"D")="4^27^11^7"
^DIST(.403,.40001,"AY",1,.400011,3,"N")="2^4^4^2^4"
^DIST(.403,.40001,"AY",1,.400011,4,"D")="5^27^13^3"
^DIST(.403,.40001,"AY",1,.400011,4,"N")="3^5^5^3^5"
^DIST(.403,.40001,"AY",1,.400011,5,"D")="6^27^13^6"
^DIST(.403,.40001,"AY",1,.400011,5,"N")="4^6^6^4^6"
^DIST(.403,.40001,"AY",1,.400011,6,"D")="7^27^9^5"
^DIST(.403,.40001,"AY",1,.400011,6,"N")="5^7^7^5^7"
^DIST(.403,.40001,"AY",1,.400011,7,"D")="9^27^1^10"
^DIST(.403,.40001,"AY",1,.400011,7,"N")="6^9^9^6^9^^^^^^1"
^DIST(.403,.40001,"AY",1,.400011,9,"D")="11^27^35^491620"
^DIST(.403,.40001,"AY",1,.400011,9,"N")="7^0^0^7^0"
^DIST(.403,.40001,"AY",1,"FIRST")="1,.400011"
^DIST(.403,.40001,"AY",2,0,0,"N")="0^0^0^0^0"
^DIST(.403,.40001,"AY",2,.400012)="0^0^.401^^e^^^^0"
^DIST(.403,.40001,"AY",2,"FIRST")="0,.400012"
^DIST(.403,.40001,"AY","CAP","DATE LAST MODIFIED","1^2",1,.400011,2)=""
^DIST(.403,.40001,"AY","CAP","DATE LAST USED","1^2",1,.400011,3)=""
^DIST(.403,.40001,"AY","CAP","DESCRIPTION...","1^2",1,.400011,7)=""
^DIST(.403,.40001,"AY","CAP","PRINT TEMPLATE","1^2",1,.400011,9)=""
^DIST(.403,.40001,"AY","CAP","READ ACCESS","1^2",1,.400011,4)=""
^DIST(.403,.40001,"AY","CAP","TEMPLATE NAME","1^2",1,.400011,1)=""
^DIST(.403,.40001,"AY","CAP","USER #","1^2",1,.400011,6)=""
^DIST(.403,.40001,"AY","CAP","WRITE ACCESS","1^2",1,.400011,5)=""
^DIST(.403,.40001,"AY","F.401",.01,"L",1,.400011,1)=""
^DIST(.403,.40001,"AY","F.401",2,"L",1,.400011,2)=""
^DIST(.403,.40001,"AY","F.401",3,"L",1,.400011,4)=""
^DIST(.403,.40001,"AY","F.401",5,"L",1,.400011,6)=""
^DIST(.403,.40001,"AY","F.401",6,"L",1,.400011,5)=""
^DIST(.403,.40001,"AY","F.401",7,"L",1,.400011,3)=""
^DIST(.403,.40001,"AY","F.401",10,"L",1,.400011,7)=""
^DIST(.403,.40001,"AY","F.401",491620,"L",1,.400011,9)=""
^DIST(.403,.40001,"AY","X",1,0,0)="TEMPLATE NAME:"
^DIST(.403,.40001,"AY","X",1,3,7)="DATE LAST MODIFIED:"
^DIST(.403,.40001,"AY","X",1,4,11)="DATE LAST USED:"
^DIST(.403,.40001,"AY","X",1,5,14)="READ ACCESS:"
^DIST(.403,.40001,"AY","X",1,6,13)="WRITE ACCESS:"
^DIST(.403,.40001,"AY","X",1,7,19)="USER #:"
^DIST(.403,.40001,"AY","X",1,9,12)="DESCRIPTION..."
^DIST(.403,.40001,"AY","X",1,11,11)="PRINT TEMPLATE:"
^DIST(.403,.40001,"AY","X",1,15,19)="(Sort Fields on Next Page...)"
^DIST(.403,.40001,"AY","X",2,0,0)=" "
^DIST(.403,.40101,0)="DIETED^@^^^2980801.074^2990303.0830^^.402^0^0^1"
^DIST(.403,.40101,14)="D SAVEFLDS^DIETED(DA)"
^DIST(.403,.40101,40,0)="^.4031I^2^2"
^DIST(.403,.40101,40,1,0)="1^^1,1^2"
^DIST(.403,.40101,40,1,1)="Page 1"
^DIST(.403,.40101,40,1,40,0)="^.4032IP^.401011^1"
^DIST(.403,.40101,40,1,40,.401011,0)=".401011^1^1,1^e"
^DIST(.403,.40101,40,1,40,"AC",1,.401011)=""
^DIST(.403,.40101,40,1,40,"B",.401011,.401011)=""
^DIST(.403,.40101,40,2,0)="2^^1,1^^1"
^DIST(.403,.40101,40,2,1)="Page 2"
^DIST(.403,.40101,40,2,40,0)="^.4032IP^.401012^1"
^DIST(.403,.40101,40,2,40,.401012,0)=".401012^1^1,1^e"
^DIST(.403,.40101,40,2,40,.401012,11)="D EDIT^DIETED(DA)"
^DIST(.403,.40101,40,2,40,"AC",1,.401012)=""
^DIST(.403,.40101,40,2,40,"B",.401012,.401012)=""
^DIST(.403,.40101,40,"B",1,1)=""
^DIST(.403,.40101,40,"B",2,2)=""
^DIST(.403,.40101,40,"C","PAGE 1",1)=""
^DIST(.403,.40101,40,"C","PAGE 2",2)=""
^DIST(.403,.40101,"AY",1,0,0,"N")="8,.401011^1,.401011^1,.401011^8,.401011^1,.401011"
^DIST(.403,.40101,"AY",1,.401011)="0^0^.402^^e^^^^1"
^DIST(.403,.40101,"AY",1,.401011,1,"D")="0^15^30^.01"
^DIST(.403,.40101,"AY",1,.401011,1,"N")="0^2^2^0^2"
^DIST(.403,.40101,"AY",1,.401011,2,"D")="3^27^17^2"
^DIST(.403,.40101,"AY",1,.401011,2,"N")="1^3^3^1^3"
^DIST(.403,.40101,"AY",1,.401011,3,"D")="4^27^11^7"
^DIST(.403,.40101,"AY",1,.401011,3,"N")="2^5^5^2^5"
^DIST(.403,.40101,"AY",1,.401011,4,"D")="1^19^44^0^^^^^1"
^DIST(.403,.40101,"AY",1,.401011,5,"D")="5^27^13^3"
^DIST(.403,.40101,"AY",1,.401011,5,"N")="3^6^6^3^6"
^DIST(.403,.40101,"AY",1,.401011,6,"D")="6^27^13^6"
^DIST(.403,.40101,"AY",1,.401011,6,"N")="5^7^7^5^7"
^DIST(.403,.40101,"AY",1,.401011,7,"D")="7^27^9^5"
^DIST(.403,.40101,"AY",1,.401011,7,"N")="6^8^8^6^8"
^DIST(.403,.40101,"AY",1,.401011,8,"D")="9^27^1^10"
^DIST(.403,.40101,"AY",1,.401011,8,"N")="7^0^0^7^0^^^^^^1"
^DIST(.403,.40101,"AY",1,"FIRST")="1,.401011"
^DIST(.403,.40101,"AY",2,0,0,"N")="0^0^0^0^0"
^DIST(.403,.40101,"AY",2,.401012)="0^0^.402^^e^^^^0"
^DIST(.403,.40101,"AY",2,"FIRST")="0,.401012"
^DIST(.403,.40101,"AY","CAP","DATE LAST MODIFIED","1^2",1,.401011,2)=""
^DIST(.403,.40101,"AY","CAP","DATE LAST USED","1^2",1,.401011,3)=""
^DIST(.403,.40101,"AY","CAP","DESCRIPTION...","1^2",1,.401011,8)=""
^DIST(.403,.40101,"AY","CAP","READ ACCESS","1^2",1,.401011,5)=""
^DIST(.403,.40101,"AY","CAP","TEMPLATE NAME","1^2",1,.401011,1)=""
^DIST(.403,.40101,"AY","CAP","USER #","1^2",1,.401011,7)=""
^DIST(.403,.40101,"AY","CAP","WRITE ACCESS","1^2",1,.401011,6)=""
^DIST(.403,.40101,"AY","COMPE",.401011,4)="S Y=$G(^DIE(DA,""ROU"")),S=$S(Y]"""":""(Compiled as '""_Y_""' routine)"",1:""(Not Compiled)"")"
^DIST(.403,.40101,"AY","F.402",0,"L",1,.401011,4)=""
^DIST(.403,.40101,"AY","F.402",.01,"L",1,.401011,1)=""
^DIST(.403,.40101,"AY","F.402",2,"L",1,.401011,2)=""
^DIST(.403,.40101,"AY","F.402",3,"L",1,.401011,5)=""
^DIST(.403,.40101,"AY","F.402",5,"L",1,.401011,7)=""
^DIST(.403,.40101,"AY","F.402",6,"L",1,.401011,6)=""
^DIST(.403,.40101,"AY","F.402",7,"L",1,.401011,3)=""
^DIST(.403,.40101,"AY","F.402",10,"L",1,.401011,8)=""
^DIST(.403,.40101,"AY","X",1,0,0)="TEMPLATE NAME:"
^DIST(.403,.40101,"AY","X",1,3,7)="DATE LAST MODIFIED:"
^DIST(.403,.40101,"AY","X",1,4,11)="DATE LAST USED:"
^DIST(.403,.40101,"AY","X",1,5,14)="READ ACCESS:"
^DIST(.403,.40101,"AY","X",1,6,13)="WRITE ACCESS:"
^DIST(.403,.40101,"AY","X",1,7,19)="USER #:"
^DIST(.403,.40101,"AY","X",1,9,12)="DESCRIPTION..."
^DIST(.403,.40101,"AY","X",1,15,19)="(Edit Fields on Next Page...)"
^DIST(.403,.40101,"AY","X",2,0,0)=" "
^DIST(.403,.40201,0)="DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1"
^DIST(.403,.40201,20)="D POST^DIU20"
^DIST(.403,.40201,40,0)="^.4031I^1^1"
^DIST(.403,.40201,40,1,0)="1^^1,1"
^DIST(.403,.40201,40,1,1)="Page 1"
^DIST(.403,.40201,40,1,40,0)="^.4032IP^.402011^1"
^DIST(.403,.40201,40,1,40,.402011,0)=".402011^1^1,3^e"
^DIST(.403,.40201,40,1,40,"AC",1,.402011)=""
^DIST(.403,.40201,40,1,40,"B",.402011,.402011)=""
^DIST(.403,.40201,40,"B",1,1)=""
^DIST(.403,.40201,40,"C","PAGE 1",1)=""
^DIST(.403,.40201,"AY",1,0,0,"N")="12,.402011^17,.402011^17,.402011^12,.402011^17,.402011"
^DIST(.403,.40201,"AY",1,.402011)="0^2^1^^e^^^^17"
^DIST(.403,.40201,"AY",1,.402011,1,"D")="2^37^1^4"
^DIST(.403,.40201,"AY",1,.402011,1,"N")="17^15^15^17^15^^^^^^1"
^DIST(.403,.40201,"AY",1,.402011,2,"D")="5^37^13^2,.402011"
^DIST(.403,.40201,"AY",1,.402011,2,"N")="13^3^3^13^3"
^DIST(.403,.40201,"AY",1,.402011,3,"D")="6^37^13^3,.402011"
^DIST(.403,.40201,"AY",1,.402011,3,"N")="2^4^4^2^4"
^DIST(.403,.40201,"AY",1,.402011,4,"D")="7^37^13^4,.402011"
^DIST(.403,.40201,"AY",1,.402011,4,"N")="3^5^5^3^5"
^DIST(.403,.40201,"AY",1,.402011,5,"D")="8^37^13^5,.402011"
^DIST(.403,.40201,"AY",1,.402011,5,"N")="4^6^6^4^6"
^DIST(.403,.40201,"AY",1,.402011,6,"D")="9^37^13^6,.402011"
^DIST(.403,.40201,"AY",1,.402011,6,"N")="5^7^7^5^7"
^DIST(.403,.40201,"AY",1,.402011,7,"D")="10^37^13^7,.402011"
^DIST(.403,.40201,"AY",1,.402011,7,"N")="6^8^8^6^8"
^DIST(.403,.40201,"AY",1,.402011,8,"D")="11^37^3^8,.402011"
^DIST(.403,.40201,"AY",1,.402011,8,"N")="7^9^9^7^9"
^DIST(.403,.40201,"AY",1,.402011,9,"D")="12^37^3^9,.402011"
^DIST(.403,.40201,"AY",1,.402011,9,"N")="8^9.5^9.5^8^9.5"
^DIST(.403,.40201,"AY",1,.402011,9.5,"D")="13^27^40^9.5,.402011"
^DIST(.403,.40201,"AY",1,.402011,9.5,"N")="9^10^10^9^10"
^DIST(.403,.40201,"AY",1,.402011,10,"D")="14^27^52^10,.402011"
^DIST(.403,.40201,"AY",1,.402011,10,"N")="9.5^11^11^9.5^11"
^DIST(.403,.40201,"AY",1,.402011,11,"D")="15^27^8^11,.402011"
^DIST(.403,.40201,"AY",1,.402011,11,"N")="10^12^12^10^12"
^DIST(.403,.40201,"AY",1,.402011,12,"D")="16^27^6^12,.402011"
^DIST(.403,.40201,"AY",1,.402011,12,"N")="11^0^0^11^0"
^DIST(.403,.40201,"AY",1,.402011,13,"D")="4^37^35^20"
^DIST(.403,.40201,"AY",1,.402011,13,"N")="15^2^2^15^2"
^DIST(.403,.40201,"AY",1,.402011,15,"D")="3^37^5^10"
^DIST(.403,.40201,"AY",1,.402011,15,"N")="1^13^13^1^13^^^^^^1"
^DIST(.403,.40201,"AY",1,.402011,16,"D")="2^50^18^0^^^^^1"
^DIST(.403,.40201,"AY",1,.402011,17,"D")="1^13^45^17,.402011"
^DIST(.403,.40201,"AY",1,.402011,17,"N")="0^1^1^0^1"
^DIST(.403,.40201,"AY",1,.402011,18,"D")="16^38^31^0^^^^^1"
^DIST(.403,.40201,"AY",1,"FIRST")="17,.402011"
^DIST(.403,.40201,"AY","CAP","APPLICATION GROUP",1,1,.402011,15)=""
^DIST(.403,.40201,"AY","CAP","ASK 'OK' WHEN LOOKING UP AN ENTRY",1,1,.402011,9)=""
^DIST(.403,.40201,"AY","CAP","AUDIT ACCESS",1,1,.402011,7)=""
^DIST(.403,.40201,"AY","CAP","CROSS-REFERENCE ROUTINE",1,1,.402011,12)=""
^DIST(.403,.40201,"AY","CAP","DATA DICTIONARY ACCESS",1,1,.402011,2)=""
^DIST(.403,.40201,"AY","CAP","DD AUDIT",1,1,.402011,8)=""
^DIST(.403,.40201,"AY","CAP","DELETE ACCESS",1,1,.402011,5)=""
^DIST(.403,.40201,"AY","CAP","DESCRIPTION...",1,1,.402011,1)=""
^DIST(.403,.40201,"AY","CAP","DEVELOPER",1,1,.402011,13)=""
^DIST(.403,.40201,"AY","CAP","FILE NAME",1,1,.402011,17)=""
^DIST(.403,.40201,"AY","CAP","FILE SCREEN",1,1,.402011,9.5)=""
^DIST(.403,.40201,"AY","CAP","LAYGO ACCESS",1,1,.402011,6)=""
^DIST(.403,.40201,"AY","CAP","LOOK-UP PROGRAM",1,1,.402011,11)=""
^DIST(.403,.40201,"AY","CAP","POST-SELECTION ACTION",1,1,.402011,10)=""
^DIST(.403,.40201,"AY","CAP","READ ACCESS",1,1,.402011,3)=""
^DIST(.403,.40201,"AY","CAP","WRITE ACCESS",1,1,.402011,4)=""
^DIST(.403,.40201,"AY","COMPE",.402011,16)="S Y=""(File # ""_DA_"")"""
^DIST(.403,.40201,"AY","COMPE",.402011,18)="S Y="""" I '$D(^DD(DA,0,""DIK"")) S Y=$G(^(""DIKOLD"")) S:Y]"""" Y=""(formerly compiled as '""_Y_""')"""
^DIST(.403,.40201,"AY","F0","10,.402011","L",1,.402011,10)=""
^DIST(.403,.40201,"AY","F0","11,.402011","L",1,.402011,11)=""
^DIST(.403,.40201,"AY","F0","12,.402011","L",1,.402011,12)=""
^DIST(.403,.40201,"AY","F0","17,.402011","L",1,.402011,17)=""
^DIST(.403,.40201,"AY","F0","2,.402011","L",1,.402011,2)=""
^DIST(.403,.40201,"AY","F0","3,.402011","L",1,.402011,3)=""
^DIST(.403,.40201,"AY","F0","4,.402011","L",1,.402011,4)=""
^DIST(.403,.40201,"AY","F0","5,.402011","L",1,.402011,5)=""
^DIST(.403,.40201,"AY","F0","6,.402011","L",1,.402011,6)=""
^DIST(.403,.40201,"AY","F0","7,.402011","L",1,.402011,7)=""
^DIST(.403,.40201,"AY","F0","8,.402011","L",1,.402011,8)=""
^DIST(.403,.40201,"AY","F0","9,.402011","L",1,.402011,9)=""
^DIST(.403,.40201,"AY","F0","9.5,.402011","L",1,.402011,9.5)=""
^DIST(.403,.40201,"AY","F1",0,"L",1,.402011,16)=""
^DIST(.403,.40201,"AY","F1",0,"L",1,.402011,18)=""
^DIST(.403,.40201,"AY","F1",4,"L",1,.402011,1)=""
^DIST(.403,.40201,"AY","F1",10,"L",1,.402011,15)=""
^DIST(.403,.40201,"AY","F1",20,"L",1,.402011,13)=""
^DIST(.403,.40201,"AY","X",1,1,2)="FILE NAME:"
^DIST(.403,.40201,"AY","X",1,2,22)="DESCRIPTION..."
^DIST(.403,.40201,"AY","X",1,3,11)="Select APPLICATION GROUP:"
^DIST(.403,.40201,"AY","X",1,4,26)="DEVELOPER:"
^DIST(.403,.40201,"AY","X",1,5,13)="DATA DICTIONARY ACCESS:"
^DIST(.403,.40201,"AY","X",1,6,24)="READ ACCESS:"
^DIST(.403,.40201,"AY","X",1,7,23)="WRITE ACCESS:"
^DIST(.403,.40201,"AY","X",1,8,22)="DELETE ACCESS:"
^DIST(.403,.40201,"AY","X",1,9,23)="LAYGO ACCESS:"
^DIST(.403,.40201,"AY","X",1,10,23)="AUDIT ACCESS:"
^DIST(.403,.40201,"AY","X",1,11,27)="DD AUDIT:"
^DIST(.403,.40201,"AY","X",1,12,2)="ASK 'OK' WHEN LOOKING UP AN ENTRY:"
^DIST(.403,.40201,"AY","X",1,13,14)="FILE SCREEN:"
^DIST(.403,.40201,"AY","X",1,14,4)="POST-SELECTION ACTION:"
^DIST(.403,.40201,"AY","X",1,15,10)="LOOK-UP PROGRAM:"
^DIST(.403,.40201,"AY","X",1,16,2)="CROSS-REFERENCE ROUTINE:"
^DIST(.403,.40301,0)="DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1"
^DIST(.403,.40301,40,0)="^.4031I^2^2"
^DIST(.403,.40301,40,1,0)="1^^1,2^^^1^17,77"
^DIST(.403,.40301,40,1,1)="Edit Block Parameters"
^DIST(.403,.40301,40,1,40,0)="^.4032PI^.403012^2"
^DIST(.403,.40301,40,1,40,.403011,0)=".403011^1^1,1^e"
^DIST(.403,.40301,40,1,40,.403012,0)=".403012^2^10,1^e"
^DIST(.403,.40301,40,1,40,.403012,1)="PAGE:BLOCK:.01"
^DIST(.403,.40301,40,1,40,"AC",1,.403011)=""
^DIST(.403,.40301,40,1,40,"AC",2,.403012)=""
^DIST(.403,.40301,40,1,40,"B",.403011,.403011)=""
^DIST(.403,.40301,40,1,40,"B",.403012,.403012)=""
^DIST(.403,.40301,40,2,0)="11^^4,11^^^1^16,65"
^DIST(.403,.40301,40,2,1)="Page 11"
^DIST(.403,.40301,40,2,40,0)="^.4032PI^.403013^1"
^DIST(.403,.40301,40,2,40,.403013,0)=".403013^1^1,1^e"
^DIST(.403,.40301,40,2,40,"AC",1,.403013)=""
^DIST(.403,.40301,40,2,40,"B",.403013,.403013)=""
^DIST(.403,.40301,40,"B",1,1)=""
^DIST(.403,.40301,40,"B",11,2)=""
^DIST(.403,.40301,40,"C","EDIT BLOCK PARAMETERS",1)=""
^DIST(.403,.40301,40,"C","PAGE 11",2)=""
^DIST(.403,.40301,"AY",1,0,0,"N")="7,.403012^6,.403011^6,.403011^7,.403012^6,.403011"
^DIST(.403,.40301,"AY",1,.403011)="0^1^.4032^^e^^^^6"
^DIST(.403,.40301,"AY",1,.403011,2,"D")="2^69^4^1"
^DIST(.403,.40301,"AY",1,.403011,2,"N")="0^10^3^6^3"
^DIST(.403,.40301,"AY",1,.403011,3,"D")="3^18^7^3"
^DIST(.403,.40301,"AY",1,.403011,3,"N")="6^5^10^2^10"
^DIST(.403,.40301,"AY",1,.403011,5,"D")="5^18^57^4"
^DIST(.403,.40301,"AY",1,.403011,5,"N")="3^8^8^10^8"
^DIST(.403,.40301,"AY",1,.403011,6,"D")="2^18^30^.01"
^DIST(.403,.40301,"AY",1,.403011,6,"N")="0^3^2^0^2"
^DIST(.403,.40301,"AY",1,.403011,8,"D")="6^18^57^11"
^DIST(.403,.40301,"AY",1,.403011,8,"N")="5^9^9^5^9"
^DIST(.403,.40301,"AY",1,.403011,9,"D")="7^18^57^12"
^DIST(.403,.40301,"AY",1,.403011,9,"N")="8^2,.403012^2,.403012^8^2,.403012"
^DIST(.403,.40301,"AY",1,.403011,10,"D")="3^69^1^10,.403011"
^DIST(.403,.40301,"AY",1,.403011,10,"N")="2^5^5^3^5"
^DIST(.403,.40301,"AY",1,.403012)="9^1^.404^^e^^^1^2"
^DIST(.403,.40301,"AY",1,.403012,2,"D")="11^16^30^2,.403012"
^DIST(.403,.40301,"AY",1,.403012,2,"N")="9,.403011^4^3^9,.403011^3"
^DIST(.403,.40301,"AY",1,.403012,3,"D")="11^69^1^15"
^DIST(.403,.40301,"AY",1,.403012,3,"N")="9,.403011^5^4^2^4^^^^^^1"
^DIST(.403,.40301,"AY",1,.403012,4,"D")="12^16^16^1"
^DIST(.403,.40301,"AY",1,.403012,4,"N")="2^6^5^3^5"
^DIST(.403,.40301,"AY",1,.403012,5,"D")="12^69^5^2"
^DIST(.403,.40301,"AY",1,.403012,5,"N")="3^6^6^4^6"
^DIST(.403,.40301,"AY",1,.403012,6,"D")="14^16^59^11"
^DIST(.403,.40301,"AY",1,.403012,6,"N")="4^7^7^5^7"
^DIST(.403,.40301,"AY",1,.403012,7,"D")="15^16^59^12"
^DIST(.403,.40301,"AY",1,.403012,7,"N")="6^0^0^6^0"
^DIST(.403,.40301,"AY",1,.403012,"PTB")=".4032,.01"
^DIST(.403,.40301,"AY",1,.403012,"PTB",1)="S X=$$GET^DDSVAL(.4032,.DA,.01),DA=X"
^DIST(.403,.40301,"AY",1,"FIRST")="6,.403011"
^DIST(.403,.40301,"AY",2,0,0,"N")="9,.403013^2,.403013^2,.403013^9,.403013^2,.403013"
^DIST(.403,.40301,"AY",2,.403013)="3^10^.4032^^e^^^^2"
^DIST(.403,.40301,"AY",2,.403013,2,"D")="5^33^7^2,.403013"
^DIST(.403,.40301,"AY",2,.403013,2,"N")="0^4^4^0^4"
^DIST(.403,.40301,"AY",2,.403013,4,"D")="9^33^3^5"
^DIST(.403,.40301,"AY",2,.403013,4,"N")="2^5^5^2^5"
^DIST(.403,.40301,"AY",2,.403013,5,"D")="10^33^30^6"
^DIST(.403,.40301,"AY",2,.403013,5,"N")="4^6^6^4^6"
^DIST(.403,.40301,"AY",2,.403013,6,"D")="11^33^5^7"
^DIST(.403,.40301,"AY",2,.403013,6,"N")="5^7^7^5^7"
^DIST(.403,.40301,"AY",2,.403013,7,"D")="12^33^3^8"
^DIST(.403,.40301,"AY",2,.403013,7,"N")="6^8^8^6^8"
^DIST(.403,.40301,"AY",2,.403013,8,"D")="13^33^30^9"
^DIST(.403,.40301,"AY",2,.403013,8,"N")="7^9^9^7^9"
^DIST(.403,.40301,"AY",2,.403013,9,"D")="14^33^3^10"
^DIST(.403,.40301,"AY",2,.403013,9,"N")="8^0^0^8^0"
^DIST(.403,.40301,"AY",2,"FIRST")="2,.403013"
^DIST(.403,.40301,"AY","CAP","ASK 'OK'",2,2,.403013,9)=""
^DIST(.403,.40301,"AY","CAP","BLOCK COORDINATE",2,2,.403013,2)=""
^DIST(.403,.40301,"AY","CAP","BLOCK NAME",1,1,.403011,6)=""
^DIST(.403,.40301,"AY","CAP","BLOCK ORDER",1,1,.403011,2)=""
^DIST(.403,.40301,"AY","CAP","DD NUMBER",1,1,.403012,4)=""
^DIST(.403,.40301,"AY","CAP","DESCRIPTION (WP)",1,1,.403012,3)=""
^DIST(.403,.40301,"AY","CAP","DISABLE NAVIGATION",1,1,.403012,5)=""
^DIST(.403,.40301,"AY","CAP","DISALLOW LAYGO",2,2,.403013,7)=""
^DIST(.403,.40301,"AY","CAP","FIELD FOR SELECTION",2,2,.403013,8)=""
^DIST(.403,.40301,"AY","CAP","INDEX",2,2,.403013,5)=""
^DIST(.403,.40301,"AY","CAP","INITIAL POSITION",2,2,.403013,6)=""
^DIST(.403,.40301,"AY","CAP","NAME",1,1,.403012,2)=""
^DIST(.403,.40301,"AY","CAP","OTHER PARAMETERS...",1,1,.403011,10)=""
^DIST(.403,.40301,"AY","CAP","POINTER LINK",1,1,.403011,5)=""
^DIST(.403,.40301,"AY","CAP","POST ACTION",1,1,.403011,9)=""
^DIST(.403,.40301,"AY","CAP","POST ACTION",1,1,.403012,7)=""
^DIST(.403,.40301,"AY","CAP","PRE ACTION",1,1,.403011,8)=""
^DIST(.403,.40301,"AY","CAP","PRE ACTION",1,1,.403012,6)=""
^DIST(.403,.40301,"AY","CAP","REPLICATION",2,2,.403013,4)=""
^DIST(.403,.40301,"AY","CAP","TYPE OF BLOCK",1,1,.403011,3)=""
^DIST(.403,.40301,"AY","F.4032",.01,"L",1,.403011,6)=""
^DIST(.403,.40301,"AY","F.4032",1,"L",1,.403011,2)=""
^DIST(.403,.40301,"AY","F.4032",3,"L",1,.403011,3)=""
^DIST(.403,.40301,"AY","F.4032",4,"L",1,.403011,5)=""
^DIST(.403,.40301,"AY","F.4032",5,"L",2,.403013,4)=""
^DIST(.403,.40301,"AY","F.4032",6,"L",2,.403013,5)=""
^DIST(.403,.40301,"AY","F.4032",7,"L",2,.403013,6)=""
^DIST(.403,.40301,"AY","F.4032",8,"L",2,.403013,7)=""
^DIST(.403,.40301,"AY","F.4032",9,"L",2,.403013,8)=""
^DIST(.403,.40301,"AY","F.4032",10,"L",2,.403013,9)=""
^DIST(.403,.40301,"AY","F.4032",11,"L",1,.403011,8)=""
^DIST(.403,.40301,"AY","F.4032",12,"L",1,.403011,9)=""
^DIST(.403,.40301,"AY","F.404",1,"L",1,.403012,4)=""
^DIST(.403,.40301,"AY","F.404",2,"L",1,.403012,5)=""
^DIST(.403,.40301,"AY","F.404",11,"L",1,.403012,6)=""
^DIST(.403,.40301,"AY","F.404",12,"L",1,.403012,7)=""
^DIST(.403,.40301,"AY","F.404",15,"L",1,.403012,3)=""
^DIST(.403,.40301,"AY","F0","10,.403011","L",1,.403011,10)=""
^DIST(.403,.40301,"AY","F0","2,.403012","L",1,.403012,2)=""
^DIST(.403,.40301,"AY","F0","2,.403013","L",2,.403013,2)=""
^DIST(.403,.40301,"AY","PT",.4032,.01,1,.403012)=""
^DIST(.403,.40301,"AY","X",1,0,20)=" Block Properties Stored in FORM File "
^DIST(.403,.40301,"AY","X",1,2,6)="BLOCK NAME:                                       BLOCK ORDER:"
^DIST(.403,.40301,"AY","X",1,2,6,"A")="51;61;U"
^DIST(.403,.40301,"AY","X",1,3,3)="TYPE OF BLOCK:                                OTHER PARAMETERS..."
^DIST(.403,.40301,"AY","X",1,3,3,"A")="1;13;U"
^DIST(.403,.40301,"AY","X",1,5,4)="POINTER LINK:"
^DIST(.403,.40301,"AY","X",1,6,6)="PRE ACTION:"
^DIST(.403,.40301,"AY","X",1,7,5)="POST ACTION:"
^DIST(.403,.40301,"AY","X",1,9,2)="----------------- Block Properties Stored in BLOCK File ------------------"
^DIST(.403,.40301,"AY","X",1,11,10)="NAME:                                    DESCRIPTION (WP):"
^DIST(.403,.40301,"AY","X",1,12,5)="DD NUMBER:                                  DISABLE NAVIGATION:"
^DIST(.403,.40301,"AY","X",1,14,4)="PRE ACTION:"
^DIST(.403,.40301,"AY","X",1,15,3)="POST ACTION:"
^DIST(.403,.40301,"AY","X",2,3,25)=" Other Block Parameters "
^DIST(.403,.40301,"AY","X",2,5,15)="BLOCK COORDINATE:"
^DIST(.403,.40301,"AY","X",2,5,15,"A")="1;16;U"
^DIST(.403,.40301,"AY","X",2,7,12)="Parameters for Repeating Blocks"
^DIST(.403,.40301,"AY","X",2,9,20)="REPLICATION:"
^DIST(.403,.40301,"AY","X",2,10,26)="INDEX:"
^DIST(.403,.40301,"AY","X",2,11,15)="INITIAL POSITION:"
^DIST(.403,.40301,"AY","X",2,12,17)="DISALLOW LAYGO:"
^DIST(.403,.40301,"AY","X",2,13,12)="FIELD FOR SELECTION:"
^DIST(.403,.40301,"AY","X",2,14,23)="ASK 'OK':"
^DIST(.403,.40302,0)="DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1"
^DIST(.403,.40302,40,0)="^.4031I^2^2"
^DIST(.403,.40302,40,1,0)="1^^4,18^^^1^8,43"
^DIST(.403,.40302,40,1,1)="Add a New Page"
^DIST(.403,.40302,40,1,40,0)="^.4032PI^.403021^1"
^DIST(.403,.40302,40,1,40,.403021,0)=".403021^1^1,1^e"
^DIST(.403,.40302,40,1,40,"AC",1,.403021)=""
^DIST(.403,.40302,40,1,40,"B",.403021,.403021)=""
^DIST(.403,.40302,40,2,0)="11^^4,15^^^1^9,49"
^DIST(.403,.40302,40,2,1)="Select New Page Number"
^DIST(.403,.40302,40,2,40,0)="^.4032PI^.403022^1"
^DIST(.403,.40302,40,2,40,.403022,0)=".403022^1^1,1^e"
^DIST(.403,.40302,40,2,40,"AC",1,.403022)=""
^DIST(.403,.40302,40,2,40,"B",.403022,.403022)=""
^DIST(.403,.40302,40,"B",1,1)=""
^DIST(.403,.40302,40,"B",11,2)=""
^DIST(.403,.40302,40,"C","ADD A NEW PAGE",1)=""
^DIST(.403,.40302,40,"C","SELECT NEW PAGE NUMBER",2)=""
^DIST(.403,.40302,"AY",1,0,0,"N")="1,.403021^1,.403021^1,.403021^1,.403021^1,.403021"
^DIST(.403,.40302,"AY",1,.403021)="3^17^.4031^^e^^^^1"
^DIST(.403,.40302,"AY",1,.403021,1,"D")="5^36^5^1,.403021"
^DIST(.403,.40302,"AY",1,.403021,1,"N")="0^0^0^0^0"
^DIST(.403,.40302,"AY",1,"FIRST")="1,.403021"
^DIST(.403,.40302,"AY",2,0,0,"N")="2,.403022^2,.403022^2,.403022^2,.403022^2,.403022"
^DIST(.403,.40302,"AY",2,.403022)="3^14^.4031^^e^^^^2"
^DIST(.403,.40302,"AY",2,.403022,1,"D")="^^^^5^16^^0"
^DIST(.403,.40302,"AY",2,.403022,2,"D")="6^44^3^2,.403022"
^DIST(.403,.40302,"AY",2,.403022,2,"N")="0^0^0^0^0"
^DIST(.403,.40302,"AY",2,"FIRST")="2,.403022"
^DIST(.403,.40302,"AY","CAP","AS A NEW PAGE ON THIS FORM?",2,2,.403022,2)=""
^DIST(.403,.40302,"AY","CAP","NEW PAGE NUMBER",1,1,.403021,1)=""
^DIST(.403,.40302,"AY","F0","1,.403021","L",1,.403021,1)=""
^DIST(.403,.40302,"AY","F0","2,.403022","L",2,.403022,2)=""
^DIST(.403,.40302,"AY","X",1,5,19)="NEW PAGE NUMBER:"
^DIST(.403,.40302,"AY","X",2,6,16)="as a new page on this form?"
^DIST(.403,.40303,0)="DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1"
^DIST(.403,.40303,40,0)="^.4031I^1^1"
^DIST(.403,.40303,40,1,0)="1^^1,3^^^1^17,77"
^DIST(.403,.40303,40,1,1)="Edit a Page"
^DIST(.403,.40303,40,1,40,0)="^.4032PI^.403031^1"
^DIST(.403,.40303,40,1,40,.403031,0)=".403031^1^1,1^e"
^DIST(.403,.40303,40,1,40,.403031,11)="I $$GET^DDSVALF(""IS THIS A POP UP PAGE?"") N DDGFI F DDGFI=""PREVIOUS"",""NEXT"" D UNED^DDSUTL(DDGFI_"" PAGE"","""","""",1)"
^DIST(.403,.40303,40,1,40,"AC",1,.403031)=""
^DIST(.403,.40303,40,1,40,"B",.403031,.403031)=""
^DIST(.403,.40303,40,"B",1,1)=""
^DIST(.403,.40303,40,"C","EDIT A PAGE",1)=""
^DIST(.403,.40303,"AY",1,0,0,"N")="8,.403031^2,.403031^2,.403031^8,.403031^2,.403031"
^DIST(.403,.40303,"AY",1,.403031)="0^2^.4031^^e^^^^2"
^DIST(.403,.40303,"AY",1,.403031,2,"D")="2^22^5^.01"
^DIST(.403,.40303,"AY",1,.403031,2,"N")="0^16^16^0^16"
^DIST(.403,.40303,"AY",1,.403031,4,"D")="4^22^30^1"
^DIST(.403,.40303,"AY",1,.403031,4,"N")="16^14^14^16^14"
^DIST(.403,.40303,"AY",1,.403031,5,"D")="8^22^5^3"
^DIST(.403,.40303,"AY",1,.403031,5,"N")="15^6^6^15^6"
^DIST(.403,.40303,"AY",1,.403031,6,"D")="9^22^5^4"
^DIST(.403,.40303,"AY",1,.403031,6,"N")="5^12^12^5^12"
^DIST(.403,.40303,"AY",1,.403031,7,"D")="13^22^53^11"
^DIST(.403,.40303,"AY",1,.403031,7,"N")="9^8^8^9^8"
^DIST(.403,.40303,"AY",1,.403031,8,"D")="14^22^53^12"
^DIST(.403,.40303,"AY",1,.403031,8,"N")="7^0^0^7^0"
^DIST(.403,.40303,"AY",1,.403031,9,"D")="12^22^1^15"
^DIST(.403,.40303,"AY",1,.403031,9,"N")="12^7^7^12^7^^^^^^1"
^DIST(.403,.40303,"AY",1,.403031,12,"D")="10^22^53^8"
^DIST(.403,.40303,"AY",1,.403031,12,"N")="6^9^9^6^9"
^DIST(.403,.40303,"AY",1,.403031,13,"D")="6^68^3^13,.403031"
^DIST(.403,.40303,"AY",1,.403031,13,"N")="4^15^15^14^15"
^DIST(.403,.40303,"AY",1,.403031,14,"D")="6^22^7^14,.403031"
^DIST(.403,.40303,"AY",1,.403031,14,"N")="4^15^13^4^13"
^DIST(.403,.40303,"AY",1,.403031,15,"D")="7^68^7^15,.403031"
^DIST(.403,.40303,"AY",1,.403031,15,"N")="13^5^5^13^5"
^DIST(.403,.40303,"AY",1,.403031,16,"D")="3^22^30^16,.403031"
^DIST(.403,.40303,"AY",1,.403031,16,"N")="2^4^4^2^4"
^DIST(.403,.40303,"AY",1,"FIRST")="2,.403031"
^DIST(.403,.40303,"AY","CAP","DESCRIPTION (WP)",1,1,.403031,9)=""
^DIST(.403,.40303,"AY","CAP","HEADER BLOCK",1,1,.403031,4)=""
^DIST(.403,.40303,"AY","CAP","IS THIS A POP UP PAGE?",1,1,.403031,13)=""
^DIST(.403,.40303,"AY","CAP","LOWER RIGHT COORDINATE",1,1,.403031,15)=""
^DIST(.403,.40303,"AY","CAP","NEXT PAGE",1,1,.403031,5)=""
^DIST(.403,.40303,"AY","CAP","PAGE COORDINATE",1,1,.403031,14)=""
^DIST(.403,.40303,"AY","CAP","PAGE NAME",1,1,.403031,16)=""
^DIST(.403,.40303,"AY","CAP","PAGE NUMBER",1,1,.403031,2)=""
^DIST(.403,.40303,"AY","CAP","PARENT FIELD",1,1,.403031,12)=""
^DIST(.403,.40303,"AY","CAP","POST ACTION",1,1,.403031,8)=""
^DIST(.403,.40303,"AY","CAP","PRE ACTION",1,1,.403031,7)=""
^DIST(.403,.40303,"AY","CAP","PREVIOUS PAGE",1,1,.403031,6)=""
^DIST(.403,.40303,"AY","F.4031",.01,"L",1,.403031,2)=""
^DIST(.403,.40303,"AY","F.4031",1,"L",1,.403031,4)=""
^DIST(.403,.40303,"AY","F.4031",3,"L",1,.403031,5)=""
^DIST(.403,.40303,"AY","F.4031",4,"L",1,.403031,6)=""
^DIST(.403,.40303,"AY","F.4031",8,"L",1,.403031,12)=""
^DIST(.403,.40303,"AY","F.4031",11,"L",1,.403031,7)=""
^DIST(.403,.40303,"AY","F.4031",12,"L",1,.403031,8)=""
^DIST(.403,.40303,"AY","F.4031",15,"L",1,.403031,9)=""
^DIST(.403,.40303,"AY","F0","13,.403031","L",1,.403031,13)=""
^DIST(.403,.40303,"AY","F0","14,.403031","L",1,.403031,14)=""
^DIST(.403,.40303,"AY","F0","15,.403031","L",1,.403031,15)=""
^DIST(.403,.40303,"AY","F0","16,.403031","L",1,.403031,16)=""
^DIST(.403,.40303,"AY","X",1,0,28)=" Page Properties "
^DIST(.403,.40303,"AY","X",1,2,9)="PAGE NUMBER:"
^DIST(.403,.40303,"AY","X",1,3,11)="PAGE NAME:"
^DIST(.403,.40303,"AY","X",1,3,11,"A")="1;9;U"
^DIST(.403,.40303,"AY","X",1,4,8)="HEADER BLOCK:"
^DIST(.403,.40303,"AY","X",1,6,5)="PAGE COORDINATE:                        IS THIS A POP UP PAGE?"
^DIST(.403,.40303,"AY","X",1,6,5,"A")="1;15;U"
^DIST(.403,.40303,"AY","X",1,7,44)="LOWER RIGHT COORDINATE:"
^DIST(.403,.40303,"AY","X",1,8,11)="NEXT PAGE:"
^DIST(.403,.40303,"AY","X",1,9,7)="PREVIOUS PAGE:"
^DIST(.403,.40303,"AY","X",1,10,8)="PARENT FIELD:"
^DIST(.403,.40303,"AY","X",1,12,4)="DESCRIPTION (WP):"
^DIST(.403,.40303,"AY","X",1,13,10)="PRE ACTION:"
^DIST(.403,.40303,"AY","X",1,14,9)="POST ACTION:"
^DIST(.403,.40304,0)="DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1"
^DIST(.403,.40304,40,0)="^.4031I^1^1"
^DIST(.403,.40304,40,1,0)="1^^4,10^^^1^8,56"
^DIST(.403,.40304,40,1,1)="Select a Page"
^DIST(.403,.40304,40,1,40,0)="^.4032PI^.403041^1"
^DIST(.403,.40304,40,1,40,.403041,0)=".403041^1^3,3^e"
^DIST(.403,.40304,40,1,40,"AC",1,.403041)=""
^DIST(.403,.40304,40,1,40,"B",.403041,.403041)=""
^DIST(.403,.40304,40,"B",1,1)=""
^DIST(.403,.40304,40,"C","SELECT A PAGE",1)=""
^DIST(.403,.40304,"AY",1,0,0,"N")="1,.403041^1,.403041^1,.403041^1,.403041^1,.403041"
^DIST(.403,.40304,"AY",1,.403041)="5^11^.4031^^e^^^^1"
^DIST(.403,.40304,"AY",1,.403041,1,"D")="5^24^30^1,.403041"
^DIST(.403,.40304,"AY",1,.403041,1,"N")="0^0^0^0^0"
^DIST(.403,.40304,"AY",1,"FIRST")="1,.403041"
^DIST(.403,.40304,"AY","CAP","PAGE",1,1,.403041,1)=""
^DIST(.403,.40304,"AY","F0","1,.403041","L",1,.403041,1)=""
^DIST(.403,.40304,"AY","X",1,5,11)="Select PAGE:"
^DIST(.403,.40305,0)="DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1"
^DIST(.403,.40305,40,0)="^.4031I^1^1"
^DIST(.403,.40305,40,1,0)="1^^1,2^^^1^16,76"
^DIST(.403,.40305,40,1,1)="Form Edit"
^DIST(.403,.40305,40,1,40,0)="^.4032PI^.403051^1"
^DIST(.403,.40305,40,1,40,.403051,0)=".403051^1^1,1^e"
^DIST(.403,.40305,40,1,40,"AC",1,.403051)=""
^DIST(.403,.40305,40,1,40,"B",.403051,.403051)=""
^DIST(.403,.40305,40,"B",1,1)=""
^DIST(.403,.40305,40,"C","FORM EDIT",1)=""
^DIST(.403,.40305,"AY",1,0,0,"N")="11,.403051^2,.403051^2,.403051^11,.403051^2,.403051"
^DIST(.403,.40305,"AY",1,.403051)="0^1^.403^^e^^^^2"
^DIST(.403,.40305,"AY",1,.403051,2,"D")="2^20^30^.01"
^DIST(.403,.40305,"AY",1,.403051,2,"N")="0^9^9^0^9"
^DIST(.403,.40305,"AY",1,.403051,3,"D")="5^20^54^11"
^DIST(.403,.40305,"AY",1,.403051,3,"N")="9^4^4^9^4"
^DIST(.403,.40305,"AY",1,.403051,4,"D")="6^20^54^12"
^DIST(.403,.40305,"AY",1,.403051,4,"N")="3^6^6^3^6"
^DIST(.403,.40305,"AY",1,.403051,5,"D")="10^20^1^15"
^DIST(.403,.40305,"AY",1,.403051,5,"N")="8^10^7^8^7^^^^^^1"
^DIST(.403,.40305,"AY",1,.403051,6,"D")="7^20^54^20"
^DIST(.403,.40305,"AY",1,.403051,6,"N")="4^8^8^4^8"
^DIST(.403,.40305,"AY",1,.403051,7,"D")="10^69^5^21"
^DIST(.403,.40305,"AY",1,.403051,7,"N")="8^10^10^5^10"
^DIST(.403,.40305,"AY",1,.403051,8,"D")="8^20^54^14"
^DIST(.403,.40305,"AY",1,.403051,8,"N")="6^5^5^6^5"
^DIST(.403,.40305,"AY",1,.403051,9,"D")="3^20^50^6"
^DIST(.403,.40305,"AY",1,.403051,9,"N")="2^3^3^2^3"
^DIST(.403,.40305,"AY",1,.403051,10,"D")="12^20^15^1"
^DIST(.403,.40305,"AY",1,.403051,10,"N")="5^11^11^7^11"
^DIST(.403,.40305,"AY",1,.403051,11,"D")="13^20^15^2"
^DIST(.403,.40305,"AY",1,.403051,11,"N")="10^0^0^10^0"
^DIST(.403,.40305,"AY",1,"FIRST")="2,.403051"
^DIST(.403,.40305,"AY","CAP","DATA VALIDATION",1,1,.403051,6)=""
^DIST(.403,.40305,"AY","CAP","DESCRIPTION",1,1,.403051,5)=""
^DIST(.403,.40305,"AY","CAP","NAME",1,1,.403051,2)=""
^DIST(.403,.40305,"AY","CAP","POST ACTION",1,1,.403051,4)=""
^DIST(.403,.40305,"AY","CAP","POST SAVE",1,1,.403051,8)=""
^DIST(.403,.40305,"AY","CAP","PRE ACTION",1,1,.403051,3)=""
^DIST(.403,.40305,"AY","CAP","READ ACCESS",1,1,.403051,10)=""
^DIST(.403,.40305,"AY","CAP","RECORD SELECTION PAGE",1,1,.403051,7)=""
^DIST(.403,.40305,"AY","CAP","TITLE",1,1,.403051,9)=""
^DIST(.403,.40305,"AY","CAP","WRITE ACCESS",1,1,.403051,11)=""
^DIST(.403,.40305,"AY","F.403",.01,"L",1,.403051,2)=""
^DIST(.403,.40305,"AY","F.403",1,"L",1,.403051,10)=""
^DIST(.403,.40305,"AY","F.403",2,"L",1,.403051,11)=""
^DIST(.403,.40305,"AY","F.403",6,"L",1,.403051,9)=""
^DIST(.403,.40305,"AY","F.403",11,"L",1,.403051,3)=""
^DIST(.403,.40305,"AY","F.403",12,"L",1,.403051,4)=""
^DIST(.403,.40305,"AY","F.403",14,"L",1,.403051,8)=""
^DIST(.403,.40305,"AY","F.403",15,"L",1,.403051,5)=""
^DIST(.403,.40305,"AY","F.403",20,"L",1,.403051,6)=""
^DIST(.403,.40305,"AY","F.403",21,"L",1,.403051,7)=""
^DIST(.403,.40305,"AY","X",1,0,29)=" Form Properties "
^DIST(.403,.40305,"AY","X",1,2,14)="NAME:"
^DIST(.403,.40305,"AY","X",1,2,14,"A")="1;4;U"
^DIST(.403,.40305,"AY","X",1,3,13)="TITLE:"
^DIST(.403,.40305,"AY","X",1,5,8)="PRE ACTION:"
^DIST(.403,.40305,"AY","X",1,6,7)="POST ACTION:"
^DIST(.403,.40305,"AY","X",1,7,3)="DATA VALIDATION:"
^DIST(.403,.40305,"AY","X",1,8,9)="POST SAVE:"
^DIST(.403,.40305,"AY","X",1,10,7)="DESCRIPTION:                           RECORD SELECTION PAGE:"
^DIST(.403,.40305,"AY","X",1,12,7)="READ ACCESS:"
^DIST(.403,.40305,"AY","X",1,13,6)="WRITE ACCESS:"
^DIST(.403,.40306,0)="DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1"
^DIST(.403,.40306,40,0)="^.4031I^1^1"
^DIST(.403,.40306,40,1,0)="1^^2,1^^^1^14,76"
^DIST(.403,.40306,40,1,1)="Edit/Delete the Header Block"
^DIST(.403,.40306,40,1,40,0)="^.4032PI^.403061^2"
^DIST(.403,.40306,40,1,40,.403012,0)=".403012^2^5,1^e"
^DIST(.403,.40306,40,1,40,.403012,1)="PAGE:1"
^DIST(.403,.40306,40,1,40,.403061,0)=".403061^1^1,1^e"
^DIST(.403,.40306,40,1,40,"AC",1,.403061)=""
^DIST(.403,.40306,40,1,40,"AC",2,.403012)=""
^DIST(.403,.40306,40,1,40,"B",.403012,.403012)=""
^DIST(.403,.40306,40,1,40,"B",.403061,.403061)=""
^DIST(.403,.40306,40,"B",1,1)=""
^DIST(.403,.40306,40,"C","EDIT/DELETE THE HEADER BLOCK",1)=""
^DIST(.403,.40306,"AY",1,0,0,"N")="7,.403012^1,.403061^1,.403061^7,.403012^1,.403061"
^DIST(.403,.40306,"AY",1,.403012)="5^0^.404^^e^^^1^2"
^DIST(.403,.40306,"AY",1,.403012,2,"D")="7^15^30^2,.403012"
^DIST(.403,.40306,"AY",1,.403012,2,"N")="1,.403061^4^3^1,.403061^3"
^DIST(.403,.40306,"AY",1,.403012,3,"D")="7^68^1^15"
^DIST(.403,.40306,"AY",1,.403012,3,"N")="1,.403061^5^4^2^4^^^^^^1"
^DIST(.403,.40306,"AY",1,.403012,4,"D")="8^15^16^1"
^DIST(.403,.40306,"AY",1,.403012,4,"N")="2^6^5^3^5"
^DIST(.403,.40306,"AY",1,.403012,5,"D")="8^68^5^2"
^DIST(.403,.40306,"AY",1,.403012,5,"N")="3^6^6^4^6"
^DIST(.403,.40306,"AY",1,.403012,6,"D")="10^15^59^11"
^DIST(.403,.40306,"AY",1,.403012,6,"N")="4^7^7^5^7"
^DIST(.403,.40306,"AY",1,.403012,7,"D")="11^15^59^12"
^DIST(.403,.40306,"AY",1,.403012,7,"N")="6^0^0^6^0"
^DIST(.403,.40306,"AY",1,.403012,"PTB")=".4031,1"
^DIST(.403,.40306,"AY",1,.403012,"PTB",1)="S X=$$GET^DDSVAL(.4031,.DA,1),DA=X"
^DIST(.403,.40306,"AY",1,.403061)="1^0^.4031^^e^^^^1"
^DIST(.403,.40306,"AY",1,.403061,1,"D")="3^16^30^1"
^DIST(.403,.40306,"AY",1,.403061,1,"N")="0^2,.403012^2,.403012^0^2,.403012"
^DIST(.403,.40306,"AY",1,"FIRST")="1,.403061"
^DIST(.403,.40306,"AY","CAP","DD NUMBER",1,1,.403012,4)=""
^DIST(.403,.40306,"AY","CAP","DESCRIPTION (WP)",1,1,.403012,3)=""
^DIST(.403,.40306,"AY","CAP","DISABLE NAVIGATION",1,1,.403012,5)=""
^DIST(.403,.40306,"AY","CAP","HEADER BLOCK",1,1,.403061,1)=""
^DIST(.403,.40306,"AY","CAP","NAME",1,1,.403012,2)=""
^DIST(.403,.40306,"AY","CAP","POST ACTION",1,1,.403012,7)=""
^DIST(.403,.40306,"AY","CAP","PRE ACTION",1,1,.403012,6)=""
^DIST(.403,.40306,"AY","F.4031",1,"L",1,.403061,1)=""
^DIST(.403,.40306,"AY","F.404",1,"L",1,.403012,4)=""
^DIST(.403,.40306,"AY","F.404",2,"L",1,.403012,5)=""
^DIST(.403,.40306,"AY","F.404",11,"L",1,.403012,6)=""
^DIST(.403,.40306,"AY","F.404",12,"L",1,.403012,7)=""
^DIST(.403,.40306,"AY","F.404",15,"L",1,.403012,3)=""
^DIST(.403,.40306,"AY","F0","2,.403012","L",1,.403012,2)=""
^DIST(.403,.40306,"AY","PT",.4031,1,1,.403012)=""
^DIST(.403,.40306,"AY","X",1,1,23)=" Edit Header Block Parameters "
^DIST(.403,.40306,"AY","X",1,3,2)="HEADER BLOCK:"
^DIST(.403,.40306,"AY","X",1,5,1)="----------------- Block Properties Stored in BLOCK File ------------------"
^DIST(.403,.40306,"AY","X",1,7,9)="NAME:                                    DESCRIPTION (WP):"
^DIST(.403,.40306,"AY","X",1,8,4)="DD NUMBER:                                  DISABLE NAVIGATION:"
^DIST(.403,.40306,"AY","X",1,10,3)="PRE ACTION:"
^DIST(.403,.40306,"AY","X",1,11,2)="POST ACTION:"
^DIST(.403,.40401,0)="DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1"
^DIST(.403,.40401,20)="D VAL1^DDGFU"
^DIST(.403,.40401,40,0)="^.4031I^1^1"
^DIST(.403,.40401,40,1,0)="1^^4,12^^^1^10,59"
^DIST(.403,.40401,40,1,1)="New field"
^DIST(.403,.40401,40,1,40,0)="^.4032PI^.404011^1"
^DIST(.403,.40401,40,1,40,.404011,0)=".404011^1^3,3^e"
^DIST(.403,.40401,40,1,40,"AC",1,.404011)=""
^DIST(.403,.40401,40,1,40,"B",.404011,.404011)=""
^DIST(.403,.40401,40,"B",1,1)=""
^DIST(.403,.40401,40,"C","NEW FIELD",1)=""
^DIST(.403,.40401,"AY",1,0,0,"N")="3,.404011^1,.404011^1,.404011^3,.404011^1,.404011"
^DIST(.403,.40401,"AY",1,.404011)="5^13^^^e^^^^1"
^DIST(.403,.40401,"AY",1,.404011,1,"D")="5^27^30^1,.404011"
^DIST(.403,.40401,"AY",1,.404011,1,"N")="0^2^2^0^2"
^DIST(.403,.40401,"AY",1,.404011,2,"D")="6^27^4^2,.404011"
^DIST(.403,.40401,"AY",1,.404011,2,"N")="1^3^3^1^3"
^DIST(.403,.40401,"AY",1,.404011,3,"D")="7^27^30^3,.404011"
^DIST(.403,.40401,"AY",1,.404011,3,"N")="2^0^0^2^0"
^DIST(.403,.40401,"AY",1,"FIRST")="1,.404011"
^DIST(.403,.40401,"AY","CAP","BLOCK",1,1,.404011,1)=""
^DIST(.403,.40401,"AY","CAP","FIELD ORDER",1,1,.404011,2)=""
^DIST(.403,.40401,"AY","CAP","FIELD TYPE",1,1,.404011,3)=""
^DIST(.403,.40401,"AY","F0","1,.404011","L",1,.404011,1)=""
^DIST(.403,.40401,"AY","F0","2,.404011","L",1,.404011,2)=""
^DIST(.403,.40401,"AY","F0","3,.404011","L",1,.404011,3)=""
^DIST(.403,.40401,"AY","X",1,5,13)="Select BLOCK:"
^DIST(.403,.40401,"AY","X",1,6,14)="FIELD ORDER:"
^DIST(.403,.40401,"AY","X",1,7,15)="FIELD TYPE:"
^DIST(.403,.40402,0)="DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1"
^DIST(.403,.40402,40,0)="^.4031I^1^1"
^DIST(.403,.40402,40,1,0)="1^^1,2^^^1^9,75"
^DIST(.403,.40402,40,1,1)="Caption only field"
^DIST(.403,.40402,40,1,40,0)="^.4032PI^.404021^1"
^DIST(.403,.40402,40,1,40,.404021,0)=".404021^1^1,3^e"
^DIST(.403,.40402,40,1,40,"AC",1,.404021)=""
^DIST(.403,.40402,40,1,40,"B",.404021,.404021)=""
^DIST(.403,.40402,40,"B",1,1)=""
^DIST(.403,.40402,40,"C","CAPTION ONLY FIELD",1)=""
^DIST(.403,.40402,"AY",1,0,0,"N")="8,.404021^2,.404021^2,.404021^8,.404021^2,.404021"
^DIST(.403,.40402,"AY",1,.404021)="0^3^.4044^^e^^^^2"
^DIST(.403,.40402,"AY",1,.404021,2,"D")="2^23^4^.01"
^DIST(.403,.40402,"AY",1,.404021,2,"N")="0^6^6^0^6"
^DIST(.403,.40402,"AY",1,.404021,6,"D")="3^23^50^6,.404021"
^DIST(.403,.40402,"AY",1,.404021,6,"N")="2^9^9^2^9"
^DIST(.403,.40402,"AY",1,.404021,7,"D")="6^23^50^1.1"
^DIST(.403,.40402,"AY",1,.404021,7,"N")="9^8^8^9^8"
^DIST(.403,.40402,"AY",1,.404021,8,"D")="7^23^7^8,.404021"
^DIST(.403,.40402,"AY",1,.404021,8,"N")="7^0^0^7^0"
^DIST(.403,.40402,"AY",1,.404021,9,"D")="4^23^50^3.1"
^DIST(.403,.40402,"AY",1,.404021,9,"N")="6^7^7^6^7"
^DIST(.403,.40402,"AY",1,"FIRST")="2,.404021"
^DIST(.403,.40402,"AY","CAP","CAPTION",1,1,.404021,6)=""
^DIST(.403,.40402,"AY","CAP","CAPTION COORDINATE",1,1,.404021,8)=""
^DIST(.403,.40402,"AY","CAP","EXECUTABLE CAPTION",1,1,.404021,7)=""
^DIST(.403,.40402,"AY","CAP","FIELD ORDER",1,1,.404021,2)=""
^DIST(.403,.40402,"AY","CAP","UNIQUE NAME",1,1,.404021,9)=""
^DIST(.403,.40402,"AY","F.4044",.01,"L",1,.404021,2)=""
^DIST(.403,.40402,"AY","F.4044",1.1,"L",1,.404021,7)=""
^DIST(.403,.40402,"AY","F.4044",3.1,"L",1,.404021,9)=""
^DIST(.403,.40402,"AY","F0","6,.404021","L",1,.404021,6)=""
^DIST(.403,.40402,"AY","F0","8,.404021","L",1,.404021,8)=""
^DIST(.403,.40402,"AY","X",1,0,24)=" Caption-Only Field Properties "
^DIST(.403,.40402,"AY","X",1,2,10)="FIELD ORDER:"
^DIST(.403,.40402,"AY","X",1,3,14)="CAPTION:"
^DIST(.403,.40402,"AY","X",1,3,14,"A")="1;7;U"
^DIST(.403,.40402,"AY","X",1,4,10)="UNIQUE NAME:"
^DIST(.403,.40402,"AY","X",1,6,3)="EXECUTABLE CAPTION:"
^DIST(.403,.40402,"AY","X",1,7,3)="CAPTION COORDINATE:"
^DIST(.403,.40402,"AY","X",1,7,3,"A")="1;18;U"
^DIST(.403,.40403,0)="DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1"
^DIST(.403,.40403,40,0)="^.4031I^4^4"
^DIST(.403,.40403,40,1,0)="1^^1,1^^^1^16,77"
^DIST(.403,.40403,40,1,1)="Page 1"
^DIST(.403,.40403,40,1,40,0)="^.4032PI^.404031^1"
^DIST(.403,.40403,40,1,40,.404031,0)=".404031^1^1,1^e"
^DIST(.403,.40403,40,1,40,"AC",1,.404031)=""
^DIST(.403,.40403,40,1,40,"B",.404031,.404031)=""
^DIST(.403,.40403,40,2,0)="11^^3,3^^^1^15,75"
^DIST(.403,.40403,40,2,1)="Single-Valued Field (Other)"
^DIST(.403,.40403,40,2,40,0)="^.4032PI^.404032^1"
^DIST(.403,.40403,40,2,40,.404032,0)=".404032^1^1,1^e"
^DIST(.403,.40403,40,2,40,"AC",1,.404032)=""
^DIST(.403,.40403,40,2,40,"B",.404032,.404032)=""
^DIST(.403,.40403,40,3,0)="21^^3,17^^^1^15,60"
^DIST(.403,.40403,40,3,1)="Multiple-Valued Field (Other)"
^DIST(.403,.40403,40,3,40,0)="^.4032PI^.404033^1"
^DIST(.403,.40403,40,3,40,.404033,0)=".404033^1^1,1^e"
^DIST(.403,.40403,40,3,40,"AC",1,.404033)=""
^DIST(.403,.40403,40,3,40,"B",.404033,.404033)=""
^DIST(.403,.40403,40,4,0)="31^^3,17^^^1^13,60"
^DIST(.403,.40403,40,4,1)="Word Processing Field (Other)"
^DIST(.403,.40403,40,4,40,0)="^.4032PI^.404034^1"
^DIST(.403,.40403,40,4,40,.404034,0)=".404034^1^1,1^e"
^DIST(.403,.40403,40,4,40,"AC",1,.404034)=""
^DIST(.403,.40403,40,4,40,"B",.404034,.404034)=""
^DIST(.403,.40403,40,"B",1,1)=""
^DIST(.403,.40403,40,"B",11,2)=""
^DIST(.403,.40403,40,"B",21,3)=""
^DIST(.403,.40403,40,"B",31,4)=""
^DIST(.403,.40403,40,"C","MULTIPLE-VALUED FIELD (OTHER)",3)=""
^DIST(.403,.40403,40,"C","PAGE 1",1)=""
^DIST(.403,.40403,40,"C","SINGLE-VALUED FIELD (OTHER)",2)=""
^DIST(.403,.40403,40,"C","WORD PROCESSING FIELD (OTHER)",4)=""
^DIST(.403,.40403,"AY",1,0,0,"N")="10,.404031^2,.404031^2,.404031^10,.404031^2,.404031"
^DIST(.403,.40403,"AY",1,.404031)="0^0^.4044^^e^^^^2"
^DIST(.403,.40403,"AY",1,.404031,2,"D")="2^25^4^.01"
^DIST(.403,.40403,"AY",1,.404031,2,"N")="0^13^3^0^3"
^DIST(.403,.40403,"AY",1,.404031,3,"D")="2^65^10^4"
^DIST(.403,.40403,"AY",1,.404031,3,"N")="0^15^13^2^13"
^DIST(.403,.40403,"AY",1,.404031,5,"D")="7^25^50^6"
^DIST(.403,.40403,"AY",1,.404031,5,"N")="14^17^17^14^17"
^DIST(.403,.40403,"AY",1,.404031,7,"D")="11^25^50^10"
^DIST(.403,.40403,"AY",1,.404031,7,"N")="12^8^8^12^8"
^DIST(.403,.40403,"AY",1,.404031,8,"D")="12^25^50^11"
^DIST(.403,.40403,"AY",1,.404031,8,"N")="7^9^9^7^9"
^DIST(.403,.40403,"AY",1,.404031,9,"D")="13^25^50^12"
^DIST(.403,.40403,"AY",1,.404031,9,"N")="8^10^10^8^10"
^DIST(.403,.40403,"AY",1,.404031,10,"D")="14^25^50^13"
^DIST(.403,.40403,"AY",1,.404031,10,"N")="9^0^0^9^0"
^DIST(.403,.40403,"AY",1,.404031,12,"D")="9^25^50^6.01"
^DIST(.403,.40403,"AY",1,.404031,12,"N")="17^7^7^17^7"
^DIST(.403,.40403,"AY",1,.404031,13,"D")="3^25^1^13,.404031"
^DIST(.403,.40403,"AY",1,.404031,13,"N")="2^16^15^3^15"
^DIST(.403,.40403,"AY",1,.404031,14,"D")="6^25^50^14,.404031"
^DIST(.403,.40403,"AY",1,.404031,14,"N")="16^5^5^16^5"
^DIST(.403,.40403,"AY",1,.404031,15,"D")="3^65^3^15,.404031"
^DIST(.403,.40403,"AY",1,.404031,15,"N")="3^16^16^13^16"
^DIST(.403,.40403,"AY",1,.404031,16,"D")="4^25^50^3.1"
^DIST(.403,.40403,"AY",1,.404031,16,"N")="13^14^14^15^14"
^DIST(.403,.40403,"AY",1,.404031,17,"D")="8^25^50^1.1"
^DIST(.403,.40403,"AY",1,.404031,17,"N")="5^12^12^5^12"
^DIST(.403,.40403,"AY",1,"FIRST")="2,.404031"
^DIST(.403,.40403,"AY",2,0,0,"N")="10,.404032^2,.404032^2,.404032^10,.404032^2,.404032"
^DIST(.403,.40403,"AY",2,.404032)="2^2^.4044^^e^^^^2"
^DIST(.403,.40403,"AY",2,.404032,2,"D")="4^24^3^6.1"
^DIST(.403,.40403,"AY",2,.404032,2,"N")="0^3^13^0^13"
^DIST(.403,.40403,"AY",2,.404032,3,"D")="5^24^9^6.4"
^DIST(.403,.40403,"AY",2,.404032,3,"N")="2^12^11^13^11"
^DIST(.403,.40403,"AY",2,.404032,7,"D")="8^24^3^7,.404032"
^DIST(.403,.40403,"AY",2,.404032,7,"N")="12^8^8^12^8"
^DIST(.403,.40403,"AY",2,.404032,8,"D")="9^24^7^8,.404032"
^DIST(.403,.40403,"AY",2,.404032,8,"N")="7^9^9^7^9"
^DIST(.403,.40403,"AY",2,.404032,9,"D")="10^24^7^9,.404032"
^DIST(.403,.40403,"AY",2,.404032,9,"N")="8^10^10^8^10"
^DIST(.403,.40403,"AY",2,.404032,10,"D")="12^24^49^14"
^DIST(.403,.40403,"AY",2,.404032,10,"N")="9^0^0^9^0"
^DIST(.403,.40403,"AY",2,.404032,11,"D")="5^53^3^6.3"
^DIST(.403,.40403,"AY",2,.404032,11,"N")="13^12^12^3^12"
^DIST(.403,.40403,"AY",2,.404032,12,"D")="6^24^5^8"
^DIST(.403,.40403,"AY",2,.404032,12,"N")="3^7^7^11^7"
^DIST(.403,.40403,"AY",2,.404032,13,"D")="4^53^20^3"
^DIST(.403,.40403,"AY",2,.404032,13,"N")="0^11^3^2^3"
^DIST(.403,.40403,"AY",2,"FIRST")="2,.404032"
^DIST(.403,.40403,"AY",3,0,0,"N")="8,.404033^2,.404033^2,.404033^8,.404033^2,.404033"
^DIST(.403,.40403,"AY",3,.404033)="2^16^.4044^^e^^^^2"
^DIST(.403,.40403,"AY",3,.404033,2,"D")="4^38^3^8"
^DIST(.403,.40403,"AY",3,.404033,2,"N")="0^3^3^0^3"
^DIST(.403,.40403,"AY",3,.404033,3,"D")="5^38^3^6.5"
^DIST(.403,.40403,"AY",3,.404033,3,"N")="2^12^12^2^12"
^DIST(.403,.40403,"AY",3,.404033,7,"D")="11^38^7^7,.404033"
^DIST(.403,.40403,"AY",3,.404033,7,"N")="9^8^8^9^8"
^DIST(.403,.40403,"AY",3,.404033,8,"D")="12^38^7^8,.404033"
^DIST(.403,.40403,"AY",3,.404033,8,"N")="7^0^0^7^0"
^DIST(.403,.40403,"AY",3,.404033,9,"D")="10^38^3^9,.404033"
^DIST(.403,.40403,"AY",3,.404033,9,"N")="11^7^7^11^7"
^DIST(.403,.40403,"AY",3,.404033,10,"D")="7^38^3^6.3"
^DIST(.403,.40403,"AY",3,.404033,10,"N")="12^11^11^12"
^DIST(.403,.40403,"AY",3,.404033,11,"D")="8^38^20^3"
^DIST(.403,.40403,"AY",3,.404033,11,"N")="10^9^9^10^9"
^DIST(.403,.40403,"AY",3,.404033,12,"D")="6^38^3^6.6"
^DIST(.403,.40403,"AY",3,.404033,12,"N")="3^10^10^3^11"
^DIST(.403,.40403,"AY",3,"FIRST")="2,.404033"
^DIST(.403,.40403,"AY",4,0,0,"N")="10,.404034^2,.404034^2,.404034^10,.404034^2,.404034"
^DIST(.403,.40403,"AY",4,.404034)="2^16^.4044^^e^^^^2"
^DIST(.403,.40403,"AY",4,.404034,2,"D")="4^38^3^6.1"
^DIST(.403,.40403,"AY",4,.404034,2,"N")="0^3^3^0^3"
^DIST(.403,.40403,"AY",4,.404034,3,"D")="5^38^3^6.4"
^DIST(.403,.40403,"AY",4,.404034,3,"N")="2^7^7^2^7"
^DIST(.403,.40403,"AY",4,.404034,7,"D")="6^38^20^3"
^DIST(.403,.40403,"AY",4,.404034,7,"N")="3^8^8^3^8"
^DIST(.403,.40403,"AY",4,.404034,8,"D")="8^38^3^8,.404034"
^DIST(.403,.40403,"AY",4,.404034,8,"N")="7^9^9^7^9"
^DIST(.403,.40403,"AY",4,.404034,9,"D")="9^38^7^9,.404034"
^DIST(.403,.40403,"AY",4,.404034,9,"N")="8^10^10^8^10"
^DIST(.403,.40403,"AY",4,.404034,10,"D")="10^38^7^10,.404034"
^DIST(.403,.40403,"AY",4,.404034,10,"N")="9^0^0^9^0"
^DIST(.403,.40403,"AY",4,"FIRST")="2,.404034"
^DIST(.403,.40403,"AY","CAP","ASK 'OK'",3,3,.404033,12)=""
^DIST(.403,.40403,"AY","CAP","BRANCHING LOGIC",1,1,.404031,7)=""
^DIST(.403,.40403,"AY","CAP","CAPTION",1,1,.404031,14)=""
^DIST(.403,.40403,"AY","CAP","CAPTION COORDINATE",2,2,.404032,8)=""
^DIST(.403,.40403,"AY","CAP","CAPTION COORDINATE",3,3,.404033,7)=""
^DIST(.403,.40403,"AY","CAP","CAPTION COORDINATE",4,4,.404034,9)=""
^DIST(.403,.40403,"AY","CAP","DATA COORDINATE",2,2,.404032,9)=""
^DIST(.403,.40403,"AY","CAP","DATA COORDINATE",3,3,.404033,8)=""
^DIST(.403,.40403,"AY","CAP","DATA COORDINATE",4,4,.404034,10)=""
^DIST(.403,.40403,"AY","CAP","DATA LENGTH",2,2,.404032,7)=""
^DIST(.403,.40403,"AY","CAP","DATA LENGTH",3,3,.404033,9)=""
^DIST(.403,.40403,"AY","CAP","DATA LENGTH",4,4,.404034,8)=""
^DIST(.403,.40403,"AY","CAP","DATA VALIDATION",2,2,.404032,10)=""
^DIST(.403,.40403,"AY","CAP","DEFAULT",1,1,.404031,5)=""
^DIST(.403,.40403,"AY","CAP","DISABLE EDITING",2,2,.404032,3)=""
^DIST(.403,.40403,"AY","CAP","DISABLE EDITING",4,4,.404034,3)=""
^DIST(.403,.40403,"AY","CAP","DISALLOW LAYGO",3,3,.404033,3)=""
^DIST(.403,.40403,"AY","CAP","DISPLAY GROUP",2,2,.404032,13)=""
^DIST(.403,.40403,"AY","CAP","DISPLAY GROUP",3,3,.404033,11)=""
^DIST(.403,.40403,"AY","CAP","DISPLAY GROUP",4,4,.404034,7)=""
^DIST(.403,.40403,"AY","CAP","EXECUTABLE CAPTION",1,1,.404031,17)=""
^DIST(.403,.40403,"AY","CAP","EXECUTABLE DEFAULT",1,1,.404031,12)=""
^DIST(.403,.40403,"AY","CAP","FIELD",1,1,.404031,3)=""
^DIST(.403,.40403,"AY","CAP","FIELD ORDER",1,1,.404031,2)=""
^DIST(.403,.40403,"AY","CAP","OTHER PARAMETERS...",1,1,.404031,13)=""
^DIST(.403,.40403,"AY","CAP","POST ACTION",1,1,.404031,9)=""
^DIST(.403,.40403,"AY","CAP","POST ACTION ON CHANGE",1,1,.404031,10)=""
^DIST(.403,.40403,"AY","CAP","PRE ACTION",1,1,.404031,8)=""
^DIST(.403,.40403,"AY","CAP","REQUIRED",2,2,.404032,2)=""
^DIST(.403,.40403,"AY","CAP","REQUIRED",4,4,.404034,2)=""
^DIST(.403,.40403,"AY","CAP","RIGHT JUSTIFY",2,2,.404032,11)=""
^DIST(.403,.40403,"AY","CAP","RIGHT JUSTIFY",3,3,.404033,10)=""
^DIST(.403,.40403,"AY","CAP","SUB PAGE LINK",2,2,.404032,12)=""
^DIST(.403,.40403,"AY","CAP","SUB PAGE LINK",3,3,.404033,2)=""
^DIST(.403,.40403,"AY","CAP","SUPPRESS COLON AFTER CAPTION?",1,1,.404031,15)=""
^DIST(.403,.40403,"AY","CAP","UNIQUE NAME",1,1,.404031,16)=""
^DIST(.403,.40403,"AY","F.4044",.01,"L",1,.404031,2)=""
^DIST(.403,.40403,"AY","F.4044",1.1,"L",1,.404031,17)=""
^DIST(.403,.40403,"AY","F.4044",3,"L",2,.404032,13)=""
^DIST(.403,.40403,"AY","F.4044",3,"L",3,.404033,11)=""
^DIST(.403,.40403,"AY","F.4044",3,"L",4,.404034,7)=""
^DIST(.403,.40403,"AY","F.4044",3.1,"L",1,.404031,16)=""
^DIST(.403,.40403,"AY","F.4044",4,"L",1,.404031,3)=""
^DIST(.403,.40403,"AY","F.4044",6,"L",1,.404031,5)=""
^DIST(.403,.40403,"AY","F.4044",6.01,"L",1,.404031,12)=""
^DIST(.403,.40403,"AY","F.4044",6.1,"L",2,.404032,2)=""
^DIST(.403,.40403,"AY","F.4044",6.1,"L",4,.404034,2)=""
^DIST(.403,.40403,"AY","F.4044",6.3,"L",2,.404032,11)=""
^DIST(.403,.40403,"AY","F.4044",6.3,"L",3,.404033,10)=""
^DIST(.403,.40403,"AY","F.4044",6.4,"L",2,.404032,3)=""
^DIST(.403,.40403,"AY","F.4044",6.4,"L",4,.404034,3)=""
^DIST(.403,.40403,"AY","F.4044",6.5,"L",3,.404033,3)=""
^DIST(.403,.40403,"AY","F.4044",6.6,"L",3,.404033,12)=""
^DIST(.403,.40403,"AY","F.4044",8,"L",2,.404032,12)=""
^DIST(.403,.40403,"AY","F.4044",8,"L",3,.404033,2)=""
^DIST(.403,.40403,"AY","F.4044",10,"L",1,.404031,7)=""
^DIST(.403,.40403,"AY","F.4044",11,"L",1,.404031,8)=""
^DIST(.403,.40403,"AY","F.4044",12,"L",1,.404031,9)=""
^DIST(.403,.40403,"AY","F.4044",13,"L",1,.404031,10)=""
^DIST(.403,.40403,"AY","F.4044",14,"L",2,.404032,10)=""
^DIST(.403,.40403,"AY","F0","10,.404034","L",4,.404034,10)=""
^DIST(.403,.40403,"AY","F0","13,.404031","L",1,.404031,13)=""
^DIST(.403,.40403,"AY","F0","14,.404031","L",1,.404031,14)=""
^DIST(.403,.40403,"AY","F0","15,.404031","L",1,.404031,15)=""
^DIST(.403,.40403,"AY","F0","7,.404032","L",2,.404032,7)=""
^DIST(.403,.40403,"AY","F0","7,.404033","L",3,.404033,7)=""
^DIST(.403,.40403,"AY","F0","8,.404032","L",2,.404032,8)=""
^DIST(.403,.40403,"AY","F0","8,.404033","L",3,.404033,8)=""
^DIST(.403,.40403,"AY","F0","8,.404034","L",4,.404034,8)=""
^DIST(.403,.40403,"AY","F0","9,.404032","L",2,.404032,9)=""
^DIST(.403,.40403,"AY","F0","9,.404033","L",3,.404033,9)=""
^DIST(.403,.40403,"AY","F0","9,.404034","L",4,.404034,9)=""
^DIST(.403,.40403,"AY","X",1,0,21)=" Data Dictionary Field Properties "
^DIST(.403,.40403,"AY","X",1,2,12)="FIELD ORDER:                                  FIELD:"
^DIST(.403,.40403,"AY","X",1,2,12,"A")="47;51;U"
^DIST(.403,.40403,"AY","X",1,3,5)="OTHER PARAMETERS...           SUPPRESS COLON AFTER CAPTION?"
^DIST(.403,.40403,"AY","X",1,4,12)="UNIQUE NAME:"
^DIST(.403,.40403,"AY","X",1,6,16)="CAPTION:"
^DIST(.403,.40403,"AY","X",1,7,16)="DEFAULT:"
^DIST(.403,.40403,"AY","X",1,8,5)="EXECUTABLE CAPTION:"
^DIST(.403,.40403,"AY","X",1,9,5)="EXECUTABLE DEFAULT:"
^DIST(.403,.40403,"AY","X",1,11,8)="BRANCHING LOGIC:"
^DIST(.403,.40403,"AY","X",1,12,13)="PRE ACTION:"
^DIST(.403,.40403,"AY","X",1,13,12)="POST ACTION:"
^DIST(.403,.40403,"AY","X",1,14,2)="POST ACTION ON CHANGE:"
^DIST(.403,.40403,"AY","X",2,2,28)=" Other Parameters "
^DIST(.403,.40403,"AY","X",2,4,14)="REQUIRED:               DISPLAY GROUP:"
^DIST(.403,.40403,"AY","X",2,5,7)="DISABLE EDITING:               RIGHT JUSTIFY:"
^DIST(.403,.40403,"AY","X",2,6,9)="SUB PAGE LINK:"
^DIST(.403,.40403,"AY","X",2,8,11)="DATA LENGTH:"
^DIST(.403,.40403,"AY","X",2,8,11,"A")="1;11;U"
^DIST(.403,.40403,"AY","X",2,9,4)="CAPTION COORDINATE:"
^DIST(.403,.40403,"AY","X",2,10,7)="DATA COORDINATE:"
^DIST(.403,.40403,"AY","X",2,10,7,"A")="1;15;U"
^DIST(.403,.40403,"AY","X",2,12,7)="DATA VALIDATION:"
^DIST(.403,.40403,"AY","X",3,2,29)=" Other Parameters "
^DIST(.403,.40403,"AY","X",3,4,23)="SUB PAGE LINK:"
^DIST(.403,.40403,"AY","X",3,5,22)="DISALLOW LAYGO:"
^DIST(.403,.40403,"AY","X",3,6,28)="ASK 'OK':"
^DIST(.403,.40403,"AY","X",3,7,23)="RIGHT JUSTIFY:"
^DIST(.403,.40403,"AY","X",3,8,23)="DISPLAY GROUP:"
^DIST(.403,.40403,"AY","X",3,10,25)="DATA LENGTH:"
^DIST(.403,.40403,"AY","X",3,10,25,"A")="1;11;U"
^DIST(.403,.40403,"AY","X",3,11,18)="CAPTION COORDINATE:"
^DIST(.403,.40403,"AY","X",3,12,21)="DATA COORDINATE:"
^DIST(.403,.40403,"AY","X",3,12,21,"A")="1;15;U"
^DIST(.403,.40403,"AY","X",4,2,29)=" Other Parameters "
^DIST(.403,.40403,"AY","X",4,4,28)="REQUIRED:"
^DIST(.403,.40403,"AY","X",4,5,21)="DISABLE EDITING:"
^DIST(.403,.40403,"AY","X",4,6,23)="DISPLAY GROUP:"
^DIST(.403,.40403,"AY","X",4,8,25)="DATA LENGTH:"
^DIST(.403,.40403,"AY","X",4,8,25,"A")="1;11;U"
^DIST(.403,.40403,"AY","X",4,9,18)="CAPTION COORDINATE:"
^DIST(.403,.40403,"AY","X",4,10,21)="DATA COORDINATE:"
^DIST(.403,.40403,"AY","X",4,10,21,"A")="1;15;U"
^DIST(.403,.40404,0)="DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1"
^DIST(.403,.40404,40,0)="^.4031I^3^3"
^DIST(.403,.40404,40,1,0)="1^^1,1^^^1^16,77"
^DIST(.403,.40404,40,1,1)="Form Only Field"
^DIST(.403,.40404,40,1,40,0)="^.4032PI^.404041^1"
^DIST(.403,.40404,40,1,40,.404041,0)=".404041^1^1,1^e"
^DIST(.403,.40404,40,1,40,"AC",1,.404041)=""
^DIST(.403,.40404,40,1,40,"B",.404041,.404041)=""
^DIST(.403,.40404,40,2,0)="11^^3,3^^^1^15,75"
^DIST(.403,.40404,40,2,1)="Other Form Only Field Params"
^DIST(.403,.40404,40,2,40,0)="^.4032PI^.404042^1"
^DIST(.403,.40404,40,2,40,.404042,0)=".404042^1^1,1^e"
^DIST(.403,.40404,40,2,40,"AC",1,.404042)=""
^DIST(.403,.40404,40,2,40,"B",.404042,.404042)=""
^DIST(.403,.40404,40,3,0)="21^^3,3^^^1^15,75"
^DIST(.403,.40404,40,3,1)="Other Parameters"
^DIST(.403,.40404,40,3,40,0)="^.4032PI^.404032^1"
^DIST(.403,.40404,40,3,40,.404032,0)=".404032^1^1,1^e"
^DIST(.403,.40404,40,3,40,"AC",1,.404032)=""
^DIST(.403,.40404,40,3,40,"B",.404032,.404032)=""
^DIST(.403,.40404,40,"B",1,1)=""
^DIST(.403,.40404,40,"B",11,2)=""
^DIST(.403,.40404,40,"B",21,3)=""
^DIST(.403,.40404,40,"C","FORM ONLY FIELD",1)=""
^DIST(.403,.40404,40,"C","OTHER FORM ONLY FIELD PARAMS",2)=""
^DIST(.403,.40404,40,"C","OTHER PARAMETERS",3)=""
^DIST(.403,.40404,"AY",1,0,0,"N")="10,.404041^2,.404041^2,.404041^10,.404041^2,.404041"
^DIST(.403,.40404,"AY",1,.404041)="0^0^.4044^^e^^^^2"
^DIST(.403,.40404,"AY",1,.404041,2,"D")="2^25^4^.01"
^DIST(.403,.40404,"AY",1,.404041,2,"N")="0^14^13^0^13"
^DIST(.403,.40404,"AY",1,.404041,5,"D")="7^25^50^6"
^DIST(.403,.40404,"AY",1,.404041,5,"N")="15^11^11^15^11"
^DIST(.403,.40404,"AY",1,.404041,7,"D")="11^25^50^10"
^DIST(.403,.40404,"AY",1,.404041,7,"N")="12^8^8^12^8"
^DIST(.403,.40404,"AY",1,.404041,8,"D")="12^25^50^11"
^DIST(.403,.40404,"AY",1,.404041,8,"N")="7^9^9^7^9"
^DIST(.403,.40404,"AY",1,.404041,9,"D")="13^25^50^12"
^DIST(.403,.40404,"AY",1,.404041,9,"N")="8^10^10^8^10"
^DIST(.403,.40404,"AY",1,.404041,10,"D")="14^25^50^13"
^DIST(.403,.40404,"AY",1,.404041,10,"N")="9^0^0^9^0"
^DIST(.403,.40404,"AY",1,.404041,11,"D")="8^25^50^1.1"
^DIST(.403,.40404,"AY",1,.404041,11,"N")="5^12^12^5^12"
^DIST(.403,.40404,"AY",1,.404041,12,"D")="9^25^50^6.01"
^DIST(.403,.40404,"AY",1,.404041,12,"N")="11^7^7^11^7"
^DIST(.403,.40404,"AY",1,.404041,13,"D")="2^72^1^13,.404041"
^DIST(.403,.40404,"AY",1,.404041,13,"N")="0^16^14^2^14"
^DIST(.403,.40404,"AY",1,.404041,14,"D")="3^25^1^14,.404041"
^DIST(.403,.40404,"AY",1,.404041,14,"N")="2^17^16^13^16"
^DIST(.403,.40404,"AY",1,.404041,15,"D")="6^25^50^15,.404041"
^DIST(.403,.40404,"AY",1,.404041,15,"N")="17^5^5^17^5"
^DIST(.403,.40404,"AY",1,.404041,16,"D")="3^72^3^16,.404041"
^DIST(.403,.40404,"AY",1,.404041,16,"N")="13^17^17^14^17"
^DIST(.403,.40404,"AY",1,.404041,17,"D")="4^25^50^3.1"
^DIST(.403,.40404,"AY",1,.404041,17,"N")="14^15^15^16^15"
^DIST(.403,.40404,"AY",1,"FIRST")="2,.404041"
^DIST(.403,.40404,"AY",2,0,0,"N")="9,.404042^2,.404042^2,.404042^9,.404042^2,.404042"
^DIST(.403,.40404,"AY",2,.404042)="2^2^.4044^^e^^^^2"
^DIST(.403,.40404,"AY",2,.404042,2,"D")="4^21^15^20.1"
^DIST(.403,.40404,"AY",2,.404042,2,"N")="0^3^3^0^3"
^DIST(.403,.40404,"AY",2,.404042,3,"D")="5^21^2^20.2"
^DIST(.403,.40404,"AY",2,.404042,3,"N")="2^4^4^2^4"
^DIST(.403,.40404,"AY",2,.404042,4,"D")="6^21^52^20.3"
^DIST(.403,.40404,"AY",2,.404042,4,"N")="3^6^6^3^6"
^DIST(.403,.40404,"AY",2,.404042,5,"D")="10^21^52^22"
^DIST(.403,.40404,"AY",2,.404042,5,"N")="6^8^8^6^8"
^DIST(.403,.40404,"AY",2,.404042,6,"D")="8^21^1^21"
^DIST(.403,.40404,"AY",2,.404042,6,"N")="4^5^5^4^5^^^^^^1"
^DIST(.403,.40404,"AY",2,.404042,8,"D")="11^21^52^24"
^DIST(.403,.40404,"AY",2,.404042,8,"N")="5^9^9^5^9"
^DIST(.403,.40404,"AY",2,.404042,9,"D")="12^21^52^23"
^DIST(.403,.40404,"AY",2,.404042,9,"N")="8^0^0^8^0"
^DIST(.403,.40404,"AY",2,"FIRST")="2,.404042"
^DIST(.403,.40404,"AY",3,0,0,"N")="10,.404032^2,.404032^2,.404032^10,.404032^2,.404032"
^DIST(.403,.40404,"AY",3,.404032)="2^2^.4044^^e^^^^2"
^DIST(.403,.40404,"AY",3,.404032,2,"D")="4^24^3^6.1"
^DIST(.403,.40404,"AY",3,.404032,2,"N")="0^3^13^0^13"
^DIST(.403,.40404,"AY",3,.404032,3,"D")="5^24^9^6.4"
^DIST(.403,.40404,"AY",3,.404032,3,"N")="2^12^11^13^11"
^DIST(.403,.40404,"AY",3,.404032,7,"D")="8^24^3^7,.404032"
^DIST(.403,.40404,"AY",3,.404032,7,"N")="12^8^8^12^8"
^DIST(.403,.40404,"AY",3,.404032,8,"D")="9^24^7^8,.404032"
^DIST(.403,.40404,"AY",3,.404032,8,"N")="7^9^9^7^9"
^DIST(.403,.40404,"AY",3,.404032,9,"D")="10^24^7^9,.404032"
^DIST(.403,.40404,"AY",3,.404032,9,"N")="8^10^10^8^10"
^DIST(.403,.40404,"AY",3,.404032,10,"D")="12^24^49^14"
^DIST(.403,.40404,"AY",3,.404032,10,"N")="9^0^0^9^0"
^DIST(.403,.40404,"AY",3,.404032,11,"D")="5^53^3^6.3"
^DIST(.403,.40404,"AY",3,.404032,11,"N")="13^12^12^3^12"
^DIST(.403,.40404,"AY",3,.404032,12,"D")="6^24^5^8"
^DIST(.403,.40404,"AY",3,.404032,12,"N")="3^7^7^11^7"
^DIST(.403,.40404,"AY",3,.404032,13,"D")="4^53^20^3"
^DIST(.403,.40404,"AY",3,.404032,13,"N")="0^11^3^2^3"
^DIST(.403,.40404,"AY",3,"FIRST")="2,.404032"
^DIST(.403,.40404,"AY","CAP","BRANCHING LOGIC",1,1,.404041,7)=""
^DIST(.403,.40404,"AY","CAP","CAPTION",1,1,.404041,15)=""
^DIST(.403,.40404,"AY","CAP","CAPTION COORDINATE",3,3,.404032,8)=""
^DIST(.403,.40404,"AY","CAP","DATA COORDINATE",3,3,.404032,9)=""
^DIST(.403,.40404,"AY","CAP","DATA LENGTH",3,3,.404032,7)=""
^DIST(.403,.40404,"AY","CAP","DATA VALIDATION",3,3,.404032,10)=""
^DIST(.403,.40404,"AY","CAP","DEFAULT",1,1,.404041,5)=""
^DIST(.403,.40404,"AY","CAP","DISABLE EDITING",3,3,.404032,3)=""
^DIST(.403,.40404,"AY","CAP","DISPLAY GROUP",3,3,.404032,13)=""
^DIST(.403,.40404,"AY","CAP","EXECUTABLE CAPTION",1,1,.404041,11)=""
^DIST(.403,.40404,"AY","CAP","EXECUTABLE DEFAULT",1,1,.404041,12)=""
^DIST(.403,.40404,"AY","CAP","FIELD ORDER",1,1,.404041,2)=""
^DIST(.403,.40404,"AY","CAP","FORM ONLY FIELD PARAMETERS...",1,1,.404041,13)=""
^DIST(.403,.40404,"AY","CAP","HELP (WP)",2,2,.404042,6)=""
^DIST(.403,.40404,"AY","CAP","INPUT TRANSFORM",2,2,.404042,5)=""
^DIST(.403,.40404,"AY","CAP","OTHER PARAMETERS...",1,1,.404041,14)=""
^DIST(.403,.40404,"AY","CAP","PARAMETERS",2,2,.404042,3)=""
^DIST(.403,.40404,"AY","CAP","POST ACTION",1,1,.404041,9)=""
^DIST(.403,.40404,"AY","CAP","POST ACTION ON CHANGE",1,1,.404041,10)=""
^DIST(.403,.40404,"AY","CAP","PRE ACTION",1,1,.404041,8)=""
^DIST(.403,.40404,"AY","CAP","QUALIFIERS",2,2,.404042,4)=""
^DIST(.403,.40404,"AY","CAP","READ TYPE",2,2,.404042,2)=""
^DIST(.403,.40404,"AY","CAP","REQUIRED",3,3,.404032,2)=""
^DIST(.403,.40404,"AY","CAP","RIGHT JUSTIFY",3,3,.404032,11)=""
^DIST(.403,.40404,"AY","CAP","SAVE CODE",2,2,.404042,9)=""
^DIST(.403,.40404,"AY","CAP","SCREEN",2,2,.404042,8)=""
^DIST(.403,.40404,"AY","CAP","SUB PAGE LINK",3,3,.404032,12)=""
^DIST(.403,.40404,"AY","CAP","SUPPRESS COLON AFTER CAPTION?",1,1,.404041,16)=""
^DIST(.403,.40404,"AY","CAP","UNIQUE NAME",1,1,.404041,17)=""
^DIST(.403,.40404,"AY","F.4044",.01,"L",1,.404041,2)=""
^DIST(.403,.40404,"AY","F.4044",1.1,"L",1,.404041,11)=""
^DIST(.403,.40404,"AY","F.4044",3,"L",3,.404032,13)=""
^DIST(.403,.40404,"AY","F.4044",3.1,"L",1,.404041,17)=""
^DIST(.403,.40404,"AY","F.4044",6,"L",1,.404041,5)=""
^DIST(.403,.40404,"AY","F.4044",6.01,"L",1,.404041,12)=""
^DIST(.403,.40404,"AY","F.4044",6.1,"L",3,.404032,2)=""
^DIST(.403,.40404,"AY","F.4044",6.3,"L",3,.404032,11)=""
^DIST(.403,.40404,"AY","F.4044",6.4,"L",3,.404032,3)=""
^DIST(.403,.40404,"AY","F.4044",8,"L",3,.404032,12)=""
^DIST(.403,.40404,"AY","F.4044",10,"L",1,.404041,7)=""
^DIST(.403,.40404,"AY","F.4044",11,"L",1,.404041,8)=""
^DIST(.403,.40404,"AY","F.4044",12,"L",1,.404041,9)=""
^DIST(.403,.40404,"AY","F.4044",13,"L",1,.404041,10)=""
^DIST(.403,.40404,"AY","F.4044",14,"L",3,.404032,10)=""
^DIST(.403,.40404,"AY","F.4044",20.1,"L",2,.404042,2)=""
^DIST(.403,.40404,"AY","F.4044",20.2,"L",2,.404042,3)=""
^DIST(.403,.40404,"AY","F.4044",20.3,"L",2,.404042,4)=""
^DIST(.403,.40404,"AY","F.4044",21,"L",2,.404042,6)=""
^DIST(.403,.40404,"AY","F.4044",22,"L",2,.404042,5)=""
^DIST(.403,.40404,"AY","F.4044",23,"L",2,.404042,9)=""
^DIST(.403,.40404,"AY","F.4044",24,"L",2,.404042,8)=""
^DIST(.403,.40404,"AY","F0","13,.404041","L",1,.404041,13)=""
^DIST(.403,.40404,"AY","F0","14,.404041","L",1,.404041,14)=""
^DIST(.403,.40404,"AY","F0","15,.404041","L",1,.404041,15)=""
^DIST(.403,.40404,"AY","F0","16,.404041","L",1,.404041,16)=""
^DIST(.403,.40404,"AY","F0","7,.404032","L",3,.404032,7)=""
^DIST(.403,.40404,"AY","F0","8,.404032","L",3,.404032,8)=""
^DIST(.403,.40404,"AY","F0","9,.404032","L",3,.404032,9)=""
^DIST(.403,.40404,"AY","X",1,0,24)=" Form Only Field Properties "
^DIST(.403,.40404,"AY","X",1,2,12)="FIELD ORDER:                  FORM ONLY FIELD PARAMETERS..."
^DIST(.403,.40404,"AY","X",1,3,5)="OTHER PARAMETERS...                  SUPPRESS COLON AFTER CAPTION?"
^DIST(.403,.40404,"AY","X",1,4,12)="UNIQUE NAME:"
^DIST(.403,.40404,"AY","X",1,6,16)="CAPTION:"
^DIST(.403,.40404,"AY","X",1,7,16)="DEFAULT:"
^DIST(.403,.40404,"AY","X",1,8,5)="EXECUTABLE CAPTION:"
^DIST(.403,.40404,"AY","X",1,9,5)="EXECUTABLE DEFAULT:"
^DIST(.403,.40404,"AY","X",1,11,8)="BRANCHING LOGIC:"
^DIST(.403,.40404,"AY","X",1,12,13)="PRE ACTION:"
^DIST(.403,.40404,"AY","X",1,13,12)="POST ACTION:"
^DIST(.403,.40404,"AY","X",1,14,2)="POST ACTION ON CHANGE:"
^DIST(.403,.40404,"AY","X",2,2,23)=" Other Form Only Field Parameters "
^DIST(.403,.40404,"AY","X",2,4,10)="READ TYPE:"
^DIST(.403,.40404,"AY","X",2,4,10,"A")="1;9;U"
^DIST(.403,.40404,"AY","X",2,5,9)="PARAMETERS:"
^DIST(.403,.40404,"AY","X",2,6,9)="QUALIFIERS:"
^DIST(.403,.40404,"AY","X",2,8,10)="HELP (WP):"
^DIST(.403,.40404,"AY","X",2,10,4)="INPUT TRANSFORM:"
^DIST(.403,.40404,"AY","X",2,11,13)="SCREEN:"
^DIST(.403,.40404,"AY","X",2,12,10)="SAVE CODE:"
^DIST(.403,.40404,"AY","X",3,2,28)=" Other Parameters "
^DIST(.403,.40404,"AY","X",3,4,14)="REQUIRED:               DISPLAY GROUP:"
^DIST(.403,.40404,"AY","X",3,5,7)="DISABLE EDITING:               RIGHT JUSTIFY:"
^DIST(.403,.40404,"AY","X",3,6,9)="SUB PAGE LINK:"
^DIST(.403,.40404,"AY","X",3,8,11)="DATA LENGTH:"
^DIST(.403,.40404,"AY","X",3,8,11,"A")="1;11;U"
^DIST(.403,.40404,"AY","X",3,9,4)="CAPTION COORDINATE:"
^DIST(.403,.40404,"AY","X",3,10,7)="DATA COORDINATE:"
^DIST(.403,.40404,"AY","X",3,10,7,"A")="1;15;U"
^DIST(.403,.40404,"AY","X",3,12,7)="DATA VALIDATION:"
^DIST(.403,.40405,0)="DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1"
^DIST(.403,.40405,40,0)="^.4031I^2^2"
^DIST(.403,.40405,40,1,0)="1^^1,2^^^1^12,76"
^DIST(.403,.40405,40,1,1)="Computed Field"
^DIST(.403,.40405,40,1,40,0)="^.4032PI^.404051^1"
^DIST(.403,.40405,40,1,40,.404051,0)=".404051^1^1,1^e"
^DIST(.403,.40405,40,1,40,"AC",1,.404051)=""
^DIST(.403,.40405,40,1,40,"B",.404051,.404051)=""
^DIST(.403,.40405,40,2,0)="11^^3,16^^^1^11,63"
^DIST(.403,.40405,40,2,1)="Other Parameters"
^DIST(.403,.40405,40,2,40,0)="^.4032PI^.404052^1"
^DIST(.403,.40405,40,2,40,.404052,0)=".404052^1^1,3^e"
^DIST(.403,.40405,40,2,40,"AC",1,.404052)=""
^DIST(.403,.40405,40,2,40,"B",.404052,.404052)=""
^DIST(.403,.40405,40,"B",1,1)=""
^DIST(.403,.40405,40,"B",11,2)=""
^DIST(.403,.40405,40,"C","COMPUTED FIELD",1)=""
^DIST(.403,.40405,40,"C","OTHER PARAMETERS",2)=""
^DIST(.403,.40405,"AY",1,0,0,"N")="8,.404051^2,.404051^2,.404051^8,.404051^2,.404051"
^DIST(.403,.40405,"AY",1,.404051)="0^1^.4044^^e^^^^2"
^DIST(.403,.40405,"AY",1,.404051,2,"D")="2^24^4^.01"
^DIST(.403,.40405,"AY",1,.404051,2,"N")="0^3^3^0^3"
^DIST(.403,.40405,"AY",1,.404051,3,"D")="3^24^1^3,.404051"
^DIST(.403,.40405,"AY",1,.404051,3,"N")="2^5^4^2^4"
^DIST(.403,.40405,"AY",1,.404051,4,"D")="3^71^3^4,.404051"
^DIST(.403,.40405,"AY",1,.404051,4,"N")="2^5^5^3^5"
^DIST(.403,.40405,"AY",1,.404051,5,"D")="4^24^50^3.1"
^DIST(.403,.40405,"AY",1,.404051,5,"N")="3^6^6^4^6"
^DIST(.403,.40405,"AY",1,.404051,6,"D")="6^24^50^6,.404051"
^DIST(.403,.40405,"AY",1,.404051,6,"N")="5^7^7^5^7"
^DIST(.403,.40405,"AY",1,.404051,7,"D")="7^24^50^1.1"
^DIST(.403,.40405,"AY",1,.404051,7,"N")="6^8^8^6^8"
^DIST(.403,.40405,"AY",1,.404051,8,"D")="9^24^50^30"
^DIST(.403,.40405,"AY",1,.404051,8,"N")="7^0^0^7^0"
^DIST(.403,.40405,"AY",1,"FIRST")="2,.404051"
^DIST(.403,.40405,"AY",2,0,0,"N")="7,.404052^8,.404052^8,.404052^7,.404052^8,.404052"
^DIST(.403,.40405,"AY",2,.404052)="2^17^.4044^^e^^^^8"
^DIST(.403,.40405,"AY",2,.404052,5,"D")="6^41^3^5,.404052"
^DIST(.403,.40405,"AY",2,.404052,5,"N")="8^6^6^8^6"
^DIST(.403,.40405,"AY",2,.404052,6,"D")="7^41^7^6,.404052"
^DIST(.403,.40405,"AY",2,.404052,6,"N")="5^7^7^5^7"
^DIST(.403,.40405,"AY",2,.404052,7,"D")="8^41^7^7,.404052"
^DIST(.403,.40405,"AY",2,.404052,7,"N")="6^0^0^6^0"
^DIST(.403,.40405,"AY",2,.404052,8,"D")="4^41^3^6.3"
^DIST(.403,.40405,"AY",2,.404052,8,"N")="0^5^5^0^5"
^DIST(.403,.40405,"AY",2,"FIRST")="8,.404052"
^DIST(.403,.40405,"AY","CAP","CAPTION",1,1,.404051,6)=""
^DIST(.403,.40405,"AY","CAP","CAPTION COORDINATE",2,2,.404052,6)=""
^DIST(.403,.40405,"AY","CAP","COMPUTED EXPRESSION",1,1,.404051,8)=""
^DIST(.403,.40405,"AY","CAP","DATA COORDINATE",2,2,.404052,7)=""
^DIST(.403,.40405,"AY","CAP","DATA LENGTH",2,2,.404052,5)=""
^DIST(.403,.40405,"AY","CAP","EXECUTABLE CAPTION",1,1,.404051,7)=""
^DIST(.403,.40405,"AY","CAP","FIELD ORDER",1,1,.404051,2)=""
^DIST(.403,.40405,"AY","CAP","OTHER PARAMETERS...",1,1,.404051,3)=""
^DIST(.403,.40405,"AY","CAP","RIGHT JUSTIFY",2,2,.404052,8)=""
^DIST(.403,.40405,"AY","CAP","SUPPRESS COLON AFTER CAPTION?",1,1,.404051,4)=""
^DIST(.403,.40405,"AY","CAP","UNIQUE NAME",1,1,.404051,5)=""
^DIST(.403,.40405,"AY","F.4044",.01,"L",1,.404051,2)=""
^DIST(.403,.40405,"AY","F.4044",1.1,"L",1,.404051,7)=""
^DIST(.403,.40405,"AY","F.4044",3.1,"L",1,.404051,5)=""
^DIST(.403,.40405,"AY","F.4044",6.3,"L",2,.404052,8)=""
^DIST(.403,.40405,"AY","F.4044",30,"L",1,.404051,8)=""
^DIST(.403,.40405,"AY","F0","3,.404051","L",1,.404051,3)=""
^DIST(.403,.40405,"AY","F0","4,.404051","L",1,.404051,4)=""
^DIST(.403,.40405,"AY","F0","5,.404052","L",2,.404052,5)=""
^DIST(.403,.40405,"AY","F0","6,.404051","L",1,.404051,6)=""
^DIST(.403,.40405,"AY","F0","6,.404052","L",2,.404052,6)=""
^DIST(.403,.40405,"AY","F0","7,.404052","L",2,.404052,7)=""
^DIST(.403,.40405,"AY","X",1,0,26)=" Computed Field Properties "
^DIST(.403,.40405,"AY","X",1,2,11)="FIELD ORDER:"
^DIST(.403,.40405,"AY","X",1,3,4)="OTHER PARAMETERS...                  SUPPRESS COLON AFTER CAPTION?"
^DIST(.403,.40405,"AY","X",1,4,11)="UNIQUE NAME:"
^DIST(.403,.40405,"AY","X",1,6,15)="CAPTION:"
^DIST(.403,.40405,"AY","X",1,7,4)="EXECUTABLE CAPTION:"
^DIST(.403,.40405,"AY","X",1,9,3)="COMPUTED EXPRESSION:"
^DIST(.403,.40405,"AY","X",1,9,3,"A")="1;19;U"
^DIST(.403,.40405,"AY","X",2,2,22)=" Other Computed Field Properties "
^DIST(.403,.40405,"AY","X",2,4,26)="RIGHT JUSTIFY:"
^DIST(.403,.40405,"AY","X",2,6,28)="DATA LENGTH:"
^DIST(.403,.40405,"AY","X",2,7,21)="CAPTION COORDINATE:"
^DIST(.403,.40405,"AY","X",2,8,24)="DATA COORDINATE:"
^DIST(.403,.40406,0)="DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1"
^DIST(.403,.40406,40,0)="^.4031I^3^3"
^DIST(.403,.40406,40,1,0)="1^^3,9^^^1^7,65"
^DIST(.403,.40406,40,1,1)="Add a New Block"
^DIST(.403,.40406,40,1,40,0)="^.4032PI^.404061^1"
^DIST(.403,.40406,40,1,40,.404061,0)=".404061^1^1,1^e"
^DIST(.403,.40406,40,1,40,"AC",1,.404061)=""
^DIST(.403,.40406,40,1,40,"B",.404061,.404061)=""
^DIST(.403,.40406,40,2,0)="11^^6,12^^^1^11,61"
^DIST(.403,.40406,40,2,1)="Add a New Block to Page"
^DIST(.403,.40406,40,2,40,0)="^.4032PI^.404062^1"
^DIST(.403,.40406,40,2,40,.404062,0)=".404062^1^1,1^e"
^DIST(.403,.40406,40,2,40,"AC",1,.404062)=""
^DIST(.403,.40406,40,2,40,"B",.404062,.404062)=""
^DIST(.403,.40406,40,3,0)="21^^6,17^^^1^13,57"
^DIST(.403,.40406,40,3,1)="Duplicate Block Message"
^DIST(.403,.40406,40,3,40,0)="^.4032PI^.404063^1"
^DIST(.403,.40406,40,3,40,.404063,0)=".404063^1^1,1^e"
^DIST(.403,.40406,40,3,40,"AC",1,.404063)=""
^DIST(.403,.40406,40,3,40,"B",.404063,.404063)=""
^DIST(.403,.40406,40,"B",1,1)=""
^DIST(.403,.40406,40,"B",11,2)=""
^DIST(.403,.40406,40,"B",21,3)=""
^DIST(.403,.40406,40,"C","ADD A NEW BLOCK",1)=""
^DIST(.403,.40406,40,"C","ADD A NEW BLOCK TO PAGE",2)=""
^DIST(.403,.40406,40,"C","DUPLICATE BLOCK MESSAGE",3)=""
^DIST(.403,.40406,"AY",1,0,0,"N")="1,.404061^1,.404061^1,.404061^1,.404061^1,.404061"
^DIST(.403,.40406,"AY",1,.404061)="2^8^^^e^^^^1"
^DIST(.403,.40406,"AY",1,.404061,1,"D")="4^33^30^1,.404061"
^DIST(.403,.40406,"AY",1,.404061,1,"N")="0^0^0^0^0"
^DIST(.403,.40406,"AY",1,"FIRST")="1,.404061"
^DIST(.403,.40406,"AY",2,0,0,"N")="2,.404062^2,.404062^2,.404062^2,.404062^2,.404062"
^DIST(.403,.40406,"AY",2,.404062)="5^11^^^e^^^^2"
^DIST(.403,.40406,"AY",2,.404062,1,"D")="^^^^7^13^^0"
^DIST(.403,.40406,"AY",2,.404062,2,"D")="8^42^3^2,.404062"
^DIST(.403,.40406,"AY",2,.404062,2,"N")="0^0^0^0^0"
^DIST(.403,.40406,"AY",2,"FIRST")="2,.404062"
^DIST(.403,.40406,"AY",3,0,0,"N")="3,.404063^3,.404063^3,.404063^3,.404063^3,.404063"
^DIST(.403,.40406,"AY",3,.404063)="5^16^^^e^^^^3"
^DIST(.403,.40406,"AY",3,.404063,1,"D")="^^^^7^18^^0"
^DIST(.403,.40406,"AY",3,.404063,3,"D")="10^33^1^3,.404063"
^DIST(.403,.40406,"AY",3,.404063,3,"N")="0^0^0^0^0"
^DIST(.403,.40406,"AY",3,"FIRST")="3,.404063"
^DIST(.403,.40406,"AY","CAP","AS A NEW BLOCK ON THIS PAGE?",2,2,.404062,2)=""
^DIST(.403,.40406,"AY","CAP","NEW BLOCK NAME",1,1,.404061,1)=""
^DIST(.403,.40406,"AY","CAP","OK",3,3,.404063,3)=""
^DIST(.403,.40406,"AY","F0","1,.404061","L",1,.404061,1)=""
^DIST(.403,.40406,"AY","F0","2,.404062","L",2,.404062,2)=""
^DIST(.403,.40406,"AY","F0","3,.404063","L",3,.404063,3)=""
^DIST(.403,.40406,"AY","X",1,4,10)="Select NEW BLOCK NAME:"
^DIST(.403,.40406,"AY","X",2,8,13)="as a new block on this page?"
^DIST(.403,.40406,"AY","X",3,8,18)="already exists on this page!"
^DIST(.403,.40406,"AY","X",3,10,30)="OK"
^DIST(.403,.40407,0)="DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1"
^DIST(.403,.40407,40,0)="^.4031I^1^1"
^DIST(.403,.40407,40,1,0)="1^^5,9^^^1^11,62"
^DIST(.403,.40407,40,1,1)="Page 1"
^DIST(.403,.40407,40,1,40,0)="^.4032PI^.404071^1"
^DIST(.403,.40407,40,1,40,.404071,0)=".404071^1^3,3^e"
^DIST(.403,.40407,40,1,40,"AC",1,.404071)=""
^DIST(.403,.40407,40,1,40,"B",.404071,.404071)=""
^DIST(.403,.40407,40,"B",1,1)=""
^DIST(.403,.40407,40,"C","PAGE 1",1)=""
^DIST(.403,.40407,"AY",1,0,0,"N")="2,.404071^2,.404071^2,.404071^2,.404071^2,.404071"
^DIST(.403,.40407,"AY",1,.404071)="6^10^^^e^^^^2"
^DIST(.403,.40407,"AY",1,.404071,2,"D")="8^56^3^2,.404071"
^DIST(.403,.40407,"AY",1,.404071,2,"N")="0^0^0^0^0"
^DIST(.403,.40407,"AY",1,.404071,3,"D")="^^^^6^16^^0"
^DIST(.403,.40407,"AY",1,"FIRST")="2,.404071"
^DIST(.403,.40407,"AY","CAP","DO YOU WANT TO DELETE IT FROM THE BLOCK ",1,1,.404071,2)=""
^DIST(.403,.40407,"AY","F0","2,.404071","L",1,.404071,2)=""
^DIST(.403,.40407,"AY","X",1,6,10)="Block"
^DIST(.403,.40407,"AY","X",1,7,10)="is not used on any other forms."
^DIST(.403,.40407,"AY","X",1,8,10)="Do you want to delete it from the BLOCK file?"
^DIST(.403,.40408,0)="DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1"
^DIST(.403,.40408,40,0)="^.4031I^1^1"
^DIST(.403,.40408,40,1,0)="1^^4,5^^^1^8,68"
^DIST(.403,.40408,40,1,1)="Add a New Header Block"
^DIST(.403,.40408,40,1,40,0)="^.4032PI^.404081^1"
^DIST(.403,.40408,40,1,40,.404081,0)=".404081^1^1,1^e"
^DIST(.403,.40408,40,1,40,"AC",1,.404081)=""
^DIST(.403,.40408,40,1,40,"B",.404081,.404081)=""
^DIST(.403,.40408,40,"B",1,1)=""
^DIST(.403,.40408,40,"C","ADD A NEW HEADER BLOCK",1)=""
^DIST(.403,.40408,"AY",1,0,0,"N")="2,.404081^2,.404081^2,.404081^2,.404081^2,.404081"
^DIST(.403,.40408,"AY",1,.404081)="3^4^^^e^^^^2"
^DIST(.403,.40408,"AY",1,.404081,2,"D")="5^36^30^2,.404081"
^DIST(.403,.40408,"AY",1,.404081,2,"N")="0^0^0^0^0"
^DIST(.403,.40408,"AY",1,"FIRST")="2,.404081"
^DIST(.403,.40408,"AY","CAP","NEW HEADER BLOCK NAME",1,1,.404081,2)=""
^DIST(.403,.40408,"AY","F0","2,.404081","L",1,.404081,2)=""
^DIST(.403,.40408,"AY","X",1,3,23)=" Add a New Header Block "
^DIST(.403,.40408,"AY","X",1,5,6)="Select New Header Block Name:"
^DIST(.403,.441,0)="DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1"
^DIST(.403,.441,20)="D FORMVAL^DDXP1"
^DIST(.403,.441,40,0)="^.4031I^3^3"
^DIST(.403,.441,40,1,0)="1^^1,1^2^2^0"
^DIST(.403,.441,40,1,1)="PAGE 1"
^DIST(.403,.441,40,1,15,0)="^^1^1^2920925"
^DIST(.403,.441,40,1,15,1,0)="First page for Foreign Format definition.  It contains block DDXP FF BLK1."
^DIST(.403,.441,40,1,40,0)="^.4032PI^.441^1"
^DIST(.403,.441,40,1,40,.441,0)=".441^1^1,1^e"
^DIST(.403,.441,40,1,40,"AC",1,.441)=""
^DIST(.403,.441,40,1,40,"B",.441,.441)=""
^DIST(.403,.441,40,2,0)="2^^1,1^1^1^0"
^DIST(.403,.441,40,2,1)="PAGE 2"
^DIST(.403,.441,40,2,15,0)="^^2^2^2920925"
^DIST(.403,.441,40,2,15,1,0)="Page 2 of the form used to define a Foreign Format.  It contains block"
^DIST(.403,.441,40,2,15,2,0)="DDXP FF BLK2 and subpage containing DDXP FF BLK3."
^DIST(.403,.441,40,2,40,0)="^.4032PI^.442^1"
^DIST(.403,.441,40,2,40,.442,0)=".442^1^1,1^e"
^DIST(.403,.441,40,2,40,"AC",1,.442)=""
^DIST(.403,.441,40,2,40,"B",.442,.442)=""
^DIST(.403,.441,40,3,0)="3^^12,23^^^1^16,59"
^DIST(.403,.441,40,3,1)="POP-UP PAGE 1"
^DIST(.403,.441,40,3,15,0)="^^2^2^2920925"
^DIST(.403,.441,40,3,15,1,0)="This pop-up page is called from page 2 of DDXP FF FORM1.  It contains"
^DIST(.403,.441,40,3,15,2,0)="block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple."
^DIST(.403,.441,40,3,40,0)="^.4032PI^.443^1"
^DIST(.403,.441,40,3,40,.443,0)=".443^1^1,1^e"
^DIST(.403,.441,40,3,40,"AC",1,.443)=""
^DIST(.403,.441,40,3,40,"B",.443,.443)=""
^DIST(.403,.441,40,"B",1,1)=""
^DIST(.403,.441,40,"B",2,2)=""
^DIST(.403,.441,40,"B",3,3)=""
^DIST(.403,.441,40,"C","PAGE 1",1)=""
^DIST(.403,.441,40,"C","PAGE 2",2)=""
^DIST(.403,.441,40,"C","POP-UP PAGE 1",3)=""
^DIST(.403,.441,"AY",1,0,0,"N")="19,.441^1,.441^1,.441^19,.441^1,.441"
^DIST(.403,.441,"AY",1,.441)="0^0^.44^^e^^^^1"
^DIST(.403,.441,"AY",1,.441,1,"D")="0^41^30^.01"
^DIST(.403,.441,"AY",1,.441,1,"N")="0^4^4^0^4"
^DIST(.403,.441,"AY",1,.441,3,"D")="^^^^1^20^^0"
^DIST(.403,.441,"AY",1,.441,4,"D")="3^22^15^1"
^DIST(.403,.441,"AY",1,.441,4,"N")="1^20^5^1^20"
^DIST(.403,.441,"AY",1,.441,5,"D")="3^68^3^5"
^DIST(.403,.441,"AY",1,.441,5,"N")="1^7^20^4^7"
^DIST(.403,.441,"AY",1,.441,6,"D")="5^22^15^2"
^DIST(.403,.441,"AY",1,.441,6,"N")="20^9^8^7^5"
^DIST(.403,.441,"AY",1,.441,7,"D")="4^68^5^7"
^DIST(.403,.441,"AY",1,.441,7,"N")="5^8^6^20^8"
^DIST(.403,.441,"AY",1,.441,8,"D")="5^68^3^6"
^DIST(.403,.441,"AY",1,.441,8,"N")="7^9^9^6^9"
^DIST(.403,.441,"AY",1,.441,9,"D")="7^22^40^20"
^DIST(.403,.441,"AY",1,.441,9,"N")="6^10^10^8^10"
^DIST(.403,.441,"AY",1,.441,10,"D")="8^22^40^25"
^DIST(.403,.441,"AY",1,.441,10,"N")="9^11^11^9^11"
^DIST(.403,.441,"AY",1,.441,11,"D")="9^22^40^27"
^DIST(.403,.441,"AY",1,.441,11,"N")="10^21^21^10^21"
^DIST(.403,.441,"AY",1,.441,18,"D")="12^22^3^8"
^DIST(.403,.441,"AY",1,.441,18,"N")="21^19^19^21^19"
^DIST(.403,.441,"AY",1,.441,19,"D")="13^22^3^9"
^DIST(.403,.441,"AY",1,.441,19,"N")="18^0^0^18^0"
^DIST(.403,.441,"AY",1,.441,20,"D")="4^22^3^10"
^DIST(.403,.441,"AY",1,.441,20,"N")="4^6^7^5^6"
^DIST(.403,.441,"AY",1,.441,21,"D")="11^22^15^11"
^DIST(.403,.441,"AY",1,.441,21,"N")="11^18^18^11^18"
^DIST(.403,.441,"AY",1,"FIRST")="1,.441"
^DIST(.403,.441,"AY",2,0,0,"N")="7,.442^2,.442^2,.442^7,.442^2,.442"
^DIST(.403,.441,"AY",2,.442)="0^0^.44^0^e^^^^2"
^DIST(.403,.441,"AY",2,.442,2,"D")="0^41^30^.01"
^DIST(.403,.441,"AY",2,.442,2,"N")="0^5^5^0^5"
^DIST(.403,.441,"AY",2,.442,4,"D")="^^^^1^20^^0"
^DIST(.403,.441,"AY",2,.442,5,"D")="3^43^1^30"
^DIST(.403,.441,"AY",2,.442,5,"N")="2^6^6^2^6^^^^^^1"
^DIST(.403,.441,"AY",2,.442,6,"D")="5^43^1^31"
^DIST(.403,.441,"AY",2,.442,6,"N")="5^7^7^5^7^^^^^^1"
^DIST(.403,.441,"AY",2,.442,7,"D")="9^43^22^50"
^DIST(.403,.441,"AY",2,.442,7,"N")="6^0^0^6^0^^^^^^1"
^DIST(.403,.441,"AY",2,"FIRST")="2,.442"
^DIST(.403,.441,"AY",3,0,0,"N")="2,.443^1,.443^1,.443^2,.443^1,.443"
^DIST(.403,.441,"AY",3,.443)="11^22^.441^0^e^^^^1"
^DIST(.403,.441,"AY",3,.443,1,"D")="12^41^15^.01"
^DIST(.403,.441,"AY",3,.443,1,"N")="0^2^2^0^2"
^DIST(.403,.441,"AY",3,.443,2,"D")="14^41^1^1"
^DIST(.403,.441,"AY",3,.443,2,"N")="1^0^0^1^0^^^^^^1"
^DIST(.403,.441,"AY",3,"FIRST")="1,.443"
^DIST(.403,.441,"AY","CAP","DATE FORMAT","1^2",1,.441,11)=""
^DIST(.403,.441,"AY","CAP","DESCRIPTION (WP)",3,3,.443,2)=""
^DIST(.403,.441,"AY","CAP","DESCRIPTION (WP)","1^2",2,.442,5)=""
^DIST(.403,.441,"AY","CAP","FIELD DELIMITER","1^2",1,.441,4)=""
^DIST(.403,.441,"AY","CAP","FILE HEADER","1^2",1,.441,9)=""
^DIST(.403,.441,"AY","CAP","FILE TRAILER","1^2",1,.441,10)=""
^DIST(.403,.441,"AY","CAP","FOREIGN FILE FORMAT","1^2",1,.441,1)=""
^DIST(.403,.441,"AY","CAP","MAXIMUM OUTPUT LENGTH","1^2",1,.441,7)=""
^DIST(.403,.441,"AY","CAP","NEED FOREIGN FIELD NAMES?","1^2",1,.441,8)=""
^DIST(.403,.441,"AY","CAP","OTHER NAME",3,3,.443,1)=""
^DIST(.403,.441,"AY","CAP","OTHER NAME FOR FORMAT","1^2",2,.442,7)=""
^DIST(.403,.441,"AY","CAP","PROMPT FOR DATA TYPE?","1^2",1,.441,19)=""
^DIST(.403,.441,"AY","CAP","QUOTE NON-NUMERIC?","1^2",1,.441,18)=""
^DIST(.403,.441,"AY","CAP","RECORD DELIMITER","1^2",1,.441,6)=""
^DIST(.403,.441,"AY","CAP","RECORD LENGTH FIXED?","1^2",1,.441,5)=""
^DIST(.403,.441,"AY","CAP","SEND LAST DELIMITER?","1^2",1,.441,20)=""
^DIST(.403,.441,"AY","CAP","SUBSTITUTE FOR NULL","1^2",1,.441,21)=""
^DIST(.403,.441,"AY","CAP","USAGE NOTES (WP)","1^2",2,.442,6)=""
^DIST(.403,.441,"AY","F.44",.01,"L",1,.441,1)=""
^DIST(.403,.441,"AY","F.44",.01,"L",2,.442,2)=""
^DIST(.403,.441,"AY","F.44",1,"L",1,.441,4)=""
^DIST(.403,.441,"AY","F.44",2,"L",1,.441,6)=""
^DIST(.403,.441,"AY","F.44",5,"L",1,.441,5)=""
^DIST(.403,.441,"AY","F.44",6,"L",1,.441,8)=""
^DIST(.403,.441,"AY","F.44",7,"L",1,.441,7)=""
^DIST(.403,.441,"AY","F.44",8,"L",1,.441,18)=""
^DIST(.403,.441,"AY","F.44",9,"L",1,.441,19)=""
^DIST(.403,.441,"AY","F.44",10,"L",1,.441,20)=""
^DIST(.403,.441,"AY","F.44",11,"L",1,.441,21)=""
^DIST(.403,.441,"AY","F.44",20,"L",1,.441,9)=""
^DIST(.403,.441,"AY","F.44",25,"L",1,.441,10)=""
^DIST(.403,.441,"AY","F.44",27,"L",1,.441,11)=""
^DIST(.403,.441,"AY","F.44",30,"L",2,.442,5)=""
^DIST(.403,.441,"AY","F.44",31,"L",2,.442,6)=""
^DIST(.403,.441,"AY","F.44",50,"L",2,.442,7)=""
^DIST(.403,.441,"AY","F.441",.01,"L",3,.443,1)=""
^DIST(.403,.441,"AY","F.441",1,"L",3,.443,2)=""
^DIST(.403,.441,"AY","X",1,0,20)="FOREIGN FILE FORMAT:                                 PAGE 1"
^DIST(.403,.441,"AY","X",1,0,20,"A")="1;19;U"
^DIST(.403,.441,"AY","X",1,3,5)="FIELD DELIMITER:                          RECORD LENGTH FIXED?"
^DIST(.403,.441,"AY","X",1,4,1)="SEND LAST DELIMITER?                        MAXIMUM OUTPUT LENGTH:"
^DIST(.403,.441,"AY","X",1,5,4)="RECORD DELIMITER:                     NEED FOREIGN FIELD NAMES?"
^DIST(.403,.441,"AY","X",1,7,9)="FILE HEADER:"
^DIST(.403,.441,"AY","X",1,8,8)="FILE TRAILER:"
^DIST(.403,.441,"AY","X",1,9,9)="DATE FORMAT:"
^DIST(.403,.441,"AY","X",1,11,1)="SUBSTITUTE FOR NULL:"
^DIST(.403,.441,"AY","X",1,12,3)="QUOTE NON-NUMERIC?"
^DIST(.403,.441,"AY","X",1,13,0)="PROMPT FOR DATA TYPE?"
^DIST(.403,.441,"AY","X",1,16,44)="Go to next page to document format."
^DIST(.403,.441,"AY","X",2,0,20)="FOREIGN FILE FORMAT:                                 PAGE 2"
^DIST(.403,.441,"AY","X",2,3,25)="DESCRIPTION (WP):"
^DIST(.403,.441,"AY","X",2,5,25)="USAGE NOTES (WP):"
^DIST(.403,.441,"AY","X",2,9,13)="Select OTHER NAME FOR FORMAT:"
^DIST(.403,.441,"AY","X",3,12,29)="OTHER NAME:"
^DIST(.403,.441,"AY","X",3,14,23)="DESCRIPTION (WP):"
^DIST(.403,.461,0)="DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1"
^DIST(.403,.461,11)="S (DDMPFDCT,DDMPOSET)=0"
^DIST(.403,.461,20)="D VAL^DDMPSM"
^DIST(.403,.461,40,0)="^.4031I^4^4"
^DIST(.403,.461,40,1,0)="1^^1,1^2^2"
^DIST(.403,.461,40,1,1)="Page 1"
^DIST(.403,.461,40,1,40,0)="^.4032IP^.4611^1"
^DIST(.403,.461,40,1,40,.4611,0)=".4611^1^1,1^e"
^DIST(.403,.461,40,1,40,"AC",1,.4611)=""
^DIST(.403,.461,40,1,40,"B",.4611,.4611)=""
^DIST(.403,.461,40,2,0)="2^^1,1^1^1"
^DIST(.403,.461,40,2,1)="Page 2"
^DIST(.403,.461,40,2,11)="D PAGE2^DDMPSM1"
^DIST(.403,.461,40,2,40,0)="^.4032IP^.4612^1"
^DIST(.403,.461,40,2,40,.4612,0)=".4612^1^1,1^e"
^DIST(.403,.461,40,2,40,"AC",1,.4612)=""
^DIST(.403,.461,40,2,40,"B",.4612,.4612)=""
^DIST(.403,.461,40,3,0)="3^^5,33^^^1^11,79"
^DIST(.403,.461,40,3,1)="Page 3"
^DIST(.403,.461,40,3,40,0)="^.4032IP^.4613^1"
^DIST(.403,.461,40,3,40,.4613,0)=".4613^1^2,2^e"
^DIST(.403,.461,40,3,40,"AC",1,.4613)=""
^DIST(.403,.461,40,3,40,"B",.4613,.4613)=""
^DIST(.403,.461,40,4,0)="4^^6,18^^^1^12,64"
^DIST(.403,.461,40,4,1)="Page 4"
^DIST(.403,.461,40,4,11)="S DDMPFRP4=1"
^DIST(.403,.461,40,4,15,0)="^^3^3^2950301"
^DIST(.403,.461,40,4,15,1,0)="This page explains that all fields need a length for a fixed length"
^DIST(.403,.461,40,4,15,2,0)="import.  It gives user the option of deleting the last field entered or"
^DIST(.403,.461,40,4,15,3,0)="returning to length prompt."
^DIST(.403,.461,40,4,40,0)="^.4032IP^.4614^1"
^DIST(.403,.461,40,4,40,.4614,0)=".4614^1^2,2^e"
^DIST(.403,.461,40,4,40,"AC",1,.4614)=""
^DIST(.403,.461,40,4,40,"B",.4614,.4614)=""
^DIST(.403,.461,40,"B",1,1)=""
^DIST(.403,.461,40,"B",2,2)=""
^DIST(.403,.461,40,"B",3,3)=""
^DIST(.403,.461,40,"B",4,4)=""
^DIST(.403,.461,40,"C","PAGE 1",1)=""
^DIST(.403,.461,40,"C","PAGE 2",2)=""
^DIST(.403,.461,40,"C","PAGE 3",3)=""
^DIST(.403,.461,40,"C","PAGE 4",4)=""
^DIST(.403,.461,"AY",1,0,0,"N")="23,.4611^13,.4611^13,.4611^23,.4611^13,.4611"
^DIST(.403,.461,"AY",1,.4611)="0^0^.44^^e^^^^13"
^DIST(.403,.461,"AY",1,.4611,6,"D")="5^60^19^6,.4611"
^DIST(.403,.461,"AY",1,.4611,6,"N")="0^7^7^13^7"
^DIST(.403,.461,"AY",1,.4611,7,"D")="6^60^19^7,.4611"
^DIST(.403,.461,"AY",1,.4611,7,"N")="6^14^14^6^10"
^DIST(.403,.461,"AY",1,.4611,10,"D")="11^60^18^10,.4611"
^DIST(.403,.461,"AY",1,.4611,10,"N")="17^20^20^18^20"
^DIST(.403,.461,"AY",1,.4611,13,"D")="5^22^8^13,.4611"
^DIST(.403,.461,"AY",1,.4611,13,"N")="0^7^6^0^14"
^DIST(.403,.461,"AY",1,.4611,14,"D")="7^22^17^14,.4611"
^DIST(.403,.461,"AY",1,.4611,14,"N")="7^16^16^7^16"
^DIST(.403,.461,"AY",1,.4611,16,"D")="9^22^3^16,.4611"
^DIST(.403,.461,"AY",1,.4611,16,"N")="14^17^17^14^17"
^DIST(.403,.461,"AY",1,.4611,17,"D")="10^22^3^17,.4611"
^DIST(.403,.461,"AY",1,.4611,17,"N")="16^18^18^16^18"
^DIST(.403,.461,"AY",1,.4611,18,"D")="11^22^3^18,.4611"
^DIST(.403,.461,"AY",1,.4611,18,"N")="17^20^10^17^6"
^DIST(.403,.461,"AY",1,.4611,20,"D")="13^68^1^20,.4611^13^43^^0"
^DIST(.403,.461,"AY",1,.4611,20,"N")="10^23^23^10^23"
^DIST(.403,.461,"AY",1,.4611,22,"D")="^^^^14^53^^0"
^DIST(.403,.461,"AY",1,.4611,23,"D")="15^60^18^23,.4611^15^43^:^0"
^DIST(.403,.461,"AY",1,.4611,23,"N")="20^0^0^20^0"
^DIST(.403,.461,"AY",1,"FIRST")="13,.4611"
^DIST(.403,.461,"AY",2,0,0,"N")="19,.4612^6,.4612^6,.4612^19,.4612^6,.4612"
^DIST(.403,.461,"AY",2,.4612)="0^0^^^e^^^^6"
^DIST(.403,.461,"AY",2,.4612,5,"D")="^^^^3^1^^0"
^DIST(.403,.461,"AY",2,.4612,6,"D")="4^11^19^6,.4612"
^DIST(.403,.461,"AY",2,.4612,6,"N")="0^19^8^0^19"
^DIST(.403,.461,"AY",2,.4612,8,"D")="4^67^3^8,.4612"
^DIST(.403,.461,"AY",2,.4612,8,"N")="0^19^19^6^0"
^DIST(.403,.461,"AY",2,.4612,10,"D")="^^^^8^3^^0"
^DIST(.403,.461,"AY",2,.4612,11,"D")="^^^^9^3^^0"
^DIST(.403,.461,"AY",2,.4612,12,"D")="^^^^10^3^^0"
^DIST(.403,.461,"AY",2,.4612,13,"D")="^^^^11^3^^0"
^DIST(.403,.461,"AY",2,.4612,14,"D")="^^^^12^3^^0"
^DIST(.403,.461,"AY",2,.4612,15,"D")="^^^^13^3^^0"
^DIST(.403,.461,"AY",2,.4612,16,"D")="^^^^14^3^^0"
^DIST(.403,.461,"AY",2,.4612,17,"D")="^^^^15^3^^0"
^DIST(.403,.461,"AY",2,.4612,18,"D")="^^^^16^3^^0"
^DIST(.403,.461,"AY",2,.4612,19,"D")="5^11^3^19,.4612^5^3^:^0"
^DIST(.403,.461,"AY",2,.4612,19,"N")="6^0^0^8^8"
^DIST(.403,.461,"AY",2,"FIRST")="6,.4612"
^DIST(.403,.461,"AY",3,0,0,"N")="3,.4613^3,.4613^3,.4613^3,.4613^3,.4613"
^DIST(.403,.461,"AY",3,.4613)="5^33^.44^^e^^^^3"
^DIST(.403,.461,"AY",3,.4613,3,"D")="8^74^3^3,.4613"
^DIST(.403,.461,"AY",3,.4613,3,"N")="0^0^0^0^0"
^DIST(.403,.461,"AY",3,"FIRST")="3,.4613"
^DIST(.403,.461,"AY",4,0,0,"N")="3,.4614^3,.4614^3,.4614^3,.4614^3,.4614"
^DIST(.403,.461,"AY",4,.4614)="6^18^^^e^^^^3"
^DIST(.403,.461,"AY",4,.4614,3,"D")="9^58^1^3,.4614"
^DIST(.403,.461,"AY",4,.4614,3,"N")="0^0^0^0^0"
^DIST(.403,.461,"AY",4,"FIRST")="3,.4614"
^DIST(.403,.461,"AY","CAP","DATA FIXED LENGTH?","1^2",1,.4611,16)=""
^DIST(.403,.461,"AY","CAP","DELETE FIELD OR ENTER ITS LENGTH (D/L)?",4,4,.4614,3)=""
^DIST(.403,.461,"AY","CAP","DELETE LAST FIELD SELECTED?","1^2",2,.4612,8)=""
^DIST(.403,.461,"AY","CAP","DO YOU WANT TO CHANGE THE PRIMARY FILE?",3,3,.4613,3)=""
^DIST(.403,.461,"AY","CAP","FIELD","1^2",2,.4612,6)=""
^DIST(.403,.461,"AY","CAP","FIELD DELIMITER","1^2",1,.4611,17)=""
^DIST(.403,.461,"AY","CAP","FIELDS QUOTED?","1^2",1,.4611,18)=""
^DIST(.403,.461,"AY","CAP","FOREIGN FORMAT","1^2",1,.4611,14)=""
^DIST(.403,.461,"AY","CAP","FULL PATH","1^2",1,.4611,6)=""
^DIST(.403,.461,"AY","CAP","HOST FILE NAME","1^2",1,.4611,7)=""
^DIST(.403,.461,"AY","CAP","INTERNAL OR EXTERNAL","1^2",1,.4611,13)=""
^DIST(.403,.461,"AY","CAP","PRIMARY FILE","1^2",1,.4611,10)=""
^DIST(.403,.461,"AY","F0","10,.4611","L",1,.4611,10)=""
^DIST(.403,.461,"AY","F0","13,.4611","L",1,.4611,13)=""
^DIST(.403,.461,"AY","F0","14,.4611","L",1,.4611,14)=""
^DIST(.403,.461,"AY","F0","16,.4611","L",1,.4611,16)=""
^DIST(.403,.461,"AY","F0","17,.4611","L",1,.4611,17)=""
^DIST(.403,.461,"AY","F0","18,.4611","L",1,.4611,18)=""
^DIST(.403,.461,"AY","F0","19,.4612","L",2,.4612,19)=""
^DIST(.403,.461,"AY","F0","20,.4611","L",1,.4611,20)=""
^DIST(.403,.461,"AY","F0","23,.4611","L",1,.4611,23)=""
^DIST(.403,.461,"AY","F0","3,.4613","L",3,.4613,3)=""
^DIST(.403,.461,"AY","F0","3,.4614","L",4,.4614,3)=""
^DIST(.403,.461,"AY","F0","6,.4611","L",1,.4611,6)=""
^DIST(.403,.461,"AY","F0","6,.4612","L",2,.4612,6)=""
^DIST(.403,.461,"AY","F0","7,.4611","L",1,.4611,7)=""
^DIST(.403,.461,"AY","F0","8,.4612","L",2,.4612,8)=""
^DIST(.403,.461,"AY","X",1,0,34)="DATA IMPORT                          Page 1"
^DIST(.403,.461,"AY","X",1,1,34)="==========="
^DIST(.403,.461,"AY","X",1,3,15)="DATA FORMAT                          SOURCE FILE"
^DIST(.403,.461,"AY","X",1,4,15)="-----------                          -----------"
^DIST(.403,.461,"AY","X",1,5,0)="Internal or external:                            Full path:"
^DIST(.403,.461,"AY","X",1,5,0,"A")="50;58;U"
^DIST(.403,.461,"AY","X",1,6,44)="Host file name:"
^DIST(.403,.461,"AY","X",1,6,44,"A")="1;14;U"
^DIST(.403,.461,"AY","X",1,7,6)="Foreign format:"
^DIST(.403,.461,"AY","X",1,8,13)="OR"
^DIST(.403,.461,"AY","X",1,9,3)="Data fixed length?                             VA FILEMAN FILE"
^DIST(.403,.461,"AY","X",1,10,5)="Field delimiter:                             ---------------"
^DIST(.403,.461,"AY","X",1,11,7)="Fields quoted?                         Primary file:"
^DIST(.403,.461,"AY","X",2,0,26)="FIELD SELECTION FOR IMPORT                    Page 2"
^DIST(.403,.461,"AY","X",2,1,26)="=========================="
^DIST(.403,.461,"AY","X",2,2,1)="Choose a field from"
^DIST(.403,.461,"AY","X",2,4,4)="Field:                             Delete last field selected?"
^DIST(.403,.461,"AY","X",2,7,1)="These are the fields selected so far:"
^DIST(.403,.461,"AY","X",3,5,33)="If you delete or change the primary file,"
^DIST(.403,.461,"AY","X",3,6,33)="the fields you have chosen will be deleted."
^DIST(.403,.461,"AY","X",3,8,33)="Do you want to change the Primary file?:"
^DIST(.403,.461,"AY","X",3,8,33,"A")="1;39;U"
^DIST(.403,.461,"AY","X",4,6,18)="Since this is a fixed length import,"
^DIST(.403,.461,"AY","X",4,7,18)="you must enter a data length for every field."
^DIST(.403,.461,"AY","X",4,9,18)="Delete field or enter its Length (D/L)?"
^DIST(.403,1,0)="XPD EDIT BUILD^#^^^2931104^3080722.0905^^9.6^0^0^1"
^DIST(.403,1,40,0)="^.4031I^17^16"
^DIST(.403,1,40,1,0)="1^^1,1^4^17"
^DIST(.403,1,40,1,1)="Page 1"
^DIST(.403,1,40,1,40,0)="^.4032PI^2^2"
^DIST(.403,1,40,1,40,1,0)="1^1^1,1^d"
^DIST(.403,1,40,1,40,2,0)="2^2^1,1^e"
^DIST(.403,1,40,1,40,"AC",1,1)=""
^DIST(.403,1,40,1,40,"AC",2,2)=""
^DIST(.403,1,40,1,40,"B",1,1)=""
^DIST(.403,1,40,1,40,"B",2,2)=""
^DIST(.403,1,40,2,0)="2^^1,1^14^4"
^DIST(.403,1,40,2,1)="Page 2"
^DIST(.403,1,40,2,12)=""
^DIST(.403,1,40,2,40,0)="^.4032PI^13^3"
^DIST(.403,1,40,2,40,1,0)="1^1^1,1^d"
^DIST(.403,1,40,2,40,3,0)="3^2^1,1^e"
^DIST(.403,1,40,2,40,13,0)="13^3^5,1^e"
^DIST(.403,1,40,2,40,13,2)="12^^f^1"
^DIST(.403,1,40,2,40,"AC",1,1)=""
^DIST(.403,1,40,2,40,"AC",2,3)=""
^DIST(.403,1,40,2,40,"AC",3,13)=""
^DIST(.403,1,40,2,40,"B",1,1)=""
^DIST(.403,1,40,2,40,"B",3,3)=""
^DIST(.403,1,40,2,40,"B",13,13)=""
^DIST(.403,1,40,3,0)="3^^5,1^^^1^17,79"
^DIST(.403,1,40,3,1)="Kernel File^1,3,2"
^DIST(.403,1,40,3,40,0)="^.4032PI^9^2"
^DIST(.403,1,40,3,40,4,0)="4^1^3,2^e"
^DIST(.403,1,40,3,40,4,2)="9^^n"
^DIST(.403,1,40,3,40,9,0)="9^2^1,2^d"
^DIST(.403,1,40,3,40,"AC",1,4)=""
^DIST(.403,1,40,3,40,"AC",2,9)=""
^DIST(.403,1,40,3,40,"B",4,4)=""
^DIST(.403,1,40,3,40,"B",9,9)=""
^DIST(.403,1,40,4,0)="4^^1,1^2^1"
^DIST(.403,1,40,4,1)="File^"
^DIST(.403,1,40,4,40,0)="^.4032PI^15^3"
^DIST(.403,1,40,4,40,1,0)="1^1^1,1^d"
^DIST(.403,1,40,4,40,14,0)="14^2^5,1^e"
^DIST(.403,1,40,4,40,14,2)="12^^n"
^DIST(.403,1,40,4,40,15,0)="15^3^1,1^d"
^DIST(.403,1,40,4,40,"AC",1,1)=""
^DIST(.403,1,40,4,40,"AC",2,14)=""
^DIST(.403,1,40,4,40,"AC",3,15)=""
^DIST(.403,1,40,4,40,"B",1,1)=""
^DIST(.403,1,40,4,40,"B",14,14)=""
^DIST(.403,1,40,4,40,"B",15,15)=""
^DIST(.403,1,40,5,0)="5^^6,3^^^1^17,77"
^DIST(.403,1,40,5,1)="Record Merge^2,2,8"
^DIST(.403,1,40,5,40,0)="^.4032PI^6^1"
^DIST(.403,1,40,5,40,6,0)="6^1^1,3^e"
^DIST(.403,1,40,5,40,"AC",1,6)=""
^DIST(.403,1,40,5,40,"B",6,6)=""
^DIST(.403,1,40,7,0)="7^^5,1^^^1^17,78"
^DIST(.403,1,40,7,1)="Entries^"
^DIST(.403,1,40,7,40,0)="^.4032PI^5^1"
^DIST(.403,1,40,7,40,5,0)="5^2^1,1^e"
^DIST(.403,1,40,7,40,"AC",2,5)=""
^DIST(.403,1,40,7,40,"B",5,5)=""
^DIST(.403,1,40,8,0)="8^^5,2^^^1^15,78"
^DIST(.403,1,40,8,1)="Package file"
^DIST(.403,1,40,8,11)=""
^DIST(.403,1,40,8,40,0)="^.4032PI^23^3"
^DIST(.403,1,40,8,40,7,0)="7^2^3,2^e"
^DIST(.403,1,40,8,40,7,1)="1"
^DIST(.403,1,40,8,40,10,0)="10^3^8,2^e"
^DIST(.403,1,40,8,40,23,0)="23^4^1,2^d"
^DIST(.403,1,40,8,40,"AC",2,7)=""
^DIST(.403,1,40,8,40,"AC",3,10)=""
^DIST(.403,1,40,8,40,"AC",4,23)=""
^DIST(.403,1,40,8,40,"B",7,7)=""
^DIST(.403,1,40,8,40,"B",10,10)=""
^DIST(.403,1,40,8,40,"B",23,23)=""
^DIST(.403,1,40,9,0)="9^^4,3^^^1^16,77"
^DIST(.403,1,40,9,1)="Page 9"
^DIST(.403,1,40,9,12)=""
^DIST(.403,1,40,9,40,0)="^.4032PI^24^2"
^DIST(.403,1,40,9,40,11,0)="11^1^1,2^e"
^DIST(.403,1,40,9,40,24,0)="24^2^8,2^e"
^DIST(.403,1,40,9,40,24,2)="4"
^DIST(.403,1,40,9,40,"AC",1,11)=""
^DIST(.403,1,40,9,40,"AC",2,24)=""
^DIST(.403,1,40,9,40,"B",11,11)=""
^DIST(.403,1,40,9,40,"B",24,24)=""
^DIST(.403,1,40,10,0)="10^^5,4^^^1^9,76"
^DIST(.403,1,40,10,1)="A/B namespace^"
^DIST(.403,1,40,10,11)=""
^DIST(.403,1,40,10,12)=""
^DIST(.403,1,40,10,40,0)="^.4032PI^25^2"
^DIST(.403,1,40,10,40,12,0)="12^1^1,3^e"
^DIST(.403,1,40,10,40,25,0)="25^2^2,2^e"
^DIST(.403,1,40,10,40,25,2)="2"
^DIST(.403,1,40,10,40,"AC",1,12)=""
^DIST(.403,1,40,10,40,"AC",2,25)=""
^DIST(.403,1,40,10,40,"B",12,12)=""
^DIST(.403,1,40,10,40,"B",25,25)=""
^DIST(.403,1,40,11,0)="11^^6,2^^^1^16,77"
^DIST(.403,1,40,11,1)="Sub DD"
^DIST(.403,1,40,11,40,0)="^.4032PI^18^2"
^DIST(.403,1,40,11,40,16,0)="16^1^2,3^e"
^DIST(.403,1,40,11,40,16,2)="6^!IEN^n^^"
^DIST(.403,1,40,11,40,18,0)="18^2^1,3^d"
^DIST(.403,1,40,11,40,"AC",1,16)=""
^DIST(.403,1,40,11,40,"AC",2,18)=""
^DIST(.403,1,40,11,40,"B",16,16)=""
^DIST(.403,1,40,11,40,"B",18,18)=""
^DIST(.403,1,40,12,0)="12^^7,3^^^1^15,76"
^DIST(.403,1,40,12,1)="Sub Field"
^DIST(.403,1,40,12,40,0)="^.4032PI^19^2"
^DIST(.403,1,40,12,40,17,0)="17^1^2,3^e"
^DIST(.403,1,40,12,40,17,2)="6^!IEN^n"
^DIST(.403,1,40,12,40,19,0)="19^2^1,2^d"
^DIST(.403,1,40,12,40,"AC",1,17)=""
^DIST(.403,1,40,12,40,"AC",2,19)=""
^DIST(.403,1,40,12,40,"B",17,17)=""
^DIST(.403,1,40,12,40,"B",19,19)=""
^DIST(.403,1,40,13,0)="13^^6,2^^^1^16,77"
^DIST(.403,1,40,13,1)="Page 13"
^DIST(.403,1,40,13,40,0)="^.4032PI^20^1"
^DIST(.403,1,40,13,40,20,0)="20^1^1,1^e"
^DIST(.403,1,40,13,40,"AC",1,20)=""
^DIST(.403,1,40,13,40,"B",20,20)=""
^DIST(.403,1,40,14,0)="14^^1,1^17^2"
^DIST(.403,1,40,14,1)="Page 14"
^DIST(.403,1,40,14,40,0)="^.4032PI^101^4"
^DIST(.403,1,40,14,40,1,0)="1^1^1,1^d"
^DIST(.403,1,40,14,40,21,0)="21^4^1,1^e"
^DIST(.403,1,40,14,40,22,0)="22^2^5,1^e"
^DIST(.403,1,40,14,40,22,2)="4^^n"
^DIST(.403,1,40,14,40,101,0)="101^5^10,1^e"
^DIST(.403,1,40,14,40,101,2)="4"
^DIST(.403,1,40,14,40,"AC",1,1)=""
^DIST(.403,1,40,14,40,"AC",2,22)=""
^DIST(.403,1,40,14,40,"AC",4,21)=""
^DIST(.403,1,40,14,40,"AC",5,101)=""
^DIST(.403,1,40,14,40,"B",1,1)=""
^DIST(.403,1,40,14,40,"B",21,21)=""
^DIST(.403,1,40,14,40,"B",22,22)=""
^DIST(.403,1,40,14,40,"B",101,101)=""
^DIST(.403,1,40,15,0)="15^^2,1^^^1^17,79"
^DIST(.403,1,40,15,1)="Install questions"
^DIST(.403,1,40,15,40,0)="^.4032PI^8^1"
^DIST(.403,1,40,15,40,8,0)="8^1^1,1^e"
^DIST(.403,1,40,15,40,"AC",1,8)=""
^DIST(.403,1,40,15,40,"B",8,8)=""
^DIST(.403,1,40,16,0)="16^1^1,1"
^DIST(.403,1,40,16,1)="Page 16"
^DIST(.403,1,40,17,0)="17^^1,1^1^14"
^DIST(.403,1,40,17,1)="Page 17"
^DIST(.403,1,40,17,15,0)="^^1^1^3070620^"
^DIST(.403,1,40,17,15,1,0)="This is the page to edit the KIDS install QUESTIONS default values."
^DIST(.403,1,40,17,40,0)="^.4032IP^418^2"
^DIST(.403,1,40,17,40,1,0)="1^1^1,1^e"
^DIST(.403,1,40,17,40,418,0)="418^2^1,1^e"
^DIST(.403,1,40,17,40,"AC",1,1)=""
^DIST(.403,1,40,17,40,"AC",2,418)=""
^DIST(.403,1,40,17,40,"B",1,1)=""
^DIST(.403,1,40,17,40,"B",418,418)=""
^DIST(.403,1,40,"B",1,1)=""
^DIST(.403,1,40,"B",2,2)=""
^DIST(.403,1,40,"B",3,3)=""
^DIST(.403,1,40,"B",4,4)=""
^DIST(.403,1,40,"B",5,5)=""
^DIST(.403,1,40,"B",7,7)=""
^DIST(.403,1,40,"B",8,8)=""
^DIST(.403,1,40,"B",9,9)=""
^DIST(.403,1,40,"B",10,10)=""
^DIST(.403,1,40,"B",11,11)=""
^DIST(.403,1,40,"B",12,12)=""
^DIST(.403,1,40,"B",13,13)=""
^DIST(.403,1,40,"B",14,14)=""
^DIST(.403,1,40,"B",15,15)=""
^DIST(.403,1,40,"B",16,16)=""
^DIST(.403,1,40,"B",17,17)=""
^DIST(.403,1,40,"C","A/B NAMESPACE",10)=""
^DIST(.403,1,40,"C","ENTRIES",7)=""
^DIST(.403,1,40,"C","FILE",4)=""
^DIST(.403,1,40,"C","INSTALL QUESTIONS",15)=""
^DIST(.403,1,40,"C","KERNEL FILE",3)=""
^DIST(.403,1,40,"C","PACKAGE FILE",8)=""
^DIST(.403,1,40,"C","PAGE 1",1)=""
^DIST(.403,1,40,"C","PAGE 13",13)=""
^DIST(.403,1,40,"C","PAGE 14",14)=""
^DIST(.403,1,40,"C","PAGE 16",16)=""
^DIST(.403,1,40,"C","PAGE 17",17)=""
^DIST(.403,1,40,"C","PAGE 2",2)=""
^DIST(.403,1,40,"C","PAGE 9",9)=""
^DIST(.403,1,40,"C","RECORD MERGE",5)=""
^DIST(.403,1,40,"C","SUB DD",11)=""
^DIST(.403,1,40,"C","SUB FIELD",12)=""
^DIST(.403,1,"AY",1,0,0,"N")="14,2^1,2^1,2^14,2^1,2"
^DIST(.403,1,"AY",1,1)="0^0^9.6^^d^^^^0"
^DIST(.403,1,"AY",1,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",1,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",1,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",1,2)="0^0^9.6^^e^^^^1"
^DIST(.403,1,"AY",1,2,1,"D")="4^28^50^.01"
^DIST(.403,1,"AY",1,2,1,"N")="0^13^13^0^13"
^DIST(.403,1,"AY",1,2,5,"D")="10^28^8^913"
^DIST(.403,1,"AY",1,2,5,"N")="11^7^17^11^7"
^DIST(.403,1,"AY",1,2,6,"D")="14^28^17^914"
^DIST(.403,1,"AY",1,2,6,"N")="7^14^19^18^14"
^DIST(.403,1,"AY",1,2,7,"D")="12^28^17^916"
^DIST(.403,1,"AY",1,2,7,"N")="5^6^18^17^6"
^DIST(.403,1,"AY",1,2,11,"D")="8^28^1^3"
^DIST(.403,1,"AY",1,2,11,"N")="13^5^5^13^5^^^^^^1"
^DIST(.403,1,"AY",1,2,13,"D")="6^28^11^.02"
^DIST(.403,1,"AY",1,2,13,"N")="1^11^11^1^11"
^DIST(.403,1,"AY",1,2,14,"D")="16^28^17^900"
^DIST(.403,1,"AY",1,2,14,"N")="6^0^0^19^17"
^DIST(.403,1,"AY",1,2,17,"D")="10^63^1^913.1"
^DIST(.403,1,"AY",1,2,17,"N")="11^18^7^5^18"
^DIST(.403,1,"AY",1,2,18,"D")="12^63^1^916.1"
^DIST(.403,1,"AY",1,2,18,"N")="17^19^6^7^19"
^DIST(.403,1,"AY",1,2,19,"D")="14^63^1^914.1"
^DIST(.403,1,"AY",1,2,19,"N")="18^14^14^6^0"
^DIST(.403,1,"AY",1,"FIRST")="1,2"
^DIST(.403,1,"AY",2,0,0,"N")="1,13^1,13^1,13^1,13^1,13"
^DIST(.403,1,"AY",2,1)="0^0^9.6^^d^^^^0"
^DIST(.403,1,"AY",2,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",2,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",2,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",2,3)="0^0^9.6^^e^^^^0"
^DIST(.403,1,"AY",2,13)="4^0^9.67^^e^^12^^1^1"
^DIST(.403,1,"AY",2,13,1,"D")="5^0^24^.01"
^DIST(.403,1,"AY",2,13,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",2,13,2,"D")="5^26^5^0^^^^^1^1"
^DIST(.403,1,"AY",2,13,2,"N")="^^0^^0"
^DIST(.403,1,"AY",2,"FIRST")="1,13"
^DIST(.403,1,"AY",3,0,0,"N")="1,4^1,4^1,4^2,4^1,4"
^DIST(.403,1,"AY",3,4)="6^1^9.68^^e^^9^^1^1"
^DIST(.403,1,"AY",3,4,1,"D")="6^2^45^.01"
^DIST(.403,1,"AY",3,4,1,"N")="0^0^0^0^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,1,"AY",3,4,2,"D")="6^50^26^.03"
^DIST(.403,1,"AY",3,4,2,"N")="0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,1,"AY",3,9)="4^1^9.67^^d^^^^0"
^DIST(.403,1,"AY",3,9,1,"D")="^^^^4^27^^0"
^DIST(.403,1,"AY",3,"FIRST")="1,4"
^DIST(.403,1,"AY",4,0,0,"N")="1,14^1,14^1,14^1,14^1,14"
^DIST(.403,1,"AY",4,1)="0^0^9.6^^d^^^^0"
^DIST(.403,1,"AY",4,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",4,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",4,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",4,14)="4^0^9.64^^e^^12^^1^1"
^DIST(.403,1,"AY",4,14,1,"D")="5^6^45^.01"
^DIST(.403,1,"AY",4,14,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",4,15)="0^0^9.6^^d^^^^0"
^DIST(.403,1,"AY",4,"FIRST")="1,14"
^DIST(.403,1,"AY",5,0,0,"N")="4,6^2,6^2,6^4,6^2,6"
^DIST(.403,1,"AY",5,6)="5^4^9.402^^e^^^^2"
^DIST(.403,1,"AY",5,6,2,"D")="7^19^45^.01"
^DIST(.403,1,"AY",5,6,2,"N")="0^3^3^0^3"
^DIST(.403,1,"AY",5,6,3,"D")="9^27^8^3"
^DIST(.403,1,"AY",5,6,3,"N")="2^4^4^2^4"
^DIST(.403,1,"AY",5,6,4,"D")="14^4^70^4"
^DIST(.403,1,"AY",5,6,4,"N")="3^0^0^3^0"
^DIST(.403,1,"AY",5,"FIRST")="2,6"
^DIST(.403,1,"AY",7,0,0,"N")="7,5^2,5^2,5^7,5^2,5"
^DIST(.403,1,"AY",7,5)="4^0^9.64^^e^^^^2"
^DIST(.403,1,"AY",7,5,2,"D")="6^29^45^.01"
^DIST(.403,1,"AY",7,5,2,"N")="0^18^18^0^18"
^DIST(.403,1,"AY",7,5,7,"D")="15^32^3^222.7"
^DIST(.403,1,"AY",7,5,7,"N")="13^0^0^13^0"
^DIST(.403,1,"AY",7,5,13,"D")="13^1^76^223"
^DIST(.403,1,"AY",7,5,13,"N")="16^7^7^14^7"
^DIST(.403,1,"AY",7,5,14,"D")="10^61^3^222.2"
^DIST(.403,1,"AY",7,5,14,"N")="18^13^13^16^13"
^DIST(.403,1,"AY",7,5,16,"D")="10^29^3^222.1"
^DIST(.403,1,"AY",7,5,16,"N")="18^13^14^18^14"
^DIST(.403,1,"AY",7,5,18,"D")="8^32^7^222.3"
^DIST(.403,1,"AY",7,5,18,"N")="2^16^16^2^16"
^DIST(.403,1,"AY",7,"FIRST")="2,5"
^DIST(.403,1,"AY",8,0,0,"N")="1,10^5,7^5,7^1,10^5,7"
^DIST(.403,1,"AY",8,7)="6^2^9.4^^e^^^1^5"
^DIST(.403,1,"AY",8,7,2,"D")="10^32^30^20"
^DIST(.403,1,"AY",8,7,2,"N")="5^1,10^1,10^5^1,10^^^^^^1"
^DIST(.403,1,"AY",8,7,5,"D")="8^32^30^12"
^DIST(.403,1,"AY",8,7,5,"N")="0^2^2^0^2"
^DIST(.403,1,"AY",8,7,"PTB")="9.6,1"
^DIST(.403,1,"AY",8,7,"PTB",1)="S X=$$GET^DDSVAL(9.6,.DA,1),DA=X"
^DIST(.403,1,"AY",8,10)="11^2^9.6^^e^^^^1"
^DIST(.403,1,"AY",8,10,1,"D")="12^32^3^20"
^DIST(.403,1,"AY",8,10,1,"N")="2,7^0^0^2,7^0"
^DIST(.403,1,"AY",8,23)="4^2^9.6^^d^^^^0"
^DIST(.403,1,"AY",8,23,2,"D")="5^9^30^.01"
^DIST(.403,1,"AY",8,23,3,"D")="^^^^6^2^^0"
^DIST(.403,1,"AY",8,"FIRST")="5,7"
^DIST(.403,1,"AY",9,0,0,"N")="1,24^1,11^1,11^1,24^1,11"
^DIST(.403,1,"AY",9,11)="3^3^9.6^^e^^^^1"
^DIST(.403,1,"AY",9,11,1,"D")="5^32^3^21"
^DIST(.403,1,"AY",9,11,1,"N")="0^2^2^0^2"
^DIST(.403,1,"AY",9,11,2,"D")="7^32^44^22"
^DIST(.403,1,"AY",9,11,2,"N")="1^1,24^1,24^1^1,24"
^DIST(.403,1,"AY",9,24)="10^3^9.66^^e^^4^^1^1"
^DIST(.403,1,"AY",9,24,1,"D")="11^4^4^.01"
^DIST(.403,1,"AY",9,24,1,"N")="2,11^0^0^2,11^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",9,"FIRST")="1,11"
^DIST(.403,1,"AY",10,0,0,"N")="1,25^1,25^1,25^1,25^1,25"
^DIST(.403,1,"AY",10,12)="4^5^9.66^^e^^^^0"
^DIST(.403,1,"AY",10,25)="5^4^9.661^^e^^2^^1^1"
^DIST(.403,1,"AY",10,25,1,"D")="5^5^4^.01"
^DIST(.403,1,"AY",10,25,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",10,"FIRST")="1,25"
^DIST(.403,1,"AY",11,0,0,"N")="1,16^1,16^1,16^1,16^1,16"
^DIST(.403,1,"AY",11,16)="6^3^9.641^^e^^6^^1^1"
^DIST(.403,1,"AY",11,16,1,"D")="6^3^45^.01"
^DIST(.403,1,"AY",11,16,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",11,18)="5^3^9.64^^d^^^^0"
^DIST(.403,1,"AY",11,"FIRST")="1,16"
^DIST(.403,1,"AY",12,0,0,"N")="1,17^1,17^1,17^1,17^1,17"
^DIST(.403,1,"AY",12,17)="7^4^9.6411^^e^^6^^1^1"
^DIST(.403,1,"AY",12,17,1,"D")="7^4^45^.01"
^DIST(.403,1,"AY",12,17,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",12,19)="6^3^9.641^^d^^^^0"
^DIST(.403,1,"AY",12,"FIRST")="1,17"
^DIST(.403,1,"AY",13,0,0,"N")="7,20^2,20^2,20^7,20^2,20"
^DIST(.403,1,"AY",13,20)="5^1^9.64^^e^^^^2"
^DIST(.403,1,"AY",13,20,2,"D")="7^21^15^222.8"
^DIST(.403,1,"AY",13,20,2,"N")="0^4^4^0^4"
^DIST(.403,1,"AY",13,20,3,"D")="11^21^30^222.6"
^DIST(.403,1,"AY",13,20,3,"N")="4^7^7^5^7"
^DIST(.403,1,"AY",13,20,4,"D")="9^21^3^222.5"
^DIST(.403,1,"AY",13,20,4,"N")="2^3^5^2^5"
^DIST(.403,1,"AY",13,20,5,"D")="9^68^3^222.9"
^DIST(.403,1,"AY",13,20,5,"N")="2^3^3^4^3"
^DIST(.403,1,"AY",13,20,7,"D")="14^3^72^224"
^DIST(.403,1,"AY",13,20,7,"N")="3^0^0^3^0"
^DIST(.403,1,"AY",13,"FIRST")="2,20"
^DIST(.403,1,"AY",14,0,0,"N")="3,21^1,22^1,22^3,21^1,22"
^DIST(.403,1,"AY",14,1)="0^0^9.6^^d^^^^0"
^DIST(.403,1,"AY",14,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",14,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",14,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",14,21)="0^0^9.6^^e^^^^2"
^DIST(.403,1,"AY",14,21,2,"D")="14^26^30^1"
^DIST(.403,1,"AY",14,21,2,"N")="1,101^3^3^2,101^3"
^DIST(.403,1,"AY",14,21,3,"D")="16^26^3^5"
^DIST(.403,1,"AY",14,21,3,"N")="2^0^0^2^1,101"
^DIST(.403,1,"AY",14,22)="4^0^9.62^^e^^4^^1^1"
^DIST(.403,1,"AY",14,22,1,"D")="4^2^30^.01"
^DIST(.403,1,"AY",14,22,1,"N")="0^1,101^1,101^0^2,21^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,1,"AY",14,101)="9^0^9.611^^e^^4^^1^1"
^DIST(.403,1,"AY",14,101,1,"D")="9^2^40^.01"
^DIST(.403,1,"AY",14,101,1,"N")="1,22^2,21^2,21^1,22^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,1,"AY",14,101,2,"D")="9^48^30^1"
^DIST(.403,1,"AY",14,101,2,"N")="1,22^2,21^2,21^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,1,"AY",14,"FIRST")="1,22"
^DIST(.403,1,"AY",15,0,0,"N")="9,8^1,8^1,8^9,8^1,8"
^DIST(.403,1,"AY",15,8)="1^0^9.62^^e^^^^1"
^DIST(.403,1,"AY",15,8,1,"D")="2^11^30^.01"
^DIST(.403,1,"AY",15,8,1,"N")="0^2^2^0^2"
^DIST(.403,1,"AY",15,8,2,"D")="4^11^65^1"
^DIST(.403,1,"AY",15,8,2,"N")="1^3^3^1^3"
^DIST(.403,1,"AY",15,8,3,"D")="6^11^65^2"
^DIST(.403,1,"AY",15,8,3,"N")="2^4^4^2^4"
^DIST(.403,1,"AY",15,8,4,"D")="7^11^1^3"
^DIST(.403,1,"AY",15,8,4,"N")="3^5^5^3^5^^^^^^1"
^DIST(.403,1,"AY",15,8,5,"D")="9^11^65^4"
^DIST(.403,1,"AY",15,8,5,"N")="4^6^6^4^6"
^DIST(.403,1,"AY",15,8,6,"D")="11^11^65^5"
^DIST(.403,1,"AY",15,8,6,"N")="5^7^7^5^7"
^DIST(.403,1,"AY",15,8,7,"D")="12^11^1^6"
^DIST(.403,1,"AY",15,8,7,"N")="6^8^8^6^8^^^^^^1"
^DIST(.403,1,"AY",15,8,8,"D")="13^11^64^7"
^DIST(.403,1,"AY",15,8,8,"N")="7^9^9^7^9"
^DIST(.403,1,"AY",15,8,9,"D")="15^11^65^10"
^DIST(.403,1,"AY",15,8,9,"N")="8^0^0^8^0"
^DIST(.403,1,"AY",15,"FIRST")="1,8"
^DIST(.403,1,"AY",16,0,0,"N")="0^0^0^0^0"
^DIST(.403,1,"AY",16,1)="0^0^9.6^^h"
^DIST(.403,1,"AY",16,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",16,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",16,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",16,"FIRST")="0,0"
^DIST(.403,1,"AY",17,0,0,"N")="3,418^2,1^2,1^3,418^2,1"
^DIST(.403,1,"AY",17,1)="0^0^9.6^^e^^^^2"
^DIST(.403,1,"AY",17,1,2,"D")="1^6^30^.01"
^DIST(.403,1,"AY",17,1,2,"N")="0^1,418^5^0^5"
^DIST(.403,1,"AY",17,1,4,"D")="^^^^2^0^^0"
^DIST(.403,1,"AY",17,1,5,"D")="1^50^14^2"
^DIST(.403,1,"AY",17,1,5,"N")="0^1,418^1,418^2^1,418"
^DIST(.403,1,"AY",17,418)="0^0^9.6^^e^^^^1"
^DIST(.403,1,"AY",17,418,1,"D")="5^35^3^51.09"
^DIST(.403,1,"AY",17,418,1,"N")="2,1^2^2^5,1^2"
^DIST(.403,1,"AY",17,418,2,"D")="7^35^3^51.05"
^DIST(.403,1,"AY",17,418,2,"N")="1^3^3^1^3"
^DIST(.403,1,"AY",17,418,3,"D")="9^35^3^51.11"
^DIST(.403,1,"AY",17,418,3,"N")="2^0^0^2^0"
^DIST(.403,1,"AY",17,"FIRST")="2,1"
^DIST(.403,1,"AY","ASUB",2,13,1)="3"
^DIST(.403,1,"AY","ASUB",8,7,2)="5"
^DIST(.403,1,"AY","CAP","ADDRESS FOR USAGE REPORTING",9,9,11,2)=""
^DIST(.403,1,"AY","CAP","AFFECTS RECORD MERGE",8,8,7,2)=""
^DIST(.403,1,"AY","CAP","ALPHA/BETA TESTING...",8,8,10,1)=""
^DIST(.403,1,"AY","CAP","DATA COMES WITH FILE...",7,7,5,7)=""
^DIST(.403,1,"AY","CAP","DATA LIST",13,13,20,3)=""
^DIST(.403,1,"AY","CAP","DATE DISTRIBUTED","1^4^17^2^14",1,2,13)=""
^DIST(.403,1,"AY","CAP","DESCRIPTION","1^4^17^2^14",1,2,11)=""
^DIST(.403,1,"AY","CAP","DIR(0)",15,15,8,2)=""
^DIST(.403,1,"AY","CAP","DIR(?)",15,15,8,6)=""
^DIST(.403,1,"AY","CAP","DIR(?,#)",15,15,8,7)=""
^DIST(.403,1,"AY","CAP","DIR(??)",15,15,8,8)=""
^DIST(.403,1,"AY","CAP","DIR(A)",15,15,8,3)=""
^DIST(.403,1,"AY","CAP","DIR(A,#)",15,15,8,4)=""
^DIST(.403,1,"AY","CAP","DIR(B)",15,15,8,5)=""
^DIST(.403,1,"AY","CAP","ENVIRONMENT CHECK ROUTINE","1^4^17^2^14",1,2,5)=""
^DIST(.403,1,"AY","CAP","FILE",7,7,5,2)=""
^DIST(.403,1,"AY","CAP","FILE AFFECTED",5,5,6,2)=""
^DIST(.403,1,"AY","CAP","INSTALLATION MESSAGE",9,9,11,1)=""
^DIST(.403,1,"AY","CAP","M CODE",15,15,8,9)=""
^DIST(.403,1,"AY","CAP","MAY USER OVERRIDE DATA UPDATE",13,13,20,5)=""
^DIST(.403,1,"AY","CAP","NAME",15,15,8,1)=""
^DIST(.403,1,"AY","CAP","NAME","1^4^17^2^14",1,2,1)=""
^DIST(.403,1,"AY","CAP","NAME","1^4^17^2^14",17,1,2)=""
^DIST(.403,1,"AY","CAP","NAME OF MERGE ROUTINE",5,5,6,3)=""
^DIST(.403,1,"AY","CAP","PACKAGE FILE LINK...","1^4^17^2^14",14,21,2)=""
^DIST(.403,1,"AY","CAP","POST-INSTALL ROUTINE","1^4^17^2^14",1,2,6)=""
^DIST(.403,1,"AY","CAP","PRE-INSTALL ROUTINE","1^4^17^2^14",1,2,7)=""
^DIST(.403,1,"AY","CAP","PRE-TRANSPORTATION ROUTINE","1^4^17^2^14",1,2,14)=""
^DIST(.403,1,"AY","CAP","PRIMARY HELP FRAME",8,8,7,5)=""
^DIST(.403,1,"AY","CAP","REBUILD MENU TREE UPON COMPLETION","1^4^17^2^14",17,418,1)=""
^DIST(.403,1,"AY","CAP","RECORD HAS PACKAGE DATA",5,5,6,4)=""
^DIST(.403,1,"AY","CAP","RESOLVE POINTERS",13,13,20,4)=""
^DIST(.403,1,"AY","CAP","SCREEN TO DETERMINE DD UPDATE",7,7,5,13)=""
^DIST(.403,1,"AY","CAP","SCREEN TO SELECT DATA",13,13,20,7)=""
^DIST(.403,1,"AY","CAP","SEND FULL OR PARTIAL DD...",7,7,5,18)=""
^DIST(.403,1,"AY","CAP","SEND SECURITY CODE",7,7,5,14)=""
^DIST(.403,1,"AY","CAP","SITE'S DATA",13,13,20,2)=""
^DIST(.403,1,"AY","CAP","TRACK PACKAGE NATIONALLY","1^4^17^2^14",14,21,3)=""
^DIST(.403,1,"AY","CAP","TYPE","1^4^17^2^14",17,1,5)=""
^DIST(.403,1,"AY","CAP","UPDATE THE DATA DICTIONARY",7,7,5,16)=""
^DIST(.403,1,"AY","CAP","WANT KIDS TO INHIBIT LOGONS","1^4^17^2^14",17,418,2)=""
^DIST(.403,1,"AY","CAP","WANT TO DISABLE SCHEDULED OPTIONS","1^4^17^2^14",17,418,3)=""
^DIST(.403,1,"AY","CAP","Y/N","1^4^17^2^14",1,2,17)=""
^DIST(.403,1,"AY","CAP","Y/N","1^4^17^2^14",1,2,18)=""
^DIST(.403,1,"AY","CAP","Y/N","1^4^17^2^14",1,2,19)=""
^DIST(.403,1,"AY","COMPE",13,2)="S Y=""(""_+$P($G(^XPD(9.6,DA(1),""KRN"",DA,""NM"",0)),U,4)_"")"""
^DIST(.403,1,"AY","F9.4",12,"L",8,7,5)=""
^DIST(.403,1,"AY","F9.4",20,"L",8,7,2)=""
^DIST(.403,1,"AY","F9.402",.01,"L",5,6,2)=""
^DIST(.403,1,"AY","F9.402",3,"L",5,6,3)=""
^DIST(.403,1,"AY","F9.402",4,"L",5,6,4)=""
^DIST(.403,1,"AY","F9.6",.01,"L",1,1,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",1,2,1)=""
^DIST(.403,1,"AY","F9.6",.01,"L",2,1,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",4,1,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",8,23,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",14,1,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",16,1,2)=""
^DIST(.403,1,"AY","F9.6",.01,"L",17,1,2)=""
^DIST(.403,1,"AY","F9.6",.02,"L",1,2,13)=""
^DIST(.403,1,"AY","F9.6",1,"L",14,21,2)=""
^DIST(.403,1,"AY","F9.6",2,"L",1,1,5)=""
^DIST(.403,1,"AY","F9.6",2,"L",2,1,5)=""
^DIST(.403,1,"AY","F9.6",2,"L",4,1,5)=""
^DIST(.403,1,"AY","F9.6",2,"L",14,1,5)=""
^DIST(.403,1,"AY","F9.6",2,"L",16,1,5)=""
^DIST(.403,1,"AY","F9.6",2,"L",17,1,5)=""
^DIST(.403,1,"AY","F9.6",3,"L",1,2,11)=""
^DIST(.403,1,"AY","F9.6",5,"L",14,21,3)=""
^DIST(.403,1,"AY","F9.6",20,"L",8,10,1)=""
^DIST(.403,1,"AY","F9.6",21,"L",9,11,1)=""
^DIST(.403,1,"AY","F9.6",22,"L",9,11,2)=""
^DIST(.403,1,"AY","F9.6",51.05,"L",17,418,2)=""
^DIST(.403,1,"AY","F9.6",51.09,"L",17,418,1)=""
^DIST(.403,1,"AY","F9.6",51.11,"L",17,418,3)=""
^DIST(.403,1,"AY","F9.6",900,"L",1,2,14)=""
^DIST(.403,1,"AY","F9.6",913,"L",1,2,5)=""
^DIST(.403,1,"AY","F9.6",913.1,"L",1,2,17)=""
^DIST(.403,1,"AY","F9.6",914,"L",1,2,6)=""
^DIST(.403,1,"AY","F9.6",914.1,"L",1,2,19)=""
^DIST(.403,1,"AY","F9.6",916,"L",1,2,7)=""
^DIST(.403,1,"AY","F9.6",916.1,"L",1,2,18)=""
^DIST(.403,1,"AY","F9.611",.01,"L",14,101,1)=""
^DIST(.403,1,"AY","F9.611",1,"L",14,101,2)=""
^DIST(.403,1,"AY","F9.62",.01,"L",14,22,1)=""
^DIST(.403,1,"AY","F9.62",.01,"L",15,8,1)=""
^DIST(.403,1,"AY","F9.62",1,"L",15,8,2)=""
^DIST(.403,1,"AY","F9.62",2,"L",15,8,3)=""
^DIST(.403,1,"AY","F9.62",3,"L",15,8,4)=""
^DIST(.403,1,"AY","F9.62",4,"L",15,8,5)=""
^DIST(.403,1,"AY","F9.62",5,"L",15,8,6)=""
^DIST(.403,1,"AY","F9.62",6,"L",15,8,7)=""
^DIST(.403,1,"AY","F9.62",7,"L",15,8,8)=""
^DIST(.403,1,"AY","F9.62",10,"L",15,8,9)=""
^DIST(.403,1,"AY","F9.64",.01,"L",4,14,1)=""
^DIST(.403,1,"AY","F9.64",.01,"L",7,5,2)=""
^DIST(.403,1,"AY","F9.64",222.1,"L",7,5,16)=""
^DIST(.403,1,"AY","F9.64",222.2,"L",7,5,14)=""
^DIST(.403,1,"AY","F9.64",222.3,"L",7,5,18)=""
^DIST(.403,1,"AY","F9.64",222.5,"L",13,20,4)=""
^DIST(.403,1,"AY","F9.64",222.6,"L",13,20,3)=""
^DIST(.403,1,"AY","F9.64",222.7,"L",7,5,7)=""
^DIST(.403,1,"AY","F9.64",222.8,"L",13,20,2)=""
^DIST(.403,1,"AY","F9.64",222.9,"L",13,20,5)=""
^DIST(.403,1,"AY","F9.64",223,"L",7,5,13)=""
^DIST(.403,1,"AY","F9.64",224,"L",13,20,7)=""
^DIST(.403,1,"AY","F9.641",.01,"L",11,16,1)=""
^DIST(.403,1,"AY","F9.6411",.01,"L",12,17,1)=""
^DIST(.403,1,"AY","F9.66",.01,"L",9,24,1)=""
^DIST(.403,1,"AY","F9.661",.01,"L",10,25,1)=""
^DIST(.403,1,"AY","F9.67",0,"L",2,13,2)=""
^DIST(.403,1,"AY","F9.67",.01,"L",2,13,1)=""
^DIST(.403,1,"AY","F9.68",.01,"L",3,4,1)=""
^DIST(.403,1,"AY","F9.68",.03,"L",3,4,2)=""
^DIST(.403,1,"AY","PT",9.6,1,8,7)=""
^DIST(.403,1,"AY","X",1,0,27)="Edit a Build                          PAGE 1 OF 5"
^DIST(.403,1,"AY","X",1,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",1,4,22)="Name:"
^DIST(.403,1,"AY","X",1,6,10)="Date Distributed:"
^DIST(.403,1,"AY","X",1,8,15)="Description:                             Delete Routine"
^DIST(.403,1,"AY","X",1,9,57)="after install"
^DIST(.403,1,"AY","X",1,10,1)="Environment Check Routine:                               Y/N:"
^DIST(.403,1,"AY","X",1,12,7)="Pre-Install Routine:                               Y/N:"
^DIST(.403,1,"AY","X",1,14,6)="Post-Install Routine:                               Y/N:"
^DIST(.403,1,"AY","X",1,16,0)="Pre-Transportation Routine:"
^DIST(.403,1,"AY","X",2,0,27)="Edit a Build                          PAGE 3 OF 5"
^DIST(.403,1,"AY","X",2,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",2,3,27)="Build Components"
^DIST(.403,1,"AY","X",4,0,27)="Edit a Build                          PAGE 2 OF 5"
^DIST(.403,1,"AY","X",4,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",4,3,27)="File List  (Name or Number)"
^DIST(.403,1,"AY","X",5,5,26)=" Affects Record Merge "
^DIST(.403,1,"AY","X",5,7,4)="File Affected:"
^DIST(.403,1,"AY","X",5,9,4)="Name of Merge Routine:"
^DIST(.403,1,"AY","X",5,12,24)="Record has Package Data"
^DIST(.403,1,"AY","X",7,4,26)=" DD Export Options "
^DIST(.403,1,"AY","X",7,6,23)="File:"
^DIST(.403,1,"AY","X",7,8,4)="Send Full or Partial DD...:"
^DIST(.403,1,"AY","X",7,10,1)="Update the Data Dictionary:             Send Security Code:"
^DIST(.403,1,"AY","X",7,12,1)="Screen to Determine DD Update"
^DIST(.403,1,"AY","X",7,15,7)="Data Comes With File...:"
^DIST(.403,1,"AY","X",8,4,27)=" Edit PACKAGE File "
^DIST(.403,1,"AY","X",8,5,3)="Name:"
^DIST(.403,1,"AY","X",8,8,12)="Primary Help Frame:"
^DIST(.403,1,"AY","X",8,10,3)="Select Affects Record Merge:"
^DIST(.403,1,"AY","X",8,12,9)="Alpha/Beta Testing...:"
^DIST(.403,1,"AY","X",9,3,28)=" Alpha/Beta Testing "
^DIST(.403,1,"AY","X",9,5,10)="Installation Message:"
^DIST(.403,1,"AY","X",9,7,3)="Address for Usage Reporting:"
^DIST(.403,1,"AY","X",9,9,3)="Package Namespace or Prefix:"
^DIST(.403,1,"AY","X",10,4,24)=" Exclude Namespace or Prefix "
^DIST(.403,1,"AY","X",11,5,26)=" Data Dictionary Number "
^DIST(.403,1,"AY","X",12,6,26)=" Field Number "
^DIST(.403,1,"AY","X",13,5,29)=" Data Export Options "
^DIST(.403,1,"AY","X",13,7,8)="Site's Data:"
^DIST(.403,1,"AY","X",13,9,3)="Resolve Pointers:                 May User Override Data Update:"
^DIST(.403,1,"AY","X",13,11,10)="Data List:"
^DIST(.403,1,"AY","X",13,13,3)="Screen to Select Data"
^DIST(.403,1,"AY","X",14,0,27)="Edit a Build                          PAGE 4 OF 5"
^DIST(.403,1,"AY","X",14,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",14,3,27)="Install Questions"
^DIST(.403,1,"AY","X",14,8,27)="Required Builds"
^DIST(.403,1,"AY","X",14,14,4)="Package File Link...:"
^DIST(.403,1,"AY","X",14,16,0)="Track Package Nationally:"
^DIST(.403,1,"AY","X",15,1,26)=" Install Questions "
^DIST(.403,1,"AY","X",15,2,5)="Name:"
^DIST(.403,1,"AY","X",15,4,3)="DIR(0):"
^DIST(.403,1,"AY","X",15,4,3,"A")="1;6;U"
^DIST(.403,1,"AY","X",15,6,3)="DIR(A):"
^DIST(.403,1,"AY","X",15,7,1)="DIR(A,#):"
^DIST(.403,1,"AY","X",15,9,3)="DIR(B):"
^DIST(.403,1,"AY","X",15,11,3)="DIR(?):"
^DIST(.403,1,"AY","X",15,12,1)="DIR(?,#):"
^DIST(.403,1,"AY","X",15,13,2)="DIR(??):"
^DIST(.403,1,"AY","X",15,15,3)="M Code:"
^DIST(.403,1,"AY","X",16,0,27)="Edit a Build                          PAGE   OF 5"
^DIST(.403,1,"AY","X",16,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",17,0,27)="Edit a Build                          PAGE 5 OF 5"
^DIST(.403,1,"AY","X",17,1,0)="Name:                                       TYPE:"
^DIST(.403,1,"AY","X",17,3,2)="Change the 'NO' defaults the sites will see when KIDS asks these questions!"
^DIST(.403,1,"AY","X",17,5,0)="Rebuild Menu Tree Upon Completion:"
^DIST(.403,1,"AY","X",17,7,6)="Want KIDS to INHIBIT LOGONs:"
^DIST(.403,1,"AY","X",17,9,0)="Want to DISABLE Scheduled Options:"
^DIST(.403,2,0)="XUEDIT CHARACTERISTICS^^^^2901206^3080722.1332^^200^0^0^1"
^DIST(.403,2,40,0)="^.4031I^1^1"
^DIST(.403,2,40,1,0)="1^26^1,1^^^^^^"
^DIST(.403,2,40,1,1)="Page 1 of 1"
^DIST(.403,2,40,1,40,0)="^.4032PI^27^1"
^DIST(.403,2,40,1,40,27,0)="27^1^5,1^e"
^DIST(.403,2,40,1,40,"AC",1,27)=""
^DIST(.403,2,40,1,40,"B",27,27)=""
^DIST(.403,2,40,"B",1,1)=""
^DIST(.403,2,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,2,"AY",1,0,0,"N")="10,27^1,27^1,27^10,27^1,27"
^DIST(.403,2,"AY",1,26)="0^0^200^0^h"
^DIST(.403,2,"AY",1,26,2,"D")="1^6^30^.01"
^DIST(.403,2,"AY",1,27)="4^0^200^^e^^^^1"
^DIST(.403,2,"AY",1,27,1,"D")="4^28^5^1"
^DIST(.403,2,"AY",1,27,1,"N")="0^2^3^0^2"
^DIST(.403,2,"AY",1,27,2,"D")="5^28^10^13"
^DIST(.403,2,"AY",1,27,2,"N")="1^11^4^3^3"
^DIST(.403,2,"AY",1,27,3,"D")="4^61^15^.131"
^DIST(.403,2,"AY",1,27,3,"N")="0^4^2^1^4"
^DIST(.403,2,"AY",1,27,4,"D")="5^61^15^.132"
^DIST(.403,2,"AY",1,27,4,"N")="3^11^11^2^5"
^DIST(.403,2,"AY",1,27,5,"D")="10^32^9^200.05"
^DIST(.403,2,"AY",1,27,5,"N")="12^6^6^12^6"
^DIST(.403,2,"AY",1,27,6,"D")="11^32^20^200.06"
^DIST(.403,2,"AY",1,27,6,"N")="5^7^7^5^7"
^DIST(.403,2,"AY",1,27,7,"D")="12^32^11^200.09"
^DIST(.403,2,"AY",1,27,7,"N")="6^8^8^6^8"
^DIST(.403,2,"AY",1,27,8,"D")="13^32^5^31.2"
^DIST(.403,2,"AY",1,27,8,"N")="7^9^9^7^9"
^DIST(.403,2,"AY",1,27,9,"D")="14^32^30^31.3"
^DIST(.403,2,"AY",1,27,9,"N")="8^10^10^8^10"
^DIST(.403,2,"AY",1,27,10,"D")="16^32^3^11.1"
^DIST(.403,2,"AY",1,27,10,"N")="9^0^0^9^11"
^DIST(.403,2,"AY",1,27,11,"D")="6^61^15^.137"
^DIST(.403,2,"AY",1,27,11,"N")="4^12^12^4^12"
^DIST(.403,2,"AY",1,27,12,"D")="7^61^15^.138"
^DIST(.403,2,"AY",1,27,12,"N")="11^5^5^11^0"
^DIST(.403,2,"AY",1,"FIRST")="1,27"
^DIST(.403,2,"AY","CAP","ASK DEVICE TYPE AT SIGN-ON",1,1,27,5)=""
^DIST(.403,2,"AY","CAP","AUTO MENU",1,1,27,6)=""
^DIST(.403,2,"AY","CAP","DIGITAL PAGER",1,1,27,12)=""
^DIST(.403,2,"AY","CAP","INITIAL",1,1,27,1)=""
^DIST(.403,2,"AY","CAP","NICK NAME",1,1,27,2)=""
^DIST(.403,2,"AY","CAP","OFFICE PHONE",1,1,27,4)=""
^DIST(.403,2,"AY","CAP","PHONE",1,1,27,3)=""
^DIST(.403,2,"AY","CAP","PREFERRED EDITOR",1,1,27,9)=""
^DIST(.403,2,"AY","CAP","TEXT TERMINATOR",1,1,27,8)=""
^DIST(.403,2,"AY","CAP","TYPE-AHEAD",1,1,27,7)=""
^DIST(.403,2,"AY","CAP","VOICE PAGER",1,1,27,11)=""
^DIST(.403,2,"AY","CAP","WANT TO EDIT VERIFY CODE (Y/N)",1,1,27,10)=""
^DIST(.403,2,"AY","F200",.01,"L",1,26,2)=""
^DIST(.403,2,"AY","F200",.131,"L",1,27,3)=""
^DIST(.403,2,"AY","F200",.132,"L",1,27,4)=""
^DIST(.403,2,"AY","F200",.137,"L",1,27,11)=""
^DIST(.403,2,"AY","F200",.138,"L",1,27,12)=""
^DIST(.403,2,"AY","F200",1,"L",1,27,1)=""
^DIST(.403,2,"AY","F200",11.1,"L",1,27,10)=""
^DIST(.403,2,"AY","F200",13,"L",1,27,2)=""
^DIST(.403,2,"AY","F200",31.2,"L",1,27,8)=""
^DIST(.403,2,"AY","F200",31.3,"L",1,27,9)=""
^DIST(.403,2,"AY","F200",200.05,"L",1,27,5)=""
^DIST(.403,2,"AY","F200",200.06,"L",1,27,6)=""
^DIST(.403,2,"AY","F200",200.09,"L",1,27,7)=""
^DIST(.403,2,"AY","X",1,0,27)="EDIT USER CHARACTERISTICS"
^DIST(.403,2,"AY","X",1,1,0)="NAME:                                                               PAGE 1 OF 1"
^DIST(.403,2,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,2,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,2,"AY","X",1,4,19)="INITIAL:                           PHONE:"
^DIST(.403,2,"AY","X",1,5,17)="NICK NAME:                    OFFICE PHONE:"
^DIST(.403,2,"AY","X",1,6,48)="VOICE PAGER:"
^DIST(.403,2,"AY","X",1,7,46)="DIGITAL PAGER:"
^DIST(.403,2,"AY","X",1,10,4)="ASK DEVICE TYPE AT SIGN-ON:"
^DIST(.403,2,"AY","X",1,11,21)="AUTO MENU:"
^DIST(.403,2,"AY","X",1,12,20)="TYPE-AHEAD:"
^DIST(.403,2,"AY","X",1,13,15)="TEXT TERMINATOR:"
^DIST(.403,2,"AY","X",1,14,14)="PREFERRED EDITOR:"
^DIST(.403,2,"AY","X",1,16,0)="Want to edit VERIFY CODE (Y/N):"
^DIST(.403,3,0)="XUEXISTING USER^^^^2920804^3050404.1615^^200^0^0^1"
^DIST(.403,3,2)="1;33"
^DIST(.403,3,11)="S XUNOTRIG=1 D CHKPTR^XLFNAME2,REQ^XUSER2()"
^DIST(.403,3,12)="K XUNOTRIG,XUITNAME"
^DIST(.403,3,40,0)="^.4031I^11^9"
^DIST(.403,3,40,1,0)="1^^1,1^2^5"
^DIST(.403,3,40,1,1)="Page 1"
^DIST(.403,3,40,1,40,0)="^.4032PI^47^2"
^DIST(.403,3,40,1,40,28,0)="28^2^2,1^e"
^DIST(.403,3,40,1,40,47,0)="47^1^1,1^d"
^DIST(.403,3,40,1,40,"AC",1,47)=""
^DIST(.403,3,40,1,40,"AC",2,28)=""
^DIST(.403,3,40,1,40,"B",28,28)=""
^DIST(.403,3,40,1,40,"B",47,47)=""
^DIST(.403,3,40,2,0)="2^^1,1^3^1"
^DIST(.403,3,40,2,1)="Page 2"
^DIST(.403,3,40,2,15,0)="^^1^1^2941114^"
^DIST(.403,3,40,2,15,1,0)="This is Page 2 of the edit existing user."
^DIST(.403,3,40,2,40,0)="^.4032PI^47^2"
^DIST(.403,3,40,2,40,29,0)="29^2^2,1^e"
^DIST(.403,3,40,2,40,47,0)="47^1^1,1^d"
^DIST(.403,3,40,2,40,"AC",1,47)=""
^DIST(.403,3,40,2,40,"AC",2,29)=""
^DIST(.403,3,40,2,40,"B",29,29)=""
^DIST(.403,3,40,2,40,"B",47,47)=""
^DIST(.403,3,40,3,0)="1.1^^11,9^^^1^17,66^^"
^DIST(.403,3,40,3,1)="SECONDARY MENU OPTIONS Subpage"
^DIST(.403,3,40,3,40,0)="^.4032PI^30^1"
^DIST(.403,3,40,3,40,30,0)="30^1^2,3^e"
^DIST(.403,3,40,3,40,"AC",1,30)=""
^DIST(.403,3,40,3,40,"B",30,30)=""
^DIST(.403,3,40,4,0)="1.2^^8,16^^^1^13,59^^"
^DIST(.403,3,40,4,1)="DIVISION Subpage"
^DIST(.403,3,40,4,40,0)="^.4032PI^31^1"
^DIST(.403,3,40,4,40,31,0)="31^1^2,3^e"
^DIST(.403,3,40,4,40,"AC",1,31)=""
^DIST(.403,3,40,4,40,"B",31,31)=""
^DIST(.403,3,40,5,0)="3^^1,1^4^2"
^DIST(.403,3,40,5,1)="Page 3"
^DIST(.403,3,40,5,40,0)="^.4032PI^86^3"
^DIST(.403,3,40,5,40,47,0)="47^1^1,1^d"
^DIST(.403,3,40,5,40,50,0)="50^2^2,1^e"
^DIST(.403,3,40,5,40,86,0)="86^3^12,1^e"
^DIST(.403,3,40,5,40,86,2)="6^!IEN^n"
^DIST(.403,3,40,5,40,"AC",1,47)=""
^DIST(.403,3,40,5,40,"AC",2,50)=""
^DIST(.403,3,40,5,40,"AC",3,86)=""
^DIST(.403,3,40,5,40,"B",47,47)=""
^DIST(.403,3,40,5,40,"B",50,50)=""
^DIST(.403,3,40,5,40,"B",86,86)=""
^DIST(.403,3,40,8,0)="1.3^^8,12^^^1^17,65"
^DIST(.403,3,40,8,1)="Page 1.3^"
^DIST(.403,3,40,8,11)=""
^DIST(.403,3,40,8,12)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^DIST(.403,3,40,8,40,0)="^.4032IP^321^1"
^DIST(.403,3,40,8,40,321,0)="321^1^1,1^e"
^DIST(.403,3,40,8,40,321,1)="10.1"
^DIST(.403,3,40,8,40,"AC",1,321)=""
^DIST(.403,3,40,8,40,"B",321,321)=""
^DIST(.403,3,40,9,0)="4^^1,1^5^3"
^DIST(.403,3,40,9,1)="Page 4"
^DIST(.403,3,40,9,40,0)="^.4032IP^342^3"
^DIST(.403,3,40,9,40,47,0)="47^1^1,1^e"
^DIST(.403,3,40,9,40,341,0)="341^2^2,1^e"
^DIST(.403,3,40,9,40,342,0)="342^3^8,1^e"
^DIST(.403,3,40,9,40,342,2)="10^!IEN^n^^^"
^DIST(.403,3,40,9,40,"AC",1,47)=""
^DIST(.403,3,40,9,40,"AC",2,341)=""
^DIST(.403,3,40,9,40,"AC",3,342)=""
^DIST(.403,3,40,9,40,"B",47,47)=""
^DIST(.403,3,40,9,40,"B",341,341)=""
^DIST(.403,3,40,9,40,"B",342,342)=""
^DIST(.403,3,40,10,0)="5^^1,1^1^4"
^DIST(.403,3,40,10,1)="Page 5"
^DIST(.403,3,40,10,40,0)="^.4032IP^358^2"
^DIST(.403,3,40,10,40,47,0)="47^1^1,1^d"
^DIST(.403,3,40,10,40,358,0)="358^2^2,1^e"
^DIST(.403,3,40,10,40,"AC",1,47)=""
^DIST(.403,3,40,10,40,"AC",2,358)=""
^DIST(.403,3,40,10,40,"B",47,47)=""
^DIST(.403,3,40,10,40,"B",358,358)=""
^DIST(.403,3,40,11,0)="6^^9,45^^^1^13,80"
^DIST(.403,3,40,11,1)="Termination^11,2,1"
^DIST(.403,3,40,11,40,0)="^.4032IP^403^1"
^DIST(.403,3,40,11,40,403,0)="403^1^1,1^e"
^DIST(.403,3,40,11,40,"AC",1,403)=""
^DIST(.403,3,40,11,40,"B",403,403)=""
^DIST(.403,3,40,"B",1,1)=""
^DIST(.403,3,40,"B",1.1,3)=""
^DIST(.403,3,40,"B",1.2,4)=""
^DIST(.403,3,40,"B",1.3,8)=""
^DIST(.403,3,40,"B",2,2)=""
^DIST(.403,3,40,"B",3,5)=""
^DIST(.403,3,40,"B",4,9)=""
^DIST(.403,3,40,"B",5,10)=""
^DIST(.403,3,40,"B",6,11)=""
^DIST(.403,3,40,"C","DIVISION SUBPAGE",4)=""
^DIST(.403,3,40,"C","PAGE 1",1)=""
^DIST(.403,3,40,"C","PAGE 1.3",8)=""
^DIST(.403,3,40,"C","PAGE 2",2)=""
^DIST(.403,3,40,"C","PAGE 3",5)=""
^DIST(.403,3,40,"C","PAGE 4",9)=""
^DIST(.403,3,40,"C","PAGE 5",10)=""
^DIST(.403,3,40,"C","SECONDARY MENU OPTIONS SUBPAGE",3)=""
^DIST(.403,3,40,"C","TERMINATION",11)=""
^DIST(.403,3,"AY",1,0,0,"N")="13,28^1,28^1,28^13,28^1,28"
^DIST(.403,3,"AY",1,28)="1^0^200^^e^^^^1"
^DIST(.403,3,"AY",1,28,1,"D")="3^11^35^.01"
^DIST(.403,3,"AY",1,28,1,"N")="0^2^3^0^3"
^DIST(.403,3,"AY",1,28,2,"D")="4^11^30^8"
^DIST(.403,3,"AY",1,28,2,"N")="1^16^4^3^4"
^DIST(.403,3,"AY",1,28,3,"D")="3^64^5^1"
^DIST(.403,3,"AY",1,28,3,"N")="0^4^2^1^2"
^DIST(.403,3,"AY",1,28,4,"D")="4^64^10^13"
^DIST(.403,3,"AY",1,28,4,"N")="3^21^16^2^16"
^DIST(.403,3,"AY",1,28,5,"D")="10^32^30^201"
^DIST(.403,3,"AY",1,28,5,"N")="20^6^6^20^6"
^DIST(.403,3,"AY",1,28,6,"D")="11^32^30^203"
^DIST(.403,3,"AY",1,28,6,"N")="5^7^7^5^7^^^^^^1"
^DIST(.403,3,"AY",1,28,7,"D")="12^32^3^2.1"
^DIST(.403,3,"AY",1,28,7,"N")="6^8^9^6^9"
^DIST(.403,3,"AY",1,28,8,"D")="13^32^3^11.1"
^DIST(.403,3,"AY",1,28,8,"N")="7^12^12^9^12"
^DIST(.403,3,"AY",1,28,9,"D")="12^64^15^3"
^DIST(.403,3,"AY",1,28,9,"N")="6^8^8^7^8"
^DIST(.403,3,"AY",1,28,12,"D")="15^32^30^16"
^DIST(.403,3,"AY",1,28,12,"N")="8^13^13^8^13^^^^^^1"
^DIST(.403,3,"AY",1,28,13,"D")="16^32^30^29"
^DIST(.403,3,"AY",1,28,13,"N")="12^0^0^12^0"
^DIST(.403,3,"AY",1,28,14,"D")="6^64^10^28"
^DIST(.403,3,"AY",1,28,14,"N")="21^18^18^17^18"
^DIST(.403,3,"AY",1,28,16,"D")="5^11^9^9"
^DIST(.403,3,"AY",1,28,16,"N")="2^17^21^4^21"
^DIST(.403,3,"AY",1,28,17,"D")="6^11^10^10.6"
^DIST(.403,3,"AY",1,28,17,"N")="16^18^14^21^14"
^DIST(.403,3,"AY",1,28,18,"D")="7^11^3^7"
^DIST(.403,3,"AY",1,28,18,"N")="17^20^19^14^19"
^DIST(.403,3,"AY",1,28,19,"D")="7^65^11^9.2"
^DIST(.403,3,"AY",1,28,19,"N")="14^20^20^18^20"
^DIST(.403,3,"AY",1,28,20,"D")="8^22^45^9.4"
^DIST(.403,3,"AY",1,28,20,"N")="18^5^5^19^5"
^DIST(.403,3,"AY",1,28,21,"D")="5^64^11^5"
^DIST(.403,3,"AY",1,28,21,"N")="4^14^17^16^17"
^DIST(.403,3,"AY",1,47)="0^0^200^^d^^^^0"
^DIST(.403,3,"AY",1,47,1,"D")="1^6^30^.01"
^DIST(.403,3,"AY",1,"FIRST")="1,28"
^DIST(.403,3,"AY",2,0,0,"N")="12,29^1,29^1,29^12,29^1,29"
^DIST(.403,3,"AY",2,29)="1^0^200^^e^^^^1"
^DIST(.403,3,"AY",2,29,1,"D")="4^30^5^200.1"
^DIST(.403,3,"AY",2,29,1,"N")="0^2^2^0^2"
^DIST(.403,3,"AY",2,29,2,"D")="6^30^11^200.04"
^DIST(.403,3,"AY",2,29,2,"N")="1^4^18^1^18"
^DIST(.403,3,"AY",2,29,3,"D")="7^59^20^200.06"
^DIST(.403,3,"AY",2,29,3,"N")="2^5^6^4^5"
^DIST(.403,3,"AY",2,29,4,"D")="7^30^9^200.05"
^DIST(.403,3,"AY",2,29,4,"N")="2^6^3^18^3"
^DIST(.403,3,"AY",2,29,5,"D")="8^59^11^200.09"
^DIST(.403,3,"AY",2,29,5,"N")="3^16^16^6^6"
^DIST(.403,3,"AY",2,29,6,"D")="8^30^9^15"
^DIST(.403,3,"AY",2,29,6,"N")="4^16^5^3^16"
^DIST(.403,3,"AY",2,29,7,"D")="12^30^3^41"
^DIST(.403,3,"AY",2,29,7,"N")="17^8^14^17^14"
^DIST(.403,3,"AY",2,29,8,"D")="13^30^3^41.2"
^DIST(.403,3,"AY",2,29,8,"N")="7^10^10^14^10"
^DIST(.403,3,"AY",2,29,10,"D")="15^30^30^31.1"
^DIST(.403,3,"AY",2,29,10,"N")="8^12^12^8^12"
^DIST(.403,3,"AY",2,29,12,"D")="16^30^3^200.11"
^DIST(.403,3,"AY",2,29,12,"N")="10^0^0^10^0"
^DIST(.403,3,"AY",2,29,14,"D")="12^62^8^14"
^DIST(.403,3,"AY",2,29,14,"N")="17^8^8^7^8"
^DIST(.403,3,"AY",2,29,16,"D")="9^59^3^200.18"
^DIST(.403,3,"AY",2,29,16,"N")="5^17^17^5^17"
^DIST(.403,3,"AY",2,29,17,"D")="10^30^30^31.3"
^DIST(.403,3,"AY",2,29,17,"N")="16^7^7^16^7"
^DIST(.403,3,"AY",2,29,18,"D")="6^69^3^200.19"
^DIST(.403,3,"AY",2,29,18,"N")="1^3^4^2^4"
^DIST(.403,3,"AY",2,47)="0^0^200^^d^^^^0"
^DIST(.403,3,"AY",2,47,1,"D")="1^6^30^.01"
^DIST(.403,3,"AY",2,"FIRST")="1,29"
^DIST(.403,3,"AY",3,0,0,"N")="3,30^2,30^2,30^3,30^2,30"
^DIST(.403,3,"AY",3,30)="11^10^200.03^^e^^^^2"
^DIST(.403,3,"AY",3,30,2,"D")="13^34^30^.01"
^DIST(.403,3,"AY",3,30,2,"N")="0^3^3^0^3"
^DIST(.403,3,"AY",3,30,3,"D")="14^34^4^2"
^DIST(.403,3,"AY",3,30,3,"N")="2^0^0^2^0"
^DIST(.403,3,"AY",3,"FIRST")="2,30"
^DIST(.403,3,"AY",4,0,0,"N")="3,31^2,31^2,31^3,31^2,31"
^DIST(.403,3,"AY",4,31)="8^17^200.02^^e^^^^2"
^DIST(.403,3,"AY",4,31,2,"D")="10^27^30^.01"
^DIST(.403,3,"AY",4,31,2,"N")="0^3^3^0^3"
^DIST(.403,3,"AY",4,31,3,"D")="11^27^3^1"
^DIST(.403,3,"AY",4,31,3,"N")="2^0^0^2^0"
^DIST(.403,3,"AY",4,"FIRST")="2,31"
^DIST(.403,3,"AY",5,0,0,"N")="1,86^2,50^2,50^3,86^2,50"
^DIST(.403,3,"AY",5,47)="0^0^200^^d^^^^0"
^DIST(.403,3,"AY",5,47,1,"D")="1^6^30^.01"
^DIST(.403,3,"AY",5,50)="1^0^200^^e^^^^2"
^DIST(.403,3,"AY",5,50,2,"D")="3^30^21^15"
^DIST(.403,3,"AY",5,50,2,"N")="0^3^3^0^3"
^DIST(.403,3,"AY",5,50,3,"D")="5^18^20^.131"
^DIST(.403,3,"AY",5,50,3,"N")="2^7^4^2^4"
^DIST(.403,3,"AY",5,50,4,"D")="5^55^20^.132"
^DIST(.403,3,"AY",5,50,4,"N")="2^6^7^3^7"
^DIST(.403,3,"AY",5,50,5,"D")="7^18^20^.137"
^DIST(.403,3,"AY",5,50,5,"N")="7^9^8^6^8"
^DIST(.403,3,"AY",5,50,6,"D")="6^55^20^.136"
^DIST(.403,3,"AY",5,50,6,"N")="4^8^5^7^5"
^DIST(.403,3,"AY",5,50,7,"D")="6^18^20^.135"
^DIST(.403,3,"AY",5,50,7,"N")="3^5^6^4^6"
^DIST(.403,3,"AY",5,50,8,"D")="7^55^20^.138"
^DIST(.403,3,"AY",5,50,8,"N")="6^9^9^5^9"
^DIST(.403,3,"AY",5,50,9,"D")="8^18^10^200.07"
^DIST(.403,3,"AY",5,50,9,"N")="5^1,86^1,86^8^1,86"
^DIST(.403,3,"AY",5,86)="11^0^200.05^^e^^6^^1^1"
^DIST(.403,3,"AY",5,86,1,"D")="11^1^40^.01"
^DIST(.403,3,"AY",5,86,1,"N")="9,50^0^0^9,50^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,3,"AY",5,86,2,"D")="11^51^12^2"
^DIST(.403,3,"AY",5,86,2,"N")="9,50^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,3,"AY",5,86,3,"D")="11^66^12^3"
^DIST(.403,3,"AY",5,86,3,"N")="9,50^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,3,"AY",5,"FIRST")="2,50"
^DIST(.403,3,"AY",8,0,0,"N")="6,321^5,321^5,321^6,321^5,321"
^DIST(.403,3,"AY",8,321)="7^11^20^^e^^^1^5"
^DIST(.403,3,"AY",8,321,2,"D")="12^28^35^1"
^DIST(.403,3,"AY",8,321,2,"N")="4^6^6^4^6"
^DIST(.403,3,"AY",8,321,3,"D")="10^28^25^2"
^DIST(.403,3,"AY",8,321,3,"N")="5^4^4^5^4"
^DIST(.403,3,"AY",8,321,4,"D")="11^28^25^3"
^DIST(.403,3,"AY",8,321,4,"N")="3^2^2^3^2"
^DIST(.403,3,"AY",8,321,5,"D")="9^28^10^4"
^DIST(.403,3,"AY",8,321,5,"N")="0^3^3^0^3"
^DIST(.403,3,"AY",8,321,6,"D")="13^28^10^5"
^DIST(.403,3,"AY",8,321,6,"N")="2^0^0^2^0"
^DIST(.403,3,"AY",8,321,8,"D")="15^13^35^0^^^^^1"
^DIST(.403,3,"AY",8,321,"PTB")="200,10.1"
^DIST(.403,3,"AY",8,321,"PTB",1)="S X=$$GET^DDSVAL(200,.DA,10.1),DA=X"
^DIST(.403,3,"AY",8,"FIRST")="5,321"
^DIST(.403,3,"AY",9,0,0,"N")="1,342^1,47^1,47^3,342^1,47"
^DIST(.403,3,"AY",9,47)="0^0^200^^e^^^^1"
^DIST(.403,3,"AY",9,47,1,"D")="1^6^30^.01"
^DIST(.403,3,"AY",9,47,1,"N")="0^2,341^2,341^0^2,341"
^DIST(.403,3,"AY",9,341)="1^0^200^^e^^^^2"
^DIST(.403,3,"AY",9,341,2,"D")="3^28^3^101.01"
^DIST(.403,3,"AY",9,341,2,"N")="1,47^1,342^3^1,47^3"
^DIST(.403,3,"AY",9,341,3,"D")="3^47^30^101.02"
^DIST(.403,3,"AY",9,341,3,"N")="1,47^1,342^1,342^2^1,342"
^DIST(.403,3,"AY",9,342)="7^0^200.010113^^e^^10^^1^1"
^DIST(.403,3,"AY",9,342,1,"D")="7^2^3^.01"
^DIST(.403,3,"AY",9,342,1,"N")="2,341^0^0^3,341^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,3,"AY",9,342,2,"D")="7^46^11^.02"
^DIST(.403,3,"AY",9,342,2,"N")="2,341^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,3,"AY",9,342,3,"D")="7^63^11^.03"
^DIST(.403,3,"AY",9,342,3,"N")="3,341^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,3,"AY",9,342,4,"D")="7^8^35^0^^^^^1"
^DIST(.403,3,"AY",9,342,4,"N")="^^0^^0"
^DIST(.403,3,"AY",9,"FIRST")="1,47"
^DIST(.403,3,"AY",10,0,0,"N")="11,358^3,358^3,358^11,358^3,358"
^DIST(.403,3,"AY",10,47)="0^0^200^^d^^^^0"
^DIST(.403,3,"AY",10,47,1,"D")="1^6^30^.01"
^DIST(.403,3,"AY",10,358)="1^0^200^^e^^^^3"
^DIST(.403,3,"AY",10,358,3,"D")="4^20^50^.111"
^DIST(.403,3,"AY",10,358,3,"N")="0^4^4^0^4"
^DIST(.403,3,"AY",10,358,4,"D")="5^20^50^.112"
^DIST(.403,3,"AY",10,358,4,"N")="3^5^5^3^5"
^DIST(.403,3,"AY",10,358,5,"D")="6^20^50^.113"
^DIST(.403,3,"AY",10,358,5,"N")="4^6^6^4^6"
^DIST(.403,3,"AY",10,358,6,"D")="7^20^30^.114"
^DIST(.403,3,"AY",10,358,6,"N")="5^7^7^5^7"
^DIST(.403,3,"AY",10,358,7,"D")="8^20^30^.115"
^DIST(.403,3,"AY",10,358,7,"N")="6^8^8^6^8"
^DIST(.403,3,"AY",10,358,8,"D")="9^20^10^.116"
^DIST(.403,3,"AY",10,358,8,"N")="7^9^9^7^9"
^DIST(.403,3,"AY",10,358,9,"D")="10^20^50^.151"
^DIST(.403,3,"AY",10,358,9,"N")="8^15^15^8^15"
^DIST(.403,3,"AY",10,358,11,"D")="16^19^59^12.1"
^DIST(.403,3,"AY",10,358,11,"N")="12^0^0^12^0"
^DIST(.403,3,"AY",10,358,12,"D")="15^18^59^12.2"
^DIST(.403,3,"AY",10,358,12,"N")="16^11^11^16^11"
^DIST(.403,3,"AY",10,358,13,"D")="13^65^8^12.3"
^DIST(.403,3,"AY",10,358,13,"N")="14^16^16^17^16"
^DIST(.403,3,"AY",10,358,14,"D")="12^19^27^12.4"
^DIST(.403,3,"AY",10,358,14,"N")="15^17^17^15^17"
^DIST(.403,3,"AY",10,358,15,"D")="11^35^3^12.6"
^DIST(.403,3,"AY",10,358,15,"N")="9^14^14^9^14"
^DIST(.403,3,"AY",10,358,16,"D")="14^62^11^12.7"
^DIST(.403,3,"AY",10,358,16,"N")="17^12^12^13^12"
^DIST(.403,3,"AY",10,358,17,"D")="13^24^11^12.8"
^DIST(.403,3,"AY",10,358,17,"N")="14^16^13^14^13"
^DIST(.403,3,"AY",10,"FIRST")="3,358"
^DIST(.403,3,"AY",11,0,0,"N")="2,403^1,403^1,403^2,403^1,403"
^DIST(.403,3,"AY",11,403)="8^44^200^^e^^^^1"
^DIST(.403,3,"AY",11,403,1,"D")="9^70^3^9.21"
^DIST(.403,3,"AY",11,403,1,"N")="0^2^2^0^2"
^DIST(.403,3,"AY",11,403,2,"D")="11^74^3^9.22"
^DIST(.403,3,"AY",11,403,2,"N")="1^0^0^1^0"
^DIST(.403,3,"AY",11,"FIRST")="1,403"
^DIST(.403,3,"AY","ASUB",1,28,19)="11"
^DIST(.403,3,"AY","CAP","ALLOWED TO USE SPOOLER","1^2^10^5^9",2,29,7)=""
^DIST(.403,3,"AY","CAP","ALWAYS SHOW SECONDARIES","1^2^10^5^9",2,29,12)=""
^DIST(.403,3,"AY","CAP","ASK DEVICE TYPE AT SIGN-ON","1^2^10^5^9",2,29,4)=""
^DIST(.403,3,"AY","CAP","AUTO MENU","1^2^10^5^9",2,29,3)=""
^DIST(.403,3,"AY","CAP","AUTO SIGN-ON","1^2^10^5^9",2,29,16)=""
^DIST(.403,3,"AY","CAP","CAN MAKE INTO A MAIL MESSAGE","1^2^10^5^9",2,29,8)=""
^DIST(.403,3,"AY","CAP","CITY","1^2^10^5^9",10,358,6)=""
^DIST(.403,3,"AY","CAP","COMMERCIAL PHONE","1^2^10^5^9",5,50,7)=""
^DIST(.403,3,"AY","CAP","DEFAULT",4,4,31,3)=""
^DIST(.403,3,"AY","CAP","DEGREE","1^2^10^5^9",1,28,17)=""
^DIST(.403,3,"AY","CAP","DELETE ALL MAIL ACCESS",11,11,403,1)=""
^DIST(.403,3,"AY","CAP","DELETE KEYS AT TERMINATION",11,11,403,2)=""
^DIST(.403,3,"AY","CAP","DIGITAL PAGER","1^2^10^5^9",5,50,8)=""
^DIST(.403,3,"AY","CAP","DISUSER","1^2^10^5^9",1,28,18)=""
^DIST(.403,3,"AY","CAP","DIVISION",4,4,31,2)=""
^DIST(.403,3,"AY","CAP","DIVISION","1^2^10^5^9",1,28,12)=""
^DIST(.403,3,"AY","CAP","DOB","1^2^10^5^9",1,28,21)=""
^DIST(.403,3,"AY","CAP","E-MAIL ADDRESS","1^2^10^5^9",10,358,9)=""
^DIST(.403,3,"AY","CAP","FAMILY (LAST)",8,8,321,2)=""
^DIST(.403,3,"AY","CAP","FAX NUMBER","1^2^10^5^9",5,50,6)=""
^DIST(.403,3,"AY","CAP","FILE MANAGER ACCESS CODE","1^2^10^5^9",1,28,9)=""
^DIST(.403,3,"AY","CAP","FILE RANGE","1^2^10^5^9",2,29,10)=""
^DIST(.403,3,"AY","CAP","GIVEN (FIRST)",8,8,321,3)=""
^DIST(.403,3,"AY","CAP","INITIAL","1^2^10^5^9",1,28,3)=""
^DIST(.403,3,"AY","CAP","IS THIS PERSON AN ACTIVE TRAINEE?","1^2^10^5^9",10,358,15)=""
^DIST(.403,3,"AY","CAP","LANGUAGE","1^2^10^5^9",5,50,9)=""
^DIST(.403,3,"AY","CAP","LAST TRAINING MONTH & YEAR","1^2^10^5^9",10,358,13)=""
^DIST(.403,3,"AY","CAP","MAIL CODE","1^2^10^5^9",1,28,14)=""
^DIST(.403,3,"AY","CAP","MIDDLE",8,8,321,4)=""
^DIST(.403,3,"AY","CAP","MULTIPLE SIGN-ON","1^2^10^5^9",2,29,2)=""
^DIST(.403,3,"AY","CAP","MULTIPLE SIGN-ON LIMIT","1^2^10^5^9",2,29,18)=""
^DIST(.403,3,"AY","CAP","NAME","1^2^10^5^9",9,47,1)=""
^DIST(.403,3,"AY","CAP","NAME...","1^2^10^5^9",1,28,1)=""
^DIST(.403,3,"AY","CAP","NICK NAME","1^2^10^5^9",1,28,4)=""
^DIST(.403,3,"AY","CAP","OE/RR LIST","1^2^10^5^9",9,341,3)=""
^DIST(.403,3,"AY","CAP","OFFICE PHONE","1^2^10^5^9",5,50,4)=""
^DIST(.403,3,"AY","CAP","PAC","1^2^10^5^9",2,29,14)=""
^DIST(.403,3,"AY","CAP","PHONE","1^2^10^5^9",5,50,3)=""
^DIST(.403,3,"AY","CAP","PREFERRED EDITOR","1^2^10^5^9",2,29,17)=""
^DIST(.403,3,"AY","CAP","PREFIX",8,8,321,5)=""
^DIST(.403,3,"AY","CAP","PRIMARY MENU OPTION","1^2^10^5^9",1,28,5)=""
^DIST(.403,3,"AY","CAP","PROGRAM OF STUDY","1^2^10^5^9",10,358,12)=""
^DIST(.403,3,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^10^5^9",2,29,6)=""
^DIST(.403,3,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^10^5^9",5,50,2)=""
^DIST(.403,3,"AY","CAP","RESTRICT PATIENT SELECTION","1^2^10^5^9",9,341,2)=""
^DIST(.403,3,"AY","CAP","SECONDARY MENU OPTIONS",3,3,30,2)=""
^DIST(.403,3,"AY","CAP","SECONDARY MENU OPTIONS","1^2^10^5^9",1,28,6)=""
^DIST(.403,3,"AY","CAP","SERVICE/SECTION","1^2^10^5^9",1,28,13)=""
^DIST(.403,3,"AY","CAP","SSN","1^2^10^5^9",1,28,16)=""
^DIST(.403,3,"AY","CAP","START DATE OF TRAINING","1^2^10^5^9",10,358,17)=""
^DIST(.403,3,"AY","CAP","STATE","1^2^10^5^9",10,358,7)=""
^DIST(.403,3,"AY","CAP","STREET 1","1^2^10^5^9",10,358,3)=""
^DIST(.403,3,"AY","CAP","STREET 2","1^2^10^5^9",10,358,4)=""
^DIST(.403,3,"AY","CAP","STREET 3","1^2^10^5^9",10,358,5)=""
^DIST(.403,3,"AY","CAP","SUFFIX",8,8,321,6)=""
^DIST(.403,3,"AY","CAP","SYNONYM",3,3,30,3)=""
^DIST(.403,3,"AY","CAP","TARGET DEGREE LVL","1^2^10^5^9",10,358,11)=""
^DIST(.403,3,"AY","CAP","TERMINATION DATE","1^2^10^5^9",1,28,19)=""
^DIST(.403,3,"AY","CAP","TERMINATION REASON","1^2^10^5^9",1,28,20)=""
^DIST(.403,3,"AY","CAP","TIMED READ (# OF SECONDS)","1^2^10^5^9",2,29,1)=""
^DIST(.403,3,"AY","CAP","TITLE","1^2^10^5^9",1,28,2)=""
^DIST(.403,3,"AY","CAP","TRAINEE INACTIVE (DATE)","1^2^10^5^9",10,358,16)=""
^DIST(.403,3,"AY","CAP","TYPE-AHEAD","1^2^10^5^9",2,29,5)=""
^DIST(.403,3,"AY","CAP","VHA TRAINING FAC.","1^2^10^5^9",10,358,14)=""
^DIST(.403,3,"AY","CAP","VOICE PAGER","1^2^10^5^9",5,50,5)=""
^DIST(.403,3,"AY","CAP","WANT TO EDIT ACCESS CODE (Y/N)","1^2^10^5^9",1,28,7)=""
^DIST(.403,3,"AY","CAP","WANT TO EDIT VERIFY CODE (Y/N)","1^2^10^5^9",1,28,8)=""
^DIST(.403,3,"AY","CAP","ZIP CODE","1^2^10^5^9",10,358,8)=""
^DIST(.403,3,"AY","COMP",20,1,8,321,8)=""
^DIST(.403,3,"AY","COMP",20,2,8,321,8)=""
^DIST(.403,3,"AY","COMP",20,3,8,321,8)=""
^DIST(.403,3,"AY","COMP",20,5,8,321,8)=""
^DIST(.403,3,"AY","COMP",200.010113,.01,9,342,4)=""
^DIST(.403,3,"AY","COMPE",321,8)="N NC S NC(""FAMILY"")=DDSE(1),NC(""GIVEN"")=DDSE(2),NC(""MIDDLE"")=DDSE(3),NC(""SUFFIX"")=DDSE(4),(XLFNEW,Y)=$$BLDNAME^XLFNAME8(.NC,35)"
^DIST(.403,3,"AY","COMPE",321,8,1)="N X S X=$$GET^DDSVAL(20,.DA,1,"""",""E""),DDSE(1)=X"
^DIST(.403,3,"AY","COMPE",321,8,2)="N X S X=$$GET^DDSVAL(20,.DA,2,"""",""E""),DDSE(2)=X"
^DIST(.403,3,"AY","COMPE",321,8,3)="N X S X=$$GET^DDSVAL(20,.DA,3,"""",""E""),DDSE(3)=X"
^DIST(.403,3,"AY","COMPE",321,8,4)="N X S X=$$GET^DDSVAL(20,.DA,5,"""",""E""),DDSE(4)=X"
^DIST(.403,3,"AY","COMPE",342,4)="S Y=$S($D(^DD(101.13,1,0))#2:$$GET^DDSVAL(101.13,DDSE(1),1),1:"""")"
^DIST(.403,3,"AY","COMPE",342,4,1)="N X S X=$$GET^DDSVAL(200.010113,.DA,.01),DDSE(1)=X"
^DIST(.403,3,"AY","F20",0,"L",8,321,8)=""
^DIST(.403,3,"AY","F20",1,"L",8,321,2)=""
^DIST(.403,3,"AY","F20",2,"L",8,321,3)=""
^DIST(.403,3,"AY","F20",3,"L",8,321,4)=""
^DIST(.403,3,"AY","F20",4,"L",8,321,5)=""
^DIST(.403,3,"AY","F20",5,"L",8,321,6)=""
^DIST(.403,3,"AY","F200",.01,"L",1,28,1)=""
^DIST(.403,3,"AY","F200",.01,"L",1,47,1)=""
^DIST(.403,3,"AY","F200",.01,"L",2,47,1)=""
^DIST(.403,3,"AY","F200",.01,"L",5,47,1)=""
^DIST(.403,3,"AY","F200",.01,"L",9,47,1)=""
^DIST(.403,3,"AY","F200",.01,"L",10,47,1)=""
^DIST(.403,3,"AY","F200",.111,"L",10,358,3)=""
^DIST(.403,3,"AY","F200",.112,"L",10,358,4)=""
^DIST(.403,3,"AY","F200",.113,"L",10,358,5)=""
^DIST(.403,3,"AY","F200",.114,"L",10,358,6)=""
^DIST(.403,3,"AY","F200",.115,"L",10,358,7)=""
^DIST(.403,3,"AY","F200",.116,"L",10,358,8)=""
^DIST(.403,3,"AY","F200",.131,"L",5,50,3)=""
^DIST(.403,3,"AY","F200",.132,"L",5,50,4)=""
^DIST(.403,3,"AY","F200",.135,"L",5,50,7)=""
^DIST(.403,3,"AY","F200",.136,"L",5,50,6)=""
^DIST(.403,3,"AY","F200",.137,"L",5,50,5)=""
^DIST(.403,3,"AY","F200",.138,"L",5,50,8)=""
^DIST(.403,3,"AY","F200",.151,"L",10,358,9)=""
^DIST(.403,3,"AY","F200",1,"L",1,28,3)=""
^DIST(.403,3,"AY","F200",2.1,"L",1,28,7)=""
^DIST(.403,3,"AY","F200",3,"L",1,28,9)=""
^DIST(.403,3,"AY","F200",5,"L",1,28,21)=""
^DIST(.403,3,"AY","F200",7,"L",1,28,18)=""
^DIST(.403,3,"AY","F200",8,"L",1,28,2)=""
^DIST(.403,3,"AY","F200",9,"L",1,28,16)=""
^DIST(.403,3,"AY","F200",9.2,"L",1,28,19)=""
^DIST(.403,3,"AY","F200",9.21,"L",11,403,1)=""
^DIST(.403,3,"AY","F200",9.22,"L",11,403,2)=""
^DIST(.403,3,"AY","F200",9.4,"L",1,28,20)=""
^DIST(.403,3,"AY","F200",10.6,"L",1,28,17)=""
^DIST(.403,3,"AY","F200",11.1,"L",1,28,8)=""
^DIST(.403,3,"AY","F200",12.1,"L",10,358,11)=""
^DIST(.403,3,"AY","F200",12.2,"L",10,358,12)=""
^DIST(.403,3,"AY","F200",12.3,"L",10,358,13)=""
^DIST(.403,3,"AY","F200",12.4,"L",10,358,14)=""
^DIST(.403,3,"AY","F200",12.6,"L",10,358,15)=""
^DIST(.403,3,"AY","F200",12.7,"L",10,358,16)=""
^DIST(.403,3,"AY","F200",12.8,"L",10,358,17)=""
^DIST(.403,3,"AY","F200",13,"L",1,28,4)=""
^DIST(.403,3,"AY","F200",14,"L",2,29,14)=""
^DIST(.403,3,"AY","F200",15,"L",2,29,6)=""
^DIST(.403,3,"AY","F200",15,"L",5,50,2)=""
^DIST(.403,3,"AY","F200",16,"L",1,28,12)=""
^DIST(.403,3,"AY","F200",28,"L",1,28,14)=""
^DIST(.403,3,"AY","F200",29,"L",1,28,13)=""
^DIST(.403,3,"AY","F200",31.1,"L",2,29,10)=""
^DIST(.403,3,"AY","F200",31.3,"L",2,29,17)=""
^DIST(.403,3,"AY","F200",41,"L",2,29,7)=""
^DIST(.403,3,"AY","F200",41.2,"L",2,29,8)=""
^DIST(.403,3,"AY","F200",101.01,"L",9,341,2)=""
^DIST(.403,3,"AY","F200",101.02,"L",9,341,3)=""
^DIST(.403,3,"AY","F200",200.04,"L",2,29,2)=""
^DIST(.403,3,"AY","F200",200.05,"L",2,29,4)=""
^DIST(.403,3,"AY","F200",200.06,"L",2,29,3)=""
^DIST(.403,3,"AY","F200",200.07,"L",5,50,9)=""
^DIST(.403,3,"AY","F200",200.09,"L",2,29,5)=""
^DIST(.403,3,"AY","F200",200.1,"L",2,29,1)=""
^DIST(.403,3,"AY","F200",200.11,"L",2,29,12)=""
^DIST(.403,3,"AY","F200",200.18,"L",2,29,16)=""
^DIST(.403,3,"AY","F200",200.19,"L",2,29,18)=""
^DIST(.403,3,"AY","F200",201,"L",1,28,5)=""
^DIST(.403,3,"AY","F200",203,"L",1,28,6)=""
^DIST(.403,3,"AY","F200.010113",0,"L",9,342,4)=""
^DIST(.403,3,"AY","F200.010113",.01,"L",9,342,1)=""
^DIST(.403,3,"AY","F200.010113",.02,"L",9,342,2)=""
^DIST(.403,3,"AY","F200.010113",.03,"L",9,342,3)=""
^DIST(.403,3,"AY","F200.02",.01,"L",4,31,2)=""
^DIST(.403,3,"AY","F200.02",1,"L",4,31,3)=""
^DIST(.403,3,"AY","F200.03",.01,"L",3,30,2)=""
^DIST(.403,3,"AY","F200.03",2,"L",3,30,3)=""
^DIST(.403,3,"AY","F200.05",.01,"L",5,86,1)=""
^DIST(.403,3,"AY","F200.05",2,"L",5,86,2)=""
^DIST(.403,3,"AY","F200.05",3,"L",5,86,3)=""
^DIST(.403,3,"AY","PT",200,10.1,8,321)=""
^DIST(.403,3,"AY","X",1,0,29)="Edit an Existing User"
^DIST(.403,3,"AY","X",1,1,0)="NAME:                                                               Page 1 of 5"
^DIST(.403,3,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,3,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,3,"AY","X",1,3,3)="NAME...                                             INITIAL:"
^DIST(.403,3,"AY","X",1,3,3,"A")="1;7;U"
^DIST(.403,3,"AY","X",1,4,4)="TITLE:                                           NICK NAME:"
^DIST(.403,3,"AY","X",1,5,6)="SSN:                                                 DOB:"
^DIST(.403,3,"AY","X",1,6,3)="DEGREE:                                           MAIL CODE:"
^DIST(.403,3,"AY","X",1,7,2)="DISUSER:                                     TERMINATION DATE:"
^DIST(.403,3,"AY","X",1,8,2)="Termination Reason:"
^DIST(.403,3,"AY","X",1,10,11)="PRIMARY MENU OPTION:"
^DIST(.403,3,"AY","X",1,11,1)="Select SECONDARY MENU OPTIONS:"
^DIST(.403,3,"AY","X",1,12,0)="Want to edit ACCESS CODE (Y/N):       FILE MANAGER ACCESS CODE:"
^DIST(.403,3,"AY","X",1,13,0)="Want to edit VERIFY CODE (Y/N):"
^DIST(.403,3,"AY","X",1,15,15)="Select DIVISION:"
^DIST(.403,3,"AY","X",1,16,15)="SERVICE/SECTION:"
^DIST(.403,3,"AY","X",1,16,15,"A")="1;15;U"
^DIST(.403,3,"AY","X",2,0,29)="Edit an Existing User"
^DIST(.403,3,"AY","X",2,1,0)="NAME:                                                               Page 2 of 5"
^DIST(.403,3,"AY","X",2,1,0,"A")="1;4;U"
^DIST(.403,3,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,3,"AY","X",2,4,3)="TIMED READ (# OF SECONDS):"
^DIST(.403,3,"AY","X",2,6,12)="MULTIPLE SIGN-ON:                MULTIPLE SIGN-ON LIMIT:"
^DIST(.403,3,"AY","X",2,7,2)="ASK DEVICE TYPE AT SIGN-ON:                   AUTO MENU:"
^DIST(.403,3,"AY","X",2,8,0)="PROHIBITED TIMES FOR SIGN-ON:                  TYPE-AHEAD:"
^DIST(.403,3,"AY","X",2,9,45)="AUTO SIGN-ON:"
^DIST(.403,3,"AY","X",2,10,12)="Preferred Editor:"
^DIST(.403,3,"AY","X",2,12,6)="ALLOWED TO USE SPOOLER:                            PAC:"
^DIST(.403,3,"AY","X",2,13,0)="CAN MAKE INTO A MAIL MESSAGE:"
^DIST(.403,3,"AY","X",2,15,18)="FILE RANGE:"
^DIST(.403,3,"AY","X",2,16,5)="ALWAYS SHOW SECONDARIES:"
^DIST(.403,3,"AY","X",3,11,42)="SECONDARY MENU OPTIONS"
^DIST(.403,3,"AY","X",3,13,10)="SECONDARY MENU OPTIONS:"
^DIST(.403,3,"AY","X",3,14,25)="SYNONYM:"
^DIST(.403,3,"AY","X",4,8,49)="DIVISION"
^DIST(.403,3,"AY","X",4,10,17)="DIVISION:"
^DIST(.403,3,"AY","X",4,11,18)="DEFAULT:"
^DIST(.403,3,"AY","X",5,0,29)="Edit an Existing User"
^DIST(.403,3,"AY","X",5,1,0)="NAME:                                                               Page 3 of 5"
^DIST(.403,3,"AY","X",5,1,0,"A")="1;4;U"
^DIST(.403,3,"AY","X",5,2,0)="_______________________________________________________________________________"
^DIST(.403,3,"AY","X",5,3,0)="PROHIBITED TIMES FOR SIGN-ON:"
^DIST(.403,3,"AY","X",5,5,11)="PHONE:                        OFFICE PHONE:"
^DIST(.403,3,"AY","X",5,6,0)="COMMERCIAL PHONE:                          FAX NUMBER:"
^DIST(.403,3,"AY","X",5,7,5)="VOICE PAGER:                       DIGITAL PAGER:"
^DIST(.403,3,"AY","X",5,8,8)="LANGUAGE:"
^DIST(.403,3,"AY","X",5,10,1)="Person Class                                         Effective     Expired"
^DIST(.403,3,"AY","X",8,8,48)="NAME COMPONENTS"
^DIST(.403,3,"AY","X",8,9,20)="Prefix:"
^DIST(.403,3,"AY","X",8,10,13)="Given (First):"
^DIST(.403,3,"AY","X",8,10,13,"A")="1;13;U"
^DIST(.403,3,"AY","X",8,11,20)="Middle:"
^DIST(.403,3,"AY","X",8,12,13)="Family (Last):"
^DIST(.403,3,"AY","X",8,12,13,"A")="1;13;U"
^DIST(.403,3,"AY","X",8,13,20)="Suffix:"
^DIST(.403,3,"AY","X",9,0,29)="Edit an Existing User"
^DIST(.403,3,"AY","X",9,1,0)="NAME:                                                               Page 4 of 5"
^DIST(.403,3,"AY","X",9,1,0,"A")="1;4;U"
^DIST(.403,3,"AY","X",9,2,0)="_______________________________________________________________________________"
^DIST(.403,3,"AY","X",9,3,0)="RESTRICT PATIENT SELECTION:        OE/RR LIST:"
^DIST(.403,3,"AY","X",9,5,0)="CPRS TAB ACCESS:"
^DIST(.403,3,"AY","X",9,6,2)="Name  Description                          Effective Date  Expiration Date"
^DIST(.403,3,"AY","X",10,0,29)="Edit an Existing User"
^DIST(.403,3,"AY","X",10,1,0)="NAME:                                                               Page 5 of 5"
^DIST(.403,3,"AY","X",10,1,0,"A")="1;4;U"
^DIST(.403,3,"AY","X",10,2,0)="_______________________________________________________________________________"
^DIST(.403,3,"AY","X",10,3,0)="PERMANENT ADDRESS:"
^DIST(.403,3,"AY","X",10,4,10)="Street 1:"
^DIST(.403,3,"AY","X",10,5,10)="Street 2:"
^DIST(.403,3,"AY","X",10,6,10)="Street 3:"
^DIST(.403,3,"AY","X",10,7,14)="City:"
^DIST(.403,3,"AY","X",10,8,13)="State:"
^DIST(.403,3,"AY","X",10,9,10)="Zip Code:"
^DIST(.403,3,"AY","X",10,10,4)="E-Mail Address:"
^DIST(.403,3,"AY","X",10,11,0)="Is this person an active Trainee?:"
^DIST(.403,3,"AY","X",10,12,0)="VHA Training Fac.:"
^DIST(.403,3,"AY","X",10,13,0)="Start Date of Training:              Last Training Month & Year:"
^DIST(.403,3,"AY","X",10,14,37)="Trainee Inactive (Date):"
^DIST(.403,3,"AY","X",10,15,0)="Program of Study:"
^DIST(.403,3,"AY","X",10,16,0)="Target Degree Lvl:"
^DIST(.403,3,"AY","X",11,9,46)="DELETE ALL MAIL ACCESS:"
^DIST(.403,3,"AY","X",11,11,46)="DELETE KEYS AT TERMINATION:"
^DIST(.403,4,0)="XUDEVICE MT^^^^2921016^^^3.5^0^0^1"
^DIST(.403,4,40,0)="^.4031I^1^1"
^DIST(.403,4,40,1,0)="1^32^1,1^^^0"
^DIST(.403,4,40,1,1)="Page 1 of 1"
^DIST(.403,4,40,1,15,0)="^^1^1^2921022^^^^"
^DIST(.403,4,40,1,15,1,0)="SAMPLE HEADER BLOCK"
^DIST(.403,4,40,1,40,0)="^.4032PI^33^1"
^DIST(.403,4,40,1,40,33,0)="33^1^1,1^e"
^DIST(.403,4,40,1,40,"AC",1,33)=""
^DIST(.403,4,40,1,40,"B",33,33)=""
^DIST(.403,4,40,"B",1,1)=""
^DIST(.403,4,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,4,"AY",1,0,0,"N")="10,33^1,33^1,33^10,33^1,33"
^DIST(.403,4,"AY",1,32)="0^0^3.5^^h"
^DIST(.403,4,"AY",1,32,2,"D")="1^6^30^.01"
^DIST(.403,4,"AY",1,33)="0^0^3.5^^e^^^^1"
^DIST(.403,4,"AY",1,33,1,"D")="4^6^30^.01"
^DIST(.403,4,"AY",1,33,1,"N")="0^3^2^0^2"
^DIST(.403,4,"AY",1,33,2,"D")="4^58^20^.02"
^DIST(.403,4,"AY",1,33,2,"N")="0^4^3^1^3"
^DIST(.403,4,"AY",1,33,3,"D")="5^6^30^1"
^DIST(.403,4,"AY",1,33,3,"N")="1^5^4^2^4"
^DIST(.403,4,"AY",1,33,4,"D")="5^58^20^1.9"
^DIST(.403,4,"AY",1,33,4,"N")="2^6^5^3^5"
^DIST(.403,4,"AY",1,33,5,"D")="6^6^20^2"
^DIST(.403,4,"AY",1,33,5,"N")="3^7^6^4^6"
^DIST(.403,4,"AY",1,33,6,"D")="6^58^3^1.95"
^DIST(.403,4,"AY",1,33,6,"N")="4^13^7^5^7"
^DIST(.403,4,"AY",1,33,7,"D")="8^9^15^3"
^DIST(.403,4,"AY",1,33,7,"N")="5^14^13^6^13"
^DIST(.403,4,"AY",1,33,8,"D")="11^17^3^4"
^DIST(.403,4,"AY",1,33,8,"N")="14^9^9^14^9"
^DIST(.403,4,"AY",1,33,9,"D")="12^17^3^5"
^DIST(.403,4,"AY",1,33,9,"N")="8^10^10^8^10"
^DIST(.403,4,"AY",1,33,10,"D")="13^17^50^19"
^DIST(.403,4,"AY",1,33,10,"N")="9^0^0^9^0"
^DIST(.403,4,"AY",1,33,13,"D")="8^58^3^9"
^DIST(.403,4,"AY",1,33,13,"N")="6^14^14^7^14"
^DIST(.403,4,"AY",1,33,14,"D")="9^58^6^11"
^DIST(.403,4,"AY",1,33,14,"N")="13^8^8^13^8"
^DIST(.403,4,"AY",1,"FIRST")="1,33"
^DIST(.403,4,"AY","CAP","$I",1,1,33,3)=""
^DIST(.403,4,"AY","CAP","ASK DEVICE",1,1,33,8)=""
^DIST(.403,4,"AY","CAP","ASK PARAMETERS",1,1,33,9)=""
^DIST(.403,4,"AY","CAP","LOCATION OF TERMINAL",1,1,33,2)=""
^DIST(.403,4,"AY","CAP","MARGIN WIDTH",1,1,33,13)=""
^DIST(.403,4,"AY","CAP","NAME",1,1,33,1)=""
^DIST(.403,4,"AY","CAP","OPEN PARAMETERS",1,1,33,10)=""
^DIST(.403,4,"AY","CAP","PAGE LENGTH",1,1,33,14)=""
^DIST(.403,4,"AY","CAP","SIGN-ON/SYSTEM DEVICE",1,1,33,6)=""
^DIST(.403,4,"AY","CAP","SUBTYPE",1,1,33,7)=""
^DIST(.403,4,"AY","CAP","TYPE",1,1,33,5)=""
^DIST(.403,4,"AY","CAP","VOLUME SET(CPU)",1,1,33,4)=""
^DIST(.403,4,"AY","F3.5",.01,"L",1,32,2)=""
^DIST(.403,4,"AY","F3.5",.01,"L",1,33,1)=""
^DIST(.403,4,"AY","F3.5",.02,"L",1,33,2)=""
^DIST(.403,4,"AY","F3.5",1,"L",1,33,3)=""
^DIST(.403,4,"AY","F3.5",1.9,"L",1,33,4)=""
^DIST(.403,4,"AY","F3.5",1.95,"L",1,33,6)=""
^DIST(.403,4,"AY","F3.5",2,"L",1,33,5)=""
^DIST(.403,4,"AY","F3.5",3,"L",1,33,7)=""
^DIST(.403,4,"AY","F3.5",4,"L",1,33,8)=""
^DIST(.403,4,"AY","F3.5",5,"L",1,33,9)=""
^DIST(.403,4,"AY","F3.5",9,"L",1,33,13)=""
^DIST(.403,4,"AY","F3.5",11,"L",1,33,14)=""
^DIST(.403,4,"AY","F3.5",19,"L",1,33,10)=""
^DIST(.403,4,"AY","X",1,0,29)="EDIT A MAGTAPE DEVICE"
^DIST(.403,4,"AY","X",1,1,0)="NAME:                                                               PAGE 1 OF 1"
^DIST(.403,4,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,4,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,4,"AY","X",1,4,0)="NAME:                               LOCATION OF TERMINAL:"
^DIST(.403,4,"AY","X",1,4,0,"A")="1;4;U^37;56;U"
^DIST(.403,4,"AY","X",1,5,2)="$I:                                    VOLUME SET(CPU):"
^DIST(.403,4,"AY","X",1,5,2,"A")="1;2;U"
^DIST(.403,4,"AY","X",1,6,0)="TYPE:                              SIGN-ON/SYSTEM DEVICE:"
^DIST(.403,4,"AY","X",1,6,0,"A")="1;4;U"
^DIST(.403,4,"AY","X",1,8,0)="SUBTYPE:                                    MARGIN WIDTH:"
^DIST(.403,4,"AY","X",1,8,0,"A")="1;7;U"
^DIST(.403,4,"AY","X",1,9,45)="PAGE LENGTH:"
^DIST(.403,4,"AY","X",1,11,5)="ASK DEVICE:"
^DIST(.403,4,"AY","X",1,12,1)="ASK PARAMETERS:"
^DIST(.403,4,"AY","X",1,13,0)="OPEN PARAMETERS:"
^DIST(.403,5,0)="XUDEVICE SDP^^^^2921016^^^3.5^0^0^1"
^DIST(.403,5,40,0)="^.4031I^1^1"
^DIST(.403,5,40,1,0)="1^38^1,1^^^0"
^DIST(.403,5,40,1,1)="Page 1 of 1"
^DIST(.403,5,40,1,40,0)="^.4032PI^34^1"
^DIST(.403,5,40,1,40,34,0)="34^1^1,1^e"
^DIST(.403,5,40,1,40,"AC",1,34)=""
^DIST(.403,5,40,1,40,"B",34,34)=""
^DIST(.403,5,40,"B",1,1)=""
^DIST(.403,5,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,5,"AY",1,0,0,"N")="14,34^1,34^1,34^14,34^1,34"
^DIST(.403,5,"AY",1,34)="0^0^3.5^^e^^^^1"
^DIST(.403,5,"AY",1,34,1,"D")="4^6^30^.01"
^DIST(.403,5,"AY",1,34,1,"N")="0^3^2^0^2"
^DIST(.403,5,"AY",1,34,2,"D")="4^58^20^.02"
^DIST(.403,5,"AY",1,34,2,"N")="0^4^3^1^3"
^DIST(.403,5,"AY",1,34,3,"D")="5^6^20^1"
^DIST(.403,5,"AY",1,34,3,"N")="1^5^4^2^4"
^DIST(.403,5,"AY",1,34,4,"D")="5^58^20^1.9"
^DIST(.403,5,"AY",1,34,4,"N")="2^6^5^3^5"
^DIST(.403,5,"AY",1,34,5,"D")="6^6^20^2"
^DIST(.403,5,"AY",1,34,5,"N")="3^7^6^4^6"
^DIST(.403,5,"AY",1,34,6,"D")="6^58^3^1.95"
^DIST(.403,5,"AY",1,34,6,"N")="4^10^7^5^7"
^DIST(.403,5,"AY",1,34,7,"D")="8^9^25^3"
^DIST(.403,5,"AY",1,34,7,"N")="5^11^10^6^10"
^DIST(.403,5,"AY",1,34,10,"D")="8^58^3^9"
^DIST(.403,5,"AY",1,34,10,"N")="6^11^11^7^11"
^DIST(.403,5,"AY",1,34,11,"D")="9^58^6^11"
^DIST(.403,5,"AY",1,34,11,"N")="10^12^12^10^12"
^DIST(.403,5,"AY",1,34,12,"D")="11^17^3^4"
^DIST(.403,5,"AY",1,34,12,"N")="11^13^13^11^13"
^DIST(.403,5,"AY",1,34,13,"D")="12^17^3^5"
^DIST(.403,5,"AY",1,34,13,"N")="12^14^14^12^14"
^DIST(.403,5,"AY",1,34,14,"D")="13^17^50^19"
^DIST(.403,5,"AY",1,34,14,"N")="13^0^0^13^0"
^DIST(.403,5,"AY",1,38)="0^0^3.5^^h"
^DIST(.403,5,"AY",1,38,2,"D")="1^6^30^.01"
^DIST(.403,5,"AY",1,"FIRST")="1,34"
^DIST(.403,5,"AY","CAP","$I",1,1,34,3)=""
^DIST(.403,5,"AY","CAP","ASK DEVICE",1,1,34,12)=""
^DIST(.403,5,"AY","CAP","ASK PARAMETERS",1,1,34,13)=""
^DIST(.403,5,"AY","CAP","LOCATION OF TERMINAL",1,1,34,2)=""
^DIST(.403,5,"AY","CAP","MARGIN WIDTH",1,1,34,10)=""
^DIST(.403,5,"AY","CAP","NAME",1,1,34,1)=""
^DIST(.403,5,"AY","CAP","OPEN PARAMETERS",1,1,34,14)=""
^DIST(.403,5,"AY","CAP","PAGE LENGTH",1,1,34,11)=""
^DIST(.403,5,"AY","CAP","SIGN-ON/SYSTEM DEVICE",1,1,34,6)=""
^DIST(.403,5,"AY","CAP","SUBTYPE",1,1,34,7)=""
^DIST(.403,5,"AY","CAP","TYPE",1,1,34,5)=""
^DIST(.403,5,"AY","CAP","VOLUME SET(CPU)",1,1,34,4)=""
^DIST(.403,5,"AY","F3.5",.01,"L",1,34,1)=""
^DIST(.403,5,"AY","F3.5",.01,"L",1,38,2)=""
^DIST(.403,5,"AY","F3.5",.02,"L",1,34,2)=""
^DIST(.403,5,"AY","F3.5",1,"L",1,34,3)=""
^DIST(.403,5,"AY","F3.5",1.9,"L",1,34,4)=""
^DIST(.403,5,"AY","F3.5",1.95,"L",1,34,6)=""
^DIST(.403,5,"AY","F3.5",2,"L",1,34,5)=""
^DIST(.403,5,"AY","F3.5",3,"L",1,34,7)=""
^DIST(.403,5,"AY","F3.5",4,"L",1,34,12)=""
^DIST(.403,5,"AY","F3.5",5,"L",1,34,13)=""
^DIST(.403,5,"AY","F3.5",9,"L",1,34,10)=""
^DIST(.403,5,"AY","F3.5",11,"L",1,34,11)=""
^DIST(.403,5,"AY","F3.5",19,"L",1,34,14)=""
^DIST(.403,5,"AY","X",1,0,29)="EDIT A SDP DEVICE"
^DIST(.403,5,"AY","X",1,1,0)="NAME:                                                               PAGE 1 OF 1"
^DIST(.403,5,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,5,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,5,"AY","X",1,4,0)="NAME:                               LOCATION OF TERMINAL:"
^DIST(.403,5,"AY","X",1,4,0,"A")="1;4;U^37;56;U"
^DIST(.403,5,"AY","X",1,5,2)="$I:                                    VOLUME SET(CPU):"
^DIST(.403,5,"AY","X",1,5,2,"A")="1;2;U"
^DIST(.403,5,"AY","X",1,6,0)="TYPE:                              SIGN-ON/SYSTEM DEVICE:"
^DIST(.403,5,"AY","X",1,6,0,"A")="1;4;U"
^DIST(.403,5,"AY","X",1,8,0)="SUBTYPE:                                    MARGIN WIDTH:"
^DIST(.403,5,"AY","X",1,8,0,"A")="1;7;U"
^DIST(.403,5,"AY","X",1,9,45)="PAGE LENGTH:"
^DIST(.403,5,"AY","X",1,11,5)="ASK DEVICE:"
^DIST(.403,5,"AY","X",1,12,1)="ASK PARAMETERS:"
^DIST(.403,5,"AY","X",1,13,0)="OPEN PARAMETERS:"
^DIST(.403,6,0)="XUDEVICE SPL^^^^2921018^^^3.5^0^0^1"
^DIST(.403,6,40,0)="^.4031I^3^2"
^DIST(.403,6,40,1,0)="1^39^1,1^"
^DIST(.403,6,40,1,1)="Page 1 of 1"
^DIST(.403,6,40,1,40,0)="^.4032PI^35^1"
^DIST(.403,6,40,1,40,35,0)="35^1^1,1^e"
^DIST(.403,6,40,1,40,"AC",1,35)=""
^DIST(.403,6,40,1,40,"B",35,35)=""
^DIST(.403,6,40,3,0)="2^^9,9^^^1^15,66"
^DIST(.403,6,40,3,1)="DESPOOL DEVICES Subpage"
^DIST(.403,6,40,3,40,0)="^.4032PI^36^1"
^DIST(.403,6,40,3,40,36,0)="36^1^2,3^e"
^DIST(.403,6,40,3,40,"AC",1,36)=""
^DIST(.403,6,40,3,40,"B",36,36)=""
^DIST(.403,6,40,"B",1,1)=""
^DIST(.403,6,40,"B",2,3)=""
^DIST(.403,6,40,"C","DESPOOL DEVICES SUBPAGE",3)=""
^DIST(.403,6,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,6,"AY",1,0,0,"N")="18,35^1,35^1,35^18,35^1,35"
^DIST(.403,6,"AY",1,35)="0^0^3.5^^e^^^^1"
^DIST(.403,6,"AY",1,35,1,"D")="4^6^30^.01"
^DIST(.403,6,"AY",1,35,1,"N")="0^3^2^0^2"
^DIST(.403,6,"AY",1,35,2,"D")="4^58^20^.02"
^DIST(.403,6,"AY",1,35,2,"N")="0^4^3^1^3"
^DIST(.403,6,"AY",1,35,3,"D")="5^6^25^1"
^DIST(.403,6,"AY",1,35,3,"N")="1^5^4^2^4"
^DIST(.403,6,"AY",1,35,4,"D")="5^58^25^1.9"
^DIST(.403,6,"AY",1,35,4,"N")="2^6^5^3^5"
^DIST(.403,6,"AY",1,35,5,"D")="6^6^20^2"
^DIST(.403,6,"AY",1,35,5,"N")="3^7^6^4^6"
^DIST(.403,6,"AY",1,35,6,"D")="6^58^3^1.95"
^DIST(.403,6,"AY",1,35,6,"N")="4^10^7^5^7"
^DIST(.403,6,"AY",1,35,7,"D")="8^9^25^3"
^DIST(.403,6,"AY",1,35,7,"N")="5^11^10^6^10"
^DIST(.403,6,"AY",1,35,10,"D")="8^58^3^9"
^DIST(.403,6,"AY",1,35,10,"N")="6^11^11^7^11"
^DIST(.403,6,"AY",1,35,11,"D")="9^58^6^11"
^DIST(.403,6,"AY",1,35,11,"N")="10^12^12^10^12"
^DIST(.403,6,"AY",1,35,12,"D")="10^24^3^4"
^DIST(.403,6,"AY",1,35,12,"N")="11^13^13^11^13"
^DIST(.403,6,"AY",1,35,13,"D")="11^24^3^5"
^DIST(.403,6,"AY",1,35,13,"N")="12^14^14^12^14"
^DIST(.403,6,"AY",1,35,14,"D")="12^24^25^19"
^DIST(.403,6,"AY",1,35,14,"N")="13^16^16^13^16"
^DIST(.403,6,"AY",1,35,16,"D")="14^24^3^33"
^DIST(.403,6,"AY",1,35,16,"N")="14^18^17^14^17"
^DIST(.403,6,"AY",1,35,17,"D")="14^58^3^31"
^DIST(.403,6,"AY",1,35,17,"N")="14^18^18^16^18"
^DIST(.403,6,"AY",1,35,18,"D")="15^24^24^32"
^DIST(.403,6,"AY",1,35,18,"N")="16^0^0^17^0^^^^^^1"
^DIST(.403,6,"AY",1,39)="0^0^3.5^^h"
^DIST(.403,6,"AY",1,39,2,"D")="1^6^30^.01"
^DIST(.403,6,"AY",1,"FIRST")="1,35"
^DIST(.403,6,"AY",3,0,0,"N")="3,36^2,36^2,36^3,36^2,36"
^DIST(.403,6,"AY",3,36)="9^10^3.532^^e^^^^2"
^DIST(.403,6,"AY",3,36,2,"D")="11^27^30^.01"
^DIST(.403,6,"AY",3,36,2,"N")="0^3^3^0^3"
^DIST(.403,6,"AY",3,36,3,"D")="12^18^3^1"
^DIST(.403,6,"AY",3,36,3,"N")="2^0^0^2^0"
^DIST(.403,6,"AY",3,"FIRST")="2,36"
^DIST(.403,6,"AY","CAP","$I",1,1,35,3)=""
^DIST(.403,6,"AY","CAP","ASK DEVICE",1,1,35,12)=""
^DIST(.403,6,"AY","CAP","ASK PARAMETERS",1,1,35,13)=""
^DIST(.403,6,"AY","CAP","AUTO DESPOOL",1,1,35,17)=""
^DIST(.403,6,"AY","CAP","COPIES",3,3,36,3)=""
^DIST(.403,6,"AY","CAP","DESPOOL DEVICES",1,1,35,18)=""
^DIST(.403,6,"AY","CAP","DESPOOL DEVICES",3,3,36,2)=""
^DIST(.403,6,"AY","CAP","GENERATE SPL DOC NAME",1,1,35,16)=""
^DIST(.403,6,"AY","CAP","LOCATION OF TERMINAL",1,1,35,2)=""
^DIST(.403,6,"AY","CAP","MARGIN WIDTH",1,1,35,10)=""
^DIST(.403,6,"AY","CAP","NAME",1,1,35,1)=""
^DIST(.403,6,"AY","CAP","OPEN PARAMETERS",1,1,35,14)=""
^DIST(.403,6,"AY","CAP","PAGE LENGTH",1,1,35,11)=""
^DIST(.403,6,"AY","CAP","SIGN-ON/SYSTEM DEVICE",1,1,35,6)=""
^DIST(.403,6,"AY","CAP","SUBTYPE",1,1,35,7)=""
^DIST(.403,6,"AY","CAP","TYPE",1,1,35,5)=""
^DIST(.403,6,"AY","CAP","VOLUME SET(CPU)",1,1,35,4)=""
^DIST(.403,6,"AY","F3.5",.01,"L",1,35,1)=""
^DIST(.403,6,"AY","F3.5",.01,"L",1,39,2)=""
^DIST(.403,6,"AY","F3.5",.02,"L",1,35,2)=""
^DIST(.403,6,"AY","F3.5",1,"L",1,35,3)=""
^DIST(.403,6,"AY","F3.5",1.9,"L",1,35,4)=""
^DIST(.403,6,"AY","F3.5",1.95,"L",1,35,6)=""
^DIST(.403,6,"AY","F3.5",2,"L",1,35,5)=""
^DIST(.403,6,"AY","F3.5",3,"L",1,35,7)=""
^DIST(.403,6,"AY","F3.5",4,"L",1,35,12)=""
^DIST(.403,6,"AY","F3.5",5,"L",1,35,13)=""
^DIST(.403,6,"AY","F3.5",9,"L",1,35,10)=""
^DIST(.403,6,"AY","F3.5",11,"L",1,35,11)=""
^DIST(.403,6,"AY","F3.5",19,"L",1,35,14)=""
^DIST(.403,6,"AY","F3.5",31,"L",1,35,17)=""
^DIST(.403,6,"AY","F3.5",32,"L",1,35,18)=""
^DIST(.403,6,"AY","F3.5",33,"L",1,35,16)=""
^DIST(.403,6,"AY","F3.532",.01,"L",3,36,2)=""
^DIST(.403,6,"AY","F3.532",1,"L",3,36,3)=""
^DIST(.403,6,"AY","X",1,0,29)="EDIT A SPOOL DEVICE"
^DIST(.403,6,"AY","X",1,1,0)="NAME:                                                               PAGE 1 OF 1"
^DIST(.403,6,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,6,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,6,"AY","X",1,4,0)="NAME:                               LOCATION OF TERMINAL:"
^DIST(.403,6,"AY","X",1,4,0,"A")="1;4;U^37;56;U"
^DIST(.403,6,"AY","X",1,5,2)="$I:                                    VOLUME SET(CPU):"
^DIST(.403,6,"AY","X",1,5,2,"A")="1;2;U"
^DIST(.403,6,"AY","X",1,6,0)="TYPE:                              SIGN-ON/SYSTEM DEVICE:"
^DIST(.403,6,"AY","X",1,6,0,"A")="1;4;U"
^DIST(.403,6,"AY","X",1,8,0)="SUBTYPE:                                    MARGIN WIDTH:"
^DIST(.403,6,"AY","X",1,8,0,"A")="1;7;U"
^DIST(.403,6,"AY","X",1,9,45)="PAGE LENGTH:"
^DIST(.403,6,"AY","X",1,10,12)="ASK DEVICE:"
^DIST(.403,6,"AY","X",1,11,8)="ASK PARAMETERS:"
^DIST(.403,6,"AY","X",1,12,7)="OPEN PARAMETERS:"
^DIST(.403,6,"AY","X",1,14,1)="GENERATE SPL DOC NAME:                     AUTO DESPOOL:"
^DIST(.403,6,"AY","X",1,15,0)="Select DESPOOL DEVICES:"
^DIST(.403,6,"AY","X",3,9,42)="DESPOOL DEVICES"
^DIST(.403,6,"AY","X",3,11,10)="DESPOOL DEVICES:"
^DIST(.403,6,"AY","X",3,12,10)="COPIES:"
^DIST(.403,7,0)="XUDEVICE HFS^^^^2921019^^^3.5^0^0^1"
^DIST(.403,7,40,0)="^.4031I^1^1"
^DIST(.403,7,40,1,0)="1^40^1,1"
^DIST(.403,7,40,1,1)="Page 1 of 1"
^DIST(.403,7,40,1,40,0)="^.4032PI^37^1"
^DIST(.403,7,40,1,40,37,0)="37^1^2,1^e"
^DIST(.403,7,40,1,40,"AC",1,37)=""
^DIST(.403,7,40,1,40,"B",37,37)=""
^DIST(.403,7,40,"B",1,1)=""
^DIST(.403,7,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,7,"AY",1,0,0,"N")="21,37^1,37^1,37^22,37^1,37"
^DIST(.403,7,"AY",1,37)="1^0^3.5^^e^^^^1"
^DIST(.403,7,"AY",1,37,1,"D")="2^9^30^.01"
^DIST(.403,7,"AY",1,37,1,"N")="0^3^2^0^2"
^DIST(.403,7,"AY",1,37,2,"D")="2^55^20^.02"
^DIST(.403,7,"AY",1,37,2,"N")="0^3^3^1^3"
^DIST(.403,7,"AY",1,37,3,"D")="4^9^40^1"
^DIST(.403,7,"AY",1,37,3,"N")="1^18^18^2^18"
^DIST(.403,7,"AY",1,37,4,"D")="10^58^20^1.9"
^DIST(.403,7,"AY",1,37,4,"N")="11^14^14^16^19"
^DIST(.403,7,"AY",1,37,7,"D")="6^9^25^3"
^DIST(.403,7,"AY",1,37,7,"N")="18^13^13^18^13"
^DIST(.403,7,"AY",1,37,10,"D")="8^58^3^9"
^DIST(.403,7,"AY",1,37,10,"N")="7^11^15^13^16"
^DIST(.403,7,"AY",1,37,11,"D")="9^58^6^11"
^DIST(.403,7,"AY",1,37,11,"N")="10^4^16^15^14"
^DIST(.403,7,"AY",1,37,13,"D")="8^23^3^5"
^DIST(.403,7,"AY",1,37,13,"N")="7^15^10^7^15"
^DIST(.403,7,"AY",1,37,14,"D")="12^20^57^19"
^DIST(.403,7,"AY",1,37,14,"N")="16^23^23^4^4"
^DIST(.403,7,"AY",1,37,15,"D")="9^23^3^5.1"
^DIST(.403,7,"AY",1,37,15,"N")="13^16^11^10^10"
^DIST(.403,7,"AY",1,37,16,"D")="10^23^3^5.2"
^DIST(.403,7,"AY",1,37,16,"N")="15^14^4^11^11"
^DIST(.403,7,"AY",1,37,18,"D")="5^9^40^52"
^DIST(.403,7,"AY",1,37,18,"N")="3^7^7^3^7"
^DIST(.403,7,"AY",1,37,19,"D")="14^20^57^19.7"
^DIST(.403,7,"AY",1,37,19,"N")="23^20^20^23^20"
^DIST(.403,7,"AY",1,37,20,"D")="15^20^57^19.8"
^DIST(.403,7,"AY",1,37,20,"N")="19^21^21^19^21"
^DIST(.403,7,"AY",1,37,21,"D")="16^20^11^5.5"
^DIST(.403,7,"AY",1,37,21,"N")="20^0^22^20^22"
^DIST(.403,7,"AY",1,37,22,"D")="16^58^3^11.2"
^DIST(.403,7,"AY",1,37,22,"N")="20^0^0^21^23"
^DIST(.403,7,"AY",1,37,23,"D")="13^20^57^19.3"
^DIST(.403,7,"AY",1,37,23,"N")="14^19^19^14^0"
^DIST(.403,7,"AY",1,40)="0^0^3.5^^h"
^DIST(.403,7,"AY",1,"FIRST")="1,37"
^DIST(.403,7,"AY","CAP","$I",1,1,37,3)=""
^DIST(.403,7,"AY","CAP","ALT $I",1,1,37,18)=""
^DIST(.403,7,"AY","CAP","ASK HFS I/O OPERATION",1,1,37,16)=""
^DIST(.403,7,"AY","CAP","ASK HOST FILE",1,1,37,15)=""
^DIST(.403,7,"AY","CAP","ASK PARAMETERS",1,1,37,13)=""
^DIST(.403,7,"AY","CAP","CLOSE PARAMETERS",1,1,37,23)=""
^DIST(.403,7,"AY","CAP","LOCATION",1,1,37,2)=""
^DIST(.403,7,"AY","CAP","MARGIN WIDTH",1,1,37,10)=""
^DIST(.403,7,"AY","CAP","NAME",1,1,37,1)=""
^DIST(.403,7,"AY","CAP","OPEN PARAMETERS",1,1,37,14)=""
^DIST(.403,7,"AY","CAP","PAGE LENGTH",1,1,37,11)=""
^DIST(.403,7,"AY","CAP","POST-CLOSE EXECUTE",1,1,37,20)=""
^DIST(.403,7,"AY","CAP","PRE-OPEN EXECUTE",1,1,37,19)=""
^DIST(.403,7,"AY","CAP","QUEUING",1,1,37,21)=""
^DIST(.403,7,"AY","CAP","SUBTYPE",1,1,37,7)=""
^DIST(.403,7,"AY","CAP","SUPPRESS FORM FEED",1,1,37,22)=""
^DIST(.403,7,"AY","CAP","VOLUME SET(CPU)",1,1,37,4)=""
^DIST(.403,7,"AY","F3.5",.01,"L",1,37,1)=""
^DIST(.403,7,"AY","F3.5",.02,"L",1,37,2)=""
^DIST(.403,7,"AY","F3.5",1,"L",1,37,3)=""
^DIST(.403,7,"AY","F3.5",1.9,"L",1,37,4)=""
^DIST(.403,7,"AY","F3.5",3,"L",1,37,7)=""
^DIST(.403,7,"AY","F3.5",5,"L",1,37,13)=""
^DIST(.403,7,"AY","F3.5",5.1,"L",1,37,15)=""
^DIST(.403,7,"AY","F3.5",5.2,"L",1,37,16)=""
^DIST(.403,7,"AY","F3.5",5.5,"L",1,37,21)=""
^DIST(.403,7,"AY","F3.5",9,"L",1,37,10)=""
^DIST(.403,7,"AY","F3.5",11,"L",1,37,11)=""
^DIST(.403,7,"AY","F3.5",11.2,"L",1,37,22)=""
^DIST(.403,7,"AY","F3.5",19,"L",1,37,14)=""
^DIST(.403,7,"AY","F3.5",19.3,"L",1,37,23)=""
^DIST(.403,7,"AY","F3.5",19.7,"L",1,37,19)=""
^DIST(.403,7,"AY","F3.5",19.8,"L",1,37,20)=""
^DIST(.403,7,"AY","F3.5",52,"L",1,37,18)=""
^DIST(.403,7,"AY","X",1,0,22)="EDIT A HOST FILE SERVER DEVICE"
^DIST(.403,7,"AY","X",1,2,3)="NAME:                                     LOCATION:"
^DIST(.403,7,"AY","X",1,2,3,"A")="1;4;U^43;50;U"
^DIST(.403,7,"AY","X",1,4,5)="$I:"
^DIST(.403,7,"AY","X",1,4,5,"A")="1;2;U"
^DIST(.403,7,"AY","X",1,5,1)="Alt $I:"
^DIST(.403,7,"AY","X",1,6,0)="SUBTYPE:"
^DIST(.403,7,"AY","X",1,6,0,"A")="1;7;U"
^DIST(.403,7,"AY","X",1,8,7)="ASK PARAMETERS:                      MARGIN WIDTH:"
^DIST(.403,7,"AY","X",1,9,8)="ASK HOST FILE:                       PAGE LENGTH:"
^DIST(.403,7,"AY","X",1,10,0)="ASK HFS I/O OPERATION:                   VOLUME SET(CPU):"
^DIST(.403,7,"AY","X",1,12,3)="OPEN PARAMETERS:"
^DIST(.403,7,"AY","X",1,13,2)="CLOSE PARAMETERS:"
^DIST(.403,7,"AY","X",1,14,2)="PRE-OPEN EXECUTE:"
^DIST(.403,7,"AY","X",1,15,0)="POST-CLOSE EXECUTE:"
^DIST(.403,7,"AY","X",1,16,11)="QUEUING:                   SUPPRESS FORM FEED:"
^DIST(.403,8,0)="XUDEVICE CHAN^^^^2921016^^^3.5^0^0^1"
^DIST(.403,8,40,0)="^.4031I^1^1"
^DIST(.403,8,40,1,0)="1^42^1,1^^^0"
^DIST(.403,8,40,1,1)="Page 1 of 1"
^DIST(.403,8,40,1,40,0)="^.4032PI^41^1"
^DIST(.403,8,40,1,40,41,0)="41^1^1,1^e"
^DIST(.403,8,40,1,40,"AC",1,41)=""
^DIST(.403,8,40,1,40,"B",41,41)=""
^DIST(.403,8,40,"B",1,1)=""
^DIST(.403,8,40,"C","PAGE 1 OF 1",1)=""
^DIST(.403,8,"AY",1,0,0,"N")="18,41^1,41^1,41^18,41^1,41"
^DIST(.403,8,"AY",1,41)="0^0^3.5^^e^^^^1"
^DIST(.403,8,"AY",1,41,1,"D")="4^6^30^.01"
^DIST(.403,8,"AY",1,41,1,"N")="0^3^2^0^2"
^DIST(.403,8,"AY",1,41,2,"D")="4^58^20^.02"
^DIST(.403,8,"AY",1,41,2,"N")="0^4^3^1^3"
^DIST(.403,8,"AY",1,41,3,"D")="5^6^25^1"
^DIST(.403,8,"AY",1,41,3,"N")="1^5^4^2^4"
^DIST(.403,8,"AY",1,41,4,"D")="5^58^20^1.9"
^DIST(.403,8,"AY",1,41,4,"N")="2^6^5^3^5"
^DIST(.403,8,"AY",1,41,5,"D")="6^6^20^2"
^DIST(.403,8,"AY",1,41,5,"N")="3^7^6^4^6"
^DIST(.403,8,"AY",1,41,6,"D")="6^58^3^1.95"
^DIST(.403,8,"AY",1,41,6,"N")="4^10^7^5^7"
^DIST(.403,8,"AY",1,41,7,"D")="8^9^25^3"
^DIST(.403,8,"AY",1,41,7,"N")="5^11^10^6^10"
^DIST(.403,8,"AY",1,41,10,"D")="8^58^3^9"
^DIST(.403,8,"AY",1,41,10,"N")="6^11^11^7^11"
^DIST(.403,8,"AY",1,41,11,"D")="9^58^6^11"
^DIST(.403,8,"AY",1,41,11,"N")="10^15^12^10^12"
^DIST(.403,8,"AY",1,41,12,"D")="11^23^3^4"
^DIST(.403,8,"AY",1,41,12,"N")="11^13^15^11^13"
^DIST(.403,8,"AY",1,41,13,"D")="12^23^3^5"
^DIST(.403,8,"AY",1,41,13,"N")="12^14^16^15^14"
^DIST(.403,8,"AY",1,41,14,"D")="13^23^50^19"
^DIST(.403,8,"AY",1,41,14,"N")="13^18^18^16^18"
^DIST(.403,8,"AY",1,41,15,"D")="11^58^3^2009.5"
^DIST(.403,8,"AY",1,41,15,"N")="11^16^13^12^16"
^DIST(.403,8,"AY",1,41,16,"D")="12^58^2^2010"
^DIST(.403,8,"AY",1,41,16,"N")="15^14^14^13^0"
^DIST(.403,8,"AY",1,41,18,"D")="15^23^50^36"
^DIST(.403,8,"AY",1,41,18,"N")="14^0^0^14^15"
^DIST(.403,8,"AY",1,42)="0^0^3.5^^h"
^DIST(.403,8,"AY",1,42,2,"D")="1^6^30^.01"
^DIST(.403,8,"AY",1,"FIRST")="1,41"
^DIST(.403,8,"AY","CAP","$I",1,1,41,3)=""
^DIST(.403,8,"AY","CAP","ASK DEVICE",1,1,41,12)=""
^DIST(.403,8,"AY","CAP","ASK PARAMETERS",1,1,41,13)=""
^DIST(.403,8,"AY","CAP","GLOBAL TO LOCK/UNLOCK",1,1,41,18)=""
^DIST(.403,8,"AY","CAP","LOCATION OF TERMINAL",1,1,41,2)=""
^DIST(.403,8,"AY","CAP","MARGIN WIDTH",1,1,41,10)=""
^DIST(.403,8,"AY","CAP","NAME",1,1,41,1)=""
^DIST(.403,8,"AY","CAP","OPEN PARAMETERS",1,1,41,14)=""
^DIST(.403,8,"AY","CAP","OPEN TIMEOUT",1,1,41,16)=""
^DIST(.403,8,"AY","CAP","PAGE LENGTH",1,1,41,11)=""
^DIST(.403,8,"AY","CAP","SIGN-ON/SYSTEM DEVICE",1,1,41,6)=""
^DIST(.403,8,"AY","CAP","SUBTYPE",1,1,41,7)=""
^DIST(.403,8,"AY","CAP","TYPE",1,1,41,5)=""
^DIST(.403,8,"AY","CAP","USE TIMEOUT ON OPENS",1,1,41,15)=""
^DIST(.403,8,"AY","CAP","VOLUME SET(CPU)",1,1,41,4)=""
^DIST(.403,8,"AY","F3.5",.01,"L",1,41,1)=""
^DIST(.403,8,"AY","F3.5",.01,"L",1,42,2)=""
^DIST(.403,8,"AY","F3.5",.02,"L",1,41,2)=""
^DIST(.403,8,"AY","F3.5",1,"L",1,41,3)=""
^DIST(.403,8,"AY","F3.5",1.9,"L",1,41,4)=""
^DIST(.403,8,"AY","F3.5",1.95,"L",1,41,6)=""
^DIST(.403,8,"AY","F3.5",2,"L",1,41,5)=""
^DIST(.403,8,"AY","F3.5",3,"L",1,41,7)=""
^DIST(.403,8,"AY","F3.5",4,"L",1,41,12)=""
^DIST(.403,8,"AY","F3.5",5,"L",1,41,13)=""
^DIST(.403,8,"AY","F3.5",9,"L",1,41,10)=""
^DIST(.403,8,"AY","F3.5",11,"L",1,41,11)=""
^DIST(.403,8,"AY","F3.5",19,"L",1,41,14)=""
^DIST(.403,8,"AY","F3.5",36,"L",1,41,18)=""
^DIST(.403,8,"AY","F3.5",2009.5,"L",1,41,15)=""
^DIST(.403,8,"AY","F3.5",2010,"L",1,41,16)=""
^DIST(.403,8,"AY","X",1,0,29)="EDIT A NETWORK CHANNEL DEVICE"
^DIST(.403,8,"AY","X",1,1,0)="NAME:                                                               PAGE 1 OF 1"
^DIST(.403,8,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,8,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,8,"AY","X",1,4,0)="NAME:                               LOCATION OF TERMINAL:"
^DIST(.403,8,"AY","X",1,4,0,"A")="1;4;U^37;56;U"
^DIST(.403,8,"AY","X",1,5,2)="$I:                                    VOLUME SET(CPU):"
^DIST(.403,8,"AY","X",1,5,2,"A")="1;2;U"
^DIST(.403,8,"AY","X",1,6,0)="TYPE:                              SIGN-ON/SYSTEM DEVICE:"
^DIST(.403,8,"AY","X",1,6,0,"A")="1;4;U"
^DIST(.403,8,"AY","X",1,8,0)="SUBTYPE:                                    MARGIN WIDTH:"
^DIST(.403,8,"AY","X",1,8,0,"A")="1;7;U"
^DIST(.403,8,"AY","X",1,9,45)="PAGE LENGTH:"
^DIST(.403,8,"AY","X",1,11,11)="ASK DEVICE:              USE TIMEOUT ON OPENS:"
^DIST(.403,8,"AY","X",1,12,7)="ASK PARAMETERS:                      OPEN TIMEOUT:"
^DIST(.403,8,"AY","X",1,13,6)="OPEN PARAMETERS:"
^DIST(.403,8,"AY","X",1,15,0)="GLOBAL TO LOCK/UNLOCK:"
^DIST(.403,9,0)="XU OPTION SCHEDULE^^^^2940310^2961114.1240^^19.2^0^0^1"
^DIST(.403,9,40,0)="^.4031I^2^2"
^DIST(.403,9,40,1,0)="1^^1,1^2"
^DIST(.403,9,40,1,1)="Page 1"
^DIST(.403,9,40,1,40,0)="^.4032PI^43^1"
^DIST(.403,9,40,1,40,43,0)="43^2^1,1^e"
^DIST(.403,9,40,1,40,"AC",2,43)=""
^DIST(.403,9,40,1,40,"B",43,43)=""
^DIST(.403,9,40,2,0)="2^^1,1^1^1"
^DIST(.403,9,40,2,1)="Page 2"
^DIST(.403,9,40,2,40,0)="^.4032PI^49^2"
^DIST(.403,9,40,2,40,48,0)="48^1^1,1^e"
^DIST(.403,9,40,2,40,49,0)="49^2^8,5^e"
^DIST(.403,9,40,2,40,49,2)="5"
^DIST(.403,9,40,2,40,"AC",1,48)=""
^DIST(.403,9,40,2,40,"AC",2,49)=""
^DIST(.403,9,40,2,40,"B",48,48)=""
^DIST(.403,9,40,2,40,"B",49,49)=""
^DIST(.403,9,40,"B",1,1)=""
^DIST(.403,9,40,"B",2,2)=""
^DIST(.403,9,40,"C","PAGE 1",1)=""
^DIST(.403,9,40,"C","PAGE 2",2)=""
^DIST(.403,9,"AY",1,0,0,"N")="5,43^7,43^7,43^5,43^7,43"
^DIST(.403,9,"AY",1,43)="0^0^19.2^^e^^^^7"
^DIST(.403,9,"AY",1,43,1,"D")="5^30^30^2"
^DIST(.403,9,"AY",1,43,1,"N")="10^2^2^10^2"
^DIST(.403,9,"AY",1,43,2,"D")="7^30^30^3"
^DIST(.403,9,"AY",1,43,2,"N")="1^3^3^1^3"
^DIST(.403,9,"AY",1,43,3,"D")="9^30^21^5"
^DIST(.403,9,"AY",1,43,3,"N")="2^4^4^2^4"
^DIST(.403,9,"AY",1,43,4,"D")="11^30^30^6"
^DIST(.403,9,"AY",1,43,4,"N")="3^11^11^3^11"
^DIST(.403,9,"AY",1,43,5,"D")="15^30^20^9"
^DIST(.403,9,"AY",1,43,5,"N")="11^0^0^11^0"
^DIST(.403,9,"AY",1,43,7,"D")="1^17^30^.01"
^DIST(.403,9,"AY",1,43,7,"N")="0^10^10^0^10"
^DIST(.403,9,"AY",1,43,9,"D")="2^15^32^0^^^^^1"
^DIST(.403,9,"AY",1,43,10,"D")="2^66^7^12"
^DIST(.403,9,"AY",1,43,10,"N")="7^1^1^7^1"
^DIST(.403,9,"AY",1,43,11,"D")="13^30^48^15"
^DIST(.403,9,"AY",1,43,11,"N")="4^5^5^4^5"
^DIST(.403,9,"AY",1,"FIRST")="7,43"
^DIST(.403,9,"AY",2,0,0,"N")="1,49^2,48^2,48^2,49^2,48"
^DIST(.403,9,"AY",2,48)="0^0^19.2^^e^^^^2"
^DIST(.403,9,"AY",2,48,2,"D")="1^17^30^.01"
^DIST(.403,9,"AY",2,48,2,"N")="0^4^4^0^4"
^DIST(.403,9,"AY",2,48,4,"D")="4^22^35^11"
^DIST(.403,9,"AY",2,48,4,"N")="2^1,49^1,49^2^1,49"
^DIST(.403,9,"AY",2,49)="7^4^19.21^^e^^5^^1^1"
^DIST(.403,9,"AY",2,49,1,"D")="7^19^20^.01"
^DIST(.403,9,"AY",2,49,1,"N")="4,48^0^0^4,48^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,9,"AY",2,49,2,"D")="7^51^24^1"
^DIST(.403,9,"AY",2,49,2,"N")="4,48^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,9,"AY",2,"FIRST")="2,48"
^DIST(.403,9,"AY","CAP","DEVICE FOR QUEUED JOB OUTPUT","1^2",1,43,2)=""
^DIST(.403,9,"AY","CAP","OPTION NAME","1^2",1,43,7)=""
^DIST(.403,9,"AY","CAP","OPTION NAME","1^2",2,48,2)=""
^DIST(.403,9,"AY","CAP","QUEUED TO RUN AT WHAT TIME","1^2",1,43,1)=""
^DIST(.403,9,"AY","CAP","QUEUED TO RUN ON VOLUME SET","1^2",1,43,3)=""
^DIST(.403,9,"AY","CAP","RESCHEDULING FREQUENCY","1^2",1,43,4)=""
^DIST(.403,9,"AY","CAP","SPECIAL QUEUEING","1^2",1,43,5)=""
^DIST(.403,9,"AY","CAP","TASK ID","1^2",1,43,10)=""
^DIST(.403,9,"AY","CAP","TASK PARAMETERS","1^2",1,43,11)=""
^DIST(.403,9,"AY","CAP","USER TO RUN TASK","1^2",2,48,4)=""
^DIST(.403,9,"AY","CAP","VALUE","1^2",2,49,2)=""
^DIST(.403,9,"AY","CAP","VARIABLE NAME","1^2",2,49,1)=""
^DIST(.403,9,"AY","COMP",19,1,1,43,9)=""
^DIST(.403,9,"AY","COMP",19.2,.01,1,43,9)=""
^DIST(.403,9,"AY","COMPE",43,9)="S Y=DDSE(1)"
^DIST(.403,9,"AY","COMPE",43,9,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,9,""AY"",""COMPE"",43,9,1,DDSI))  X ^(DDSI)"
^DIST(.403,9,"AY","COMPE",43,9,1,1)="S X=$$GET^DDSVAL(19.2,.DA,.01)"
^DIST(.403,9,"AY","COMPE",43,9,1,2)="S X=$$GET^DDSVAL(19,X,1,"""",""E""),DDSE(1)=X"
^DIST(.403,9,"AY","F19.2",0,"L",1,43,9)=""
^DIST(.403,9,"AY","F19.2",.01,"L",1,43,7)=""
^DIST(.403,9,"AY","F19.2",.01,"L",2,48,2)=""
^DIST(.403,9,"AY","F19.2",2,"L",1,43,1)=""
^DIST(.403,9,"AY","F19.2",3,"L",1,43,2)=""
^DIST(.403,9,"AY","F19.2",5,"L",1,43,3)=""
^DIST(.403,9,"AY","F19.2",6,"L",1,43,4)=""
^DIST(.403,9,"AY","F19.2",9,"L",1,43,5)=""
^DIST(.403,9,"AY","F19.2",11,"L",2,48,4)=""
^DIST(.403,9,"AY","F19.2",12,"L",1,43,10)=""
^DIST(.403,9,"AY","F19.2",15,"L",1,43,11)=""
^DIST(.403,9,"AY","F19.21",.01,"L",2,49,1)=""
^DIST(.403,9,"AY","F19.21",1,"L",2,49,2)=""
^DIST(.403,9,"AY","X",1,0,26)="Edit Option Schedule"
^DIST(.403,9,"AY","X",1,1,4)="Option Name:"
^DIST(.403,9,"AY","X",1,1,4,"A")="1;11;U"
^DIST(.403,9,"AY","X",1,2,4)="Menu Text:                                           TASK ID:"
^DIST(.403,9,"AY","X",1,3,2)="__________________________________________________________________________"
^DIST(.403,9,"AY","X",1,5,2)="QUEUED TO RUN AT WHAT TIME:"
^DIST(.403,9,"AY","X",1,7,0)="DEVICE FOR QUEUED JOB OUTPUT:"
^DIST(.403,9,"AY","X",1,9,1)="QUEUED TO RUN ON VOLUME SET:"
^DIST(.403,9,"AY","X",1,11,6)="RESCHEDULING FREQUENCY:"
^DIST(.403,9,"AY","X",1,13,13)="TASK PARAMETERS:"
^DIST(.403,9,"AY","X",1,15,12)="SPECIAL QUEUEING:"
^DIST(.403,9,"AY","X",2,0,25)="Edit Option Schedule"
^DIST(.403,9,"AY","X",2,1,4)="Option Name:"
^DIST(.403,9,"AY","X",2,1,4,"A")="1;11;U"
^DIST(.403,9,"AY","X",2,2,4)="_____________________________________________________________________"
^DIST(.403,9,"AY","X",2,4,4)="USER TO RUN TASK:"
^DIST(.403,9,"AY","X",2,7,4)="VARIABLE NAME:                          VALUE:"
^DIST(.403,9,"AY","X",2,8,4)="VARIABLE NAME:                          VALUE:"
^DIST(.403,9,"AY","X",2,9,4)="VARIABLE NAME:                          VALUE:"
^DIST(.403,9,"AY","X",2,10,4)="VARIABLE NAME:                          VALUE:"
^DIST(.403,9,"AY","X",2,11,4)="VARIABLE NAME:                          VALUE:"
^DIST(.403,10,0)="XUSERDEACT^^KRN,KDE^^2940419^^^200^0^0^1"
^DIST(.403,10,15,0)="^^1^1^2940809^^"
^DIST(.403,10,15,1,0)="The screen for the deactivate a user."
^DIST(.403,10,40,0)="^.4031I^1^1"
^DIST(.403,10,40,1,0)="1^46^1,1"
^DIST(.403,10,40,1,1)="Page 1"
^DIST(.403,10,40,1,40,0)="^.4032PI^44^1"
^DIST(.403,10,40,1,40,44,0)="44^2^4,1^e"
^DIST(.403,10,40,1,40,"AC",2,44)=""
^DIST(.403,10,40,1,40,"B",44,44)=""
^DIST(.403,10,40,"B",1,1)=""
^DIST(.403,10,40,"C","PAGE 1",1)=""
^DIST(.403,10,"AY",1,0,0,"N")="4,44^1,44^1,44^4,44^1,44"
^DIST(.403,10,"AY",1,44)="3^0^200^^e^^^^1"
^DIST(.403,10,"AY",1,44,1,"D")="4^34^3^7"
^DIST(.403,10,"AY",1,44,1,"N")="0^2^2^0^2"
^DIST(.403,10,"AY",1,44,2,"D")="6^34^11^9.2"
^DIST(.403,10,"AY",1,44,2,"N")="1^5^5^1^3"
^DIST(.403,10,"AY",1,44,3,"D")="10^34^3^9.21"
^DIST(.403,10,"AY",1,44,3,"N")="5^4^4^5^4"
^DIST(.403,10,"AY",1,44,4,"D")="11^38^3^9.22"
^DIST(.403,10,"AY",1,44,4,"N")="3^0^0^3^5"
^DIST(.403,10,"AY",1,44,5,"D")="8^34^36^9.4"
^DIST(.403,10,"AY",1,44,5,"N")="2^3^3^2^0"
^DIST(.403,10,"AY",1,46)="0^0^200^^h"
^DIST(.403,10,"AY",1,46,2,"D")="1^6^30^.01"
^DIST(.403,10,"AY",1,"FIRST")="1,44"
^DIST(.403,10,"AY","CAP","DELETE ALL MAIL ACCESS",1,1,44,3)=""
^DIST(.403,10,"AY","CAP","DELETE KEYS AT TERMINATION",1,1,44,4)=""
^DIST(.403,10,"AY","CAP","DISABLE USER",1,1,44,1)=""
^DIST(.403,10,"AY","CAP","TERMINATION DATE",1,1,44,2)=""
^DIST(.403,10,"AY","CAP","TERMINATION REASON",1,1,44,5)=""
^DIST(.403,10,"AY","F200",.01,"L",1,46,2)=""
^DIST(.403,10,"AY","F200",7,"L",1,44,1)=""
^DIST(.403,10,"AY","F200",9.2,"L",1,44,2)=""
^DIST(.403,10,"AY","F200",9.21,"L",1,44,3)=""
^DIST(.403,10,"AY","F200",9.22,"L",1,44,4)=""
^DIST(.403,10,"AY","F200",9.4,"L",1,44,5)=""
^DIST(.403,10,"AY","X",1,0,29)="DEACTIVATE A USER"
^DIST(.403,10,"AY","X",1,1,0)="NAME:"
^DIST(.403,10,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,10,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,10,"AY","X",1,4,20)="Disable User:"
^DIST(.403,10,"AY","X",1,6,16)="TERMINATION DATE:"
^DIST(.403,10,"AY","X",1,8,14)="Termination Reason:"
^DIST(.403,10,"AY","X",1,10,10)="DELETE ALL MAIL ACCESS:"
^DIST(.403,10,"AY","X",1,11,10)="DELETE KEYS AT TERMINATION:"
^DIST(.403,11,0)="XUTM UCI ASSOC^^^^2940422^^^14.6^0^0^1"
^DIST(.403,11,40,0)="^.4031I^1^1"
^DIST(.403,11,40,1,0)="1^^1,1"
^DIST(.403,11,40,1,1)="Page 1"
^DIST(.403,11,40,1,40,0)="^.4032PI^45^1"
^DIST(.403,11,40,1,40,45,0)="45^1^3,1^e"
^DIST(.403,11,40,1,40,"AC",1,45)=""
^DIST(.403,11,40,1,40,"B",45,45)=""
^DIST(.403,11,40,"B",1,1)=""
^DIST(.403,11,40,"C","PAGE 1",1)=""
^DIST(.403,11,"AY",1,0,0,"N")="6,45^1,45^1,45^6,45^1,45"
^DIST(.403,11,"AY",1,45)="2^0^14.6^^e^^^^1"
^DIST(.403,11,"AY",1,45,1,"D")="6^19^10^.01"
^DIST(.403,11,"AY",1,45,1,"N")="0^3^3^0^3"
^DIST(.403,11,"AY",1,45,3,"D")="7^19^10^1"
^DIST(.403,11,"AY",1,45,3,"N")="1^5^5^1^5"
^DIST(.403,11,"AY",1,45,5,"D")="10^19^10^3"
^DIST(.403,11,"AY",1,45,5,"N")="3^6^6^3^6"
^DIST(.403,11,"AY",1,45,6,"D")="11^19^10^2"
^DIST(.403,11,"AY",1,45,6,"N")="5^0^0^5^0"
^DIST(.403,11,"AY",1,"FIRST")="1,45"
^DIST(.403,11,"AY","CAP","ON VOLUME SET",1,1,45,3)=""
^DIST(.403,11,"AY","CAP","ON VOLUME SET",1,1,45,6)=""
^DIST(.403,11,"AY","CAP","UCI",1,1,45,1)=""
^DIST(.403,11,"AY","CAP","UCI",1,1,45,5)=""
^DIST(.403,11,"AY","F14.6",.01,"L",1,45,1)=""
^DIST(.403,11,"AY","F14.6",1,"L",1,45,3)=""
^DIST(.403,11,"AY","F14.6",2,"L",1,45,6)=""
^DIST(.403,11,"AY","F14.6",3,"L",1,45,5)=""
^DIST(.403,11,"AY","X",1,2,21)="Taskman UCI Association table"
^DIST(.403,11,"AY","X",1,5,7)="To get from"
^DIST(.403,11,"AY","X",1,6,14)="UCI:"
^DIST(.403,11,"AY","X",1,6,14,"A")="1;3;U"
^DIST(.403,11,"AY","X",1,7,4)="On Volume set:"
^DIST(.403,11,"AY","X",1,7,4,"A")="1;13;U"
^DIST(.403,11,"AY","X",1,9,5)="To the target"
^DIST(.403,11,"AY","X",1,10,14)="UCI:"
^DIST(.403,11,"AY","X",1,11,4)="On Volume set:"
^DIST(.403,12,0)="XUSITEPARM^^^^2941116^3061127.1148^^8989.3^0^0^1"
^DIST(.403,12,40,0)="^.4031I^5^5"
^DIST(.403,12,40,1,0)="1^^1,1^2"
^DIST(.403,12,40,1,1)="Page 1"
^DIST(.403,12,40,1,40,0)="^.4032IP^52^2"
^DIST(.403,12,40,1,40,51,0)="51^1^1,1^d"
^DIST(.403,12,40,1,40,52,0)="52^2^2,1^e"
^DIST(.403,12,40,1,40,"AC",1,51)=""
^DIST(.403,12,40,1,40,"AC",2,52)=""
^DIST(.403,12,40,1,40,"B",51,51)=""
^DIST(.403,12,40,1,40,"B",52,52)=""
^DIST(.403,12,40,2,0)="3^^1,1^4^2"
^DIST(.403,12,40,2,1)="Page 3"
^DIST(.403,12,40,2,40,0)="^.4032IP^53^2"
^DIST(.403,12,40,2,40,51,0)="51^1^1,1^d"
^DIST(.403,12,40,2,40,53,0)="53^2^4,1^e"
^DIST(.403,12,40,2,40,"AC",1,51)=""
^DIST(.403,12,40,2,40,"AC",2,53)=""
^DIST(.403,12,40,2,40,"B",51,51)=""
^DIST(.403,12,40,2,40,"B",53,53)=""
^DIST(.403,12,40,3,0)="2^^1,1^3^1"
^DIST(.403,12,40,3,1)="Page 2"
^DIST(.403,12,40,3,40,0)="^.4032IP^56^4"
^DIST(.403,12,40,3,40,51,0)="51^1^1,1^d"
^DIST(.403,12,40,3,40,54,0)="54^2^4,1^e"
^DIST(.403,12,40,3,40,55,0)="55^3^5,12^e"
^DIST(.403,12,40,3,40,55,2)="4^^^^"
^DIST(.403,12,40,3,40,56,0)="56^4^12,12^e"
^DIST(.403,12,40,3,40,56,2)="4"
^DIST(.403,12,40,3,40,"AC",1,51)=""
^DIST(.403,12,40,3,40,"AC",2,54)=""
^DIST(.403,12,40,3,40,"AC",3,55)=""
^DIST(.403,12,40,3,40,"AC",4,56)=""
^DIST(.403,12,40,3,40,"B",51,51)=""
^DIST(.403,12,40,3,40,"B",54,54)=""
^DIST(.403,12,40,3,40,"B",55,55)=""
^DIST(.403,12,40,3,40,"B",56,56)=""
^DIST(.403,12,40,4,0)="4^^1,1^5^3"
^DIST(.403,12,40,4,1)="Page 4"
^DIST(.403,12,40,4,40,0)="^.4032IP^61^6"
^DIST(.403,12,40,4,40,51,0)="51^1^1,1^d"
^DIST(.403,12,40,4,40,57,0)="57^2^4,1^e"
^DIST(.403,12,40,4,40,58,0)="58^3^8,4^e"
^DIST(.403,12,40,4,40,58,2)="4"
^DIST(.403,12,40,4,40,59,0)="59^4^8,43^e"
^DIST(.403,12,40,4,40,59,2)="4"
^DIST(.403,12,40,4,40,60,0)="60^6^13,43^e"
^DIST(.403,12,40,4,40,60,2)="4"
^DIST(.403,12,40,4,40,61,0)="61^5^13,4^e"
^DIST(.403,12,40,4,40,61,2)="4"
^DIST(.403,12,40,4,40,"AC",1,51)=""
^DIST(.403,12,40,4,40,"AC",2,57)=""
^DIST(.403,12,40,4,40,"AC",3,58)=""
^DIST(.403,12,40,4,40,"AC",4,59)=""
^DIST(.403,12,40,4,40,"AC",5,61)=""
^DIST(.403,12,40,4,40,"AC",6,60)=""
^DIST(.403,12,40,4,40,"B",51,51)=""
^DIST(.403,12,40,4,40,"B",57,57)=""
^DIST(.403,12,40,4,40,"B",58,58)=""
^DIST(.403,12,40,4,40,"B",59,59)=""
^DIST(.403,12,40,4,40,"B",60,60)=""
^DIST(.403,12,40,4,40,"B",61,61)=""
^DIST(.403,12,40,5,0)="5^^1,1^1^4"
^DIST(.403,12,40,5,1)="Page 5"
^DIST(.403,12,40,5,40,0)="^.4032IP^355^2"
^DIST(.403,12,40,5,40,51,0)="51^1^1,1^d"
^DIST(.403,12,40,5,40,355,0)="355^2^4,1^e"
^DIST(.403,12,40,5,40,"AC",1,51)=""
^DIST(.403,12,40,5,40,"AC",2,355)=""
^DIST(.403,12,40,5,40,"B",51,51)=""
^DIST(.403,12,40,5,40,"B",355,355)=""
^DIST(.403,12,40,"B",1,1)=""
^DIST(.403,12,40,"B",2,3)=""
^DIST(.403,12,40,"B",3,2)=""
^DIST(.403,12,40,"B",4,4)=""
^DIST(.403,12,40,"B",5,5)=""
^DIST(.403,12,40,"C","PAGE 1",1)=""
^DIST(.403,12,40,"C","PAGE 2",3)=""
^DIST(.403,12,40,"C","PAGE 3",2)=""
^DIST(.403,12,40,"C","PAGE 4",4)=""
^DIST(.403,12,40,"C","PAGE 5",5)=""
^DIST(.403,12,"AY",1,0,0,"N")="19,52^1,52^1,52^19,52^1,52"
^DIST(.403,12,"AY",1,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,12,"AY",1,51,3,"D")="1^19^42^.01"
^DIST(.403,12,"AY",1,52)="1^0^8989.3^^e^^^^1"
^DIST(.403,12,"AY",1,52,1,"D")="3^30^3^202"
^DIST(.403,12,"AY",1,52,1,"N")="0^2^14^0^14"
^DIST(.403,12,"AY",1,52,2,"D")="4^30^4^203"
^DIST(.403,12,"AY",1,52,2,"N")="1^3^3^14^3"
^DIST(.403,12,"AY",1,52,3,"D")="5^30^8^204"
^DIST(.403,12,"AY",1,52,3,"N")="2^5^18^2^18"
^DIST(.403,12,"AY",1,52,4,"D")="12^68^3^205"
^DIST(.403,12,"AY",1,52,4,"N")="20^12^12^9^12"
^DIST(.403,12,"AY",1,52,5,"D")="6^30^3^206"
^DIST(.403,12,"AY",1,52,5,"N")="3^11^16^18^16"
^DIST(.403,12,"AY",1,52,6,"D")="8^30^3^209"
^DIST(.403,12,"AY",1,52,6,"N")="11^7^7^11^7"
^DIST(.403,12,"AY",1,52,7,"D")="9^30^5^210"
^DIST(.403,12,"AY",1,52,7,"N")="6^8^17^6^17"
^DIST(.403,12,"AY",1,52,8,"D")="11^30^3^211"
^DIST(.403,12,"AY",1,52,8,"N")="7^9^20^17^20"
^DIST(.403,12,"AY",1,52,9,"D")="12^30^3^214"
^DIST(.403,12,"AY",1,52,9,"N")="8^12^4^20^4"
^DIST(.403,12,"AY",1,52,11,"D")="7^30^10^207"
^DIST(.403,12,"AY",1,52,11,"N")="5^6^6^16^6"
^DIST(.403,12,"AY",1,52,12,"D")="13^30^30^217"
^DIST(.403,12,"AY",1,52,12,"N")="9^13^13^4^13"
^DIST(.403,12,"AY",1,52,13,"D")="14^30^3^11"
^DIST(.403,12,"AY",1,52,13,"N")="12^19^19^12^19"
^DIST(.403,12,"AY",1,52,14,"D")="3^65^9^9"
^DIST(.403,12,"AY",1,52,14,"N")="0^2^2^1^2"
^DIST(.403,12,"AY",1,52,16,"D")="6^65^8^218"
^DIST(.403,12,"AY",1,52,16,"N")="18^11^11^5^11"
^DIST(.403,12,"AY",1,52,17,"D")="9^65^5^230"
^DIST(.403,12,"AY",1,52,17,"N")="6^20^8^7^8"
^DIST(.403,12,"AY",1,52,18,"D")="5^65^3^219"
^DIST(.403,12,"AY",1,52,18,"N")="2^16^5^3^5"
^DIST(.403,12,"AY",1,52,19,"D")="15^30^3^11.2"
^DIST(.403,12,"AY",1,52,19,"N")="13^0^0^13^0"
^DIST(.403,12,"AY",1,52,20,"D")="11^65^5^30.1"
^DIST(.403,12,"AY",1,52,20,"N")="17^9^9^8^9"
^DIST(.403,12,"AY",1,"FIRST")="1,52"
^DIST(.403,12,"AY",2,0,0,"N")="5,53^1,53^1,53^5,53^1,53"
^DIST(.403,12,"AY",2,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,12,"AY",2,51,3,"D")="1^19^42^.01"
^DIST(.403,12,"AY",2,53)="3^0^8989.3^^e^^^^1"
^DIST(.403,12,"AY",2,53,1,"D")="3^30^7^31.1"
^DIST(.403,12,"AY",2,53,1,"N")="0^2^2^0^2"
^DIST(.403,12,"AY",2,53,2,"D")="4^30^3^31.2"
^DIST(.403,12,"AY",2,53,2,"N")="1^3^3^1^3"
^DIST(.403,12,"AY",2,53,3,"D")="5^30^3^31.3"
^DIST(.403,12,"AY",2,53,3,"N")="2^8^8^2^8"
^DIST(.403,12,"AY",2,53,5,"D")="16^3^65^21"
^DIST(.403,12,"AY",2,53,5,"N")="7^0^0^7^0"
^DIST(.403,12,"AY",2,53,6,"D")="9^27^50^320"
^DIST(.403,12,"AY",2,53,6,"N")="8^9^9^8^9"
^DIST(.403,12,"AY",2,53,7,"D")="13^8^60^51"
^DIST(.403,12,"AY",2,53,7,"N")="9^5^5^9^5"
^DIST(.403,12,"AY",2,53,8,"D")="8^27^9^.05"
^DIST(.403,12,"AY",2,53,8,"N")="3^6^6^3^6"
^DIST(.403,12,"AY",2,53,9,"D")="10^27^49^320.2"
^DIST(.403,12,"AY",2,53,9,"N")="6^7^7^6^7"
^DIST(.403,12,"AY",2,"FIRST")="1,53"
^DIST(.403,12,"AY",3,0,0,"N")="1,56^1,55^1,55^1,56^2,54"
^DIST(.403,12,"AY",3,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,12,"AY",3,51,3,"D")="1^19^42^.01"
^DIST(.403,12,"AY",3,54)="3^0^8989.3^^e^^^^2"
^DIST(.403,12,"AY",3,54,2,"D")="10^21^8^9.8"
^DIST(.403,12,"AY",3,54,2,"N")="1,55^1,56^1,56^3,55^1,55"
^DIST(.403,12,"AY",3,55)="4^11^8989.304^^e^^4^^1^1"
^DIST(.403,12,"AY",3,55,1,"D")="4^11^9^.01"
^DIST(.403,12,"AY",3,55,1,"N")="0^2,54^2,54^0^1,56^1,-1^1,+1^2^3,-1^2"
^DIST(.403,12,"AY",3,55,2,"D")="4^24^4^2"
^DIST(.403,12,"AY",3,55,2,"N")="0^2,54^2,54^1^1,56^2,-1^2,+1^3^1^3"
^DIST(.403,12,"AY",3,55,3,"D")="4^43^3^6"
^DIST(.403,12,"AY",3,55,3,"N")="0^2,54^2,54^2^1,56^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,12,"AY",3,56)="11^11^8989.309^^e^^4^^1^1"
^DIST(.403,12,"AY",3,56,1,"D")="12^15^8^.01"
^DIST(.403,12,"AY",3,56,1,"N")="2,54^0^0^2,54^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,12,"AY",3,"FIRST")="2,54"
^DIST(.403,12,"AY",4,0,0,"N")="1,61^1,57^1,57^1,60^1,57"
^DIST(.403,12,"AY",4,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,12,"AY",4,51,3,"D")="1^19^42^.01"
^DIST(.403,12,"AY",4,57)="3^0^8989.3^^e^^^^1"
^DIST(.403,12,"AY",4,57,1,"D")="3^14^24^19"
^DIST(.403,12,"AY",4,57,1,"N")="0^2^8^0^2"
^DIST(.403,12,"AY",4,57,2,"D")="4^19^17^19.4"
^DIST(.403,12,"AY",4,57,2,"N")="1^1,58^3^8^3"
^DIST(.403,12,"AY",4,57,3,"D")="4^59^17^19.5"
^DIST(.403,12,"AY",4,57,3,"N")="1^1,59^1,58^2^8"
^DIST(.403,12,"AY",4,57,8,"D")="3^66^8^212.5"
^DIST(.403,12,"AY",4,57,8,"N")="0^3^2^1^1,58"
^DIST(.403,12,"AY",4,58)="7^3^8989.36^^e^^4^^1^1"
^DIST(.403,12,"AY",4,58,1,"D")="7^3^30^.01"
^DIST(.403,12,"AY",4,58,1,"N")="2,57^1,61^1,59^3,57^1,59^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,12,"AY",4,59)="7^42^8989.35^^e^^4^^1^1"
^DIST(.403,12,"AY",4,59,1,"D")="7^42^5^.01"
^DIST(.403,12,"AY",4,59,1,"N")="2,57^1,60^1,61^1,58^1,61^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,12,"AY",4,60)="12^42^8989.33^^e^^4^^1^1"
^DIST(.403,12,"AY",4,60,1,"D")="12^42^20^.01"
^DIST(.403,12,"AY",4,60,1,"N")="1,59^0^0^1,61^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,12,"AY",4,61)="12^3^8989.34^^e^^4^^1^1"
^DIST(.403,12,"AY",4,61,1,"D")="12^3^30^.01"
^DIST(.403,12,"AY",4,61,1,"N")="1,58^0^1,60^1,59^1,60^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,12,"AY",4,"FIRST")="1,57"
^DIST(.403,12,"AY",5,0,0,"N")="3,355^1,355^1,355^3,355^1,355"
^DIST(.403,12,"AY",5,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,12,"AY",5,51,3,"D")="1^19^42^.01"
^DIST(.403,12,"AY",5,355)="3^0^8989.3^^e^^^^1"
^DIST(.403,12,"AY",5,355,1,"D")="3^26^50^.02"
^DIST(.403,12,"AY",5,355,1,"N")="0^2^2^0^2"
^DIST(.403,12,"AY",5,355,2,"D")="5^26^50^.03"
^DIST(.403,12,"AY",5,355,2,"N")="1^3^3^1^3"
^DIST(.403,12,"AY",5,355,3,"D")="7^26^3^300"
^DIST(.403,12,"AY",5,355,3,"N")="2^0^0^2^0"
^DIST(.403,12,"AY",5,"FIRST")="1,355"
^DIST(.403,12,"AY","CAP","AFTER HOURS MAIL GROUP","2^4^3^5^1",5,355,2)=""
^DIST(.403,12,"AY","CAP","AGENCY CODE","1^3^2",1,52,14)=""
^DIST(.403,12,"AY","CAP","ASK DEVICE TYPE AT SIGN-ON","1^3^2",1,52,4)=""
^DIST(.403,12,"AY","CAP","AUTO-GENERATE ACCESS CODES","1^3^2",1,52,13)=""
^DIST(.403,12,"AY","CAP","AUTO-GENERATE VERIFY CODES","1^3^2",1,52,19)=""
^DIST(.403,12,"AY","CAP","BROKER TIMEOUT","1^3^2",1,52,17)=""
^DIST(.403,12,"AY","CAP","BYPASS DEVICE LOCK-OUT","1^3^2",1,52,8)=""
^DIST(.403,12,"AY","CAP","CCOW TOKEN TIMEOUT","1^3^2",1,52,20)=""
^DIST(.403,12,"AY","CAP","DEFAULT # OF ATTEMPTS","1^3^2",1,52,1)=""
^DIST(.403,12,"AY","CAP","DEFAULT AUTO SIGN-ON","1^3^2",1,52,16)=""
^DIST(.403,12,"AY","CAP","DEFAULT AUTO-MENU","1^3^2",1,52,5)=""
^DIST(.403,12,"AY","CAP","DEFAULT DIRECTORY FOR HFS","1^3^2",2,53,6)=""
^DIST(.403,12,"AY","CAP","DEFAULT INSTITUTION","1^3^2",1,52,12)=""
^DIST(.403,12,"AY","CAP","DEFAULT LANGUAGE","1^3^2",1,52,11)=""
^DIST(.403,12,"AY","CAP","DEFAULT LOCK-OUT TIME","1^3^2",1,52,2)=""
^DIST(.403,12,"AY","CAP","DEFAULT MULTIPLE SIGN-ON","1^3^2",1,52,3)=""
^DIST(.403,12,"AY","CAP","DEFAULT TIMED-READ (SECONDS)","1^3^2",1,52,7)=""
^DIST(.403,12,"AY","CAP","DEFAULT TYPE-AHEAD","1^3^2",1,52,6)=""
^DIST(.403,12,"AY","CAP","DNS IP","1^3^2",2,53,7)=""
^DIST(.403,12,"AY","CAP","FAILED ACCESS ATTEMPTS","2^4^3^5^1",4,57,8)=""
^DIST(.403,12,"AY","CAP","INITIATE AUDIT","2^4^3^5^1",4,57,2)=""
^DIST(.403,12,"AY","CAP","IRM MAIL GROUP","2^4^3^5^1",5,355,1)=""
^DIST(.403,12,"AY","CAP","LIFETIME OF VERIFY CODE","1^3^2",1,52,9)=""
^DIST(.403,12,"AY","CAP","LOG RESOURCE USAGE?","2^4^3^5^1",5,355,3)=""
^DIST(.403,12,"AY","CAP","MAX SPOOL DOCUMENT LIFE-SPAN","1^3^2",2,53,3)=""
^DIST(.403,12,"AY","CAP","MAX SPOOL DOCUMENTS PER USER","1^3^2",2,53,2)=""
^DIST(.403,12,"AY","CAP","MAX SPOOL LINES PER USER","1^3^2",2,53,1)=""
^DIST(.403,12,"AY","CAP","MIXED OS","1^3^2",2,53,8)=""
^DIST(.403,12,"AY","CAP","MULTIPLE SIGN-ON LIMIT","1^3^2",1,52,18)=""
^DIST(.403,12,"AY","CAP","NEW PERSON IDENTIFIERS","1^3^2",2,53,5)=""
^DIST(.403,12,"AY","CAP","OPTION AUDIT","2^4^3^5^1",4,57,1)=""
^DIST(.403,12,"AY","CAP","ROUTINE MONITORING","1^3^2",3,54,2)=""
^DIST(.403,12,"AY","CAP","SECONDARY HFS DIRECTORY","1^3^2",2,53,9)=""
^DIST(.403,12,"AY","CAP","TERMINATE AUDIT","2^4^3^5^1",4,57,3)=""
^DIST(.403,12,"AY","F8989.3",.01,"L",1,51,3)=""
^DIST(.403,12,"AY","F8989.3",.01,"L",2,51,3)=""
^DIST(.403,12,"AY","F8989.3",.01,"L",3,51,3)=""
^DIST(.403,12,"AY","F8989.3",.01,"L",4,51,3)=""
^DIST(.403,12,"AY","F8989.3",.01,"L",5,51,3)=""
^DIST(.403,12,"AY","F8989.3",.02,"L",5,355,1)=""
^DIST(.403,12,"AY","F8989.3",.03,"L",5,355,2)=""
^DIST(.403,12,"AY","F8989.3",.05,"L",2,53,8)=""
^DIST(.403,12,"AY","F8989.3",9,"L",1,52,14)=""
^DIST(.403,12,"AY","F8989.3",9.8,"L",3,54,2)=""
^DIST(.403,12,"AY","F8989.3",11,"L",1,52,13)=""
^DIST(.403,12,"AY","F8989.3",11.2,"L",1,52,19)=""
^DIST(.403,12,"AY","F8989.3",19,"L",4,57,1)=""
^DIST(.403,12,"AY","F8989.3",19.4,"L",4,57,2)=""
^DIST(.403,12,"AY","F8989.3",19.5,"L",4,57,3)=""
^DIST(.403,12,"AY","F8989.3",21,"L",2,53,5)=""
^DIST(.403,12,"AY","F8989.3",30.1,"L",1,52,20)=""
^DIST(.403,12,"AY","F8989.3",31.1,"L",2,53,1)=""
^DIST(.403,12,"AY","F8989.3",31.2,"L",2,53,2)=""
^DIST(.403,12,"AY","F8989.3",31.3,"L",2,53,3)=""
^DIST(.403,12,"AY","F8989.3",51,"L",2,53,7)=""
^DIST(.403,12,"AY","F8989.3",202,"L",1,52,1)=""
^DIST(.403,12,"AY","F8989.3",203,"L",1,52,2)=""
^DIST(.403,12,"AY","F8989.3",204,"L",1,52,3)=""
^DIST(.403,12,"AY","F8989.3",205,"L",1,52,4)=""
^DIST(.403,12,"AY","F8989.3",206,"L",1,52,5)=""
^DIST(.403,12,"AY","F8989.3",207,"L",1,52,11)=""
^DIST(.403,12,"AY","F8989.3",209,"L",1,52,6)=""
^DIST(.403,12,"AY","F8989.3",210,"L",1,52,7)=""
^DIST(.403,12,"AY","F8989.3",211,"L",1,52,8)=""
^DIST(.403,12,"AY","F8989.3",212.5,"L",4,57,8)=""
^DIST(.403,12,"AY","F8989.3",214,"L",1,52,9)=""
^DIST(.403,12,"AY","F8989.3",217,"L",1,52,12)=""
^DIST(.403,12,"AY","F8989.3",218,"L",1,52,16)=""
^DIST(.403,12,"AY","F8989.3",219,"L",1,52,18)=""
^DIST(.403,12,"AY","F8989.3",230,"L",1,52,17)=""
^DIST(.403,12,"AY","F8989.3",300,"L",5,355,3)=""
^DIST(.403,12,"AY","F8989.3",320,"L",2,53,6)=""
^DIST(.403,12,"AY","F8989.3",320.2,"L",2,53,9)=""
^DIST(.403,12,"AY","F8989.304",.01,"L",3,55,1)=""
^DIST(.403,12,"AY","F8989.304",2,"L",3,55,2)=""
^DIST(.403,12,"AY","F8989.304",6,"L",3,55,3)=""
^DIST(.403,12,"AY","F8989.309",.01,"L",3,56,1)=""
^DIST(.403,12,"AY","F8989.33",.01,"L",4,60,1)=""
^DIST(.403,12,"AY","F8989.34",.01,"L",4,61,1)=""
^DIST(.403,12,"AY","F8989.35",.01,"L",4,59,1)=""
^DIST(.403,12,"AY","F8989.36",.01,"L",4,58,1)=""
^DIST(.403,12,"AY","X",1,0,23)="Kernel Site Parameter edit"
^DIST(.403,12,"AY","X",1,1,12)="DOMAIN:"
^DIST(.403,12,"AY","X",1,1,12,"A")="1;6;U"
^DIST(.403,12,"AY","X",1,3,7)="DEFAULT # OF ATTEMPTS:                       AGENCY CODE:"
^DIST(.403,12,"AY","X",1,4,7)="DEFAULT LOCK-OUT TIME:"
^DIST(.403,12,"AY","X",1,5,4)="DEFAULT MULTIPLE SIGN-ON:            MULTIPLE SIGN-ON LIMIT:"
^DIST(.403,12,"AY","X",1,6,11)="DEFAULT AUTO-MENU:              DEFAULT AUTO SIGN-ON:"
^DIST(.403,12,"AY","X",1,7,12)="DEFAULT LANGUAGE:"
^DIST(.403,12,"AY","X",1,8,10)="DEFAULT TYPE-AHEAD:"
^DIST(.403,12,"AY","X",1,9,0)="DEFAULT TIMED-READ (SECONDS):                    BROKER TIMEOUT:"
^DIST(.403,12,"AY","X",1,11,6)="BYPASS DEVICE LOCK-OUT:                CCOW TOKEN TIMEOUT:"
^DIST(.403,12,"AY","X",1,12,5)="LIFETIME OF VERIFY CODE:           ASK DEVICE TYPE AT SIGN-ON:"
^DIST(.403,12,"AY","X",1,12,5,"A")="1;23;U"
^DIST(.403,12,"AY","X",1,13,9)="DEFAULT INSTITUTION:"
^DIST(.403,12,"AY","X",1,13,9,"A")="1;19;U"
^DIST(.403,12,"AY","X",1,14,2)="AUTO-GENERATE ACCESS CODES:"
^DIST(.403,12,"AY","X",1,15,2)="AUTO-GENERATE VERIFY CODES:"
^DIST(.403,12,"AY","X",2,0,23)="Kernel Site Parameter edit"
^DIST(.403,12,"AY","X",2,1,12)="DOMAIN:"
^DIST(.403,12,"AY","X",2,1,12,"A")="1;6;U"
^DIST(.403,12,"AY","X",2,3,4)="MAX SPOOL LINES PER USER:"
^DIST(.403,12,"AY","X",2,4,0)="MAX SPOOL DOCUMENTS PER USER:"
^DIST(.403,12,"AY","X",2,5,0)="MAX SPOOL DOCUMENT LIFE-SPAN:"
^DIST(.403,12,"AY","X",2,8,17)="MIXED OS:"
^DIST(.403,12,"AY","X",2,9,0)="DEFAULT DIRECTORY FOR HFS:"
^DIST(.403,12,"AY","X",2,9,0,"A")="1;25;U"
^DIST(.403,12,"AY","X",2,10,2)="SECONDARY HFS DIRECTORY:"
^DIST(.403,12,"AY","X",2,10,2,"A")="1;23;U"
^DIST(.403,12,"AY","X",2,13,0)="DNS IP:"
^DIST(.403,12,"AY","X",2,13,0,"A")="1;6;U"
^DIST(.403,12,"AY","X",2,15,0)="NEW PERSON IDENTIFIERS:"
^DIST(.403,12,"AY","X",3,0,23)="Kernel Site Parameter edit"
^DIST(.403,12,"AY","X",3,1,12)="DOMAIN:"
^DIST(.403,12,"AY","X",3,1,12,"A")="1;6;U"
^DIST(.403,12,"AY","X",3,3,11)="Vol Set      Max Sign-ons       Log RT?"
^DIST(.403,12,"AY","X",3,10,1)="ROUTINE MONITORING:"
^DIST(.403,12,"AY","X",3,11,11)="Routine Namespace's"
^DIST(.403,12,"AY","X",4,0,23)="Kernel Site Parameter edit"
^DIST(.403,12,"AY","X",4,1,12)="DOMAIN:"
^DIST(.403,12,"AY","X",4,1,12,"A")="1;6;U"
^DIST(.403,12,"AY","X",4,3,0)="OPTION AUDIT:                             FAILED ACCESS ATTEMPTS:"
^DIST(.403,12,"AY","X",4,4,3)="INITIATE AUDIT:                        TERMINATE AUDIT:"
^DIST(.403,12,"AY","X",4,6,3)="Option to audit                        Namespace to audit"
^DIST(.403,12,"AY","X",4,11,3)="User to audit                          Device to audit"
^DIST(.403,12,"AY","X",5,0,23)="Kernel Site Parameter edit"
^DIST(.403,12,"AY","X",5,1,12)="DOMAIN:"
^DIST(.403,12,"AY","X",5,1,12,"A")="1;6;U"
^DIST(.403,12,"AY","X",5,3,10)="IRM MAIL GROUP:"
^DIST(.403,12,"AY","X",5,3,10,"A")="1;14;U"
^DIST(.403,12,"AY","X",5,5,2)="AFTER HOURS MAIL GROUP:"
^DIST(.403,12,"AY","X",5,7,5)="LOG RESOURCE USAGE?:"
^DIST(.403,13,0)="XUAUDIT^^^^2941117.0833^^^8989.3^0^0^1"
^DIST(.403,13,40,0)="^.4031I^1^1"
^DIST(.403,13,40,1,0)="1^^1,1"
^DIST(.403,13,40,1,1)="Page 1"
^DIST(.403,13,40,1,40,0)="^.4032IP^61^6"
^DIST(.403,13,40,1,40,51,0)="51^1^1,1^d"
^DIST(.403,13,40,1,40,57,0)="57^2^4,1^e"
^DIST(.403,13,40,1,40,58,0)="58^3^8,4^e"
^DIST(.403,13,40,1,40,58,2)="4"
^DIST(.403,13,40,1,40,59,0)="59^4^8,43^e"
^DIST(.403,13,40,1,40,59,2)="4"
^DIST(.403,13,40,1,40,60,0)="60^6^13,43^e"
^DIST(.403,13,40,1,40,60,2)="4"
^DIST(.403,13,40,1,40,61,0)="61^5^13,4^e"
^DIST(.403,13,40,1,40,61,2)="4"
^DIST(.403,13,40,1,40,"AC",1,51)=""
^DIST(.403,13,40,1,40,"AC",2,57)=""
^DIST(.403,13,40,1,40,"AC",3,58)=""
^DIST(.403,13,40,1,40,"AC",4,59)=""
^DIST(.403,13,40,1,40,"AC",5,61)=""
^DIST(.403,13,40,1,40,"AC",6,60)=""
^DIST(.403,13,40,1,40,"B",51,51)=""
^DIST(.403,13,40,1,40,"B",57,57)=""
^DIST(.403,13,40,1,40,"B",58,58)=""
^DIST(.403,13,40,1,40,"B",59,59)=""
^DIST(.403,13,40,1,40,"B",60,60)=""
^DIST(.403,13,40,1,40,"B",61,61)=""
^DIST(.403,13,40,"B",1,1)=""
^DIST(.403,13,40,"C","PAGE 1",1)=""
^DIST(.403,13,"AY",1,0,0,"N")="1,61^1,57^1,57^1,60^1,57"
^DIST(.403,13,"AY",1,51)="0^0^8989.3^^d^^^^0"
^DIST(.403,13,"AY",1,51,3,"D")="1^19^42^.01"
^DIST(.403,13,"AY",1,57)="3^0^8989.3^^e^^^^1"
^DIST(.403,13,"AY",1,57,1,"D")="3^14^24^19"
^DIST(.403,13,"AY",1,57,1,"N")="0^2^8^0^2"
^DIST(.403,13,"AY",1,57,2,"D")="4^19^17^19.4"
^DIST(.403,13,"AY",1,57,2,"N")="1^1,58^3^8^3"
^DIST(.403,13,"AY",1,57,3,"D")="4^59^17^19.5"
^DIST(.403,13,"AY",1,57,3,"N")="1^1,59^1,58^2^8"
^DIST(.403,13,"AY",1,57,8,"D")="3^66^8^212.5"
^DIST(.403,13,"AY",1,57,8,"N")="0^3^2^1^1,58"
^DIST(.403,13,"AY",1,58)="7^3^8989.36^^e^^4^^1^1"
^DIST(.403,13,"AY",1,58,1,"D")="7^3^30^.01"
^DIST(.403,13,"AY",1,58,1,"N")="2,57^1,61^1,59^3,57^1,59^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,13,"AY",1,59)="7^42^8989.35^^e^^4^^1^1"
^DIST(.403,13,"AY",1,59,1,"D")="7^42^5^.01"
^DIST(.403,13,"AY",1,59,1,"N")="2,57^1,60^1,61^1,58^1,61^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,13,"AY",1,60)="12^42^8989.33^^e^^4^^1^1"
^DIST(.403,13,"AY",1,60,1,"D")="12^42^20^.01"
^DIST(.403,13,"AY",1,60,1,"N")="1,59^0^0^1,61^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,13,"AY",1,61)="12^3^8989.34^^e^^4^^1^1"
^DIST(.403,13,"AY",1,61,1,"D")="12^3^30^.01"
^DIST(.403,13,"AY",1,61,1,"N")="1,58^0^1,60^1,59^1,60^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,13,"AY",1,"FIRST")="1,57"
^DIST(.403,13,"AY","CAP","FAILED ACCESS ATTEMPTS",1,1,57,8)=""
^DIST(.403,13,"AY","CAP","INITIATE AUDIT",1,1,57,2)=""
^DIST(.403,13,"AY","CAP","OPTION AUDIT",1,1,57,1)=""
^DIST(.403,13,"AY","CAP","TERMINATE AUDIT",1,1,57,3)=""
^DIST(.403,13,"AY","F8989.3",.01,"L",1,51,3)=""
^DIST(.403,13,"AY","F8989.3",19,"L",1,57,1)=""
^DIST(.403,13,"AY","F8989.3",19.4,"L",1,57,2)=""
^DIST(.403,13,"AY","F8989.3",19.5,"L",1,57,3)=""
^DIST(.403,13,"AY","F8989.3",212.5,"L",1,57,8)=""
^DIST(.403,13,"AY","F8989.33",.01,"L",1,60,1)=""
^DIST(.403,13,"AY","F8989.34",.01,"L",1,61,1)=""
^DIST(.403,13,"AY","F8989.35",.01,"L",1,59,1)=""
^DIST(.403,13,"AY","F8989.36",.01,"L",1,58,1)=""
^DIST(.403,13,"AY","X",1,0,23)="Kernel Site Parameter edit"
^DIST(.403,13,"AY","X",1,1,12)="DOMAIN:"
^DIST(.403,13,"AY","X",1,1,12,"A")="1;6;U"
^DIST(.403,13,"AY","X",1,3,0)="OPTION AUDIT:                             FAILED ACCESS ATTEMPTS:"
^DIST(.403,13,"AY","X",1,4,3)="INITIATE AUDIT:                        TERMINATE AUDIT:"
^DIST(.403,13,"AY","X",1,6,3)="Option to audit                        Namespace to audit"
^DIST(.403,13,"AY","X",1,11,3)="User to audit                          Device to audit"
^DIST(.403,14,0)="XUREACT USER^^@^^2950327.1641^^^200^0^0^1"
^DIST(.403,14,11)="S XUNOTRIG=1 D CHKPTR^XLFNAME2,REQ^XUSER2()"
^DIST(.403,14,12)="K XUNOTRIG,XUITNAME"
^DIST(.403,14,40,0)="^.4031I^8^8"
^DIST(.403,14,40,1,0)="1^^1,1^2^5"
^DIST(.403,14,40,1,1)="Page 1"
^DIST(.403,14,40,1,11)="N % S %=$$GET^DDSVAL(200,DA,2) D:%="""" HLP^DDSUTL(""USER has no ACCESS CODE"")"
^DIST(.403,14,40,1,40,0)="^.4032IP^47^2"
^DIST(.403,14,40,1,40,28,0)="28^2^2,1^e"
^DIST(.403,14,40,1,40,28,11)="D PUT^DDSVAL(DIE,.DA,9.2,""@""),PUT^DDSVAL(DIE,.DA,7,""@"")"
^DIST(.403,14,40,1,40,47,0)="47^1^1,1^e"
^DIST(.403,14,40,1,40,"AC",1,47)=""
^DIST(.403,14,40,1,40,"AC",2,28)=""
^DIST(.403,14,40,1,40,"B",28,28)=""
^DIST(.403,14,40,1,40,"B",47,47)=""
^DIST(.403,14,40,2,0)="2^^1,1^3^1"
^DIST(.403,14,40,2,1)="Page 2"
^DIST(.403,14,40,2,40,0)="^.4032IP^47^2"
^DIST(.403,14,40,2,40,29,0)="29^2^2,1^e"
^DIST(.403,14,40,2,40,47,0)="47^1^1,1^e"
^DIST(.403,14,40,2,40,"AC",1,47)=""
^DIST(.403,14,40,2,40,"AC",2,29)=""
^DIST(.403,14,40,2,40,"B",29,29)=""
^DIST(.403,14,40,2,40,"B",47,47)=""
^DIST(.403,14,40,3,0)="3^^1,1^4^2"
^DIST(.403,14,40,3,1)="Page 3"
^DIST(.403,14,40,3,40,0)="^.4032IP^86^3"
^DIST(.403,14,40,3,40,47,0)="47^1^1,1^e"
^DIST(.403,14,40,3,40,50,0)="50^2^2,1^e"
^DIST(.403,14,40,3,40,86,0)="86^3^13,1^e"
^DIST(.403,14,40,3,40,86,2)="4^!IEN^n"
^DIST(.403,14,40,3,40,"AC",1,47)=""
^DIST(.403,14,40,3,40,"AC",2,50)=""
^DIST(.403,14,40,3,40,"AC",3,86)=""
^DIST(.403,14,40,3,40,"B",47,47)=""
^DIST(.403,14,40,3,40,"B",50,50)=""
^DIST(.403,14,40,3,40,"B",86,86)=""
^DIST(.403,14,40,4,0)="1.1^^11,9^^^1^17,66"
^DIST(.403,14,40,4,1)="Page 1.1"
^DIST(.403,14,40,4,40,0)="^.4032IP^30^1"
^DIST(.403,14,40,4,40,30,0)="30^1^2,3^e"
^DIST(.403,14,40,4,40,"AC",1,30)=""
^DIST(.403,14,40,4,40,"B",30,30)=""
^DIST(.403,14,40,5,0)="1.2^^8,16^^^1^13,59"
^DIST(.403,14,40,5,1)="Page 1.2"
^DIST(.403,14,40,5,40,0)="^.4032IP^31^1"
^DIST(.403,14,40,5,40,31,0)="31^1^2,2^e"
^DIST(.403,14,40,5,40,"AC",1,31)=""
^DIST(.403,14,40,5,40,"B",31,31)=""
^DIST(.403,14,40,6,0)="1.3^^8,12^^^1^17,65"
^DIST(.403,14,40,6,1)="Page 1.3"
^DIST(.403,14,40,6,12)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^DIST(.403,14,40,6,40,0)="^.4032IP^321^1"
^DIST(.403,14,40,6,40,321,0)="321^1^1,1^e"
^DIST(.403,14,40,6,40,321,1)="10.1"
^DIST(.403,14,40,6,40,"AC",1,321)=""
^DIST(.403,14,40,6,40,"B",321,321)=""
^DIST(.403,14,40,7,0)="4^^1,1^5^3"
^DIST(.403,14,40,7,1)="Page 4"
^DIST(.403,14,40,7,40,0)="^.4032IP^342^3"
^DIST(.403,14,40,7,40,47,0)="47^1^1,1^d"
^DIST(.403,14,40,7,40,341,0)="341^2^2,1^e"
^DIST(.403,14,40,7,40,342,0)="342^3^8,1^e"
^DIST(.403,14,40,7,40,342,2)="10^!IEN^n"
^DIST(.403,14,40,7,40,"AC",1,47)=""
^DIST(.403,14,40,7,40,"AC",2,341)=""
^DIST(.403,14,40,7,40,"AC",3,342)=""
^DIST(.403,14,40,7,40,"B",47,47)=""
^DIST(.403,14,40,7,40,"B",341,341)=""
^DIST(.403,14,40,7,40,"B",342,342)=""
^DIST(.403,14,40,8,0)="5^^1,1^1^4"
^DIST(.403,14,40,8,1)="Page 5"
^DIST(.403,14,40,8,40,0)="^.4032IP^358^2"
^DIST(.403,14,40,8,40,47,0)="47^1^1,1^e"
^DIST(.403,14,40,8,40,358,0)="358^2^2,1^e"
^DIST(.403,14,40,8,40,"AC",1,47)=""
^DIST(.403,14,40,8,40,"AC",2,358)=""
^DIST(.403,14,40,8,40,"B",47,47)=""
^DIST(.403,14,40,8,40,"B",358,358)=""
^DIST(.403,14,40,"B",1,1)=""
^DIST(.403,14,40,"B",1.1,4)=""
^DIST(.403,14,40,"B",1.2,5)=""
^DIST(.403,14,40,"B",1.3,6)=""
^DIST(.403,14,40,"B",2,2)=""
^DIST(.403,14,40,"B",3,3)=""
^DIST(.403,14,40,"B",4,7)=""
^DIST(.403,14,40,"B",5,8)=""
^DIST(.403,14,40,"C","PAGE 1",1)=""
^DIST(.403,14,40,"C","PAGE 1.1",4)=""
^DIST(.403,14,40,"C","PAGE 1.2",5)=""
^DIST(.403,14,40,"C","PAGE 1.3",6)=""
^DIST(.403,14,40,"C","PAGE 2",2)=""
^DIST(.403,14,40,"C","PAGE 3",3)=""
^DIST(.403,14,40,"C","PAGE 4",7)=""
^DIST(.403,14,40,"C","PAGE 5",8)=""
^DIST(.403,14,"AY",1,0,0,"N")="13,28^1,47^1,47^13,28^1,47"
^DIST(.403,14,"AY",1,28)="1^0^200^^e^^^^1"
^DIST(.403,14,"AY",1,28,1,"D")="3^11^35^.01"
^DIST(.403,14,"AY",1,28,1,"N")="1,47^2^3^1,47^3"
^DIST(.403,14,"AY",1,28,2,"D")="4^11^30^8"
^DIST(.403,14,"AY",1,28,2,"N")="1^16^4^3^4"
^DIST(.403,14,"AY",1,28,3,"D")="3^64^5^1"
^DIST(.403,14,"AY",1,28,3,"N")="1,47^4^2^1^2"
^DIST(.403,14,"AY",1,28,4,"D")="4^64^10^13"
^DIST(.403,14,"AY",1,28,4,"N")="3^21^16^2^16"
^DIST(.403,14,"AY",1,28,5,"D")="10^32^30^201"
^DIST(.403,14,"AY",1,28,5,"N")="20^6^6^20^6"
^DIST(.403,14,"AY",1,28,6,"D")="11^32^30^203"
^DIST(.403,14,"AY",1,28,6,"N")="5^7^7^5^7^^^^^^1"
^DIST(.403,14,"AY",1,28,7,"D")="12^32^3^2.1"
^DIST(.403,14,"AY",1,28,7,"N")="6^8^9^6^9"
^DIST(.403,14,"AY",1,28,8,"D")="13^32^3^11.1"
^DIST(.403,14,"AY",1,28,8,"N")="7^12^12^9^12"
^DIST(.403,14,"AY",1,28,9,"D")="12^64^15^3"
^DIST(.403,14,"AY",1,28,9,"N")="6^8^8^7^8"
^DIST(.403,14,"AY",1,28,12,"D")="15^32^30^16"
^DIST(.403,14,"AY",1,28,12,"N")="8^13^13^8^13^^^^^^1"
^DIST(.403,14,"AY",1,28,13,"D")="16^32^30^29"
^DIST(.403,14,"AY",1,28,13,"N")="12^0^0^12^0"
^DIST(.403,14,"AY",1,28,14,"D")="6^64^10^28"
^DIST(.403,14,"AY",1,28,14,"N")="21^18^18^17^18"
^DIST(.403,14,"AY",1,28,16,"D")="5^11^9^9"
^DIST(.403,14,"AY",1,28,16,"N")="2^17^21^4^21"
^DIST(.403,14,"AY",1,28,17,"D")="6^11^10^10.6"
^DIST(.403,14,"AY",1,28,17,"N")="16^18^14^21^14"
^DIST(.403,14,"AY",1,28,18,"D")="7^11^3^7"
^DIST(.403,14,"AY",1,28,18,"N")="17^20^19^14^19"
^DIST(.403,14,"AY",1,28,19,"D")="7^65^11^9.2"
^DIST(.403,14,"AY",1,28,19,"N")="14^20^20^18^20"
^DIST(.403,14,"AY",1,28,20,"D")="8^22^45^9.4"
^DIST(.403,14,"AY",1,28,20,"N")="18^5^5^19^5"
^DIST(.403,14,"AY",1,28,21,"D")="5^64^11^5"
^DIST(.403,14,"AY",1,28,21,"N")="4^14^17^16^17"
^DIST(.403,14,"AY",1,47)="0^0^200^^e^^^^1"
^DIST(.403,14,"AY",1,47,1,"D")="1^6^30^.01"
^DIST(.403,14,"AY",1,47,1,"N")="0^1,28^1,28^0^1,28"
^DIST(.403,14,"AY",1,"FIRST")="1,47"
^DIST(.403,14,"AY",2,0,0,"N")="12,29^1,47^1,47^12,29^1,47"
^DIST(.403,14,"AY",2,29)="1^0^200^^e^^^^1"
^DIST(.403,14,"AY",2,29,1,"D")="4^30^5^200.1"
^DIST(.403,14,"AY",2,29,1,"N")="1,47^2^2^1,47^2"
^DIST(.403,14,"AY",2,29,2,"D")="6^30^11^200.04"
^DIST(.403,14,"AY",2,29,2,"N")="1^4^18^1^18"
^DIST(.403,14,"AY",2,29,3,"D")="7^59^20^200.06"
^DIST(.403,14,"AY",2,29,3,"N")="2^5^6^4^5"
^DIST(.403,14,"AY",2,29,4,"D")="7^30^9^200.05"
^DIST(.403,14,"AY",2,29,4,"N")="2^6^3^18^3"
^DIST(.403,14,"AY",2,29,5,"D")="8^59^11^200.09"
^DIST(.403,14,"AY",2,29,5,"N")="3^16^16^6^6"
^DIST(.403,14,"AY",2,29,6,"D")="8^30^9^15"
^DIST(.403,14,"AY",2,29,6,"N")="4^16^5^3^16"
^DIST(.403,14,"AY",2,29,7,"D")="12^30^3^41"
^DIST(.403,14,"AY",2,29,7,"N")="17^8^14^17^14"
^DIST(.403,14,"AY",2,29,8,"D")="13^30^3^41.2"
^DIST(.403,14,"AY",2,29,8,"N")="7^10^10^14^10"
^DIST(.403,14,"AY",2,29,10,"D")="15^30^30^31.1"
^DIST(.403,14,"AY",2,29,10,"N")="8^12^12^8^12"
^DIST(.403,14,"AY",2,29,12,"D")="16^30^3^200.11"
^DIST(.403,14,"AY",2,29,12,"N")="10^0^0^10^0"
^DIST(.403,14,"AY",2,29,14,"D")="12^62^8^14"
^DIST(.403,14,"AY",2,29,14,"N")="17^8^8^7^8"
^DIST(.403,14,"AY",2,29,16,"D")="9^59^3^200.18"
^DIST(.403,14,"AY",2,29,16,"N")="5^17^17^5^17"
^DIST(.403,14,"AY",2,29,17,"D")="10^30^30^31.3"
^DIST(.403,14,"AY",2,29,17,"N")="16^7^7^16^7"
^DIST(.403,14,"AY",2,29,18,"D")="6^69^3^200.19"
^DIST(.403,14,"AY",2,29,18,"N")="1^3^4^2^4"
^DIST(.403,14,"AY",2,47)="0^0^200^^e^^^^1"
^DIST(.403,14,"AY",2,47,1,"D")="1^6^30^.01"
^DIST(.403,14,"AY",2,47,1,"N")="0^1,29^1,29^0^1,29"
^DIST(.403,14,"AY",2,"FIRST")="1,47"
^DIST(.403,14,"AY",3,0,0,"N")="1,86^1,47^1,47^3,86^1,47"
^DIST(.403,14,"AY",3,47)="0^0^200^^e^^^^1"
^DIST(.403,14,"AY",3,47,1,"D")="1^6^30^.01"
^DIST(.403,14,"AY",3,47,1,"N")="0^2,50^2,50^0^2,50"
^DIST(.403,14,"AY",3,50)="1^0^200^^e^^^^2"
^DIST(.403,14,"AY",3,50,2,"D")="3^30^21^15"
^DIST(.403,14,"AY",3,50,2,"N")="1,47^3^3^1,47^3"
^DIST(.403,14,"AY",3,50,3,"D")="5^18^20^.131"
^DIST(.403,14,"AY",3,50,3,"N")="2^7^4^2^4"
^DIST(.403,14,"AY",3,50,4,"D")="5^55^20^.132"
^DIST(.403,14,"AY",3,50,4,"N")="2^6^7^3^7"
^DIST(.403,14,"AY",3,50,5,"D")="7^18^20^.137"
^DIST(.403,14,"AY",3,50,5,"N")="7^9^8^6^8"
^DIST(.403,14,"AY",3,50,6,"D")="6^55^20^.136"
^DIST(.403,14,"AY",3,50,6,"N")="4^8^5^7^5"
^DIST(.403,14,"AY",3,50,7,"D")="6^18^20^.135"
^DIST(.403,14,"AY",3,50,7,"N")="3^5^6^4^6"
^DIST(.403,14,"AY",3,50,8,"D")="7^55^20^.138"
^DIST(.403,14,"AY",3,50,8,"N")="6^9^9^5^9"
^DIST(.403,14,"AY",3,50,9,"D")="8^18^10^200.07"
^DIST(.403,14,"AY",3,50,9,"N")="5^1,86^1,86^8^1,86"
^DIST(.403,14,"AY",3,86)="12^0^200.05^^e^^4^^1^1"
^DIST(.403,14,"AY",3,86,1,"D")="12^1^40^.01"
^DIST(.403,14,"AY",3,86,1,"N")="9,50^0^0^9,50^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,14,"AY",3,86,2,"D")="12^51^12^2"
^DIST(.403,14,"AY",3,86,2,"N")="9,50^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,14,"AY",3,86,3,"D")="12^66^12^3"
^DIST(.403,14,"AY",3,86,3,"N")="9,50^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,14,"AY",3,"FIRST")="1,47"
^DIST(.403,14,"AY",4,0,0,"N")="3,30^2,30^2,30^3,30^2,30"
^DIST(.403,14,"AY",4,30)="11^10^200.03^^e^^^^2"
^DIST(.403,14,"AY",4,30,2,"D")="13^34^30^.01"
^DIST(.403,14,"AY",4,30,2,"N")="0^3^3^0^3"
^DIST(.403,14,"AY",4,30,3,"D")="14^34^4^2"
^DIST(.403,14,"AY",4,30,3,"N")="2^0^0^2^0"
^DIST(.403,14,"AY",4,"FIRST")="2,30"
^DIST(.403,14,"AY",5,0,0,"N")="3,31^2,31^2,31^3,31^2,31"
^DIST(.403,14,"AY",5,31)="8^16^200.02^^e^^^^2"
^DIST(.403,14,"AY",5,31,2,"D")="10^26^30^.01"
^DIST(.403,14,"AY",5,31,2,"N")="0^3^3^0^3"
^DIST(.403,14,"AY",5,31,3,"D")="11^26^3^1"
^DIST(.403,14,"AY",5,31,3,"N")="2^0^0^2^0"
^DIST(.403,14,"AY",5,"FIRST")="2,31"
^DIST(.403,14,"AY",6,0,0,"N")="6,321^5,321^5,321^6,321^5,321"
^DIST(.403,14,"AY",6,321)="7^11^20^^e^^^1^5"
^DIST(.403,14,"AY",6,321,2,"D")="12^28^35^1"
^DIST(.403,14,"AY",6,321,2,"N")="4^6^6^4^6"
^DIST(.403,14,"AY",6,321,3,"D")="10^28^25^2"
^DIST(.403,14,"AY",6,321,3,"N")="5^4^4^5^4"
^DIST(.403,14,"AY",6,321,4,"D")="11^28^25^3"
^DIST(.403,14,"AY",6,321,4,"N")="3^2^2^3^2"
^DIST(.403,14,"AY",6,321,5,"D")="9^28^10^4"
^DIST(.403,14,"AY",6,321,5,"N")="0^3^3^0^3"
^DIST(.403,14,"AY",6,321,6,"D")="13^28^10^5"
^DIST(.403,14,"AY",6,321,6,"N")="2^0^0^2^0"
^DIST(.403,14,"AY",6,321,8,"D")="15^13^35^0^^^^^1"
^DIST(.403,14,"AY",6,321,"PTB")="200,10.1"
^DIST(.403,14,"AY",6,321,"PTB",1)="S X=$$GET^DDSVAL(200,.DA,10.1),DA=X"
^DIST(.403,14,"AY",6,"FIRST")="5,321"
^DIST(.403,14,"AY",7,0,0,"N")="1,342^2,341^2,341^3,342^2,341"
^DIST(.403,14,"AY",7,47)="0^0^200^^d^^^^0"
^DIST(.403,14,"AY",7,47,1,"D")="1^6^30^.01"
^DIST(.403,14,"AY",7,341)="1^0^200^^e^^^^2"
^DIST(.403,14,"AY",7,341,2,"D")="3^28^3^101.01"
^DIST(.403,14,"AY",7,341,2,"N")="0^1,342^3^0^3"
^DIST(.403,14,"AY",7,341,3,"D")="3^47^30^101.02"
^DIST(.403,14,"AY",7,341,3,"N")="0^1,342^1,342^2^1,342"
^DIST(.403,14,"AY",7,342)="7^0^200.010113^^e^^10^^1^1"
^DIST(.403,14,"AY",7,342,1,"D")="7^2^3^.01"
^DIST(.403,14,"AY",7,342,1,"N")="2,341^0^0^3,341^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,14,"AY",7,342,2,"D")="7^46^11^.02"
^DIST(.403,14,"AY",7,342,2,"N")="2,341^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,14,"AY",7,342,3,"D")="7^63^11^.03"
^DIST(.403,14,"AY",7,342,3,"N")="3,341^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,14,"AY",7,342,4,"D")="7^8^35^0^^^^^1"
^DIST(.403,14,"AY",7,342,4,"N")="^^0^^0"
^DIST(.403,14,"AY",7,"FIRST")="2,341"
^DIST(.403,14,"AY",8,0,0,"N")="11,358^1,47^1,47^11,358^1,47"
^DIST(.403,14,"AY",8,47)="0^0^200^^e^^^^1"
^DIST(.403,14,"AY",8,47,1,"D")="1^6^30^.01"
^DIST(.403,14,"AY",8,47,1,"N")="0^3,358^3,358^0^3,358"
^DIST(.403,14,"AY",8,358)="1^0^200^^e^^^^3"
^DIST(.403,14,"AY",8,358,3,"D")="4^20^50^.111"
^DIST(.403,14,"AY",8,358,3,"N")="1,47^4^4^1,47^4"
^DIST(.403,14,"AY",8,358,4,"D")="5^20^50^.112"
^DIST(.403,14,"AY",8,358,4,"N")="3^5^5^3^5"
^DIST(.403,14,"AY",8,358,5,"D")="6^20^50^.113"
^DIST(.403,14,"AY",8,358,5,"N")="4^6^6^4^6"
^DIST(.403,14,"AY",8,358,6,"D")="7^20^30^.114"
^DIST(.403,14,"AY",8,358,6,"N")="5^7^7^5^7"
^DIST(.403,14,"AY",8,358,7,"D")="8^20^30^.115"
^DIST(.403,14,"AY",8,358,7,"N")="6^8^8^6^8"
^DIST(.403,14,"AY",8,358,8,"D")="9^20^10^.116"
^DIST(.403,14,"AY",8,358,8,"N")="7^9^9^7^9"
^DIST(.403,14,"AY",8,358,9,"D")="10^20^50^.151"
^DIST(.403,14,"AY",8,358,9,"N")="8^15^15^8^15"
^DIST(.403,14,"AY",8,358,11,"D")="16^19^59^12.1"
^DIST(.403,14,"AY",8,358,11,"N")="12^0^0^12^0"
^DIST(.403,14,"AY",8,358,12,"D")="15^18^59^12.2"
^DIST(.403,14,"AY",8,358,12,"N")="16^11^11^16^11"
^DIST(.403,14,"AY",8,358,13,"D")="13^65^8^12.3"
^DIST(.403,14,"AY",8,358,13,"N")="14^16^16^17^16"
^DIST(.403,14,"AY",8,358,14,"D")="12^19^27^12.4"
^DIST(.403,14,"AY",8,358,14,"N")="15^17^17^15^17"
^DIST(.403,14,"AY",8,358,15,"D")="11^35^3^12.6"
^DIST(.403,14,"AY",8,358,15,"N")="9^14^14^9^14"
^DIST(.403,14,"AY",8,358,16,"D")="14^62^11^12.7"
^DIST(.403,14,"AY",8,358,16,"N")="17^12^12^13^12"
^DIST(.403,14,"AY",8,358,17,"D")="13^24^11^12.8"
^DIST(.403,14,"AY",8,358,17,"N")="14^16^13^14^13"
^DIST(.403,14,"AY",8,"FIRST")="1,47"
^DIST(.403,14,"AY","CAP","ALLOWED TO USE SPOOLER","1^2^8^3^7",2,29,7)=""
^DIST(.403,14,"AY","CAP","ALWAYS SHOW SECONDARIES","1^2^8^3^7",2,29,12)=""
^DIST(.403,14,"AY","CAP","ASK DEVICE TYPE AT SIGN-ON","1^2^8^3^7",2,29,4)=""
^DIST(.403,14,"AY","CAP","AUTO MENU","1^2^8^3^7",2,29,3)=""
^DIST(.403,14,"AY","CAP","AUTO SIGN-ON","1^2^8^3^7",2,29,16)=""
^DIST(.403,14,"AY","CAP","CAN MAKE INTO A MAIL MESSAGE","1^2^8^3^7",2,29,8)=""
^DIST(.403,14,"AY","CAP","CITY","1^2^8^3^7",8,358,6)=""
^DIST(.403,14,"AY","CAP","COMMERCIAL PHONE","1^2^8^3^7",3,50,7)=""
^DIST(.403,14,"AY","CAP","DEFAULT",5,5,31,3)=""
^DIST(.403,14,"AY","CAP","DEGREE","1^2^8^3^7",1,28,17)=""
^DIST(.403,14,"AY","CAP","DIGITAL PAGER","1^2^8^3^7",3,50,8)=""
^DIST(.403,14,"AY","CAP","DISUSER","1^2^8^3^7",1,28,18)=""
^DIST(.403,14,"AY","CAP","DIVISION",5,5,31,2)=""
^DIST(.403,14,"AY","CAP","DIVISION","1^2^8^3^7",1,28,12)=""
^DIST(.403,14,"AY","CAP","DOB","1^2^8^3^7",1,28,21)=""
^DIST(.403,14,"AY","CAP","E-MAIL ADDRESS","1^2^8^3^7",8,358,9)=""
^DIST(.403,14,"AY","CAP","FAMILY (LAST)",6,6,321,2)=""
^DIST(.403,14,"AY","CAP","FAX NUMBER","1^2^8^3^7",3,50,6)=""
^DIST(.403,14,"AY","CAP","FILE MANAGER ACCESS CODE","1^2^8^3^7",1,28,9)=""
^DIST(.403,14,"AY","CAP","FILE RANGE","1^2^8^3^7",2,29,10)=""
^DIST(.403,14,"AY","CAP","GIVEN (FIRST)",6,6,321,3)=""
^DIST(.403,14,"AY","CAP","INITIAL","1^2^8^3^7",1,28,3)=""
^DIST(.403,14,"AY","CAP","IS THIS PERSON AN ACTIVE TRAINEE?","1^2^8^3^7",8,358,15)=""
^DIST(.403,14,"AY","CAP","LANGUAGE","1^2^8^3^7",3,50,9)=""
^DIST(.403,14,"AY","CAP","LAST TRAINING MONTH & YEAR","1^2^8^3^7",8,358,13)=""
^DIST(.403,14,"AY","CAP","MAIL CODE","1^2^8^3^7",1,28,14)=""
^DIST(.403,14,"AY","CAP","MIDDLE",6,6,321,4)=""
^DIST(.403,14,"AY","CAP","MULTIPLE SIGN-ON","1^2^8^3^7",2,29,2)=""
^DIST(.403,14,"AY","CAP","MULTIPLE SIGN-ON LIMIT","1^2^8^3^7",2,29,18)=""
^DIST(.403,14,"AY","CAP","NAME","1^2^8^3^7",1,47,1)=""
^DIST(.403,14,"AY","CAP","NAME","1^2^8^3^7",2,47,1)=""
^DIST(.403,14,"AY","CAP","NAME","1^2^8^3^7",3,47,1)=""
^DIST(.403,14,"AY","CAP","NAME","1^2^8^3^7",8,47,1)=""
^DIST(.403,14,"AY","CAP","NAME...","1^2^8^3^7",1,28,1)=""
^DIST(.403,14,"AY","CAP","NICK NAME","1^2^8^3^7",1,28,4)=""
^DIST(.403,14,"AY","CAP","OE/RR LIST","1^2^8^3^7",7,341,3)=""
^DIST(.403,14,"AY","CAP","OFFICE PHONE","1^2^8^3^7",3,50,4)=""
^DIST(.403,14,"AY","CAP","PAC","1^2^8^3^7",2,29,14)=""
^DIST(.403,14,"AY","CAP","PHONE","1^2^8^3^7",3,50,3)=""
^DIST(.403,14,"AY","CAP","PREFERRED EDITOR","1^2^8^3^7",2,29,17)=""
^DIST(.403,14,"AY","CAP","PREFIX",6,6,321,5)=""
^DIST(.403,14,"AY","CAP","PRIMARY MENU OPTION","1^2^8^3^7",1,28,5)=""
^DIST(.403,14,"AY","CAP","PROGRAM OF STUDY","1^2^8^3^7",8,358,12)=""
^DIST(.403,14,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^8^3^7",2,29,6)=""
^DIST(.403,14,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^8^3^7",3,50,2)=""
^DIST(.403,14,"AY","CAP","RESTRICT PATIENT SELECTION","1^2^8^3^7",7,341,2)=""
^DIST(.403,14,"AY","CAP","SECONDARY MENU OPTIONS",4,4,30,2)=""
^DIST(.403,14,"AY","CAP","SECONDARY MENU OPTIONS","1^2^8^3^7",1,28,6)=""
^DIST(.403,14,"AY","CAP","SERVICE/SECTION","1^2^8^3^7",1,28,13)=""
^DIST(.403,14,"AY","CAP","SSN","1^2^8^3^7",1,28,16)=""
^DIST(.403,14,"AY","CAP","START DATE OF TRAINING","1^2^8^3^7",8,358,17)=""
^DIST(.403,14,"AY","CAP","STATE","1^2^8^3^7",8,358,7)=""
^DIST(.403,14,"AY","CAP","STREET 1","1^2^8^3^7",8,358,3)=""
^DIST(.403,14,"AY","CAP","STREET 2","1^2^8^3^7",8,358,4)=""
^DIST(.403,14,"AY","CAP","STREET 3","1^2^8^3^7",8,358,5)=""
^DIST(.403,14,"AY","CAP","SUFFIX",6,6,321,6)=""
^DIST(.403,14,"AY","CAP","SYNONYM",4,4,30,3)=""
^DIST(.403,14,"AY","CAP","TARGET DEGREE LVL","1^2^8^3^7",8,358,11)=""
^DIST(.403,14,"AY","CAP","TERMINATION DATE","1^2^8^3^7",1,28,19)=""
^DIST(.403,14,"AY","CAP","TERMINATION REASON","1^2^8^3^7",1,28,20)=""
^DIST(.403,14,"AY","CAP","TIMED READ (# OF SECONDS)","1^2^8^3^7",2,29,1)=""
^DIST(.403,14,"AY","CAP","TITLE","1^2^8^3^7",1,28,2)=""
^DIST(.403,14,"AY","CAP","TRAINEE INACTIVE (DATE)","1^2^8^3^7",8,358,16)=""
^DIST(.403,14,"AY","CAP","TYPE-AHEAD","1^2^8^3^7",2,29,5)=""
^DIST(.403,14,"AY","CAP","VHA TRAINING FAC.","1^2^8^3^7",8,358,14)=""
^DIST(.403,14,"AY","CAP","VOICE PAGER","1^2^8^3^7",3,50,5)=""
^DIST(.403,14,"AY","CAP","WANT TO EDIT ACCESS CODE (Y/N)","1^2^8^3^7",1,28,7)=""
^DIST(.403,14,"AY","CAP","WANT TO EDIT VERIFY CODE (Y/N)","1^2^8^3^7",1,28,8)=""
^DIST(.403,14,"AY","CAP","ZIP CODE","1^2^8^3^7",8,358,8)=""
^DIST(.403,14,"AY","COMP",20,1,6,321,8)=""
^DIST(.403,14,"AY","COMP",20,2,6,321,8)=""
^DIST(.403,14,"AY","COMP",20,3,6,321,8)=""
^DIST(.403,14,"AY","COMP",20,5,6,321,8)=""
^DIST(.403,14,"AY","COMP",200.010113,.01,7,342,4)=""
^DIST(.403,14,"AY","COMPE",321,8)="N NC S NC(""FAMILY"")=DDSE(1),NC(""GIVEN"")=DDSE(2),NC(""MIDDLE"")=DDSE(3),NC(""SUFFIX"")=DDSE(4),(XLFNEW,Y)=$$BLDNAME^XLFNAME8(.NC,35)"
^DIST(.403,14,"AY","COMPE",321,8,1)="N X S X=$$GET^DDSVAL(20,.DA,1,"""",""E""),DDSE(1)=X"
^DIST(.403,14,"AY","COMPE",321,8,2)="N X S X=$$GET^DDSVAL(20,.DA,2,"""",""E""),DDSE(2)=X"
^DIST(.403,14,"AY","COMPE",321,8,3)="N X S X=$$GET^DDSVAL(20,.DA,3,"""",""E""),DDSE(3)=X"
^DIST(.403,14,"AY","COMPE",321,8,4)="N X S X=$$GET^DDSVAL(20,.DA,5,"""",""E""),DDSE(4)=X"
^DIST(.403,14,"AY","COMPE",342,4)="S Y=$S($D(^DD(101.13,1,0))#2:$$GET^DDSVAL(101.13,DDSE(1),1),1:"""")"
^DIST(.403,14,"AY","COMPE",342,4,1)="N X S X=$$GET^DDSVAL(200.010113,.DA,.01),DDSE(1)=X"
^DIST(.403,14,"AY","F20",0,"L",6,321,8)=""
^DIST(.403,14,"AY","F20",1,"L",6,321,2)=""
^DIST(.403,14,"AY","F20",2,"L",6,321,3)=""
^DIST(.403,14,"AY","F20",3,"L",6,321,4)=""
^DIST(.403,14,"AY","F20",4,"L",6,321,5)=""
^DIST(.403,14,"AY","F20",5,"L",6,321,6)=""
^DIST(.403,14,"AY","F200",.01,"L",1,28,1)=""
^DIST(.403,14,"AY","F200",.01,"L",1,47,1)=""
^DIST(.403,14,"AY","F200",.01,"L",2,47,1)=""
^DIST(.403,14,"AY","F200",.01,"L",3,47,1)=""
^DIST(.403,14,"AY","F200",.01,"L",7,47,1)=""
^DIST(.403,14,"AY","F200",.01,"L",8,47,1)=""
^DIST(.403,14,"AY","F200",.111,"L",8,358,3)=""
^DIST(.403,14,"AY","F200",.112,"L",8,358,4)=""
^DIST(.403,14,"AY","F200",.113,"L",8,358,5)=""
^DIST(.403,14,"AY","F200",.114,"L",8,358,6)=""
^DIST(.403,14,"AY","F200",.115,"L",8,358,7)=""
^DIST(.403,14,"AY","F200",.116,"L",8,358,8)=""
^DIST(.403,14,"AY","F200",.131,"L",3,50,3)=""
^DIST(.403,14,"AY","F200",.132,"L",3,50,4)=""
^DIST(.403,14,"AY","F200",.135,"L",3,50,7)=""
^DIST(.403,14,"AY","F200",.136,"L",3,50,6)=""
^DIST(.403,14,"AY","F200",.137,"L",3,50,5)=""
^DIST(.403,14,"AY","F200",.138,"L",3,50,8)=""
^DIST(.403,14,"AY","F200",.151,"L",8,358,9)=""
^DIST(.403,14,"AY","F200",1,"L",1,28,3)=""
^DIST(.403,14,"AY","F200",2.1,"L",1,28,7)=""
^DIST(.403,14,"AY","F200",3,"L",1,28,9)=""
^DIST(.403,14,"AY","F200",5,"L",1,28,21)=""
^DIST(.403,14,"AY","F200",7,"L",1,28,18)=""
^DIST(.403,14,"AY","F200",8,"L",1,28,2)=""
^DIST(.403,14,"AY","F200",9,"L",1,28,16)=""
^DIST(.403,14,"AY","F200",9.2,"L",1,28,19)=""
^DIST(.403,14,"AY","F200",9.4,"L",1,28,20)=""
^DIST(.403,14,"AY","F200",10.6,"L",1,28,17)=""
^DIST(.403,14,"AY","F200",11.1,"L",1,28,8)=""
^DIST(.403,14,"AY","F200",12.1,"L",8,358,11)=""
^DIST(.403,14,"AY","F200",12.2,"L",8,358,12)=""
^DIST(.403,14,"AY","F200",12.3,"L",8,358,13)=""
^DIST(.403,14,"AY","F200",12.4,"L",8,358,14)=""
^DIST(.403,14,"AY","F200",12.6,"L",8,358,15)=""
^DIST(.403,14,"AY","F200",12.7,"L",8,358,16)=""
^DIST(.403,14,"AY","F200",12.8,"L",8,358,17)=""
^DIST(.403,14,"AY","F200",13,"L",1,28,4)=""
^DIST(.403,14,"AY","F200",14,"L",2,29,14)=""
^DIST(.403,14,"AY","F200",15,"L",2,29,6)=""
^DIST(.403,14,"AY","F200",15,"L",3,50,2)=""
^DIST(.403,14,"AY","F200",16,"L",1,28,12)=""
^DIST(.403,14,"AY","F200",28,"L",1,28,14)=""
^DIST(.403,14,"AY","F200",29,"L",1,28,13)=""
^DIST(.403,14,"AY","F200",31.1,"L",2,29,10)=""
^DIST(.403,14,"AY","F200",31.3,"L",2,29,17)=""
^DIST(.403,14,"AY","F200",41,"L",2,29,7)=""
^DIST(.403,14,"AY","F200",41.2,"L",2,29,8)=""
^DIST(.403,14,"AY","F200",101.01,"L",7,341,2)=""
^DIST(.403,14,"AY","F200",101.02,"L",7,341,3)=""
^DIST(.403,14,"AY","F200",200.04,"L",2,29,2)=""
^DIST(.403,14,"AY","F200",200.05,"L",2,29,4)=""
^DIST(.403,14,"AY","F200",200.06,"L",2,29,3)=""
^DIST(.403,14,"AY","F200",200.07,"L",3,50,9)=""
^DIST(.403,14,"AY","F200",200.09,"L",2,29,5)=""
^DIST(.403,14,"AY","F200",200.1,"L",2,29,1)=""
^DIST(.403,14,"AY","F200",200.11,"L",2,29,12)=""
^DIST(.403,14,"AY","F200",200.18,"L",2,29,16)=""
^DIST(.403,14,"AY","F200",200.19,"L",2,29,18)=""
^DIST(.403,14,"AY","F200",201,"L",1,28,5)=""
^DIST(.403,14,"AY","F200",203,"L",1,28,6)=""
^DIST(.403,14,"AY","F200.010113",0,"L",7,342,4)=""
^DIST(.403,14,"AY","F200.010113",.01,"L",7,342,1)=""
^DIST(.403,14,"AY","F200.010113",.02,"L",7,342,2)=""
^DIST(.403,14,"AY","F200.010113",.03,"L",7,342,3)=""
^DIST(.403,14,"AY","F200.02",.01,"L",5,31,2)=""
^DIST(.403,14,"AY","F200.02",1,"L",5,31,3)=""
^DIST(.403,14,"AY","F200.03",.01,"L",4,30,2)=""
^DIST(.403,14,"AY","F200.03",2,"L",4,30,3)=""
^DIST(.403,14,"AY","F200.05",.01,"L",3,86,1)=""
^DIST(.403,14,"AY","F200.05",2,"L",3,86,2)=""
^DIST(.403,14,"AY","F200.05",3,"L",3,86,3)=""
^DIST(.403,14,"AY","PT",200,10.1,6,321)=""
^DIST(.403,14,"AY","X",1,0,29)="Edit an Existing User"
^DIST(.403,14,"AY","X",1,1,0)="NAME:                                                               Page 1 of 5"
^DIST(.403,14,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,14,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,14,"AY","X",1,3,3)="NAME...                                             INITIAL:"
^DIST(.403,14,"AY","X",1,3,3,"A")="1;7;U"
^DIST(.403,14,"AY","X",1,4,4)="TITLE:                                           NICK NAME:"
^DIST(.403,14,"AY","X",1,5,6)="SSN:                                                 DOB:"
^DIST(.403,14,"AY","X",1,6,3)="DEGREE:                                           MAIL CODE:"
^DIST(.403,14,"AY","X",1,7,2)="DISUSER:                                     TERMINATION DATE:"
^DIST(.403,14,"AY","X",1,8,2)="Termination Reason:"
^DIST(.403,14,"AY","X",1,10,11)="PRIMARY MENU OPTION:"
^DIST(.403,14,"AY","X",1,11,1)="Select SECONDARY MENU OPTIONS:"
^DIST(.403,14,"AY","X",1,12,0)="Want to edit ACCESS CODE (Y/N):       FILE MANAGER ACCESS CODE:"
^DIST(.403,14,"AY","X",1,13,0)="Want to edit VERIFY CODE (Y/N):"
^DIST(.403,14,"AY","X",1,15,15)="Select DIVISION:"
^DIST(.403,14,"AY","X",1,16,15)="SERVICE/SECTION:"
^DIST(.403,14,"AY","X",1,16,15,"A")="1;15;U"
^DIST(.403,14,"AY","X",2,0,29)="Edit an Existing User"
^DIST(.403,14,"AY","X",2,1,0)="NAME:                                                               Page 2 of 5"
^DIST(.403,14,"AY","X",2,1,0,"A")="1;4;U"
^DIST(.403,14,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,14,"AY","X",2,4,3)="TIMED READ (# OF SECONDS):"
^DIST(.403,14,"AY","X",2,6,12)="MULTIPLE SIGN-ON:                MULTIPLE SIGN-ON LIMIT:"
^DIST(.403,14,"AY","X",2,7,2)="ASK DEVICE TYPE AT SIGN-ON:                   AUTO MENU:"
^DIST(.403,14,"AY","X",2,8,0)="PROHIBITED TIMES FOR SIGN-ON:                  TYPE-AHEAD:"
^DIST(.403,14,"AY","X",2,9,45)="AUTO SIGN-ON:"
^DIST(.403,14,"AY","X",2,10,12)="Preferred Editor:"
^DIST(.403,14,"AY","X",2,12,6)="ALLOWED TO USE SPOOLER:                            PAC:"
^DIST(.403,14,"AY","X",2,13,0)="CAN MAKE INTO A MAIL MESSAGE:"
^DIST(.403,14,"AY","X",2,15,18)="FILE RANGE:"
^DIST(.403,14,"AY","X",2,16,5)="ALWAYS SHOW SECONDARIES:"
^DIST(.403,14,"AY","X",3,0,29)="Edit an Existing User"
^DIST(.403,14,"AY","X",3,1,0)="NAME:                                                               Page 3 of 5"
^DIST(.403,14,"AY","X",3,1,0,"A")="1;4;U"
^DIST(.403,14,"AY","X",3,2,0)="_______________________________________________________________________________"
^DIST(.403,14,"AY","X",3,3,0)="PROHIBITED TIMES FOR SIGN-ON:"
^DIST(.403,14,"AY","X",3,5,11)="PHONE:                        OFFICE PHONE:"
^DIST(.403,14,"AY","X",3,6,0)="COMMERCIAL PHONE:                          FAX NUMBER:"
^DIST(.403,14,"AY","X",3,7,5)="VOICE PAGER:                       DIGITAL PAGER:"
^DIST(.403,14,"AY","X",3,8,8)="LANGUAGE:"
^DIST(.403,14,"AY","X",3,10,1)="Person Class                                         Effective     Expired"
^DIST(.403,14,"AY","X",4,11,42)="SECONDARY MENU OPTIONS"
^DIST(.403,14,"AY","X",4,13,10)="SECONDARY MENU OPTIONS:"
^DIST(.403,14,"AY","X",4,14,25)="SYNONYM:"
^DIST(.403,14,"AY","X",5,8,48)="DIVISION"
^DIST(.403,14,"AY","X",5,10,16)="DIVISION:"
^DIST(.403,14,"AY","X",5,11,17)="DEFAULT:"
^DIST(.403,14,"AY","X",6,8,48)="NAME COMPONENTS"
^DIST(.403,14,"AY","X",6,9,20)="Prefix:"
^DIST(.403,14,"AY","X",6,10,13)="Given (First):"
^DIST(.403,14,"AY","X",6,10,13,"A")="1;13;U"
^DIST(.403,14,"AY","X",6,11,20)="Middle:"
^DIST(.403,14,"AY","X",6,12,13)="Family (Last):"
^DIST(.403,14,"AY","X",6,12,13,"A")="1;13;U"
^DIST(.403,14,"AY","X",6,13,20)="Suffix:"
^DIST(.403,14,"AY","X",7,0,29)="Edit an Existing User"
^DIST(.403,14,"AY","X",7,1,0)="NAME:                                                               Page 4 of 5"
^DIST(.403,14,"AY","X",7,1,0,"A")="1;4;U"
^DIST(.403,14,"AY","X",7,2,0)="_______________________________________________________________________________"
^DIST(.403,14,"AY","X",7,3,0)="RESTRICT PATIENT SELECTION:        OE/RR LIST:"
^DIST(.403,14,"AY","X",7,5,0)="CPRS TAB ACCESS:"
^DIST(.403,14,"AY","X",7,6,2)="Name  Description                          Effective Date  Expiration Date"
^DIST(.403,14,"AY","X",8,0,29)="Edit an Existing User"
^DIST(.403,14,"AY","X",8,1,0)="NAME:                                                               Page 5 of 5"
^DIST(.403,14,"AY","X",8,1,0,"A")="1;4;U"
^DIST(.403,14,"AY","X",8,2,0)="_______________________________________________________________________________"
^DIST(.403,14,"AY","X",8,3,0)="PERMANENT ADDRESS:"
^DIST(.403,14,"AY","X",8,4,10)="Street 1:"
^DIST(.403,14,"AY","X",8,5,10)="Street 2:"
^DIST(.403,14,"AY","X",8,6,10)="Street 3:"
^DIST(.403,14,"AY","X",8,7,14)="City:"
^DIST(.403,14,"AY","X",8,8,13)="State:"
^DIST(.403,14,"AY","X",8,9,10)="Zip Code:"
^DIST(.403,14,"AY","X",8,10,4)="E-Mail Address:"
^DIST(.403,14,"AY","X",8,11,0)="Is this person an active Trainee?:"
^DIST(.403,14,"AY","X",8,12,0)="VHA Training Fac.:"
^DIST(.403,14,"AY","X",8,13,0)="Start Date of Training:              Last Training Month & Year:"
^DIST(.403,14,"AY","X",8,14,37)="Trainee Inactive (Date):"
^DIST(.403,14,"AY","X",8,15,0)="Program of Study:"
^DIST(.403,14,"AY","X",8,16,0)="Target Degree Lvl:"
^DIST(.403,15,0)="PRSA TD EDIT^^^^2920127^^^457.1^0^0^1"
^DIST(.403,15,20)="D VAL^PRSATD1"
^DIST(.403,15,40,0)="^.4031I^1^1"
^DIST(.403,15,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,15,40,1,1)="page 1"
^DIST(.403,15,40,1,40,0)="^.4032PI^62^1"
^DIST(.403,15,40,1,40,62,0)="62^1^1,1^e"
^DIST(.403,15,40,1,40,"AC",1,62)=""
^DIST(.403,15,40,1,40,"B",62,62)=""
^DIST(.403,15,40,"B",1,1)=""
^DIST(.403,15,40,"C","PAGE 1",1)=""
^DIST(.403,15,40,"C","page 1",1)=""
^DIST(.403,15,"AY",1,0,0,"N")="25,62^3,62^3,62^27,62^3,62"
^DIST(.403,15,"AY",1,62)="0^0^457.1^0^e^^^^3"
^DIST(.403,15,"AY",1,62,3,"D")="3^13^30^.01"
^DIST(.403,15,"AY",1,62,3,"N")="0^4^4^0^4"
^DIST(.403,15,"AY",1,62,4,"D")="4^13^30^1"
^DIST(.403,15,"AY",1,62,4,"N")="3^5^5^3^5"
^DIST(.403,15,"AY",1,62,5,"D")="5^13^3^2"
^DIST(.403,15,"AY",1,62,5,"N")="4^28^30^4^30"
^DIST(.403,15,"AY",1,62,7,"D")="10^8^7^11"
^DIST(.403,15,"AY",1,62,7,"N")="28^10^8^29^8"
^DIST(.403,15,"AY",1,62,8,"D")="10^18^7^12"
^DIST(.403,15,"AY",1,62,8,"N")="28^11^9^7^9"
^DIST(.403,15,"AY",1,62,9,"D")="10^28^20^13"
^DIST(.403,15,"AY",1,62,9,"N")="28^12^10^8^10"
^DIST(.403,15,"AY",1,62,10,"D")="11^8^7^14"
^DIST(.403,15,"AY",1,62,10,"N")="7^13^11^9^11"
^DIST(.403,15,"AY",1,62,11,"D")="11^18^7^15"
^DIST(.403,15,"AY",1,62,11,"N")="8^14^12^10^12"
^DIST(.403,15,"AY",1,62,12,"D")="11^28^20^16"
^DIST(.403,15,"AY",1,62,12,"N")="9^15^13^11^13"
^DIST(.403,15,"AY",1,62,13,"D")="12^8^7^17"
^DIST(.403,15,"AY",1,62,13,"N")="10^16^14^12^14"
^DIST(.403,15,"AY",1,62,14,"D")="12^18^7^18"
^DIST(.403,15,"AY",1,62,14,"N")="11^17^15^13^15"
^DIST(.403,15,"AY",1,62,15,"D")="12^28^20^19"
^DIST(.403,15,"AY",1,62,15,"N")="12^18^16^14^16"
^DIST(.403,15,"AY",1,62,16,"D")="13^8^7^20"
^DIST(.403,15,"AY",1,62,16,"N")="13^19^17^15^17"
^DIST(.403,15,"AY",1,62,17,"D")="13^18^7^21"
^DIST(.403,15,"AY",1,62,17,"N")="14^20^18^16^18"
^DIST(.403,15,"AY",1,62,18,"D")="13^28^20^22"
^DIST(.403,15,"AY",1,62,18,"N")="15^21^19^17^19"
^DIST(.403,15,"AY",1,62,19,"D")="14^8^7^23"
^DIST(.403,15,"AY",1,62,19,"N")="16^22^20^18^20"
^DIST(.403,15,"AY",1,62,20,"D")="14^18^7^24"
^DIST(.403,15,"AY",1,62,20,"N")="17^23^21^19^21"
^DIST(.403,15,"AY",1,62,21,"D")="14^28^20^25"
^DIST(.403,15,"AY",1,62,21,"N")="18^24^22^20^22"
^DIST(.403,15,"AY",1,62,22,"D")="15^8^7^26"
^DIST(.403,15,"AY",1,62,22,"N")="19^25^23^21^23"
^DIST(.403,15,"AY",1,62,23,"D")="15^18^7^27"
^DIST(.403,15,"AY",1,62,23,"N")="20^26^24^22^24"
^DIST(.403,15,"AY",1,62,24,"D")="15^28^20^28"
^DIST(.403,15,"AY",1,62,24,"N")="21^27^25^23^25"
^DIST(.403,15,"AY",1,62,25,"D")="16^8^7^29"
^DIST(.403,15,"AY",1,62,25,"N")="22^0^26^24^26"
^DIST(.403,15,"AY",1,62,26,"D")="16^18^7^30"
^DIST(.403,15,"AY",1,62,26,"N")="23^0^27^25^27"
^DIST(.403,15,"AY",1,62,27,"D")="16^28^20^31"
^DIST(.403,15,"AY",1,62,27,"N")="24^0^0^26^0"
^DIST(.403,15,"AY",1,62,28,"D")="6^13^3^4"
^DIST(.403,15,"AY",1,62,28,"N")="5^7^29^30^29"
^DIST(.403,15,"AY",1,62,29,"D")="6^53^3^5"
^DIST(.403,15,"AY",1,62,29,"N")="5^9^7^28^7"
^DIST(.403,15,"AY",1,62,30,"D")="5^61^3^7"
^DIST(.403,15,"AY",1,62,30,"N")="4^29^28^5^28"
^DIST(.403,15,"AY",1,"FIRST")="3,62"
^DIST(.403,15,"AY","CAP",1,1,1,62,7)=""
^DIST(.403,15,"AY","CAP",2,1,1,62,10)=""
^DIST(.403,15,"AY","CAP",3,1,1,62,13)=""
^DIST(.403,15,"AY","CAP",4,1,1,62,16)=""
^DIST(.403,15,"AY","CAP",5,1,1,62,19)=""
^DIST(.403,15,"AY","CAP",6,1,1,62,22)=""
^DIST(.403,15,"AY","CAP",7,1,1,62,25)=""
^DIST(.403,15,"AY","CAP","ALL T&LS?",1,1,62,28)=""
^DIST(.403,15,"AY","CAP","DESCRIPTION",1,1,62,4)=""
^DIST(.403,15,"AY","CAP","MEAL ON PREMIUM TIME?",1,1,62,30)=""
^DIST(.403,15,"AY","CAP","MEAL TIME",1,1,62,5)=""
^DIST(.403,15,"AY","CAP","TOUR HOURS",1,1,62,3)=""
^DIST(.403,15,"AY","CAP","TWO-DAY TOUR?",1,1,62,29)=""
^DIST(.403,15,"AY","F457.1",.01,"L",1,62,3)=""
^DIST(.403,15,"AY","F457.1",1,"L",1,62,4)=""
^DIST(.403,15,"AY","F457.1",2,"L",1,62,5)=""
^DIST(.403,15,"AY","F457.1",4,"L",1,62,28)=""
^DIST(.403,15,"AY","F457.1",5,"L",1,62,29)=""
^DIST(.403,15,"AY","F457.1",7,"L",1,62,30)=""
^DIST(.403,15,"AY","F457.1",11,"L",1,62,7)=""
^DIST(.403,15,"AY","F457.1",12,"L",1,62,8)=""
^DIST(.403,15,"AY","F457.1",13,"L",1,62,9)=""
^DIST(.403,15,"AY","F457.1",14,"L",1,62,10)=""
^DIST(.403,15,"AY","F457.1",15,"L",1,62,11)=""
^DIST(.403,15,"AY","F457.1",16,"L",1,62,12)=""
^DIST(.403,15,"AY","F457.1",17,"L",1,62,13)=""
^DIST(.403,15,"AY","F457.1",18,"L",1,62,14)=""
^DIST(.403,15,"AY","F457.1",19,"L",1,62,15)=""
^DIST(.403,15,"AY","F457.1",20,"L",1,62,16)=""
^DIST(.403,15,"AY","F457.1",21,"L",1,62,17)=""
^DIST(.403,15,"AY","F457.1",22,"L",1,62,18)=""
^DIST(.403,15,"AY","F457.1",23,"L",1,62,19)=""
^DIST(.403,15,"AY","F457.1",24,"L",1,62,20)=""
^DIST(.403,15,"AY","F457.1",25,"L",1,62,21)=""
^DIST(.403,15,"AY","F457.1",26,"L",1,62,22)=""
^DIST(.403,15,"AY","F457.1",27,"L",1,62,23)=""
^DIST(.403,15,"AY","F457.1",28,"L",1,62,24)=""
^DIST(.403,15,"AY","F457.1",29,"L",1,62,25)=""
^DIST(.403,15,"AY","F457.1",30,"L",1,62,26)=""
^DIST(.403,15,"AY","F457.1",31,"L",1,62,27)=""
^DIST(.403,15,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,15,"AY","X",1,1,33)="TOUR OF DUTY"
^DIST(.403,15,"AY","X",1,3,0)="Tour Hours:"
^DIST(.403,15,"AY","X",1,3,0,"A")="1;10;U"
^DIST(.403,15,"AY","X",1,4,0)="Description:"
^DIST(.403,15,"AY","X",1,5,0)="Meal Time:                             Meal on Premium Time?"
^DIST(.403,15,"AY","X",1,5,0,"A")="1;9;U"
^DIST(.403,15,"AY","X",1,6,0)="All T&Ls?                              Two-Day Tour?"
^DIST(.403,15,"AY","X",1,8,9)="START     STOP      CODE"
^DIST(.403,15,"AY","X",1,10,2)="1"
^DIST(.403,15,"AY","X",1,11,2)="2"
^DIST(.403,15,"AY","X",1,12,2)="3"
^DIST(.403,15,"AY","X",1,13,2)="4"
^DIST(.403,15,"AY","X",1,14,2)="5"
^DIST(.403,15,"AY","X",1,15,2)="6"
^DIST(.403,15,"AY","X",1,16,2)="7"
^DIST(.403,16,0)="PRSA OT REQ^^^^2920206^^^458.2^0^0^1"
^DIST(.403,16,40,0)="^.4031I^1^1"
^DIST(.403,16,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,16,40,1,1)="Page 1"
^DIST(.403,16,40,1,40,0)="^.4032PI^64^1"
^DIST(.403,16,40,1,40,64,0)="64^1^1,1^e"
^DIST(.403,16,40,1,40,"AC",1,64)=""
^DIST(.403,16,40,1,40,"B",64,64)=""
^DIST(.403,16,40,"B",1,1)=""
^DIST(.403,16,40,"C","PAGE 1",1)=""
^DIST(.403,16,"AY",1,0,0,"N")="8,64^3,64^3,64^8,64^3,64"
^DIST(.403,16,"AY",1,64)="0^0^458.2^0^e^^^^3"
^DIST(.403,16,"AY",1,64,3,"D")="6^22^30^1"
^DIST(.403,16,"AY",1,64,3,"N")="0^4^4^0^4"
^DIST(.403,16,"AY",1,64,4,"D")="8^22^11^2"
^DIST(.403,16,"AY",1,64,4,"N")="3^6^6^3^6"
^DIST(.403,16,"AY",1,64,6,"D")="10^22^20^4"
^DIST(.403,16,"AY",1,64,6,"N")="4^7^7^4^7"
^DIST(.403,16,"AY",1,64,7,"D")="12^22^5^5"
^DIST(.403,16,"AY",1,64,7,"N")="6^9^9^6^9"
^DIST(.403,16,"AY",1,64,8,"D")="16^15^60^6"
^DIST(.403,16,"AY",1,64,8,"N")="9^0^0^9^0"
^DIST(.403,16,"AY",1,64,9,"D")="14^22^3^11"
^DIST(.403,16,"AY",1,64,9,"N")="7^8^8^7^8"
^DIST(.403,16,"AY",1,"FIRST")="3,64"
^DIST(.403,16,"AY","CAP","EMPLOYEE",1,1,64,3)=""
^DIST(.403,16,"AY","CAP","HOURS REQUESTED",1,1,64,7)=""
^DIST(.403,16,"AY","CAP","JUSTIFICATION",1,1,64,8)=""
^DIST(.403,16,"AY","CAP","REQUESTED WORK DATE",1,1,64,4)=""
^DIST(.403,16,"AY","CAP","T&L WORKED",1,1,64,9)=""
^DIST(.403,16,"AY","CAP","TYPE OF TIME",1,1,64,6)=""
^DIST(.403,16,"AY","F458.2",1,"L",1,64,3)=""
^DIST(.403,16,"AY","F458.2",2,"L",1,64,4)=""
^DIST(.403,16,"AY","F458.2",4,"L",1,64,6)=""
^DIST(.403,16,"AY","F458.2",5,"L",1,64,7)=""
^DIST(.403,16,"AY","F458.2",6,"L",1,64,8)=""
^DIST(.403,16,"AY","F458.2",11,"L",1,64,9)=""
^DIST(.403,16,"AY","X",1,1,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,16,"AY","X",1,3,19)="OVERTIME & COMP TIME/CREDIT HOURS REQUEST"
^DIST(.403,16,"AY","X",1,6,0)="Employee:"
^DIST(.403,16,"AY","X",1,6,0,"A")="1;8;U"
^DIST(.403,16,"AY","X",1,8,0)="Requested Work Date:"
^DIST(.403,16,"AY","X",1,8,0,"A")="1;19;U"
^DIST(.403,16,"AY","X",1,10,0)="Type of Time:"
^DIST(.403,16,"AY","X",1,10,0,"A")="1;12;U"
^DIST(.403,16,"AY","X",1,12,0)="Hours Requested:"
^DIST(.403,16,"AY","X",1,12,0,"A")="1;15;U"
^DIST(.403,16,"AY","X",1,14,0)="T&L Worked"
^DIST(.403,16,"AY","X",1,14,0,"A")="1;10;U"
^DIST(.403,16,"AY","X",1,16,0)="Justification:"
^DIST(.403,16,"AY","X",1,16,0,"A")="1;13;U"
^DIST(.403,17,0)="PRSA TD DISP^^^^2920207^^^457.1^1^0^1"
^DIST(.403,17,40,0)="^.4031I^1^1"
^DIST(.403,17,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,17,40,1,1)="Page 1"
^DIST(.403,17,40,1,40,0)="^.4032PI^62^1"
^DIST(.403,17,40,1,40,62,0)="62^1^1,1^d"
^DIST(.403,17,40,1,40,"AC",1,62)=""
^DIST(.403,17,40,1,40,"B",62,62)=""
^DIST(.403,17,40,"B",1,1)=""
^DIST(.403,17,40,"C","PAGE 1",1)=""
^DIST(.403,17,40,"C","Page 1",1)=""
^DIST(.403,17,"AY",1,0,0,"N")="0^0^0^0^0"
^DIST(.403,17,"AY",1,62)="0^0^457.1^0^d^^^^0"
^DIST(.403,17,"AY",1,62,3,"D")="3^13^30^.01"
^DIST(.403,17,"AY",1,62,4,"D")="4^13^30^1"
^DIST(.403,17,"AY",1,62,5,"D")="5^13^3^2"
^DIST(.403,17,"AY",1,62,7,"D")="10^8^7^11"
^DIST(.403,17,"AY",1,62,8,"D")="10^18^7^12"
^DIST(.403,17,"AY",1,62,9,"D")="10^28^20^13"
^DIST(.403,17,"AY",1,62,10,"D")="11^8^7^14"
^DIST(.403,17,"AY",1,62,11,"D")="11^18^7^15"
^DIST(.403,17,"AY",1,62,12,"D")="11^28^20^16"
^DIST(.403,17,"AY",1,62,13,"D")="12^8^7^17"
^DIST(.403,17,"AY",1,62,14,"D")="12^18^7^18"
^DIST(.403,17,"AY",1,62,15,"D")="12^28^20^19"
^DIST(.403,17,"AY",1,62,16,"D")="13^8^7^20"
^DIST(.403,17,"AY",1,62,17,"D")="13^18^7^21"
^DIST(.403,17,"AY",1,62,18,"D")="13^28^20^22"
^DIST(.403,17,"AY",1,62,19,"D")="14^8^7^23"
^DIST(.403,17,"AY",1,62,20,"D")="14^18^7^24"
^DIST(.403,17,"AY",1,62,21,"D")="14^28^20^25"
^DIST(.403,17,"AY",1,62,22,"D")="15^8^7^26"
^DIST(.403,17,"AY",1,62,23,"D")="15^18^7^27"
^DIST(.403,17,"AY",1,62,24,"D")="15^28^20^28"
^DIST(.403,17,"AY",1,62,25,"D")="16^8^7^29"
^DIST(.403,17,"AY",1,62,26,"D")="16^18^7^30"
^DIST(.403,17,"AY",1,62,27,"D")="16^28^20^31"
^DIST(.403,17,"AY",1,62,28,"D")="6^13^3^4"
^DIST(.403,17,"AY",1,62,29,"D")="6^53^3^5"
^DIST(.403,17,"AY",1,62,30,"D")="5^61^3^7"
^DIST(.403,17,"AY",1,"FIRST")="0,62"
^DIST(.403,17,"AY","F457.1",.01,"L",1,62,3)=""
^DIST(.403,17,"AY","F457.1",1,"L",1,62,4)=""
^DIST(.403,17,"AY","F457.1",2,"L",1,62,5)=""
^DIST(.403,17,"AY","F457.1",4,"L",1,62,28)=""
^DIST(.403,17,"AY","F457.1",5,"L",1,62,29)=""
^DIST(.403,17,"AY","F457.1",7,"L",1,62,30)=""
^DIST(.403,17,"AY","F457.1",11,"L",1,62,7)=""
^DIST(.403,17,"AY","F457.1",12,"L",1,62,8)=""
^DIST(.403,17,"AY","F457.1",13,"L",1,62,9)=""
^DIST(.403,17,"AY","F457.1",14,"L",1,62,10)=""
^DIST(.403,17,"AY","F457.1",15,"L",1,62,11)=""
^DIST(.403,17,"AY","F457.1",16,"L",1,62,12)=""
^DIST(.403,17,"AY","F457.1",17,"L",1,62,13)=""
^DIST(.403,17,"AY","F457.1",18,"L",1,62,14)=""
^DIST(.403,17,"AY","F457.1",19,"L",1,62,15)=""
^DIST(.403,17,"AY","F457.1",20,"L",1,62,16)=""
^DIST(.403,17,"AY","F457.1",21,"L",1,62,17)=""
^DIST(.403,17,"AY","F457.1",22,"L",1,62,18)=""
^DIST(.403,17,"AY","F457.1",23,"L",1,62,19)=""
^DIST(.403,17,"AY","F457.1",24,"L",1,62,20)=""
^DIST(.403,17,"AY","F457.1",25,"L",1,62,21)=""
^DIST(.403,17,"AY","F457.1",26,"L",1,62,22)=""
^DIST(.403,17,"AY","F457.1",27,"L",1,62,23)=""
^DIST(.403,17,"AY","F457.1",28,"L",1,62,24)=""
^DIST(.403,17,"AY","F457.1",29,"L",1,62,25)=""
^DIST(.403,17,"AY","F457.1",30,"L",1,62,26)=""
^DIST(.403,17,"AY","F457.1",31,"L",1,62,27)=""
^DIST(.403,17,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,17,"AY","X",1,1,33)="TOUR OF DUTY"
^DIST(.403,17,"AY","X",1,3,0)="Tour Hours:"
^DIST(.403,17,"AY","X",1,3,0,"A")="1;10;U"
^DIST(.403,17,"AY","X",1,4,0)="Description:"
^DIST(.403,17,"AY","X",1,5,0)="Meal Time:                             Meal on Premium Time?"
^DIST(.403,17,"AY","X",1,5,0,"A")="1;9;U"
^DIST(.403,17,"AY","X",1,6,0)="All T&Ls?                              Two-Day Tour?"
^DIST(.403,17,"AY","X",1,8,9)="START     STOP      CODE"
^DIST(.403,17,"AY","X",1,10,2)="1"
^DIST(.403,17,"AY","X",1,11,2)="2"
^DIST(.403,17,"AY","X",1,12,2)="3"
^DIST(.403,17,"AY","X",1,13,2)="4"
^DIST(.403,17,"AY","X",1,14,2)="5"
^DIST(.403,17,"AY","X",1,15,2)="6"
^DIST(.403,17,"AY","X",1,16,2)="7"
^DIST(.403,18,0)="PRSA TL EDIT^^^^2920207^^^455.5^0^0^1"
^DIST(.403,18,40,0)="^.4031I^4^4"
^DIST(.403,18,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,18,40,1,1)="Page 1"
^DIST(.403,18,40,1,40,0)="^.4032PI^65^1"
^DIST(.403,18,40,1,40,65,0)="65^1^1,1^e"
^DIST(.403,18,40,1,40,"AC",1,65)=""
^DIST(.403,18,40,1,40,"B",65,65)=""
^DIST(.403,18,40,2,0)="1.1^^11,10^^^1^15,70"
^DIST(.403,18,40,2,1)="Subpage 1.1"
^DIST(.403,18,40,2,40,0)="^.4032PI^66^1"
^DIST(.403,18,40,2,40,66,0)="66^1^3,3^e"
^DIST(.403,18,40,2,40,"AC",1,66)=""
^DIST(.403,18,40,2,40,"B",66,66)=""
^DIST(.403,18,40,3,0)="1.2^^11,10^^^1^17,70"
^DIST(.403,18,40,3,1)="Subpage 1.2"
^DIST(.403,18,40,3,40,0)="^.4032PI^67^1"
^DIST(.403,18,40,3,40,67,0)="67^1^3,3^e"
^DIST(.403,18,40,3,40,"AC",1,67)=""
^DIST(.403,18,40,3,40,"B",67,67)=""
^DIST(.403,18,40,4,0)="1.3^^13,10^^^1^17,70"
^DIST(.403,18,40,4,1)="Subpage 1.3"
^DIST(.403,18,40,4,40,0)="^.4032PI^78^1"
^DIST(.403,18,40,4,40,78,0)="78^1^3,3^e"
^DIST(.403,18,40,4,40,"AC",1,78)=""
^DIST(.403,18,40,4,40,"B",78,78)=""
^DIST(.403,18,40,"B",1,1)=""
^DIST(.403,18,40,"B",1.1,2)=""
^DIST(.403,18,40,"B",1.2,3)=""
^DIST(.403,18,40,"B",1.3,4)=""
^DIST(.403,18,40,"C","PAGE 1",1)=""
^DIST(.403,18,40,"C","Page 1",1)=""
^DIST(.403,18,40,"C","SUBPAGE 1.1",2)=""
^DIST(.403,18,40,"C","SUBPAGE 1.2",3)=""
^DIST(.403,18,40,"C","SUBPAGE 1.3",4)=""
^DIST(.403,18,40,"C","Subpage 1.1",2)=""
^DIST(.403,18,40,"C","Subpage 1.2",3)=""
^DIST(.403,18,40,"C","Subpage 1.3",4)=""
^DIST(.403,18,"AY",1,0,0,"N")="10,65^3,65^3,65^10,65^3,65"
^DIST(.403,18,"AY",1,65)="0^0^455.5^0^e^^^^3"
^DIST(.403,18,"AY",1,65,3,"D")="4^12^3^.01"
^DIST(.403,18,"AY",1,65,3,"N")="0^4^4^0^4"
^DIST(.403,18,"AY",1,65,4,"D")="5^12^20^1"
^DIST(.403,18,"AY",1,65,4,"N")="3^5^5^3^5"
^DIST(.403,18,"AY",1,65,5,"D")="6^12^3^20"
^DIST(.403,18,"AY",1,65,5,"N")="4^6^6^4^6"
^DIST(.403,18,"AY",1,65,6,"D")="7^12^30^21"
^DIST(.403,18,"AY",1,65,6,"N")="5^12^7^5^7"
^DIST(.403,18,"AY",1,65,7,"D")="7^58^20^22"
^DIST(.403,18,"AY",1,65,7,"N")="5^12^12^6^12"
^DIST(.403,18,"AY",1,65,8,"D")="12^23^30^10"
^DIST(.403,18,"AY",1,65,8,"N")="11^9^9^11^9^^^^^^1"
^DIST(.403,18,"AY",1,65,9,"D")="14^23^30^11"
^DIST(.403,18,"AY",1,65,9,"N")="8^10^10^8^10^^^^^^1"
^DIST(.403,18,"AY",1,65,10,"D")="16^23^30^12"
^DIST(.403,18,"AY",1,65,10,"N")="9^0^0^9^0^^^^^^1"
^DIST(.403,18,"AY",1,65,11,"D")="10^27^3^23"
^DIST(.403,18,"AY",1,65,11,"N")="12^8^8^12^8"
^DIST(.403,18,"AY",1,65,12,"D")="9^27^6^24"
^DIST(.403,18,"AY",1,65,12,"N")="6^11^11^7^11"
^DIST(.403,18,"AY",1,"FIRST")="3,65"
^DIST(.403,18,"AY",2,0,0,"N")="1,66^1,66^1,66^1,66^1,66"
^DIST(.403,18,"AY",2,66)="12^11^455.51^^e^^^^1"
^DIST(.403,18,"AY",2,66,1,"D")="12^23^30^.01"
^DIST(.403,18,"AY",2,66,1,"N")="0^0^0^0^0"
^DIST(.403,18,"AY",2,"FIRST")="1,66"
^DIST(.403,18,"AY",3,0,0,"N")="2,67^1,67^1,67^2,67^1,67"
^DIST(.403,18,"AY",3,67)="12^11^455.511^^e^^^^1"
^DIST(.403,18,"AY",3,67,1,"D")="12^23^30^.01"
^DIST(.403,18,"AY",3,67,1,"N")="0^2^2^0^2"
^DIST(.403,18,"AY",3,67,2,"D")="14^43^3^1"
^DIST(.403,18,"AY",3,67,2,"N")="1^0^0^1^0"
^DIST(.403,18,"AY",3,"FIRST")="1,67"
^DIST(.403,18,"AY",4,0,0,"N")="1,78^1,78^1,78^1,78^1,78"
^DIST(.403,18,"AY",4,78)="14^11^455.512^^e^^^^1"
^DIST(.403,18,"AY",4,78,1,"D")="14^27^30^.01"
^DIST(.403,18,"AY",4,78,1,"N")="0^0^0^0^0"
^DIST(.403,18,"AY",4,"FIRST")="1,78"
^DIST(.403,18,"AY","CAP","CODE",1,1,65,3)=""
^DIST(.403,18,"AY","CAP","ENTITLED SAT/SUN PREMIUMS?",1,1,65,11)=""
^DIST(.403,18,"AY","CAP","NAME",1,1,65,4)=""
^DIST(.403,18,"AY","CAP","OT/CT APPROVER",1,1,65,10)=""
^DIST(.403,18,"AY","CAP","OT/CT APPROVER",4,4,78,1)=""
^DIST(.403,18,"AY","CAP","SECTION",1,1,65,7)=""
^DIST(.403,18,"AY","CAP","SERVICE",1,1,65,6)=""
^DIST(.403,18,"AY","CAP","STATION #",1,1,65,5)=""
^DIST(.403,18,"AY","CAP","SUPERVISOR",1,1,65,9)=""
^DIST(.403,18,"AY","CAP","SUPERVISOR",3,3,67,1)=""
^DIST(.403,18,"AY","CAP","T&L WHICH CERTIFIES SUPERVISOR",3,3,67,2)=""
^DIST(.403,18,"AY","CAP","TIME SLEEPTIME BEGINS",1,1,65,12)=""
^DIST(.403,18,"AY","CAP","TIMEKEEPER",1,1,65,8)=""
^DIST(.403,18,"AY","CAP","TIMEKEEPER",2,2,66,1)=""
^DIST(.403,18,"AY","F455.5",.01,"L",1,65,3)=""
^DIST(.403,18,"AY","F455.5",1,"L",1,65,4)=""
^DIST(.403,18,"AY","F455.5",10,"L",1,65,8)=""
^DIST(.403,18,"AY","F455.5",11,"L",1,65,9)=""
^DIST(.403,18,"AY","F455.5",12,"L",1,65,10)=""
^DIST(.403,18,"AY","F455.5",20,"L",1,65,5)=""
^DIST(.403,18,"AY","F455.5",21,"L",1,65,6)=""
^DIST(.403,18,"AY","F455.5",22,"L",1,65,7)=""
^DIST(.403,18,"AY","F455.5",23,"L",1,65,11)=""
^DIST(.403,18,"AY","F455.5",24,"L",1,65,12)=""
^DIST(.403,18,"AY","F455.51",.01,"L",2,66,1)=""
^DIST(.403,18,"AY","F455.511",.01,"L",3,67,1)=""
^DIST(.403,18,"AY","F455.511",1,"L",3,67,2)=""
^DIST(.403,18,"AY","F455.512",.01,"L",4,78,1)=""
^DIST(.403,18,"AY","X",1,1,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,18,"AY","X",1,2,31)="TIME & LEAVE UNIT"
^DIST(.403,18,"AY","X",1,4,0)="CODE:"
^DIST(.403,18,"AY","X",1,4,0,"A")="1;4;U"
^DIST(.403,18,"AY","X",1,5,0)="NAME:"
^DIST(.403,18,"AY","X",1,6,0)="STATION #"
^DIST(.403,18,"AY","X",1,6,0,"A")="1;9;U"
^DIST(.403,18,"AY","X",1,7,0)="SERVICE:                                         SECTION:"
^DIST(.403,18,"AY","X",1,9,0)="Time SleepTime Begins:"
^DIST(.403,18,"AY","X",1,9,0,"A")="1;21;U"
^DIST(.403,18,"AY","X",1,10,0)="Entitled Sat/Sun Premiums?"
^DIST(.403,18,"AY","X",1,10,0,"A")="1;26;U"
^DIST(.403,18,"AY","X",1,12,0)="Select TIMEKEEPER:"
^DIST(.403,18,"AY","X",1,14,0)="Select SUPERVISOR:"
^DIST(.403,18,"AY","X",1,16,0)="Select OT/CT APPROVER:"
^DIST(.403,18,"AY","X",2,12,11)="Timekeeper:"
^DIST(.403,18,"AY","X",3,12,11)="Supervisor:"
^DIST(.403,18,"AY","X",3,14,11)="T&L which Certifies Supervisor:"
^DIST(.403,18,"AY","X",3,14,11,"A")="1;30;U"
^DIST(.403,18,"AY","X",4,14,11)="OT/CT Approver:"
^DIST(.403,19,0)="PRSA TL DISP^^^^2920207^^^455.5^1^0^1"
^DIST(.403,19,40,0)="^.4031I^1^1"
^DIST(.403,19,40,1,0)="1^^1,1^^^0"
^DIST(.403,19,40,1,1)="Page 1"
^DIST(.403,19,40,1,40,0)="^.4032PI^65^1"
^DIST(.403,19,40,1,40,65,0)="65^1^1,1^d"
^DIST(.403,19,40,1,40,"AC",1,65)=""
^DIST(.403,19,40,1,40,"B",65,65)=""
^DIST(.403,19,40,"B",1,1)=""
^DIST(.403,19,40,"C","PAGE 1",1)=""
^DIST(.403,19,40,"C","Page 1",1)=""
^DIST(.403,19,"AY",1,0,0,"N")="10,65^8,65^8,65^10,65^8,65"
^DIST(.403,19,"AY",1,65)="0^0^455.5^0^d^^^^8"
^DIST(.403,19,"AY",1,65,3,"D")="4^12^3^.01"
^DIST(.403,19,"AY",1,65,4,"D")="5^12^20^1"
^DIST(.403,19,"AY",1,65,5,"D")="6^12^3^20"
^DIST(.403,19,"AY",1,65,6,"D")="7^12^30^21"
^DIST(.403,19,"AY",1,65,7,"D")="7^58^20^22"
^DIST(.403,19,"AY",1,65,8,"D")="12^23^30^10"
^DIST(.403,19,"AY",1,65,8,"N")="0^9^9^0^9^^^^^^1"
^DIST(.403,19,"AY",1,65,9,"D")="14^23^30^11"
^DIST(.403,19,"AY",1,65,9,"N")="8^10^10^8^10^^^^^^1"
^DIST(.403,19,"AY",1,65,10,"D")="16^23^30^12"
^DIST(.403,19,"AY",1,65,10,"N")="9^0^0^9^0^^^^^^1"
^DIST(.403,19,"AY",1,65,11,"D")="10^27^3^23"
^DIST(.403,19,"AY",1,65,12,"D")="9^27^6^24"
^DIST(.403,19,"AY",1,"FIRST")="8,65"
^DIST(.403,19,"AY","F455.5",.01,"L",1,65,3)=""
^DIST(.403,19,"AY","F455.5",1,"L",1,65,4)=""
^DIST(.403,19,"AY","F455.5",10,"L",1,65,8)=""
^DIST(.403,19,"AY","F455.5",11,"L",1,65,9)=""
^DIST(.403,19,"AY","F455.5",12,"L",1,65,10)=""
^DIST(.403,19,"AY","F455.5",20,"L",1,65,5)=""
^DIST(.403,19,"AY","F455.5",21,"L",1,65,6)=""
^DIST(.403,19,"AY","F455.5",22,"L",1,65,7)=""
^DIST(.403,19,"AY","F455.5",23,"L",1,65,11)=""
^DIST(.403,19,"AY","F455.5",24,"L",1,65,12)=""
^DIST(.403,19,"AY","X",1,1,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,19,"AY","X",1,2,31)="TIME & LEAVE UNIT"
^DIST(.403,19,"AY","X",1,4,0)="CODE:"
^DIST(.403,19,"AY","X",1,4,0,"A")="1;4;U"
^DIST(.403,19,"AY","X",1,5,0)="NAME:"
^DIST(.403,19,"AY","X",1,6,0)="STATION #"
^DIST(.403,19,"AY","X",1,6,0,"A")="1;9;U"
^DIST(.403,19,"AY","X",1,7,0)="SERVICE:                                         SECTION:"
^DIST(.403,19,"AY","X",1,9,0)="Time SleepTime Begins:"
^DIST(.403,19,"AY","X",1,9,0,"A")="1;21;U"
^DIST(.403,19,"AY","X",1,10,0)="Entitled Sat/Sun Premiums?"
^DIST(.403,19,"AY","X",1,10,0,"A")="1;26;U"
^DIST(.403,19,"AY","X",1,12,0)="Select TIMEKEEPER:"
^DIST(.403,19,"AY","X",1,14,0)="Select SUPERVISOR:"
^DIST(.403,19,"AY","X",1,16,0)="Select OT/CT APPROVER:"
^DIST(.403,20,0)="PRSA LV REQ^^^^2920311^^^458.1^0^0^1"
^DIST(.403,20,20)="D VAL^PRSALVR"
^DIST(.403,20,40,0)="^.4031I^1^1"
^DIST(.403,20,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,20,40,1,1)="Page 1"
^DIST(.403,20,40,1,40,0)="^.4032PI^68^1"
^DIST(.403,20,40,1,40,68,0)="68^1^1,1^e"
^DIST(.403,20,40,1,40,"AC",1,68)=""
^DIST(.403,20,40,1,40,"B",68,68)=""
^DIST(.403,20,40,"B",1,1)=""
^DIST(.403,20,40,"C","PAGE 1",1)=""
^DIST(.403,20,"AY",1,0,0,"N")="8,68^3,68^3,68^8,68^3,68"
^DIST(.403,20,"AY",1,68)="0^0^458.1^0^e^^^^3"
^DIST(.403,20,"AY",1,68,3,"D")="5^11^11^2"
^DIST(.403,20,"AY",1,68,3,"N")="0^5^4^0^4"
^DIST(.403,20,"AY",1,68,4,"D")="5^40^7^3"
^DIST(.403,20,"AY",1,68,4,"N")="0^6^5^3^5"
^DIST(.403,20,"AY",1,68,5,"D")="7^9^11^4"
^DIST(.403,20,"AY",1,68,5,"N")="3^7^6^4^6"
^DIST(.403,20,"AY",1,68,6,"D")="7^40^7^5"
^DIST(.403,20,"AY",1,68,6,"N")="4^7^7^5^7"
^DIST(.403,20,"AY",1,68,7,"D")="14^15^21^6"
^DIST(.403,20,"AY",1,68,7,"N")="5^8^16^6^16"
^DIST(.403,20,"AY",1,68,8,"D")="16^9^60^7"
^DIST(.403,20,"AY",1,68,8,"N")="7^0^0^16^0"
^DIST(.403,20,"AY",1,68,9,"D")="^^^^3^0^^0"
^DIST(.403,20,"AY",1,68,10,"D")="^^^^3^34^^0"
^DIST(.403,20,"AY",1,68,15,"D")="^^^^14^39^^0"
^DIST(.403,20,"AY",1,68,16,"D")="14^59^6^15"
^DIST(.403,20,"AY",1,68,16,"N")="6^8^8^7^8"
^DIST(.403,20,"AY",1,"FIRST")="3,68"
^DIST(.403,20,"AY","CAP","FROM DATE",1,1,68,3)=""
^DIST(.403,20,"AY","CAP","REMARKS",1,1,68,8)=""
^DIST(.403,20,"AY","CAP","TIME",1,1,68,4)=""
^DIST(.403,20,"AY","CAP","TIME",1,1,68,6)=""
^DIST(.403,20,"AY","CAP","TO DATE",1,1,68,5)=""
^DIST(.403,20,"AY","CAP","TYPE OF LEAVE",1,1,68,7)=""
^DIST(.403,20,"AY","F458.1",2,"L",1,68,3)=""
^DIST(.403,20,"AY","F458.1",3,"L",1,68,4)=""
^DIST(.403,20,"AY","F458.1",4,"L",1,68,5)=""
^DIST(.403,20,"AY","F458.1",5,"L",1,68,6)=""
^DIST(.403,20,"AY","F458.1",6,"L",1,68,7)=""
^DIST(.403,20,"AY","F458.1",7,"L",1,68,8)=""
^DIST(.403,20,"AY","F458.1",15,"L",1,68,16)=""
^DIST(.403,20,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,20,"AY","X",1,1,31)="REQUEST FOR LEAVE"
^DIST(.403,20,"AY","X",1,5,0)="From Date:                        Time:"
^DIST(.403,20,"AY","X",1,5,0,"A")="1;9;U^35;38;U"
^DIST(.403,20,"AY","X",1,7,0)="To Date:                          Time:"
^DIST(.403,20,"AY","X",1,7,0,"A")="1;7;U^35;38;U"
^DIST(.403,20,"AY","X",1,9,2)="AL  Annual Leave          AA  Authorized Absence        CB  Family Care"
^DIST(.403,20,"AY","X",1,10,2)="SL  Sick Leave            ML  Military Leave            AD  Adoption"
^DIST(.403,20,"AY","X",1,11,2)="WP  Without Pay           RL  Restored Annual Leave     DL  Donor Leave"
^DIST(.403,20,"AY","X",1,12,2)="CU  Comp Time/Credit Hrs  NL  Non-Pay Annual Leave"
^DIST(.403,20,"AY","X",1,14,0)="Type of Leave:"
^DIST(.403,20,"AY","X",1,14,0,"A")="1;13;U"
^DIST(.403,20,"AY","X",1,16,0)="Remarks:"
^DIST(.403,21,0)="PRSA ED REQ^^^^2920324^^^458.3^0^0^1"
^DIST(.403,21,20)="D VAL^PRSAEDR"
^DIST(.403,21,40,0)="^.4031I^1^1"
^DIST(.403,21,40,1,0)="1^^1,1^1^^0"
^DIST(.403,21,40,1,1)="Page 1"
^DIST(.403,21,40,1,40,0)="^.4032PI^70^1"
^DIST(.403,21,40,1,40,70,0)="70^1^1,1^e"
^DIST(.403,21,40,1,40,"AC",1,70)=""
^DIST(.403,21,40,1,40,"B",70,70)=""
^DIST(.403,21,40,"B",1,1)=""
^DIST(.403,21,40,"C","PAGE 1",1)=""
^DIST(.403,21,40,"C","Page 1",1)=""
^DIST(.403,21,"AY",1,0,0,"N")="8,70^10,70^10,70^8,70^10,70"
^DIST(.403,21,"AY",1,70)="0^0^458.3^0^e^^^^10"
^DIST(.403,21,"AY",1,70,3,"D")="6^6^11^2"
^DIST(.403,21,"AY",1,70,3,"N")="10^5^4^10^4"
^DIST(.403,21,"AY",1,70,4,"D")="6^45^7^3"
^DIST(.403,21,"AY",1,70,4,"N")="10^5^5^3^5"
^DIST(.403,21,"AY",1,70,5,"D")="8^45^7^5"
^DIST(.403,21,"AY",1,70,5,"N")="4^6^6^4^6"
^DIST(.403,21,"AY",1,70,6,"D")="10^11^2^4"
^DIST(.403,21,"AY",1,70,6,"N")="5^7^7^5^7"
^DIST(.403,21,"AY",1,70,7,"D")="12^18^17^6"
^DIST(.403,21,"AY",1,70,7,"N")="6^8^8^6^8"
^DIST(.403,21,"AY",1,70,8,"D")="14^15^60^7"
^DIST(.403,21,"AY",1,70,8,"N")="7^0^0^7^0"
^DIST(.403,21,"AY",1,70,10,"D")="4^10^30^1"
^DIST(.403,21,"AY",1,70,10,"N")="0^3^3^0^3"
^DIST(.403,21,"AY",1,"FIRST")="10,70"
^DIST(.403,21,"AY","CAP","DATE",1,1,70,3)=""
^DIST(.403,21,"AY","CAP","EMPLOYEE",1,1,70,10)=""
^DIST(.403,21,"AY","CAP","FROM TIME",1,1,70,4)=""
^DIST(.403,21,"AY","CAP","JUSTIFICATION",1,1,70,8)=""
^DIST(.403,21,"AY","CAP","MEAL TIME",1,1,70,6)=""
^DIST(.403,21,"AY","CAP","TO TIME",1,1,70,5)=""
^DIST(.403,21,"AY","CAP","TYPE OF EXPOSURE",1,1,70,7)=""
^DIST(.403,21,"AY","F458.3",1,"L",1,70,10)=""
^DIST(.403,21,"AY","F458.3",2,"L",1,70,3)=""
^DIST(.403,21,"AY","F458.3",3,"L",1,70,4)=""
^DIST(.403,21,"AY","F458.3",4,"L",1,70,6)=""
^DIST(.403,21,"AY","F458.3",5,"L",1,70,5)=""
^DIST(.403,21,"AY","F458.3",6,"L",1,70,7)=""
^DIST(.403,21,"AY","F458.3",7,"L",1,70,8)=""
^DIST(.403,21,"AY","X",1,1,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,21,"AY","X",1,2,23)="ENVIRONMENTAL DIFFERENTIAL REQUEST"
^DIST(.403,21,"AY","X",1,4,0)="Employee:"
^DIST(.403,21,"AY","X",1,4,0,"A")="1;8;U"
^DIST(.403,21,"AY","X",1,6,0)="Date:                             From Time:"
^DIST(.403,21,"AY","X",1,6,0,"A")="1;4;U^35;43;U"
^DIST(.403,21,"AY","X",1,8,34)="To Time:"
^DIST(.403,21,"AY","X",1,8,34,"A")="1;7;U"
^DIST(.403,21,"AY","X",1,10,0)="Meal Time:"
^DIST(.403,21,"AY","X",1,10,0,"A")="1;9;U"
^DIST(.403,21,"AY","X",1,12,0)="Type of Exposure:"
^DIST(.403,21,"AY","X",1,12,0,"A")="1;16;U"
^DIST(.403,21,"AY","X",1,14,0)="Justification:"
^DIST(.403,21,"AY","X",1,14,0,"A")="1;13;U"
^DIST(.403,22,0)="PRSA VC POST^^^^2920325^^^458^0^0^1"
^DIST(.403,22,40,0)="^.4031I^1^1"
^DIST(.403,22,40,1,0)="1^71^1,1^1^1^0"
^DIST(.403,22,40,1,1)="Page 1"
^DIST(.403,22,40,1,40,0)="^.4032PI^72^1"
^DIST(.403,22,40,1,40,72,0)="72^1^8,1^e"
^DIST(.403,22,40,1,40,"AC",1,72)=""
^DIST(.403,22,40,1,40,"B",72,72)=""
^DIST(.403,22,40,"B",1,1)=""
^DIST(.403,22,40,"C","PAGE 1",1)=""
^DIST(.403,22,"AY",1,0,0,"N")="9,72^2,72^2,72^15,72^2,72"
^DIST(.403,22,"AY",1,71)="0^0^458.01^^h"
^DIST(.403,22,"AY",1,71,3,"D")="^^^^3^0^^0"
^DIST(.403,22,"AY",1,71,4,"D")="^^^^3^67^^0"
^DIST(.403,22,"AY",1,71,5,"D")="^^^^5^23^^0"
^DIST(.403,22,"AY",1,72)="7^0^458.01^^e^^^^2"
^DIST(.403,22,"AY",1,72,2,"D")="9^11^7^20"
^DIST(.403,22,"AY",1,72,2,"N")="0^9^3^0^3"
^DIST(.403,22,"AY",1,72,3,"D")="9^21^7^21"
^DIST(.403,22,"AY",1,72,3,"N")="0^10^4^2^4"
^DIST(.403,22,"AY",1,72,4,"D")="9^31^7^22"
^DIST(.403,22,"AY",1,72,4,"N")="0^11^5^3^5"
^DIST(.403,22,"AY",1,72,5,"D")="9^41^7^23"
^DIST(.403,22,"AY",1,72,5,"N")="0^12^6^4^6"
^DIST(.403,22,"AY",1,72,6,"D")="9^51^7^24"
^DIST(.403,22,"AY",1,72,6,"N")="0^13^7^5^7"
^DIST(.403,22,"AY",1,72,7,"D")="9^61^7^25"
^DIST(.403,22,"AY",1,72,7,"N")="0^14^8^6^8"
^DIST(.403,22,"AY",1,72,8,"D")="9^71^7^26"
^DIST(.403,22,"AY",1,72,8,"N")="0^15^9^7^9"
^DIST(.403,22,"AY",1,72,9,"D")="11^11^7^27"
^DIST(.403,22,"AY",1,72,9,"N")="2^0^10^8^10"
^DIST(.403,22,"AY",1,72,10,"D")="11^21^7^28"
^DIST(.403,22,"AY",1,72,10,"N")="3^0^11^9^11"
^DIST(.403,22,"AY",1,72,11,"D")="11^31^7^29"
^DIST(.403,22,"AY",1,72,11,"N")="4^0^12^10^12"
^DIST(.403,22,"AY",1,72,12,"D")="11^41^7^30"
^DIST(.403,22,"AY",1,72,12,"N")="5^0^13^11^13"
^DIST(.403,22,"AY",1,72,13,"D")="11^51^7^31"
^DIST(.403,22,"AY",1,72,13,"N")="6^0^14^12^14"
^DIST(.403,22,"AY",1,72,14,"D")="11^61^7^32"
^DIST(.403,22,"AY",1,72,14,"N")="7^0^15^13^15"
^DIST(.403,22,"AY",1,72,15,"D")="11^71^7^33"
^DIST(.403,22,"AY",1,72,15,"N")="8^0^0^14^0"
^DIST(.403,22,"AY",1,"FIRST")="2,72"
^DIST(.403,22,"AY","CAP","WEEK 1",1,1,72,2)=""
^DIST(.403,22,"AY","CAP","WEEK 2",1,1,72,9)=""
^DIST(.403,22,"AY","F458.01",20,"L",1,72,2)=""
^DIST(.403,22,"AY","F458.01",21,"L",1,72,3)=""
^DIST(.403,22,"AY","F458.01",22,"L",1,72,4)=""
^DIST(.403,22,"AY","F458.01",23,"L",1,72,5)=""
^DIST(.403,22,"AY","F458.01",24,"L",1,72,6)=""
^DIST(.403,22,"AY","F458.01",25,"L",1,72,7)=""
^DIST(.403,22,"AY","F458.01",26,"L",1,72,8)=""
^DIST(.403,22,"AY","F458.01",27,"L",1,72,9)=""
^DIST(.403,22,"AY","F458.01",28,"L",1,72,10)=""
^DIST(.403,22,"AY","F458.01",29,"L",1,72,11)=""
^DIST(.403,22,"AY","F458.01",30,"L",1,72,12)=""
^DIST(.403,22,"AY","F458.01",31,"L",1,72,13)=""
^DIST(.403,22,"AY","F458.01",32,"L",1,72,14)=""
^DIST(.403,22,"AY","F458.01",33,"L",1,72,15)=""
^DIST(.403,22,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,22,"AY","X",1,1,29)="VCS COMMISSION SALES"
^DIST(.403,22,"AY","X",1,7,13)="Sun       Mon       Tue       Wed       Thu       Fri       Sat"
^DIST(.403,22,"AY","X",1,9,0)="Week 1"
^DIST(.403,22,"AY","X",1,11,0)="Week 2"
^DIST(.403,23,0)="PRSA PM POST^^^^2920331^^^458^0^0^1"
^DIST(.403,23,40,0)="^.4031I^1^1"
^DIST(.403,23,40,1,0)="1^73^1,1^1^1"
^DIST(.403,23,40,1,1)="Page 1"
^DIST(.403,23,40,1,40,0)="^.4032PI^74^2"
^DIST(.403,23,40,1,40,69,0)="69^2^4,1^d"
^DIST(.403,23,40,1,40,74,0)="74^1^10,1^e"
^DIST(.403,23,40,1,40,"AC",1,74)=""
^DIST(.403,23,40,1,40,"AC",2,69)=""
^DIST(.403,23,40,1,40,"B",69,69)=""
^DIST(.403,23,40,1,40,"B",74,74)=""
^DIST(.403,23,40,"B",1,1)=""
^DIST(.403,23,40,"C","PAGE 1",1)=""
^DIST(.403,23,"AY",1,0,0,"N")="10,74^2,74^2,74^10,74^2,74"
^DIST(.403,23,"AY",1,69)="3^0^458.01^1^d^^^^0"
^DIST(.403,23,"AY",1,69,1,"D")="^^^^3^0^^0"
^DIST(.403,23,"AY",1,69,2,"D")="^^^^3^65^^0"
^DIST(.403,23,"AY",1,69,3,"D")="^^^^5^0^^0"
^DIST(.403,23,"AY",1,69,4,"D")="^^^^5^30^^0"
^DIST(.403,23,"AY",1,69,5,"D")="^^^^5^65^^0"
^DIST(.403,23,"AY",1,69,6,"D")="^^^^6^0^^0"
^DIST(.403,23,"AY",1,69,7,"D")="^^^^6^30^^0"
^DIST(.403,23,"AY",1,69,8,"D")="^^^^6^65^^0"
^DIST(.403,23,"AY",1,69,9,"D")="^^^^7^0^^0"
^DIST(.403,23,"AY",1,69,10,"D")="^^^^7^65^^0"
^DIST(.403,23,"AY",1,73)="0^0^458.01^^h"
^DIST(.403,23,"AY",1,74)="9^0^458.01^^e^^^^2"
^DIST(.403,23,"AY",1,74,2,"D")="9^22^6^41"
^DIST(.403,23,"AY",1,74,2,"N")="0^3^6^0^3"
^DIST(.403,23,"AY",1,74,3,"D")="10^22^6^42"
^DIST(.403,23,"AY",1,74,3,"N")="2^4^7^6^4"
^DIST(.403,23,"AY",1,74,4,"D")="11^22^6^43"
^DIST(.403,23,"AY",1,74,4,"N")="3^5^8^7^5"
^DIST(.403,23,"AY",1,74,5,"D")="12^22^11^44"
^DIST(.403,23,"AY",1,74,5,"N")="4^10^9^8^6"
^DIST(.403,23,"AY",1,74,6,"D")="9^64^3^40"
^DIST(.403,23,"AY",1,74,6,"N")="0^7^3^2^7"
^DIST(.403,23,"AY",1,74,7,"D")="10^64^3^45"
^DIST(.403,23,"AY",1,74,7,"N")="6^8^4^3^8"
^DIST(.403,23,"AY",1,74,8,"D")="11^64^3^46"
^DIST(.403,23,"AY",1,74,8,"N")="7^9^5^4^9"
^DIST(.403,23,"AY",1,74,9,"D")="12^64^3^47"
^DIST(.403,23,"AY",1,74,9,"N")="8^10^10^5^10"
^DIST(.403,23,"AY",1,74,10,"D")="14^22^3^48"
^DIST(.403,23,"AY",1,74,10,"N")="5^0^0^9^0"
^DIST(.403,23,"AY",1,"FIRST")="2,74"
^DIST(.403,23,"AY","CAP","8B DAY NUMBER",1,1,74,10)=""
^DIST(.403,23,"AY","CAP","EXCLUDE FOREIGN COLA?",1,1,74,9)=""
^DIST(.403,23,"AY","CAP","LUMP SUM EXP. DATE",1,1,74,5)=""
^DIST(.403,23,"AY","CAP","LUMP SUM UNITS",1,1,74,2)=""
^DIST(.403,23,"AY","CAP","LUMP SUM UNITS 2",1,1,74,3)=""
^DIST(.403,23,"AY","CAP","LUMP SUM UNITS 3",1,1,74,4)=""
^DIST(.403,23,"AY","CAP","NEW T&L UNIT",1,1,74,6)=""
^DIST(.403,23,"AY","CAP","OPT. W/H TAX?",1,1,74,8)=""
^DIST(.403,23,"AY","CAP","PAYMENT RECORD?",1,1,74,7)=""
^DIST(.403,23,"AY","F458.01",40,"L",1,74,6)=""
^DIST(.403,23,"AY","F458.01",41,"L",1,74,2)=""
^DIST(.403,23,"AY","F458.01",42,"L",1,74,3)=""
^DIST(.403,23,"AY","F458.01",43,"L",1,74,4)=""
^DIST(.403,23,"AY","F458.01",44,"L",1,74,5)=""
^DIST(.403,23,"AY","F458.01",45,"L",1,74,7)=""
^DIST(.403,23,"AY","F458.01",46,"L",1,74,8)=""
^DIST(.403,23,"AY","F458.01",47,"L",1,74,9)=""
^DIST(.403,23,"AY","F458.01",48,"L",1,74,10)=""
^DIST(.403,23,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,23,"AY","X",1,1,30)="MISCELLANEOUS DATA"
^DIST(.403,23,"AY","X",1,9,0)="Lump Sum Units:                        New T&L Unit:"
^DIST(.403,23,"AY","X",1,10,0)="Lump Sum Units 2:                      Payment Record?"
^DIST(.403,23,"AY","X",1,11,0)="Lump Sum Units 3:                      Opt. W/H Tax?"
^DIST(.403,23,"AY","X",1,12,0)="Lump Sum Exp. Date:                    Exclude Foreign COLA?"
^DIST(.403,23,"AY","X",1,14,0)="8B Day Number:"
^DIST(.403,24,0)="PRSA TD TL^^^^2920428^^^457.1^0^0^1"
^DIST(.403,24,40,0)="^.4031I^2^2"
^DIST(.403,24,40,1,0)="1^^1,1^1^1"
^DIST(.403,24,40,1,1)="Page 1"
^DIST(.403,24,40,1,40,0)="^.4032PI^75^1"
^DIST(.403,24,40,1,40,75,0)="75^1^1,1^e"
^DIST(.403,24,40,1,40,"AC",1,75)=""
^DIST(.403,24,40,1,40,"B",75,75)=""
^DIST(.403,24,40,2,0)="1.1^^11,10^^^1^15,70"
^DIST(.403,24,40,2,1)="Subpage 1.1"
^DIST(.403,24,40,2,40,0)="^.4032PI^76^1"
^DIST(.403,24,40,2,40,76,0)="76^1^3,3^e"
^DIST(.403,24,40,2,40,"AC",1,76)=""
^DIST(.403,24,40,2,40,"B",76,76)=""
^DIST(.403,24,40,"B",1,1)=""
^DIST(.403,24,40,"B",1.1,2)=""
^DIST(.403,24,40,"C","PAGE 1",1)=""
^DIST(.403,24,40,"C","Page 1",1)=""
^DIST(.403,24,40,"C","SUBPAGE 1.1",2)=""
^DIST(.403,24,40,"C","Subpage 1.1",2)=""
^DIST(.403,24,"AY",1,0,0,"N")="5,75^3,75^3,75^5,75^3,75"
^DIST(.403,24,"AY",1,75)="0^0^457.1^^e^^^^3"
^DIST(.403,24,"AY",1,75,3,"D")="3^13^30^.01"
^DIST(.403,24,"AY",1,75,3,"N")="0^4^4^0^4"
^DIST(.403,24,"AY",1,75,4,"D")="4^13^30^1"
^DIST(.403,24,"AY",1,75,4,"N")="3^5^5^3^5"
^DIST(.403,24,"AY",1,75,5,"D")="7^28^3^3"
^DIST(.403,24,"AY",1,75,5,"N")="4^0^0^4^0^^^^^^1"
^DIST(.403,24,"AY",1,"FIRST")="3,75"
^DIST(.403,24,"AY",2,0,0,"N")="1,76^1,76^1,76^1,76^1,76"
^DIST(.403,24,"AY",2,76)="12^11^457.13^^e^^^^1"
^DIST(.403,24,"AY",2,76,1,"D")="12^32^3^.01"
^DIST(.403,24,"AY",2,76,1,"N")="0^0^0^0^0"
^DIST(.403,24,"AY",2,"FIRST")="1,76"
^DIST(.403,24,"AY","CAP","ASSOCIATED T&L UNIT",1,1,75,5)=""
^DIST(.403,24,"AY","CAP","ASSOCIATED T&L UNIT",2,2,76,1)=""
^DIST(.403,24,"AY","CAP","DESCRIPTION",1,1,75,4)=""
^DIST(.403,24,"AY","CAP","TOUR HOURS",1,1,75,3)=""
^DIST(.403,24,"AY","F457.1",.01,"L",1,75,3)=""
^DIST(.403,24,"AY","F457.1",1,"L",1,75,4)=""
^DIST(.403,24,"AY","F457.1",3,"L",1,75,5)=""
^DIST(.403,24,"AY","F457.13",.01,"L",2,76,1)=""
^DIST(.403,24,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,24,"AY","X",1,1,33)="TOUR OF DUTY"
^DIST(.403,24,"AY","X",1,3,0)="Tour Hours:"
^DIST(.403,24,"AY","X",1,3,0,"A")="1;10;U"
^DIST(.403,24,"AY","X",1,4,0)="Description:"
^DIST(.403,24,"AY","X",1,7,0)="Select ASSOCIATED T&L UNIT:"
^DIST(.403,24,"AY","X",2,12,11)="ASSOCIATED T&L UNIT:"
^DIST(.403,25,0)="PRSA TP POST1^^^^2920714^^^458^0^0^1"
^DIST(.403,25,20)="D ^PRSATP1"
^DIST(.403,25,40,0)="^.4031I^1^1"
^DIST(.403,25,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,25,40,1,1)="Page 1"
^DIST(.403,25,40,1,40,0)="^.4032PI^77^2"
^DIST(.403,25,40,1,40,63,0)="63^1^7,1^e"
^DIST(.403,25,40,1,40,77,0)="77^2^1,1^d"
^DIST(.403,25,40,1,40,"AC",1,63)=""
^DIST(.403,25,40,1,40,"AC",2,77)=""
^DIST(.403,25,40,1,40,"B",63,63)=""
^DIST(.403,25,40,1,40,"B",77,77)=""
^DIST(.403,25,40,"B",1,1)=""
^DIST(.403,25,40,"C","PAGE 1",1)=""
^DIST(.403,25,"AY",1,0,0,"N")="32,63^4,63^4,63^32,63^4,63"
^DIST(.403,25,"AY",1,63)="6^0^458.02^0^e^^^^4"
^DIST(.403,25,"AY",1,63,4,"D")="8^8^7^41"
^DIST(.403,25,"AY",1,63,4,"N")="0^8^5^0^5"
^DIST(.403,25,"AY",1,63,5,"D")="8^18^7^42"
^DIST(.403,25,"AY",1,63,5,"N")="0^9^6^4^6"
^DIST(.403,25,"AY",1,63,6,"D")="8^29^10^43"
^DIST(.403,25,"AY",1,63,6,"N")="0^10^7^5^7"
^DIST(.403,25,"AY",1,63,7,"D")="8^43^25^44"
^DIST(.403,25,"AY",1,63,7,"N")="0^11^8^6^8"
^DIST(.403,25,"AY",1,63,8,"D")="9^8^7^45"
^DIST(.403,25,"AY",1,63,8,"N")="4^12^9^7^9"
^DIST(.403,25,"AY",1,63,9,"D")="9^18^7^46"
^DIST(.403,25,"AY",1,63,9,"N")="5^13^10^8^10"
^DIST(.403,25,"AY",1,63,10,"D")="9^29^10^47"
^DIST(.403,25,"AY",1,63,10,"N")="6^14^11^9^11"
^DIST(.403,25,"AY",1,63,11,"D")="9^43^25^48"
^DIST(.403,25,"AY",1,63,11,"N")="7^15^12^10^12"
^DIST(.403,25,"AY",1,63,12,"D")="10^8^7^49"
^DIST(.403,25,"AY",1,63,12,"N")="8^16^13^11^13"
^DIST(.403,25,"AY",1,63,13,"D")="10^18^7^50"
^DIST(.403,25,"AY",1,63,13,"N")="9^17^14^12^14"
^DIST(.403,25,"AY",1,63,14,"D")="10^29^10^51"
^DIST(.403,25,"AY",1,63,14,"N")="10^18^15^13^15"
^DIST(.403,25,"AY",1,63,15,"D")="10^43^25^52"
^DIST(.403,25,"AY",1,63,15,"N")="11^19^16^14^16"
^DIST(.403,25,"AY",1,63,16,"D")="11^8^7^53"
^DIST(.403,25,"AY",1,63,16,"N")="12^20^17^15^17"
^DIST(.403,25,"AY",1,63,17,"D")="11^18^7^54"
^DIST(.403,25,"AY",1,63,17,"N")="13^21^18^16^18"
^DIST(.403,25,"AY",1,63,18,"D")="11^29^10^55"
^DIST(.403,25,"AY",1,63,18,"N")="14^22^19^17^19"
^DIST(.403,25,"AY",1,63,19,"D")="11^43^25^56"
^DIST(.403,25,"AY",1,63,19,"N")="15^23^20^18^20"
^DIST(.403,25,"AY",1,63,20,"D")="12^8^7^57"
^DIST(.403,25,"AY",1,63,20,"N")="16^24^21^19^21"
^DIST(.403,25,"AY",1,63,21,"D")="12^18^7^58"
^DIST(.403,25,"AY",1,63,21,"N")="17^25^22^20^22"
^DIST(.403,25,"AY",1,63,22,"D")="12^29^10^59"
^DIST(.403,25,"AY",1,63,22,"N")="18^26^23^21^23"
^DIST(.403,25,"AY",1,63,23,"D")="12^43^25^60"
^DIST(.403,25,"AY",1,63,23,"N")="19^27^24^22^24"
^DIST(.403,25,"AY",1,63,24,"D")="13^8^7^61"
^DIST(.403,25,"AY",1,63,24,"N")="20^28^25^23^25"
^DIST(.403,25,"AY",1,63,25,"D")="13^18^7^62"
^DIST(.403,25,"AY",1,63,25,"N")="21^29^26^24^26"
^DIST(.403,25,"AY",1,63,26,"D")="13^29^10^63"
^DIST(.403,25,"AY",1,63,26,"N")="22^30^27^25^27"
^DIST(.403,25,"AY",1,63,27,"D")="13^43^25^64"
^DIST(.403,25,"AY",1,63,27,"N")="23^31^28^26^28"
^DIST(.403,25,"AY",1,63,28,"D")="14^8^7^65"
^DIST(.403,25,"AY",1,63,28,"N")="24^32^29^27^29"
^DIST(.403,25,"AY",1,63,29,"D")="14^18^7^66"
^DIST(.403,25,"AY",1,63,29,"N")="25^32^30^28^30"
^DIST(.403,25,"AY",1,63,30,"D")="14^29^10^67"
^DIST(.403,25,"AY",1,63,30,"N")="26^32^31^29^31"
^DIST(.403,25,"AY",1,63,31,"D")="14^43^25^68"
^DIST(.403,25,"AY",1,63,31,"N")="27^32^32^30^32"
^DIST(.403,25,"AY",1,63,32,"D")="16^9^70^70"
^DIST(.403,25,"AY",1,63,32,"N")="28^0^0^31^0"
^DIST(.403,25,"AY",1,77)="0^0^458.02^^d^^^^0"
^DIST(.403,25,"AY",1,77,2,"D")="^^^^0^0^^0"
^DIST(.403,25,"AY",1,77,3,"D")="^^^^0^68^^0"
^DIST(.403,25,"AY",1,77,4,"D")="^^^^1^0^^0"
^DIST(.403,25,"AY",1,77,5,"D")="^^^^2^33^^0"
^DIST(.403,25,"AY",1,77,6,"D")="^^^^1^71^^0"
^DIST(.403,25,"AY",1,77,8,"D")="^^^^4^0^^0"
^DIST(.403,25,"AY",1,"FIRST")="4,63"
^DIST(.403,25,"AY","CAP",1,1,1,63,4)=""
^DIST(.403,25,"AY","CAP",2,1,1,63,8)=""
^DIST(.403,25,"AY","CAP",3,1,1,63,12)=""
^DIST(.403,25,"AY","CAP",4,1,1,63,16)=""
^DIST(.403,25,"AY","CAP",5,1,1,63,20)=""
^DIST(.403,25,"AY","CAP",6,1,1,63,24)=""
^DIST(.403,25,"AY","CAP",7,1,1,63,28)=""
^DIST(.403,25,"AY","CAP","REMARKS",1,1,63,32)=""
^DIST(.403,25,"AY","F458.02",41,"L",1,63,4)=""
^DIST(.403,25,"AY","F458.02",42,"L",1,63,5)=""
^DIST(.403,25,"AY","F458.02",43,"L",1,63,6)=""
^DIST(.403,25,"AY","F458.02",44,"L",1,63,7)=""
^DIST(.403,25,"AY","F458.02",45,"L",1,63,8)=""
^DIST(.403,25,"AY","F458.02",46,"L",1,63,9)=""
^DIST(.403,25,"AY","F458.02",47,"L",1,63,10)=""
^DIST(.403,25,"AY","F458.02",48,"L",1,63,11)=""
^DIST(.403,25,"AY","F458.02",49,"L",1,63,12)=""
^DIST(.403,25,"AY","F458.02",50,"L",1,63,13)=""
^DIST(.403,25,"AY","F458.02",51,"L",1,63,14)=""
^DIST(.403,25,"AY","F458.02",52,"L",1,63,15)=""
^DIST(.403,25,"AY","F458.02",53,"L",1,63,16)=""
^DIST(.403,25,"AY","F458.02",54,"L",1,63,17)=""
^DIST(.403,25,"AY","F458.02",55,"L",1,63,18)=""
^DIST(.403,25,"AY","F458.02",56,"L",1,63,19)=""
^DIST(.403,25,"AY","F458.02",57,"L",1,63,20)=""
^DIST(.403,25,"AY","F458.02",58,"L",1,63,21)=""
^DIST(.403,25,"AY","F458.02",59,"L",1,63,22)=""
^DIST(.403,25,"AY","F458.02",60,"L",1,63,23)=""
^DIST(.403,25,"AY","F458.02",61,"L",1,63,24)=""
^DIST(.403,25,"AY","F458.02",62,"L",1,63,25)=""
^DIST(.403,25,"AY","F458.02",63,"L",1,63,26)=""
^DIST(.403,25,"AY","F458.02",64,"L",1,63,27)=""
^DIST(.403,25,"AY","F458.02",65,"L",1,63,28)=""
^DIST(.403,25,"AY","F458.02",66,"L",1,63,29)=""
^DIST(.403,25,"AY","F458.02",67,"L",1,63,30)=""
^DIST(.403,25,"AY","F458.02",68,"L",1,63,31)=""
^DIST(.403,25,"AY","F458.02",70,"L",1,63,32)=""
^DIST(.403,25,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,25,"AY","X",1,1,33)="Tour Beginning"
^DIST(.403,25,"AY","X",1,6,9)="START     STOP      TYPE OF TIME  REMARKS CODE"
^DIST(.403,25,"AY","X",1,8,2)="1"
^DIST(.403,25,"AY","X",1,9,2)="2"
^DIST(.403,25,"AY","X",1,10,2)="3"
^DIST(.403,25,"AY","X",1,11,2)="4"
^DIST(.403,25,"AY","X",1,12,2)="5"
^DIST(.403,25,"AY","X",1,13,2)="6"
^DIST(.403,25,"AY","X",1,14,2)="7"
^DIST(.403,25,"AY","X",1,16,0)="Remarks:"
^DIST(.403,26,0)="PRSA TE EDIT^^^^2920813^^^458^0^0^1"
^DIST(.403,26,20)="D VAL^PRSATE0"
^DIST(.403,26,40,0)="^.4031I^1^1"
^DIST(.403,26,40,1,0)="1^^1,1"
^DIST(.403,26,40,1,1)="Page 1"
^DIST(.403,26,40,1,40,0)="^.4032PI^79^1"
^DIST(.403,26,40,1,40,79,0)="79^1^1,1^e"
^DIST(.403,26,40,1,40,"AC",1,79)=""
^DIST(.403,26,40,1,40,"B",79,79)=""
^DIST(.403,26,40,"B",1,1)=""
^DIST(.403,26,40,"C","PAGE 1",1)=""
^DIST(.403,26,"AY",1,0,0,"N")="12,79^6,79^6,79^19,79^6,79"
^DIST(.403,26,"AY",1,79)="0^0^458.01^^e^^^^6"
^DIST(.403,26,"AY",1,79,3,"D")="^^^^3^0^^0"
^DIST(.403,26,"AY",1,79,4,"D")="^^^^3^65^^0"
^DIST(.403,26,"AY",1,79,5,"D")="^^^^5^9^^0"
^DIST(.403,26,"AY",1,79,6,"D")="7^9^30^201"
^DIST(.403,26,"AY",1,79,6,"N")="0^7^13^0^7"
^DIST(.403,26,"AY",1,79,7,"D")="8^9^30^202"
^DIST(.403,26,"AY",1,79,7,"N")="6^8^14^13^8"
^DIST(.403,26,"AY",1,79,8,"D")="9^9^30^203"
^DIST(.403,26,"AY",1,79,8,"N")="7^9^15^14^9"
^DIST(.403,26,"AY",1,79,9,"D")="10^9^30^204"
^DIST(.403,26,"AY",1,79,9,"N")="8^10^16^15^10"
^DIST(.403,26,"AY",1,79,10,"D")="11^9^30^205"
^DIST(.403,26,"AY",1,79,10,"N")="9^11^17^16^11"
^DIST(.403,26,"AY",1,79,11,"D")="12^9^30^206"
^DIST(.403,26,"AY",1,79,11,"N")="10^12^18^17^12"
^DIST(.403,26,"AY",1,79,12,"D")="13^9^30^207"
^DIST(.403,26,"AY",1,79,12,"N")="11^0^19^18^13"
^DIST(.403,26,"AY",1,79,13,"D")="7^44^30^208"
^DIST(.403,26,"AY",1,79,13,"N")="0^14^7^6^14"
^DIST(.403,26,"AY",1,79,14,"D")="8^44^30^209"
^DIST(.403,26,"AY",1,79,14,"N")="13^15^8^7^15"
^DIST(.403,26,"AY",1,79,15,"D")="9^44^30^210"
^DIST(.403,26,"AY",1,79,15,"N")="14^16^9^8^16"
^DIST(.403,26,"AY",1,79,16,"D")="10^44^30^211"
^DIST(.403,26,"AY",1,79,16,"N")="15^17^10^9^17"
^DIST(.403,26,"AY",1,79,17,"D")="11^44^30^212"
^DIST(.403,26,"AY",1,79,17,"N")="16^18^11^10^18"
^DIST(.403,26,"AY",1,79,18,"D")="12^44^30^213"
^DIST(.403,26,"AY",1,79,18,"N")="17^19^12^11^19"
^DIST(.403,26,"AY",1,79,19,"D")="13^44^30^214"
^DIST(.403,26,"AY",1,79,19,"N")="18^0^0^12^0"
^DIST(.403,26,"AY",1,"FIRST")="6,79"
^DIST(.403,26,"AY","CAP","FRI",1,1,79,11)=""
^DIST(.403,26,"AY","CAP","MON",1,1,79,7)=""
^DIST(.403,26,"AY","CAP","SAT",1,1,79,12)=""
^DIST(.403,26,"AY","CAP","SUN",1,1,79,6)=""
^DIST(.403,26,"AY","CAP","THU",1,1,79,10)=""
^DIST(.403,26,"AY","CAP","TUE",1,1,79,8)=""
^DIST(.403,26,"AY","CAP","WED",1,1,79,9)=""
^DIST(.403,26,"AY","F458.01",201,"L",1,79,6)=""
^DIST(.403,26,"AY","F458.01",202,"L",1,79,7)=""
^DIST(.403,26,"AY","F458.01",203,"L",1,79,8)=""
^DIST(.403,26,"AY","F458.01",204,"L",1,79,9)=""
^DIST(.403,26,"AY","F458.01",205,"L",1,79,10)=""
^DIST(.403,26,"AY","F458.01",206,"L",1,79,11)=""
^DIST(.403,26,"AY","F458.01",207,"L",1,79,12)=""
^DIST(.403,26,"AY","F458.01",208,"L",1,79,13)=""
^DIST(.403,26,"AY","F458.01",209,"L",1,79,14)=""
^DIST(.403,26,"AY","F458.01",210,"L",1,79,15)=""
^DIST(.403,26,"AY","F458.01",211,"L",1,79,16)=""
^DIST(.403,26,"AY","F458.01",212,"L",1,79,17)=""
^DIST(.403,26,"AY","F458.01",213,"L",1,79,18)=""
^DIST(.403,26,"AY","F458.01",214,"L",1,79,19)=""
^DIST(.403,26,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,26,"AY","X",1,1,29)="EMPLOYEE TOUR OF DUTY"
^DIST(.403,26,"AY","X",1,7,0)="Sun"
^DIST(.403,26,"AY","X",1,7,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,8,0)="Mon"
^DIST(.403,26,"AY","X",1,8,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,9,0)="Tue"
^DIST(.403,26,"AY","X",1,9,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,10,0)="Wed"
^DIST(.403,26,"AY","X",1,10,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,11,0)="Thu"
^DIST(.403,26,"AY","X",1,11,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,12,0)="Fri"
^DIST(.403,26,"AY","X",1,12,0,"A")="1;3;U"
^DIST(.403,26,"AY","X",1,13,0)="Sat"
^DIST(.403,26,"AY","X",1,13,0,"A")="1;3;U"
^DIST(.403,27,0)="PRSA FEE POST^^^^2920325^^^458^0^0^1"
^DIST(.403,27,40,0)="^.4031I^1^1"
^DIST(.403,27,40,1,0)="1^80^1,1^1^1^0"
^DIST(.403,27,40,1,1)="Page 1"
^DIST(.403,27,40,1,40,0)="^.4032PI^81^1"
^DIST(.403,27,40,1,40,81,0)="81^1^8,1^e"
^DIST(.403,27,40,1,40,"AC",1,81)=""
^DIST(.403,27,40,1,40,"B",81,81)=""
^DIST(.403,27,40,"B",1,1)=""
^DIST(.403,27,40,"C","PAGE 1",1)=""
^DIST(.403,27,"AY",1,0,0,"N")="16,81^2,81^2,81^18,81^2,81"
^DIST(.403,27,"AY",1,80)="0^0^458.01^^h"
^DIST(.403,27,"AY",1,80,3,"D")="^^^^3^0^^0"
^DIST(.403,27,"AY",1,80,4,"D")="^^^^3^67^^0"
^DIST(.403,27,"AY",1,80,5,"D")="^^^^5^23^^0"
^DIST(.403,27,"AY",1,81)="7^0^458.01^^e^^^^2"
^DIST(.403,27,"AY",1,81,2,"D")="9^11^7^20"
^DIST(.403,27,"AY",1,81,2,"N")="0^9^3^0^3"
^DIST(.403,27,"AY",1,81,3,"D")="9^21^7^21"
^DIST(.403,27,"AY",1,81,3,"N")="0^10^4^2^4"
^DIST(.403,27,"AY",1,81,4,"D")="9^31^7^22"
^DIST(.403,27,"AY",1,81,4,"N")="0^11^5^3^5"
^DIST(.403,27,"AY",1,81,5,"D")="9^41^7^23"
^DIST(.403,27,"AY",1,81,5,"N")="0^12^6^4^6"
^DIST(.403,27,"AY",1,81,6,"D")="9^51^7^24"
^DIST(.403,27,"AY",1,81,6,"N")="0^13^7^5^7"
^DIST(.403,27,"AY",1,81,7,"D")="9^61^7^25"
^DIST(.403,27,"AY",1,81,7,"N")="0^14^8^6^8"
^DIST(.403,27,"AY",1,81,8,"D")="9^71^7^26"
^DIST(.403,27,"AY",1,81,8,"N")="0^15^9^7^9"
^DIST(.403,27,"AY",1,81,9,"D")="11^11^7^27"
^DIST(.403,27,"AY",1,81,9,"N")="2^16^10^8^10"
^DIST(.403,27,"AY",1,81,10,"D")="11^21^7^28"
^DIST(.403,27,"AY",1,81,10,"N")="3^16^11^9^11"
^DIST(.403,27,"AY",1,81,11,"D")="11^31^7^29"
^DIST(.403,27,"AY",1,81,11,"N")="4^17^12^10^12"
^DIST(.403,27,"AY",1,81,12,"D")="11^41^7^30"
^DIST(.403,27,"AY",1,81,12,"N")="5^17^13^11^13"
^DIST(.403,27,"AY",1,81,13,"D")="11^51^7^31"
^DIST(.403,27,"AY",1,81,13,"N")="6^17^14^12^14"
^DIST(.403,27,"AY",1,81,14,"D")="11^61^7^32"
^DIST(.403,27,"AY",1,81,14,"N")="7^18^15^13^15"
^DIST(.403,27,"AY",1,81,15,"D")="11^71^7^33"
^DIST(.403,27,"AY",1,81,15,"N")="8^18^16^14^16"
^DIST(.403,27,"AY",1,81,16,"D")="15^12^3^50"
^DIST(.403,27,"AY",1,81,16,"N")="9^0^17^15^17"
^DIST(.403,27,"AY",1,81,17,"D")="15^30^2^51"
^DIST(.403,27,"AY",1,81,17,"N")="10^0^18^16^18"
^DIST(.403,27,"AY",1,81,18,"D")="15^53^3^52"
^DIST(.403,27,"AY",1,81,18,"N")="13^0^0^17^0"
^DIST(.403,27,"AY",1,81,19,"D")="^^^^15^58^^0"
^DIST(.403,27,"AY",1,"FIRST")="2,81"
^DIST(.403,27,"AY","CAP","TOTAL DAYS",1,1,81,17)=""
^DIST(.403,27,"AY","CAP","TOTAL HOURS",1,1,81,16)=""
^DIST(.403,27,"AY","CAP","TOTAL PROCEDURES",1,1,81,18)=""
^DIST(.403,27,"AY","CAP","WEEK 1",1,1,81,2)=""
^DIST(.403,27,"AY","CAP","WEEK 2",1,1,81,9)=""
^DIST(.403,27,"AY","F458.01",20,"L",1,81,2)=""
^DIST(.403,27,"AY","F458.01",21,"L",1,81,3)=""
^DIST(.403,27,"AY","F458.01",22,"L",1,81,4)=""
^DIST(.403,27,"AY","F458.01",23,"L",1,81,5)=""
^DIST(.403,27,"AY","F458.01",24,"L",1,81,6)=""
^DIST(.403,27,"AY","F458.01",25,"L",1,81,7)=""
^DIST(.403,27,"AY","F458.01",26,"L",1,81,8)=""
^DIST(.403,27,"AY","F458.01",27,"L",1,81,9)=""
^DIST(.403,27,"AY","F458.01",28,"L",1,81,10)=""
^DIST(.403,27,"AY","F458.01",29,"L",1,81,11)=""
^DIST(.403,27,"AY","F458.01",30,"L",1,81,12)=""
^DIST(.403,27,"AY","F458.01",31,"L",1,81,13)=""
^DIST(.403,27,"AY","F458.01",32,"L",1,81,14)=""
^DIST(.403,27,"AY","F458.01",33,"L",1,81,15)=""
^DIST(.403,27,"AY","F458.01",50,"L",1,81,16)=""
^DIST(.403,27,"AY","F458.01",51,"L",1,81,17)=""
^DIST(.403,27,"AY","F458.01",52,"L",1,81,18)=""
^DIST(.403,27,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,27,"AY","X",1,1,29)="FEE BASIS APPOINTEES"
^DIST(.403,27,"AY","X",1,7,13)="Sun       Mon       Tue       Wed       Thu       Fri       Sat"
^DIST(.403,27,"AY","X",1,9,0)="Week 1"
^DIST(.403,27,"AY","X",1,11,0)="Week 2"
^DIST(.403,27,"AY","X",1,15,0)="Total Hours        Total Days       Total Procedures"
^DIST(.403,28,0)="NURA-I-SERVICE^@^@^^2960624.1217^^^211.3^0^0^1"
^DIST(.403,28,40,0)="^.4031I^3^3"
^DIST(.403,28,40,1,0)="1^^1,1"
^DIST(.403,28,40,1,1)="Page 1"
^DIST(.403,28,40,1,11)="N NURAPROD S NURAPROD=($$EN7^NURSAFU0()=""Y"") D PUT^DDSVAL(211.3,.DA,6,""NURSING""):$$GET^DDSVAL(211.3,.DA,6)=""""!'NURAPROD,UNED^DDSUTL(""PRODUCT LINE"",1,1,1):'NURAPROD"
^DIST(.403,28,40,1,12)="D REQD^NURSAFU0"
^DIST(.403,28,40,1,40,0)="^.4032IP^82^1"
^DIST(.403,28,40,1,40,82,0)="82^1^1,1^e"
^DIST(.403,28,40,1,40,"AC",1,82)=""
^DIST(.403,28,40,1,40,"B",82,82)=""
^DIST(.403,28,40,2,0)="1.1^^13,10^^^1^17,75"
^DIST(.403,28,40,2,1)="Page 1.1"
^DIST(.403,28,40,2,40,0)="^.4032IP^83^1"
^DIST(.403,28,40,2,40,83,0)="83^1^2,3^e"
^DIST(.403,28,40,2,40,"AC",1,83)=""
^DIST(.403,28,40,2,40,"B",83,83)=""
^DIST(.403,28,40,3,0)="1.2^^13,10^^^1^17,75"
^DIST(.403,28,40,3,1)="Page 1.2"
^DIST(.403,28,40,3,40,0)="^.4032IP^84^1"
^DIST(.403,28,40,3,40,84,0)="84^1^2,2^e"
^DIST(.403,28,40,3,40,"AC",1,84)=""
^DIST(.403,28,40,3,40,"B",84,84)=""
^DIST(.403,28,40,"B",1,1)=""
^DIST(.403,28,40,"B",1.1,2)=""
^DIST(.403,28,40,"B",1.2,3)=""
^DIST(.403,28,40,"C","PAGE 1",1)=""
^DIST(.403,28,40,"C","PAGE 1.1",2)=""
^DIST(.403,28,40,"C","PAGE 1.2",3)=""
^DIST(.403,28,"AY",1,0,0,"N")="5,82^1,82^1,82^5,82^1,82"
^DIST(.403,28,"AY",1,82)="0^0^211.3^^e^^^^1"
^DIST(.403,28,"AY",1,82,1,"D")="2^20^10^.01"
^DIST(.403,28,"AY",1,82,1,"N")="0^2^2^0^2"
^DIST(.403,28,"AY",1,82,2,"D")="4^20^30^1"
^DIST(.403,28,"AY",1,82,2,"N")="1^3^3^1^3"
^DIST(.403,28,"AY",1,82,3,"D")="6^20^7^2"
^DIST(.403,28,"AY",1,82,3,"N")="2^4^4^2^4"
^DIST(.403,28,"AY",1,82,4,"D")="8^20^30^6"
^DIST(.403,28,"AY",1,82,4,"N")="3^5^5^3^5"
^DIST(.403,28,"AY",1,82,5,"D")="10^20^24^4"
^DIST(.403,28,"AY",1,82,5,"N")="4^0^0^4^0"
^DIST(.403,28,"AY",1,"FIRST")="1,82"
^DIST(.403,28,"AY",2,0,0,"N")="1,83^1,83^1,83^1,83^1,83"
^DIST(.403,28,"AY",2,83)="13^11^211.3^^e^^^^1"
^DIST(.403,28,"AY",2,83,1,"D")="14^35^30^5"
^DIST(.403,28,"AY",2,83,1,"N")="0^0^0^0^0"
^DIST(.403,28,"AY",2,"FIRST")="1,83"
^DIST(.403,28,"AY",3,0,0,"N")="1,84^1,84^1,84^1,84^1,84"
^DIST(.403,28,"AY",3,84)="13^10^211.3^^e^^^^1"
^DIST(.403,28,"AY",3,84,1,"D")="14^27^30^3"
^DIST(.403,28,"AY",3,84,1,"N")="0^0^0^0^0"
^DIST(.403,28,"AY",3,"FIRST")="1,84"
^DIST(.403,28,"AY","CAP","ABBREVIATION",1,1,82,1)=""
^DIST(.403,28,"AY","CAP","AMIS POSITION",3,3,84,1)=""
^DIST(.403,28,"AY","CAP","NAME",1,1,82,2)=""
^DIST(.403,28,"AY","CAP","OTHER SERVICE CATEGORY",2,2,83,1)=""
^DIST(.403,28,"AY","CAP","PRIORITY SEQUENCE",1,1,82,3)=""
^DIST(.403,28,"AY","CAP","PRODUCT LINE",1,1,82,4)=""
^DIST(.403,28,"AY","CAP","SERVICE CATEGORY",1,1,82,5)=""
^DIST(.403,28,"AY","F211.3",.01,"L",1,82,1)=""
^DIST(.403,28,"AY","F211.3",1,"L",1,82,2)=""
^DIST(.403,28,"AY","F211.3",2,"L",1,82,3)=""
^DIST(.403,28,"AY","F211.3",3,"L",3,84,1)=""
^DIST(.403,28,"AY","F211.3",4,"L",1,82,5)=""
^DIST(.403,28,"AY","F211.3",5,"L",2,83,1)=""
^DIST(.403,28,"AY","F211.3",6,"L",1,82,4)=""
^DIST(.403,28,"AY","X",1,2,6)="ABBREVIATION:"
^DIST(.403,28,"AY","X",1,2,6,"A")="1;12;U"
^DIST(.403,28,"AY","X",1,4,14)="NAME:"
^DIST(.403,28,"AY","X",1,4,14,"A")="1;4;U"
^DIST(.403,28,"AY","X",1,6,1)="PRIORITY SEQUENCE:"
^DIST(.403,28,"AY","X",1,6,1,"A")="1;17;U"
^DIST(.403,28,"AY","X",1,8,6)="PRODUCT LINE:"
^DIST(.403,28,"AY","X",1,8,6,"A")="1;12;U"
^DIST(.403,28,"AY","X",1,10,2)="SERVICE CATEGORY:"
^DIST(.403,28,"AY","X",1,10,2,"A")="1;16;U"
^DIST(.403,28,"AY","X",2,14,11)="OTHER SERVICE CATEGORY:"
^DIST(.403,28,"AY","X",3,14,12)="AMIS POSITION:"
^DIST(.403,29,0)="XU-PERSON CLASS^@^@^^2960603.1341^^^200^0^0^1"
^DIST(.403,29,40,0)="^.4031I^1^1"
^DIST(.403,29,40,1,0)="1^^1,1"
^DIST(.403,29,40,1,1)="Page 1"
^DIST(.403,29,40,1,40,0)="^.4032IP^86^2"
^DIST(.403,29,40,1,40,85,0)="85^1^1,1^e"
^DIST(.403,29,40,1,40,86,0)="86^2^7,1^e"
^DIST(.403,29,40,1,40,86,2)="7^!IEN^n"
^DIST(.403,29,40,1,40,"AC",1,85)=""
^DIST(.403,29,40,1,40,"AC",2,86)=""
^DIST(.403,29,40,1,40,"B",85,85)=""
^DIST(.403,29,40,1,40,"B",86,86)=""
^DIST(.403,29,40,"B",1,1)=""
^DIST(.403,29,40,"C","PAGE 1",1)=""
^DIST(.403,29,"AY",1,0,0,"N")="1,86^2,85^2,85^3,86^2,85"
^DIST(.403,29,"AY",1,85)="0^0^200^^e^^^^2"
^DIST(.403,29,"AY",1,85,2,"D")="1^6^35^.01"
^DIST(.403,29,"AY",1,85,2,"N")="0^1,86^1,86^0^1,86"
^DIST(.403,29,"AY",1,86)="6^0^200.05^^e^^7^^1^1"
^DIST(.403,29,"AY",1,86,1,"D")="6^1^40^.01"
^DIST(.403,29,"AY",1,86,1,"N")="2,85^0^0^2,85^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,29,"AY",1,86,2,"D")="6^51^12^2"
^DIST(.403,29,"AY",1,86,2,"N")="2,85^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,29,"AY",1,86,3,"D")="6^66^12^3"
^DIST(.403,29,"AY",1,86,3,"N")="2,85^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,29,"AY",1,"FIRST")="2,85"
^DIST(.403,29,"AY","CAP","NAME",1,1,85,2)=""
^DIST(.403,29,"AY","F200",.01,"L",1,85,2)=""
^DIST(.403,29,"AY","F200.05",.01,"L",1,86,1)=""
^DIST(.403,29,"AY","F200.05",2,"L",1,86,2)=""
^DIST(.403,29,"AY","F200.05",3,"L",1,86,3)=""
^DIST(.403,29,"AY","X",1,0,29)="Edit of Person Class"
^DIST(.403,29,"AY","X",1,1,0)="NAME:"
^DIST(.403,29,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,29,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,29,"AY","X",1,5,0)="Person Class                                         Effective     Expired"
^DIST(.403,30,0)="XUNEW USER^ ^@^^2960729.0925^3060201.1304^^200^0^0^1"
^DIST(.403,30,11)="S (XUNOTRIG,XLFCOMP,XUITNAME)=1 D REQ^XUSER2()"
^DIST(.403,30,12)="K XUNOTRIG,XUITNAME"
^DIST(.403,30,40,0)="^.4031I^8^8"
^DIST(.403,30,40,1,0)="1^^1,1^2^5"
^DIST(.403,30,40,1,1)="Page 1"
^DIST(.403,30,40,1,40,0)="^.4032IP^47^2"
^DIST(.403,30,40,1,40,28,0)="28^2^2,1^e"
^DIST(.403,30,40,1,40,47,0)="47^1^1,1^e"
^DIST(.403,30,40,1,40,"AC",1,47)=""
^DIST(.403,30,40,1,40,"AC",2,28)=""
^DIST(.403,30,40,1,40,"B",28,28)=""
^DIST(.403,30,40,1,40,"B",47,47)=""
^DIST(.403,30,40,2,0)="2^^1,1^3^1"
^DIST(.403,30,40,2,1)="Page 2"
^DIST(.403,30,40,2,40,0)="^.4032IP^47^2"
^DIST(.403,30,40,2,40,29,0)="29^2^2,1^e"
^DIST(.403,30,40,2,40,47,0)="47^1^1,1^e"
^DIST(.403,30,40,2,40,"AC",1,47)=""
^DIST(.403,30,40,2,40,"AC",2,29)=""
^DIST(.403,30,40,2,40,"B",29,29)=""
^DIST(.403,30,40,2,40,"B",47,47)=""
^DIST(.403,30,40,3,0)="3^^1,1^4^2"
^DIST(.403,30,40,3,1)="Page 3"
^DIST(.403,30,40,3,40,0)="^.4032IP^87^4"
^DIST(.403,30,40,3,40,47,0)="47^2^1,1^e"
^DIST(.403,30,40,3,40,50,0)="50^3^2,1^e"
^DIST(.403,30,40,3,40,86,0)="86^4^13,1^e"
^DIST(.403,30,40,3,40,86,2)="4^!IEN^n"
^DIST(.403,30,40,3,40,87,0)="87^1^1,1^e"
^DIST(.403,30,40,3,40,"AC",1,87)=""
^DIST(.403,30,40,3,40,"AC",2,47)=""
^DIST(.403,30,40,3,40,"AC",3,50)=""
^DIST(.403,30,40,3,40,"AC",4,86)=""
^DIST(.403,30,40,3,40,"B",47,47)=""
^DIST(.403,30,40,3,40,"B",50,50)=""
^DIST(.403,30,40,3,40,"B",86,86)=""
^DIST(.403,30,40,3,40,"B",87,87)=""
^DIST(.403,30,40,4,0)="1.1^^11,9^^^1^17,66"
^DIST(.403,30,40,4,1)="Page 1.1"
^DIST(.403,30,40,4,40,0)="^.4032IP^30^1"
^DIST(.403,30,40,4,40,30,0)="30^1^2,3^e"
^DIST(.403,30,40,4,40,"AC",1,30)=""
^DIST(.403,30,40,4,40,"B",30,30)=""
^DIST(.403,30,40,5,0)="1.2^^8,16^^^1^13,59"
^DIST(.403,30,40,5,1)="Page 1.2"
^DIST(.403,30,40,5,40,0)="^.4032IP^31^1"
^DIST(.403,30,40,5,40,31,0)="31^1^2,3^e"
^DIST(.403,30,40,5,40,"AC",1,31)=""
^DIST(.403,30,40,5,40,"B",31,31)=""
^DIST(.403,30,40,6,0)="1.3^^8,12^^^1^17,65"
^DIST(.403,30,40,6,1)="Page 1.3"
^DIST(.403,30,40,6,12)="D:XLFNEW'=XLFNAME PUT^DDSVAL(200,XLFNDA,.01,XLFNEW,"""",""I"") K XLFNDA,XLFNAME,XLFNEW"
^DIST(.403,30,40,6,40,0)="^.4032IP^321^1"
^DIST(.403,30,40,6,40,321,0)="321^1^1,1^e"
^DIST(.403,30,40,6,40,321,1)="10.1"
^DIST(.403,30,40,6,40,"AC",1,321)=""
^DIST(.403,30,40,6,40,"B",321,321)=""
^DIST(.403,30,40,7,0)="4^^1,1^5^3"
^DIST(.403,30,40,7,1)="Page 4"
^DIST(.403,30,40,7,40,0)="^.4032IP^342^3"
^DIST(.403,30,40,7,40,47,0)="47^1^1,1^d"
^DIST(.403,30,40,7,40,341,0)="341^2^2,1^e"
^DIST(.403,30,40,7,40,342,0)="342^3^8,1^e"
^DIST(.403,30,40,7,40,342,2)="10^!IEN^n^^^"
^DIST(.403,30,40,7,40,"AC",1,47)=""
^DIST(.403,30,40,7,40,"AC",2,341)=""
^DIST(.403,30,40,7,40,"AC",3,342)=""
^DIST(.403,30,40,7,40,"B",47,47)=""
^DIST(.403,30,40,7,40,"B",341,341)=""
^DIST(.403,30,40,7,40,"B",342,342)=""
^DIST(.403,30,40,8,0)="5^^1,1^1^4"
^DIST(.403,30,40,8,1)="Page 5"
^DIST(.403,30,40,8,40,0)="^.4032IP^358^2"
^DIST(.403,30,40,8,40,47,0)="47^1^1,1^e"
^DIST(.403,30,40,8,40,358,0)="358^2^2,1^e"
^DIST(.403,30,40,8,40,"AC",1,47)=""
^DIST(.403,30,40,8,40,"AC",2,358)=""
^DIST(.403,30,40,8,40,"B",47,47)=""
^DIST(.403,30,40,8,40,"B",358,358)=""
^DIST(.403,30,40,"B",1,1)=""
^DIST(.403,30,40,"B",1.1,4)=""
^DIST(.403,30,40,"B",1.2,5)=""
^DIST(.403,30,40,"B",1.3,6)=""
^DIST(.403,30,40,"B",2,2)=""
^DIST(.403,30,40,"B",3,3)=""
^DIST(.403,30,40,"B",4,7)=""
^DIST(.403,30,40,"B",5,8)=""
^DIST(.403,30,40,"C","PAGE 1",1)=""
^DIST(.403,30,40,"C","PAGE 1.1",4)=""
^DIST(.403,30,40,"C","PAGE 1.2",5)=""
^DIST(.403,30,40,"C","PAGE 1.3",6)=""
^DIST(.403,30,40,"C","PAGE 2",2)=""
^DIST(.403,30,40,"C","PAGE 3",3)=""
^DIST(.403,30,40,"C","PAGE 4",7)=""
^DIST(.403,30,40,"C","PAGE 5",8)=""
^DIST(.403,30,"AY",1,0,0,"N")="13,28^1,47^1,47^13,28^1,47"
^DIST(.403,30,"AY",1,28)="1^0^200^^e^^^^1"
^DIST(.403,30,"AY",1,28,1,"D")="3^11^35^.01"
^DIST(.403,30,"AY",1,28,1,"N")="1,47^2^3^1,47^3"
^DIST(.403,30,"AY",1,28,2,"D")="4^11^30^8"
^DIST(.403,30,"AY",1,28,2,"N")="1^16^4^3^4"
^DIST(.403,30,"AY",1,28,3,"D")="3^64^5^1"
^DIST(.403,30,"AY",1,28,3,"N")="1,47^4^2^1^2"
^DIST(.403,30,"AY",1,28,4,"D")="4^64^10^13"
^DIST(.403,30,"AY",1,28,4,"N")="3^21^16^2^16"
^DIST(.403,30,"AY",1,28,5,"D")="10^32^30^201"
^DIST(.403,30,"AY",1,28,5,"N")="20^6^6^20^6"
^DIST(.403,30,"AY",1,28,6,"D")="11^32^30^203"
^DIST(.403,30,"AY",1,28,6,"N")="5^7^7^5^7^^^^^^1"
^DIST(.403,30,"AY",1,28,7,"D")="12^32^3^2.1"
^DIST(.403,30,"AY",1,28,7,"N")="6^8^9^6^9"
^DIST(.403,30,"AY",1,28,8,"D")="13^32^3^11.1"
^DIST(.403,30,"AY",1,28,8,"N")="7^12^12^9^12"
^DIST(.403,30,"AY",1,28,9,"D")="12^64^15^3"
^DIST(.403,30,"AY",1,28,9,"N")="6^8^8^7^8"
^DIST(.403,30,"AY",1,28,12,"D")="15^32^30^16"
^DIST(.403,30,"AY",1,28,12,"N")="8^13^13^8^13^^^^^^1"
^DIST(.403,30,"AY",1,28,13,"D")="16^32^30^29"
^DIST(.403,30,"AY",1,28,13,"N")="12^0^0^12^0"
^DIST(.403,30,"AY",1,28,14,"D")="6^64^10^28"
^DIST(.403,30,"AY",1,28,14,"N")="21^18^18^17^18"
^DIST(.403,30,"AY",1,28,16,"D")="5^11^9^9"
^DIST(.403,30,"AY",1,28,16,"N")="2^17^21^4^21"
^DIST(.403,30,"AY",1,28,17,"D")="6^11^10^10.6"
^DIST(.403,30,"AY",1,28,17,"N")="16^18^14^21^14"
^DIST(.403,30,"AY",1,28,18,"D")="7^11^3^7"
^DIST(.403,30,"AY",1,28,18,"N")="17^20^19^14^19"
^DIST(.403,30,"AY",1,28,19,"D")="7^65^11^9.2"
^DIST(.403,30,"AY",1,28,19,"N")="14^20^20^18^20"
^DIST(.403,30,"AY",1,28,20,"D")="8^22^45^9.4"
^DIST(.403,30,"AY",1,28,20,"N")="18^5^5^19^5"
^DIST(.403,30,"AY",1,28,21,"D")="5^64^11^5"
^DIST(.403,30,"AY",1,28,21,"N")="4^14^17^16^17"
^DIST(.403,30,"AY",1,47)="0^0^200^^e^^^^1"
^DIST(.403,30,"AY",1,47,1,"D")="1^6^30^.01"
^DIST(.403,30,"AY",1,47,1,"N")="0^1,28^1,28^0^1,28"
^DIST(.403,30,"AY",1,"FIRST")="1,47"
^DIST(.403,30,"AY",2,0,0,"N")="12,29^1,47^1,47^12,29^1,47"
^DIST(.403,30,"AY",2,29)="1^0^200^^e^^^^1"
^DIST(.403,30,"AY",2,29,1,"D")="4^30^5^200.1"
^DIST(.403,30,"AY",2,29,1,"N")="1,47^2^2^1,47^2"
^DIST(.403,30,"AY",2,29,2,"D")="6^30^11^200.04"
^DIST(.403,30,"AY",2,29,2,"N")="1^4^18^1^18"
^DIST(.403,30,"AY",2,29,3,"D")="7^59^20^200.06"
^DIST(.403,30,"AY",2,29,3,"N")="2^5^6^4^5"
^DIST(.403,30,"AY",2,29,4,"D")="7^30^9^200.05"
^DIST(.403,30,"AY",2,29,4,"N")="2^6^3^18^3"
^DIST(.403,30,"AY",2,29,5,"D")="8^59^11^200.09"
^DIST(.403,30,"AY",2,29,5,"N")="3^16^16^6^6"
^DIST(.403,30,"AY",2,29,6,"D")="8^30^9^15"
^DIST(.403,30,"AY",2,29,6,"N")="4^16^5^3^16"
^DIST(.403,30,"AY",2,29,7,"D")="12^30^3^41"
^DIST(.403,30,"AY",2,29,7,"N")="17^8^14^17^14"
^DIST(.403,30,"AY",2,29,8,"D")="13^30^3^41.2"
^DIST(.403,30,"AY",2,29,8,"N")="7^10^10^14^10"
^DIST(.403,30,"AY",2,29,10,"D")="15^30^30^31.1"
^DIST(.403,30,"AY",2,29,10,"N")="8^12^12^8^12"
^DIST(.403,30,"AY",2,29,12,"D")="16^30^3^200.11"
^DIST(.403,30,"AY",2,29,12,"N")="10^0^0^10^0"
^DIST(.403,30,"AY",2,29,14,"D")="12^62^8^14"
^DIST(.403,30,"AY",2,29,14,"N")="17^8^8^7^8"
^DIST(.403,30,"AY",2,29,16,"D")="9^59^3^200.18"
^DIST(.403,30,"AY",2,29,16,"N")="5^17^17^5^17"
^DIST(.403,30,"AY",2,29,17,"D")="10^30^30^31.3"
^DIST(.403,30,"AY",2,29,17,"N")="16^7^7^16^7"
^DIST(.403,30,"AY",2,29,18,"D")="6^69^3^200.19"
^DIST(.403,30,"AY",2,29,18,"N")="1^3^4^2^4"
^DIST(.403,30,"AY",2,47)="0^0^200^^e^^^^1"
^DIST(.403,30,"AY",2,47,1,"D")="1^6^30^.01"
^DIST(.403,30,"AY",2,47,1,"N")="0^1,29^1,29^0^1,29"
^DIST(.403,30,"AY",2,"FIRST")="1,47"
^DIST(.403,30,"AY",3,0,0,"N")="1,86^1,47^1,47^3,86^1,47"
^DIST(.403,30,"AY",3,47)="0^0^200^^e^^^^1"
^DIST(.403,30,"AY",3,47,1,"D")="1^6^30^.01"
^DIST(.403,30,"AY",3,47,1,"N")="0^2,50^2,50^0^2,50"
^DIST(.403,30,"AY",3,50)="1^0^200^^e^^^^2"
^DIST(.403,30,"AY",3,50,2,"D")="3^30^21^15"
^DIST(.403,30,"AY",3,50,2,"N")="1,47^3^3^1,47^3"
^DIST(.403,30,"AY",3,50,3,"D")="5^18^20^.131"
^DIST(.403,30,"AY",3,50,3,"N")="2^7^4^2^4"
^DIST(.403,30,"AY",3,50,4,"D")="5^55^20^.132"
^DIST(.403,30,"AY",3,50,4,"N")="2^6^7^3^7"
^DIST(.403,30,"AY",3,50,5,"D")="7^18^20^.137"
^DIST(.403,30,"AY",3,50,5,"N")="7^9^8^6^8"
^DIST(.403,30,"AY",3,50,6,"D")="6^55^20^.136"
^DIST(.403,30,"AY",3,50,6,"N")="4^8^5^7^5"
^DIST(.403,30,"AY",3,50,7,"D")="6^18^20^.135"
^DIST(.403,30,"AY",3,50,7,"N")="3^5^6^4^6"
^DIST(.403,30,"AY",3,50,8,"D")="7^55^20^.138"
^DIST(.403,30,"AY",3,50,8,"N")="6^9^9^5^9"
^DIST(.403,30,"AY",3,50,9,"D")="8^18^10^200.07"
^DIST(.403,30,"AY",3,50,9,"N")="5^1,86^1,86^8^1,86"
^DIST(.403,30,"AY",3,86)="12^0^200.05^^e^^4^^1^1"
^DIST(.403,30,"AY",3,86,1,"D")="12^1^40^.01"
^DIST(.403,30,"AY",3,86,1,"N")="9,50^0^0^9,50^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,30,"AY",3,86,2,"D")="12^51^12^2"
^DIST(.403,30,"AY",3,86,2,"N")="9,50^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,30,"AY",3,86,3,"D")="12^66^12^3"
^DIST(.403,30,"AY",3,86,3,"N")="9,50^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,30,"AY",3,87)="0^0^200^^e^^^^0"
^DIST(.403,30,"AY",3,"FIRST")="1,47"
^DIST(.403,30,"AY",4,0,0,"N")="3,30^2,30^2,30^3,30^2,30"
^DIST(.403,30,"AY",4,30)="11^10^200.03^^e^^^^2"
^DIST(.403,30,"AY",4,30,2,"D")="13^34^30^.01"
^DIST(.403,30,"AY",4,30,2,"N")="0^3^3^0^3"
^DIST(.403,30,"AY",4,30,3,"D")="14^34^4^2"
^DIST(.403,30,"AY",4,30,3,"N")="2^0^0^2^0"
^DIST(.403,30,"AY",4,"FIRST")="2,30"
^DIST(.403,30,"AY",5,0,0,"N")="3,31^2,31^2,31^3,31^2,31"
^DIST(.403,30,"AY",5,31)="8^17^200.02^^e^^^^2"
^DIST(.403,30,"AY",5,31,2,"D")="10^27^30^.01"
^DIST(.403,30,"AY",5,31,2,"N")="0^3^3^0^3"
^DIST(.403,30,"AY",5,31,3,"D")="11^27^3^1"
^DIST(.403,30,"AY",5,31,3,"N")="2^0^0^2^0"
^DIST(.403,30,"AY",5,"FIRST")="2,31"
^DIST(.403,30,"AY",6,0,0,"N")="6,321^5,321^5,321^6,321^5,321"
^DIST(.403,30,"AY",6,321)="7^11^20^^e^^^1^5"
^DIST(.403,30,"AY",6,321,2,"D")="12^28^35^1"
^DIST(.403,30,"AY",6,321,2,"N")="4^6^6^4^6"
^DIST(.403,30,"AY",6,321,3,"D")="10^28^25^2"
^DIST(.403,30,"AY",6,321,3,"N")="5^4^4^5^4"
^DIST(.403,30,"AY",6,321,4,"D")="11^28^25^3"
^DIST(.403,30,"AY",6,321,4,"N")="3^2^2^3^2"
^DIST(.403,30,"AY",6,321,5,"D")="9^28^10^4"
^DIST(.403,30,"AY",6,321,5,"N")="0^3^3^0^3"
^DIST(.403,30,"AY",6,321,6,"D")="13^28^10^5"
^DIST(.403,30,"AY",6,321,6,"N")="2^0^0^2^0"
^DIST(.403,30,"AY",6,321,8,"D")="15^13^35^0^^^^^1"
^DIST(.403,30,"AY",6,321,"PTB")="200,10.1"
^DIST(.403,30,"AY",6,321,"PTB",1)="S X=$$GET^DDSVAL(200,.DA,10.1),DA=X"
^DIST(.403,30,"AY",6,"FIRST")="5,321"
^DIST(.403,30,"AY",7,0,0,"N")="1,342^2,341^2,341^3,342^2,341"
^DIST(.403,30,"AY",7,47)="0^0^200^^d^^^^0"
^DIST(.403,30,"AY",7,47,1,"D")="1^6^30^.01"
^DIST(.403,30,"AY",7,341)="1^0^200^^e^^^^2"
^DIST(.403,30,"AY",7,341,2,"D")="3^28^3^101.01"
^DIST(.403,30,"AY",7,341,2,"N")="0^1,342^3^0^3"
^DIST(.403,30,"AY",7,341,3,"D")="3^47^30^101.02"
^DIST(.403,30,"AY",7,341,3,"N")="0^1,342^1,342^2^1,342"
^DIST(.403,30,"AY",7,342)="7^0^200.010113^^e^^10^^1^1"
^DIST(.403,30,"AY",7,342,1,"D")="7^2^3^.01"
^DIST(.403,30,"AY",7,342,1,"N")="2,341^0^0^3,341^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,30,"AY",7,342,2,"D")="7^46^11^.02"
^DIST(.403,30,"AY",7,342,2,"N")="2,341^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,30,"AY",7,342,3,"D")="7^63^11^.03"
^DIST(.403,30,"AY",7,342,3,"N")="3,341^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,30,"AY",7,342,4,"D")="7^8^35^0^^^^^1"
^DIST(.403,30,"AY",7,342,4,"N")="^^0^^0"
^DIST(.403,30,"AY",7,"FIRST")="2,341"
^DIST(.403,30,"AY",8,0,0,"N")="11,358^1,47^1,47^11,358^1,47"
^DIST(.403,30,"AY",8,47)="0^0^200^^e^^^^1"
^DIST(.403,30,"AY",8,47,1,"D")="1^6^30^.01"
^DIST(.403,30,"AY",8,47,1,"N")="0^3,358^3,358^0^3,358"
^DIST(.403,30,"AY",8,358)="1^0^200^^e^^^^3"
^DIST(.403,30,"AY",8,358,3,"D")="4^20^50^.111"
^DIST(.403,30,"AY",8,358,3,"N")="1,47^4^4^1,47^4"
^DIST(.403,30,"AY",8,358,4,"D")="5^20^50^.112"
^DIST(.403,30,"AY",8,358,4,"N")="3^5^5^3^5"
^DIST(.403,30,"AY",8,358,5,"D")="6^20^50^.113"
^DIST(.403,30,"AY",8,358,5,"N")="4^6^6^4^6"
^DIST(.403,30,"AY",8,358,6,"D")="7^20^30^.114"
^DIST(.403,30,"AY",8,358,6,"N")="5^7^7^5^7"
^DIST(.403,30,"AY",8,358,7,"D")="8^20^30^.115"
^DIST(.403,30,"AY",8,358,7,"N")="6^8^8^6^8"
^DIST(.403,30,"AY",8,358,8,"D")="9^20^10^.116"
^DIST(.403,30,"AY",8,358,8,"N")="7^9^9^7^9"
^DIST(.403,30,"AY",8,358,9,"D")="10^20^50^.151"
^DIST(.403,30,"AY",8,358,9,"N")="8^15^15^8^15"
^DIST(.403,30,"AY",8,358,11,"D")="16^19^59^12.1"
^DIST(.403,30,"AY",8,358,11,"N")="12^0^0^12^0"
^DIST(.403,30,"AY",8,358,12,"D")="15^18^59^12.2"
^DIST(.403,30,"AY",8,358,12,"N")="16^11^11^16^11"
^DIST(.403,30,"AY",8,358,13,"D")="13^65^8^12.3"
^DIST(.403,30,"AY",8,358,13,"N")="14^16^16^17^16"
^DIST(.403,30,"AY",8,358,14,"D")="12^19^27^12.4"
^DIST(.403,30,"AY",8,358,14,"N")="15^17^17^15^17"
^DIST(.403,30,"AY",8,358,15,"D")="11^35^3^12.6"
^DIST(.403,30,"AY",8,358,15,"N")="9^14^14^9^14"
^DIST(.403,30,"AY",8,358,16,"D")="14^62^11^12.7"
^DIST(.403,30,"AY",8,358,16,"N")="17^12^12^13^12"
^DIST(.403,30,"AY",8,358,17,"D")="13^24^11^12.8"
^DIST(.403,30,"AY",8,358,17,"N")="14^16^13^14^13"
^DIST(.403,30,"AY",8,"FIRST")="1,47"
^DIST(.403,30,"AY","CAP","ALLOWED TO USE SPOOLER","1^2^8^3^7",2,29,7)=""
^DIST(.403,30,"AY","CAP","ALWAYS SHOW SECONDARIES","1^2^8^3^7",2,29,12)=""
^DIST(.403,30,"AY","CAP","ASK DEVICE TYPE AT SIGN-ON","1^2^8^3^7",2,29,4)=""
^DIST(.403,30,"AY","CAP","AUTO MENU","1^2^8^3^7",2,29,3)=""
^DIST(.403,30,"AY","CAP","AUTO SIGN-ON","1^2^8^3^7",2,29,16)=""
^DIST(.403,30,"AY","CAP","CAN MAKE INTO A MAIL MESSAGE","1^2^8^3^7",2,29,8)=""
^DIST(.403,30,"AY","CAP","CITY","1^2^8^3^7",8,358,6)=""
^DIST(.403,30,"AY","CAP","COMMERCIAL PHONE","1^2^8^3^7",3,50,7)=""
^DIST(.403,30,"AY","CAP","DEFAULT",5,5,31,3)=""
^DIST(.403,30,"AY","CAP","DEGREE","1^2^8^3^7",1,28,17)=""
^DIST(.403,30,"AY","CAP","DIGITAL PAGER","1^2^8^3^7",3,50,8)=""
^DIST(.403,30,"AY","CAP","DISUSER","1^2^8^3^7",1,28,18)=""
^DIST(.403,30,"AY","CAP","DIVISION",5,5,31,2)=""
^DIST(.403,30,"AY","CAP","DIVISION","1^2^8^3^7",1,28,12)=""
^DIST(.403,30,"AY","CAP","DOB","1^2^8^3^7",1,28,21)=""
^DIST(.403,30,"AY","CAP","E-MAIL ADDRESS","1^2^8^3^7",8,358,9)=""
^DIST(.403,30,"AY","CAP","FAMILY (LAST)",6,6,321,2)=""
^DIST(.403,30,"AY","CAP","FAX NUMBER","1^2^8^3^7",3,50,6)=""
^DIST(.403,30,"AY","CAP","FILE MANAGER ACCESS CODE","1^2^8^3^7",1,28,9)=""
^DIST(.403,30,"AY","CAP","FILE RANGE","1^2^8^3^7",2,29,10)=""
^DIST(.403,30,"AY","CAP","GIVEN (FIRST)",6,6,321,3)=""
^DIST(.403,30,"AY","CAP","INITIAL","1^2^8^3^7",1,28,3)=""
^DIST(.403,30,"AY","CAP","IS THIS PERSON AN ACTIVE TRAINEE?","1^2^8^3^7",8,358,15)=""
^DIST(.403,30,"AY","CAP","LANGUAGE","1^2^8^3^7",3,50,9)=""
^DIST(.403,30,"AY","CAP","LAST TRAINING MONTH & YEAR","1^2^8^3^7",8,358,13)=""
^DIST(.403,30,"AY","CAP","MAIL CODE","1^2^8^3^7",1,28,14)=""
^DIST(.403,30,"AY","CAP","MIDDLE",6,6,321,4)=""
^DIST(.403,30,"AY","CAP","MULTIPLE SIGN-ON","1^2^8^3^7",2,29,2)=""
^DIST(.403,30,"AY","CAP","MULTIPLE SIGN-ON LIMIT","1^2^8^3^7",2,29,18)=""
^DIST(.403,30,"AY","CAP","NAME","1^2^8^3^7",1,47,1)=""
^DIST(.403,30,"AY","CAP","NAME","1^2^8^3^7",2,47,1)=""
^DIST(.403,30,"AY","CAP","NAME","1^2^8^3^7",3,47,1)=""
^DIST(.403,30,"AY","CAP","NAME","1^2^8^3^7",8,47,1)=""
^DIST(.403,30,"AY","CAP","NAME...","1^2^8^3^7",1,28,1)=""
^DIST(.403,30,"AY","CAP","NICK NAME","1^2^8^3^7",1,28,4)=""
^DIST(.403,30,"AY","CAP","OE/RR LIST","1^2^8^3^7",7,341,3)=""
^DIST(.403,30,"AY","CAP","OFFICE PHONE","1^2^8^3^7",3,50,4)=""
^DIST(.403,30,"AY","CAP","PAC","1^2^8^3^7",2,29,14)=""
^DIST(.403,30,"AY","CAP","PHONE","1^2^8^3^7",3,50,3)=""
^DIST(.403,30,"AY","CAP","PREFERRED EDITOR","1^2^8^3^7",2,29,17)=""
^DIST(.403,30,"AY","CAP","PREFIX",6,6,321,5)=""
^DIST(.403,30,"AY","CAP","PRIMARY MENU OPTION","1^2^8^3^7",1,28,5)=""
^DIST(.403,30,"AY","CAP","PROGRAM OF STUDY","1^2^8^3^7",8,358,12)=""
^DIST(.403,30,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^8^3^7",2,29,6)=""
^DIST(.403,30,"AY","CAP","PROHIBITED TIMES FOR SIGN-ON","1^2^8^3^7",3,50,2)=""
^DIST(.403,30,"AY","CAP","RESTRICT PATIENT SELECTION","1^2^8^3^7",7,341,2)=""
^DIST(.403,30,"AY","CAP","SECONDARY MENU OPTIONS",4,4,30,2)=""
^DIST(.403,30,"AY","CAP","SECONDARY MENU OPTIONS","1^2^8^3^7",1,28,6)=""
^DIST(.403,30,"AY","CAP","SERVICE/SECTION","1^2^8^3^7",1,28,13)=""
^DIST(.403,30,"AY","CAP","SSN","1^2^8^3^7",1,28,16)=""
^DIST(.403,30,"AY","CAP","START DATE OF TRAINING","1^2^8^3^7",8,358,17)=""
^DIST(.403,30,"AY","CAP","STATE","1^2^8^3^7",8,358,7)=""
^DIST(.403,30,"AY","CAP","STREET 1","1^2^8^3^7",8,358,3)=""
^DIST(.403,30,"AY","CAP","STREET 2","1^2^8^3^7",8,358,4)=""
^DIST(.403,30,"AY","CAP","STREET 3","1^2^8^3^7",8,358,5)=""
^DIST(.403,30,"AY","CAP","SUFFIX",6,6,321,6)=""
^DIST(.403,30,"AY","CAP","SYNONYM",4,4,30,3)=""
^DIST(.403,30,"AY","CAP","TARGET DEGREE LVL","1^2^8^3^7",8,358,11)=""
^DIST(.403,30,"AY","CAP","TERMINATION DATE","1^2^8^3^7",1,28,19)=""
^DIST(.403,30,"AY","CAP","TERMINATION REASON","1^2^8^3^7",1,28,20)=""
^DIST(.403,30,"AY","CAP","TIMED READ (# OF SECONDS)","1^2^8^3^7",2,29,1)=""
^DIST(.403,30,"AY","CAP","TITLE","1^2^8^3^7",1,28,2)=""
^DIST(.403,30,"AY","CAP","TRAINEE INACTIVE (DATE)","1^2^8^3^7",8,358,16)=""
^DIST(.403,30,"AY","CAP","TYPE-AHEAD","1^2^8^3^7",2,29,5)=""
^DIST(.403,30,"AY","CAP","VHA TRAINING FAC.","1^2^8^3^7",8,358,14)=""
^DIST(.403,30,"AY","CAP","VOICE PAGER","1^2^8^3^7",3,50,5)=""
^DIST(.403,30,"AY","CAP","WANT TO EDIT ACCESS CODE (Y/N)","1^2^8^3^7",1,28,7)=""
^DIST(.403,30,"AY","CAP","WANT TO EDIT VERIFY CODE (Y/N)","1^2^8^3^7",1,28,8)=""
^DIST(.403,30,"AY","CAP","ZIP CODE","1^2^8^3^7",8,358,8)=""
^DIST(.403,30,"AY","COMP",20,1,6,321,8)=""
^DIST(.403,30,"AY","COMP",20,2,6,321,8)=""
^DIST(.403,30,"AY","COMP",20,3,6,321,8)=""
^DIST(.403,30,"AY","COMP",20,5,6,321,8)=""
^DIST(.403,30,"AY","COMP",200.010113,.01,7,342,4)=""
^DIST(.403,30,"AY","COMPE",321,8)="N NC S NC(""FAMILY"")=DDSE(1),NC(""GIVEN"")=DDSE(2),NC(""MIDDLE"")=DDSE(3),NC(""SUFFIX"")=DDSE(4),(XLFNEW,Y)=$$BLDNAME^XLFNAME8(.NC,35)"
^DIST(.403,30,"AY","COMPE",321,8,1)="N X S X=$$GET^DDSVAL(20,.DA,1,"""",""E""),DDSE(1)=X"
^DIST(.403,30,"AY","COMPE",321,8,2)="N X S X=$$GET^DDSVAL(20,.DA,2,"""",""E""),DDSE(2)=X"
^DIST(.403,30,"AY","COMPE",321,8,3)="N X S X=$$GET^DDSVAL(20,.DA,3,"""",""E""),DDSE(3)=X"
^DIST(.403,30,"AY","COMPE",321,8,4)="N X S X=$$GET^DDSVAL(20,.DA,5,"""",""E""),DDSE(4)=X"
^DIST(.403,30,"AY","COMPE",342,4)="S Y=$S($D(^DD(101.13,1,0))#2:$$GET^DDSVAL(101.13,DDSE(1),1),1:"""")"
^DIST(.403,30,"AY","COMPE",342,4,1)="N X S X=$$GET^DDSVAL(200.010113,.DA,.01),DDSE(1)=X"
^DIST(.403,30,"AY","F20",0,"L",6,321,8)=""
^DIST(.403,30,"AY","F20",1,"L",6,321,2)=""
^DIST(.403,30,"AY","F20",2,"L",6,321,3)=""
^DIST(.403,30,"AY","F20",3,"L",6,321,4)=""
^DIST(.403,30,"AY","F20",4,"L",6,321,5)=""
^DIST(.403,30,"AY","F20",5,"L",6,321,6)=""
^DIST(.403,30,"AY","F200",.01,"L",1,28,1)=""
^DIST(.403,30,"AY","F200",.01,"L",1,47,1)=""
^DIST(.403,30,"AY","F200",.01,"L",2,47,1)=""
^DIST(.403,30,"AY","F200",.01,"L",3,47,1)=""
^DIST(.403,30,"AY","F200",.01,"L",7,47,1)=""
^DIST(.403,30,"AY","F200",.01,"L",8,47,1)=""
^DIST(.403,30,"AY","F200",.111,"L",8,358,3)=""
^DIST(.403,30,"AY","F200",.112,"L",8,358,4)=""
^DIST(.403,30,"AY","F200",.113,"L",8,358,5)=""
^DIST(.403,30,"AY","F200",.114,"L",8,358,6)=""
^DIST(.403,30,"AY","F200",.115,"L",8,358,7)=""
^DIST(.403,30,"AY","F200",.116,"L",8,358,8)=""
^DIST(.403,30,"AY","F200",.131,"L",3,50,3)=""
^DIST(.403,30,"AY","F200",.132,"L",3,50,4)=""
^DIST(.403,30,"AY","F200",.135,"L",3,50,7)=""
^DIST(.403,30,"AY","F200",.136,"L",3,50,6)=""
^DIST(.403,30,"AY","F200",.137,"L",3,50,5)=""
^DIST(.403,30,"AY","F200",.138,"L",3,50,8)=""
^DIST(.403,30,"AY","F200",.151,"L",8,358,9)=""
^DIST(.403,30,"AY","F200",1,"L",1,28,3)=""
^DIST(.403,30,"AY","F200",2.1,"L",1,28,7)=""
^DIST(.403,30,"AY","F200",3,"L",1,28,9)=""
^DIST(.403,30,"AY","F200",5,"L",1,28,21)=""
^DIST(.403,30,"AY","F200",7,"L",1,28,18)=""
^DIST(.403,30,"AY","F200",8,"L",1,28,2)=""
^DIST(.403,30,"AY","F200",9,"L",1,28,16)=""
^DIST(.403,30,"AY","F200",9.2,"L",1,28,19)=""
^DIST(.403,30,"AY","F200",9.4,"L",1,28,20)=""
^DIST(.403,30,"AY","F200",10.6,"L",1,28,17)=""
^DIST(.403,30,"AY","F200",11.1,"L",1,28,8)=""
^DIST(.403,30,"AY","F200",12.1,"L",8,358,11)=""
^DIST(.403,30,"AY","F200",12.2,"L",8,358,12)=""
^DIST(.403,30,"AY","F200",12.3,"L",8,358,13)=""
^DIST(.403,30,"AY","F200",12.4,"L",8,358,14)=""
^DIST(.403,30,"AY","F200",12.6,"L",8,358,15)=""
^DIST(.403,30,"AY","F200",12.7,"L",8,358,16)=""
^DIST(.403,30,"AY","F200",12.8,"L",8,358,17)=""
^DIST(.403,30,"AY","F200",13,"L",1,28,4)=""
^DIST(.403,30,"AY","F200",14,"L",2,29,14)=""
^DIST(.403,30,"AY","F200",15,"L",2,29,6)=""
^DIST(.403,30,"AY","F200",15,"L",3,50,2)=""
^DIST(.403,30,"AY","F200",16,"L",1,28,12)=""
^DIST(.403,30,"AY","F200",28,"L",1,28,14)=""
^DIST(.403,30,"AY","F200",29,"L",1,28,13)=""
^DIST(.403,30,"AY","F200",31.1,"L",2,29,10)=""
^DIST(.403,30,"AY","F200",31.3,"L",2,29,17)=""
^DIST(.403,30,"AY","F200",41,"L",2,29,7)=""
^DIST(.403,30,"AY","F200",41.2,"L",2,29,8)=""
^DIST(.403,30,"AY","F200",101.01,"L",7,341,2)=""
^DIST(.403,30,"AY","F200",101.02,"L",7,341,3)=""
^DIST(.403,30,"AY","F200",200.04,"L",2,29,2)=""
^DIST(.403,30,"AY","F200",200.05,"L",2,29,4)=""
^DIST(.403,30,"AY","F200",200.06,"L",2,29,3)=""
^DIST(.403,30,"AY","F200",200.07,"L",3,50,9)=""
^DIST(.403,30,"AY","F200",200.09,"L",2,29,5)=""
^DIST(.403,30,"AY","F200",200.1,"L",2,29,1)=""
^DIST(.403,30,"AY","F200",200.11,"L",2,29,12)=""
^DIST(.403,30,"AY","F200",200.18,"L",2,29,16)=""
^DIST(.403,30,"AY","F200",200.19,"L",2,29,18)=""
^DIST(.403,30,"AY","F200",201,"L",1,28,5)=""
^DIST(.403,30,"AY","F200",203,"L",1,28,6)=""
^DIST(.403,30,"AY","F200.010113",0,"L",7,342,4)=""
^DIST(.403,30,"AY","F200.010113",.01,"L",7,342,1)=""
^DIST(.403,30,"AY","F200.010113",.02,"L",7,342,2)=""
^DIST(.403,30,"AY","F200.010113",.03,"L",7,342,3)=""
^DIST(.403,30,"AY","F200.02",.01,"L",5,31,2)=""
^DIST(.403,30,"AY","F200.02",1,"L",5,31,3)=""
^DIST(.403,30,"AY","F200.03",.01,"L",4,30,2)=""
^DIST(.403,30,"AY","F200.03",2,"L",4,30,3)=""
^DIST(.403,30,"AY","F200.05",.01,"L",3,86,1)=""
^DIST(.403,30,"AY","F200.05",2,"L",3,86,2)=""
^DIST(.403,30,"AY","F200.05",3,"L",3,86,3)=""
^DIST(.403,30,"AY","PT",200,10.1,6,321)=""
^DIST(.403,30,"AY","X",1,0,29)="Edit an Existing User"
^DIST(.403,30,"AY","X",1,1,0)="NAME:                                                               Page 1 of 5"
^DIST(.403,30,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,30,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,30,"AY","X",1,3,3)="NAME...                                             INITIAL:"
^DIST(.403,30,"AY","X",1,3,3,"A")="1;7;U"
^DIST(.403,30,"AY","X",1,4,4)="TITLE:                                           NICK NAME:"
^DIST(.403,30,"AY","X",1,5,6)="SSN:                                                 DOB:"
^DIST(.403,30,"AY","X",1,6,3)="DEGREE:                                           MAIL CODE:"
^DIST(.403,30,"AY","X",1,7,2)="DISUSER:                                     TERMINATION DATE:"
^DIST(.403,30,"AY","X",1,8,2)="Termination Reason:"
^DIST(.403,30,"AY","X",1,10,11)="PRIMARY MENU OPTION:"
^DIST(.403,30,"AY","X",1,11,1)="Select SECONDARY MENU OPTIONS:"
^DIST(.403,30,"AY","X",1,12,0)="Want to edit ACCESS CODE (Y/N):       FILE MANAGER ACCESS CODE:"
^DIST(.403,30,"AY","X",1,13,0)="Want to edit VERIFY CODE (Y/N):"
^DIST(.403,30,"AY","X",1,15,15)="Select DIVISION:"
^DIST(.403,30,"AY","X",1,16,15)="SERVICE/SECTION:"
^DIST(.403,30,"AY","X",1,16,15,"A")="1;15;U"
^DIST(.403,30,"AY","X",2,0,29)="Edit an Existing User"
^DIST(.403,30,"AY","X",2,1,0)="NAME:                                                               Page 2 of 5"
^DIST(.403,30,"AY","X",2,1,0,"A")="1;4;U"
^DIST(.403,30,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,30,"AY","X",2,4,3)="TIMED READ (# OF SECONDS):"
^DIST(.403,30,"AY","X",2,6,12)="MULTIPLE SIGN-ON:                MULTIPLE SIGN-ON LIMIT:"
^DIST(.403,30,"AY","X",2,7,2)="ASK DEVICE TYPE AT SIGN-ON:                   AUTO MENU:"
^DIST(.403,30,"AY","X",2,8,0)="PROHIBITED TIMES FOR SIGN-ON:                  TYPE-AHEAD:"
^DIST(.403,30,"AY","X",2,9,45)="AUTO SIGN-ON:"
^DIST(.403,30,"AY","X",2,10,12)="Preferred Editor:"
^DIST(.403,30,"AY","X",2,12,6)="ALLOWED TO USE SPOOLER:                            PAC:"
^DIST(.403,30,"AY","X",2,13,0)="CAN MAKE INTO A MAIL MESSAGE:"
^DIST(.403,30,"AY","X",2,15,18)="FILE RANGE:"
^DIST(.403,30,"AY","X",2,16,5)="ALWAYS SHOW SECONDARIES:"
^DIST(.403,30,"AY","X",3,0,29)="Edit an Existing User"
^DIST(.403,30,"AY","X",3,1,0)="NAME:                                                               Page 3 of 5"
^DIST(.403,30,"AY","X",3,1,0,"A")="1;4;U"
^DIST(.403,30,"AY","X",3,2,0)="_______________________________________________________________________________"
^DIST(.403,30,"AY","X",3,3,0)="PROHIBITED TIMES FOR SIGN-ON:"
^DIST(.403,30,"AY","X",3,5,11)="PHONE:                        OFFICE PHONE:"
^DIST(.403,30,"AY","X",3,6,0)="COMMERCIAL PHONE:                          FAX NUMBER:"
^DIST(.403,30,"AY","X",3,7,5)="VOICE PAGER:                       DIGITAL PAGER:"
^DIST(.403,30,"AY","X",3,8,8)="LANGUAGE:"
^DIST(.403,30,"AY","X",3,10,1)="Person Class                                         Effective     Expired"
^DIST(.403,30,"AY","X",4,11,42)="SECONDARY MENU OPTIONS"
^DIST(.403,30,"AY","X",4,13,10)="SECONDARY MENU OPTIONS:"
^DIST(.403,30,"AY","X",4,14,25)="SYNONYM:"
^DIST(.403,30,"AY","X",5,8,49)="DIVISION"
^DIST(.403,30,"AY","X",5,10,17)="DIVISION:"
^DIST(.403,30,"AY","X",5,11,18)="DEFAULT:"
^DIST(.403,30,"AY","X",6,8,48)="NAME COMPONENTS"
^DIST(.403,30,"AY","X",6,9,20)="Prefix:"
^DIST(.403,30,"AY","X",6,10,13)="Given (First):"
^DIST(.403,30,"AY","X",6,10,13,"A")="1;13;U"
^DIST(.403,30,"AY","X",6,11,20)="Middle:"
^DIST(.403,30,"AY","X",6,12,13)="Family (Last):"
^DIST(.403,30,"AY","X",6,12,13,"A")="1;13;U"
^DIST(.403,30,"AY","X",6,13,20)="Suffix:"
^DIST(.403,30,"AY","X",7,0,29)="Edit an Existing User"
^DIST(.403,30,"AY","X",7,1,0)="NAME:                                                               Page 4 of 5"
^DIST(.403,30,"AY","X",7,1,0,"A")="1;4;U"
^DIST(.403,30,"AY","X",7,2,0)="_______________________________________________________________________________"
^DIST(.403,30,"AY","X",7,3,0)="RESTRICT PATIENT SELECTION:        OE/RR LIST:"
^DIST(.403,30,"AY","X",7,5,0)="CPRS TAB ACCESS:"
^DIST(.403,30,"AY","X",7,6,2)="Name  Description                          Effective Date  Expiration Date"
^DIST(.403,30,"AY","X",8,0,29)="Edit an Existing User"
^DIST(.403,30,"AY","X",8,1,0)="NAME:                                                               Page 5 of 5"
^DIST(.403,30,"AY","X",8,1,0,"A")="1;4;U"
^DIST(.403,30,"AY","X",8,2,0)="_______________________________________________________________________________"
^DIST(.403,30,"AY","X",8,3,0)="PERMANENT ADDRESS:"
^DIST(.403,30,"AY","X",8,4,10)="Street 1:"
^DIST(.403,30,"AY","X",8,5,10)="Street 2:"
^DIST(.403,30,"AY","X",8,6,10)="Street 3:"
^DIST(.403,30,"AY","X",8,7,14)="City:"
^DIST(.403,30,"AY","X",8,8,13)="State:"
^DIST(.403,30,"AY","X",8,9,10)="Zip Code:"
^DIST(.403,30,"AY","X",8,10,4)="E-Mail Address:"
^DIST(.403,30,"AY","X",8,11,0)="Is this person an active Trainee?:"
^DIST(.403,30,"AY","X",8,12,0)="VHA Training Fac.:"
^DIST(.403,30,"AY","X",8,13,0)="Start Date of Training:              Last Training Month & Year:"
^DIST(.403,30,"AY","X",8,14,37)="Trainee Inactive (Date):"
^DIST(.403,30,"AY","X",8,15,0)="Program of Study:"
^DIST(.403,30,"AY","X",8,16,0)="Target Degree Lvl:"
^DIST(.403,31,0)="SPNLPFM1^^^^2940720^^^154^0^0^1"
^DIST(.403,31,11)="D EN1^SPNLUTL1(.DA)"
^DIST(.403,31,12)="K SPNLSSN,SPNLDOB,SPNLDEAD,SPNLINDC,SPNLPHON"
^DIST(.403,31,15,0)="^^3^3^2960718^^^^"
^DIST(.403,31,15,1,0)=" "
^DIST(.403,31,15,2,0)="This screen is SPNLPFM1 containing header SPNLPHDR1 and input blocks"
^DIST(.403,31,15,3,0)="SPNLPBLK1 and SPNLPBLK2."
^DIST(.403,31,20)="D EN6^SPNLUTL0(.DA)"
^DIST(.403,31,40,0)="^.4031I^3^2"
^DIST(.403,31,40,1,0)="1^^1,1^3^^0"
^DIST(.403,31,40,1,1)="SCD REGISTRATION"
^DIST(.403,31,40,1,12)=""
^DIST(.403,31,40,1,15,0)="^^1^1^2950425^^^^"
^DIST(.403,31,40,1,15,1,0)="This screen is SPNLPFM1 containing blocks SPNLPBLK1."
^DIST(.403,31,40,1,40,0)="^.4032PI^136^4"
^DIST(.403,31,40,1,40,88,0)="88^1^1,1^d"
^DIST(.403,31,40,1,40,89,0)="89^2^4,1^e"
^DIST(.403,31,40,1,40,90,0)="90^3^10,1^e"
^DIST(.403,31,40,1,40,90,2)="3^^n"
^DIST(.403,31,40,1,40,136,0)="136^4^15,1^e"
^DIST(.403,31,40,1,40,"AC",1,88)=""
^DIST(.403,31,40,1,40,"AC",2,89)=""
^DIST(.403,31,40,1,40,"AC",3,90)=""
^DIST(.403,31,40,1,40,"AC",4,136)=""
^DIST(.403,31,40,1,40,"B",88,88)=""
^DIST(.403,31,40,1,40,"B",89,89)=""
^DIST(.403,31,40,1,40,"B",90,90)=""
^DIST(.403,31,40,1,40,"B",136,136)=""
^DIST(.403,31,40,3,0)="3^^1,1^^1"
^DIST(.403,31,40,3,1)="Page 3"
^DIST(.403,31,40,3,12)="D:$$GET^DDSVAL(154,.DA,5.1)'=1 PUT^DDSVAL(154,.DA,2.5,""@"")"
^DIST(.403,31,40,3,40,0)="^.4032IP^339^5"
^DIST(.403,31,40,3,40,91,0)="91^1^1,1^d"
^DIST(.403,31,40,3,40,137,0)="137^2^5,1^e"
^DIST(.403,31,40,3,40,138,0)="138^4^14,1^e"
^DIST(.403,31,40,3,40,138,2)="2^^n"
^DIST(.403,31,40,3,40,139,0)="139^6^17,1^e"
^DIST(.403,31,40,3,40,339,0)="339^3^12,1^e"
^DIST(.403,31,40,3,40,339,2)="2^^n^^"
^DIST(.403,31,40,3,40,"AC",1,91)=""
^DIST(.403,31,40,3,40,"AC",2,137)=""
^DIST(.403,31,40,3,40,"AC",3,339)=""
^DIST(.403,31,40,3,40,"AC",4,138)=""
^DIST(.403,31,40,3,40,"AC",6,139)=""
^DIST(.403,31,40,3,40,"B",91,91)=""
^DIST(.403,31,40,3,40,"B",137,137)=""
^DIST(.403,31,40,3,40,"B",138,138)=""
^DIST(.403,31,40,3,40,"B",139,139)=""
^DIST(.403,31,40,3,40,"B",339,339)=""
^DIST(.403,31,40,"B",1,1)=""
^DIST(.403,31,40,"B",3,3)=""
^DIST(.403,31,40,"C","PAGE 3",3)=""
^DIST(.403,31,40,"C","SCD REGISTRATION",1)=""
^DIST(.403,31,"AY",1,0,0,"N")="3,136^28,89^28,89^3,136^28,89"
^DIST(.403,31,"AY",1,88)="0^0^154^^d^^^^0"
^DIST(.403,31,"AY",1,88,3,"D")="1^9^30^.01"
^DIST(.403,31,"AY",1,88,4,"D")="^^^^1^46^^0"
^DIST(.403,31,"AY",1,88,5,"D")="^^^^1^64^^0"
^DIST(.403,31,"AY",1,88,11,"D")="^^^^0^38^^0"
^DIST(.403,31,"AY",1,88,12,"D")="^^^^2^0^^0"
^DIST(.403,31,"AY",1,88,13,"D")="^^^^2^51^^0"
^DIST(.403,31,"AY",1,89)="3^0^154^0^e^^^^28"
^DIST(.403,31,"AY",1,89,2,"D")="7^23^26^.03"
^DIST(.403,31,"AY",1,89,2,"N")="8^14^14^24^14"
^DIST(.403,31,"AY",1,89,8,"D")="6^21^3^1.1"
^DIST(.403,31,"AY",1,89,8,"N")="28^2^24^28^24"
^DIST(.403,31,"AY",1,89,14,"D")="8^56^19^.05"
^DIST(.403,31,"AY",1,89,14,"N")="2^1,90^1,90^2^1,90"
^DIST(.403,31,"AY",1,89,24,"D")="6^56^19^.02"
^DIST(.403,31,"AY",1,89,24,"N")="28^2^2^8^2"
^DIST(.403,31,"AY",1,89,28,"D")="5^21^25^2.6"
^DIST(.403,31,"AY",1,89,28,"N")="0^8^8^0^8"
^DIST(.403,31,"AY",1,90)="9^0^154.004^^e^^3^^1^1"
^DIST(.403,31,"AY",1,90,1,"D")="10^4^30^.01^10^0^^0"
^DIST(.403,31,"AY",1,90,1,"N")="14,89^1,136^1,136^14,89^1,136^1,-1^1,+1^2^4,-1^2"
^DIST(.403,31,"AY",1,90,2,"D")="10^39^13^.02^10^35^^0"
^DIST(.403,31,"AY",1,90,2,"N")="14,89^1,136^1,136^1^1,136^2,-1^2,+1^4^1^4"
^DIST(.403,31,"AY",1,90,4,"D")="10^58^17^.03^10^54^^0"
^DIST(.403,31,"AY",1,90,4,"N")="14,89^1,136^1,136^2^1,136^4,-1^4,+1^1,+1^2^1,+1"
^DIST(.403,31,"AY",1,136)="14^0^154^^e^^^^1"
^DIST(.403,31,"AY",1,136,1,"D")="14^11^5^2.1"
^DIST(.403,31,"AY",1,136,1,"N")="1,90^4^2^4,90^2"
^DIST(.403,31,"AY",1,136,2,"D")="14^60^10^6.09"
^DIST(.403,31,"AY",1,136,2,"N")="1,90^4^4^1^4"
^DIST(.403,31,"AY",1,136,3,"D")="16^57^21^2.2"
^DIST(.403,31,"AY",1,136,3,"N")="4^0^0^4^0"
^DIST(.403,31,"AY",1,136,4,"D")="15^9^65^11"
^DIST(.403,31,"AY",1,136,4,"N")="1^3^3^2^3"
^DIST(.403,31,"AY",1,"FIRST")="28,89"
^DIST(.403,31,"AY",3,0,0,"N")="4,138^1,137^1,137^6,138^1,137"
^DIST(.403,31,"AY",3,91)="0^0^154^^d^^^^0"
^DIST(.403,31,"AY",3,91,2,"D")="1^9^30^.01"
^DIST(.403,31,"AY",3,91,4,"D")="^^^^2^0^^0"
^DIST(.403,31,"AY",3,91,5,"D")="^^^^2^51^^0"
^DIST(.403,31,"AY",3,137)="4^0^154^^e^^^^1"
^DIST(.403,31,"AY",3,137,1,"D")="4^19^35^3.1"
^DIST(.403,31,"AY",3,137,1,"N")="0^2^2^0^2"
^DIST(.403,31,"AY",3,137,2,"D")="5^17^19^3.2"
^DIST(.403,31,"AY",3,137,2,"N")="1^4^3^1^3"
^DIST(.403,31,"AY",3,137,3,"D")="5^56^19^3.3"
^DIST(.403,31,"AY",3,137,3,"N")="1^4^4^2^4"
^DIST(.403,31,"AY",3,137,4,"D")="6^34^30^3.4"
^DIST(.403,31,"AY",3,137,4,"N")="2^5^5^3^5"
^DIST(.403,31,"AY",3,137,5,"D")="7^23^35^3.5"
^DIST(.403,31,"AY",3,137,5,"N")="4^6^6^4^6"
^DIST(.403,31,"AY",3,137,6,"D")="8^15^25^8.1"
^DIST(.403,31,"AY",3,137,6,"N")="5^8^7^5^7"
^DIST(.403,31,"AY",3,137,7,"D")="8^54^25^8.2"
^DIST(.403,31,"AY",3,137,7,"N")="5^16^8^6^8"
^DIST(.403,31,"AY",3,137,8,"D")="9^17^19^8.3"
^DIST(.403,31,"AY",3,137,8,"N")="6^9^16^7^16"
^DIST(.403,31,"AY",3,137,9,"D")="10^20^28^8.6"
^DIST(.403,31,"AY",3,137,9,"N")="8^1,339^10^16^10"
^DIST(.403,31,"AY",3,137,10,"D")="10^62^17^8.8"
^DIST(.403,31,"AY",3,137,10,"N")="16^1,339^1,339^9^1,339"
^DIST(.403,31,"AY",3,137,16,"D")="9^50^29^8.4"
^DIST(.403,31,"AY",3,137,16,"N")="6^9^9^8^9"
^DIST(.403,31,"AY",3,138)="13^0^154.07^^e^^2^^4^4"
^DIST(.403,31,"AY",3,138,4,"D")="15^17^17^.01^15^12^^0"
^DIST(.403,31,"AY",3,138,4,"N")="1,339^0^0^1,339^0^4,-1^4,+1^5^6,-1^5"
^DIST(.403,31,"AY",3,138,5,"D")="15^40^17^1^15^35^^0"
^DIST(.403,31,"AY",3,138,5,"N")="1,339^0^0^4^0^5,-1^5,+1^6^4^6"
^DIST(.403,31,"AY",3,138,6,"D")="15^62^17^2^15^57^^0"
^DIST(.403,31,"AY",3,138,6,"N")="1,339^0^0^5^0^6,-1^6,+1^4,+1^5^4,+1"
^DIST(.403,31,"AY",3,139)="16^0^154^^e^^^^0"
^DIST(.403,31,"AY",3,339)="11^0^154.012^^e^^2^^1^1"
^DIST(.403,31,"AY",3,339,1,"D")="12^15^35^.01^12^12^^0"
^DIST(.403,31,"AY",3,339,1,"N")="9,137^4,138^4,138^10,137^4,138^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,31,"AY",3,"FIRST")="1,137"
^DIST(.403,31,"AY","CAP","ADDITIONAL CARE RECEIVED AT VAMC","1^3",3,137,4)=""
^DIST(.403,31,"AY","CAP","AMOUNT VA IS USED","1^3",3,137,1)=""
^DIST(.403,31,"AY","CAP","ANNUAL REHAB VA","1^3",3,137,3)=""
^DIST(.403,31,"AY","CAP","DATE OF D/C","1^3",3,137,10)=""
^DIST(.403,31,"AY","CAP","DATE OF LAST REVIEW","1^3",1,89,14)=""
^DIST(.403,31,"AY","CAP","DATE OF ORIGINAL REGISTRATION","1^3",1,89,24)=""
^DIST(.403,31,"AY","CAP","EXTENT OF SCI","1^3",1,136,2)=""
^DIST(.403,31,"AY","CAP","INITIAL REHAB SITE","1^3",3,137,9)=""
^DIST(.403,31,"AY","CAP","MS SUBTYPE","1^3",1,136,3)=""
^DIST(.403,31,"AY","CAP","NON-VA SOURCE OF CARE","1^3",3,137,5)=""
^DIST(.403,31,"AY","CAP","PRI CARE PROV","1^3",3,137,6)=""
^DIST(.403,31,"AY","CAP","PRIMARY CARE VA","1^3",3,137,2)=""
^DIST(.403,31,"AY","CAP","REFERRAL SOURCE","1^3",3,137,8)=""
^DIST(.403,31,"AY","CAP","REFERRAL VA","1^3",3,137,16)=""
^DIST(.403,31,"AY","CAP","REGISTRATION STATUS","1^3",1,89,2)=""
^DIST(.403,31,"AY","CAP","REMARKS","1^3",1,136,4)=""
^DIST(.403,31,"AY","CAP","SCD-R COORD","1^3",3,137,7)=""
^DIST(.403,31,"AY","CAP","SCI LEVEL","1^3",1,136,1)=""
^DIST(.403,31,"AY","CAP","SCI NETWORK (Y/N)","1^3",1,89,8)=""
^DIST(.403,31,"AY","CAP","VA SCI STATUS","1^3",1,89,28)=""
^DIST(.403,31,"AY","F154",.01,"L",1,88,3)=""
^DIST(.403,31,"AY","F154",.01,"L",3,91,2)=""
^DIST(.403,31,"AY","F154",.02,"L",1,89,24)=""
^DIST(.403,31,"AY","F154",.03,"L",1,89,2)=""
^DIST(.403,31,"AY","F154",.05,"L",1,89,14)=""
^DIST(.403,31,"AY","F154",1.1,"L",1,89,8)=""
^DIST(.403,31,"AY","F154",2.1,"L",1,136,1)=""
^DIST(.403,31,"AY","F154",2.2,"L",1,136,3)=""
^DIST(.403,31,"AY","F154",2.6,"L",1,89,28)=""
^DIST(.403,31,"AY","F154",3.1,"L",3,137,1)=""
^DIST(.403,31,"AY","F154",3.2,"L",3,137,2)=""
^DIST(.403,31,"AY","F154",3.3,"L",3,137,3)=""
^DIST(.403,31,"AY","F154",3.4,"L",3,137,4)=""
^DIST(.403,31,"AY","F154",3.5,"L",3,137,5)=""
^DIST(.403,31,"AY","F154",6.09,"L",1,136,2)=""
^DIST(.403,31,"AY","F154",8.1,"L",3,137,6)=""
^DIST(.403,31,"AY","F154",8.2,"L",3,137,7)=""
^DIST(.403,31,"AY","F154",8.3,"L",3,137,8)=""
^DIST(.403,31,"AY","F154",8.4,"L",3,137,16)=""
^DIST(.403,31,"AY","F154",8.6,"L",3,137,9)=""
^DIST(.403,31,"AY","F154",8.8,"L",3,137,10)=""
^DIST(.403,31,"AY","F154",11,"L",1,136,4)=""
^DIST(.403,31,"AY","F154.004",.01,"L",1,90,1)=""
^DIST(.403,31,"AY","F154.004",.02,"L",1,90,2)=""
^DIST(.403,31,"AY","F154.004",.03,"L",1,90,4)=""
^DIST(.403,31,"AY","F154.012",.01,"L",3,339,1)=""
^DIST(.403,31,"AY","F154.07",.01,"L",3,138,4)=""
^DIST(.403,31,"AY","F154.07",1,"L",3,138,5)=""
^DIST(.403,31,"AY","F154.07",2,"L",3,138,6)=""
^DIST(.403,31,"AY","X",1,0,0)="SCD REGISTRY   REGISTRATION SCREEN                                  PAGE 1 OF 2"
^DIST(.403,31,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,31,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,31,"AY","X",1,3,0)="________________________________________________________________________________"
^DIST(.403,31,"AY","X",1,5,6)="VA SCI STATUS:                             DATE OF ORIGINAL REGISTRATION:"
^DIST(.403,31,"AY","X",1,6,2)="SCI NETWORK (Y/N):"
^DIST(.403,31,"AY","X",1,7,2)="REGISTRATION STATUS:                                  DATE OF LAST REVIEW"
^DIST(.403,31,"AY","X",1,7,2,"A")="1;19;U"
^DIST(.403,31,"AY","X",1,9,4)="CAUSE OF SCD (Etiology)            DATE OF ONSET      DESCRIBE OTHER"
^DIST(.403,31,"AY","X",1,14,0)="SCI LEVEL:                                   EXTENT OF SCI:"
^DIST(.403,31,"AY","X",1,15,0)="REMARKS:"
^DIST(.403,31,"AY","X",1,16,45)="MS Subtype:"
^DIST(.403,31,"AY","X",3,0,0)="SCD REGISTRY   HEALTH CARE SCREEN"
^DIST(.403,31,"AY","X",3,1,0)="PATIENT:                                                         PAGE 2 OF 2"
^DIST(.403,31,"AY","X",3,3,0)="_______________________________________________________________________________"
^DIST(.403,31,"AY","X",3,4,0)="AMOUNT VA IS USED:"
^DIST(.403,31,"AY","X",3,5,0)="PRIMARY CARE VA:                       ANNUAL REHAB VA:"
^DIST(.403,31,"AY","X",3,6,0)="ADDITIONAL CARE RECEIVED AT VAMC:"
^DIST(.403,31,"AY","X",3,7,0)="NON-VA SOURCE OF CARE:"
^DIST(.403,31,"AY","X",3,8,0)="PRI CARE PROV:                           SCD-R COORD:"
^DIST(.403,31,"AY","X",3,9,0)="REFERRAL SOURCE:                     REFERRAL VA:"
^DIST(.403,31,"AY","X",3,10,0)="INITIAL REHAB SITE:                              DATE OF D/C:"
^DIST(.403,31,"AY","X",3,11,15)="DIVISION"
^DIST(.403,31,"AY","X",3,12,15)="DIVISION"
^DIST(.403,31,"AY","X",3,14,0)="ANNUAL REHAB EVAL:   OFFERED                RECEIVED               NEXT DUE"
^DIST(.403,32,0)="SPNFFRM1^^^^2950531.1405^^^154.1^0^0^1"
^DIST(.403,32,20)="D EN4^SPNFUTL0"
^DIST(.403,32,40,0)="^.4031I^3^3"
^DIST(.403,32,40,1,0)="1^^1,1^2"
^DIST(.403,32,40,1,1)="Page 1"
^DIST(.403,32,40,1,40,0)="^.4032IP^93^1"
^DIST(.403,32,40,1,40,93,0)="93^1^1,1^e"
^DIST(.403,32,40,1,40,"AC",1,93)=""
^DIST(.403,32,40,1,40,"B",93,93)=""
^DIST(.403,32,40,2,0)="2^^1,1^3^1"
^DIST(.403,32,40,2,1)="Page 2"
^DIST(.403,32,40,2,40,0)="^.4032IP^94^1"
^DIST(.403,32,40,2,40,94,0)="94^2^1,1^e"
^DIST(.403,32,40,2,40,"AC",2,94)=""
^DIST(.403,32,40,2,40,"B",94,94)=""
^DIST(.403,32,40,3,0)="3^^1,1^^2"
^DIST(.403,32,40,3,1)="Page 3"
^DIST(.403,32,40,3,40,0)="^.4032IP^98^1"
^DIST(.403,32,40,3,40,98,0)="98^1^1,1^e"
^DIST(.403,32,40,3,40,"AC",1,98)=""
^DIST(.403,32,40,3,40,"B",98,98)=""
^DIST(.403,32,40,"B",1,1)=""
^DIST(.403,32,40,"B",2,2)=""
^DIST(.403,32,40,"B",3,3)=""
^DIST(.403,32,40,"C","PAGE 1",1)=""
^DIST(.403,32,40,"C","PAGE 2",2)=""
^DIST(.403,32,40,"C","PAGE 3",3)=""
^DIST(.403,32,"AY",1,0,0,"N")="9,93^19,93^19,93^10,93^19,93"
^DIST(.403,32,"AY",1,93)="0^0^154.1^^e^^^^19"
^DIST(.403,32,"AY",1,93,2,"D")="3^65^14^.03"
^DIST(.403,32,"AY",1,93,2,"N")="19^27^26^19^26"
^DIST(.403,32,"AY",1,93,3,"D")="13^31^14^.05"
^DIST(.403,32,"AY",1,93,3,"N")="13^5^4^12^4"
^DIST(.403,32,"AY",1,93,4,"D")="13^65^14^.06"
^DIST(.403,32,"AY",1,93,4,"N")="12^6^5^3^5"
^DIST(.403,32,"AY",1,93,5,"D")="14^31^14^.07"
^DIST(.403,32,"AY",1,93,5,"N")="3^7^6^4^6"
^DIST(.403,32,"AY",1,93,6,"D")="14^65^14^.08"
^DIST(.403,32,"AY",1,93,6,"N")="4^8^7^5^7"
^DIST(.403,32,"AY",1,93,7,"D")="15^31^14^.09"
^DIST(.403,32,"AY",1,93,7,"N")="5^9^8^6^8"
^DIST(.403,32,"AY",1,93,8,"D")="15^65^14^.1"
^DIST(.403,32,"AY",1,93,8,"N")="6^10^9^7^9"
^DIST(.403,32,"AY",1,93,9,"D")="16^31^14^.11"
^DIST(.403,32,"AY",1,93,9,"N")="7^0^10^8^10"
^DIST(.403,32,"AY",1,93,10,"D")="16^65^14^.12"
^DIST(.403,32,"AY",1,93,10,"N")="8^0^0^9^0"
^DIST(.403,32,"AY",1,93,11,"D")="11^31^14^.13"
^DIST(.403,32,"AY",1,93,11,"N")="14^13^15^14^15"
^DIST(.403,32,"AY",1,93,12,"D")="12^65^14^.14"
^DIST(.403,32,"AY",1,93,12,"N")="15^4^3^13^3"
^DIST(.403,32,"AY",1,93,13,"D")="12^31^14^.15"
^DIST(.403,32,"AY",1,93,13,"N")="11^3^12^15^12"
^DIST(.403,32,"AY",1,93,14,"D")="10^31^14^.16"
^DIST(.403,32,"AY",1,93,14,"N")="26^11^11^27^11"
^DIST(.403,32,"AY",1,93,15,"D")="11^65^14^.17"
^DIST(.403,32,"AY",1,93,15,"N")="14^12^13^11^13"
^DIST(.403,32,"AY",1,93,19,"D")="1^9^30^.01"
^DIST(.403,32,"AY",1,93,19,"N")="0^2^2^0^2"
^DIST(.403,32,"AY",1,93,20,"D")="1^47^10^0^^^^^1"
^DIST(.403,32,"AY",1,93,21,"D")="1^65^14^0^^^^^1"
^DIST(.403,32,"AY",1,93,26,"D")="4^27^20^1000"
^DIST(.403,32,"AY",1,93,26,"N")="2^14^27^2^27"
^DIST(.403,32,"AY",1,93,27,"D")="4^65^10^.021"
^DIST(.403,32,"AY",1,93,27,"N")="2^14^14^26^14"
^DIST(.403,32,"AY",1,93,28,"D")="^^^^3^1^^0"
^DIST(.403,32,"AY",1,"FIRST")="19,93"
^DIST(.403,32,"AY",2,0,0,"N")="30,94^15,94^15,94^30,94^15,94"
^DIST(.403,32,"AY",2,94)="0^0^154.1^^e^^^^15"
^DIST(.403,32,"AY",2,94,1,"D")="6^33^12^2.01"
^DIST(.403,32,"AY",2,94,1,"N")="15^3^2^15^2"
^DIST(.403,32,"AY",2,94,2,"D")="6^65^12^2.02"
^DIST(.403,32,"AY",2,94,2,"N")="15^4^3^1^3"
^DIST(.403,32,"AY",2,94,3,"D")="7^33^12^2.03"
^DIST(.403,32,"AY",2,94,3,"N")="1^5^4^2^4"
^DIST(.403,32,"AY",2,94,4,"D")="7^65^12^2.04"
^DIST(.403,32,"AY",2,94,4,"N")="2^5^5^3^5"
^DIST(.403,32,"AY",2,94,5,"D")="8^33^12^2.05"
^DIST(.403,32,"AY",2,94,5,"N")="3^10^10^4^10"
^DIST(.403,32,"AY",2,94,10,"D")="14^33^35^2.1"
^DIST(.403,32,"AY",2,94,10,"N")="5^11^11^5^11"
^DIST(.403,32,"AY",2,94,11,"D")="15^33^35^2.11"
^DIST(.403,32,"AY",2,94,11,"N")="10^30^30^10^30"
^DIST(.403,32,"AY",2,94,15,"D")="1^9^30^.01"
^DIST(.403,32,"AY",2,94,15,"N")="0^1^1^0^1"
^DIST(.403,32,"AY",2,94,16,"D")="1^47^10^0^^^^^1"
^DIST(.403,32,"AY",2,94,17,"D")="1^65^12^0^^^^^1"
^DIST(.403,32,"AY",2,94,30,"D")="16^33^35^2.12"
^DIST(.403,32,"AY",2,94,30,"N")="11^0^0^11^0"
^DIST(.403,32,"AY",2,94,31,"D")="^^^^3^4^^0"
^DIST(.403,32,"AY",2,"FIRST")="15,94"
^DIST(.403,32,"AY",3,0,0,"N")="11,98^5,98^5,98^11,98^5,98"
^DIST(.403,32,"AY",3,98)="0^0^154.1^^e^^^^5"
^DIST(.403,32,"AY",3,98,5,"D")="1^9^30^.01"
^DIST(.403,32,"AY",3,98,5,"N")="0^8^8^0^8"
^DIST(.403,32,"AY",3,98,6,"D")="1^47^10^0^^^^^1"
^DIST(.403,32,"AY",3,98,8,"D")="5^33^3^2.08"
^DIST(.403,32,"AY",3,98,8,"N")="5^10^9^5^9"
^DIST(.403,32,"AY",3,98,9,"D")="5^65^3^2.09^^^^^^1"
^DIST(.403,32,"AY",3,98,9,"N")="5^10^10^8^10"
^DIST(.403,32,"AY",3,98,10,"D")="10^36^18^2.06"
^DIST(.403,32,"AY",3,98,10,"N")="8^11^11^9^11"
^DIST(.403,32,"AY",3,98,11,"D")="15^36^18^2.07"
^DIST(.403,32,"AY",3,98,11,"N")="10^0^0^10^0"
^DIST(.403,32,"AY",3,98,20,"D")="1^65^12^0^^^^^1"
^DIST(.403,32,"AY",3,98,21,"D")="^^^^3^3^^0"
^DIST(.403,32,"AY",3,"FIRST")="5,98"
^DIST(.403,32,"AY","CAP","ASSOCIATED ADMISSION DATE","1^2^3",1,93,26)=""
^DIST(.403,32,"AY","CAP","BATHING","1^2^3",1,93,5)=""
^DIST(.403,32,"AY","CAP","BLADDER MANAGEMENT","1^2^3",1,93,9)=""
^DIST(.403,32,"AY","CAP","BOWEL MANAGEMENT","1^2^3",1,93,10)=""
^DIST(.403,32,"AY","CAP","DOING HOUSEWORK","1^2^3",2,94,4)=""
^DIST(.403,32,"AY","CAP","DRESSING LOWER BODY FROM BATH","1^2^3",1,93,7)=""
^DIST(.403,32,"AY","CAP","DRESSING UPPER","1^2^3",1,93,6)=""
^DIST(.403,32,"AY","CAP","EATING","1^2^3",1,93,3)=""
^DIST(.403,32,"AY","CAP","GET TO PLACES OUTSIDE OF HOME","1^2^3",2,94,1)=""
^DIST(.403,32,"AY","CAP","GROOMING","1^2^3",1,93,4)=""
^DIST(.403,32,"AY","CAP","HANDLING MONEY","1^2^3",2,94,5)=""
^DIST(.403,32,"AY","CAP","HELP DURING LAST 2 WEEKS (Y/N)?","1^2^3",3,98,8)=""
^DIST(.403,32,"AY","CAP","METHOD OF AMBULATION (WALKING)","1^2^3",3,98,10)=""
^DIST(.403,32,"AY","CAP","METHOD OF AMBULATION (WHEELCHAIR)","1^2^3",3,98,11)=""
^DIST(.403,32,"AY","CAP","MOVE AROUND INSIDE YOUR HOUSE","1^2^3",1,93,14)=""
^DIST(.403,32,"AY","CAP","NUMBER OF HOURS OF HELP","1^2^3",3,98,9)=""
^DIST(.403,32,"AY","CAP","PATIENT","1^2^3",1,93,19)=""
^DIST(.403,32,"AY","CAP","PATIENT","1^2^3",2,94,15)=""
^DIST(.403,32,"AY","CAP","PATIENT","1^2^3",3,98,5)=""
^DIST(.403,32,"AY","CAP","PLANNING AND COOKING OWN MEALS","1^2^3",2,94,3)=""
^DIST(.403,32,"AY","CAP","RECEIVED MOST MEDICAL CARE","1^2^3",2,94,10)=""
^DIST(.403,32,"AY","CAP","RESPONDENT TYPE","1^2^3",1,93,2)=""
^DIST(.403,32,"AY","CAP","SCORE TYPE","1^2^3",1,93,27)=""
^DIST(.403,32,"AY","CAP","SHOPPING","1^2^3",2,94,2)=""
^DIST(.403,32,"AY","CAP","STAIRS","1^2^3",1,93,15)=""
^DIST(.403,32,"AY","CAP","TOILETING","1^2^3",1,93,8)=""
^DIST(.403,32,"AY","CAP","VA MEDICAL CENTER 1","1^2^3",2,94,11)=""
^DIST(.403,32,"AY","CAP","VA MEDICAL CENTER 2","1^2^3",2,94,30)=""
^DIST(.403,32,"AY","CAP","XFER TO BED/CHAIR/WHEELCHAIR","1^2^3",1,93,11)=""
^DIST(.403,32,"AY","CAP","XFER TO TOILET","1^2^3",1,93,12)=""
^DIST(.403,32,"AY","CAP","XFER TO TUB/SHOWER","1^2^3",1,93,13)=""
^DIST(.403,32,"AY","COMPE",93,20)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,32,"AY","COMPE",93,21)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,32,"AY","COMPE",94,16)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,32,"AY","COMPE",94,17)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,32,"AY","COMPE",98,6)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,32,"AY","COMPE",98,20)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,32,"AY","F154.1",0,"L",1,93,20)=""
^DIST(.403,32,"AY","F154.1",0,"L",1,93,21)=""
^DIST(.403,32,"AY","F154.1",0,"L",2,94,16)=""
^DIST(.403,32,"AY","F154.1",0,"L",2,94,17)=""
^DIST(.403,32,"AY","F154.1",0,"L",3,98,6)=""
^DIST(.403,32,"AY","F154.1",0,"L",3,98,20)=""
^DIST(.403,32,"AY","F154.1",.01,"L",1,93,19)=""
^DIST(.403,32,"AY","F154.1",.01,"L",2,94,15)=""
^DIST(.403,32,"AY","F154.1",.01,"L",3,98,5)=""
^DIST(.403,32,"AY","F154.1",.021,"L",1,93,27)=""
^DIST(.403,32,"AY","F154.1",.03,"L",1,93,2)=""
^DIST(.403,32,"AY","F154.1",.05,"L",1,93,3)=""
^DIST(.403,32,"AY","F154.1",.06,"L",1,93,4)=""
^DIST(.403,32,"AY","F154.1",.07,"L",1,93,5)=""
^DIST(.403,32,"AY","F154.1",.08,"L",1,93,6)=""
^DIST(.403,32,"AY","F154.1",.09,"L",1,93,7)=""
^DIST(.403,32,"AY","F154.1",.1,"L",1,93,8)=""
^DIST(.403,32,"AY","F154.1",.11,"L",1,93,9)=""
^DIST(.403,32,"AY","F154.1",.12,"L",1,93,10)=""
^DIST(.403,32,"AY","F154.1",.13,"L",1,93,11)=""
^DIST(.403,32,"AY","F154.1",.14,"L",1,93,12)=""
^DIST(.403,32,"AY","F154.1",.15,"L",1,93,13)=""
^DIST(.403,32,"AY","F154.1",.16,"L",1,93,14)=""
^DIST(.403,32,"AY","F154.1",.17,"L",1,93,15)=""
^DIST(.403,32,"AY","F154.1",2.01,"L",2,94,1)=""
^DIST(.403,32,"AY","F154.1",2.02,"L",2,94,2)=""
^DIST(.403,32,"AY","F154.1",2.03,"L",2,94,3)=""
^DIST(.403,32,"AY","F154.1",2.04,"L",2,94,4)=""
^DIST(.403,32,"AY","F154.1",2.05,"L",2,94,5)=""
^DIST(.403,32,"AY","F154.1",2.06,"L",3,98,10)=""
^DIST(.403,32,"AY","F154.1",2.07,"L",3,98,11)=""
^DIST(.403,32,"AY","F154.1",2.08,"L",3,98,8)=""
^DIST(.403,32,"AY","F154.1",2.09,"L",3,98,9)=""
^DIST(.403,32,"AY","F154.1",2.1,"L",2,94,10)=""
^DIST(.403,32,"AY","F154.1",2.11,"L",2,94,11)=""
^DIST(.403,32,"AY","F154.1",2.12,"L",2,94,30)=""
^DIST(.403,32,"AY","F154.1",1000,"L",1,93,26)=""
^DIST(.403,32,"AY","X",1,0,25)="FOUR LEVEL FUNCTIONAL MEASURE              PAGE 1 OF 3"
^DIST(.403,32,"AY","X",1,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,32,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,32,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,32,"AY","X",1,3,48)="RESPONDENT TYPE:"
^DIST(.403,32,"AY","X",1,4,0)="ASSOCIATED ADMISSION DATE:                           SCORE TYPE:"
^DIST(.403,32,"AY","X",1,7,3)="<< 1 - Total Help or Never Do     >>  << 2 - Some Help              >>"
^DIST(.403,32,"AY","X",1,8,3)="<< 3 - Extra Time or Special Tool >>  << 4 - No Extra Time or Help  >>"
^DIST(.403,32,"AY","X",1,10,0)="MOVE AROUND INSIDE YOUR HOUSE:"
^DIST(.403,32,"AY","X",1,11,1)="XFER TO BED/CHAIR/WHEELCHAIR:                           STAIRS:"
^DIST(.403,32,"AY","X",1,12,11)="XFER TO TUB/SHOWER:                   XFER TO TOILET:"
^DIST(.403,32,"AY","X",1,13,23)="EATING:                         GROOMING:"
^DIST(.403,32,"AY","X",1,14,22)="BATHING:                   DRESSING UPPER:"
^DIST(.403,32,"AY","X",1,15,0)="DRESSING LOWER BODY FROM BATH:                        TOILETING:"
^DIST(.403,32,"AY","X",1,16,11)="BLADDER MANAGEMENT:                 BOWEL MANAGEMENT:"
^DIST(.403,32,"AY","X",2,0,25)="FOUR LEVEL FUNCTIONAL MEASURE              PAGE 2 OF 3"
^DIST(.403,32,"AY","X",2,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,32,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,32,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,32,"AY","X",2,5,2)="<< 1 - Without Help >>   << 2 - With Help >>   << 3 - Unable >>"
^DIST(.403,32,"AY","X",2,6,2)="GET TO PLACES OUTSIDE OF HOME:                       SHOPPING:"
^DIST(.403,32,"AY","X",2,7,1)="PLANNING AND COOKING OWN MEALS:                DOING HOUSEWORK:"
^DIST(.403,32,"AY","X",2,8,17)="HANDLING MONEY:"
^DIST(.403,32,"AY","X",2,10,0)="<< 1 - VA Only               >>   << 2 - Mostly VA/Some Non-VA >>"
^DIST(.403,32,"AY","X",2,11,0)="<< 3 - Half VA/Half Non-VA   >>   << 4 - Some VA/Mostly Non-VA >>"
^DIST(.403,32,"AY","X",2,12,0)="<< 5 - Non-VA Only           >>   << 6 - Did Not See Doctor/Nurse Last 5 Yrs >>"
^DIST(.403,32,"AY","X",2,14,5)="RECEIVED MOST MEDICAL CARE:"
^DIST(.403,32,"AY","X",2,15,12)="VA MEDICAL CENTER 1:"
^DIST(.403,32,"AY","X",2,16,12)="VA MEDICAL CENTER 2:"
^DIST(.403,32,"AY","X",3,0,25)="FOUR LEVEL FUNCTIONAL MEASURE              PAGE 3 OF 3"
^DIST(.403,32,"AY","X",3,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,32,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,32,"AY","X",3,2,0)="_______________________________________________________________________________"
^DIST(.403,32,"AY","X",3,5,0)="HELP DURING LAST 2 WEEKS (Y/N)?:        NUMBER OF HOURS OF HELP:"
^DIST(.403,32,"AY","X",3,7,4)="<< 1 - Without Help >>  << 2 - With Device  >>"
^DIST(.403,32,"AY","X",3,8,4)="<< 3 - Cannot Walk  >>  << 4 - Bedridden    >>"
^DIST(.403,32,"AY","X",3,10,4)="METHOD OF AMBULATION (WALKING):"
^DIST(.403,32,"AY","X",3,12,1)="<< 1 - Manual             >>  << 2 - Motorized          >>"
^DIST(.403,32,"AY","X",3,13,1)="<< 3 - Does Not Use W/Chr >>  << 4 - Bedridden          >>"
^DIST(.403,32,"AY","X",3,15,1)="METHOD OF AMBULATION (WHEELCHAIR):"
^DIST(.403,33,0)="SPNFFRM2^^^^2950531.1405^^^154.1^0^0^1"
^DIST(.403,33,20)="D EN4^SPNFUTL0"
^DIST(.403,33,40,0)="^.4031I^4^4"
^DIST(.403,33,40,1,0)="1^^1,1^2"
^DIST(.403,33,40,1,1)="Page 1"
^DIST(.403,33,40,1,40,0)="^.4032IP^95^1"
^DIST(.403,33,40,1,40,95,0)="95^1^1,1^e"
^DIST(.403,33,40,1,40,"AC",1,95)=""
^DIST(.403,33,40,1,40,"B",95,95)=""
^DIST(.403,33,40,2,0)="2^^1,1^4^1"
^DIST(.403,33,40,2,1)="Page 2"
^DIST(.403,33,40,2,40,0)="^.4032IP^96^1"
^DIST(.403,33,40,2,40,96,0)="96^2^1,1^e"
^DIST(.403,33,40,2,40,"AC",2,96)=""
^DIST(.403,33,40,2,40,"B",96,96)=""
^DIST(.403,33,40,3,0)="3^^8,18^^^1^12,66"
^DIST(.403,33,40,3,1)="Page 3^CLINICIAN,SPNFBLKA,Page 1"
^DIST(.403,33,40,3,40,0)="^.4032IP^97^1"
^DIST(.403,33,40,3,40,97,0)="97^1^2,3^e"
^DIST(.403,33,40,3,40,"AC",1,97)=""
^DIST(.403,33,40,3,40,"B",97,97)=""
^DIST(.403,33,40,4,0)="4^^1,1^^2"
^DIST(.403,33,40,4,1)="Page 4"
^DIST(.403,33,40,4,40,0)="^.4032IP^99^1"
^DIST(.403,33,40,4,40,99,0)="99^1^1,1^e"
^DIST(.403,33,40,4,40,"AC",1,99)=""
^DIST(.403,33,40,4,40,"B",99,99)=""
^DIST(.403,33,40,"B",1,1)=""
^DIST(.403,33,40,"B",2,2)=""
^DIST(.403,33,40,"B",3,3)=""
^DIST(.403,33,40,"B",4,4)=""
^DIST(.403,33,40,"C","PAGE 1",1)=""
^DIST(.403,33,40,"C","PAGE 2",2)=""
^DIST(.403,33,40,"C","PAGE 3",3)=""
^DIST(.403,33,40,"C","PAGE 4",4)=""
^DIST(.403,33,"AY",1,0,0,"N")="23,95^19,95^19,95^23,95^19,95"
^DIST(.403,33,"AY",1,95)="0^0^154.1^^e^^^^19"
^DIST(.403,33,"AY",1,95,2,"D")="6^35^30^1.01"
^DIST(.403,33,"AY",1,95,2,"N")="32^22^22^33^22^^^^^^1"
^DIST(.403,33,"AY",1,95,19,"D")="1^9^30^.01"
^DIST(.403,33,"AY",1,95,19,"N")="0^32^32^0^32"
^DIST(.403,33,"AY",1,95,20,"D")="1^47^10^0^^^^^1"
^DIST(.403,33,"AY",1,95,21,"D")="1^65^14^0^^^^^1"
^DIST(.403,33,"AY",1,95,22,"D")="11^35^18^2.06"
^DIST(.403,33,"AY",1,95,22,"N")="2^23^23^2^23"
^DIST(.403,33,"AY",1,95,23,"D")="16^35^18^2.07"
^DIST(.403,33,"AY",1,95,23,"N")="22^0^0^22^0"
^DIST(.403,33,"AY",1,95,32,"D")="4^27^20^1000"
^DIST(.403,33,"AY",1,95,32,"N")="19^2^33^19^33"
^DIST(.403,33,"AY",1,95,33,"D")="4^61^10^.021"
^DIST(.403,33,"AY",1,95,33,"N")="19^2^2^32^2"
^DIST(.403,33,"AY",1,95,34,"D")="^^^^3^1^^0"
^DIST(.403,33,"AY",1,"FIRST")="19,95"
^DIST(.403,33,"AY",2,0,0,"N")="40,96^15,96^15,96^40,96^15,96"
^DIST(.403,33,"AY",2,96)="0^0^154.1^^e^^^^15"
^DIST(.403,33,"AY",2,96,15,"D")="1^9^30^.01"
^DIST(.403,33,"AY",2,96,15,"N")="0^31^31^0^31"
^DIST(.403,33,"AY",2,96,16,"D")="1^47^10^0^^^^^1"
^DIST(.403,33,"AY",2,96,17,"D")="1^65^12^0^^^^^1"
^DIST(.403,33,"AY",2,96,18,"D")="12^31^21^.13"
^DIST(.403,33,"AY",2,96,18,"N")="38^19^19^38^19"
^DIST(.403,33,"AY",2,96,19,"D")="13^31^21^.14"
^DIST(.403,33,"AY",2,96,19,"N")="18^20^20^18^20"
^DIST(.403,33,"AY",2,96,20,"D")="14^31^21^.15"
^DIST(.403,33,"AY",2,96,20,"N")="19^39^39^19^39"
^DIST(.403,33,"AY",2,96,31,"D")="6^9^21^.05"
^DIST(.403,33,"AY",2,96,31,"N")="15^33^32^15^32"
^DIST(.403,33,"AY",2,96,32,"D")="6^57^21^.06"
^DIST(.403,33,"AY",2,96,32,"N")="15^34^33^31^33"
^DIST(.403,33,"AY",2,96,33,"D")="7^9^21^.07"
^DIST(.403,33,"AY",2,96,33,"N")="31^35^34^32^34"
^DIST(.403,33,"AY",2,96,34,"D")="7^57^21^.08"
^DIST(.403,33,"AY",2,96,34,"N")="32^35^35^33^35"
^DIST(.403,33,"AY",2,96,35,"D")="8^31^21^.09"
^DIST(.403,33,"AY",2,96,35,"N")="33^36^36^34^36"
^DIST(.403,33,"AY",2,96,36,"D")="9^31^21^.1"
^DIST(.403,33,"AY",2,96,36,"N")="35^37^37^35^37"
^DIST(.403,33,"AY",2,96,37,"D")="10^31^21^.11"
^DIST(.403,33,"AY",2,96,37,"N")="36^38^38^36^38"
^DIST(.403,33,"AY",2,96,38,"D")="11^31^21^.12"
^DIST(.403,33,"AY",2,96,38,"N")="37^18^18^37^18"
^DIST(.403,33,"AY",2,96,39,"D")="15^31^21^.16"
^DIST(.403,33,"AY",2,96,39,"N")="20^40^40^20^40"
^DIST(.403,33,"AY",2,96,40,"D")="16^31^21^.17"
^DIST(.403,33,"AY",2,96,40,"N")="39^0^0^39^0"
^DIST(.403,33,"AY",2,"FIRST")="15,96"
^DIST(.403,33,"AY",3,0,0,"N")="1,97^1,97^1,97^1,97^1,97"
^DIST(.403,33,"AY",3,97)="8^19^154.101^^e^^^^1"
^DIST(.403,33,"AY",3,97,1,"D")="9^32^30^.01"
^DIST(.403,33,"AY",3,97,1,"N")="0^0^0^0^0"
^DIST(.403,33,"AY",3,"FIRST")="1,97"
^DIST(.403,33,"AY",4,0,0,"N")="10,99^4,99^4,99^10,99^4,99"
^DIST(.403,33,"AY",4,99)="0^0^154.1^^e^^^^4"
^DIST(.403,33,"AY",4,99,4,"D")="1^9^30^.01"
^DIST(.403,33,"AY",4,99,4,"N")="0^7^7^0^7"
^DIST(.403,33,"AY",4,99,5,"D")="1^47^10^0^^^^^1"
^DIST(.403,33,"AY",4,99,6,"D")="1^65^12^0^^^^^1"
^DIST(.403,33,"AY",4,99,7,"D")="7^20^21^.18"
^DIST(.403,33,"AY",4,99,7,"N")="4^8^8^4^8"
^DIST(.403,33,"AY",4,99,8,"D")="8^20^21^.19"
^DIST(.403,33,"AY",4,99,8,"N")="7^11^11^7^11"
^DIST(.403,33,"AY",4,99,9,"D")="15^20^21^.2"
^DIST(.403,33,"AY",4,99,9,"N")="11^10^10^11^10"
^DIST(.403,33,"AY",4,99,10,"D")="16^20^21^.21"
^DIST(.403,33,"AY",4,99,10,"N")="9^0^0^9^0"
^DIST(.403,33,"AY",4,99,11,"D")="9^20^21^.22"
^DIST(.403,33,"AY",4,99,11,"N")="8^9^9^8^9"
^DIST(.403,33,"AY",4,"FIRST")="4,99"
^DIST(.403,33,"AY","ASUB",1,95,2)="3"
^DIST(.403,33,"AY","CAP","ASSOCIATED ADMISSION DATE","1^2^4",1,95,32)=""
^DIST(.403,33,"AY","CAP","BATHING","1^2^4",2,96,33)=""
^DIST(.403,33,"AY","CAP","BLADDER MANAGEMENT","1^2^4",2,96,37)=""
^DIST(.403,33,"AY","CAP","BOWEL MANAGEMENT","1^2^4",2,96,38)=""
^DIST(.403,33,"AY","CAP","CLINICIAN",3,3,97,1)=""
^DIST(.403,33,"AY","CAP","CLINICIAN","1^2^4",1,95,2)=""
^DIST(.403,33,"AY","CAP","COMPREHENSION","1^2^4",4,99,7)=""
^DIST(.403,33,"AY","CAP","DRESSING LOWER BODY FROM BATH","1^2^4",2,96,35)=""
^DIST(.403,33,"AY","CAP","DRESSING UPPER BODY","1^2^4",2,96,34)=""
^DIST(.403,33,"AY","CAP","EATING","1^2^4",2,96,31)=""
^DIST(.403,33,"AY","CAP","EXPRESSION","1^2^4",4,99,8)=""
^DIST(.403,33,"AY","CAP","GROOMING","1^2^4",2,96,32)=""
^DIST(.403,33,"AY","CAP","MEMORY","1^2^4",4,99,11)=""
^DIST(.403,33,"AY","CAP","METHOD OF AMBULATION (WALKING)","1^2^4",1,95,22)=""
^DIST(.403,33,"AY","CAP","METHOD OF AMBULATION (WHEELCHAIR)","1^2^4",1,95,23)=""
^DIST(.403,33,"AY","CAP","MOVE AROUND INSIDE YOUR HOUSE","1^2^4",2,96,39)=""
^DIST(.403,33,"AY","CAP","PATIENT","1^2^4",1,95,19)=""
^DIST(.403,33,"AY","CAP","PATIENT","1^2^4",2,96,15)=""
^DIST(.403,33,"AY","CAP","PATIENT","1^2^4",4,99,4)=""
^DIST(.403,33,"AY","CAP","PROBLEM SOLVING","1^2^4",4,99,10)=""
^DIST(.403,33,"AY","CAP","SCORE TYPE","1^2^4",1,95,33)=""
^DIST(.403,33,"AY","CAP","SOCIAL INTERACTION","1^2^4",4,99,9)=""
^DIST(.403,33,"AY","CAP","STAIRS","1^2^4",2,96,40)=""
^DIST(.403,33,"AY","CAP","TOILETING","1^2^4",2,96,36)=""
^DIST(.403,33,"AY","CAP","XFER TO BED/CHAIR/WHEELCHAIR","1^2^4",2,96,18)=""
^DIST(.403,33,"AY","CAP","XFER TO TOILET","1^2^4",2,96,19)=""
^DIST(.403,33,"AY","CAP","XFER TO TUB/SHOWER","1^2^4",2,96,20)=""
^DIST(.403,33,"AY","COMPE",95,20)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,33,"AY","COMPE",95,21)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,33,"AY","COMPE",96,16)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,33,"AY","COMPE",96,17)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,33,"AY","COMPE",99,5)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.403,33,"AY","COMPE",99,6)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.403,33,"AY","F154.1",0,"L",1,95,20)=""
^DIST(.403,33,"AY","F154.1",0,"L",1,95,21)=""
^DIST(.403,33,"AY","F154.1",0,"L",2,96,16)=""
^DIST(.403,33,"AY","F154.1",0,"L",2,96,17)=""
^DIST(.403,33,"AY","F154.1",0,"L",4,99,5)=""
^DIST(.403,33,"AY","F154.1",0,"L",4,99,6)=""
^DIST(.403,33,"AY","F154.1",.01,"L",1,95,19)=""
^DIST(.403,33,"AY","F154.1",.01,"L",2,96,15)=""
^DIST(.403,33,"AY","F154.1",.01,"L",4,99,4)=""
^DIST(.403,33,"AY","F154.1",.021,"L",1,95,33)=""
^DIST(.403,33,"AY","F154.1",.05,"L",2,96,31)=""
^DIST(.403,33,"AY","F154.1",.06,"L",2,96,32)=""
^DIST(.403,33,"AY","F154.1",.07,"L",2,96,33)=""
^DIST(.403,33,"AY","F154.1",.08,"L",2,96,34)=""
^DIST(.403,33,"AY","F154.1",.09,"L",2,96,35)=""
^DIST(.403,33,"AY","F154.1",.1,"L",2,96,36)=""
^DIST(.403,33,"AY","F154.1",.11,"L",2,96,37)=""
^DIST(.403,33,"AY","F154.1",.12,"L",2,96,38)=""
^DIST(.403,33,"AY","F154.1",.13,"L",2,96,18)=""
^DIST(.403,33,"AY","F154.1",.14,"L",2,96,19)=""
^DIST(.403,33,"AY","F154.1",.15,"L",2,96,20)=""
^DIST(.403,33,"AY","F154.1",.16,"L",2,96,39)=""
^DIST(.403,33,"AY","F154.1",.17,"L",2,96,40)=""
^DIST(.403,33,"AY","F154.1",.18,"L",4,99,7)=""
^DIST(.403,33,"AY","F154.1",.19,"L",4,99,8)=""
^DIST(.403,33,"AY","F154.1",.2,"L",4,99,9)=""
^DIST(.403,33,"AY","F154.1",.21,"L",4,99,10)=""
^DIST(.403,33,"AY","F154.1",.22,"L",4,99,11)=""
^DIST(.403,33,"AY","F154.1",1.01,"L",1,95,2)=""
^DIST(.403,33,"AY","F154.1",2.06,"L",1,95,22)=""
^DIST(.403,33,"AY","F154.1",2.07,"L",1,95,23)=""
^DIST(.403,33,"AY","F154.1",1000,"L",1,95,32)=""
^DIST(.403,33,"AY","F154.101",.01,"L",3,97,1)=""
^DIST(.403,33,"AY","X",1,0,24)="FIM MODULE (CLINICIAN REPORTED)             PAGE 1 OF 3"
^DIST(.403,33,"AY","X",1,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,33,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,33,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,33,"AY","X",1,4,0)="ASSOCIATED ADMISSION DATE:                       SCORE TYPE:"
^DIST(.403,33,"AY","X",1,6,17)="Select CLINICIAN:"
^DIST(.403,33,"AY","X",1,8,3)="<< 1 - Without Help >>   << 2 - With Device  >>   << 3 - Cannot Walk  >>"
^DIST(.403,33,"AY","X",1,9,3)="<< 4 - Bedridden    >>"
^DIST(.403,33,"AY","X",1,11,3)="METHOD OF AMBULATION (WALKING):"
^DIST(.403,33,"AY","X",1,13,0)="<< 1 - Manual    >>  << 2 - Motorized  >>  << 3 - Does Not Use W/Chr >>"
^DIST(.403,33,"AY","X",1,14,0)="<< 4 - Bedridden >>"
^DIST(.403,33,"AY","X",1,16,0)="METHOD OF AMBULATION (WHEELCHAIR):"
^DIST(.403,33,"AY","X",2,0,24)="FIM MODULE (CLINICIAN REPORTED)             PAGE 2 OF 3"
^DIST(.403,33,"AY","X",2,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,33,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,33,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,33,"AY","X",2,3,0)="<< 1 - Total Assistance    2 - Maximal Assistance   3 - Moderate Assistance  >>"
^DIST(.403,33,"AY","X",2,4,0)="<< 4 - Minimal Assistance  5 - Supervision          6 - Modified Independence>>"
^DIST(.403,33,"AY","X",2,5,0)="<< 7 - Complete Independence                                                 >>"
^DIST(.403,33,"AY","X",2,6,1)="EATING:                                       GROOMING:"
^DIST(.403,33,"AY","X",2,7,0)="BATHING:                            DRESSING UPPER BODY:"
^DIST(.403,33,"AY","X",2,8,0)="DRESSING LOWER BODY FROM BATH:"
^DIST(.403,33,"AY","X",2,9,20)="TOILETING:"
^DIST(.403,33,"AY","X",2,10,11)="BLADDER MANAGEMENT:"
^DIST(.403,33,"AY","X",2,11,13)="BOWEL MANAGEMENT:"
^DIST(.403,33,"AY","X",2,12,1)="XFER TO BED/CHAIR/WHEELCHAIR:"
^DIST(.403,33,"AY","X",2,13,15)="XFER TO TOILET:"
^DIST(.403,33,"AY","X",2,14,11)="XFER TO TUB/SHOWER:"
^DIST(.403,33,"AY","X",2,15,0)="MOVE AROUND INSIDE YOUR HOUSE:"
^DIST(.403,33,"AY","X",2,16,23)="STAIRS:"
^DIST(.403,33,"AY","X",3,9,21)="CLINICIAN:"
^DIST(.403,33,"AY","X",4,0,24)="FIM MODULE (CLINICIAN REPORTED)             PAGE 3 OF 3"
^DIST(.403,33,"AY","X",4,1,0)="PATIENT:                                  SSN:              DOB:"
^DIST(.403,33,"AY","X",4,1,0,"A")="1;7;U"
^DIST(.403,33,"AY","X",4,2,0)="_______________________________________________________________________________"
^DIST(.403,33,"AY","X",4,3,0)="<< 1 - Total Assistance       2 - Maximal Prompting                         >>"
^DIST(.403,33,"AY","X",4,4,0)="<< 3 - Moderate Prompting     4 - Minimal Prompting   5 - Standby Prompting >>"
^DIST(.403,33,"AY","X",4,5,0)="<< 6 - Modified Independence  7 - Complete Independence                     >>"
^DIST(.403,33,"AY","X",4,7,5)="COMPREHENSION:"
^DIST(.403,33,"AY","X",4,8,8)="EXPRESSION:"
^DIST(.403,33,"AY","X",4,9,12)="MEMORY:"
^DIST(.403,33,"AY","X",4,11,0)="<< 1 - Total Assistance       2 - Maximal Direction                         >>"
^DIST(.403,33,"AY","X",4,12,0)="<< 3 - Moderate Direction     4 - Minimal Direction   5 - Supervision       >>"
^DIST(.403,33,"AY","X",4,13,0)="<< 6 - Modified Independence  7 - Complete Independence                     >>"
^DIST(.403,33,"AY","X",4,15,0)="SOCIAL INTERACTION:"
^DIST(.403,33,"AY","X",4,16,3)="PROBLEM SOLVING:"
^DIST(.403,34,0)="SPNLPFM2^@^@^^2950921.142^^^154^0^0^1"
^DIST(.403,34,11)=" "
^DIST(.403,34,12)=" "
^DIST(.403,34,20)="D EN3^SPNLUTL0(.DA)"
^DIST(.403,34,40,0)="^.4031I^3^2"
^DIST(.403,34,40,2,0)="1^^1,1^2"
^DIST(.403,34,40,2,1)="Page 1"
^DIST(.403,34,40,2,40,0)="^.4032IP^142^2"
^DIST(.403,34,40,2,40,141,0)="141^1^1,1^d"
^DIST(.403,34,40,2,40,142,0)="142^2^4,1^e"
^DIST(.403,34,40,2,40,"AC",1,141)=""
^DIST(.403,34,40,2,40,"AC",2,142)=""
^DIST(.403,34,40,2,40,"B",141,141)=""
^DIST(.403,34,40,2,40,"B",142,142)=""
^DIST(.403,34,40,3,0)="2^^1,1^^1"
^DIST(.403,34,40,3,1)="Page 2"
^DIST(.403,34,40,3,40,0)="^.4032IP^340^4"
^DIST(.403,34,40,3,40,143,0)="143^1^1,1^d"
^DIST(.403,34,40,3,40,144,0)="144^2^4,1^d"
^DIST(.403,34,40,3,40,175,0)="175^5^9,1^e"
^DIST(.403,34,40,3,40,175,2)="5^^n"
^DIST(.403,34,40,3,40,340,0)="340^4^6,1^e"
^DIST(.403,34,40,3,40,"AC",1,143)=""
^DIST(.403,34,40,3,40,"AC",2,144)=""
^DIST(.403,34,40,3,40,"AC",4,340)=""
^DIST(.403,34,40,3,40,"AC",5,175)=""
^DIST(.403,34,40,3,40,"B",143,143)=""
^DIST(.403,34,40,3,40,"B",144,144)=""
^DIST(.403,34,40,3,40,"B",175,175)=""
^DIST(.403,34,40,3,40,"B",340,340)=""
^DIST(.403,34,40,"B",1,2)=""
^DIST(.403,34,40,"B",2,3)=""
^DIST(.403,34,40,"C","PAGE 1",2)=""
^DIST(.403,34,40,"C","PAGE 2",3)=""
^DIST(.403,34,"AY",2,0,0,"N")="19,142^1,142^1,142^20,142^1,142"
^DIST(.403,34,"AY",2,141)="0^0^154^^d^^^^0"
^DIST(.403,34,"AY",2,141,4,"D")="1^9^30^.01"
^DIST(.403,34,"AY",2,141,5,"D")="^^^^1^40^^0"
^DIST(.403,34,"AY",2,141,6,"D")="^^^^2^36^^0"
^DIST(.403,34,"AY",2,141,7,"D")="^^^^1^62^^0"
^DIST(.403,34,"AY",2,142)="3^0^154^^e^^^^1"
^DIST(.403,34,"AY",2,142,1,"D")="5^33^3^5.04"
^DIST(.403,34,"AY",2,142,1,"N")="0^3^2^0^2"
^DIST(.403,34,"AY",2,142,2,"D")="5^64^3^5.05"
^DIST(.403,34,"AY",2,142,2,"N")="0^4^3^1^3"
^DIST(.403,34,"AY",2,142,3,"D")="6^33^3^5.06"
^DIST(.403,34,"AY",2,142,3,"N")="1^5^4^2^4"
^DIST(.403,34,"AY",2,142,4,"D")="6^64^3^5.07"
^DIST(.403,34,"AY",2,142,4,"N")="2^6^5^3^5"
^DIST(.403,34,"AY",2,142,5,"D")="7^33^3^5.08"
^DIST(.403,34,"AY",2,142,5,"N")="3^7^6^4^6"
^DIST(.403,34,"AY",2,142,6,"D")="7^64^3^5.09"
^DIST(.403,34,"AY",2,142,6,"N")="4^8^7^5^7"
^DIST(.403,34,"AY",2,142,7,"D")="8^33^3^5.13"
^DIST(.403,34,"AY",2,142,7,"N")="5^9^8^6^8"
^DIST(.403,34,"AY",2,142,8,"D")="8^64^3^5.14"
^DIST(.403,34,"AY",2,142,8,"N")="6^10^9^7^9"
^DIST(.403,34,"AY",2,142,9,"D")="9^33^3^5.1"
^DIST(.403,34,"AY",2,142,9,"N")="7^17^10^8^10"
^DIST(.403,34,"AY",2,142,10,"D")="9^64^15^2.5"
^DIST(.403,34,"AY",2,142,10,"N")="8^17^17^9^17"
^DIST(.403,34,"AY",2,142,17,"D")="14^23^20^5.11"
^DIST(.403,34,"AY",2,142,17,"N")="9^19^18^10^18"
^DIST(.403,34,"AY",2,142,18,"D")="14^65^12^5.12"
^DIST(.403,34,"AY",2,142,18,"N")="10^20^19^17^19"
^DIST(.403,34,"AY",2,142,19,"D")="16^23^3^5.03"
^DIST(.403,34,"AY",2,142,19,"N")="17^0^20^18^20"
^DIST(.403,34,"AY",2,142,20,"D")="16^65^3^5.02"
^DIST(.403,34,"AY",2,142,20,"N")="18^0^0^19^0"
^DIST(.403,34,"AY",2,"FIRST")="1,142"
^DIST(.403,34,"AY",3,0,0,"N")="1,175^1,340^1,340^3,175^1,340"
^DIST(.403,34,"AY",3,143)="0^0^154^^d^^^^0"
^DIST(.403,34,"AY",3,143,4,"D")="1^9^30^.01"
^DIST(.403,34,"AY",3,143,5,"D")="^^^^1^40^^0"
^DIST(.403,34,"AY",3,143,6,"D")="^^^^2^35^^0"
^DIST(.403,34,"AY",3,143,7,"D")="^^^^1^61^^0"
^DIST(.403,34,"AY",3,144)="3^0^154^^d^^^^0"
^DIST(.403,34,"AY",3,175)="8^0^154.07^^e^^5^^1^1"
^DIST(.403,34,"AY",3,175,1,"D")="10^17^17^.01^10^12^^0"
^DIST(.403,34,"AY",3,175,1,"N")="1,340^0^0^3,340^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,34,"AY",3,175,2,"D")="10^40^17^1^10^35^^0"
^DIST(.403,34,"AY",3,175,2,"N")="2,340^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,34,"AY",3,175,3,"D")="10^61^18^2^10^57^^0"
^DIST(.403,34,"AY",3,175,3,"N")="3,340^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,34,"AY",3,340)="5^0^154^^e^^^^1"
^DIST(.403,34,"AY",3,340,1,"D")="5^15^3^10.1"
^DIST(.403,34,"AY",3,340,1,"N")="0^1,175^2^0^2"
^DIST(.403,34,"AY",3,340,2,"D")="5^31^11^10.2"
^DIST(.403,34,"AY",3,340,2,"N")="0^1,175^3^1^3"
^DIST(.403,34,"AY",3,340,3,"D")="5^54^21^10.3"
^DIST(.403,34,"AY",3,340,3,"N")="0^1,175^1,175^2^1,175"
^DIST(.403,34,"AY",3,"FIRST")="1,340"
^DIST(.403,34,"AY","CAP","BLADDER AFFECTED (Y/N)","2^3",2,142,8)=""
^DIST(.403,34,"AY","CAP","BOTH ARMS AFFECTED (Y/N)","2^3",2,142,5)=""
^DIST(.403,34,"AY","CAP","BOTH LEGS AFFECTED (Y/N)","2^3",2,142,6)=""
^DIST(.403,34,"AY","CAP","BOWEL AFFECTED (Y/N)","2^3",2,142,7)=""
^DIST(.403,34,"AY","CAP","BWL CARE REMB","2^3",3,340,1)=""
^DIST(.403,34,"AY","CAP","DATE CERT.","2^3",3,340,2)=""
^DIST(.403,34,"AY","CAP","DESCRIBE OTHER","2^3",2,142,10)=""
^DIST(.403,34,"AY","CAP","EXTENT OF FEELING","2^3",2,142,18)=""
^DIST(.403,34,"AY","CAP","EXTENT OF MOVEMENT","2^3",2,142,17)=""
^DIST(.403,34,"AY","CAP","EYES AFFECTED (Y/N)","2^3",2,142,2)=""
^DIST(.403,34,"AY","CAP","HAD AMPUTATION (Y/N)?","2^3",2,142,19)=""
^DIST(.403,34,"AY","CAP","HAD BRAIN INJURY (Y/N)?","2^3",2,142,20)=""
^DIST(.403,34,"AY","CAP","MEMORY/THINKING AFFECTED (Y/N)","2^3",2,142,1)=""
^DIST(.403,34,"AY","CAP","ONE ARM AFFECTED (Y/N)","2^3",2,142,3)=""
^DIST(.403,34,"AY","CAP","ONE LEG AFFECTED (Y/N)","2^3",2,142,4)=""
^DIST(.403,34,"AY","CAP","OTHER BODY PART AFFECTED (Y/N)","2^3",2,142,9)=""
^DIST(.403,34,"AY","CAP","PROVIDER","2^3",3,340,3)=""
^DIST(.403,34,"AY","F154",.01,"L",2,141,4)=""
^DIST(.403,34,"AY","F154",.01,"L",3,143,4)=""
^DIST(.403,34,"AY","F154",2.5,"L",2,142,10)=""
^DIST(.403,34,"AY","F154",5.02,"L",2,142,20)=""
^DIST(.403,34,"AY","F154",5.03,"L",2,142,19)=""
^DIST(.403,34,"AY","F154",5.04,"L",2,142,1)=""
^DIST(.403,34,"AY","F154",5.05,"L",2,142,2)=""
^DIST(.403,34,"AY","F154",5.06,"L",2,142,3)=""
^DIST(.403,34,"AY","F154",5.07,"L",2,142,4)=""
^DIST(.403,34,"AY","F154",5.08,"L",2,142,5)=""
^DIST(.403,34,"AY","F154",5.09,"L",2,142,6)=""
^DIST(.403,34,"AY","F154",5.1,"L",2,142,9)=""
^DIST(.403,34,"AY","F154",5.11,"L",2,142,17)=""
^DIST(.403,34,"AY","F154",5.12,"L",2,142,18)=""
^DIST(.403,34,"AY","F154",5.13,"L",2,142,7)=""
^DIST(.403,34,"AY","F154",5.14,"L",2,142,8)=""
^DIST(.403,34,"AY","F154",10.1,"L",3,340,1)=""
^DIST(.403,34,"AY","F154",10.2,"L",3,340,2)=""
^DIST(.403,34,"AY","F154",10.3,"L",3,340,3)=""
^DIST(.403,34,"AY","F154.07",.01,"L",3,175,1)=""
^DIST(.403,34,"AY","F154.07",1,"L",3,175,2)=""
^DIST(.403,34,"AY","F154.07",2,"L",3,175,3)=""
^DIST(.403,34,"AY","X",2,0,1)="CLINICAL REGISTRATION MODULE  PHYSICAL IMPAIRMENT SCREEN        PAGE 1 OF 2"
^DIST(.403,34,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,34,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,34,"AY","X",2,3,0)="________________________________________________________________________________"
^DIST(.403,34,"AY","X",2,5,1)="MEMORY/THINKING AFFECTED (Y/N):           EYES AFFECTED (Y/N):"
^DIST(.403,34,"AY","X",2,6,9)="ONE ARM AFFECTED (Y/N):        ONE LEG AFFECTED (Y/N):"
^DIST(.403,34,"AY","X",2,7,7)="BOTH ARMS AFFECTED (Y/N):      BOTH LEGS AFFECTED (Y/N):"
^DIST(.403,34,"AY","X",2,8,11)="BOWEL AFFECTED (Y/N):        BLADDER AFFECTED (Y/N):"
^DIST(.403,34,"AY","X",2,9,1)="OTHER BODY PART AFFECTED (Y/N):                DESCRIBE OTHER:"
^DIST(.403,34,"AY","X",2,11,10)="<<1-Full Useful Movement>>                <<1-Full Feeling>>"
^DIST(.403,34,"AY","X",2,12,10)="<<2-Some Useful Movement>>                <<2-Some Feeling>>"
^DIST(.403,34,"AY","X",2,13,10)="<<3-  No Useful Movement>>                <<3-  No Feeling>>"
^DIST(.403,34,"AY","X",2,14,3)="EXTENT OF MOVEMENT:                        EXTENT OF FEELING:"
^DIST(.403,34,"AY","X",2,16,0)="HAD AMPUTATION (Y/N)?:                  HAD BRAIN INJURY (Y/N)?:"
^DIST(.403,34,"AY","X",3,0,1)="CLINICAL REGISTRATION MODULE       CLINICAL CARE                PAGE 2 OF 2"
^DIST(.403,34,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,34,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,34,"AY","X",3,3,0)="________________________________________________________________________________"
^DIST(.403,34,"AY","X",3,5,0)="BWL CARE REMB:     DATE CERT.:              PROVIDER:"
^DIST(.403,34,"AY","X",3,9,0)="ANNUAL REHAB EVAL:   OFFERED                RECEIVED             NEXT DUE"
^DIST(.403,35,0)="XPD EDIT MP^@^@^^2960906.0824^3031002.1741^^9.6^0^0^1"
^DIST(.403,35,40,0)="^.4031I^2^2"
^DIST(.403,35,40,1,0)="1^^1,1^2^2"
^DIST(.403,35,40,1,1)="Page 1"
^DIST(.403,35,40,1,40,0)="^.4032IP^104^3"
^DIST(.403,35,40,1,40,102,0)="102^2^1,1^e"
^DIST(.403,35,40,1,40,103,0)="103^1^1,1^e"
^DIST(.403,35,40,1,40,104,0)="104^3^13,1^e"
^DIST(.403,35,40,1,40,104,2)="4^!IEN^n"
^DIST(.403,35,40,1,40,"AC",1,103)=""
^DIST(.403,35,40,1,40,"AC",2,102)=""
^DIST(.403,35,40,1,40,"AC",3,104)=""
^DIST(.403,35,40,1,40,"B",102,102)=""
^DIST(.403,35,40,1,40,"B",103,103)=""
^DIST(.403,35,40,1,40,"B",104,104)=""
^DIST(.403,35,40,2,0)="2^^1,1^1^1"
^DIST(.403,35,40,2,1)="Page 2"
^DIST(.403,35,40,2,40,0)="^.4032IP^276^2"
^DIST(.403,35,40,2,40,103,0)="103^1^1,1^e"
^DIST(.403,35,40,2,40,276,0)="276^2^1,1^e"
^DIST(.403,35,40,2,40,"AC",1,103)=""
^DIST(.403,35,40,2,40,"AC",2,276)=""
^DIST(.403,35,40,2,40,"B",103,103)=""
^DIST(.403,35,40,2,40,"B",276,276)=""
^DIST(.403,35,40,"B",1,1)=""
^DIST(.403,35,40,"B",2,2)=""
^DIST(.403,35,40,"C","PAGE 1",1)=""
^DIST(.403,35,40,"C","PAGE 2",2)=""
^DIST(.403,35,"AY",1,0,0,"N")="2,104^2,103^2,103^5,104^2,103"
^DIST(.403,35,"AY",1,102)="0^0^9.6^^e^^^^5"
^DIST(.403,35,"AY",1,102,2,"D")="8^25^1^3"
^DIST(.403,35,"AY",1,102,2,"N")="6^2,104^2,104^6^2,104^^^^^^1"
^DIST(.403,35,"AY",1,102,5,"D")="4^25^50^.01"
^DIST(.403,35,"AY",1,102,5,"N")="2,103^6^6^5,103^6"
^DIST(.403,35,"AY",1,102,6,"D")="6^25^11^.02"
^DIST(.403,35,"AY",1,102,6,"N")="5^2^2^5^2"
^DIST(.403,35,"AY",1,103)="0^0^9.6^^e^^^^2"
^DIST(.403,35,"AY",1,103,2,"D")="1^6^30^.01"
^DIST(.403,35,"AY",1,103,2,"N")="0^5,102^5^0^5"
^DIST(.403,35,"AY",1,103,4,"D")="^^^^2^0^^0"
^DIST(.403,35,"AY",1,103,5,"D")="1^50^14^2"
^DIST(.403,35,"AY",1,103,5,"N")="0^5,102^5,102^2^5,102"
^DIST(.403,35,"AY",1,104)="12^0^9.63^^e^^4^^2^2"
^DIST(.403,35,"AY",1,104,1,"D")="12^2^6^.001"
^DIST(.403,35,"AY",1,104,1,"N")="^^0^^0"
^DIST(.403,35,"AY",1,104,2,"D")="12^21^43^.01"
^DIST(.403,35,"AY",1,104,2,"N")="2,102^0^0^2,102^0^2,-1^2,+1^5^5,-1^5"
^DIST(.403,35,"AY",1,104,5,"D")="12^70^3^.02"
^DIST(.403,35,"AY",1,104,5,"N")="2,102^0^0^2^0^5,-1^5,+1^2,+1^2^2,+1"
^DIST(.403,35,"AY",1,"FIRST")="2,103"
^DIST(.403,35,"AY",2,0,0,"N")="4,276^2,103^2,103^9,276^2,103"
^DIST(.403,35,"AY",2,103)="0^0^9.6^^e^^^^2"
^DIST(.403,35,"AY",2,103,2,"D")="1^6^30^.01"
^DIST(.403,35,"AY",2,103,2,"N")="0^2,276^5^0^5"
^DIST(.403,35,"AY",2,103,4,"D")="^^^^2^0^^0"
^DIST(.403,35,"AY",2,103,5,"D")="1^50^14^2"
^DIST(.403,35,"AY",2,103,5,"N")="0^2,276^2,276^2^2,276"
^DIST(.403,35,"AY",2,276)="0^0^9.6^^e^^^^2"
^DIST(.403,35,"AY",2,276,2,"D")="10^28^8^913"
^DIST(.403,35,"AY",2,276,2,"N")="2,103^3^5^5,103^3"
^DIST(.403,35,"AY",2,276,3,"D")="12^28^17^916"
^DIST(.403,35,"AY",2,276,3,"N")="2^4^8^5^4"
^DIST(.403,35,"AY",2,276,4,"D")="14^28^17^914"
^DIST(.403,35,"AY",2,276,4,"N")="3^0^9^8^5"
^DIST(.403,35,"AY",2,276,5,"D")="10^57^3^913.1"
^DIST(.403,35,"AY",2,276,5,"N")="5,103^8^3^2^8"
^DIST(.403,35,"AY",2,276,8,"D")="12^57^3^916.1"
^DIST(.403,35,"AY",2,276,8,"N")="5^9^4^3^9"
^DIST(.403,35,"AY",2,276,9,"D")="14^57^3^914.1"
^DIST(.403,35,"AY",2,276,9,"N")="8^0^0^4^0"
^DIST(.403,35,"AY",2,"FIRST")="2,103"
^DIST(.403,35,"AY","CAP","DATE DISTRIBUTED","1^2",1,102,6)=""
^DIST(.403,35,"AY","CAP","DESCRIPTION","1^2",1,102,2)=""
^DIST(.403,35,"AY","CAP","ENVIRONMENT CHECK ROUTINE","1^2",2,276,2)=""
^DIST(.403,35,"AY","CAP","NAME","1^2",1,102,5)=""
^DIST(.403,35,"AY","CAP","NAME","1^2",1,103,2)=""
^DIST(.403,35,"AY","CAP","NAME","1^2",2,103,2)=""
^DIST(.403,35,"AY","CAP","POST-INSTALL ROUTINE","1^2",2,276,4)=""
^DIST(.403,35,"AY","CAP","PRE-INSTALL ROUTINE","1^2",2,276,3)=""
^DIST(.403,35,"AY","CAP","TYPE","1^2",1,103,5)=""
^DIST(.403,35,"AY","CAP","TYPE","1^2",2,103,5)=""
^DIST(.403,35,"AY","CAP","Y/N","1^2",2,276,5)=""
^DIST(.403,35,"AY","CAP","Y/N","1^2",2,276,8)=""
^DIST(.403,35,"AY","CAP","Y/N","1^2",2,276,9)=""
^DIST(.403,35,"AY","F9.6",.01,"L",1,102,5)=""
^DIST(.403,35,"AY","F9.6",.01,"L",1,103,2)=""
^DIST(.403,35,"AY","F9.6",.01,"L",2,103,2)=""
^DIST(.403,35,"AY","F9.6",.02,"L",1,102,6)=""
^DIST(.403,35,"AY","F9.6",2,"L",1,103,5)=""
^DIST(.403,35,"AY","F9.6",2,"L",2,103,5)=""
^DIST(.403,35,"AY","F9.6",3,"L",1,102,2)=""
^DIST(.403,35,"AY","F9.6",913,"L",2,276,2)=""
^DIST(.403,35,"AY","F9.6",913.1,"L",2,276,5)=""
^DIST(.403,35,"AY","F9.6",914,"L",2,276,4)=""
^DIST(.403,35,"AY","F9.6",914.1,"L",2,276,9)=""
^DIST(.403,35,"AY","F9.6",916,"L",2,276,3)=""
^DIST(.403,35,"AY","F9.6",916.1,"L",2,276,8)=""
^DIST(.403,35,"AY","F9.63",.001,"L",1,104,1)=""
^DIST(.403,35,"AY","F9.63",.01,"L",1,104,2)=""
^DIST(.403,35,"AY","F9.63",.02,"L",1,104,5)=""
^DIST(.403,35,"AY","X",1,0,27)="Edit a Build                          PAGE 1 OF 2"
^DIST(.403,35,"AY","X",1,1,0)="Name:                                       TYPE:"
^DIST(.403,35,"AY","X",1,4,19)="Name:"
^DIST(.403,35,"AY","X",1,6,7)="Date Distributed:"
^DIST(.403,35,"AY","X",1,8,12)="Description:"
^DIST(.403,35,"AY","X",1,10,65)="Required to"
^DIST(.403,35,"AY","X",1,11,0)="Install Order        Packages or Patches                           Continue"
^DIST(.403,35,"AY","X",2,0,27)="Edit a Build                          PAGE 2 of 2"
^DIST(.403,35,"AY","X",2,1,0)="Name:                                       TYPE:"
^DIST(.403,35,"AY","X",2,8,50)="Delete Routine"
^DIST(.403,35,"AY","X",2,9,51)="after install"
^DIST(.403,35,"AY","X",2,10,1)="Environment Check Routine:                         Y/N:"
^DIST(.403,35,"AY","X",2,12,7)="Pre-Install Routine:                         Y/N:"
^DIST(.403,35,"AY","X",2,14,6)="Post-Install Routine:                         Y/N:"
^DIST(.403,36,0)="XPD EDIT GP^@^@^^2960906.0935^^^9.6^0^0^1"
^DIST(.403,36,40,0)="^.4031I^1^1"
^DIST(.403,36,40,1,0)="1^^1,1"
^DIST(.403,36,40,1,1)="Page 1"
^DIST(.403,36,40,1,40,0)="^.4032IP^106^3"
^DIST(.403,36,40,1,40,103,0)="103^1^1,1^e"
^DIST(.403,36,40,1,40,105,0)="105^2^1,2^e"
^DIST(.403,36,40,1,40,106,0)="106^3^14,1^e"
^DIST(.403,36,40,1,40,106,2)="4"
^DIST(.403,36,40,1,40,"AC",1,103)=""
^DIST(.403,36,40,1,40,"AC",2,105)=""
^DIST(.403,36,40,1,40,"AC",3,106)=""
^DIST(.403,36,40,1,40,"B",103,103)=""
^DIST(.403,36,40,1,40,"B",105,105)=""
^DIST(.403,36,40,1,40,"B",106,106)=""
^DIST(.403,36,40,"B",1,1)=""
^DIST(.403,36,40,"C","PAGE 1",1)=""
^DIST(.403,36,"AY",1,0,0,"N")="1,106^2,103^2,103^2,106^2,103"
^DIST(.403,36,"AY",1,103)="0^0^9.6^^e^^^^2"
^DIST(.403,36,"AY",1,103,2,"D")="1^6^30^.01"
^DIST(.403,36,"AY",1,103,2,"N")="0^2,105^5^0^5"
^DIST(.403,36,"AY",1,103,4,"D")="^^^^2^0^^0"
^DIST(.403,36,"AY",1,103,5,"D")="1^50^14^2"
^DIST(.403,36,"AY",1,103,5,"N")="0^2,105^2,105^2^2,105"
^DIST(.403,36,"AY",1,105)="0^1^9.6^^e^^^^2"
^DIST(.403,36,"AY",1,105,2,"D")="4^25^50^.01"
^DIST(.403,36,"AY",1,105,2,"N")="2,103^3^3^5,103^3"
^DIST(.403,36,"AY",1,105,3,"D")="6^25^11^.02"
^DIST(.403,36,"AY",1,105,3,"N")="2^4^4^2^4"
^DIST(.403,36,"AY",1,105,4,"D")="8^25^1^3"
^DIST(.403,36,"AY",1,105,4,"N")="3^5^5^3^5^^^^^^1"
^DIST(.403,36,"AY",1,105,5,"D")="10^25^8^913"
^DIST(.403,36,"AY",1,105,5,"N")="4^1,106^6^4^6"
^DIST(.403,36,"AY",1,105,6,"D")="10^61^17^914"
^DIST(.403,36,"AY",1,105,6,"N")="4^1,106^1,106^5^1,106"
^DIST(.403,36,"AY",1,106)="13^0^9.65^^e^^4^^1^1"
^DIST(.403,36,"AY",1,106,1,"D")="13^3^30^.01"
^DIST(.403,36,"AY",1,106,1,"N")="5,105^0^0^6,105^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,36,"AY",1,106,2,"D")="13^42^3^1"
^DIST(.403,36,"AY",1,106,2,"N")="5,105^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,36,"AY",1,"FIRST")="2,103"
^DIST(.403,36,"AY","CAP","DATE DISTRIBUTED",1,1,105,3)=""
^DIST(.403,36,"AY","CAP","DESCRIPTION",1,1,105,4)=""
^DIST(.403,36,"AY","CAP","ENVIRONMENT CHECK RTN.",1,1,105,5)=""
^DIST(.403,36,"AY","CAP","NAME",1,1,103,2)=""
^DIST(.403,36,"AY","CAP","NAME",1,1,105,2)=""
^DIST(.403,36,"AY","CAP","POST-INSTALL RTN.",1,1,105,6)=""
^DIST(.403,36,"AY","CAP","TYPE",1,1,103,5)=""
^DIST(.403,36,"AY","F9.6",.01,"L",1,103,2)=""
^DIST(.403,36,"AY","F9.6",.01,"L",1,105,2)=""
^DIST(.403,36,"AY","F9.6",.02,"L",1,105,3)=""
^DIST(.403,36,"AY","F9.6",2,"L",1,103,5)=""
^DIST(.403,36,"AY","F9.6",3,"L",1,105,4)=""
^DIST(.403,36,"AY","F9.6",913,"L",1,105,5)=""
^DIST(.403,36,"AY","F9.6",914,"L",1,105,6)=""
^DIST(.403,36,"AY","F9.65",.01,"L",1,106,1)=""
^DIST(.403,36,"AY","F9.65",1,"L",1,106,2)=""
^DIST(.403,36,"AY","X",1,0,27)="Edit a Build                          PAGE 1 OF 1"
^DIST(.403,36,"AY","X",1,1,0)="Name:                                       TYPE:"
^DIST(.403,36,"AY","X",1,4,19)="Name:"
^DIST(.403,36,"AY","X",1,6,7)="Date Distributed:"
^DIST(.403,36,"AY","X",1,8,12)="Description:"
^DIST(.403,36,"AY","X",1,10,1)="Environment Check Rtn.:                  Post-Install Rtn.:"
^DIST(.403,36,"AY","X",1,12,3)="Globals                                Kill Global Before Install?"
^DIST(.403,37,0)="PRCHQ1^@^@^^2960123.12^^^444^0^0^1"
^DIST(.403,37,11)=""
^DIST(.403,37,14)="D NOW^%DTC I $D(PRCDA),$D(^PRC(444,PRCDA)) S $P(^(PRCDA,1),U,9,10)=DUZ_U_%"
^DIST(.403,37,20)="S PRCMSG="""" D ESIG^PRCUESIG(DUZ,.PRCMSG) S:PRCMSG'=1 DDSERROR=1"
^DIST(.403,37,40,0)="^.4031I^9^9"
^DIST(.403,37,40,1,0)="1^^1,1^3"
^DIST(.403,37,40,1,1)="Page 1"
^DIST(.403,37,40,1,40,0)="^.4032IP^108^2"
^DIST(.403,37,40,1,40,107,0)="107^1^1,1^d"
^DIST(.403,37,40,1,40,108,0)="108^2^6,1^e"
^DIST(.403,37,40,1,40,"AC",1,107)=""
^DIST(.403,37,40,1,40,"AC",2,108)=""
^DIST(.403,37,40,1,40,"B",107,107)=""
^DIST(.403,37,40,1,40,"B",108,108)=""
^DIST(.403,37,40,2,0)="2^^6,1^^^1^9,75"
^DIST(.403,37,40,2,1)="Page 2"
^DIST(.403,37,40,2,40,0)="^.4032IP^109^1"
^DIST(.403,37,40,2,40,109,0)="109^1^2,2^e"
^DIST(.403,37,40,2,40,"AC",1,109)=""
^DIST(.403,37,40,2,40,"B",109,109)=""
^DIST(.403,37,40,3,0)="3^^1,1^6"
^DIST(.403,37,40,3,1)="Page 3"
^DIST(.403,37,40,3,40,0)="^.4032IP^111^3"
^DIST(.403,37,40,3,40,107,0)="107^1^1,1^d"
^DIST(.403,37,40,3,40,110,0)="110^2^6,1^e"
^DIST(.403,37,40,3,40,111,0)="111^3^8,3^e"
^DIST(.403,37,40,3,40,111,2)="6"
^DIST(.403,37,40,3,40,"AC",1,107)=""
^DIST(.403,37,40,3,40,"AC",2,110)=""
^DIST(.403,37,40,3,40,"AC",3,111)=""
^DIST(.403,37,40,3,40,"B",107,107)=""
^DIST(.403,37,40,3,40,"B",110,110)=""
^DIST(.403,37,40,3,40,"B",111,111)=""
^DIST(.403,37,40,4,0)="4^^6,1^^^1^17,79"
^DIST(.403,37,40,4,1)="Page 4"
^DIST(.403,37,40,4,12)="D REQDFLD1^PRCHQ1B"
^DIST(.403,37,40,4,40,0)="^.4032IP^112^1"
^DIST(.403,37,40,4,40,112,0)="112^2^2,2^e"
^DIST(.403,37,40,4,40,"AC",2,112)=""
^DIST(.403,37,40,4,40,"B",112,112)=""
^DIST(.403,37,40,5,0)="5^^10,2^^^1^15,75"
^DIST(.403,37,40,5,1)="Page 5"
^DIST(.403,37,40,5,12)="D REQDFLD2^PRCHQ1B"
^DIST(.403,37,40,5,40,0)="^.4032IP^113^1"
^DIST(.403,37,40,5,40,113,0)="113^1^2,3^e"
^DIST(.403,37,40,5,40,"AC",1,113)=""
^DIST(.403,37,40,5,40,"B",113,113)=""
^DIST(.403,37,40,6,0)="6^^1,1"
^DIST(.403,37,40,6,1)="Page 6"
^DIST(.403,37,40,6,40,0)="^.4032IP^114^2"
^DIST(.403,37,40,6,40,107,0)="107^1^1,1^d"
^DIST(.403,37,40,6,40,114,0)="114^2^6,1^e"
^DIST(.403,37,40,6,40,"AC",1,107)=""
^DIST(.403,37,40,6,40,"AC",2,114)=""
^DIST(.403,37,40,6,40,"B",107,107)=""
^DIST(.403,37,40,6,40,"B",114,114)=""
^DIST(.403,37,40,7,0)="7^^1,1"
^DIST(.403,37,40,7,1)="Page 7^"
^DIST(.403,37,40,7,40,0)="^.4032IP^116^2"
^DIST(.403,37,40,7,40,115,0)="115^1^1,2^e"
^DIST(.403,37,40,7,40,116,0)="116^2^3,2^e"
^DIST(.403,37,40,7,40,116,1)="20:.01"
^DIST(.403,37,40,7,40,"AC",1,115)=""
^DIST(.403,37,40,7,40,"AC",2,116)=""
^DIST(.403,37,40,7,40,"B",115,115)=""
^DIST(.403,37,40,7,40,"B",116,116)=""
^DIST(.403,37,40,8,0)="8^^7,1^^^1^15,75"
^DIST(.403,37,40,8,1)="Page 8"
^DIST(.403,37,40,8,12)=""
^DIST(.403,37,40,8,40,0)="^.4032IP^118^1"
^DIST(.403,37,40,8,40,118,0)="118^1^2,2^e"
^DIST(.403,37,40,8,40,"AC",1,118)=""
^DIST(.403,37,40,8,40,"B",118,118)=""
^DIST(.403,37,40,9,0)="9^^1,1^^"
^DIST(.403,37,40,9,1)="Page 9^"
^DIST(.403,37,40,9,12)=""
^DIST(.403,37,40,9,40,0)="^.4032IP^117^1"
^DIST(.403,37,40,9,40,117,0)="117^2^1,2^e"
^DIST(.403,37,40,9,40,117,1)="20:.01"
^DIST(.403,37,40,9,40,"AC",2,117)=""
^DIST(.403,37,40,9,40,"B",117,117)=""
^DIST(.403,37,40,"B",1,1)=""
^DIST(.403,37,40,"B",2,2)=""
^DIST(.403,37,40,"B",3,3)=""
^DIST(.403,37,40,"B",4,4)=""
^DIST(.403,37,40,"B",5,5)=""
^DIST(.403,37,40,"B",6,6)=""
^DIST(.403,37,40,"B",7,7)=""
^DIST(.403,37,40,"B",8,8)=""
^DIST(.403,37,40,"B",9,9)=""
^DIST(.403,37,40,"C","PAGE 1",1)=""
^DIST(.403,37,40,"C","PAGE 2",2)=""
^DIST(.403,37,40,"C","PAGE 3",3)=""
^DIST(.403,37,40,"C","PAGE 4",4)=""
^DIST(.403,37,40,"C","PAGE 5",5)=""
^DIST(.403,37,40,"C","PAGE 6",6)=""
^DIST(.403,37,40,"C","PAGE 7",7)=""
^DIST(.403,37,40,"C","PAGE 8",8)=""
^DIST(.403,37,40,"C","PAGE 9",9)=""
^DIST(.403,37,"AY",1,0,0,"N")="12,108^1,108^1,108^13,108^1,108"
^DIST(.403,37,"AY",1,107)="0^0^444^^d^^^^0"
^DIST(.403,37,"AY",1,107,2,"D")="1^9^20^.01"
^DIST(.403,37,"AY",1,107,3,"D")="1^54^23^9"
^DIST(.403,37,"AY",1,107,4,"D")="2^8^22^7"
^DIST(.403,37,"AY",1,107,5,"D")="2^45^25^10"
^DIST(.403,37,"AY",1,107,6,"D")="3^12^5^8.1"
^DIST(.403,37,"AY",1,107,7,"D")="3^55^19^11"
^DIST(.403,37,"AY",1,108)="5^0^444^^e^^^^1"
^DIST(.403,37,"AY",1,108,1,"D")="5^20^11^1"
^DIST(.403,37,"AY",1,108,1,"N")="0^3^2^0^2"
^DIST(.403,37,"AY",1,108,2,"D")="5^60^11^13"
^DIST(.403,37,"AY",1,108,2,"N")="0^4^3^1^3"
^DIST(.403,37,"AY",1,108,3,"D")="6^21^9^5"
^DIST(.403,37,"AY",1,108,3,"N")="1^6^4^2^4"
^DIST(.403,37,"AY",1,108,4,"D")="6^57^17^2"
^DIST(.403,37,"AY",1,108,4,"N")="1^7^6^3^6"
^DIST(.403,37,"AY",1,108,6,"D")="7^9^15^14"
^DIST(.403,37,"AY",1,108,6,"N")="3^11^7^4^7"
^DIST(.403,37,"AY",1,108,7,"D")="7^48^30^15"
^DIST(.403,37,"AY",1,108,7,"N")="3^11^11^6^11"
^DIST(.403,37,"AY",1,108,8,"D")="8^56^1^16"
^DIST(.403,37,"AY",1,108,8,"N")="7^9^9^11^9^^^^^^1"
^DIST(.403,37,"AY",1,108,9,"D")="9^55^3^9,108^9^0^^0"
^DIST(.403,37,"AY",1,108,9,"N")="11^10^10^8^10"
^DIST(.403,37,"AY",1,108,10,"D")="10^34^1^17"
^DIST(.403,37,"AY",1,108,10,"N")="9^12^12^9^12^^^^^^1"
^DIST(.403,37,"AY",1,108,11,"D")="8^5^11^12"
^DIST(.403,37,"AY",1,108,11,"N")="6^9^8^7^8"
^DIST(.403,37,"AY",1,108,12,"D")="11^12^3^17.5"
^DIST(.403,37,"AY",1,108,12,"N")="10^0^13^10^13"
^DIST(.403,37,"AY",1,108,13,"D")="11^48^30^3"
^DIST(.403,37,"AY",1,108,13,"N")="10^0^0^12^0"
^DIST(.403,37,"AY",1,"FIRST")="1,108"
^DIST(.403,37,"AY",2,0,0,"N")="1,109^1,109^1,109^1,109^1,109"
^DIST(.403,37,"AY",2,109)="6^1^444^^e^^^^1"
^DIST(.403,37,"AY",2,109,1,"D")="6^38^4^1,109"
^DIST(.403,37,"AY",2,109,1,"N")="0^0^0^0^0"
^DIST(.403,37,"AY",2,"FIRST")="1,109"
^DIST(.403,37,"AY",3,0,0,"N")="1,111^1,111^1,111^2,111^1,111"
^DIST(.403,37,"AY",3,107)="0^0^444^^d^^^^0"
^DIST(.403,37,"AY",3,107,2,"D")="1^9^20^.01"
^DIST(.403,37,"AY",3,107,3,"D")="1^54^23^9"
^DIST(.403,37,"AY",3,107,4,"D")="2^8^22^7"
^DIST(.403,37,"AY",3,107,5,"D")="2^45^25^10"
^DIST(.403,37,"AY",3,107,6,"D")="3^12^5^8.1"
^DIST(.403,37,"AY",3,107,7,"D")="3^55^19^11"
^DIST(.403,37,"AY",3,110)="5^0^444^^e^^^^0"
^DIST(.403,37,"AY",3,111)="7^2^444.019^^e^^6^^1^1"
^DIST(.403,37,"AY",3,111,1,"D")="7^4^3^.01"
^DIST(.403,37,"AY",3,111,1,"N")="0^0^0^0^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,37,"AY",3,111,2,"D")="7^17^60^1.6"
^DIST(.403,37,"AY",3,111,2,"N")="0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,37,"AY",3,"FIRST")="1,111"
^DIST(.403,37,"AY",4,0,0,"N")="16,112^1,112^1,112^16,112^1,112"
^DIST(.403,37,"AY",4,112)="6^1^444.019^^e^^^^1"
^DIST(.403,37,"AY",4,112,1,"D")="6^14^3^.01"
^DIST(.403,37,"AY",4,112,1,"N")="0^3^2^0^2"
^DIST(.403,37,"AY",4,112,2,"D")="6^65^6^1"
^DIST(.403,37,"AY",4,112,2,"N")="0^4^3^1^3"
^DIST(.403,37,"AY",4,112,3,"D")="7^11^1^1.5"
^DIST(.403,37,"AY",4,112,3,"N")="1^5^4^2^4^^^^^^1"
^DIST(.403,37,"AY",4,112,4,"D")="7^22^55^1.6"
^DIST(.403,37,"AY",4,112,4,"N")="1^5^5^3^5"
^DIST(.403,37,"AY",4,112,5,"D")="8^19^2^3"
^DIST(.403,37,"AY",4,112,5,"N")="3^7^6^4^6"
^DIST(.403,37,"AY",4,112,6,"D")="8^55^9^2"
^DIST(.403,37,"AY",4,112,6,"N")="4^7^7^5^7"
^DIST(.403,37,"AY",4,112,7,"D")="9^11^30^6"
^DIST(.403,37,"AY",4,112,7,"N")="5^10^8^6^8"
^DIST(.403,37,"AY",4,112,8,"D")="9^61^14^7"
^DIST(.403,37,"AY",4,112,8,"N")="6^10^10^7^10"
^DIST(.403,37,"AY",4,112,9,"D")="10^67^4^4"
^DIST(.403,37,"AY",4,112,9,"N")="8^12^11^10^11"
^DIST(.403,37,"AY",4,112,10,"D")="10^15^17^5"
^DIST(.403,37,"AY",4,112,10,"N")="7^11^9^8^9"
^DIST(.403,37,"AY",4,112,11,"D")="11^13^30^8"
^DIST(.403,37,"AY",4,112,11,"N")="10^13^12^9^12"
^DIST(.403,37,"AY",4,112,12,"D")="11^52^25^9"
^DIST(.403,37,"AY",4,112,12,"N")="10^13^13^11^13"
^DIST(.403,37,"AY",4,112,13,"D")="12^11^30^10"
^DIST(.403,37,"AY",4,112,13,"N")="11^17^14^12^14"
^DIST(.403,37,"AY",4,112,14,"D")="12^58^18^12"
^DIST(.403,37,"AY",4,112,14,"N")="12^17^17^13^17"
^DIST(.403,37,"AY",4,112,16,"D")="14^27^1^20"
^DIST(.403,37,"AY",4,112,16,"N")="17^0^0^17^0^^^^^^1"
^DIST(.403,37,"AY",4,112,17,"D")="13^6^60^12.5"
^DIST(.403,37,"AY",4,112,17,"N")="13^16^16^14^16"
^DIST(.403,37,"AY",4,"FIRST")="1,112"
^DIST(.403,37,"AY",5,0,0,"N")="4,113^1,113^1,113^4,113^1,113"
^DIST(.403,37,"AY",5,113)="10^3^444.039^^e^^^^1"
^DIST(.403,37,"AY",5,113,1,"D")="10^22^2^.01"
^DIST(.403,37,"AY",5,113,1,"N")="0^3^2^0^2"
^DIST(.403,37,"AY",5,113,2,"D")="10^44^11^1"
^DIST(.403,37,"AY",5,113,2,"N")="0^3^3^1^3"
^DIST(.403,37,"AY",5,113,3,"D")="11^13^9^2"
^DIST(.403,37,"AY",5,113,3,"N")="1^4^4^2^4"
^DIST(.403,37,"AY",5,113,4,"D")="12^13^30^3"
^DIST(.403,37,"AY",5,113,4,"N")="3^0^0^3^0"
^DIST(.403,37,"AY",5,"FIRST")="1,113"
^DIST(.403,37,"AY",6,0,0,"N")="3,114^1,114^1,114^3,114^1,114"
^DIST(.403,37,"AY",6,107)="0^0^444^^d^^^^0"
^DIST(.403,37,"AY",6,107,2,"D")="1^9^20^.01"
^DIST(.403,37,"AY",6,107,3,"D")="1^54^23^9"
^DIST(.403,37,"AY",6,107,4,"D")="2^8^22^7"
^DIST(.403,37,"AY",6,107,5,"D")="2^45^25^10"
^DIST(.403,37,"AY",6,107,6,"D")="3^12^5^8.1"
^DIST(.403,37,"AY",6,107,7,"D")="3^55^19^11"
^DIST(.403,37,"AY",6,114)="5^0^444^^e^^^^1"
^DIST(.403,37,"AY",6,114,1,"D")="5^25^36^20"
^DIST(.403,37,"AY",6,114,1,"N")="0^3^3^0^3^^^^^^1"
^DIST(.403,37,"AY",6,114,3,"D")="6^22^3^20.5"
^DIST(.403,37,"AY",6,114,3,"N")="1^0^0^1^0"
^DIST(.403,37,"AY",6,"FIRST")="1,114"
^DIST(.403,37,"AY",7,0,0,"N")="10,116^2,116^2,116^10,116^2,116"
^DIST(.403,37,"AY",7,115)="0^1^444.01^^e^^^^0"
^DIST(.403,37,"AY",7,116)="2^1^444.1^^e^^^1^2"
^DIST(.403,37,"AY",7,116,2,"D")="2^16^36^.01"
^DIST(.403,37,"AY",7,116,2,"N")="0^3^3^0^3"
^DIST(.403,37,"AY",7,116,3,"D")="3^21^12^18.3"
^DIST(.403,37,"AY",7,116,3,"N")="2^4^4^2^4"
^DIST(.403,37,"AY",7,116,4,"D")="4^20^33^1"
^DIST(.403,37,"AY",7,116,4,"N")="3^5^5^3^5"
^DIST(.403,37,"AY",7,116,5,"D")="5^20^33^2"
^DIST(.403,37,"AY",7,116,5,"N")="4^6^6^4^6"
^DIST(.403,37,"AY",7,116,6,"D")="6^20^25^3"
^DIST(.403,37,"AY",7,116,6,"N")="5^7^7^5^7"
^DIST(.403,37,"AY",7,116,7,"D")="7^20^25^4"
^DIST(.403,37,"AY",7,116,7,"N")="6^8^8^6^8"
^DIST(.403,37,"AY",7,116,8,"D")="8^18^20^4.2"
^DIST(.403,37,"AY",7,116,8,"N")="7^9^9^7^9"
^DIST(.403,37,"AY",7,116,9,"D")="9^19^30^4.4"
^DIST(.403,37,"AY",7,116,9,"N")="8^10^10^8^10"
^DIST(.403,37,"AY",7,116,10,"D")="10^22^10^4.6"
^DIST(.403,37,"AY",7,116,10,"N")="9^0^0^9^0"
^DIST(.403,37,"AY",7,116,"PTB")="444.01,.01"
^DIST(.403,37,"AY",7,116,"PTB",1)="S X=+$$GET^DDSVAL(444.01,.DA,.01),DA=X"
^DIST(.403,37,"AY",7,"FIRST")="2,116"
^DIST(.403,37,"AY",8,0,0,"N")="2,118^1,118^1,118^2,118^1,118"
^DIST(.403,37,"AY",8,118)="7^1^444.01^^e^^^^1"
^DIST(.403,37,"AY",8,118,1,"D")="7^26^36^.01"
^DIST(.403,37,"AY",8,118,1,"N")="0^2^2^0^2"
^DIST(.403,37,"AY",8,118,2,"D")="8^22^27^1"
^DIST(.403,37,"AY",8,118,2,"N")="1^0^0^1^0"
^DIST(.403,37,"AY",8,"FIRST")="1,118"
^DIST(.403,37,"AY",9,0,0,"N")="10,117^2,117^2,117^10,117^2,117"
^DIST(.403,37,"AY",9,117)="0^1^440^^e^^^1^2"
^DIST(.403,37,"AY",9,117,2,"D")="1^16^36^.01"
^DIST(.403,37,"AY",9,117,2,"N")="0^3^3^0^3"
^DIST(.403,37,"AY",9,117,3,"D")="2^21^12^18.3"
^DIST(.403,37,"AY",9,117,3,"N")="2^4^4^2^4"
^DIST(.403,37,"AY",9,117,4,"D")="3^20^33^1"
^DIST(.403,37,"AY",9,117,4,"N")="3^5^5^3^5"
^DIST(.403,37,"AY",9,117,5,"D")="4^20^33^2"
^DIST(.403,37,"AY",9,117,5,"N")="4^6^6^4^6"
^DIST(.403,37,"AY",9,117,6,"D")="5^20^25^3"
^DIST(.403,37,"AY",9,117,6,"N")="5^7^7^5^7"
^DIST(.403,37,"AY",9,117,7,"D")="6^20^25^4"
^DIST(.403,37,"AY",9,117,7,"N")="6^8^8^6^8"
^DIST(.403,37,"AY",9,117,8,"D")="7^18^20^4.2"
^DIST(.403,37,"AY",9,117,8,"N")="7^9^9^7^9"
^DIST(.403,37,"AY",9,117,9,"D")="8^19^30^4.4"
^DIST(.403,37,"AY",9,117,9,"N")="8^10^10^8^10"
^DIST(.403,37,"AY",9,117,10,"D")="9^22^10^4.6"
^DIST(.403,37,"AY",9,117,10,"N")="9^0^0^9^0"
^DIST(.403,37,"AY",9,117,"PTB")="444.01,.01"
^DIST(.403,37,"AY",9,117,"PTB",1)="S X=+$$GET^DDSVAL(444.01,.DA,.01),DA=X"
^DIST(.403,37,"AY",9,"FIRST")="2,117"
^DIST(.403,37,"AY","CAP","ADMINISTRATIVE CERTIFICATION PHRASE",2,2,109,1)=""
^DIST(.403,37,"AY","CAP","ADMINISTRATIVE CERTIFICATIONS(W)","1^3^6",1,108,10)=""
^DIST(.403,37,"AY","CAP","BOC",4,4,112,17)=""
^DIST(.403,37,"AY","CAP","CONTRACTING OFFICER","1^3^6",1,108,13)=""
^DIST(.403,37,"AY","CAP","DATE",5,5,113,2)=""
^DIST(.403,37,"AY","CAP","DELIVER TO","1^3^6",1,108,7)=""
^DIST(.403,37,"AY","CAP","DELIVERY SCHEDULE",4,4,112,16)=""
^DIST(.403,37,"AY","CAP","DELIVERY SCHEDULE",5,5,113,1)=""
^DIST(.403,37,"AY","CAP","DESCR(W)",4,4,112,3)=""
^DIST(.403,37,"AY","CAP","DUN & BRADSTREET #",7,7,116,3)=""
^DIST(.403,37,"AY","CAP","DUN & BRADSTREET #",9,9,117,3)=""
^DIST(.403,37,"AY","CAP","FEDERAL SUPPLY CLASS",4,4,112,9)=""
^DIST(.403,37,"AY","CAP","FOB","1^3^6",1,108,11)=""
^DIST(.403,37,"AY","CAP","HAZMAT CODE",4,4,112,14)=""
^DIST(.403,37,"AY","CAP","ITEM MASTER FILE #",4,4,112,2)=""
^DIST(.403,37,"AY","CAP","LINE ITEM #",4,4,112,1)=""
^DIST(.403,37,"AY","CAP","LOCATION",5,5,113,4)=""
^DIST(.403,37,"AY","CAP","LOT #",4,4,112,12)=""
^DIST(.403,37,"AY","CAP","MFG PART #",4,4,112,11)=""
^DIST(.403,37,"AY","CAP","NATL DRUG CODE",4,4,112,8)=""
^DIST(.403,37,"AY","CAP","NATL STOCK #",4,4,112,10)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR CITY",7,7,116,8)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR CITY",9,9,117,8)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 1",7,7,116,4)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 1",9,9,117,4)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 2",7,7,116,5)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 2",9,9,117,5)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 3",7,7,116,6)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 3",9,9,117,6)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 4",7,7,116,7)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR LINE 4",9,9,117,7)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR STATE",7,7,116,9)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR STATE",9,9,117,9)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR ZIP CODE",7,7,116,10)=""
^DIST(.403,37,"AY","CAP","ORDER ADDR ZIP CODE",9,9,117,10)=""
^DIST(.403,37,"AY","CAP","PRIORITY OF REQUEST","1^3^6",1,108,3)=""
^DIST(.403,37,"AY","CAP","QUANTITY",4,4,112,6)=""
^DIST(.403,37,"AY","CAP","QUANTITY",5,5,113,3)=""
^DIST(.403,37,"AY","CAP","QUOTE DUE DATE/TIME","1^3^6",1,108,4)=""
^DIST(.403,37,"AY","CAP","REQD DELIVERY DATE","1^3^6",1,108,2)=""
^DIST(.403,37,"AY","CAP","RFQ REFERENCE DATE","1^3^6",1,108,1)=""
^DIST(.403,37,"AY","CAP","SERIAL #",4,4,112,13)=""
^DIST(.403,37,"AY","CAP","SET ASIDE?","1^3^6",1,108,12)=""
^DIST(.403,37,"AY","CAP","SHIP TO","1^3^6",1,108,6)=""
^DIST(.403,37,"AY","CAP","SHORT",4,4,112,4)=""
^DIST(.403,37,"AY","CAP","SIC CODE",4,4,112,7)=""
^DIST(.403,37,"AY","CAP","SOLICITATION METHOD",8,8,118,2)=""
^DIST(.403,37,"AY","CAP","SOLICITED VENDOR","1^3^6",6,114,1)=""
^DIST(.403,37,"AY","CAP","SOLICITED VENDOR'S NAME",8,8,118,1)=""
^DIST(.403,37,"AY","CAP","SPECIAL REMARKS(W)","1^3^6",1,108,8)=""
^DIST(.403,37,"AY","CAP","TRANSMIT TO 'PUBLIC'","1^3^6",6,114,3)=""
^DIST(.403,37,"AY","CAP","UNIT OF PURCHASE",4,4,112,5)=""
^DIST(.403,37,"AY","CAP","VENDOR'S NAME",7,7,116,2)=""
^DIST(.403,37,"AY","CAP","VENDOR'S NAME",9,9,117,2)=""
^DIST(.403,37,"AY","F0","1,109","L",2,109,1)=""
^DIST(.403,37,"AY","F0","9,108","L",1,108,9)=""
^DIST(.403,37,"AY","F440",.01,"L",9,117,2)=""
^DIST(.403,37,"AY","F440",1,"L",9,117,4)=""
^DIST(.403,37,"AY","F440",2,"L",9,117,5)=""
^DIST(.403,37,"AY","F440",3,"L",9,117,6)=""
^DIST(.403,37,"AY","F440",4,"L",9,117,7)=""
^DIST(.403,37,"AY","F440",4.2,"L",9,117,8)=""
^DIST(.403,37,"AY","F440",4.4,"L",9,117,9)=""
^DIST(.403,37,"AY","F440",4.6,"L",9,117,10)=""
^DIST(.403,37,"AY","F440",18.3,"L",9,117,3)=""
^DIST(.403,37,"AY","F444",.01,"L",1,107,2)=""
^DIST(.403,37,"AY","F444",.01,"L",3,107,2)=""
^DIST(.403,37,"AY","F444",.01,"L",6,107,2)=""
^DIST(.403,37,"AY","F444",1,"L",1,108,1)=""
^DIST(.403,37,"AY","F444",2,"L",1,108,4)=""
^DIST(.403,37,"AY","F444",3,"L",1,108,13)=""
^DIST(.403,37,"AY","F444",5,"L",1,108,3)=""
^DIST(.403,37,"AY","F444",7,"L",1,107,4)=""
^DIST(.403,37,"AY","F444",7,"L",3,107,4)=""
^DIST(.403,37,"AY","F444",7,"L",6,107,4)=""
^DIST(.403,37,"AY","F444",8.1,"L",1,107,6)=""
^DIST(.403,37,"AY","F444",8.1,"L",3,107,6)=""
^DIST(.403,37,"AY","F444",8.1,"L",6,107,6)=""
^DIST(.403,37,"AY","F444",9,"L",1,107,3)=""
^DIST(.403,37,"AY","F444",9,"L",3,107,3)=""
^DIST(.403,37,"AY","F444",9,"L",6,107,3)=""
^DIST(.403,37,"AY","F444",10,"L",1,107,5)=""
^DIST(.403,37,"AY","F444",10,"L",3,107,5)=""
^DIST(.403,37,"AY","F444",10,"L",6,107,5)=""
^DIST(.403,37,"AY","F444",11,"L",1,107,7)=""
^DIST(.403,37,"AY","F444",11,"L",3,107,7)=""
^DIST(.403,37,"AY","F444",11,"L",6,107,7)=""
^DIST(.403,37,"AY","F444",12,"L",1,108,11)=""
^DIST(.403,37,"AY","F444",13,"L",1,108,2)=""
^DIST(.403,37,"AY","F444",14,"L",1,108,6)=""
^DIST(.403,37,"AY","F444",15,"L",1,108,7)=""
^DIST(.403,37,"AY","F444",16,"L",1,108,8)=""
^DIST(.403,37,"AY","F444",17,"L",1,108,10)=""
^DIST(.403,37,"AY","F444",17.5,"L",1,108,12)=""
^DIST(.403,37,"AY","F444",20,"L",6,114,1)=""
^DIST(.403,37,"AY","F444",20.5,"L",6,114,3)=""
^DIST(.403,37,"AY","F444.01",.01,"L",8,118,1)=""
^DIST(.403,37,"AY","F444.01",1,"L",8,118,2)=""
^DIST(.403,37,"AY","F444.019",.01,"L",3,111,1)=""
^DIST(.403,37,"AY","F444.019",.01,"L",4,112,1)=""
^DIST(.403,37,"AY","F444.019",1,"L",4,112,2)=""
^DIST(.403,37,"AY","F444.019",1.5,"L",4,112,3)=""
^DIST(.403,37,"AY","F444.019",1.6,"L",3,111,2)=""
^DIST(.403,37,"AY","F444.019",1.6,"L",4,112,4)=""
^DIST(.403,37,"AY","F444.019",2,"L",4,112,6)=""
^DIST(.403,37,"AY","F444.019",3,"L",4,112,5)=""
^DIST(.403,37,"AY","F444.019",4,"L",4,112,9)=""
^DIST(.403,37,"AY","F444.019",5,"L",4,112,10)=""
^DIST(.403,37,"AY","F444.019",6,"L",4,112,7)=""
^DIST(.403,37,"AY","F444.019",7,"L",4,112,8)=""
^DIST(.403,37,"AY","F444.019",8,"L",4,112,11)=""
^DIST(.403,37,"AY","F444.019",9,"L",4,112,12)=""
^DIST(.403,37,"AY","F444.019",10,"L",4,112,13)=""
^DIST(.403,37,"AY","F444.019",12,"L",4,112,14)=""
^DIST(.403,37,"AY","F444.019",12.5,"L",4,112,17)=""
^DIST(.403,37,"AY","F444.019",20,"L",4,112,16)=""
^DIST(.403,37,"AY","F444.039",.01,"L",5,113,1)=""
^DIST(.403,37,"AY","F444.039",1,"L",5,113,2)=""
^DIST(.403,37,"AY","F444.039",2,"L",5,113,3)=""
^DIST(.403,37,"AY","F444.039",3,"L",5,113,4)=""
^DIST(.403,37,"AY","F444.1",.01,"L",7,116,2)=""
^DIST(.403,37,"AY","F444.1",1,"L",7,116,4)=""
^DIST(.403,37,"AY","F444.1",2,"L",7,116,5)=""
^DIST(.403,37,"AY","F444.1",3,"L",7,116,6)=""
^DIST(.403,37,"AY","F444.1",4,"L",7,116,7)=""
^DIST(.403,37,"AY","F444.1",4.2,"L",7,116,8)=""
^DIST(.403,37,"AY","F444.1",4.4,"L",7,116,9)=""
^DIST(.403,37,"AY","F444.1",4.6,"L",7,116,10)=""
^DIST(.403,37,"AY","F444.1",18.3,"L",7,116,3)=""
^DIST(.403,37,"AY","PT",444.01,.01,7,116)=""
^DIST(.403,37,"AY","PT",444.01,.01,9,117)=""
^DIST(.403,37,"AY","X",1,0,20)="Request for Quotation Enter/Edit"
^DIST(.403,37,"AY","X",1,1,0)="RFQ NBR:                          Requesting Service:"
^DIST(.403,37,"AY","X",1,1,0,"A")="1;7;U^35;52;U"
^DIST(.403,37,"AY","X",1,2,0)="Status:                           Requester:"
^DIST(.403,37,"AY","X",1,2,0,"A")="1;6;U^35;43;U"
^DIST(.403,37,"AY","X",1,3,0)="Substation:                       Requester's Phone #:"
^DIST(.403,37,"AY","X",1,5,0)="RFQ Reference Date:                 Reqd Delivery Date:"
^DIST(.403,37,"AY","X",1,5,0,"A")="1;18;U^37;54;U"
^DIST(.403,37,"AY","X",1,6,0)="Priority of Request:                Quote Due Date/Time:"
^DIST(.403,37,"AY","X",1,6,0,"A")="1;19;U^37;55;U"
^DIST(.403,37,"AY","X",1,7,0)="Ship To:                            Deliver To:"
^DIST(.403,37,"AY","X",1,7,0,"A")="1;7;U^37;46;U"
^DIST(.403,37,"AY","X",1,8,0)="FOB:                                Special Remarks(W):"
^DIST(.403,37,"AY","X",1,8,0,"A")="1;3;U"
^DIST(.403,37,"AY","X",1,10,0)="Administrative Certifications(W):"
^DIST(.403,37,"AY","X",1,11,0)="Set Aside?:                Contracting Officer:"
^DIST(.403,37,"AY","X",1,11,0,"A")="28;46;U"
^DIST(.403,37,"AY","X",2,6,1)="Administrative Certification Phrase:"
^DIST(.403,37,"AY","X",3,0,20)="Request for Quotation Enter/Edit"
^DIST(.403,37,"AY","X",3,1,0)="RFQ NBR:                          Requesting Service:"
^DIST(.403,37,"AY","X",3,1,0,"A")="1;7;U^35;52;U"
^DIST(.403,37,"AY","X",3,2,0)="Status:                           Requester:"
^DIST(.403,37,"AY","X",3,2,0,"A")="1;6;U^35;43;U"
^DIST(.403,37,"AY","X",3,3,0)="Substation:                       Requester's Phone #:"
^DIST(.403,37,"AY","X",3,5,2)="Item Line #    Short Description"
^DIST(.403,37,"AY","X",3,6,2)="-----------    -----------------"
^DIST(.403,37,"AY","X",4,6,1)="Line Item #:                                Item Master File #:"
^DIST(.403,37,"AY","X",4,6,1,"A")="1;11;U"
^DIST(.403,37,"AY","X",4,7,1)="Descr(W):     Short:"
^DIST(.403,37,"AY","X",4,7,1,"A")="1;8;U^15;19;U"
^DIST(.403,37,"AY","X",4,8,1)="Unit of Purchase:                           Quantity:"
^DIST(.403,37,"AY","X",4,8,1,"A")="1;16;U^45;52;U"
^DIST(.403,37,"AY","X",4,9,1)="SIC Code:                                   Natl Drug Code:"
^DIST(.403,37,"AY","X",4,9,1,"A")="1;8;U"
^DIST(.403,37,"AY","X",4,10,1)="Natl Stock #:                               Federal Supply Class:"
^DIST(.403,37,"AY","X",4,10,1,"A")="45;64;U"
^DIST(.403,37,"AY","X",4,11,1)="Mfg Part #:                                 Lot #:"
^DIST(.403,37,"AY","X",4,12,1)="Serial #:                                   Hazmat Code:"
^DIST(.403,37,"AY","X",4,13,1)="BOC:"
^DIST(.403,37,"AY","X",4,13,1,"A")="1;3;U"
^DIST(.403,37,"AY","X",4,14,1)="Select Delivery Schedule:"
^DIST(.403,37,"AY","X",5,10,3)="Delivery Schedule:                 Date:"
^DIST(.403,37,"AY","X",5,10,3,"A")="36;39;U"
^DIST(.403,37,"AY","X",5,11,3)="Quantity:"
^DIST(.403,37,"AY","X",5,11,3,"A")="1;8;U"
^DIST(.403,37,"AY","X",5,12,3)="Location:"
^DIST(.403,37,"AY","X",6,0,20)="Request for Quotation Enter/Edit"
^DIST(.403,37,"AY","X",6,1,0)="RFQ NBR:                          Requesting Service:"
^DIST(.403,37,"AY","X",6,1,0,"A")="1;7;U^35;52;U"
^DIST(.403,37,"AY","X",6,2,0)="Status:                           Requester:"
^DIST(.403,37,"AY","X",6,2,0,"A")="1;6;U^35;43;U"
^DIST(.403,37,"AY","X",6,3,0)="Substation:                       Requester's Phone #:"
^DIST(.403,37,"AY","X",6,5,0)="Select Solicited Vendor:"
^DIST(.403,37,"AY","X",6,6,0)="Transmit to 'PUBLIC':"
^DIST(.403,37,"AY","X",6,6,0,"A")="1;20;U"
^DIST(.403,37,"AY","X",7,0,1)="RFQ Temporary Vendor File Entry"
^DIST(.403,37,"AY","X",7,2,1)="Vendor's Name:"
^DIST(.403,37,"AY","X",7,2,1,"A")="1;13;U"
^DIST(.403,37,"AY","X",7,3,1)="Dun & Bradstreet #:"
^DIST(.403,37,"AY","X",7,4,1)="Order Addr Line 1:"
^DIST(.403,37,"AY","X",7,4,1,"A")="1;17;U"
^DIST(.403,37,"AY","X",7,5,1)="Order Addr Line 2:"
^DIST(.403,37,"AY","X",7,6,1)="Order Addr Line 3:"
^DIST(.403,37,"AY","X",7,7,1)="Order Addr Line 4:"
^DIST(.403,37,"AY","X",7,8,1)="Order Addr City:"
^DIST(.403,37,"AY","X",7,8,1,"A")="1;15;U"
^DIST(.403,37,"AY","X",7,9,1)="Order Addr State:"
^DIST(.403,37,"AY","X",7,9,1,"A")="1;16;U"
^DIST(.403,37,"AY","X",7,10,1)="Order Addr Zip Code:"
^DIST(.403,37,"AY","X",8,7,1)="Solicited Vendor's Name:"
^DIST(.403,37,"AY","X",8,8,1)="Solicitation Method:"
^DIST(.403,37,"AY","X",8,8,1,"A")="1;19;U"
^DIST(.403,37,"AY","X",9,0,1)="Site's Main Vendor File Entry (Edit Dun # Only)"
^DIST(.403,37,"AY","X",9,1,1)="Vendor's Name:"
^DIST(.403,37,"AY","X",9,1,1,"A")="1;13;U"
^DIST(.403,37,"AY","X",9,2,1)="Dun & Bradstreet #:"
^DIST(.403,37,"AY","X",9,3,1)="Order Addr Line 1:"
^DIST(.403,37,"AY","X",9,3,1,"A")="1;17;U"
^DIST(.403,37,"AY","X",9,4,1)="Order Addr Line 2:"
^DIST(.403,37,"AY","X",9,5,1)="Order Addr Line 3:"
^DIST(.403,37,"AY","X",9,6,1)="Order Addr Line 4:"
^DIST(.403,37,"AY","X",9,7,1)="Order Addr City:"
^DIST(.403,37,"AY","X",9,8,1)="Order Addr State:"
^DIST(.403,37,"AY","X",9,9,1)="Order Addr Zip Code:"
^DIST(.403,38,0)="PRCHQ2^@^@^^2960220.2245^^^444^0^0^1"
^DIST(.403,38,14)="D NOW^%DTC I $D(PRCDA),$D(PRCQDA),$D(^PRC(444,PRCDA,8,PRCQDA)) S $P(^(PRCQDA,1),U,4,6)=1_U_DUZ_U_%"
^DIST(.403,38,15,0)="^^3^3^2960227^"
^DIST(.403,38,15,1,0)="This form supports the editing of a vendor's quote.  This will be used"
^DIST(.403,38,15,2,0)="for manually entering data, where the quote is NOT submitted"
^DIST(.403,38,15,3,0)="electronically."
^DIST(.403,38,20)="S PRCMSG="""" D ESIG^PRCUESIG(DUZ,.PRCMSG) S:PRCMSG'=1 DDSERROR=1"
^DIST(.403,38,40,0)="^.4031I^3^3"
^DIST(.403,38,40,1,0)="1^^1,1^"
^DIST(.403,38,40,1,1)="Page 1"
^DIST(.403,38,40,1,40,0)="^.4032IP^126^4"
^DIST(.403,38,40,1,40,123,0)="123^1^1,1^d"
^DIST(.403,38,40,1,40,124,0)="124^2^6,1^e"
^DIST(.403,38,40,1,40,125,0)="125^3^12,1^e"
^DIST(.403,38,40,1,40,125,2)="6"
^DIST(.403,38,40,1,40,126,0)="126^4^12,25^e"
^DIST(.403,38,40,1,40,126,2)="6"
^DIST(.403,38,40,1,40,"AC",1,123)=""
^DIST(.403,38,40,1,40,"AC",2,124)=""
^DIST(.403,38,40,1,40,"AC",3,125)=""
^DIST(.403,38,40,1,40,"AC",4,126)=""
^DIST(.403,38,40,1,40,"B",123,123)=""
^DIST(.403,38,40,1,40,"B",124,124)=""
^DIST(.403,38,40,1,40,"B",125,125)=""
^DIST(.403,38,40,1,40,"B",126,126)=""
^DIST(.403,38,40,2,0)="2^^5,1^^^1^17,79"
^DIST(.403,38,40,2,1)="Page 2"
^DIST(.403,38,40,2,15,0)="^^1^1^2960223^"
^DIST(.403,38,40,2,15,1,0)="Editing item information on vendor's quote."
^DIST(.403,38,40,2,40,0)="^.4032IP^127^1"
^DIST(.403,38,40,2,40,127,0)="127^1^2,2^e"
^DIST(.403,38,40,2,40,"AC",1,127)=""
^DIST(.403,38,40,2,40,"B",127,127)=""
^DIST(.403,38,40,3,0)="3^^10,5^^^1^14,75"
^DIST(.403,38,40,3,1)="Page 3"
^DIST(.403,38,40,3,15,0)="^^1^1^2960223^"
^DIST(.403,38,40,3,15,1,0)="Editing Vendor's proposed delivery schedule."
^DIST(.403,38,40,3,40,0)="^.4032IP^128^1"
^DIST(.403,38,40,3,40,128,0)="128^1^2,2^e"
^DIST(.403,38,40,3,40,"AC",1,128)=""
^DIST(.403,38,40,3,40,"B",128,128)=""
^DIST(.403,38,40,"B",1,1)=""
^DIST(.403,38,40,"B",2,2)=""
^DIST(.403,38,40,"B",3,3)=""
^DIST(.403,38,40,"C","PAGE 1",1)=""
^DIST(.403,38,40,"C","PAGE 2",2)=""
^DIST(.403,38,40,"C","PAGE 3",3)=""
^DIST(.403,38,"AY",1,0,0,"N")="1,125^1,124^1,124^1,126^1,124"
^DIST(.403,38,"AY",1,123)="0^0^444^^d^^^^0"
^DIST(.403,38,"AY",1,123,2,"D")="1^8^36^0^^^^^1"
^DIST(.403,38,"AY",1,123,3,"D")="1^55^12^0^^^^^1"
^DIST(.403,38,"AY",1,123,4,"D")="2^9^30^0^^^^^1"
^DIST(.403,38,"AY",1,123,5,"D")="2^56^9^0^^^^^1"
^DIST(.403,38,"AY",1,123,6,"D")="3^15^21^0^^^^^1"
^DIST(.403,38,"AY",1,123,7,"D")="3^55^21^0^^^^^1"
^DIST(.403,38,"AY",1,123,8,"D")="0^38^20^0^^^^^1"
^DIST(.403,38,"AY",1,124)="5^0^444.024^^e^^^^1"
^DIST(.403,38,"AY",1,124,1,"D")="5^16^30^1"
^DIST(.403,38,"AY",1,124,1,"N")="0^3^2^0^2"
^DIST(.403,38,"AY",1,124,2,"D")="5^65^11^2"
^DIST(.403,38,"AY",1,124,2,"N")="0^4^3^1^3"
^DIST(.403,38,"AY",1,124,3,"D")="6^19^20^3"
^DIST(.403,38,"AY",1,124,3,"N")="1^5^4^2^4"
^DIST(.403,38,"AY",1,124,4,"D")="6^51^30^10"
^DIST(.403,38,"AY",1,124,4,"N")="1^5^5^3^5"
^DIST(.403,38,"AY",1,124,5,"D")="7^15^30^4"
^DIST(.403,38,"AY",1,124,5,"N")="3^7^6^4^6"
^DIST(.403,38,"AY",1,124,6,"D")="7^57^16^5"
^DIST(.403,38,"AY",1,124,6,"N")="4^7^7^5^7"
^DIST(.403,38,"AY",1,124,7,"D")="8^5^11^6"
^DIST(.403,38,"AY",1,124,7,"N")="5^1,125^8^6^8"
^DIST(.403,38,"AY",1,124,8,"D")="8^63^7^7"
^DIST(.403,38,"AY",1,124,8,"N")="6^1,126^1,125^7^1,125"
^DIST(.403,38,"AY",1,125)="11^0^444.025^^e^^6^^1^1"
^DIST(.403,38,"AY",1,125,1,"D")="11^2^5^.01"
^DIST(.403,38,"AY",1,125,1,"N")="7,124^0^1,126^8,124^1,126^1,-1^1,+1^2^2,-1^2"
^DIST(.403,38,"AY",1,125,2,"D")="11^9^4^1"
^DIST(.403,38,"AY",1,125,2,"N")="7,124^0^1,126^1^1,126^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,38,"AY",1,126)="11^24^444.026^^e^^6^^1^1"
^DIST(.403,38,"AY",1,126,1,"D")="11^27^3^.01"
^DIST(.403,38,"AY",1,126,1,"N")="7,124^0^0^2,125^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,38,"AY",1,126,2,"D")="11^35^40^0^^^^^1"
^DIST(.403,38,"AY",1,126,2,"N")="^^0^^0"
^DIST(.403,38,"AY",1,"FIRST")="1,124"
^DIST(.403,38,"AY",2,0,0,"N")="19,127^1,127^1,127^20,127^1,127"
^DIST(.403,38,"AY",2,127)="5^1^444.026^^e^^^^1"
^DIST(.403,38,"AY",2,127,1,"D")="5^13^3^.01"
^DIST(.403,38,"AY",2,127,1,"N")="0^3^2^0^2"
^DIST(.403,38,"AY",2,127,2,"D")="5^56^22^1"
^DIST(.403,38,"AY",2,127,2,"N")="0^3^3^1^3"
^DIST(.403,38,"AY",2,127,3,"D")="6^17^1^1.5"
^DIST(.403,38,"AY",2,127,3,"N")="1^4^4^2^4^^^^^^1"
^DIST(.403,38,"AY",2,127,4,"D")="7^6^11^11"
^DIST(.403,38,"AY",2,127,4,"N")="3^6^5^3^5"
^DIST(.403,38,"AY",2,127,5,"D")="7^51^18^12"
^DIST(.403,38,"AY",2,127,5,"N")="3^6^6^4^6"
^DIST(.403,38,"AY",2,127,6,"D")="8^16^30^16"
^DIST(.403,38,"AY",2,127,6,"N")="4^8^7^5^7"
^DIST(.403,38,"AY",2,127,7,"D")="8^60^9^2"
^DIST(.403,38,"AY",2,127,7,"N")="5^9^8^6^8"
^DIST(.403,38,"AY",2,127,8,"D")="9^19^2^3"
^DIST(.403,38,"AY",2,127,8,"N")="6^10^9^7^9"
^DIST(.403,38,"AY",2,127,9,"D")="9^49^11^13"
^DIST(.403,38,"AY",2,127,9,"N")="6^10^10^8^10"
^DIST(.403,38,"AY",2,127,10,"D")="10^20^5^14"
^DIST(.403,38,"AY",2,127,10,"N")="8^12^11^9^11"
^DIST(.403,38,"AY",2,127,11,"D")="10^62^10^15"
^DIST(.403,38,"AY",2,127,11,"N")="9^13^12^10^12"
^DIST(.403,38,"AY",2,127,12,"D")="11^15^17^5"
^DIST(.403,38,"AY",2,127,12,"N")="10^14^13^11^13"
^DIST(.403,38,"AY",2,127,13,"D")="11^60^4^4"
^DIST(.403,38,"AY",2,127,13,"N")="10^15^14^12^14"
^DIST(.403,38,"AY",2,127,14,"D")="12^17^14^7"
^DIST(.403,38,"AY",2,127,14,"N")="12^16^15^13^15"
^DIST(.403,38,"AY",2,127,15,"D")="12^50^28^8"
^DIST(.403,38,"AY",2,127,15,"N")="12^17^16^14^16"
^DIST(.403,38,"AY",2,127,16,"D")="13^8^30^9"
^DIST(.403,38,"AY",2,127,16,"N")="14^18^17^15^17"
^DIST(.403,38,"AY",2,127,17,"D")="13^49^25^10"
^DIST(.403,38,"AY",2,127,17,"N")="14^18^18^16^18"
^DIST(.403,38,"AY",2,127,18,"D")="14^11^65^6"
^DIST(.403,38,"AY",2,127,18,"N")="16^19^19^17^19"
^DIST(.403,38,"AY",2,127,19,"D")="15^27^1^17"
^DIST(.403,38,"AY",2,127,19,"N")="18^0^20^18^20^^^^^^1"
^DIST(.403,38,"AY",2,127,20,"D")="15^52^9^18"
^DIST(.403,38,"AY",2,127,20,"N")="18^0^0^19^0"
^DIST(.403,38,"AY",2,"FIRST")="1,127"
^DIST(.403,38,"AY",3,0,0,"N")="3,128^1,128^1,128^4,128^1,128"
^DIST(.403,38,"AY",3,128)="10^5^444.027^^e^^^^1"
^DIST(.403,38,"AY",3,128,1,"D")="10^24^2^.01"
^DIST(.403,38,"AY",3,128,1,"N")="0^3^2^0^2"
^DIST(.403,38,"AY",3,128,2,"D")="10^45^11^1"
^DIST(.403,38,"AY",3,128,2,"N")="0^3^3^1^3"
^DIST(.403,38,"AY",3,128,3,"D")="11^15^9^2"
^DIST(.403,38,"AY",3,128,3,"N")="1^0^4^2^4"
^DIST(.403,38,"AY",3,128,4,"D")="11^57^2^3"
^DIST(.403,38,"AY",3,128,4,"N")="2^0^0^3^0"
^DIST(.403,38,"AY",3,"FIRST")="1,128"
^DIST(.403,38,"AY","CAP","DATE",3,3,128,2)=""
^DIST(.403,38,"AY","CAP","DELIVERY SCHEDULE",2,2,127,19)=""
^DIST(.403,38,"AY","CAP","DELIVERY SCHEDULE",3,3,128,1)=""
^DIST(.403,38,"AY","CAP","DESCRIPTION(W)",2,2,127,3)=""
^DIST(.403,38,"AY","CAP","EFFECTIVE DATE",1,1,124,2)=""
^DIST(.403,38,"AY","CAP","ESTIMATED S/H CHARGES",1,1,124,8)=""
^DIST(.403,38,"AY","CAP","FEDERAL SUPPLY CLASS",2,2,127,13)=""
^DIST(.403,38,"AY","CAP","FOB",1,1,124,7)=""
^DIST(.403,38,"AY","CAP","FOB",2,2,127,4)=""
^DIST(.403,38,"AY","CAP","GOVT CONT",1,1,124,4)=""
^DIST(.403,38,"AY","CAP","GOVT CONTRACT",2,2,127,6)=""
^DIST(.403,38,"AY","CAP","HAZMAT CODE",2,2,127,5)=""
^DIST(.403,38,"AY","CAP","LOT #",2,2,127,16)=""
^DIST(.403,38,"AY","CAP","MFG PART #",2,2,127,15)=""
^DIST(.403,38,"AY","CAP","NATL DRUG CODE",2,2,127,14)=""
^DIST(.403,38,"AY","CAP","NATL STOCK #",2,2,127,12)=""
^DIST(.403,38,"AY","CAP","NET LINE AMT",2,2,127,20)=""
^DIST(.403,38,"AY","CAP","PHONE #",1,1,124,6)=""
^DIST(.403,38,"AY","CAP","QUANTITY",2,2,127,7)=""
^DIST(.403,38,"AY","CAP","QUANTITY",3,3,128,3)=""
^DIST(.403,38,"AY","CAP","QUOTE CONTACT",1,1,124,5)=""
^DIST(.403,38,"AY","CAP","RECEIPT DATE/TIME",1,1,124,3)=""
^DIST(.403,38,"AY","CAP","RFQ LINE #",2,2,127,1)=""
^DIST(.403,38,"AY","CAP","SELLER'S REF #",1,1,124,1)=""
^DIST(.403,38,"AY","CAP","SERIAL #",2,2,127,17)=""
^DIST(.403,38,"AY","CAP","SIC CODE",2,2,127,18)=""
^DIST(.403,38,"AY","CAP","UNIT COST",2,2,127,9)=""
^DIST(.403,38,"AY","CAP","UNIT OF PURCHASE",2,2,127,8)=""
^DIST(.403,38,"AY","CAP","UNIT OF PURCHASE",3,3,128,4)=""
^DIST(.403,38,"AY","CAP","VENDOR'S PRODUCT #",2,2,127,2)=""
^DIST(.403,38,"AY","CAP","VOLUME DISCOUNT %",2,2,127,10)=""
^DIST(.403,38,"AY","CAP","VOLUME DISCOUNT AMOUNT",2,2,127,11)=""
^DIST(.403,38,"AY","COMPE",123,2)="S Y=PRCVN"
^DIST(.403,38,"AY","COMPE",123,3)="S Y=PRCVD"
^DIST(.403,38,"AY","COMPE",123,4)="S Y=PRCVC"
^DIST(.403,38,"AY","COMPE",123,5)="S Y=PRCVT"
^DIST(.403,38,"AY","COMPE",123,6)="S Y=PRCVP"
^DIST(.403,38,"AY","COMPE",123,7)="S Y=PRCVF"
^DIST(.403,38,"AY","COMPE",123,8)="S Y=PRCRFQ"
^DIST(.403,38,"AY","COMPE",126,2)="S Y=$$GET^DDSVAL(444.026,.DA,.01,"""",""E""),Y=$O(^PRC(444,PRCDA,2,""B"",Y,"""")) S Y=$S(Y]"""":$P($G(^PRC(444,PRCDA,2,Y,5)),U),1:""** No such Line # **"")"
^DIST(.403,38,"AY","F444",0,"L",1,123,2)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,3)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,4)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,5)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,6)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,7)=""
^DIST(.403,38,"AY","F444",0,"L",1,123,8)=""
^DIST(.403,38,"AY","F444.024",1,"L",1,124,1)=""
^DIST(.403,38,"AY","F444.024",2,"L",1,124,2)=""
^DIST(.403,38,"AY","F444.024",3,"L",1,124,3)=""
^DIST(.403,38,"AY","F444.024",4,"L",1,124,5)=""
^DIST(.403,38,"AY","F444.024",5,"L",1,124,6)=""
^DIST(.403,38,"AY","F444.024",6,"L",1,124,7)=""
^DIST(.403,38,"AY","F444.024",7,"L",1,124,8)=""
^DIST(.403,38,"AY","F444.024",10,"L",1,124,4)=""
^DIST(.403,38,"AY","F444.025",.01,"L",1,125,1)=""
^DIST(.403,38,"AY","F444.025",1,"L",1,125,2)=""
^DIST(.403,38,"AY","F444.026",0,"L",1,126,2)=""
^DIST(.403,38,"AY","F444.026",.01,"L",1,126,1)=""
^DIST(.403,38,"AY","F444.026",.01,"L",2,127,1)=""
^DIST(.403,38,"AY","F444.026",1,"L",2,127,2)=""
^DIST(.403,38,"AY","F444.026",1.5,"L",2,127,3)=""
^DIST(.403,38,"AY","F444.026",2,"L",2,127,7)=""
^DIST(.403,38,"AY","F444.026",3,"L",2,127,8)=""
^DIST(.403,38,"AY","F444.026",4,"L",2,127,13)=""
^DIST(.403,38,"AY","F444.026",5,"L",2,127,12)=""
^DIST(.403,38,"AY","F444.026",6,"L",2,127,18)=""
^DIST(.403,38,"AY","F444.026",7,"L",2,127,14)=""
^DIST(.403,38,"AY","F444.026",8,"L",2,127,15)=""
^DIST(.403,38,"AY","F444.026",9,"L",2,127,16)=""
^DIST(.403,38,"AY","F444.026",10,"L",2,127,17)=""
^DIST(.403,38,"AY","F444.026",11,"L",2,127,4)=""
^DIST(.403,38,"AY","F444.026",12,"L",2,127,5)=""
^DIST(.403,38,"AY","F444.026",13,"L",2,127,9)=""
^DIST(.403,38,"AY","F444.026",14,"L",2,127,10)=""
^DIST(.403,38,"AY","F444.026",15,"L",2,127,11)=""
^DIST(.403,38,"AY","F444.026",16,"L",2,127,6)=""
^DIST(.403,38,"AY","F444.026",17,"L",2,127,19)=""
^DIST(.403,38,"AY","F444.026",18,"L",2,127,20)=""
^DIST(.403,38,"AY","F444.027",.01,"L",3,128,1)=""
^DIST(.403,38,"AY","F444.027",1,"L",3,128,2)=""
^DIST(.403,38,"AY","F444.027",2,"L",3,128,3)=""
^DIST(.403,38,"AY","F444.027",3,"L",3,128,4)=""
^DIST(.403,38,"AY","X",1,0,18)="Vendor's Quote for"
^DIST(.403,38,"AY","X",1,1,0)="Vendor:                                         Dun #:"
^DIST(.403,38,"AY","X",1,2,0)="Contact:                                        Tax ID:"
^DIST(.403,38,"AY","X",1,3,0)="Voice Phone #:                                  Fax #:"
^DIST(.403,38,"AY","X",1,5,0)="Seller's Ref #:                                  Effective Date:"
^DIST(.403,38,"AY","X",1,5,0,"A")="1;14;U^50;63;U"
^DIST(.403,38,"AY","X",1,6,0)="Receipt Date/Time:                      Govt Cont:"
^DIST(.403,38,"AY","X",1,6,0,"A")="1;17;U"
^DIST(.403,38,"AY","X",1,7,0)="Quote Contact:                                  Phone #:"
^DIST(.403,38,"AY","X",1,8,0)="FOB:                                    Estimated S/H Charges:"
^DIST(.403,38,"AY","X",1,8,0,"A")="41;61;U"
^DIST(.403,38,"AY","X",1,9,0)="Prompt Pay Terms        RFQ Items"
^DIST(.403,38,"AY","X",1,10,2)="Term   Days             Line #   Description"
^DIST(.403,38,"AY","X",2,5,1)="RFQ Line #:                        Vendor's Product #:"
^DIST(.403,38,"AY","X",2,6,1)="Description(W):"
^DIST(.403,38,"AY","X",2,7,1)="FOB:                                 Hazmat Code:"
^DIST(.403,38,"AY","X",2,8,1)="Govt Contract:                                   Quantity:"
^DIST(.403,38,"AY","X",2,8,1,"A")="50;57;U"
^DIST(.403,38,"AY","X",2,9,1)="Unit of Purchase:                    Unit Cost:"
^DIST(.403,38,"AY","X",2,9,1,"A")="1;16;U^38;46;U"
^DIST(.403,38,"AY","X",2,10,1)="Volume Discount %:                   Volume Discount Amount:"
^DIST(.403,38,"AY","X",2,11,1)="Natl Stock #:                        Federal Supply Class:"
^DIST(.403,38,"AY","X",2,12,1)="Natl Drug Code:                      Mfg Part #:"
^DIST(.403,38,"AY","X",2,13,1)="Lot #:                                Serial #:"
^DIST(.403,38,"AY","X",2,14,1)="SIC Code:"
^DIST(.403,38,"AY","X",2,15,1)="Select Delivery Schedule:            Net Line Amt:"
^DIST(.403,38,"AY","X",3,10,5)="Delivery Schedule:                Date:"
^DIST(.403,38,"AY","X",3,10,5,"A")="35;38;U"
^DIST(.403,38,"AY","X",3,11,5)="Quantity:                         Unit of Purchase:"
^DIST(.403,38,"AY","X",3,11,5,"A")="1;8;U^35;50;U"
^DIST(.403,39,0)="PRCHQ3^@^@^^2960221.1406^^^444.1^0^0^1"
^DIST(.403,39,11)=""
^DIST(.403,39,40,0)="^.4031I^2^2"
^DIST(.403,39,40,1,0)="1^^1,1^2"
^DIST(.403,39,40,1,1)="Page 1"
^DIST(.403,39,40,1,40,0)="^.4032IP^119^1"
^DIST(.403,39,40,1,40,119,0)="119^1^1,1^e"
^DIST(.403,39,40,1,40,"AC",1,119)=""
^DIST(.403,39,40,1,40,"B",119,119)=""
^DIST(.403,39,40,2,0)="2^^1,1"
^DIST(.403,39,40,2,1)="Page 2"
^DIST(.403,39,40,2,40,0)="^.4032IP^122^3"
^DIST(.403,39,40,2,40,120,0)="120^1^1,1^e"
^DIST(.403,39,40,2,40,121,0)="121^2^14,1^e"
^DIST(.403,39,40,2,40,121,2)="4"
^DIST(.403,39,40,2,40,122,0)="122^3^14,39^e"
^DIST(.403,39,40,2,40,122,2)="4"
^DIST(.403,39,40,2,40,"AC",1,120)=""
^DIST(.403,39,40,2,40,"AC",2,121)=""
^DIST(.403,39,40,2,40,"AC",3,122)=""
^DIST(.403,39,40,2,40,"B",120,120)=""
^DIST(.403,39,40,2,40,"B",121,121)=""
^DIST(.403,39,40,2,40,"B",122,122)=""
^DIST(.403,39,40,"B",1,1)=""
^DIST(.403,39,40,"B",2,2)=""
^DIST(.403,39,40,"C","PAGE 1",1)=""
^DIST(.403,39,40,"C","PAGE 2",2)=""
^DIST(.403,39,"AY",1,0,0,"N")="15,119^2,119^2,119^15,119^2,119"
^DIST(.403,39,"AY",1,119)="0^0^444.1^^e^^^^2"
^DIST(.403,39,"AY",1,119,2,"D")="2^14^36^.01"
^DIST(.403,39,"AY",1,119,2,"N")="0^3^3^0^3"
^DIST(.403,39,"AY",1,119,3,"D")="3^8^12^18.3"
^DIST(.403,39,"AY",1,119,3,"N")="2^5^4^2^4"
^DIST(.403,39,"AY",1,119,4,"D")="3^50^9^38"
^DIST(.403,39,"AY",1,119,4,"N")="2^5^5^3^5"
^DIST(.403,39,"AY",1,119,5,"D")="4^10^30^4.8"
^DIST(.403,39,"AY",1,119,5,"N")="3^6^6^4^6"
^DIST(.403,39,"AY",1,119,6,"D")="5^16^21^5"
^DIST(.403,39,"AY",1,119,6,"N")="5^9^7^5^7"
^DIST(.403,39,"AY",1,119,7,"D")="5^45^21^46"
^DIST(.403,39,"AY",1,119,7,"N")="5^9^9^6^9"
^DIST(.403,39,"AY",1,119,9,"D")="7^14^33^1"
^DIST(.403,39,"AY",1,119,9,"N")="6^10^10^7^10"
^DIST(.403,39,"AY",1,119,10,"D")="8^14^33^2"
^DIST(.403,39,"AY",1,119,10,"N")="9^11^11^9^11"
^DIST(.403,39,"AY",1,119,11,"D")="9^14^25^3"
^DIST(.403,39,"AY",1,119,11,"N")="10^12^12^10^12"
^DIST(.403,39,"AY",1,119,12,"D")="10^14^25^4"
^DIST(.403,39,"AY",1,119,12,"N")="11^13^13^11^13"
^DIST(.403,39,"AY",1,119,13,"D")="11^11^20^4.2"
^DIST(.403,39,"AY",1,119,13,"N")="12^14^14^12^14"
^DIST(.403,39,"AY",1,119,14,"D")="12^12^30^4.4"
^DIST(.403,39,"AY",1,119,14,"N")="13^15^15^13^15"
^DIST(.403,39,"AY",1,119,15,"D")="13^15^10^4.6"
^DIST(.403,39,"AY",1,119,15,"N")="14^0^0^14^0"
^DIST(.403,39,"AY",1,"FIRST")="2,119"
^DIST(.403,39,"AY",2,0,0,"N")="1,121^2,120^2,120^1,122^2,120"
^DIST(.403,39,"AY",2,120)="0^0^444.1^^e^^^^2"
^DIST(.403,39,"AY",2,120,2,"D")="1^9^36^.01"
^DIST(.403,39,"AY",2,120,2,"N")="0^5^5^0^5"
^DIST(.403,39,"AY",2,120,5,"D")="3^13^35^17.1"
^DIST(.403,39,"AY",2,120,5,"N")="2^6^6^2^6"
^DIST(.403,39,"AY",2,120,6,"D")="4^13^35^17.15"
^DIST(.403,39,"AY",2,120,6,"N")="5^7^7^5^7"
^DIST(.403,39,"AY",2,120,7,"D")="5^14^35^17.3"
^DIST(.403,39,"AY",2,120,7,"N")="6^8^8^6^8"
^DIST(.403,39,"AY",2,120,8,"D")="6^14^35^17.4"
^DIST(.403,39,"AY",2,120,8,"N")="7^9^9^7^9"
^DIST(.403,39,"AY",2,120,9,"D")="7^14^35^17.5"
^DIST(.403,39,"AY",2,120,9,"N")="8^10^10^8^10"
^DIST(.403,39,"AY",2,120,10,"D")="8^11^30^17.7"
^DIST(.403,39,"AY",2,120,10,"N")="9^11^11^9^11"
^DIST(.403,39,"AY",2,120,11,"D")="9^12^30^17.8"
^DIST(.403,39,"AY",2,120,11,"N")="10^12^12^10^12"
^DIST(.403,39,"AY",2,120,12,"D")="10^15^10^17.9"
^DIST(.403,39,"AY",2,120,12,"N")="11^13^13^11^13"
^DIST(.403,39,"AY",2,120,13,"D")="11^16^16^8.3"
^DIST(.403,39,"AY",2,120,13,"N")="12^1,121^1,121^12^1,121"
^DIST(.403,39,"AY",2,121)="13^0^444.19^^e^^4^^1^1"
^DIST(.403,39,"AY",2,121,1,"D")="13^3^30^.01"
^DIST(.403,39,"AY",2,121,1,"N")="13,120^0^1,122^13,120^1,122^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,39,"AY",2,122)="13^38^444.11^^e^^4^^1^1"
^DIST(.403,39,"AY",2,122,1,"D")="13^40^30^.01"
^DIST(.403,39,"AY",2,122,1,"N")="13,120^0^0^1,121^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,39,"AY",2,"FIRST")="2,120"
^DIST(.403,39,"AY","CAP","BUSINESS TYPE","1^2",2,120,13)=""
^DIST(.403,39,"AY","CAP","CITY","1^2",1,119,13)=""
^DIST(.403,39,"AY","CAP","CITY","1^2",2,120,10)=""
^DIST(.403,39,"AY","CAP","CONTACT","1^2",1,119,5)=""
^DIST(.403,39,"AY","CAP","DUN #","1^2",1,119,3)=""
^DIST(.403,39,"AY","CAP","FAX #","1^2",1,119,7)=""
^DIST(.403,39,"AY","CAP","LINE #1","1^2",1,119,9)=""
^DIST(.403,39,"AY","CAP","LINE #1","1^2",2,120,7)=""
^DIST(.403,39,"AY","CAP","LINE #2","1^2",1,119,10)=""
^DIST(.403,39,"AY","CAP","LINE #2","1^2",2,120,8)=""
^DIST(.403,39,"AY","CAP","LINE #3","1^2",1,119,11)=""
^DIST(.403,39,"AY","CAP","LINE #3","1^2",2,120,9)=""
^DIST(.403,39,"AY","CAP","LINE #4","1^2",1,119,12)=""
^DIST(.403,39,"AY","CAP","NAME 1","1^2",2,120,5)=""
^DIST(.403,39,"AY","CAP","NAME 2","1^2",2,120,6)=""
^DIST(.403,39,"AY","CAP","STATE","1^2",1,119,14)=""
^DIST(.403,39,"AY","CAP","STATE","1^2",2,120,11)=""
^DIST(.403,39,"AY","CAP","TAX ID/SSN","1^2",1,119,4)=""
^DIST(.403,39,"AY","CAP","VENDOR","1^2",2,120,2)=""
^DIST(.403,39,"AY","CAP","VENDOR NAME","1^2",1,119,2)=""
^DIST(.403,39,"AY","CAP","VOICE PHONE #","1^2",1,119,6)=""
^DIST(.403,39,"AY","CAP","ZIP CODE","1^2",1,119,15)=""
^DIST(.403,39,"AY","CAP","ZIP CODE","1^2",2,120,12)=""
^DIST(.403,39,"AY","F444.1",.01,"L",1,119,2)=""
^DIST(.403,39,"AY","F444.1",.01,"L",2,120,2)=""
^DIST(.403,39,"AY","F444.1",1,"L",1,119,9)=""
^DIST(.403,39,"AY","F444.1",2,"L",1,119,10)=""
^DIST(.403,39,"AY","F444.1",3,"L",1,119,11)=""
^DIST(.403,39,"AY","F444.1",4,"L",1,119,12)=""
^DIST(.403,39,"AY","F444.1",4.2,"L",1,119,13)=""
^DIST(.403,39,"AY","F444.1",4.4,"L",1,119,14)=""
^DIST(.403,39,"AY","F444.1",4.6,"L",1,119,15)=""
^DIST(.403,39,"AY","F444.1",4.8,"L",1,119,5)=""
^DIST(.403,39,"AY","F444.1",5,"L",1,119,6)=""
^DIST(.403,39,"AY","F444.1",8.3,"L",2,120,13)=""
^DIST(.403,39,"AY","F444.1",17.1,"L",2,120,5)=""
^DIST(.403,39,"AY","F444.1",17.15,"L",2,120,6)=""
^DIST(.403,39,"AY","F444.1",17.3,"L",2,120,7)=""
^DIST(.403,39,"AY","F444.1",17.4,"L",2,120,8)=""
^DIST(.403,39,"AY","F444.1",17.5,"L",2,120,9)=""
^DIST(.403,39,"AY","F444.1",17.7,"L",2,120,10)=""
^DIST(.403,39,"AY","F444.1",17.8,"L",2,120,11)=""
^DIST(.403,39,"AY","F444.1",17.9,"L",2,120,12)=""
^DIST(.403,39,"AY","F444.1",18.3,"L",1,119,3)=""
^DIST(.403,39,"AY","F444.1",38,"L",1,119,4)=""
^DIST(.403,39,"AY","F444.1",46,"L",1,119,7)=""
^DIST(.403,39,"AY","F444.11",.01,"L",2,122,1)=""
^DIST(.403,39,"AY","F444.19",.01,"L",2,121,1)=""
^DIST(.403,39,"AY","X",1,0,27)="RFQ Temporary Vendor"
^DIST(.403,39,"AY","X",1,2,1)="Vendor Name:"
^DIST(.403,39,"AY","X",1,2,1,"A")="1;11;U"
^DIST(.403,39,"AY","X",1,3,1)="Dun #:                               Tax ID/SSN:"
^DIST(.403,39,"AY","X",1,4,1)="Contact:"
^DIST(.403,39,"AY","X",1,5,1)="Voice Phone #:                       Fax #:"
^DIST(.403,39,"AY","X",1,6,1)="Order Address"
^DIST(.403,39,"AY","X",1,7,5)="Line #1:"
^DIST(.403,39,"AY","X",1,7,5,"A")="1;7;U"
^DIST(.403,39,"AY","X",1,8,5)="Line #2:"
^DIST(.403,39,"AY","X",1,9,5)="Line #3:"
^DIST(.403,39,"AY","X",1,10,5)="Line #4:"
^DIST(.403,39,"AY","X",1,11,5)="City:"
^DIST(.403,39,"AY","X",1,11,5,"A")="1;4;U"
^DIST(.403,39,"AY","X",1,12,5)="State:"
^DIST(.403,39,"AY","X",1,12,5,"A")="1;5;U"
^DIST(.403,39,"AY","X",1,13,5)="Zip Code:"
^DIST(.403,39,"AY","X",2,0,27)="RFQ Temporary Vendor"
^DIST(.403,39,"AY","X",2,1,1)="Vendor:                                       (Continued)"
^DIST(.403,39,"AY","X",2,1,1,"A")="1;6;U"
^DIST(.403,39,"AY","X",2,2,1)="Payment Address"
^DIST(.403,39,"AY","X",2,3,5)="Name 1:"
^DIST(.403,39,"AY","X",2,4,5)="Name 2:"
^DIST(.403,39,"AY","X",2,5,5)="Line #1:"
^DIST(.403,39,"AY","X",2,6,5)="Line #2:"
^DIST(.403,39,"AY","X",2,7,5)="Line #3:"
^DIST(.403,39,"AY","X",2,8,5)="City:"
^DIST(.403,39,"AY","X",2,9,5)="State:"
^DIST(.403,39,"AY","X",2,10,5)="Zip Code:"
^DIST(.403,39,"AY","X",2,11,1)="Business Type:"
^DIST(.403,39,"AY","X",2,12,1)="Type of Ownership                    Socio-economic Group"
^DIST(.403,40,0)="PRCHQ4^@^@^^2960305.1353^^^444^0^0^1"
^DIST(.403,40,14)="D NOW^%DTC I $D(PRCDA),$D(PRCDA2),$D(^PRC(444,PRCDA,7,PRCDA2,0)) S $P(^(0),U,10,11)=DUZ_U_%"
^DIST(.403,40,15,0)="^^1^1^2960906^"
^DIST(.403,40,15,1,0)="This form enables the user to enter the 864 Text Message and Addressees."
^DIST(.403,40,20)=""
^DIST(.403,40,40,0)="^.4031I^2^2"
^DIST(.403,40,40,1,0)="1^^1,1"
^DIST(.403,40,40,1,1)="Page 1"
^DIST(.403,40,40,1,40,0)="^.4032IP^131^3"
^DIST(.403,40,40,1,40,129,0)="129^1^1,1^d"
^DIST(.403,40,40,1,40,130,0)="130^2^3,1^e"
^DIST(.403,40,40,1,40,131,0)="131^3^8,11^e"
^DIST(.403,40,40,1,40,131,2)="9"
^DIST(.403,40,40,1,40,"AC",1,129)=""
^DIST(.403,40,40,1,40,"AC",2,130)=""
^DIST(.403,40,40,1,40,"AC",3,131)=""
^DIST(.403,40,40,1,40,"B",129,129)=""
^DIST(.403,40,40,1,40,"B",130,130)=""
^DIST(.403,40,40,1,40,"B",131,131)=""
^DIST(.403,40,40,2,0)="2^^1,1"
^DIST(.403,40,40,2,1)="Page 2"
^DIST(.403,40,40,2,40,0)="^.4032IP^132^1"
^DIST(.403,40,40,2,40,132,0)="132^1^1,1^e"
^DIST(.403,40,40,2,40,132,1)="21:11:.01"
^DIST(.403,40,40,2,40,"AC",1,132)=""
^DIST(.403,40,40,2,40,"B",132,132)=""
^DIST(.403,40,40,"B",1,1)=""
^DIST(.403,40,40,"B",2,2)=""
^DIST(.403,40,40,"C","PAGE 1",1)=""
^DIST(.403,40,40,"C","PAGE 2",2)=""
^DIST(.403,40,"AY",1,0,0,"N")="1,131^2,130^2,130^1,131^2,130"
^DIST(.403,40,"AY",1,129)="0^0^444^^d^^^^0"
^DIST(.403,40,"AY",1,129,1,"D")="^^^^0^16^^0"
^DIST(.403,40,"AY",1,130)="2^0^444.021^^e^^^^2"
^DIST(.403,40,"AY",1,130,2,"D")="3^0^79^9"
^DIST(.403,40,"AY",1,130,2,"N")="0^3^3^0^3"
^DIST(.403,40,"AY",1,130,3,"D")="4^9^1^10"
^DIST(.403,40,"AY",1,130,3,"N")="2^4^6^2^6^^^^^^1"
^DIST(.403,40,"AY",1,130,4,"D")="5^21^3^12"
^DIST(.403,40,"AY",1,130,4,"N")="3^1,131^1,131^6^1,131"
^DIST(.403,40,"AY",1,130,6,"D")="4^52^21^8"
^DIST(.403,40,"AY",1,130,6,"N")="2^4^4^3^4"
^DIST(.403,40,"AY",1,131)="7^10^444.022^^e^^9^^1^1"
^DIST(.403,40,"AY",1,131,1,"D")="7^10^36^.01"
^DIST(.403,40,"AY",1,131,1,"N")="4,130^0^0^4,130^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,40,"AY",1,"FIRST")="2,130"
^DIST(.403,40,"AY",2,0,0,"N")="3,132^2,132^2,132^3,132^2,132"
^DIST(.403,40,"AY",2,132)="0^0^444.1^^e^^^1^2"
^DIST(.403,40,"AY",2,132,2,"D")="2^13^36^.01"
^DIST(.403,40,"AY",2,132,2,"N")="0^3^3^0^3"
^DIST(.403,40,"AY",2,132,3,"D")="3^20^12^18.3"
^DIST(.403,40,"AY",2,132,3,"N")="2^0^0^2^0"
^DIST(.403,40,"AY",2,132,"PTB")="444.022,.01"
^DIST(.403,40,"AY",2,132,"PTB",1)="S X=+$$GET^DDSVAL(444.022,.DA,.01),DA=X"
^DIST(.403,40,"AY",2,"FIRST")="2,132"
^DIST(.403,40,"AY","CAP","DUN & BRADSTREET #",2,2,132,3)=""
^DIST(.403,40,"AY","CAP","MESSAGE DESCRIPTION",1,1,130,2)=""
^DIST(.403,40,"AY","CAP","PUBLIC TRANSMISSION",1,1,130,4)=""
^DIST(.403,40,"AY","CAP","TEXT(W)",1,1,130,3)=""
^DIST(.403,40,"AY","CAP","VENDOR NAME",2,2,132,2)=""
^DIST(.403,40,"AY","CAP","YOUR COMMERCIAL PHONE #",1,1,130,6)=""
^DIST(.403,40,"AY","F444.021",8,"L",1,130,6)=""
^DIST(.403,40,"AY","F444.021",9,"L",1,130,2)=""
^DIST(.403,40,"AY","F444.021",10,"L",1,130,3)=""
^DIST(.403,40,"AY","F444.021",12,"L",1,130,4)=""
^DIST(.403,40,"AY","F444.022",.01,"L",1,131,1)=""
^DIST(.403,40,"AY","F444.1",.01,"L",2,132,2)=""
^DIST(.403,40,"AY","F444.1",18.3,"L",2,132,3)=""
^DIST(.403,40,"AY","PT",444.022,.01,2,132)=""
^DIST(.403,40,"AY","X",1,2,0)="Message Description:"
^DIST(.403,40,"AY","X",1,2,0,"A")="1;19;U"
^DIST(.403,40,"AY","X",1,4,0)="Text(W):                   Your Commercial Phone #:"
^DIST(.403,40,"AY","X",1,4,0,"A")="1;7;U^28;50;U"
^DIST(.403,40,"AY","X",1,5,0)="Public Transmission:"
^DIST(.403,40,"AY","X",1,5,0,"A")="1;19;U"
^DIST(.403,40,"AY","X",1,6,0)="Explicit Recipients:"
^DIST(.403,40,"AY","X",2,0,19)="RFQ Temporary Vendor File Entry"
^DIST(.403,40,"AY","X",2,2,0)="Vendor Name:"
^DIST(.403,40,"AY","X",2,2,0,"A")="1;11;U"
^DIST(.403,40,"AY","X",2,3,0)="Dun & Bradstreet #:"
^DIST(.403,40,"AY","X",2,3,0,"A")="1;18;U"
^DIST(.403,41,0)="PRCHQ5^@^@^^2960416.162^^^444^0^0^1"
^DIST(.403,41,11)="D BLDAR^PRCHQ13(DA)"
^DIST(.403,41,12)="K ^TMP($J,""VB""),^TMP($J,""VC"")"
^DIST(.403,41,20)="S PRCMSG="""" D ESIG^PRCUESIG(DUZ,.PRCMSG) S:PRCMSG'=1 DDSERROR=1"
^DIST(.403,41,40,0)="^.4031I^1^1"
^DIST(.403,41,40,1,0)="1^^1,1"
^DIST(.403,41,40,1,1)="Page 1"
^DIST(.403,41,40,1,40,0)="^.4032IP^135^3"
^DIST(.403,41,40,1,40,133,0)="133^1^1,1^d"
^DIST(.403,41,40,1,40,134,0)="134^2^5,1^e"
^DIST(.403,41,40,1,40,134,2)="12^^^1"
^DIST(.403,41,40,1,40,135,0)="135^3^17,1^e"
^DIST(.403,41,40,1,40,"AC",1,133)=""
^DIST(.403,41,40,1,40,"AC",2,134)=""
^DIST(.403,41,40,1,40,"AC",3,135)=""
^DIST(.403,41,40,1,40,"B",133,133)=""
^DIST(.403,41,40,1,40,"B",134,134)=""
^DIST(.403,41,40,1,40,"B",135,135)=""
^DIST(.403,41,40,"B",1,1)=""
^DIST(.403,41,40,"C","PAGE 1",1)=""
^DIST(.403,41,"AY",1,0,0,"N")="1,135^1,134^1,134^1,135^1,134"
^DIST(.403,41,"AY",1,133)="0^0^444^^d^^^^0"
^DIST(.403,41,"AY",1,133,2,"D")="1^9^20^.01"
^DIST(.403,41,"AY",1,133,3,"D")="1^47^19^7"
^DIST(.403,41,"AY",1,133,4,"D")="2^21^17^2"
^DIST(.403,41,"AY",1,133,5,"D")="2^57^20^7.5"
^DIST(.403,41,"AY",1,134)="4^0^444.019^^e^^12^^1^1"
^DIST(.403,41,"AY",1,134,1,"D")="4^1^3^.01"
^DIST(.403,41,"AY",1,134,1,"N")="0^1,135^1,135^0^1,135^1,-1^1,+1^2^4,-1^2"
^DIST(.403,41,"AY",1,134,2,"D")="4^8^30^1.6"
^DIST(.403,41,"AY",1,134,2,"N")="0^1,135^1,135^1^1,135^2,-1^2,+1^3^1^3"
^DIST(.403,41,"AY",1,134,3,"D")="4^41^5^23"
^DIST(.403,41,"AY",1,134,3,"N")="0^1,135^1,135^2^1,135^3,-1^3,+1^4^2^4"
^DIST(.403,41,"AY",1,134,4,"D")="4^48^30^17"
^DIST(.403,41,"AY",1,134,4,"N")="0^1,135^1,135^3^1,135^4,-1^4,+1^1,+1^3^1,+1"
^DIST(.403,41,"AY",1,135)="16^0^444^^e^^^^1"
^DIST(.403,41,"AY",1,135,1,"D")="16^18^1^18"
^DIST(.403,41,"AY",1,135,1,"N")="1,134^0^0^4,134^0^^^^^^1"
^DIST(.403,41,"AY",1,"FIRST")="1,134"
^DIST(.403,41,"AY","CAP","JUSTIFICATION(W)",1,1,135,1)=""
^DIST(.403,41,"AY","F444",.01,"L",1,133,2)=""
^DIST(.403,41,"AY","F444",2,"L",1,133,4)=""
^DIST(.403,41,"AY","F444",7,"L",1,133,3)=""
^DIST(.403,41,"AY","F444",7.5,"L",1,133,5)=""
^DIST(.403,41,"AY","F444",18,"L",1,135,1)=""
^DIST(.403,41,"AY","F444.019",.01,"L",1,134,1)=""
^DIST(.403,41,"AY","F444.019",1.6,"L",1,134,2)=""
^DIST(.403,41,"AY","F444.019",17,"L",1,134,4)=""
^DIST(.403,41,"AY","F444.019",23,"L",1,134,3)=""
^DIST(.403,41,"AY","X",1,0,18)="Evaluation on Request for Quotation"
^DIST(.403,41,"AY","X",1,1,0)="RFQ NBR:                               Status:"
^DIST(.403,41,"AY","X",1,1,0,"A")="1;7;U^40;45;U"
^DIST(.403,41,"AY","X",1,2,0)="Quote Due Date/Time:                   Closed Date/Time:"
^DIST(.403,41,"AY","X",1,2,0,"A")="1;19;U"
^DIST(.403,41,"AY","X",1,3,0)="Line #  Item Description (Short)         Selected Quote/Vendor"
^DIST(.403,41,"AY","X",1,16,0)="Justification(W):"
^DIST(.403,42,0)="SPNLP FUN MES^@^@^^2960723.1058^^^154.1^0^0^1"
^DIST(.403,42,40,0)="^.4031I^3^3"
^DIST(.403,42,40,1,0)="1^^1,1^2"
^DIST(.403,42,40,1,1)="Page 1"
^DIST(.403,42,40,1,40,0)="^.4032IP^161^3"
^DIST(.403,42,40,1,40,145,0)="145^2^1,1^d"
^DIST(.403,42,40,1,40,146,0)="146^3^4,1^e"
^DIST(.403,42,40,1,40,161,0)="161^4^1,1^d"
^DIST(.403,42,40,1,40,"AC",2,145)=""
^DIST(.403,42,40,1,40,"AC",3,146)=""
^DIST(.403,42,40,1,40,"AC",4,161)=""
^DIST(.403,42,40,1,40,"B",145,145)=""
^DIST(.403,42,40,1,40,"B",146,146)=""
^DIST(.403,42,40,1,40,"B",161,161)=""
^DIST(.403,42,40,2,0)="2^145^1,1^3^1"
^DIST(.403,42,40,2,1)="Page 2"
^DIST(.403,42,40,2,40,0)="^.4032IP^148^2"
^DIST(.403,42,40,2,40,147,0)="147^1^1,1^d"
^DIST(.403,42,40,2,40,148,0)="148^2^4,1^e"
^DIST(.403,42,40,2,40,"AC",1,147)=""
^DIST(.403,42,40,2,40,"AC",2,148)=""
^DIST(.403,42,40,2,40,"B",147,147)=""
^DIST(.403,42,40,2,40,"B",148,148)=""
^DIST(.403,42,40,3,0)="3^145^1,1^^2"
^DIST(.403,42,40,3,1)="Page 3"
^DIST(.403,42,40,3,40,0)="^.4032IP^150^2"
^DIST(.403,42,40,3,40,149,0)="149^1^1,1^d"
^DIST(.403,42,40,3,40,150,0)="150^2^4,1^e"
^DIST(.403,42,40,3,40,"AC",1,149)=""
^DIST(.403,42,40,3,40,"AC",2,150)=""
^DIST(.403,42,40,3,40,"B",149,149)=""
^DIST(.403,42,40,3,40,"B",150,150)=""
^DIST(.403,42,40,"B",1,1)=""
^DIST(.403,42,40,"B",2,2)=""
^DIST(.403,42,40,"B",3,3)=""
^DIST(.403,42,40,"C","PAGE 1",1)=""
^DIST(.403,42,40,"C","PAGE 2",2)=""
^DIST(.403,42,40,"C","PAGE 3",3)=""
^DIST(.403,42,"AY",1,0,0,"N")="19,146^23,146^23,146^19,146^23,146"
^DIST(.403,42,"AY",1,145)="0^0^154.1^^d^^^^0"
^DIST(.403,42,"AY",1,145,1,"D")="1^9^30^.01"
^DIST(.403,42,"AY",1,145,2,"D")="^^^^1^40^^0"
^DIST(.403,42,"AY",1,145,3,"D")="^^^^1^58^^0"
^DIST(.403,42,"AY",1,146)="3^0^154.1^^e^^^^23"
^DIST(.403,42,"AY",1,146,2,"D")="6^27^9^.03"
^DIST(.403,42,"AY",1,146,2,"N")="23^7^7^23^7"
^DIST(.403,42,"AY",1,146,7,"D")="10^27^13^.16"
^DIST(.403,42,"AY",1,146,7,"N")="2^9^8^2^8"
^DIST(.403,42,"AY",1,146,8,"D")="10^63^13^.17"
^DIST(.403,42,"AY",1,146,8,"N")="2^10^9^7^9"
^DIST(.403,42,"AY",1,146,9,"D")="11^27^13^.13"
^DIST(.403,42,"AY",1,146,9,"N")="7^11^10^8^10"
^DIST(.403,42,"AY",1,146,10,"D")="11^63^13^.14"
^DIST(.403,42,"AY",1,146,10,"N")="8^12^11^9^11"
^DIST(.403,42,"AY",1,146,11,"D")="12^27^13^.15"
^DIST(.403,42,"AY",1,146,11,"N")="9^13^12^10^12"
^DIST(.403,42,"AY",1,146,12,"D")="12^63^13^.05"
^DIST(.403,42,"AY",1,146,12,"N")="10^14^13^11^13"
^DIST(.403,42,"AY",1,146,13,"D")="13^27^13^.06"
^DIST(.403,42,"AY",1,146,13,"N")="11^15^14^12^14"
^DIST(.403,42,"AY",1,146,14,"D")="13^63^13^.07"
^DIST(.403,42,"AY",1,146,14,"N")="12^16^15^13^15"
^DIST(.403,42,"AY",1,146,15,"D")="14^27^13^.08"
^DIST(.403,42,"AY",1,146,15,"N")="13^17^16^14^16"
^DIST(.403,42,"AY",1,146,16,"D")="14^63^13^.09"
^DIST(.403,42,"AY",1,146,16,"N")="14^18^17^15^17"
^DIST(.403,42,"AY",1,146,17,"D")="15^27^13^.1"
^DIST(.403,42,"AY",1,146,17,"N")="15^19^18^16^18"
^DIST(.403,42,"AY",1,146,18,"D")="15^63^13^.11"
^DIST(.403,42,"AY",1,146,18,"N")="16^19^19^17^19"
^DIST(.403,42,"AY",1,146,19,"D")="16^27^13^.12"
^DIST(.403,42,"AY",1,146,19,"N")="17^0^0^18^0"
^DIST(.403,42,"AY",1,146,22,"D")="^^^^4^25^^0"
^DIST(.403,42,"AY",1,146,23,"D")="5^49^30^.024"
^DIST(.403,42,"AY",1,146,23,"N")="0^2^2^0^2"
^DIST(.403,42,"AY",1,146,24,"D")="^^^^3^9^^0"
^DIST(.403,42,"AY",1,146,25,"D")="^^^^3^40^^0"
^DIST(.403,42,"AY",1,146,26,"D")="^^^^5^0^^0"
^DIST(.403,42,"AY",1,161)="0^0^154.1^^d^^^^0"
^DIST(.403,42,"AY",1,"FIRST")="23,146"
^DIST(.403,42,"AY",2,0,0,"N")="8,148^4,148^4,148^8,148^4,148"
^DIST(.403,42,"AY",2,145)="0^0^154.1^^h"
^DIST(.403,42,"AY",2,145,1,"D")="1^9^30^.01"
^DIST(.403,42,"AY",2,145,2,"D")="^^^^1^40^^0"
^DIST(.403,42,"AY",2,145,3,"D")="^^^^1^58^^0"
^DIST(.403,42,"AY",2,147)="0^0^154.1^^d^^^^0"
^DIST(.403,42,"AY",2,148)="3^0^154.1^^e^^^^4"
^DIST(.403,42,"AY",2,148,4,"D")="8^40^12^2.01"
^DIST(.403,42,"AY",2,148,4,"N")="0^5^5^0^5"
^DIST(.403,42,"AY",2,148,5,"D")="9^40^12^2.02"
^DIST(.403,42,"AY",2,148,5,"N")="4^6^6^4^6"
^DIST(.403,42,"AY",2,148,6,"D")="10^40^12^2.03"
^DIST(.403,42,"AY",2,148,6,"N")="5^7^7^5^7"
^DIST(.403,42,"AY",2,148,7,"D")="11^40^12^2.04"
^DIST(.403,42,"AY",2,148,7,"N")="6^8^8^6^8"
^DIST(.403,42,"AY",2,148,8,"D")="12^40^12^2.05"
^DIST(.403,42,"AY",2,148,8,"N")="7^0^0^7^0"
^DIST(.403,42,"AY",2,148,9,"D")="^^^^3^0^^0"
^DIST(.403,42,"AY",2,"FIRST")="4,148"
^DIST(.403,42,"AY",3,0,0,"N")="13,150^1,150^1,150^13,150^1,150"
^DIST(.403,42,"AY",3,145)="0^0^154.1^^h"
^DIST(.403,42,"AY",3,145,1,"D")="1^9^30^.01"
^DIST(.403,42,"AY",3,145,2,"D")="^^^^1^40^^0"
^DIST(.403,42,"AY",3,145,3,"D")="^^^^1^58^^0"
^DIST(.403,42,"AY",3,149)="0^0^154.1^^d^^^^0"
^DIST(.403,42,"AY",3,150)="3^0^154.1^^e^^^^1"
^DIST(.403,42,"AY",3,150,1,"D")="4^44^3^2.08"
^DIST(.403,42,"AY",3,150,1,"N")="0^2^2^0^2"
^DIST(.403,42,"AY",3,150,2,"D")="5^44^3^2.09"
^DIST(.403,42,"AY",3,150,2,"N")="1^3^3^1^3"
^DIST(.403,42,"AY",3,150,3,"D")="6^44^2^2.13"
^DIST(.403,42,"AY",3,150,3,"N")="2^8^8^2^8"
^DIST(.403,42,"AY",3,150,8,"D")="11^44^12^2.06"
^DIST(.403,42,"AY",3,150,8,"N")="3^13^13^3^13"
^DIST(.403,42,"AY",3,150,13,"D")="16^44^18^2.07"
^DIST(.403,42,"AY",3,150,13,"N")="8^0^0^8^0"
^DIST(.403,42,"AY",3,150,14,"D")="^^^^3^0^^0"
^DIST(.403,42,"AY",3,"FIRST")="1,150"
^DIST(.403,42,"AY","CAP","BATHING","1^2^3",1,146,14)=""
^DIST(.403,42,"AY","CAP","BLADDER MANAGEMENT","1^2^3",1,146,18)=""
^DIST(.403,42,"AY","CAP","BOWEL MANAGEMENT","1^2^3",1,146,19)=""
^DIST(.403,42,"AY","CAP","DISPOSITION","1^2^3",1,146,23)=""
^DIST(.403,42,"AY","CAP","DOING HOUSEWORK","1^2^3",2,148,7)=""
^DIST(.403,42,"AY","CAP","DRESSING LOWER BODY","1^2^3",1,146,16)=""
^DIST(.403,42,"AY","CAP","DRESSING UPPER BODY","1^2^3",1,146,15)=""
^DIST(.403,42,"AY","CAP","EATING","1^2^3",1,146,12)=""
^DIST(.403,42,"AY","CAP","GET TO PLACES OUTSIDE OF HOME","1^2^3",2,148,4)=""
^DIST(.403,42,"AY","CAP","GROOMING","1^2^3",1,146,13)=""
^DIST(.403,42,"AY","CAP","HANDLING MONEY","1^2^3",2,148,8)=""
^DIST(.403,42,"AY","CAP","HELP DURING LAST 2 WEEKS","1^2^3",3,150,1)=""
^DIST(.403,42,"AY","CAP","METHOD AMBULATION (WALKING)","1^2^3",3,150,8)=""
^DIST(.403,42,"AY","CAP","METHOD AMBULATION (WHEELCHAIR)","1^2^3",3,150,13)=""
^DIST(.403,42,"AY","CAP","MOVE AROUND INSIDE HOUSE","1^2^3",1,146,7)=""
^DIST(.403,42,"AY","CAP","NUMBER OF HOURS OF HELP IN LAST 2 WEEKS","1^2^3",3,150,2)=""
^DIST(.403,42,"AY","CAP","NUMBER OF HOURS OF HELP IN LAST 24 HOURS","1^2^3",3,150,3)=""
^DIST(.403,42,"AY","CAP","PLANNING AND COOKING OWN MEALS","1^2^3",2,148,6)=""
^DIST(.403,42,"AY","CAP","RESPONDENT TYPE","1^2^3",1,146,2)=""
^DIST(.403,42,"AY","CAP","SHOPPING","1^2^3",2,148,5)=""
^DIST(.403,42,"AY","CAP","STAIRS","1^2^3",1,146,8)=""
^DIST(.403,42,"AY","CAP","TOILETING","1^2^3",1,146,17)=""
^DIST(.403,42,"AY","CAP","TRANSFER - TOILET","1^2^3",1,146,10)=""
^DIST(.403,42,"AY","CAP","TRANSFER - TUB/SHOWER","1^2^3",1,146,11)=""
^DIST(.403,42,"AY","CAP","TRANSFER TO BED/CHAIR","1^2^3",1,146,9)=""
^DIST(.403,42,"AY","F154.1",.01,"L",1,145,1)=""
^DIST(.403,42,"AY","F154.1",.01,"L",2,145,1)=""
^DIST(.403,42,"AY","F154.1",.01,"L",3,145,1)=""
^DIST(.403,42,"AY","F154.1",.024,"L",1,146,23)=""
^DIST(.403,42,"AY","F154.1",.03,"L",1,146,2)=""
^DIST(.403,42,"AY","F154.1",.05,"L",1,146,12)=""
^DIST(.403,42,"AY","F154.1",.06,"L",1,146,13)=""
^DIST(.403,42,"AY","F154.1",.07,"L",1,146,14)=""
^DIST(.403,42,"AY","F154.1",.08,"L",1,146,15)=""
^DIST(.403,42,"AY","F154.1",.09,"L",1,146,16)=""
^DIST(.403,42,"AY","F154.1",.1,"L",1,146,17)=""
^DIST(.403,42,"AY","F154.1",.11,"L",1,146,18)=""
^DIST(.403,42,"AY","F154.1",.12,"L",1,146,19)=""
^DIST(.403,42,"AY","F154.1",.13,"L",1,146,9)=""
^DIST(.403,42,"AY","F154.1",.14,"L",1,146,10)=""
^DIST(.403,42,"AY","F154.1",.15,"L",1,146,11)=""
^DIST(.403,42,"AY","F154.1",.16,"L",1,146,7)=""
^DIST(.403,42,"AY","F154.1",.17,"L",1,146,8)=""
^DIST(.403,42,"AY","F154.1",2.01,"L",2,148,4)=""
^DIST(.403,42,"AY","F154.1",2.02,"L",2,148,5)=""
^DIST(.403,42,"AY","F154.1",2.03,"L",2,148,6)=""
^DIST(.403,42,"AY","F154.1",2.04,"L",2,148,7)=""
^DIST(.403,42,"AY","F154.1",2.05,"L",2,148,8)=""
^DIST(.403,42,"AY","F154.1",2.06,"L",3,150,8)=""
^DIST(.403,42,"AY","F154.1",2.07,"L",3,150,13)=""
^DIST(.403,42,"AY","F154.1",2.08,"L",3,150,1)=""
^DIST(.403,42,"AY","F154.1",2.09,"L",3,150,2)=""
^DIST(.403,42,"AY","F154.1",2.13,"L",3,150,3)=""
^DIST(.403,42,"AY","X",1,0,25)="Self Report of Function                    PAGE 1 OF 3"
^DIST(.403,42,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,42,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,42,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,42,"AY","X",1,5,36)="DISPOSITION:"
^DIST(.403,42,"AY","X",1,6,10)="RESPONDENT TYPE:"
^DIST(.403,42,"AY","X",1,8,9)="<<1-Total Help or Never Do>>       <<2-Some Help>>"
^DIST(.403,42,"AY","X",1,9,9)="<<3-Extra Time or Special Tool>>   <<4-No Extra Time or Help>>"
^DIST(.403,42,"AY","X",1,10,1)="MOVE AROUND INSIDE HOUSE:                             STAIRS:"
^DIST(.403,42,"AY","X",1,11,4)="TRANSFER TO BED/CHAIR:                  TRANSFER - TOILET:"
^DIST(.403,42,"AY","X",1,12,4)="TRANSFER - TUB/SHOWER:                             EATING:"
^DIST(.403,42,"AY","X",1,13,17)="GROOMING:                            BATHING:"
^DIST(.403,42,"AY","X",1,14,6)="DRESSING UPPER BODY:                DRESSING LOWER BODY:"
^DIST(.403,42,"AY","X",1,15,16)="TOILETING:                 BLADDER MANAGEMENT:"
^DIST(.403,42,"AY","X",1,16,9)="BOWEL MANAGEMENT:"
^DIST(.403,42,"AY","X",2,0,25)="Self Report of Function                    PAGE 2 OF 3"
^DIST(.403,42,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,42,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,42,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,42,"AY","X",2,5,3)="<<1-Without Help>>           <<2-With Help>>           <<3-Unable>>"
^DIST(.403,42,"AY","X",2,8,9)="GET TO PLACES OUTSIDE OF HOME:"
^DIST(.403,42,"AY","X",2,9,30)="SHOPPING:"
^DIST(.403,42,"AY","X",2,10,8)="PLANNING AND COOKING OWN MEALS:"
^DIST(.403,42,"AY","X",2,11,23)="DOING HOUSEWORK:"
^DIST(.403,42,"AY","X",2,12,24)="HANDLING MONEY:"
^DIST(.403,42,"AY","X",3,0,25)="Self Report of Function                    PAGE 3 OF 3"
^DIST(.403,42,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,42,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,42,"AY","X",3,2,0)="_______________________________________________________________________________"
^DIST(.403,42,"AY","X",3,4,18)="HELP DURING LAST 2 WEEKS:"
^DIST(.403,42,"AY","X",3,5,3)="NUMBER OF HOURS OF HELP IN LAST 2 WEEKS:"
^DIST(.403,42,"AY","X",3,6,2)="NUMBER OF HOURS OF HELP IN LAST 24 HOURS:"
^DIST(.403,42,"AY","X",3,8,15)="<<1-Without Help>>      <<2-With Device>>"
^DIST(.403,42,"AY","X",3,9,15)="<<3-Cannot Walk >>      <<4-Bedridden  >>"
^DIST(.403,42,"AY","X",3,11,15)="METHOD AMBULATION (WALKING):"
^DIST(.403,42,"AY","X",3,13,12)="<<1-Manual            >>           <<2-Motorized>>"
^DIST(.403,42,"AY","X",3,14,12)="<<3-Does Not Use W/Chr>>           <<4-Bedridden>>"
^DIST(.403,42,"AY","X",3,16,12)="METHOD AMBULATION (WHEELCHAIR):"
^DIST(.403,43,0)="SPNLP FIM FM1^@^@^^2960723.1304^^^154.1^0^0^1"
^DIST(.403,43,20)="D EN5^SPNLUTL0(.DA)"
^DIST(.403,43,40,0)="^.4031I^4^4"
^DIST(.403,43,40,1,0)="1^^1,1^2"
^DIST(.403,43,40,1,1)="Page 1"
^DIST(.403,43,40,1,40,0)="^.4032IP^153^3"
^DIST(.403,43,40,1,40,151,0)="151^1^1,1^d"
^DIST(.403,43,40,1,40,152,0)="152^2^1,1^d"
^DIST(.403,43,40,1,40,153,0)="153^3^4,1^e"
^DIST(.403,43,40,1,40,"AC",1,151)=""
^DIST(.403,43,40,1,40,"AC",2,152)=""
^DIST(.403,43,40,1,40,"AC",3,153)=""
^DIST(.403,43,40,1,40,"B",151,151)=""
^DIST(.403,43,40,1,40,"B",152,152)=""
^DIST(.403,43,40,1,40,"B",153,153)=""
^DIST(.403,43,40,2,0)="2^151^1,1^3^1"
^DIST(.403,43,40,2,1)="Page 2"
^DIST(.403,43,40,2,40,0)="^.4032IP^156^3"
^DIST(.403,43,40,2,40,154,0)="154^1^1,1^d"
^DIST(.403,43,40,2,40,155,0)="155^2^4,1^e"
^DIST(.403,43,40,2,40,156,0)="156^3^10,1^e"
^DIST(.403,43,40,2,40,"AC",1,154)=""
^DIST(.403,43,40,2,40,"AC",2,155)=""
^DIST(.403,43,40,2,40,"AC",3,156)=""
^DIST(.403,43,40,2,40,"B",154,154)=""
^DIST(.403,43,40,2,40,"B",155,155)=""
^DIST(.403,43,40,2,40,"B",156,156)=""
^DIST(.403,43,40,3,0)="3^151^1,1^4^2"
^DIST(.403,43,40,3,1)="Page 3"
^DIST(.403,43,40,3,40,0)="^.4032IP^158^3"
^DIST(.403,43,40,3,40,155,0)="155^2^4,1^e"
^DIST(.403,43,40,3,40,157,0)="157^1^1,1^d"
^DIST(.403,43,40,3,40,158,0)="158^3^10,1^e"
^DIST(.403,43,40,3,40,"AC",1,157)=""
^DIST(.403,43,40,3,40,"AC",2,155)=""
^DIST(.403,43,40,3,40,"AC",3,158)=""
^DIST(.403,43,40,3,40,"B",155,155)=""
^DIST(.403,43,40,3,40,"B",157,157)=""
^DIST(.403,43,40,3,40,"B",158,158)=""
^DIST(.403,43,40,4,0)="4^151^1,1^^3"
^DIST(.403,43,40,4,1)="Page 4"
^DIST(.403,43,40,4,40,0)="^.4032IP^160^3"
^DIST(.403,43,40,4,40,155,0)="155^2^4,1^d"
^DIST(.403,43,40,4,40,159,0)="159^1^1,1^d"
^DIST(.403,43,40,4,40,160,0)="160^3^10,1^e"
^DIST(.403,43,40,4,40,"AC",1,159)=""
^DIST(.403,43,40,4,40,"AC",2,155)=""
^DIST(.403,43,40,4,40,"AC",3,160)=""
^DIST(.403,43,40,4,40,"B",155,155)=""
^DIST(.403,43,40,4,40,"B",159,159)=""
^DIST(.403,43,40,4,40,"B",160,160)=""
^DIST(.403,43,40,"B",1,1)=""
^DIST(.403,43,40,"B",2,2)=""
^DIST(.403,43,40,"B",3,3)=""
^DIST(.403,43,40,"B",4,4)=""
^DIST(.403,43,40,"C","PAGE 1",1)=""
^DIST(.403,43,40,"C","PAGE 2",2)=""
^DIST(.403,43,40,"C","PAGE 3",3)=""
^DIST(.403,43,40,"C","PAGE 4",4)=""
^DIST(.403,43,"AY",1,0,0,"N")="14,153^10,153^10,153^14,153^10,153"
^DIST(.403,43,"AY",1,151)="0^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",1,151,2,"D")="1^9^30^.01"
^DIST(.403,43,"AY",1,151,3,"D")="^^^^1^40^^0"
^DIST(.403,43,"AY",1,151,4,"D")="^^^^1^61^^0"
^DIST(.403,43,"AY",1,152)="0^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",1,153)="3^0^154.1^^e^^^^10"
^DIST(.403,43,"AY",1,153,6,"D")="11^34^30^1.01"
^DIST(.403,43,"AY",1,153,6,"N")="10^14^14^10^14^^^^^^1"
^DIST(.403,43,"AY",1,153,9,"D")="^^^^4^25^^0"
^DIST(.403,43,"AY",1,153,10,"D")="6^49^30^.024"
^DIST(.403,43,"AY",1,153,10,"N")="0^6^6^0^6"
^DIST(.403,43,"AY",1,153,11,"D")="^^^^3^9^^0"
^DIST(.403,43,"AY",1,153,12,"D")="^^^^3^40^^0"
^DIST(.403,43,"AY",1,153,13,"D")="^^^^6^0^^0"
^DIST(.403,43,"AY",1,153,14,"D")="13^34^4^1004"
^DIST(.403,43,"AY",1,153,14,"N")="6^0^0^6^0"
^DIST(.403,43,"AY",1,"FIRST")="10,153"
^DIST(.403,43,"AY",2,0,0,"N")="9,156^2,156^2,156^10,156^2,156"
^DIST(.403,43,"AY",2,151)="0^0^154.1^^h"
^DIST(.403,43,"AY",2,151,2,"D")="1^9^30^.01"
^DIST(.403,43,"AY",2,151,3,"D")="^^^^1^40^^0"
^DIST(.403,43,"AY",2,151,4,"D")="^^^^1^61^^0"
^DIST(.403,43,"AY",2,154)="0^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",2,155)="3^0^154.1^^e^^^^0"
^DIST(.403,43,"AY",2,155,11,"D")="^^^^3^0^^0"
^DIST(.403,43,"AY",2,156)="9^0^154.1^^e^^^^2"
^DIST(.403,43,"AY",2,156,2,"D")="11^13^21^.05"
^DIST(.403,43,"AY",2,156,2,"N")="0^3^5^0^3"
^DIST(.403,43,"AY",2,156,3,"D")="12^13^21^.06"
^DIST(.403,43,"AY",2,156,3,"N")="2^4^6^5^4"
^DIST(.403,43,"AY",2,156,4,"D")="13^13^21^.07"
^DIST(.403,43,"AY",2,156,4,"N")="3^9^7^6^5"
^DIST(.403,43,"AY",2,156,5,"D")="11^57^21^.08"
^DIST(.403,43,"AY",2,156,5,"N")="0^6^3^2^6"
^DIST(.403,43,"AY",2,156,6,"D")="12^57^21^.09"
^DIST(.403,43,"AY",2,156,6,"N")="5^7^4^3^7"
^DIST(.403,43,"AY",2,156,7,"D")="13^57^21^.1"
^DIST(.403,43,"AY",2,156,7,"N")="6^10^9^4^9"
^DIST(.403,43,"AY",2,156,9,"D")="16^17^21^.11"
^DIST(.403,43,"AY",2,156,9,"N")="4^0^10^7^10"
^DIST(.403,43,"AY",2,156,10,"D")="16^55^21^.12"
^DIST(.403,43,"AY",2,156,10,"N")="4^0^0^9^0"
^DIST(.403,43,"AY",2,"FIRST")="2,156"
^DIST(.403,43,"AY",3,0,0,"N")="8,158^2,158^2,158^8,158^2,158"
^DIST(.403,43,"AY",3,151)="0^0^154.1^^h"
^DIST(.403,43,"AY",3,151,2,"D")="1^9^30^.01"
^DIST(.403,43,"AY",3,151,3,"D")="^^^^1^40^^0"
^DIST(.403,43,"AY",3,151,4,"D")="^^^^1^61^^0"
^DIST(.403,43,"AY",3,155)="3^0^154.1^^e^^^^0"
^DIST(.403,43,"AY",3,155,11,"D")="^^^^3^0^^0"
^DIST(.403,43,"AY",3,157)="0^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",3,158)="9^0^154.1^^e^^^^2"
^DIST(.403,43,"AY",3,158,2,"D")="11^22^21^.13"
^DIST(.403,43,"AY",3,158,2,"N")="0^4^3^0^3"
^DIST(.403,43,"AY",3,158,3,"D")="11^57^21^.14"
^DIST(.403,43,"AY",3,158,3,"N")="0^4^4^2^4"
^DIST(.403,43,"AY",3,158,4,"D")="12^12^21^.15"
^DIST(.403,43,"AY",3,158,4,"N")="2^7^7^3^7"
^DIST(.403,43,"AY",3,158,6,"D")="15^57^21^.16"
^DIST(.403,43,"AY",3,158,6,"N")="4^8^8^7^8"
^DIST(.403,43,"AY",3,158,7,"D")="15^24^10^.161"
^DIST(.403,43,"AY",3,158,7,"N")="4^8^6^4^6"
^DIST(.403,43,"AY",3,158,8,"D")="16^8^21^.17"
^DIST(.403,43,"AY",3,158,8,"N")="7^0^0^6^0"
^DIST(.403,43,"AY",3,"FIRST")="2,158"
^DIST(.403,43,"AY",4,0,0,"N")="9,160^2,160^2,160^9,160^2,160"
^DIST(.403,43,"AY",4,151)="0^0^154.1^^h"
^DIST(.403,43,"AY",4,151,2,"D")="1^9^30^.01"
^DIST(.403,43,"AY",4,151,3,"D")="^^^^1^40^^0"
^DIST(.403,43,"AY",4,151,4,"D")="^^^^1^61^^0"
^DIST(.403,43,"AY",4,155)="3^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",4,155,11,"D")="^^^^3^0^^0"
^DIST(.403,43,"AY",4,159)="0^0^154.1^^d^^^^0"
^DIST(.403,43,"AY",4,160)="9^0^154.1^^e^^^^2"
^DIST(.403,43,"AY",4,160,2,"D")="11^25^9^.181"
^DIST(.403,43,"AY",4,160,2,"N")="0^4^3^0^3"
^DIST(.403,43,"AY",4,160,3,"D")="11^57^21^.18"
^DIST(.403,43,"AY",4,160,3,"N")="0^5^4^2^4"
^DIST(.403,43,"AY",4,160,4,"D")="12^25^9^.191"
^DIST(.403,43,"AY",4,160,4,"N")="2^7^5^3^5"
^DIST(.403,43,"AY",4,160,5,"D")="12^57^21^.19"
^DIST(.403,43,"AY",4,160,5,"N")="3^7^7^4^7"
^DIST(.403,43,"AY",4,160,7,"D")="15^20^21^.2"
^DIST(.403,43,"AY",4,160,7,"N")="4^9^8^5^8"
^DIST(.403,43,"AY",4,160,8,"D")="15^58^21^.21"
^DIST(.403,43,"AY",4,160,8,"N")="5^9^9^7^9"
^DIST(.403,43,"AY",4,160,9,"D")="16^20^21^.22"
^DIST(.403,43,"AY",4,160,9,"N")="7^0^0^8^0"
^DIST(.403,43,"AY",4,"FIRST")="2,160"
^DIST(.403,43,"AY","CAP","BATHING","1^2^3^4",2,156,4)=""
^DIST(.403,43,"AY","CAP","BED,CHAIR,WHEELCHAIR","1^2^3^4",3,158,2)=""
^DIST(.403,43,"AY","CAP","BLADDER CONTROL","1^2^3^4",2,156,9)=""
^DIST(.403,43,"AY","CAP","BOWEL CONTROL","1^2^3^4",2,156,10)=""
^DIST(.403,43,"AY","CAP","CLINICIAN","1^2^3^4",1,153,6)=""
^DIST(.403,43,"AY","CAP","COMPREHENSION LEVEL","1^2^3^4",4,160,3)=""
^DIST(.403,43,"AY","CAP","COMPREHENSION METHOD","1^2^3^4",4,160,2)=""
^DIST(.403,43,"AY","CAP","DAYS OF INTERRUPTED CARE","1^2^3^4",1,153,14)=""
^DIST(.403,43,"AY","CAP","DISPOSITION","1^2^3^4",1,153,10)=""
^DIST(.403,43,"AY","CAP","DRESSING LOWER BODY","1^2^3^4",2,156,6)=""
^DIST(.403,43,"AY","CAP","DRESSING UPPER BODY","1^2^3^4",2,156,5)=""
^DIST(.403,43,"AY","CAP","EATING","1^2^3^4",2,156,2)=""
^DIST(.403,43,"AY","CAP","EXPRESSION LEVEL","1^2^3^4",4,160,5)=""
^DIST(.403,43,"AY","CAP","EXPRESSION METHOD","1^2^3^4",4,160,4)=""
^DIST(.403,43,"AY","CAP","GROOMING","1^2^3^4",2,156,3)=""
^DIST(.403,43,"AY","CAP","MEMORY","1^2^3^4",4,160,9)=""
^DIST(.403,43,"AY","CAP","PROBLEM SOLVING","1^2^3^4",4,160,8)=""
^DIST(.403,43,"AY","CAP","SOCIAL INTERACTION","1^2^3^4",4,160,7)=""
^DIST(.403,43,"AY","CAP","STAIRS","1^2^3^4",3,158,8)=""
^DIST(.403,43,"AY","CAP","TOILET","1^2^3^4",3,158,3)=""
^DIST(.403,43,"AY","CAP","TOILETING","1^2^3^4",2,156,7)=""
^DIST(.403,43,"AY","CAP","TUB,SHOWER","1^2^3^4",3,158,4)=""
^DIST(.403,43,"AY","CAP","WALK/WHEELCHAIR METHOD","1^2^3^4",3,158,7)=""
^DIST(.403,43,"AY","CAP","WALK/WHLCHAIR LEVEL","1^2^3^4",3,158,6)=""
^DIST(.403,43,"AY","F154.1",.01,"L",1,151,2)=""
^DIST(.403,43,"AY","F154.1",.01,"L",2,151,2)=""
^DIST(.403,43,"AY","F154.1",.01,"L",3,151,2)=""
^DIST(.403,43,"AY","F154.1",.01,"L",4,151,2)=""
^DIST(.403,43,"AY","F154.1",.024,"L",1,153,10)=""
^DIST(.403,43,"AY","F154.1",.05,"L",2,156,2)=""
^DIST(.403,43,"AY","F154.1",.06,"L",2,156,3)=""
^DIST(.403,43,"AY","F154.1",.07,"L",2,156,4)=""
^DIST(.403,43,"AY","F154.1",.08,"L",2,156,5)=""
^DIST(.403,43,"AY","F154.1",.09,"L",2,156,6)=""
^DIST(.403,43,"AY","F154.1",.1,"L",2,156,7)=""
^DIST(.403,43,"AY","F154.1",.11,"L",2,156,9)=""
^DIST(.403,43,"AY","F154.1",.12,"L",2,156,10)=""
^DIST(.403,43,"AY","F154.1",.13,"L",3,158,2)=""
^DIST(.403,43,"AY","F154.1",.14,"L",3,158,3)=""
^DIST(.403,43,"AY","F154.1",.15,"L",3,158,4)=""
^DIST(.403,43,"AY","F154.1",.16,"L",3,158,6)=""
^DIST(.403,43,"AY","F154.1",.161,"L",3,158,7)=""
^DIST(.403,43,"AY","F154.1",.17,"L",3,158,8)=""
^DIST(.403,43,"AY","F154.1",.18,"L",4,160,3)=""
^DIST(.403,43,"AY","F154.1",.181,"L",4,160,2)=""
^DIST(.403,43,"AY","F154.1",.19,"L",4,160,5)=""
^DIST(.403,43,"AY","F154.1",.191,"L",4,160,4)=""
^DIST(.403,43,"AY","F154.1",.2,"L",4,160,7)=""
^DIST(.403,43,"AY","F154.1",.21,"L",4,160,8)=""
^DIST(.403,43,"AY","F154.1",.22,"L",4,160,9)=""
^DIST(.403,43,"AY","F154.1",1.01,"L",1,153,6)=""
^DIST(.403,43,"AY","F154.1",1004,"L",1,153,14)=""
^DIST(.403,43,"AY","X",1,0,33)="FIM                                PAGE 1 OF 4"
^DIST(.403,43,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,43,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,43,"AY","X",1,2,0)="________________________________________________________________________________"
^DIST(.403,43,"AY","X",1,6,36)="DISPOSITION:"
^DIST(.403,43,"AY","X",1,9,4)="<<IT IS RECOMMENDED CLINICIANS OBTAINING FIM DATA ARE FIM CREDENTIALED>>"
^DIST(.403,43,"AY","X",1,11,16)="Select CLINICIAN:"
^DIST(.403,43,"AY","X",1,13,8)="DAYS OF INTERRUPTED CARE:"
^DIST(.403,43,"AY","X",2,0,33)="FIM                                PAGE 2 OF 4"
^DIST(.403,43,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,43,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,43,"AY","X",2,2,0)="________________________________________________________________________________"
^DIST(.403,43,"AY","X",2,4,23)="Modified Independence -- Helper"
^DIST(.403,43,"AY","X",2,5,2)="1=Total Assist (Subject 0%+)          2=Maximal Assist (Subject=25%+)"
^DIST(.403,43,"AY","X",2,6,2)="3=Moderate Assist (Subject=50%+)      4=Minimal Assist (Subject=75%+)"
^DIST(.403,43,"AY","X",2,7,2)="5=Supervision"
^DIST(.403,43,"AY","X",2,8,24)="Independence -- No Helper"
^DIST(.403,43,"AY","X",2,9,2)="6=Modified Independence (Device)      7=Complete Independence (Timely,Safely)"
^DIST(.403,43,"AY","X",2,10,29)="SELF CARE"
^DIST(.403,43,"AY","X",2,11,5)="EATING:                        DRESSING UPPER BODY:"
^DIST(.403,43,"AY","X",2,12,3)="GROOMING:                        DRESSING LOWER BODY:"
^DIST(.403,43,"AY","X",2,13,4)="BATHING:                                  TOILETING:"
^DIST(.403,43,"AY","X",2,15,26)="SPHINCTER CONTROL"
^DIST(.403,43,"AY","X",2,16,0)="BLADDER CONTROL:                        BOWEL CONTROL:"
^DIST(.403,43,"AY","X",3,0,33)="FIM                                PAGE 3 OF 4"
^DIST(.403,43,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,43,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,43,"AY","X",3,2,0)="________________________________________________________________________________"
^DIST(.403,43,"AY","X",3,4,23)="Modified Independence -- Helper"
^DIST(.403,43,"AY","X",3,5,2)="1=Total Assist (Subject 0%+)          2=Maximal Assist (Subject=25%+)"
^DIST(.403,43,"AY","X",3,6,2)="3=Moderate Assist (Subject=50%+)      4=Minimal Assist (Subject=75%+)"
^DIST(.403,43,"AY","X",3,7,2)="5=Supervision"
^DIST(.403,43,"AY","X",3,8,24)="Independence -- No Helper"
^DIST(.403,43,"AY","X",3,9,2)="6=Modified Independence (Device)      7=Complete Independence (Timely,Safely)"
^DIST(.403,43,"AY","X",3,10,30)="MOBILITY/TRANSFER"
^DIST(.403,43,"AY","X",3,11,0)="BED,CHAIR,WHEELCHAIR:                            TOILET:"
^DIST(.403,43,"AY","X",3,12,0)="TUB,SHOWER:"
^DIST(.403,43,"AY","X",3,14,33)="LOCOMOTION"
^DIST(.403,43,"AY","X",3,15,0)="WALK/WHEELCHAIR METHOD:             WALK/WHLCHAIR LEVEL:"
^DIST(.403,43,"AY","X",3,16,0)="STAIRS:"
^DIST(.403,43,"AY","X",4,0,33)="FIM                                PAGE 4 OF 4"
^DIST(.403,43,"AY","X",4,1,0)="PATIENT:"
^DIST(.403,43,"AY","X",4,1,0,"A")="1;7;U"
^DIST(.403,43,"AY","X",4,2,0)="________________________________________________________________________________"
^DIST(.403,43,"AY","X",4,4,23)="Modified Independence -- Helper"
^DIST(.403,43,"AY","X",4,5,2)="1=Total Assist (Subject 0%+)          2=Maximal Assist (Subject=25%+)"
^DIST(.403,43,"AY","X",4,6,2)="3=Moderate Assist (Subject=50%+)      4=Minimal Assist (Subject=75%+)"
^DIST(.403,43,"AY","X",4,7,2)="5=Supervision"
^DIST(.403,43,"AY","X",4,8,24)="Independence -- No Helper"
^DIST(.403,43,"AY","X",4,9,2)="6=Modified Independence (Device)      7=Complete Independence (Timely,Safely)"
^DIST(.403,43,"AY","X",4,10,32)="COMMUNICATION"
^DIST(.403,43,"AY","X",4,11,3)="COMPREHENSION METHOD:            COMPREHENSION LEVEL:"
^DIST(.403,43,"AY","X",4,12,6)="EXPRESSION METHOD:               EXPRESSION LEVEL:"
^DIST(.403,43,"AY","X",4,14,31)="SOCIAL COGNITION"
^DIST(.403,43,"AY","X",4,15,0)="SOCIAL INTERACTION:                      PROBLEM SOLVING:"
^DIST(.403,43,"AY","X",4,16,12)="MEMORY:"
^DIST(.403,44,0)="SPNLP CHART FM1^@^@^^2960724.0921^^^154.1^0^0^1"
^DIST(.403,44,40,0)="^.4031I^1^1"
^DIST(.403,44,40,1,0)="1^^1,1^2"
^DIST(.403,44,40,1,1)="Page 1"
^DIST(.403,44,40,1,40,0)="^.4032IP^164^3"
^DIST(.403,44,40,1,40,162,0)="162^1^1,1^d"
^DIST(.403,44,40,1,40,163,0)="163^2^4,1^e"
^DIST(.403,44,40,1,40,164,0)="164^4^1,1^d"
^DIST(.403,44,40,1,40,"AC",1,162)=""
^DIST(.403,44,40,1,40,"AC",2,163)=""
^DIST(.403,44,40,1,40,"AC",4,164)=""
^DIST(.403,44,40,1,40,"B",162,162)=""
^DIST(.403,44,40,1,40,"B",163,163)=""
^DIST(.403,44,40,1,40,"B",164,164)=""
^DIST(.403,44,40,"B",1,1)=""
^DIST(.403,44,40,"C","PAGE 1",1)=""
^DIST(.403,44,"AY",1,0,0,"N")="15,163^14,163^14,163^8,163^14,163"
^DIST(.403,44,"AY",1,162)="0^0^154.1^^d^^^^0"
^DIST(.403,44,"AY",1,162,3,"D")="1^9^30^.01"
^DIST(.403,44,"AY",1,162,4,"D")="^^^^1^44^^0"
^DIST(.403,44,"AY",1,162,5,"D")="^^^^1^61^^0"
^DIST(.403,44,"AY",1,163)="3^0^154.1^^e^^^^14"
^DIST(.403,44,"AY",1,163,3,"D")="13^39^3^4.3"
^DIST(.403,44,"AY",1,163,3,"N")="13^4^4^13^4"
^DIST(.403,44,"AY",1,163,4,"D")="14^39^3^4.4"
^DIST(.403,44,"AY",1,163,4,"N")="3^5^5^3^5"
^DIST(.403,44,"AY",1,163,5,"D")="15^39^3^4.5"
^DIST(.403,44,"AY",1,163,5,"N")="4^15^15^4^15"
^DIST(.403,44,"AY",1,163,8,"D")="16^67^3^8,163"
^DIST(.403,44,"AY",1,163,8,"N")="5^0^0^15^0"
^DIST(.403,44,"AY",1,163,11,"D")="^^^^4^25^^0"
^DIST(.403,44,"AY",1,163,12,"D")="11^39^3^4.1"
^DIST(.403,44,"AY",1,163,12,"N")="14^13^13^14^13"
^DIST(.403,44,"AY",1,163,13,"D")="12^39^3^4.2"
^DIST(.403,44,"AY",1,163,13,"N")="12^3^3^12^3"
^DIST(.403,44,"AY",1,163,14,"D")="6^49^30^.024"
^DIST(.403,44,"AY",1,163,14,"N")="0^12^12^0^12"
^DIST(.403,44,"AY",1,163,15,"D")="16^39^3^4.6"
^DIST(.403,44,"AY",1,163,15,"N")="5^0^8^5^8"
^DIST(.403,44,"AY",1,163,16,"D")="^^^^6^0^^0"
^DIST(.403,44,"AY",1,163,17,"D")="^^^^3^9^^0"
^DIST(.403,44,"AY",1,163,18,"D")="^^^^3^40^^0"
^DIST(.403,44,"AY",1,164)="0^0^154.1^^d^^^^0"
^DIST(.403,44,"AY",1,"FIRST")="14,163"
^DIST(.403,44,"AY","CAP","CHART TOTAL SCORE",1,1,163,8)=""
^DIST(.403,44,"AY","CAP","COGNITIVE INDEPENDENCE (0-100)",1,1,163,15)=""
^DIST(.403,44,"AY","CAP","DISPOSITION",1,1,163,14)=""
^DIST(.403,44,"AY","CAP","ECONOMIC SELF SUFFICIENCY (0-100)",1,1,163,5)=""
^DIST(.403,44,"AY","CAP","MOBILITY (0-100)",1,1,163,13)=""
^DIST(.403,44,"AY","CAP","OCCUPATION (0-100)",1,1,163,3)=""
^DIST(.403,44,"AY","CAP","PHYSICAL INDEPENDENCE (0-100)",1,1,163,12)=""
^DIST(.403,44,"AY","CAP","SOCIAL INTERACTION (0-100)",1,1,163,4)=""
^DIST(.403,44,"AY","F0","8,163","L",1,163,8)=""
^DIST(.403,44,"AY","F154.1",.01,"L",1,162,3)=""
^DIST(.403,44,"AY","F154.1",.024,"L",1,163,14)=""
^DIST(.403,44,"AY","F154.1",4.1,"L",1,163,12)=""
^DIST(.403,44,"AY","F154.1",4.2,"L",1,163,13)=""
^DIST(.403,44,"AY","F154.1",4.3,"L",1,163,3)=""
^DIST(.403,44,"AY","F154.1",4.4,"L",1,163,4)=""
^DIST(.403,44,"AY","F154.1",4.5,"L",1,163,5)=""
^DIST(.403,44,"AY","F154.1",4.6,"L",1,163,15)=""
^DIST(.403,44,"AY","X",1,0,7)="CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)    PAGE 1 OF 1"
^DIST(.403,44,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,44,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,44,"AY","X",1,2,0)="________________________________________________________________________________"
^DIST(.403,44,"AY","X",1,6,36)="DISPOSITION:"
^DIST(.403,44,"AY","X",1,9,12)="CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)"
^DIST(.403,44,"AY","X",1,11,8)="PHYSICAL INDEPENDENCE (0-100):"
^DIST(.403,44,"AY","X",1,12,21)="MOBILITY (0-100):"
^DIST(.403,44,"AY","X",1,13,19)="OCCUPATION (0-100):"
^DIST(.403,44,"AY","X",1,14,11)="SOCIAL INTERACTION (0-100):"
^DIST(.403,44,"AY","X",1,15,4)="ECONOMIC SELF SUFFICIENCY (0-100):"
^DIST(.403,44,"AY","X",1,16,7)="COGNITIVE INDEPENDENCE (0-100):          CHART TOTAL SCORE:"
^DIST(.403,45,0)="SPNLP MS FM1^@^@^^2960724.1053^^^154.1^0^0^1"
^DIST(.403,45,40,0)="^.4031I^3^3"
^DIST(.403,45,40,1,0)="1^^1,1"
^DIST(.403,45,40,1,1)="Page 1"
^DIST(.403,45,40,1,40,0)="^.4032IP^170^2"
^DIST(.403,45,40,1,40,169,0)="169^1^4,1^e"
^DIST(.403,45,40,1,40,170,0)="170^2^1,1^d"
^DIST(.403,45,40,1,40,"AC",1,169)=""
^DIST(.403,45,40,1,40,"AC",2,170)=""
^DIST(.403,45,40,1,40,"B",169,169)=""
^DIST(.403,45,40,1,40,"B",170,170)=""
^DIST(.403,45,40,2,0)="2^^1,1"
^DIST(.403,45,40,2,1)="Page 2"
^DIST(.403,45,40,2,40,0)="^.4032IP^172^2"
^DIST(.403,45,40,2,40,171,0)="171^1^1,1^d"
^DIST(.403,45,40,2,40,172,0)="172^2^4,1^e"
^DIST(.403,45,40,2,40,"AC",1,171)=""
^DIST(.403,45,40,2,40,"AC",2,172)=""
^DIST(.403,45,40,2,40,"B",171,171)=""
^DIST(.403,45,40,2,40,"B",172,172)=""
^DIST(.403,45,40,3,0)="3^^1,1"
^DIST(.403,45,40,3,1)="Page 3"
^DIST(.403,45,40,3,40,0)="^.4032IP^174^2"
^DIST(.403,45,40,3,40,173,0)="173^1^1,1^d"
^DIST(.403,45,40,3,40,174,0)="174^2^4,1^e"
^DIST(.403,45,40,3,40,"AC",1,173)=""
^DIST(.403,45,40,3,40,"AC",2,174)=""
^DIST(.403,45,40,3,40,"B",173,173)=""
^DIST(.403,45,40,3,40,"B",174,174)=""
^DIST(.403,45,40,"B",1,1)=""
^DIST(.403,45,40,"B",2,2)=""
^DIST(.403,45,40,"B",3,3)=""
^DIST(.403,45,40,"C","PAGE 1",1)=""
^DIST(.403,45,40,"C","PAGE 2",2)=""
^DIST(.403,45,40,"C","PAGE 3",3)=""
^DIST(.403,45,"AY",1,0,0,"N")="1,169^8,169^8,169^1,169^8,169"
^DIST(.403,45,"AY",1,169)="3^0^154.1^^e^^^^8"
^DIST(.403,45,"AY",1,169,1,"D")="13^65^1^1,169"
^DIST(.403,45,"AY",1,169,1,"N")="8^0^0^8^0"
^DIST(.403,45,"AY",1,169,7,"D")="^^^^4^24^^0"
^DIST(.403,45,"AY",1,169,8,"D")="6^49^30^.024"
^DIST(.403,45,"AY",1,169,8,"N")="0^1^1^0^1"
^DIST(.403,45,"AY",1,169,9,"D")="^^^^3^9^^0"
^DIST(.403,45,"AY",1,169,10,"D")="^^^^3^40^^0"
^DIST(.403,45,"AY",1,169,11,"D")="^^^^6^0^^0"
^DIST(.403,45,"AY",1,170)="0^0^154.1^^d^^^^0"
^DIST(.403,45,"AY",1,170,3,"D")="1^9^30^.01"
^DIST(.403,45,"AY",1,170,4,"D")="^^^^1^43^^0"
^DIST(.403,45,"AY",1,170,5,"D")="^^^^1^61^^0"
^DIST(.403,45,"AY",1,"FIRST")="8,169"
^DIST(.403,45,"AY",2,0,0,"N")="10,172^3,172^3,172^10,172^3,172"
^DIST(.403,45,"AY",2,171)="0^0^154.1^^d^^^^0"
^DIST(.403,45,"AY",2,171,3,"D")="1^9^30^.01"
^DIST(.403,45,"AY",2,171,4,"D")="^^^^1^42^^0"
^DIST(.403,45,"AY",2,171,5,"D")="^^^^1^62^^0"
^DIST(.403,45,"AY",2,172)="3^0^154.1^^e^^^^3"
^DIST(.403,45,"AY",2,172,3,"D")="7^12^78^3.1"
^DIST(.403,45,"AY",2,172,3,"N")="0^4^4^0^4"
^DIST(.403,45,"AY",2,172,4,"D")="8^12^78^3.2"
^DIST(.403,45,"AY",2,172,4,"N")="3^5^5^3^5"
^DIST(.403,45,"AY",2,172,5,"D")="9^12^78^3.3"
^DIST(.403,45,"AY",2,172,5,"N")="4^6^6^4^6"
^DIST(.403,45,"AY",2,172,6,"D")="10^12^78^3.4"
^DIST(.403,45,"AY",2,172,6,"N")="5^7^7^5^7"
^DIST(.403,45,"AY",2,172,7,"D")="11^12^78^3.5"
^DIST(.403,45,"AY",2,172,7,"N")="6^8^8^6^8"
^DIST(.403,45,"AY",2,172,8,"D")="12^12^78^3.6"
^DIST(.403,45,"AY",2,172,8,"N")="7^9^9^7^9"
^DIST(.403,45,"AY",2,172,9,"D")="13^12^78^3.7"
^DIST(.403,45,"AY",2,172,9,"N")="8^10^10^8^10"
^DIST(.403,45,"AY",2,172,10,"D")="14^12^78^3.8"
^DIST(.403,45,"AY",2,172,10,"N")="9^0^0^9^0"
^DIST(.403,45,"AY",2,172,11,"D")="^^^^3^0^^0"
^DIST(.403,45,"AY",2,"FIRST")="3,172"
^DIST(.403,45,"AY",3,0,0,"N")="4,174^4,174^4,174^4,174^4,174"
^DIST(.403,45,"AY",3,173)="0^0^154.1^^d^^^^0"
^DIST(.403,45,"AY",3,173,3,"D")="1^9^30^.01"
^DIST(.403,45,"AY",3,173,4,"D")="^^^^1^44^^0"
^DIST(.403,45,"AY",3,173,5,"D")="^^^^1^63^^0"
^DIST(.403,45,"AY",3,174)="3^0^154.1^^e^^^^4"
^DIST(.403,45,"AY",3,174,4,"D")="12^4^75^3.9"
^DIST(.403,45,"AY",3,174,4,"N")="0^0^0^0^0"
^DIST(.403,45,"AY",3,174,5,"D")="^^^^3^0^^0"
^DIST(.403,45,"AY",3,"FIRST")="4,174"
^DIST(.403,45,"AY","CAP","BRAINSTEM",2,2,172,4)=""
^DIST(.403,45,"AY","CAP","BWL/BLDDR",2,2,172,8)=""
^DIST(.403,45,"AY","CAP","CEREBELLAR",2,2,172,7)=""
^DIST(.403,45,"AY","CAP","CEREBRAL",2,2,172,6)=""
^DIST(.403,45,"AY","CAP","DISPOSITION",1,1,169,8)=""
^DIST(.403,45,"AY","CAP","EDSS SCORE",3,3,174,4)=""
^DIST(.403,45,"AY","CAP","OTHER",2,2,172,10)=""
^DIST(.403,45,"AY","CAP","PYRAMIDAL",2,2,172,3)=""
^DIST(.403,45,"AY","CAP","SENSORY",2,2,172,5)=""
^DIST(.403,45,"AY","CAP","THE TYPE OF RECORD YOU WISH TO ENTER/EDI",1,1,169,1)=""
^DIST(.403,45,"AY","CAP","VISUAL",2,2,172,9)=""
^DIST(.403,45,"AY","F0","1,169","L",1,169,1)=""
^DIST(.403,45,"AY","F154.1",.01,"L",1,170,3)=""
^DIST(.403,45,"AY","F154.1",.01,"L",2,171,3)=""
^DIST(.403,45,"AY","F154.1",.01,"L",3,173,3)=""
^DIST(.403,45,"AY","F154.1",.024,"L",1,169,8)=""
^DIST(.403,45,"AY","F154.1",3.1,"L",2,172,3)=""
^DIST(.403,45,"AY","F154.1",3.2,"L",2,172,4)=""
^DIST(.403,45,"AY","F154.1",3.3,"L",2,172,5)=""
^DIST(.403,45,"AY","F154.1",3.4,"L",2,172,6)=""
^DIST(.403,45,"AY","F154.1",3.5,"L",2,172,7)=""
^DIST(.403,45,"AY","F154.1",3.6,"L",2,172,8)=""
^DIST(.403,45,"AY","F154.1",3.7,"L",2,172,9)=""
^DIST(.403,45,"AY","F154.1",3.8,"L",2,172,10)=""
^DIST(.403,45,"AY","F154.1",3.9,"L",3,174,4)=""
^DIST(.403,45,"AY","X",1,0,29)="Multiple Sclerosis"
^DIST(.403,45,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,45,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,45,"AY","X",1,2,0)="________________________________________________________________________________"
^DIST(.403,45,"AY","X",1,6,36)="DISPOSITION:"
^DIST(.403,45,"AY","X",1,8,15)="Select one of the following:"
^DIST(.403,45,"AY","X",1,10,18)="1)  Kurtzke Functional Systems Scale (FSS)"
^DIST(.403,45,"AY","X",1,11,18)="2)  Kurtzke Expanded Disability Status Scale (EDSS)"
^DIST(.403,45,"AY","X",1,13,15)="Select the type of record you wish to enter/edit:"
^DIST(.403,45,"AY","X",2,0,23)="KURTZKE FUNCTIONAL SYSTEM SCALE (FSS)        PAGE 1 OF 1"
^DIST(.403,45,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,45,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,45,"AY","X",2,2,0)="________________________________________________________________________________"
^DIST(.403,45,"AY","X",2,5,25)="?? for options"
^DIST(.403,45,"AY","X",2,7,1)="PYRAMIDAL:"
^DIST(.403,45,"AY","X",2,8,1)="BRAINSTEM:"
^DIST(.403,45,"AY","X",2,9,3)="SENSORY:"
^DIST(.403,45,"AY","X",2,10,2)="CEREBRAL:"
^DIST(.403,45,"AY","X",2,11,0)="CEREBELLAR:"
^DIST(.403,45,"AY","X",2,12,1)="BWL/BLDDR:"
^DIST(.403,45,"AY","X",2,13,4)="VISUAL:"
^DIST(.403,45,"AY","X",2,14,5)="OTHER:"
^DIST(.403,45,"AY","X",3,0,16)="KURTZKE EXPANDED DISABILITY STATUS SCALE (EDSS)     PAGE 1 OF 1"
^DIST(.403,45,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,45,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,45,"AY","X",3,2,0)="________________________________________________________________________________"
^DIST(.403,45,"AY","X",3,5,30)="?? for options"
^DIST(.403,45,"AY","X",3,7,29)="99.9 for Unknown"
^DIST(.403,45,"AY","X",3,11,0)="EDSS score:"
^DIST(.403,46,0)="SPNE ENTER/EDIT SYNONYM^@^@^^2960731.1519^^^154.03^0^0^1"
^DIST(.403,46,40,0)="^.4031I^1^1"
^DIST(.403,46,40,1,0)="1^^1,1"
^DIST(.403,46,40,1,1)="Page 1"
^DIST(.403,46,40,1,40,0)="^.4032IP^177^2"
^DIST(.403,46,40,1,40,176,0)="176^1^1,1^d"
^DIST(.403,46,40,1,40,177,0)="177^2^8,1^e"
^DIST(.403,46,40,1,40,177,2)="5"
^DIST(.403,46,40,1,40,"AC",1,176)=""
^DIST(.403,46,40,1,40,"AC",2,177)=""
^DIST(.403,46,40,1,40,"B",176,176)=""
^DIST(.403,46,40,1,40,"B",177,177)=""
^DIST(.403,46,40,"B",1,1)=""
^DIST(.403,46,40,"C","PAGE 1",1)=""
^DIST(.403,46,"AY",1,0,0,"N")="1,177^1,177^1,177^1,177^1,177"
^DIST(.403,46,"AY",1,176)="0^0^154.03^^d^^^^0"
^DIST(.403,46,"AY",1,176,1,"D")="1^33^30^.01"
^DIST(.403,46,"AY",1,176,2,"D")="2^38^19^.02"
^DIST(.403,46,"AY",1,177)="7^0^154.31^^e^^5^^1^1"
^DIST(.403,46,"AY",1,177,1,"D")="7^29^35^.01^7^25^^0"
^DIST(.403,46,"AY",1,177,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,46,"AY",1,"FIRST")="1,177"
^DIST(.403,46,"AY","F154.03",.01,"L",1,176,1)=""
^DIST(.403,46,"AY","F154.03",.02,"L",1,176,2)=""
^DIST(.403,46,"AY","F154.31",.01,"L",1,177,1)=""
^DIST(.403,46,"AY","X",1,1,23)="ETIOLOGY:"
^DIST(.403,46,"AY","X",1,1,23,"A")="1;8;U"
^DIST(.403,46,"AY","X",1,2,23)="TYPE OF CAUSE:"
^DIST(.403,46,"AY","X",1,3,0)="________________________________________________________________________________"
^DIST(.403,46,"AY","X",1,7,4)="Select Etiology SYNONYM:"
^DIST(.403,47,0)="LREPI^@^@^^2961007.1013^^^69.5^0^0^1"
^DIST(.403,47,40,0)="^.4031I^6^6"
^DIST(.403,47,40,1,0)="1^^1,1^2"
^DIST(.403,47,40,1,1)="Page 1"
^DIST(.403,47,40,1,40,0)="^.4032IP^189^5"
^DIST(.403,47,40,1,40,178,0)="178^1^1,1^d"
^DIST(.403,47,40,1,40,179,0)="179^2^6,1^e"
^DIST(.403,47,40,1,40,179,2)="3"
^DIST(.403,47,40,1,40,180,0)="180^3^13,2^e"
^DIST(.403,47,40,1,40,180,2)="3"
^DIST(.403,47,40,1,40,181,0)="181^4^7,2^d"
^DIST(.403,47,40,1,40,189,0)="189^5^13,54^e"
^DIST(.403,47,40,1,40,"AC",1,178)=""
^DIST(.403,47,40,1,40,"AC",2,179)=""
^DIST(.403,47,40,1,40,"AC",3,180)=""
^DIST(.403,47,40,1,40,"AC",4,181)=""
^DIST(.403,47,40,1,40,"AC",5,189)=""
^DIST(.403,47,40,1,40,"B",178,178)=""
^DIST(.403,47,40,1,40,"B",179,179)=""
^DIST(.403,47,40,1,40,"B",180,180)=""
^DIST(.403,47,40,1,40,"B",181,181)=""
^DIST(.403,47,40,1,40,"B",189,189)=""
^DIST(.403,47,40,2,0)="2^^1,1^3^1"
^DIST(.403,47,40,2,1)="Page 2"
^DIST(.403,47,40,2,40,0)="^.4032IP^369^5"
^DIST(.403,47,40,2,40,178,0)="178^1^1,1^d"
^DIST(.403,47,40,2,40,182,0)="182^2^9,1^e"
^DIST(.403,47,40,2,40,182,2)="3"
^DIST(.403,47,40,2,40,184,0)="184^4^7,1^d"
^DIST(.403,47,40,2,40,244,0)="244^3^9,44^e"
^DIST(.403,47,40,2,40,244,2)="3"
^DIST(.403,47,40,2,40,369,0)="369^5^14,1^e"
^DIST(.403,47,40,2,40,369,2)="3"
^DIST(.403,47,40,2,40,"AC",1,178)=""
^DIST(.403,47,40,2,40,"AC",2,182)=""
^DIST(.403,47,40,2,40,"AC",3,244)=""
^DIST(.403,47,40,2,40,"AC",4,184)=""
^DIST(.403,47,40,2,40,"AC",5,369)=""
^DIST(.403,47,40,2,40,"B",178,178)=""
^DIST(.403,47,40,2,40,"B",182,182)=""
^DIST(.403,47,40,2,40,"B",184,184)=""
^DIST(.403,47,40,2,40,"B",244,244)=""
^DIST(.403,47,40,2,40,"B",369,369)=""
^DIST(.403,47,40,3,0)="3^^1,1^4^2"
^DIST(.403,47,40,3,1)="Page 3"
^DIST(.403,47,40,3,40,0)="^.4032IP^187^4"
^DIST(.403,47,40,3,40,178,0)="178^1^1,1^d"
^DIST(.403,47,40,3,40,185,0)="185^2^7,1^d"
^DIST(.403,47,40,3,40,186,0)="186^3^11,1^e"
^DIST(.403,47,40,3,40,186,2)="4"
^DIST(.403,47,40,3,40,187,0)="187^4^11,40^e"
^DIST(.403,47,40,3,40,187,2)="4"
^DIST(.403,47,40,3,40,"AC",1,178)=""
^DIST(.403,47,40,3,40,"AC",2,185)=""
^DIST(.403,47,40,3,40,"AC",3,186)=""
^DIST(.403,47,40,3,40,"AC",4,187)=""
^DIST(.403,47,40,3,40,"B",178,178)=""
^DIST(.403,47,40,3,40,"B",185,185)=""
^DIST(.403,47,40,3,40,"B",186,186)=""
^DIST(.403,47,40,3,40,"B",187,187)=""
^DIST(.403,47,40,4,0)="4^^1,1^5^4"
^DIST(.403,47,40,4,1)="Page 4"
^DIST(.403,47,40,4,40,0)="^.4032IP^248^2"
^DIST(.403,47,40,4,40,178,0)="178^1^1,1^d"
^DIST(.403,47,40,4,40,248,0)="248^2^7,1^e"
^DIST(.403,47,40,4,40,"AC",1,178)=""
^DIST(.403,47,40,4,40,"AC",2,248)=""
^DIST(.403,47,40,4,40,"B",178,178)=""
^DIST(.403,47,40,4,40,"B",248,248)=""
^DIST(.403,47,40,5,0)="5^^1,1^1^4"
^DIST(.403,47,40,5,1)="Page 5"
^DIST(.403,47,40,5,40,0)="^.4032IP^188^2"
^DIST(.403,47,40,5,40,178,0)="178^1^1,1^d"
^DIST(.403,47,40,5,40,188,0)="188^2^7,1^e"
^DIST(.403,47,40,5,40,"AC",1,178)=""
^DIST(.403,47,40,5,40,"AC",2,188)=""
^DIST(.403,47,40,5,40,"B",178,178)=""
^DIST(.403,47,40,5,40,"B",188,188)=""
^DIST(.403,47,40,6,0)="6^^1,1^^^1^15,75"
^DIST(.403,47,40,6,1)="Page 6^3,LREPI5,2"
^DIST(.403,47,40,6,15,0)="^^3^3^3040226^"
^DIST(.403,47,40,6,15,1,0)=" "
^DIST(.403,47,40,6,15,2,0)="This pop-up page contains the INDICATOR(#1) and INDICATED VALUE (#2) "
^DIST(.403,47,40,6,15,3,0)="fields."
^DIST(.403,47,40,6,40,0)="^.4032IP^383^1"
^DIST(.403,47,40,6,40,383,0)="383^1^2,4^e"
^DIST(.403,47,40,6,40,"AC",1,383)=""
^DIST(.403,47,40,6,40,"B",383,383)=""
^DIST(.403,47,40,"B",1,1)=""
^DIST(.403,47,40,"B",2,2)=""
^DIST(.403,47,40,"B",3,3)=""
^DIST(.403,47,40,"B",4,4)=""
^DIST(.403,47,40,"B",5,5)=""
^DIST(.403,47,40,"B",6,6)=""
^DIST(.403,47,40,"C","PAGE 1",1)=""
^DIST(.403,47,40,"C","PAGE 2",2)=""
^DIST(.403,47,40,"C","PAGE 3",3)=""
^DIST(.403,47,40,"C","PAGE 4",4)=""
^DIST(.403,47,40,"C","PAGE 5",5)=""
^DIST(.403,47,40,"C","PAGE 6",6)=""
^DIST(.403,47,"AY",1,0,0,"N")="1,180^1,179^1,179^1,180^1,179"
^DIST(.403,47,"AY",1,178)="0^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",1,178,2,"D")="3^6^50^.01"
^DIST(.403,47,"AY",1,178,3,"D")="3^69^3^1"
^DIST(.403,47,"AY",1,178,6,"D")="^^^^1^66^^0"
^DIST(.403,47,"AY",1,179)="5^0^69.52^^e^^3^^1^1"
^DIST(.403,47,"AY",1,179,1,"D")="8^0^30^.01"
^DIST(.403,47,"AY",1,179,1,"N")="0^1,180^1,180^0^1,180^1,-1^1,+1^2^3,-1^2"
^DIST(.403,47,"AY",1,179,2,"D")="8^34^20^1"
^DIST(.403,47,"AY",1,179,2,"N")="0^1,180^1,180^1^1,180^2,-1^2,+1^3^1^3"
^DIST(.403,47,"AY",1,179,3,"D")="8^60^15^2"
^DIST(.403,47,"AY",1,179,3,"N")="0^1,180^1,180^2^1,180^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,47,"AY",1,180)="12^1^69.54^^e^^3^^1^1"
^DIST(.403,47,"AY",1,180,1,"D")="14^2^7^.01"
^DIST(.403,47,"AY",1,180,1,"N")="1,179^0^0^3,179^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",1,180,2,"D")="14^34^25^0^^^^^1"
^DIST(.403,47,"AY",1,180,2,"N")="^^0^^0"
^DIST(.403,47,"AY",1,181)="6^1^69.5^^d^^^^0"
^DIST(.403,47,"AY",1,189)="12^53^69.5^^e^^^^0"
^DIST(.403,47,"AY",1,"FIRST")="1,179"
^DIST(.403,47,"AY",2,0,0,"N")="1,369^1,182^1,182^1,369^1,182"
^DIST(.403,47,"AY",2,178)="0^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",2,178,2,"D")="3^6^50^.01"
^DIST(.403,47,"AY",2,178,3,"D")="3^69^3^1"
^DIST(.403,47,"AY",2,178,6,"D")="^^^^1^66^^0"
^DIST(.403,47,"AY",2,182)="8^0^69.53^^e^^3^^1^1"
^DIST(.403,47,"AY",2,182,1,"D")="8^0^35^.01"
^DIST(.403,47,"AY",2,182,1,"N")="0^1,369^1,244^0^1,244^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",2,184)="6^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",2,244)="8^43^69.58^^e^^3^^1^1"
^DIST(.403,47,"AY",2,244,1,"D")="8^44^15^.01"
^DIST(.403,47,"AY",2,244,1,"N")="0^1,369^1,369^1,182^1,369^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",2,369)="13^0^69.55^^e^^3^^1^1"
^DIST(.403,47,"AY",2,369,1,"D")="14^0^30^.01"
^DIST(.403,47,"AY",2,369,1,"N")="1,182^0^0^1,244^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",2,369,2,"D")="14^48^30^0^^^^^1"
^DIST(.403,47,"AY",2,369,2,"N")="^^0^^0"
^DIST(.403,47,"AY",2,369,3,"D")="14^33^12^0^^^^^1"
^DIST(.403,47,"AY",2,369,3,"N")="^^0^^0"
^DIST(.403,47,"AY",2,"FIRST")="1,182"
^DIST(.403,47,"AY",3,0,0,"N")="1,186^1,186^1,186^1,187^1,186"
^DIST(.403,47,"AY",3,178)="0^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",3,178,2,"D")="3^6^50^.01"
^DIST(.403,47,"AY",3,178,3,"D")="3^69^3^1"
^DIST(.403,47,"AY",3,178,6,"D")="^^^^1^66^^0"
^DIST(.403,47,"AY",3,185)="6^0^69.55^^d^^^^0"
^DIST(.403,47,"AY",3,186)="10^0^69.56^^e^^4^^1^1"
^DIST(.403,47,"AY",3,186,1,"D")="10^0^30^.01"
^DIST(.403,47,"AY",3,186,1,"N")="0^0^1,187^0^1,187^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",3,187)="10^39^69.57^^e^^4^^1^1"
^DIST(.403,47,"AY",3,187,1,"D")="10^39^30^.01"
^DIST(.403,47,"AY",3,187,1,"N")="0^0^0^1,186^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,47,"AY",3,"FIRST")="1,186"
^DIST(.403,47,"AY",4,0,0,"N")="5,248^1,248^1,248^5,248^1,248"
^DIST(.403,47,"AY",4,178)="0^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",4,178,2,"D")="3^6^50^.01"
^DIST(.403,47,"AY",4,178,3,"D")="3^69^3^1"
^DIST(.403,47,"AY",4,178,6,"D")="^^^^1^66^^0"
^DIST(.403,47,"AY",4,248)="6^0^69.5^^e^^^^1"
^DIST(.403,47,"AY",4,248,1,"D")="6^17^3^11"
^DIST(.403,47,"AY",4,248,1,"N")="0^3^2^0^2"
^DIST(.403,47,"AY",4,248,2,"D")="6^54^3^13"
^DIST(.403,47,"AY",4,248,2,"N")="0^3^3^1^3"
^DIST(.403,47,"AY",4,248,3,"D")="8^22^11^17"
^DIST(.403,47,"AY",4,248,3,"N")="1^5^4^2^4"
^DIST(.403,47,"AY",4,248,4,"D")="8^63^11^18"
^DIST(.403,47,"AY",4,248,4,"N")="2^5^5^3^5"
^DIST(.403,47,"AY",4,248,5,"D")="10^12^1^16"
^DIST(.403,47,"AY",4,248,5,"N")="3^0^0^4^0"
^DIST(.403,47,"AY",4,"FIRST")="1,248"
^DIST(.403,47,"AY",5,0,0,"N")="9,188^3,188^3,188^9,188^3,188"
^DIST(.403,47,"AY",5,178)="0^0^69.5^^d^^^^0"
^DIST(.403,47,"AY",5,178,2,"D")="3^6^50^.01"
^DIST(.403,47,"AY",5,178,3,"D")="3^69^3^1"
^DIST(.403,47,"AY",5,178,6,"D")="^^^^1^66^^0"
^DIST(.403,47,"AY",5,188)="6^0^69.5^^e^^^^3"
^DIST(.403,47,"AY",5,188,3,"D")="7^10^20^9"
^DIST(.403,47,"AY",5,188,3,"N")="0^5^4^0^4"
^DIST(.403,47,"AY",5,188,4,"D")="7^47^25^12"
^DIST(.403,47,"AY",5,188,4,"N")="0^8^5^3^5"
^DIST(.403,47,"AY",5,188,5,"D")="9^11^7^10"
^DIST(.403,47,"AY",5,188,5,"N")="3^10^8^4^8"
^DIST(.403,47,"AY",5,188,7,"D")="11^15^13^19"
^DIST(.403,47,"AY",5,188,7,"N")="^^^^9"
^DIST(.403,47,"AY",5,188,8,"D")="9^47^2^10.5"
^DIST(.403,47,"AY",5,188,8,"N")="4^10^10^5^10"
^DIST(.403,47,"AY",5,188,9,"D")="13^21^1^15"
^DIST(.403,47,"AY",5,188,9,"N")="10^0^0^10^0^^^^^^1"
^DIST(.403,47,"AY",5,188,10,"D")="11^15^13^19"
^DIST(.403,47,"AY",5,188,10,"N")="5^9^9^8^7"
^DIST(.403,47,"AY",5,"FIRST")="3,188"
^DIST(.403,47,"AY",6,0,0,"N")="3,383^3,383^3,383^4,383^3,383"
^DIST(.403,47,"AY",6,383)="1^3^69.55^^e^^^^3"
^DIST(.403,47,"AY",6,383,3,"D")="6^4^12^1"
^DIST(.403,47,"AY",6,383,3,"N")="0^0^4^0^4"
^DIST(.403,47,"AY",6,383,4,"D")="6^26^30^2"
^DIST(.403,47,"AY",6,383,4,"N")="0^0^0^3^0"
^DIST(.403,47,"AY",6,"FIRST")="3,383"
^DIST(.403,47,"AY","CAP","AFTER DATE OF BIRTH","1^2^3^4^5",4,248,4)=""
^DIST(.403,47,"AY","CAP","BEFORE DATE OF BIRTH","1^2^3^4^5",4,248,3)=""
^DIST(.403,47,"AY","CAP","FIRST ENCOUNTER","1^2^3^4^5",4,248,1)=""
^DIST(.403,47,"AY","CAP","FOLLOW PTF","1^2^3^4^5",4,248,2)=""
^DIST(.403,47,"AY","CAP","GENERAL DESCRIPTION","1^2^3^4^5",5,188,9)=""
^DIST(.403,47,"AY","CAP","LAG DAYS","1^2^3^4^5",5,188,8)=""
^DIST(.403,47,"AY","CAP","PREVIOUS CYCLE","1^2^3^4^5",5,188,7)=""
^DIST(.403,47,"AY","CAP","PREVIOUS CYCLE","1^2^3^4^5",5,188,10)=""
^DIST(.403,47,"AY","CAP","PROTOCOL","1^2^3^4^5",5,188,4)=""
^DIST(.403,47,"AY","CAP","RUN CYCLE","1^2^3^4^5",5,188,5)=""
^DIST(.403,47,"AY","CAP","RUN DATE","1^2^3^4^5",5,188,3)=""
^DIST(.403,47,"AY","CAP","SEX","1^2^3^4^5",4,248,5)=""
^DIST(.403,47,"AY","COMP",62.06,64,2,369,2)=""
^DIST(.403,47,"AY","COMP",62.06,64,2,369,3)=""
^DIST(.403,47,"AY","COMP",64,1,2,369,3)=""
^DIST(.403,47,"AY","COMP",69.54,.01,1,180,2)=""
^DIST(.403,47,"AY","COMP",69.55,.01,2,369,2)=""
^DIST(.403,47,"AY","COMP",69.55,.01,2,369,3)=""
^DIST(.403,47,"AY","COMP",80,3,1,180,2)=""
^DIST(.403,47,"AY","COMPE",180,2)="S Y=DDSE(1)"
^DIST(.403,47,"AY","COMPE",180,2,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,47,""AY"",""COMPE"",180,2,1,DDSI))  X ^(DDSI)"
^DIST(.403,47,"AY","COMPE",180,2,1,1)="S X=$$GET^DDSVAL(69.54,.DA,.01)"
^DIST(.403,47,"AY","COMPE",180,2,1,2)="S X=$$GET^DDSVAL(80,X,3,"""",""E""),DDSE(1)=X"
^DIST(.403,47,"AY","COMPE",369,2)="S Y=DDSE(1)"
^DIST(.403,47,"AY","COMPE",369,2,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,47,""AY"",""COMPE"",369,2,1,DDSI))  X ^(DDSI)"
^DIST(.403,47,"AY","COMPE",369,2,1,1)="S X=$$GET^DDSVAL(69.55,.DA,.01)"
^DIST(.403,47,"AY","COMPE",369,2,1,2)="S X=$$GET^DDSVAL(62.06,X,64,"""",""E""),DDSE(1)=X"
^DIST(.403,47,"AY","COMPE",369,3)="S Y=DDSE(1)"
^DIST(.403,47,"AY","COMPE",369,3,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:3 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,47,""AY"",""COMPE"",369,3,1,DDSI))  X ^(DDSI)"
^DIST(.403,47,"AY","COMPE",369,3,1,1)="S X=$$GET^DDSVAL(69.55,.DA,.01)"
^DIST(.403,47,"AY","COMPE",369,3,1,2)="S X=$$GET^DDSVAL(62.06,X,64)"
^DIST(.403,47,"AY","COMPE",369,3,1,3)="S X=$$GET^DDSVAL(64,X,1,"""",""E""),DDSE(1)=X"
^DIST(.403,47,"AY","F69.5",.01,"L",1,178,2)=""
^DIST(.403,47,"AY","F69.5",.01,"L",2,178,2)=""
^DIST(.403,47,"AY","F69.5",.01,"L",3,178,2)=""
^DIST(.403,47,"AY","F69.5",.01,"L",4,178,2)=""
^DIST(.403,47,"AY","F69.5",.01,"L",5,178,2)=""
^DIST(.403,47,"AY","F69.5",1,"L",1,178,3)=""
^DIST(.403,47,"AY","F69.5",1,"L",2,178,3)=""
^DIST(.403,47,"AY","F69.5",1,"L",3,178,3)=""
^DIST(.403,47,"AY","F69.5",1,"L",4,178,3)=""
^DIST(.403,47,"AY","F69.5",1,"L",5,178,3)=""
^DIST(.403,47,"AY","F69.5",9,"L",5,188,3)=""
^DIST(.403,47,"AY","F69.5",10,"L",5,188,5)=""
^DIST(.403,47,"AY","F69.5",10.5,"L",5,188,8)=""
^DIST(.403,47,"AY","F69.5",11,"L",4,248,1)=""
^DIST(.403,47,"AY","F69.5",12,"L",5,188,4)=""
^DIST(.403,47,"AY","F69.5",13,"L",4,248,2)=""
^DIST(.403,47,"AY","F69.5",15,"L",5,188,9)=""
^DIST(.403,47,"AY","F69.5",16,"L",4,248,5)=""
^DIST(.403,47,"AY","F69.5",17,"L",4,248,3)=""
^DIST(.403,47,"AY","F69.5",18,"L",4,248,4)=""
^DIST(.403,47,"AY","F69.5",19,"L",5,188,7)=""
^DIST(.403,47,"AY","F69.5",19,"L",5,188,10)=""
^DIST(.403,47,"AY","F69.52",.01,"L",1,179,1)=""
^DIST(.403,47,"AY","F69.52",1,"L",1,179,2)=""
^DIST(.403,47,"AY","F69.52",2,"L",1,179,3)=""
^DIST(.403,47,"AY","F69.53",.01,"L",2,182,1)=""
^DIST(.403,47,"AY","F69.54",0,"L",1,180,2)=""
^DIST(.403,47,"AY","F69.54",.01,"L",1,180,1)=""
^DIST(.403,47,"AY","F69.55",0,"L",2,369,2)=""
^DIST(.403,47,"AY","F69.55",0,"L",2,369,3)=""
^DIST(.403,47,"AY","F69.55",.01,"L",2,369,1)=""
^DIST(.403,47,"AY","F69.55",1,"L",6,383,3)=""
^DIST(.403,47,"AY","F69.55",2,"L",6,383,4)=""
^DIST(.403,47,"AY","F69.56",.01,"L",3,186,1)=""
^DIST(.403,47,"AY","F69.57",.01,"L",3,187,1)=""
^DIST(.403,47,"AY","F69.58",.01,"L",2,244,1)=""
^DIST(.403,47,"AY","X",1,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,47,"AY","X",1,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,47,"AY","X",1,3,0,"A")="1;4;U"
^DIST(.403,47,"AY","X",1,4,0)="________________________________________________________________________________"
^DIST(.403,47,"AY","X",1,6,1)="Laboratory Test(s)               Indicator                 Value"
^DIST(.403,47,"AY","X",1,12,2)="ICDM-9                          ICDM-9 Description"
^DIST(.403,47,"AY","X",2,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,47,"AY","X",2,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,47,"AY","X",2,3,0,"A")="1;4;U"
^DIST(.403,47,"AY","X",2,4,0)="________________________________________________________________________________"
^DIST(.403,47,"AY","X",2,6,0)="Selected Etiology                           Selected Snomed Codes"
^DIST(.403,47,"AY","X",2,12,0)="Antimicrobial Susceptibility     NLT Code       NLT Description"
^DIST(.403,47,"AY","X",3,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,47,"AY","X",3,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,47,"AY","X",3,3,0,"A")="1;4;U"
^DIST(.403,47,"AY","X",3,4,0)="________________________________________________________________________________"
^DIST(.403,47,"AY","X",3,6,26)="Topography Selection"
^DIST(.403,47,"AY","X",3,8,0)="Include                                Exclude"
^DIST(.403,47,"AY","X",4,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,47,"AY","X",4,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,47,"AY","X",4,3,0,"A")="1;4;U"
^DIST(.403,47,"AY","X",4,4,0)="________________________________________________________________________________"
^DIST(.403,47,"AY","X",4,6,0)="FIRST ENCOUNTER:                          FOLLOW PTF:"
^DIST(.403,47,"AY","X",4,8,0)="BEFORE DATE OF BIRTH:                     AFTER DATE OF BIRTH:"
^DIST(.403,47,"AY","X",4,10,0)="Select SEX:"
^DIST(.403,47,"AY","X",5,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,47,"AY","X",5,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,47,"AY","X",5,3,0,"A")="1;4;U"
^DIST(.403,47,"AY","X",5,4,0)="________________________________________________________________________________"
^DIST(.403,47,"AY","X",5,7,0)="Run Date:                            Protocol:"
^DIST(.403,47,"AY","X",5,9,0)="Run Cycle:                           Lag Days:"
^DIST(.403,47,"AY","X",5,11,0)="Previous Cycle:"
^DIST(.403,47,"AY","X",5,13,0)="General Description:"
^DIST(.403,47,"AY","X",6,3,3)="Indicator             Indicated Value"
^DIST(.403,48,0)="ENPR MS^@^@^^2970402.1701^^^6925^0^0^1"
^DIST(.403,48,11)="S ENPG(""T"")=""MILESTONE DATA EDIT"",ENMSOK=$$MSL^ENPROJF(DA)"
^DIST(.403,48,12)="K ENPG(""T""),ENPG(""N""),ENMSOK"
^DIST(.403,48,40,0)="^.4031I^2^2"
^DIST(.403,48,40,1,0)="1^^1,1^2^2"
^DIST(.403,48,40,1,1)="Page 1"
^DIST(.403,48,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 2"""
^DIST(.403,48,40,1,12)=""
^DIST(.403,48,40,1,40,0)="^.4032IP^198^2"
^DIST(.403,48,40,1,40,192,0)="192^1^1,1^d"
^DIST(.403,48,40,1,40,198,0)="198^2^4,1^e"
^DIST(.403,48,40,1,40,"AC",1,192)=""
^DIST(.403,48,40,1,40,"AC",2,198)=""
^DIST(.403,48,40,1,40,"B",192,192)=""
^DIST(.403,48,40,1,40,"B",198,198)=""
^DIST(.403,48,40,2,0)="2^^1,1^1^1"
^DIST(.403,48,40,2,1)="Page 2"
^DIST(.403,48,40,2,11)="S ENPG(""N"")=""PAGE 2 OF 2"""
^DIST(.403,48,40,2,12)=""
^DIST(.403,48,40,2,40,0)="^.4032IP^193^2"
^DIST(.403,48,40,2,40,192,0)="192^1^1,1^d"
^DIST(.403,48,40,2,40,193,0)="193^2^4,1^e"
^DIST(.403,48,40,2,40,193,11)=""
^DIST(.403,48,40,2,40,193,12)=""
^DIST(.403,48,40,2,40,"AC",1,192)=""
^DIST(.403,48,40,2,40,"AC",2,193)=""
^DIST(.403,48,40,2,40,"B",192,192)=""
^DIST(.403,48,40,2,40,"B",193,193)=""
^DIST(.403,48,40,"B",1,1)=""
^DIST(.403,48,40,"B",2,2)=""
^DIST(.403,48,40,"C","PAGE 1",1)=""
^DIST(.403,48,40,"C","PAGE 2",2)=""
^DIST(.403,48,"AY",1,0,0,"N")="35,198^1,198^1,198^60,198^1,198"
^DIST(.403,48,"AY",1,192)="0^0^6925^^d^^^^0"
^DIST(.403,48,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,48,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,48,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,48,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,48,"AY",1,198)="3^0^6925^^e^^^^1"
^DIST(.403,48,"AY",1,198,1,"D")="5^26^11^20"
^DIST(.403,48,"AY",1,198,1,"N")="0^26^24^0^26"
^DIST(.403,48,"AY",1,198,24,"D")="5^39^11^34"
^DIST(.403,48,"AY",1,198,24,"N")="0^36^25^1^36"
^DIST(.403,48,"AY",1,198,25,"D")="5^52^11^49"
^DIST(.403,48,"AY",1,198,25,"N")="0^46^26^24^46"
^DIST(.403,48,"AY",1,198,26,"D")="6^26^11^20.1"
^DIST(.403,48,"AY",1,198,26,"N")="1^48^36^25^27"
^DIST(.403,48,"AY",1,198,27,"D")="8^26^11^20.3"
^DIST(.403,48,"AY",1,198,27,"N")="48^28^37^48^28"
^DIST(.403,48,"AY",1,198,28,"D")="9^26^11^20.4"
^DIST(.403,48,"AY",1,198,28,"N")="27^29^38^47^29"
^DIST(.403,48,"AY",1,198,29,"D")="10^26^11^20.5"
^DIST(.403,48,"AY",1,198,29,"N")="28^30^39^49^30"
^DIST(.403,48,"AY",1,198,30,"D")="11^26^11^21"
^DIST(.403,48,"AY",1,198,30,"N")="29^31^40^50^31"
^DIST(.403,48,"AY",1,198,31,"D")="12^26^11^22"
^DIST(.403,48,"AY",1,198,31,"N")="30^32^41^51^32"
^DIST(.403,48,"AY",1,198,32,"D")="13^26^11^22.5"
^DIST(.403,48,"AY",1,198,32,"N")="31^33^42^58^33"
^DIST(.403,48,"AY",1,198,33,"D")="14^26^11^22.6"
^DIST(.403,48,"AY",1,198,33,"N")="32^34^43^53^34"
^DIST(.403,48,"AY",1,198,34,"D")="15^26^11^23"
^DIST(.403,48,"AY",1,198,34,"N")="33^35^44^59^35"
^DIST(.403,48,"AY",1,198,35,"D")="16^26^11^24"
^DIST(.403,48,"AY",1,198,35,"N")="34^0^45^55^24"
^DIST(.403,48,"AY",1,198,36,"D")="6^39^11^34.1"
^DIST(.403,48,"AY",1,198,36,"N")="24^48^46^26^37"
^DIST(.403,48,"AY",1,198,37,"D")="8^39^11^34.3"
^DIST(.403,48,"AY",1,198,37,"N")="48^38^47^27^38"
^DIST(.403,48,"AY",1,198,38,"D")="9^39^11^34.4"
^DIST(.403,48,"AY",1,198,38,"N")="37^39^49^28^39"
^DIST(.403,48,"AY",1,198,39,"D")="10^39^11^34.5"
^DIST(.403,48,"AY",1,198,39,"N")="38^40^50^29^40"
^DIST(.403,48,"AY",1,198,40,"D")="11^39^11^35"
^DIST(.403,48,"AY",1,198,40,"N")="39^41^51^30^41"
^DIST(.403,48,"AY",1,198,41,"D")="12^39^11^36"
^DIST(.403,48,"AY",1,198,41,"N")="40^42^52^31^42"
^DIST(.403,48,"AY",1,198,42,"D")="13^39^11^36.1"
^DIST(.403,48,"AY",1,198,42,"N")="41^43^53^32^43"
^DIST(.403,48,"AY",1,198,43,"D")="14^39^11^36.2"
^DIST(.403,48,"AY",1,198,43,"N")="42^44^54^33^44"
^DIST(.403,48,"AY",1,198,44,"D")="15^39^11^37"
^DIST(.403,48,"AY",1,198,44,"N")="43^45^55^34^45"
^DIST(.403,48,"AY",1,198,45,"D")="16^39^11^38"
^DIST(.403,48,"AY",1,198,45,"N")="44^0^56^35^25"
^DIST(.403,48,"AY",1,198,46,"D")="6^52^11^49.1"
^DIST(.403,48,"AY",1,198,46,"N")="25^48^57^36^57"
^DIST(.403,48,"AY",1,198,47,"D")="8^52^11^51"
^DIST(.403,48,"AY",1,198,47,"N")="48^49^28^37^49"
^DIST(.403,48,"AY",1,198,48,"D")="7^52^11^50"
^DIST(.403,48,"AY",1,198,48,"N")="46^47^27^57^47"
^DIST(.403,48,"AY",1,198,49,"D")="9^52^11^52"
^DIST(.403,48,"AY",1,198,49,"N")="47^50^29^38^50"
^DIST(.403,48,"AY",1,198,50,"D")="10^52^11^53"
^DIST(.403,48,"AY",1,198,50,"N")="49^51^30^39^51"
^DIST(.403,48,"AY",1,198,51,"D")="11^52^11^54"
^DIST(.403,48,"AY",1,198,51,"N")="50^52^31^40^52"
^DIST(.403,48,"AY",1,198,52,"D")="12^52^11^55"
^DIST(.403,48,"AY",1,198,52,"N")="51^53^58^41^58"
^DIST(.403,48,"AY",1,198,53,"D")="13^52^11^55.5"
^DIST(.403,48,"AY",1,198,53,"N")="52^54^33^42^54"
^DIST(.403,48,"AY",1,198,54,"D")="14^52^11^55.6"
^DIST(.403,48,"AY",1,198,54,"N")="53^55^59^43^59"
^DIST(.403,48,"AY",1,198,55,"D")="15^52^11^56"
^DIST(.403,48,"AY",1,198,55,"N")="54^56^35^44^56"
^DIST(.403,48,"AY",1,198,56,"D")="16^52^11^57"
^DIST(.403,48,"AY",1,198,56,"N")="55^0^60^45^60"
^DIST(.403,48,"AY",1,198,57,"D")="6^65^3^13^^^^^^1"
^DIST(.403,48,"AY",1,198,57,"N")="25^48^48^46^48"
^DIST(.403,48,"AY",1,198,58,"D")="12^65^3^9^^^^^^1"
^DIST(.403,48,"AY",1,198,58,"N")="51^53^32^52^53"
^DIST(.403,48,"AY",1,198,59,"D")="14^65^3^12^^^^^^1"
^DIST(.403,48,"AY",1,198,59,"N")="53^55^34^54^55"
^DIST(.403,48,"AY",1,198,60,"D")="16^65^3^10^^^^^^1"
^DIST(.403,48,"AY",1,198,60,"N")="55^0^0^56^0"
^DIST(.403,48,"AY",1,198,61,"D")="^^^^5^21^^0"
^DIST(.403,48,"AY",1,198,62,"D")="^^^^6^21^^0"
^DIST(.403,48,"AY",1,198,63,"D")="^^^^7^21^^0"
^DIST(.403,48,"AY",1,198,64,"D")="^^^^8^21^^0"
^DIST(.403,48,"AY",1,198,65,"D")="^^^^9^21^^0"
^DIST(.403,48,"AY",1,198,66,"D")="^^^^10^21^^0"
^DIST(.403,48,"AY",1,198,67,"D")="^^^^11^21^^0"
^DIST(.403,48,"AY",1,198,68,"D")="^^^^12^21^^0"
^DIST(.403,48,"AY",1,198,69,"D")="^^^^13^21^^0"
^DIST(.403,48,"AY",1,198,70,"D")="^^^^14^21^^0"
^DIST(.403,48,"AY",1,198,71,"D")="^^^^15^21^^0"
^DIST(.403,48,"AY",1,198,72,"D")="^^^^16^21^^0"
^DIST(.403,48,"AY",1,"FIRST")="1,198"
^DIST(.403,48,"AY",2,0,0,"N")="62,193^21,193^21,193^62,193^21,193"
^DIST(.403,48,"AY",2,192)="0^0^6925^^d^^^^0"
^DIST(.403,48,"AY",2,192,2,"D")="1^11^11^.01"
^DIST(.403,48,"AY",2,192,3,"D")="1^30^50^2"
^DIST(.403,48,"AY",2,192,5,"D")="^^^^0^66^^0"
^DIST(.403,48,"AY",2,192,6,"D")="^^^^0^25^^0"
^DIST(.403,48,"AY",2,193)="3^0^6925^^e^^^^21"
^DIST(.403,48,"AY",2,193,21,"D")="5^26^11^24.4"
^DIST(.403,48,"AY",2,193,21,"N")="0^22^31^0^22"
^DIST(.403,48,"AY",2,193,22,"D")="6^26^11^24.6"
^DIST(.403,48,"AY",2,193,22,"N")="21^23^32^41^23"
^DIST(.403,48,"AY",2,193,23,"D")="7^26^11^25"
^DIST(.403,48,"AY",2,193,23,"N")="22^24^33^42^24"
^DIST(.403,48,"AY",2,193,24,"D")="8^26^11^25.4"
^DIST(.403,48,"AY",2,193,24,"N")="23^25^34^43^25"
^DIST(.403,48,"AY",2,193,25,"D")="9^26^11^25.6"
^DIST(.403,48,"AY",2,193,25,"N")="24^26^35^44^26"
^DIST(.403,48,"AY",2,193,26,"D")="10^26^11^26"
^DIST(.403,48,"AY",2,193,26,"N")="25^27^36^45^27"
^DIST(.403,48,"AY",2,193,27,"D")="11^26^11^27"
^DIST(.403,48,"AY",2,193,27,"N")="26^28^37^46^28"
^DIST(.403,48,"AY",2,193,28,"D")="12^26^11^28"
^DIST(.403,48,"AY",2,193,28,"N")="27^29^38^47^29"
^DIST(.403,48,"AY",2,193,29,"D")="13^26^11^29"
^DIST(.403,48,"AY",2,193,29,"N")="28^30^39^48^30"
^DIST(.403,48,"AY",2,193,30,"D")="14^26^11^30"
^DIST(.403,48,"AY",2,193,30,"N")="29^62^40^51^31"
^DIST(.403,48,"AY",2,193,31,"D")="5^39^11^38.4"
^DIST(.403,48,"AY",2,193,31,"N")="0^32^41^21^32"
^DIST(.403,48,"AY",2,193,32,"D")="6^39^11^38.6"
^DIST(.403,48,"AY",2,193,32,"N")="31^33^42^22^33"
^DIST(.403,48,"AY",2,193,33,"D")="7^39^11^39"
^DIST(.403,48,"AY",2,193,33,"N")="32^34^43^23^34"
^DIST(.403,48,"AY",2,193,34,"D")="8^39^11^39.4"
^DIST(.403,48,"AY",2,193,34,"N")="33^35^44^24^35"
^DIST(.403,48,"AY",2,193,35,"D")="9^39^11^39.6"
^DIST(.403,48,"AY",2,193,35,"N")="34^36^45^25^36"
^DIST(.403,48,"AY",2,193,36,"D")="10^39^11^40"
^DIST(.403,48,"AY",2,193,36,"N")="35^37^46^26^37"
^DIST(.403,48,"AY",2,193,37,"D")="11^39^11^41"
^DIST(.403,48,"AY",2,193,37,"N")="36^38^47^27^38"
^DIST(.403,48,"AY",2,193,38,"D")="12^39^11^42"
^DIST(.403,48,"AY",2,193,38,"N")="37^39^48^28^39"
^DIST(.403,48,"AY",2,193,39,"D")="13^39^11^43"
^DIST(.403,48,"AY",2,193,39,"N")="38^40^49^29^40"
^DIST(.403,48,"AY",2,193,40,"D")="14^39^11^44"
^DIST(.403,48,"AY",2,193,40,"N")="39^62^50^30^41"
^DIST(.403,48,"AY",2,193,41,"D")="5^52^11^57.4"
^DIST(.403,48,"AY",2,193,41,"N")="0^42^22^31^42"
^DIST(.403,48,"AY",2,193,42,"D")="6^52^11^57.6"
^DIST(.403,48,"AY",2,193,42,"N")="41^43^23^32^43"
^DIST(.403,48,"AY",2,193,43,"D")="7^52^11^58"
^DIST(.403,48,"AY",2,193,43,"N")="42^44^24^33^44"
^DIST(.403,48,"AY",2,193,44,"D")="8^52^11^58.4"
^DIST(.403,48,"AY",2,193,44,"N")="43^45^25^34^45"
^DIST(.403,48,"AY",2,193,45,"D")="9^52^11^58.6"
^DIST(.403,48,"AY",2,193,45,"N")="44^46^26^35^46"
^DIST(.403,48,"AY",2,193,46,"D")="10^52^11^59"
^DIST(.403,48,"AY",2,193,46,"N")="45^47^27^36^47"
^DIST(.403,48,"AY",2,193,47,"D")="11^52^11^60"
^DIST(.403,48,"AY",2,193,47,"N")="46^48^28^37^48"
^DIST(.403,48,"AY",2,193,48,"D")="12^52^11^61"
^DIST(.403,48,"AY",2,193,48,"N")="47^49^29^38^49"
^DIST(.403,48,"AY",2,193,49,"D")="13^52^11^62"
^DIST(.403,48,"AY",2,193,49,"N")="48^50^51^39^51"
^DIST(.403,48,"AY",2,193,50,"D")="14^52^11^63"
^DIST(.403,48,"AY",2,193,50,"N")="49^62^62^40^62"
^DIST(.403,48,"AY",2,193,51,"D")="13^65^3^11^^^^^^1"
^DIST(.403,48,"AY",2,193,51,"N")="48^50^30^49^50"
^DIST(.403,48,"AY",2,193,52,"D")="^^^^5^21^^0"
^DIST(.403,48,"AY",2,193,53,"D")="^^^^6^21^^0"
^DIST(.403,48,"AY",2,193,54,"D")="^^^^7^21^^0"
^DIST(.403,48,"AY",2,193,55,"D")="^^^^8^21^^0"
^DIST(.403,48,"AY",2,193,56,"D")="^^^^9^21^^0"
^DIST(.403,48,"AY",2,193,57,"D")="^^^^10^21^^0"
^DIST(.403,48,"AY",2,193,58,"D")="^^^^11^21^^0"
^DIST(.403,48,"AY",2,193,59,"D")="^^^^12^21^^0"
^DIST(.403,48,"AY",2,193,60,"D")="^^^^13^21^^0"
^DIST(.403,48,"AY",2,193,61,"D")="^^^^14^21^^0"
^DIST(.403,48,"AY",2,193,62,"D")="16^8^30^6"
^DIST(.403,48,"AY",2,193,62,"N")="30^0^0^50^0"
^DIST(.403,48,"AY",2,"FIRST")="21,193"
^DIST(.403,48,"AY","CAP","STATUS","1^2",2,193,62)=""
^DIST(.403,48,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,48,"AY","F6925",.01,"L",2,192,2)=""
^DIST(.403,48,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,48,"AY","F6925",2,"L",2,192,3)=""
^DIST(.403,48,"AY","F6925",6,"L",2,193,62)=""
^DIST(.403,48,"AY","F6925",9,"L",1,198,58)=""
^DIST(.403,48,"AY","F6925",10,"L",1,198,60)=""
^DIST(.403,48,"AY","F6925",11,"L",2,193,51)=""
^DIST(.403,48,"AY","F6925",12,"L",1,198,59)=""
^DIST(.403,48,"AY","F6925",13,"L",1,198,57)=""
^DIST(.403,48,"AY","F6925",20,"L",1,198,1)=""
^DIST(.403,48,"AY","F6925",20.1,"L",1,198,26)=""
^DIST(.403,48,"AY","F6925",20.3,"L",1,198,27)=""
^DIST(.403,48,"AY","F6925",20.4,"L",1,198,28)=""
^DIST(.403,48,"AY","F6925",20.5,"L",1,198,29)=""
^DIST(.403,48,"AY","F6925",21,"L",1,198,30)=""
^DIST(.403,48,"AY","F6925",22,"L",1,198,31)=""
^DIST(.403,48,"AY","F6925",22.5,"L",1,198,32)=""
^DIST(.403,48,"AY","F6925",22.6,"L",1,198,33)=""
^DIST(.403,48,"AY","F6925",23,"L",1,198,34)=""
^DIST(.403,48,"AY","F6925",24,"L",1,198,35)=""
^DIST(.403,48,"AY","F6925",24.4,"L",2,193,21)=""
^DIST(.403,48,"AY","F6925",24.6,"L",2,193,22)=""
^DIST(.403,48,"AY","F6925",25,"L",2,193,23)=""
^DIST(.403,48,"AY","F6925",25.4,"L",2,193,24)=""
^DIST(.403,48,"AY","F6925",25.6,"L",2,193,25)=""
^DIST(.403,48,"AY","F6925",26,"L",2,193,26)=""
^DIST(.403,48,"AY","F6925",27,"L",2,193,27)=""
^DIST(.403,48,"AY","F6925",28,"L",2,193,28)=""
^DIST(.403,48,"AY","F6925",29,"L",2,193,29)=""
^DIST(.403,48,"AY","F6925",30,"L",2,193,30)=""
^DIST(.403,48,"AY","F6925",34,"L",1,198,24)=""
^DIST(.403,48,"AY","F6925",34.1,"L",1,198,36)=""
^DIST(.403,48,"AY","F6925",34.3,"L",1,198,37)=""
^DIST(.403,48,"AY","F6925",34.4,"L",1,198,38)=""
^DIST(.403,48,"AY","F6925",34.5,"L",1,198,39)=""
^DIST(.403,48,"AY","F6925",35,"L",1,198,40)=""
^DIST(.403,48,"AY","F6925",36,"L",1,198,41)=""
^DIST(.403,48,"AY","F6925",36.1,"L",1,198,42)=""
^DIST(.403,48,"AY","F6925",36.2,"L",1,198,43)=""
^DIST(.403,48,"AY","F6925",37,"L",1,198,44)=""
^DIST(.403,48,"AY","F6925",38,"L",1,198,45)=""
^DIST(.403,48,"AY","F6925",38.4,"L",2,193,31)=""
^DIST(.403,48,"AY","F6925",38.6,"L",2,193,32)=""
^DIST(.403,48,"AY","F6925",39,"L",2,193,33)=""
^DIST(.403,48,"AY","F6925",39.4,"L",2,193,34)=""
^DIST(.403,48,"AY","F6925",39.6,"L",2,193,35)=""
^DIST(.403,48,"AY","F6925",40,"L",2,193,36)=""
^DIST(.403,48,"AY","F6925",41,"L",2,193,37)=""
^DIST(.403,48,"AY","F6925",42,"L",2,193,38)=""
^DIST(.403,48,"AY","F6925",43,"L",2,193,39)=""
^DIST(.403,48,"AY","F6925",44,"L",2,193,40)=""
^DIST(.403,48,"AY","F6925",49,"L",1,198,25)=""
^DIST(.403,48,"AY","F6925",49.1,"L",1,198,46)=""
^DIST(.403,48,"AY","F6925",50,"L",1,198,48)=""
^DIST(.403,48,"AY","F6925",51,"L",1,198,47)=""
^DIST(.403,48,"AY","F6925",52,"L",1,198,49)=""
^DIST(.403,48,"AY","F6925",53,"L",1,198,50)=""
^DIST(.403,48,"AY","F6925",54,"L",1,198,51)=""
^DIST(.403,48,"AY","F6925",55,"L",1,198,52)=""
^DIST(.403,48,"AY","F6925",55.5,"L",1,198,53)=""
^DIST(.403,48,"AY","F6925",55.6,"L",1,198,54)=""
^DIST(.403,48,"AY","F6925",56,"L",1,198,55)=""
^DIST(.403,48,"AY","F6925",57,"L",1,198,56)=""
^DIST(.403,48,"AY","F6925",57.4,"L",2,193,41)=""
^DIST(.403,48,"AY","F6925",57.6,"L",2,193,42)=""
^DIST(.403,48,"AY","F6925",58,"L",2,193,43)=""
^DIST(.403,48,"AY","F6925",58.4,"L",2,193,44)=""
^DIST(.403,48,"AY","F6925",58.6,"L",2,193,45)=""
^DIST(.403,48,"AY","F6925",59,"L",2,193,46)=""
^DIST(.403,48,"AY","F6925",60,"L",2,193,47)=""
^DIST(.403,48,"AY","F6925",61,"L",2,193,48)=""
^DIST(.403,48,"AY","F6925",62,"L",2,193,49)=""
^DIST(.403,48,"AY","F6925",63,"L",2,193,50)=""
^DIST(.403,48,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,48,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,48,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,48,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,48,"AY","X",1,3,0)="Milestone                 Planned      Revised      Actual       % COMP"
^DIST(.403,48,"AY","X",1,4,0)="--------------------      -----------  -----------  -----------  ------"
^DIST(.403,48,"AY","X",1,5,0)="DESIGN PROGRAM START"
^DIST(.403,48,"AY","X",1,6,0)="DESIGN PROGRAM COMPL"
^DIST(.403,48,"AY","X",1,7,0)="AUTHORIZED"
^DIST(.403,48,"AY","X",1,8,0)="ADVERTISE FOR A/E"
^DIST(.403,48,"AY","X",1,9,0)="SELECT A/E"
^DIST(.403,48,"AY","X",1,10,0)="A/E AWARD"
^DIST(.403,48,"AY","X",1,11,0)="START SCHEMATICS"
^DIST(.403,48,"AY","X",1,12,0)="COMPLETE SCHEMATICS"
^DIST(.403,48,"AY","X",1,13,0)="START DESIGN DEV."
^DIST(.403,48,"AY","X",1,14,0)="COMPL. DESIGN DEV."
^DIST(.403,48,"AY","X",1,15,0)="START/AWARD CD"
^DIST(.403,48,"AY","X",1,16,0)="COMPLETE CONST. DOC."
^DIST(.403,48,"AY","X",2,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,48,"AY","X",2,1,0)="PROJECT #:             TITLE:"
^DIST(.403,48,"AY","X",2,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,48,"AY","X",2,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,48,"AY","X",2,3,0)="Milestone                 Planned      Revised      Actual       % Comp"
^DIST(.403,48,"AY","X",2,4,0)="--------------------      -----------  -----------  -----------  ------"
^DIST(.403,48,"AY","X",2,5,0)="Start L/T Review"
^DIST(.403,48,"AY","X",2,6,0)="Start Audit Review"
^DIST(.403,48,"AY","X",2,7,0)="Issue IFB/SBA"
^DIST(.403,48,"AY","X",2,8,0)="Compl. L/T Review"
^DIST(.403,48,"AY","X",2,9,0)="Compl. Audit Review"
^DIST(.403,48,"AY","X",2,10,0)="Bid Open/Negotiation"
^DIST(.403,48,"AY","X",2,11,0)="Construction Award"
^DIST(.403,48,"AY","X",2,12,0)="Construction Start"
^DIST(.403,48,"AY","X",2,13,0)="Const. Complete"
^DIST(.403,48,"AY","X",2,14,0)="Activation"
^DIST(.403,48,"AY","X",2,16,0)="STATUS:"
^DIST(.403,48,"AY","X",2,16,0,"A")="1;6;U"
^DIST(.403,49,0)="ENPR ALL^@^@^^2970403.1344^^^6925^0^0^1"
^DIST(.403,49,11)="S ENPG(""T"")=""EDIT ALL DATA"""
^DIST(.403,49,12)="K ENPG(""T""),ENPG(""N"")"
^DIST(.403,49,40,0)="^.4031I^7^7"
^DIST(.403,49,40,1,0)="1^^1,1^2^7"
^DIST(.403,49,40,1,1)="Page 1"
^DIST(.403,49,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 7"""
^DIST(.403,49,40,1,12)=""
^DIST(.403,49,40,1,40,0)="^.4032IP^194^2"
^DIST(.403,49,40,1,40,192,0)="192^1^1,1^e"
^DIST(.403,49,40,1,40,194,0)="194^2^4,1^e"
^DIST(.403,49,40,1,40,"AC",1,192)=""
^DIST(.403,49,40,1,40,"AC",2,194)=""
^DIST(.403,49,40,1,40,"B",192,192)=""
^DIST(.403,49,40,1,40,"B",194,194)=""
^DIST(.403,49,40,2,0)="2^^1,1^3^1"
^DIST(.403,49,40,2,1)="Page 2"
^DIST(.403,49,40,2,11)="S ENPG(""N"")=""PAGE 2 OF 7"" D NHPR^ENPROJF"
^DIST(.403,49,40,2,40,0)="^.4032IP^192^3"
^DIST(.403,49,40,2,40,190,0)="190^2^4,1^e"
^DIST(.403,49,40,2,40,191,0)="191^3^12,1^e"
^DIST(.403,49,40,2,40,191,2)="6"
^DIST(.403,49,40,2,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,2,40,"AC",1,192)=""
^DIST(.403,49,40,2,40,"AC",2,190)=""
^DIST(.403,49,40,2,40,"AC",3,191)=""
^DIST(.403,49,40,2,40,"B",190,190)=""
^DIST(.403,49,40,2,40,"B",191,191)=""
^DIST(.403,49,40,2,40,"B",192,192)=""
^DIST(.403,49,40,3,0)="3^^1,1^4^2"
^DIST(.403,49,40,3,1)="Page 3"
^DIST(.403,49,40,3,11)="S ENPG(""N"")=""PAGE 3 OF 7"",ENMSOK=$$MSL^ENPROJF(DA)"
^DIST(.403,49,40,3,12)="K ENMSOK"
^DIST(.403,49,40,3,40,0)="^.4032IP^198^2"
^DIST(.403,49,40,3,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,3,40,198,0)="198^2^4,1^e"
^DIST(.403,49,40,3,40,"AC",1,192)=""
^DIST(.403,49,40,3,40,"AC",2,198)=""
^DIST(.403,49,40,3,40,"B",192,192)=""
^DIST(.403,49,40,3,40,"B",198,198)=""
^DIST(.403,49,40,4,0)="4^^1,1^5^3"
^DIST(.403,49,40,4,1)="Page 4"
^DIST(.403,49,40,4,11)="S ENPG(""N"")=""PAGE 4 OF 7"",ENMSOK=$$MSL^ENPROJF(DA)"
^DIST(.403,49,40,4,12)="K ENMSOK"
^DIST(.403,49,40,4,40,0)="^.4032IP^193^2"
^DIST(.403,49,40,4,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,4,40,193,0)="193^2^4,1^e"
^DIST(.403,49,40,4,40,"AC",1,192)=""
^DIST(.403,49,40,4,40,"AC",2,193)=""
^DIST(.403,49,40,4,40,"B",192,192)=""
^DIST(.403,49,40,4,40,"B",193,193)=""
^DIST(.403,49,40,5,0)="5^^1,1^6^4"
^DIST(.403,49,40,5,1)="Page 5"
^DIST(.403,49,40,5,11)="S ENPG(""N"")=""PAGE 5 OF 7"""
^DIST(.403,49,40,5,40,0)="^.4032IP^195^2"
^DIST(.403,49,40,5,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,5,40,195,0)="195^2^4,1^e"
^DIST(.403,49,40,5,40,"AC",1,192)=""
^DIST(.403,49,40,5,40,"AC",2,195)=""
^DIST(.403,49,40,5,40,"B",192,192)=""
^DIST(.403,49,40,5,40,"B",195,195)=""
^DIST(.403,49,40,6,0)="6^^1,1^7^5"
^DIST(.403,49,40,6,1)="Page 6"
^DIST(.403,49,40,6,11)="S ENPG(""N"")=""PAGE 6 OF 7"""
^DIST(.403,49,40,6,40,0)="^.4032IP^196^2"
^DIST(.403,49,40,6,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,6,40,196,0)="196^2^4,1^e"
^DIST(.403,49,40,6,40,"AC",1,192)=""
^DIST(.403,49,40,6,40,"AC",2,196)=""
^DIST(.403,49,40,6,40,"B",192,192)=""
^DIST(.403,49,40,6,40,"B",196,196)=""
^DIST(.403,49,40,7,0)="7^^1,1^1^6"
^DIST(.403,49,40,7,1)="Page 7"
^DIST(.403,49,40,7,11)="S ENPG(""N"")=""PAGE 7 OF 7"""
^DIST(.403,49,40,7,40,0)="^.4032IP^197^2"
^DIST(.403,49,40,7,40,192,0)="192^1^1,1^d"
^DIST(.403,49,40,7,40,197,0)="197^2^4,1^e"
^DIST(.403,49,40,7,40,"AC",1,192)=""
^DIST(.403,49,40,7,40,"AC",2,197)=""
^DIST(.403,49,40,7,40,"B",192,192)=""
^DIST(.403,49,40,7,40,"B",197,197)=""
^DIST(.403,49,40,"B",1,1)=""
^DIST(.403,49,40,"B",2,2)=""
^DIST(.403,49,40,"B",3,3)=""
^DIST(.403,49,40,"B",4,4)=""
^DIST(.403,49,40,"B",5,5)=""
^DIST(.403,49,40,"B",6,6)=""
^DIST(.403,49,40,"B",7,7)=""
^DIST(.403,49,40,"C","PAGE 1",1)=""
^DIST(.403,49,40,"C","PAGE 2",2)=""
^DIST(.403,49,40,"C","PAGE 3",3)=""
^DIST(.403,49,40,"C","PAGE 4",4)=""
^DIST(.403,49,40,"C","PAGE 5",5)=""
^DIST(.403,49,40,"C","PAGE 6",6)=""
^DIST(.403,49,40,"C","PAGE 7",7)=""
^DIST(.403,49,"AY",1,0,0,"N")="21,194^2,192^2,192^25,194^2,192"
^DIST(.403,49,"AY",1,192)="0^0^6925^^e^^^^2"
^DIST(.403,49,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",1,192,2,"N")="0^1,194^3^0^3"
^DIST(.403,49,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",1,192,3,"N")="0^1,194^1,194^2^1,194"
^DIST(.403,49,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",1,194)="3^0^6925^^e^^^^1"
^DIST(.403,49,"AY",1,194,1,"D")="3^10^30^3"
^DIST(.403,49,"AY",1,194,1,"N")="2,192^3^2^3,192^2"
^DIST(.403,49,"AY",1,194,2,"D")="3^53^10^176"
^DIST(.403,49,"AY",1,194,2,"N")="3,192^3^3^1^3"
^DIST(.403,49,"AY",1,194,3,"D")="4^15^25^158"
^DIST(.403,49,"AY",1,194,3,"N")="1^4^4^2^4"
^DIST(.403,49,"AY",1,194,4,"D")="6^9^13^155"
^DIST(.403,49,"AY",1,194,4,"N")="3^5^33^3^33"
^DIST(.403,49,"AY",1,194,5,"D")="7^18^30^158.1"
^DIST(.403,49,"AY",1,194,5,"N")="4^7^6^33^6"
^DIST(.403,49,"AY",1,194,6,"D")="7^61^14^158.8"
^DIST(.403,49,"AY",1,194,6,"N")="33^7^7^5^7"
^DIST(.403,49,"AY",1,194,7,"D")="8^17^30^158.2"
^DIST(.403,49,"AY",1,194,7,"N")="5^8^8^6^8"
^DIST(.403,49,"AY",1,194,8,"D")="9^16^3^158.6"
^DIST(.403,49,"AY",1,194,8,"N")="7^20^9^7^9"
^DIST(.403,49,"AY",1,194,9,"D")="9^35^44^158.7"
^DIST(.403,49,"AY",1,194,9,"N")="7^24^20^8^20"
^DIST(.403,49,"AY",1,194,20,"D")="13^14^4^3.45"
^DIST(.403,49,"AY",1,194,20,"N")="8^21^22^9^22"
^DIST(.403,49,"AY",1,194,21,"D")="14^14^4^3.5"
^DIST(.403,49,"AY",1,194,21,"N")="20^0^23^24^23"
^DIST(.403,49,"AY",1,194,22,"D")="13^20^8^7"
^DIST(.403,49,"AY",1,194,22,"N")="8^23^24^20^24"
^DIST(.403,49,"AY",1,194,23,"D")="14^20^13^8"
^DIST(.403,49,"AY",1,194,23,"N")="22^0^25^21^25"
^DIST(.403,49,"AY",1,194,24,"D")="13^35^11^5^^^^^^1"
^DIST(.403,49,"AY",1,194,24,"N")="9^25^21^22^21"
^DIST(.403,49,"AY",1,194,25,"D")="14^35^11^4^^^^^^1"
^DIST(.403,49,"AY",1,194,25,"N")="24^0^0^23^0"
^DIST(.403,49,"AY",1,194,27,"D")="16^35^11^0^^^^^1^1"
^DIST(.403,49,"AY",1,194,29,"D")="13^48^11^0^^^^^1^1"
^DIST(.403,49,"AY",1,194,30,"D")="14^48^11^0^^^^^1^1"
^DIST(.403,49,"AY",1,194,32,"D")="16^48^11^0^^^^^1^1"
^DIST(.403,49,"AY",1,194,33,"D")="6^32^30^6"
^DIST(.403,49,"AY",1,194,33,"N")="3^5^5^4^5"
^DIST(.403,49,"AY",1,"FIRST")="2,192"
^DIST(.403,49,"AY",2,0,0,"N")="1,191^9,190^9,190^2,191^9,190"
^DIST(.403,49,"AY",2,190)="3^0^6925^^e^^^^9"
^DIST(.403,49,"AY",2,190,1,"D")="5^25^4^158.3^^^^^^1"
^DIST(.403,49,"AY",2,190,1,"N")="9^2^2^9^2"
^DIST(.403,49,"AY",2,190,2,"D")="6^25^4^158.4^^^^^^1"
^DIST(.403,49,"AY",2,190,2,"N")="1^8^8^1^8"
^DIST(.403,49,"AY",2,190,8,"D")="7^25^4^158.5^^^^^^1"
^DIST(.403,49,"AY",2,190,8,"N")="2^1,191^1,191^2^1,191"
^DIST(.403,49,"AY",2,190,9,"D")="3^25^4^165.1^^^^^^1"
^DIST(.403,49,"AY",2,190,9,"N")="0^1^1^0^1"
^DIST(.403,49,"AY",2,191)="11^0^6925.0166^^e^^6^^1^1"
^DIST(.403,49,"AY",2,191,1,"D")="11^9^14^.01"
^DIST(.403,49,"AY",2,191,1,"N")="8,190^0^0^8,190^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,49,"AY",2,191,2,"D")="11^29^4^1^^^^^^1"
^DIST(.403,49,"AY",2,191,2,"N")="8,190^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,49,"AY",2,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",2,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",2,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",2,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",2,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",2,"FIRST")="9,190"
^DIST(.403,49,"AY",3,0,0,"N")="35,198^1,198^1,198^60,198^1,198"
^DIST(.403,49,"AY",3,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",3,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",3,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",3,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",3,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",3,198)="3^0^6925^^e^^^^1"
^DIST(.403,49,"AY",3,198,1,"D")="5^26^11^20"
^DIST(.403,49,"AY",3,198,1,"N")="0^26^24^0^26"
^DIST(.403,49,"AY",3,198,24,"D")="5^39^11^34"
^DIST(.403,49,"AY",3,198,24,"N")="0^36^25^1^36"
^DIST(.403,49,"AY",3,198,25,"D")="5^52^11^49"
^DIST(.403,49,"AY",3,198,25,"N")="0^46^26^24^46"
^DIST(.403,49,"AY",3,198,26,"D")="6^26^11^20.1"
^DIST(.403,49,"AY",3,198,26,"N")="1^48^36^25^27"
^DIST(.403,49,"AY",3,198,27,"D")="8^26^11^20.3"
^DIST(.403,49,"AY",3,198,27,"N")="48^28^37^48^28"
^DIST(.403,49,"AY",3,198,28,"D")="9^26^11^20.4"
^DIST(.403,49,"AY",3,198,28,"N")="27^29^38^47^29"
^DIST(.403,49,"AY",3,198,29,"D")="10^26^11^20.5"
^DIST(.403,49,"AY",3,198,29,"N")="28^30^39^49^30"
^DIST(.403,49,"AY",3,198,30,"D")="11^26^11^21"
^DIST(.403,49,"AY",3,198,30,"N")="29^31^40^50^31"
^DIST(.403,49,"AY",3,198,31,"D")="12^26^11^22"
^DIST(.403,49,"AY",3,198,31,"N")="30^32^41^51^32"
^DIST(.403,49,"AY",3,198,32,"D")="13^26^11^22.5"
^DIST(.403,49,"AY",3,198,32,"N")="31^33^42^58^33"
^DIST(.403,49,"AY",3,198,33,"D")="14^26^11^22.6"
^DIST(.403,49,"AY",3,198,33,"N")="32^34^43^53^34"
^DIST(.403,49,"AY",3,198,34,"D")="15^26^11^23"
^DIST(.403,49,"AY",3,198,34,"N")="33^35^44^59^35"
^DIST(.403,49,"AY",3,198,35,"D")="16^26^11^24"
^DIST(.403,49,"AY",3,198,35,"N")="34^0^45^55^24"
^DIST(.403,49,"AY",3,198,36,"D")="6^39^11^34.1"
^DIST(.403,49,"AY",3,198,36,"N")="24^48^46^26^37"
^DIST(.403,49,"AY",3,198,37,"D")="8^39^11^34.3"
^DIST(.403,49,"AY",3,198,37,"N")="48^38^47^27^38"
^DIST(.403,49,"AY",3,198,38,"D")="9^39^11^34.4"
^DIST(.403,49,"AY",3,198,38,"N")="37^39^49^28^39"
^DIST(.403,49,"AY",3,198,39,"D")="10^39^11^34.5"
^DIST(.403,49,"AY",3,198,39,"N")="38^40^50^29^40"
^DIST(.403,49,"AY",3,198,40,"D")="11^39^11^35"
^DIST(.403,49,"AY",3,198,40,"N")="39^41^51^30^41"
^DIST(.403,49,"AY",3,198,41,"D")="12^39^11^36"
^DIST(.403,49,"AY",3,198,41,"N")="40^42^52^31^42"
^DIST(.403,49,"AY",3,198,42,"D")="13^39^11^36.1"
^DIST(.403,49,"AY",3,198,42,"N")="41^43^53^32^43"
^DIST(.403,49,"AY",3,198,43,"D")="14^39^11^36.2"
^DIST(.403,49,"AY",3,198,43,"N")="42^44^54^33^44"
^DIST(.403,49,"AY",3,198,44,"D")="15^39^11^37"
^DIST(.403,49,"AY",3,198,44,"N")="43^45^55^34^45"
^DIST(.403,49,"AY",3,198,45,"D")="16^39^11^38"
^DIST(.403,49,"AY",3,198,45,"N")="44^0^56^35^25"
^DIST(.403,49,"AY",3,198,46,"D")="6^52^11^49.1"
^DIST(.403,49,"AY",3,198,46,"N")="25^48^57^36^57"
^DIST(.403,49,"AY",3,198,47,"D")="8^52^11^51"
^DIST(.403,49,"AY",3,198,47,"N")="48^49^28^37^49"
^DIST(.403,49,"AY",3,198,48,"D")="7^52^11^50"
^DIST(.403,49,"AY",3,198,48,"N")="46^47^27^57^47"
^DIST(.403,49,"AY",3,198,49,"D")="9^52^11^52"
^DIST(.403,49,"AY",3,198,49,"N")="47^50^29^38^50"
^DIST(.403,49,"AY",3,198,50,"D")="10^52^11^53"
^DIST(.403,49,"AY",3,198,50,"N")="49^51^30^39^51"
^DIST(.403,49,"AY",3,198,51,"D")="11^52^11^54"
^DIST(.403,49,"AY",3,198,51,"N")="50^52^31^40^52"
^DIST(.403,49,"AY",3,198,52,"D")="12^52^11^55"
^DIST(.403,49,"AY",3,198,52,"N")="51^53^58^41^58"
^DIST(.403,49,"AY",3,198,53,"D")="13^52^11^55.5"
^DIST(.403,49,"AY",3,198,53,"N")="52^54^33^42^54"
^DIST(.403,49,"AY",3,198,54,"D")="14^52^11^55.6"
^DIST(.403,49,"AY",3,198,54,"N")="53^55^59^43^59"
^DIST(.403,49,"AY",3,198,55,"D")="15^52^11^56"
^DIST(.403,49,"AY",3,198,55,"N")="54^56^35^44^56"
^DIST(.403,49,"AY",3,198,56,"D")="16^52^11^57"
^DIST(.403,49,"AY",3,198,56,"N")="55^0^60^45^60"
^DIST(.403,49,"AY",3,198,57,"D")="6^65^3^13^^^^^^1"
^DIST(.403,49,"AY",3,198,57,"N")="25^48^48^46^48"
^DIST(.403,49,"AY",3,198,58,"D")="12^65^3^9^^^^^^1"
^DIST(.403,49,"AY",3,198,58,"N")="51^53^32^52^53"
^DIST(.403,49,"AY",3,198,59,"D")="14^65^3^12^^^^^^1"
^DIST(.403,49,"AY",3,198,59,"N")="53^55^34^54^55"
^DIST(.403,49,"AY",3,198,60,"D")="16^65^3^10^^^^^^1"
^DIST(.403,49,"AY",3,198,60,"N")="55^0^0^56^0"
^DIST(.403,49,"AY",3,198,61,"D")="^^^^5^21^^0"
^DIST(.403,49,"AY",3,198,62,"D")="^^^^6^21^^0"
^DIST(.403,49,"AY",3,198,63,"D")="^^^^7^21^^0"
^DIST(.403,49,"AY",3,198,64,"D")="^^^^8^21^^0"
^DIST(.403,49,"AY",3,198,65,"D")="^^^^9^21^^0"
^DIST(.403,49,"AY",3,198,66,"D")="^^^^10^21^^0"
^DIST(.403,49,"AY",3,198,67,"D")="^^^^11^21^^0"
^DIST(.403,49,"AY",3,198,68,"D")="^^^^12^21^^0"
^DIST(.403,49,"AY",3,198,69,"D")="^^^^13^21^^0"
^DIST(.403,49,"AY",3,198,70,"D")="^^^^14^21^^0"
^DIST(.403,49,"AY",3,198,71,"D")="^^^^15^21^^0"
^DIST(.403,49,"AY",3,198,72,"D")="^^^^16^21^^0"
^DIST(.403,49,"AY",3,"FIRST")="1,198"
^DIST(.403,49,"AY",4,0,0,"N")="62,193^21,193^21,193^62,193^21,193"
^DIST(.403,49,"AY",4,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",4,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",4,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",4,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",4,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",4,193)="3^0^6925^^e^^^^21"
^DIST(.403,49,"AY",4,193,21,"D")="5^26^11^24.4"
^DIST(.403,49,"AY",4,193,21,"N")="0^22^31^0^22"
^DIST(.403,49,"AY",4,193,22,"D")="6^26^11^24.6"
^DIST(.403,49,"AY",4,193,22,"N")="21^23^32^41^23"
^DIST(.403,49,"AY",4,193,23,"D")="7^26^11^25"
^DIST(.403,49,"AY",4,193,23,"N")="22^24^33^42^24"
^DIST(.403,49,"AY",4,193,24,"D")="8^26^11^25.4"
^DIST(.403,49,"AY",4,193,24,"N")="23^25^34^43^25"
^DIST(.403,49,"AY",4,193,25,"D")="9^26^11^25.6"
^DIST(.403,49,"AY",4,193,25,"N")="24^26^35^44^26"
^DIST(.403,49,"AY",4,193,26,"D")="10^26^11^26"
^DIST(.403,49,"AY",4,193,26,"N")="25^27^36^45^27"
^DIST(.403,49,"AY",4,193,27,"D")="11^26^11^27"
^DIST(.403,49,"AY",4,193,27,"N")="26^28^37^46^28"
^DIST(.403,49,"AY",4,193,28,"D")="12^26^11^28"
^DIST(.403,49,"AY",4,193,28,"N")="27^29^38^47^29"
^DIST(.403,49,"AY",4,193,29,"D")="13^26^11^29"
^DIST(.403,49,"AY",4,193,29,"N")="28^30^39^48^30"
^DIST(.403,49,"AY",4,193,30,"D")="14^26^11^30"
^DIST(.403,49,"AY",4,193,30,"N")="29^62^40^51^31"
^DIST(.403,49,"AY",4,193,31,"D")="5^39^11^38.4"
^DIST(.403,49,"AY",4,193,31,"N")="0^32^41^21^32"
^DIST(.403,49,"AY",4,193,32,"D")="6^39^11^38.6"
^DIST(.403,49,"AY",4,193,32,"N")="31^33^42^22^33"
^DIST(.403,49,"AY",4,193,33,"D")="7^39^11^39"
^DIST(.403,49,"AY",4,193,33,"N")="32^34^43^23^34"
^DIST(.403,49,"AY",4,193,34,"D")="8^39^11^39.4"
^DIST(.403,49,"AY",4,193,34,"N")="33^35^44^24^35"
^DIST(.403,49,"AY",4,193,35,"D")="9^39^11^39.6"
^DIST(.403,49,"AY",4,193,35,"N")="34^36^45^25^36"
^DIST(.403,49,"AY",4,193,36,"D")="10^39^11^40"
^DIST(.403,49,"AY",4,193,36,"N")="35^37^46^26^37"
^DIST(.403,49,"AY",4,193,37,"D")="11^39^11^41"
^DIST(.403,49,"AY",4,193,37,"N")="36^38^47^27^38"
^DIST(.403,49,"AY",4,193,38,"D")="12^39^11^42"
^DIST(.403,49,"AY",4,193,38,"N")="37^39^48^28^39"
^DIST(.403,49,"AY",4,193,39,"D")="13^39^11^43"
^DIST(.403,49,"AY",4,193,39,"N")="38^40^49^29^40"
^DIST(.403,49,"AY",4,193,40,"D")="14^39^11^44"
^DIST(.403,49,"AY",4,193,40,"N")="39^62^50^30^41"
^DIST(.403,49,"AY",4,193,41,"D")="5^52^11^57.4"
^DIST(.403,49,"AY",4,193,41,"N")="0^42^22^31^42"
^DIST(.403,49,"AY",4,193,42,"D")="6^52^11^57.6"
^DIST(.403,49,"AY",4,193,42,"N")="41^43^23^32^43"
^DIST(.403,49,"AY",4,193,43,"D")="7^52^11^58"
^DIST(.403,49,"AY",4,193,43,"N")="42^44^24^33^44"
^DIST(.403,49,"AY",4,193,44,"D")="8^52^11^58.4"
^DIST(.403,49,"AY",4,193,44,"N")="43^45^25^34^45"
^DIST(.403,49,"AY",4,193,45,"D")="9^52^11^58.6"
^DIST(.403,49,"AY",4,193,45,"N")="44^46^26^35^46"
^DIST(.403,49,"AY",4,193,46,"D")="10^52^11^59"
^DIST(.403,49,"AY",4,193,46,"N")="45^47^27^36^47"
^DIST(.403,49,"AY",4,193,47,"D")="11^52^11^60"
^DIST(.403,49,"AY",4,193,47,"N")="46^48^28^37^48"
^DIST(.403,49,"AY",4,193,48,"D")="12^52^11^61"
^DIST(.403,49,"AY",4,193,48,"N")="47^49^29^38^49"
^DIST(.403,49,"AY",4,193,49,"D")="13^52^11^62"
^DIST(.403,49,"AY",4,193,49,"N")="48^50^51^39^51"
^DIST(.403,49,"AY",4,193,50,"D")="14^52^11^63"
^DIST(.403,49,"AY",4,193,50,"N")="49^62^62^40^62"
^DIST(.403,49,"AY",4,193,51,"D")="13^65^3^11^^^^^^1"
^DIST(.403,49,"AY",4,193,51,"N")="48^50^30^49^50"
^DIST(.403,49,"AY",4,193,52,"D")="^^^^5^21^^0"
^DIST(.403,49,"AY",4,193,53,"D")="^^^^6^21^^0"
^DIST(.403,49,"AY",4,193,54,"D")="^^^^7^21^^0"
^DIST(.403,49,"AY",4,193,55,"D")="^^^^8^21^^0"
^DIST(.403,49,"AY",4,193,56,"D")="^^^^9^21^^0"
^DIST(.403,49,"AY",4,193,57,"D")="^^^^10^21^^0"
^DIST(.403,49,"AY",4,193,58,"D")="^^^^11^21^^0"
^DIST(.403,49,"AY",4,193,59,"D")="^^^^12^21^^0"
^DIST(.403,49,"AY",4,193,60,"D")="^^^^13^21^^0"
^DIST(.403,49,"AY",4,193,61,"D")="^^^^14^21^^0"
^DIST(.403,49,"AY",4,193,62,"D")="16^8^30^6"
^DIST(.403,49,"AY",4,193,62,"N")="30^0^0^50^0"
^DIST(.403,49,"AY",4,"FIRST")="21,193"
^DIST(.403,49,"AY",5,0,0,"N")="10,195^1,195^1,195^10,195^1,195"
^DIST(.403,49,"AY",5,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",5,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",5,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",5,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",5,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",5,195)="3^0^6925^^e^^^^1"
^DIST(.403,49,"AY",5,195,1,"D")="3^16^15^70"
^DIST(.403,49,"AY",5,195,1,"N")="0^11^2^0^2"
^DIST(.403,49,"AY",5,195,2,"D")="3^44^35^85"
^DIST(.403,49,"AY",5,195,2,"N")="0^11^11^1^3"
^DIST(.403,49,"AY",5,195,3,"D")="6^24^7^71.7^^^^^^1"
^DIST(.403,49,"AY",5,195,3,"N")="11^4^4^11^4"
^DIST(.403,49,"AY",5,195,4,"D")="7^24^7^72^^^^^^1"
^DIST(.403,49,"AY",5,195,4,"N")="3^5^12^3^5"
^DIST(.403,49,"AY",5,195,5,"D")="8^24^7^72.3^^^^^^1"
^DIST(.403,49,"AY",5,195,5,"N")="4^6^14^13^6"
^DIST(.403,49,"AY",5,195,6,"D")="9^24^7^72.5^^^^^^1"
^DIST(.403,49,"AY",5,195,6,"N")="5^7^7^15^7"
^DIST(.403,49,"AY",5,195,7,"D")="10^24^7^73^^^^^^1"
^DIST(.403,49,"AY",5,195,7,"N")="6^8^8^6^8"
^DIST(.403,49,"AY",5,195,8,"D")="11^24^7^74^^^^^^1"
^DIST(.403,49,"AY",5,195,8,"N")="7^9^9^7^9"
^DIST(.403,49,"AY",5,195,9,"D")="12^24^7^75^^^^^^1"
^DIST(.403,49,"AY",5,195,9,"N")="8^10^10^8^10"
^DIST(.403,49,"AY",5,195,10,"D")="13^24^7^75.5^^^^^^1"
^DIST(.403,49,"AY",5,195,10,"N")="9^0^0^9^11"
^DIST(.403,49,"AY",5,195,11,"D")="5^70^7^71.6^^^^^^1"
^DIST(.403,49,"AY",5,195,11,"N")="2^3^3^2^12"
^DIST(.403,49,"AY",5,195,12,"D")="7^59^3^77^^^^^^1"
^DIST(.403,49,"AY",5,195,12,"N")="3^14^13^4^13"
^DIST(.403,49,"AY",5,195,13,"D")="7^70^7^78^^^^^^1"
^DIST(.403,49,"AY",5,195,13,"N")="3^15^5^12^14"
^DIST(.403,49,"AY",5,195,14,"D")="8^59^3^79^^^^^^1"
^DIST(.403,49,"AY",5,195,14,"N")="12^6^15^5^15"
^DIST(.403,49,"AY",5,195,15,"D")="8^70^7^80^^^^^^1"
^DIST(.403,49,"AY",5,195,15,"N")="13^6^6^14^0"
^DIST(.403,49,"AY",5,195,21,"D")="15^24^7^0^^^^^1^1"
^DIST(.403,49,"AY",5,195,22,"D")="10^70^7^0^^^^^1^1"
^DIST(.403,49,"AY",5,195,24,"D")="13^70^7^0^^^^^1^1"
^DIST(.403,49,"AY",5,"FIRST")="1,195"
^DIST(.403,49,"AY",6,0,0,"N")="16,196^1,196^1,196^16,196^1,196"
^DIST(.403,49,"AY",6,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",6,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",6,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",6,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",6,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",6,196)="3^0^6925^^e^^^^1"
^DIST(.403,49,"AY",6,196,1,"D")="3^19^15^105"
^DIST(.403,49,"AY",6,196,1,"N")="0^6^3^0^3"
^DIST(.403,49,"AY",6,196,3,"D")="3^48^30^115"
^DIST(.403,49,"AY",6,196,3,"N")="0^6^6^1^6"
^DIST(.403,49,"AY",6,196,6,"D")="5^70^8^106^^^^^^1"
^DIST(.403,49,"AY",6,196,6,"N")="3^8^7^3^7"
^DIST(.403,49,"AY",6,196,7,"D")="7^26^3^125^^^^^^1"
^DIST(.403,49,"AY",6,196,7,"N")="6^9^8^6^8"
^DIST(.403,49,"AY",6,196,8,"D")="7^61^7^126^^^^^^1"
^DIST(.403,49,"AY",6,196,8,"N")="6^10^9^7^9"
^DIST(.403,49,"AY",6,196,9,"D")="8^26^3^127^^^^^^1"
^DIST(.403,49,"AY",6,196,9,"N")="7^18^10^8^10"
^DIST(.403,49,"AY",6,196,10,"D")="8^61^7^128^^^^^^1"
^DIST(.403,49,"AY",6,196,10,"N")="8^18^18^9^18"
^DIST(.403,49,"AY",6,196,12,"D")="9^71^7^0^^^^^1^1"
^DIST(.403,49,"AY",6,196,14,"D")="16^70^8^0^^^^^1^1"
^DIST(.403,49,"AY",6,196,15,"D")="11^61^7^107^^^^^^1"
^DIST(.403,49,"AY",6,196,15,"N")="18^16^16^18^16"
^DIST(.403,49,"AY",6,196,16,"D")="12^61^7^108^^^^^^1"
^DIST(.403,49,"AY",6,196,16,"N")="15^0^0^15^0"
^DIST(.403,49,"AY",6,196,17,"D")="13^71^7^0^^^^^1^1"
^DIST(.403,49,"AY",6,196,18,"D")="9^24^3^129.1"
^DIST(.403,49,"AY",6,196,18,"N")="9^15^15^10^15"
^DIST(.403,49,"AY",6,"FIRST")="1,196"
^DIST(.403,49,"AY",7,0,0,"N")="4,197^1,197^1,197^4,197^1,197"
^DIST(.403,49,"AY",7,192)="0^0^6925^^d^^^^0"
^DIST(.403,49,"AY",7,192,2,"D")="1^11^11^.01"
^DIST(.403,49,"AY",7,192,3,"D")="1^30^50^2"
^DIST(.403,49,"AY",7,192,5,"D")="^^^^0^66^^0"
^DIST(.403,49,"AY",7,192,6,"D")="^^^^0^25^^0"
^DIST(.403,49,"AY",7,197)="3^0^6925^^e^^^^1"
^DIST(.403,49,"AY",7,197,1,"D")="3^9^1^145"
^DIST(.403,49,"AY",7,197,1,"N")="0^5^5^0^5^^^^^^1"
^DIST(.403,49,"AY",7,197,2,"D")="8^2^76^146"
^DIST(.403,49,"AY",7,197,2,"N")="5^3^3^5^3"
^DIST(.403,49,"AY",7,197,3,"D")="10^31^11^1"
^DIST(.403,49,"AY",7,197,3,"N")="2^4^4^2^4"
^DIST(.403,49,"AY",7,197,4,"D")="12^17^3^2.5"
^DIST(.403,49,"AY",7,197,4,"N")="3^0^0^3^0"
^DIST(.403,49,"AY",7,197,5,"D")="5^31^1^5,197"
^DIST(.403,49,"AY",7,197,5,"N")="1^2^2^1^2"
^DIST(.403,49,"AY",7,"FIRST")="1,197"
^DIST(.403,49,"AY","CAP","($)","1^2^7^3^4^5^6",5,195,13)=""
^DIST(.403,49,"AY","CAP","($)","1^2^7^3^4^5^6",5,195,15)=""
^DIST(.403,49,"AY","CAP","A/E AWARD AMOUNT","1^2^7^3^4^5^6",5,195,11)=""
^DIST(.403,49,"AY","CAP","A/E CONST DOCUMENTS","1^2^7^3^4^5^6",5,195,7)=""
^DIST(.403,49,"AY","CAP","A/E CONST PER SERVCS","1^2^7^3^4^5^6",5,195,9)=""
^DIST(.403,49,"AY","CAP","A/E CONTRACT #","1^2^7^3^4^5^6",5,195,1)=""
^DIST(.403,49,"AY","CAP","A/E DESIGN DEVELOPMENT","1^2^7^3^4^5^6",5,195,6)=""
^DIST(.403,49,"AY","CAP","A/E NAME","1^2^7^3^4^5^6",5,195,2)=""
^DIST(.403,49,"AY","CAP","A/E OTHER SERVICES","1^2^7^3^4^5^6",5,195,10)=""
^DIST(.403,49,"AY","CAP","A/E SA ADDITIONS (#)","1^2^7^3^4^5^6",5,195,12)=""
^DIST(.403,49,"AY","CAP","A/E SA DEDUCTIONS (#)","1^2^7^3^4^5^6",5,195,14)=""
^DIST(.403,49,"AY","CAP","A/E SCHEMATICS","1^2^7^3^4^5^6",5,195,4)=""
^DIST(.403,49,"AY","CAP","A/E SITE SURVEY","1^2^7^3^4^5^6",5,195,5)=""
^DIST(.403,49,"AY","CAP","A/E SITE VISITS","1^2^7^3^4^5^6",5,195,8)=""
^DIST(.403,49,"AY","CAP","A/E STUDY","1^2^7^3^4^5^6",5,195,3)=""
^DIST(.403,49,"AY","CAP","BONUS CAT","1^2^7^3^4^5^6",1,194,6)=""
^DIST(.403,49,"AY","CAP","BUDGET CATEGORY","1^2^7^3^4^5^6",1,194,7)=""
^DIST(.403,49,"AY","CAP","CONST SA ADDITIONS (#)","1^2^7^3^4^5^6",6,196,7)=""
^DIST(.403,49,"AY","CAP","CONST SA ADDITIONS ($)","1^2^7^3^4^5^6",6,196,8)=""
^DIST(.403,49,"AY","CAP","CONST SA DEDUCTIONS (#)","1^2^7^3^4^5^6",6,196,9)=""
^DIST(.403,49,"AY","CAP","CONST SA DEDUCTIONS ($)","1^2^7^3^4^5^6",6,196,10)=""
^DIST(.403,49,"AY","CAP","CONST. CONTRACT #","1^2^7^3^4^5^6",6,196,1)=""
^DIST(.403,49,"AY","CAP","CONSTRUCTION AWARD","1^2^7^3^4^5^6",6,196,6)=""
^DIST(.403,49,"AY","CAP","CONTR. NAME","1^2^7^3^4^5^6",6,196,3)=""
^DIST(.403,49,"AY","CAP","DIVISION","1^2^7^3^4^5^6",1,194,2)=""
^DIST(.403,49,"AY","CAP","EPA CATEGORY","1^2^7^3^4^5^6",1,194,9)=""
^DIST(.403,49,"AY","CAP","EPA REPORTABLE","1^2^7^3^4^5^6",1,194,8)=""
^DIST(.403,49,"AY","CAP","FACILITY","1^2^7^3^4^5^6",1,194,1)=""
^DIST(.403,49,"AY","CAP","FACILITY TYPE","1^2^7^3^4^5^6",1,194,3)=""
^DIST(.403,49,"AY","CAP","MONTHLY UPDATES","1^2^7^3^4^5^6",7,197,4)=""
^DIST(.403,49,"AY","CAP","NHCU AUTHORIZED BEDS","1^2^7^3^4^5^6",2,190,9)=""
^DIST(.403,49,"AY","CAP","NHCU BEDS (CONVERTED)","1^2^7^3^4^5^6",2,190,8)=""
^DIST(.403,49,"AY","CAP","NHCU BEDS (NEW)","1^2^7^3^4^5^6",2,190,1)=""
^DIST(.403,49,"AY","CAP","NHCU BEDS (RENOVATED)","1^2^7^3^4^5^6",2,190,2)=""
^DIST(.403,49,"AY","CAP","P&H LABOR TO DATE","1^2^7^3^4^5^6",6,196,15)=""
^DIST(.403,49,"AY","CAP","P&H MATERIALS TO DATE","1^2^7^3^4^5^6",6,196,16)=""
^DIST(.403,49,"AY","CAP","PROGRAM","1^2^7^3^4^5^6",1,194,4)=""
^DIST(.403,49,"AY","CAP","PROGRESS NOTE (PRESS <PF1>Z FOR ZOOM EDI","1^2^7^3^4^5^6",7,197,2)=""
^DIST(.403,49,"AY","CAP","PROJECT #","1^2^7^3^4^5^6",1,192,2)=""
^DIST(.403,49,"AY","CAP","PROJECT CATEGORY","1^2^7^3^4^5^6",1,194,5)=""
^DIST(.403,49,"AY","CAP","RELOAD PREVIOUS PROGRESS NOTE","1^2^7^3^4^5^6",7,197,5)=""
^DIST(.403,49,"AY","CAP","REMARKS","1^2^7^3^4^5^6",7,197,1)=""
^DIST(.403,49,"AY","CAP","REPORTING PERIOD (MONTH/YEAR)","1^2^7^3^4^5^6",7,197,3)=""
^DIST(.403,49,"AY","CAP","STATUS","1^2^7^3^4^5^6",1,194,33)=""
^DIST(.403,49,"AY","CAP","STATUS","1^2^7^3^4^5^6",4,193,62)=""
^DIST(.403,49,"AY","CAP","TIME EXTENSION (DAYS)","1^2^7^3^4^5^6",6,196,18)=""
^DIST(.403,49,"AY","CAP","TITLE","1^2^7^3^4^5^6",1,192,3)=""
^DIST(.403,49,"AY","COMP",0,"12,196",6,196,14)=""
^DIST(.403,49,"AY","COMP",0,"17,196",6,196,14)=""
^DIST(.403,49,"AY","COMP",0,"22,195",5,195,24)=""
^DIST(.403,49,"AY","COMP",0,"29,194",1,194,32)=""
^DIST(.403,49,"AY","COMP",0,"30,194",1,194,32)=""
^DIST(.403,49,"AY","COMP",6925,4,1,194,27)=""
^DIST(.403,49,"AY","COMP",6925,5,1,194,27)=""
^DIST(.403,49,"AY","COMP",6925,71.6,1,194,29)=""
^DIST(.403,49,"AY","COMP",6925,71.6,5,195,24)=""
^DIST(.403,49,"AY","COMP",6925,71.7,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,72,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,72.3,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,72.5,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,73,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,74,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,75,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,75.5,5,195,21)=""
^DIST(.403,49,"AY","COMP",6925,78,1,194,29)=""
^DIST(.403,49,"AY","COMP",6925,78,5,195,22)=""
^DIST(.403,49,"AY","COMP",6925,80,1,194,29)=""
^DIST(.403,49,"AY","COMP",6925,80,5,195,22)=""
^DIST(.403,49,"AY","COMP",6925,106,1,194,30)=""
^DIST(.403,49,"AY","COMP",6925,106,6,196,14)=""
^DIST(.403,49,"AY","COMP",6925,107,1,194,30)=""
^DIST(.403,49,"AY","COMP",6925,107,6,196,17)=""
^DIST(.403,49,"AY","COMP",6925,108,1,194,30)=""
^DIST(.403,49,"AY","COMP",6925,108,6,196,17)=""
^DIST(.403,49,"AY","COMP",6925,126,1,194,30)=""
^DIST(.403,49,"AY","COMP",6925,126,6,196,12)=""
^DIST(.403,49,"AY","COMP",6925,128,1,194,30)=""
^DIST(.403,49,"AY","COMP",6925,128,6,196,12)=""
^DIST(.403,49,"AY","COMPE",194,27)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,49,"AY","COMPE",194,27,1)="N X S X=$$GET^DDSVAL(6925,.DA,5,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",194,27,2)="N X S X=$$GET^DDSVAL(6925,.DA,4,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",194,29)="S Y=DDSE(1)+DDSE(2)-DDSE(3)"
^DIST(.403,49,"AY","COMPE",194,29,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.6,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",194,29,2)="N X S X=$$GET^DDSVAL(6925,.DA,78,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",194,29,3)="N X S X=$$GET^DDSVAL(6925,.DA,80,"""",""E""),DDSE(3)=X"
^DIST(.403,49,"AY","COMPE",194,30)="S Y=DDSE(1)+DDSE(2)+DDSE(3)+DDSE(4)-DDSE(5)"
^DIST(.403,49,"AY","COMPE",194,30,1)="N X S X=$$GET^DDSVAL(6925,.DA,106,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",194,30,2)="N X S X=$$GET^DDSVAL(6925,.DA,107,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",194,30,3)="N X S X=$$GET^DDSVAL(6925,.DA,108,"""",""E""),DDSE(3)=X"
^DIST(.403,49,"AY","COMPE",194,30,4)="N X S X=$$GET^DDSVAL(6925,.DA,126,"""",""E""),DDSE(4)=X"
^DIST(.403,49,"AY","COMPE",194,30,5)="N X S X=$$GET^DDSVAL(6925,.DA,128,"""",""E""),DDSE(5)=X"
^DIST(.403,49,"AY","COMPE",194,32)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,49,"AY","COMPE",194,32,1)="N X S X=$$GET^DDSVALF(""29,194"","""","""",""E"",DDSDA),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",194,32,2)="N X S X=$$GET^DDSVALF(""30,194"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",195,21)="S Y=DDSE(1)+DDSE(2)+DDSE(3)+DDSE(4)+DDSE(5)+DDSE(6)+DDSE(7)+DDSE(8)"
^DIST(.403,49,"AY","COMPE",195,21,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.7,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",195,21,2)="N X S X=$$GET^DDSVAL(6925,.DA,72,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",195,21,3)="N X S X=$$GET^DDSVAL(6925,.DA,72.3,"""",""E""),DDSE(3)=X"
^DIST(.403,49,"AY","COMPE",195,21,4)="N X S X=$$GET^DDSVAL(6925,.DA,72.5,"""",""E""),DDSE(4)=X"
^DIST(.403,49,"AY","COMPE",195,21,5)="N X S X=$$GET^DDSVAL(6925,.DA,73,"""",""E""),DDSE(5)=X"
^DIST(.403,49,"AY","COMPE",195,21,6)="N X S X=$$GET^DDSVAL(6925,.DA,74,"""",""E""),DDSE(6)=X"
^DIST(.403,49,"AY","COMPE",195,21,7)="N X S X=$$GET^DDSVAL(6925,.DA,75,"""",""E""),DDSE(7)=X"
^DIST(.403,49,"AY","COMPE",195,21,8)="N X S X=$$GET^DDSVAL(6925,.DA,75.5,"""",""E""),DDSE(8)=X"
^DIST(.403,49,"AY","COMPE",195,22)="S Y=DDSE(1)-DDSE(2)"
^DIST(.403,49,"AY","COMPE",195,22,1)="N X S X=$$GET^DDSVAL(6925,.DA,78,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",195,22,2)="N X S X=$$GET^DDSVAL(6925,.DA,80,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",195,24)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,49,"AY","COMPE",195,24,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.6,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",195,24,2)="N X S X=$$GET^DDSVALF(""22,195"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",196,12)="S Y=DDSE(1)-DDSE(2)"
^DIST(.403,49,"AY","COMPE",196,12,1)="N X S X=$$GET^DDSVAL(6925,.DA,126,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",196,12,2)="N X S X=$$GET^DDSVAL(6925,.DA,128,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",196,14)="S Y=DDSE(1)+DDSE(2)+DDSE(3)"
^DIST(.403,49,"AY","COMPE",196,14,1)="N X S X=$$GET^DDSVAL(6925,.DA,106,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",196,14,2)="N X S X=$$GET^DDSVALF(""12,196"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,49,"AY","COMPE",196,14,3)="N X S X=$$GET^DDSVALF(""17,196"","""","""",""E"",DDSDA),DDSE(3)=X"
^DIST(.403,49,"AY","COMPE",196,17)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,49,"AY","COMPE",196,17,1)="N X S X=$$GET^DDSVAL(6925,.DA,107,"""",""E""),DDSE(1)=X"
^DIST(.403,49,"AY","COMPE",196,17,2)="N X S X=$$GET^DDSVAL(6925,.DA,108,"""",""E""),DDSE(2)=X"
^DIST(.403,49,"AY","F0","5,197","L",7,197,5)=""
^DIST(.403,49,"AY","F6925",0,"L",1,194,27)=""
^DIST(.403,49,"AY","F6925",0,"L",1,194,29)=""
^DIST(.403,49,"AY","F6925",0,"L",1,194,30)=""
^DIST(.403,49,"AY","F6925",0,"L",1,194,32)=""
^DIST(.403,49,"AY","F6925",0,"L",5,195,21)=""
^DIST(.403,49,"AY","F6925",0,"L",5,195,22)=""
^DIST(.403,49,"AY","F6925",0,"L",5,195,24)=""
^DIST(.403,49,"AY","F6925",0,"L",6,196,12)=""
^DIST(.403,49,"AY","F6925",0,"L",6,196,14)=""
^DIST(.403,49,"AY","F6925",0,"L",6,196,17)=""
^DIST(.403,49,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",2,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",3,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",4,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",5,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",6,192,2)=""
^DIST(.403,49,"AY","F6925",.01,"L",7,192,2)=""
^DIST(.403,49,"AY","F6925",1,"L",7,197,3)=""
^DIST(.403,49,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",2,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",3,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",4,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",5,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",6,192,3)=""
^DIST(.403,49,"AY","F6925",2,"L",7,192,3)=""
^DIST(.403,49,"AY","F6925",2.5,"L",7,197,4)=""
^DIST(.403,49,"AY","F6925",3,"L",1,194,1)=""
^DIST(.403,49,"AY","F6925",3.45,"L",1,194,20)=""
^DIST(.403,49,"AY","F6925",3.5,"L",1,194,21)=""
^DIST(.403,49,"AY","F6925",4,"L",1,194,25)=""
^DIST(.403,49,"AY","F6925",5,"L",1,194,24)=""
^DIST(.403,49,"AY","F6925",6,"L",1,194,33)=""
^DIST(.403,49,"AY","F6925",6,"L",4,193,62)=""
^DIST(.403,49,"AY","F6925",7,"L",1,194,22)=""
^DIST(.403,49,"AY","F6925",8,"L",1,194,23)=""
^DIST(.403,49,"AY","F6925",9,"L",3,198,58)=""
^DIST(.403,49,"AY","F6925",10,"L",3,198,60)=""
^DIST(.403,49,"AY","F6925",11,"L",4,193,51)=""
^DIST(.403,49,"AY","F6925",12,"L",3,198,59)=""
^DIST(.403,49,"AY","F6925",13,"L",3,198,57)=""
^DIST(.403,49,"AY","F6925",20,"L",3,198,1)=""
^DIST(.403,49,"AY","F6925",20.1,"L",3,198,26)=""
^DIST(.403,49,"AY","F6925",20.3,"L",3,198,27)=""
^DIST(.403,49,"AY","F6925",20.4,"L",3,198,28)=""
^DIST(.403,49,"AY","F6925",20.5,"L",3,198,29)=""
^DIST(.403,49,"AY","F6925",21,"L",3,198,30)=""
^DIST(.403,49,"AY","F6925",22,"L",3,198,31)=""
^DIST(.403,49,"AY","F6925",22.5,"L",3,198,32)=""
^DIST(.403,49,"AY","F6925",22.6,"L",3,198,33)=""
^DIST(.403,49,"AY","F6925",23,"L",3,198,34)=""
^DIST(.403,49,"AY","F6925",24,"L",3,198,35)=""
^DIST(.403,49,"AY","F6925",24.4,"L",4,193,21)=""
^DIST(.403,49,"AY","F6925",24.6,"L",4,193,22)=""
^DIST(.403,49,"AY","F6925",25,"L",4,193,23)=""
^DIST(.403,49,"AY","F6925",25.4,"L",4,193,24)=""
^DIST(.403,49,"AY","F6925",25.6,"L",4,193,25)=""
^DIST(.403,49,"AY","F6925",26,"L",4,193,26)=""
^DIST(.403,49,"AY","F6925",27,"L",4,193,27)=""
^DIST(.403,49,"AY","F6925",28,"L",4,193,28)=""
^DIST(.403,49,"AY","F6925",29,"L",4,193,29)=""
^DIST(.403,49,"AY","F6925",30,"L",4,193,30)=""
^DIST(.403,49,"AY","F6925",34,"L",3,198,24)=""
^DIST(.403,49,"AY","F6925",34.1,"L",3,198,36)=""
^DIST(.403,49,"AY","F6925",34.3,"L",3,198,37)=""
^DIST(.403,49,"AY","F6925",34.4,"L",3,198,38)=""
^DIST(.403,49,"AY","F6925",34.5,"L",3,198,39)=""
^DIST(.403,49,"AY","F6925",35,"L",3,198,40)=""
^DIST(.403,49,"AY","F6925",36,"L",3,198,41)=""
^DIST(.403,49,"AY","F6925",36.1,"L",3,198,42)=""
^DIST(.403,49,"AY","F6925",36.2,"L",3,198,43)=""
^DIST(.403,49,"AY","F6925",37,"L",3,198,44)=""
^DIST(.403,49,"AY","F6925",38,"L",3,198,45)=""
^DIST(.403,49,"AY","F6925",38.4,"L",4,193,31)=""
^DIST(.403,49,"AY","F6925",38.6,"L",4,193,32)=""
^DIST(.403,49,"AY","F6925",39,"L",4,193,33)=""
^DIST(.403,49,"AY","F6925",39.4,"L",4,193,34)=""
^DIST(.403,49,"AY","F6925",39.6,"L",4,193,35)=""
^DIST(.403,49,"AY","F6925",40,"L",4,193,36)=""
^DIST(.403,49,"AY","F6925",41,"L",4,193,37)=""
^DIST(.403,49,"AY","F6925",42,"L",4,193,38)=""
^DIST(.403,49,"AY","F6925",43,"L",4,193,39)=""
^DIST(.403,49,"AY","F6925",44,"L",4,193,40)=""
^DIST(.403,49,"AY","F6925",49,"L",3,198,25)=""
^DIST(.403,49,"AY","F6925",49.1,"L",3,198,46)=""
^DIST(.403,49,"AY","F6925",50,"L",3,198,48)=""
^DIST(.403,49,"AY","F6925",51,"L",3,198,47)=""
^DIST(.403,49,"AY","F6925",52,"L",3,198,49)=""
^DIST(.403,49,"AY","F6925",53,"L",3,198,50)=""
^DIST(.403,49,"AY","F6925",54,"L",3,198,51)=""
^DIST(.403,49,"AY","F6925",55,"L",3,198,52)=""
^DIST(.403,49,"AY","F6925",55.5,"L",3,198,53)=""
^DIST(.403,49,"AY","F6925",55.6,"L",3,198,54)=""
^DIST(.403,49,"AY","F6925",56,"L",3,198,55)=""
^DIST(.403,49,"AY","F6925",57,"L",3,198,56)=""
^DIST(.403,49,"AY","F6925",57.4,"L",4,193,41)=""
^DIST(.403,49,"AY","F6925",57.6,"L",4,193,42)=""
^DIST(.403,49,"AY","F6925",58,"L",4,193,43)=""
^DIST(.403,49,"AY","F6925",58.4,"L",4,193,44)=""
^DIST(.403,49,"AY","F6925",58.6,"L",4,193,45)=""
^DIST(.403,49,"AY","F6925",59,"L",4,193,46)=""
^DIST(.403,49,"AY","F6925",60,"L",4,193,47)=""
^DIST(.403,49,"AY","F6925",61,"L",4,193,48)=""
^DIST(.403,49,"AY","F6925",62,"L",4,193,49)=""
^DIST(.403,49,"AY","F6925",63,"L",4,193,50)=""
^DIST(.403,49,"AY","F6925",70,"L",5,195,1)=""
^DIST(.403,49,"AY","F6925",71.6,"L",5,195,11)=""
^DIST(.403,49,"AY","F6925",71.7,"L",5,195,3)=""
^DIST(.403,49,"AY","F6925",72,"L",5,195,4)=""
^DIST(.403,49,"AY","F6925",72.3,"L",5,195,5)=""
^DIST(.403,49,"AY","F6925",72.5,"L",5,195,6)=""
^DIST(.403,49,"AY","F6925",73,"L",5,195,7)=""
^DIST(.403,49,"AY","F6925",74,"L",5,195,8)=""
^DIST(.403,49,"AY","F6925",75,"L",5,195,9)=""
^DIST(.403,49,"AY","F6925",75.5,"L",5,195,10)=""
^DIST(.403,49,"AY","F6925",77,"L",5,195,12)=""
^DIST(.403,49,"AY","F6925",78,"L",5,195,13)=""
^DIST(.403,49,"AY","F6925",79,"L",5,195,14)=""
^DIST(.403,49,"AY","F6925",80,"L",5,195,15)=""
^DIST(.403,49,"AY","F6925",85,"L",5,195,2)=""
^DIST(.403,49,"AY","F6925",105,"L",6,196,1)=""
^DIST(.403,49,"AY","F6925",106,"L",6,196,6)=""
^DIST(.403,49,"AY","F6925",107,"L",6,196,15)=""
^DIST(.403,49,"AY","F6925",108,"L",6,196,16)=""
^DIST(.403,49,"AY","F6925",115,"L",6,196,3)=""
^DIST(.403,49,"AY","F6925",125,"L",6,196,7)=""
^DIST(.403,49,"AY","F6925",126,"L",6,196,8)=""
^DIST(.403,49,"AY","F6925",127,"L",6,196,9)=""
^DIST(.403,49,"AY","F6925",128,"L",6,196,10)=""
^DIST(.403,49,"AY","F6925",129.1,"L",6,196,18)=""
^DIST(.403,49,"AY","F6925",145,"L",7,197,1)=""
^DIST(.403,49,"AY","F6925",146,"L",7,197,2)=""
^DIST(.403,49,"AY","F6925",155,"L",1,194,4)=""
^DIST(.403,49,"AY","F6925",158,"L",1,194,3)=""
^DIST(.403,49,"AY","F6925",158.1,"L",1,194,5)=""
^DIST(.403,49,"AY","F6925",158.2,"L",1,194,7)=""
^DIST(.403,49,"AY","F6925",158.3,"L",2,190,1)=""
^DIST(.403,49,"AY","F6925",158.4,"L",2,190,2)=""
^DIST(.403,49,"AY","F6925",158.5,"L",2,190,8)=""
^DIST(.403,49,"AY","F6925",158.6,"L",1,194,8)=""
^DIST(.403,49,"AY","F6925",158.7,"L",1,194,9)=""
^DIST(.403,49,"AY","F6925",158.8,"L",1,194,6)=""
^DIST(.403,49,"AY","F6925",165.1,"L",2,190,9)=""
^DIST(.403,49,"AY","F6925",176,"L",1,194,2)=""
^DIST(.403,49,"AY","F6925.0166",.01,"L",2,191,1)=""
^DIST(.403,49,"AY","F6925.0166",1,"L",2,191,2)=""
^DIST(.403,49,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",1,3,0)="FACILITY:                                  DIVISION:"
^DIST(.403,49,"AY","X",1,3,0,"A")="1;8;U"
^DIST(.403,49,"AY","X",1,4,0)="FACILITY TYPE:"
^DIST(.403,49,"AY","X",1,4,0,"A")="1;13;U"
^DIST(.403,49,"AY","X",1,6,0)="PROGRAM:                STATUS:"
^DIST(.403,49,"AY","X",1,6,0,"A")="1;7;U^25;30;U"
^DIST(.403,49,"AY","X",1,7,0)="PROJECT CATEGORY:                                 BONUS CAT:"
^DIST(.403,49,"AY","X",1,7,0,"A")="1;16;U"
^DIST(.403,49,"AY","X",1,8,0)="BUDGET CATEGORY:"
^DIST(.403,49,"AY","X",1,8,0,"A")="1;15;U"
^DIST(.403,49,"AY","X",1,9,0)="EPA REPORTABLE:      EPA CATEGORY:"
^DIST(.403,49,"AY","X",1,11,15)="FY   METHOD         APPROVED $   OBLIGATED $"
^DIST(.403,49,"AY","X",1,12,14)="----  -------------  -----------  -----------"
^DIST(.403,49,"AY","X",1,13,0)="DESIGN"
^DIST(.403,49,"AY","X",1,14,0)="CONSTRUCTION"
^DIST(.403,49,"AY","X",1,15,35)="-----------  -----------"
^DIST(.403,49,"AY","X",1,16,0)="TOTAL"
^DIST(.403,49,"AY","X",2,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",2,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",2,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",2,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",2,3,2)="NHCU AUTHORIZED BEDS:"
^DIST(.403,49,"AY","X",2,5,2)="NHCU BEDS (NEW):"
^DIST(.403,49,"AY","X",2,6,2)="NHCU BEDS (RENOVATED):"
^DIST(.403,49,"AY","X",2,7,2)="NHCU BEDS (CONVERTED):"
^DIST(.403,49,"AY","X",2,9,9)="CONVERTED FROM      NUMBER"
^DIST(.403,49,"AY","X",2,10,9)="--------------      ------"
^DIST(.403,49,"AY","X",3,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",3,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",3,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",3,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",3,3,0)="Milestone                 Planned      Revised      Actual       % COMP"
^DIST(.403,49,"AY","X",3,4,0)="--------------------      -----------  -----------  -----------  ------"
^DIST(.403,49,"AY","X",3,5,0)="DESIGN PROGRAM START"
^DIST(.403,49,"AY","X",3,6,0)="DESIGN PROGRAM COMPL"
^DIST(.403,49,"AY","X",3,7,0)="AUTHORIZED"
^DIST(.403,49,"AY","X",3,8,0)="ADVERTISE FOR A/E"
^DIST(.403,49,"AY","X",3,9,0)="SELECT A/E"
^DIST(.403,49,"AY","X",3,10,0)="A/E AWARD"
^DIST(.403,49,"AY","X",3,11,0)="START SCHEMATICS"
^DIST(.403,49,"AY","X",3,12,0)="COMPLETE SCHEMATICS"
^DIST(.403,49,"AY","X",3,13,0)="START DESIGN DEV."
^DIST(.403,49,"AY","X",3,14,0)="COMPL. DESIGN DEV."
^DIST(.403,49,"AY","X",3,15,0)="START/AWARD CD"
^DIST(.403,49,"AY","X",3,16,0)="COMPLETE CONST. DOC."
^DIST(.403,49,"AY","X",4,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",4,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",4,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",4,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",4,3,0)="Milestone                 Planned      Revised      Actual       % Comp"
^DIST(.403,49,"AY","X",4,4,0)="--------------------      -----------  -----------  -----------  ------"
^DIST(.403,49,"AY","X",4,5,0)="Start L/T Review"
^DIST(.403,49,"AY","X",4,6,0)="Start Audit Review"
^DIST(.403,49,"AY","X",4,7,0)="Issue IFB/SBA"
^DIST(.403,49,"AY","X",4,8,0)="Compl. L/T Review"
^DIST(.403,49,"AY","X",4,9,0)="Compl. Audit Review"
^DIST(.403,49,"AY","X",4,10,0)="Bid Open/Negotiation"
^DIST(.403,49,"AY","X",4,11,0)="Construction Award"
^DIST(.403,49,"AY","X",4,12,0)="Construction Start"
^DIST(.403,49,"AY","X",4,13,0)="Const. Complete"
^DIST(.403,49,"AY","X",4,14,0)="Activation"
^DIST(.403,49,"AY","X",4,16,0)="STATUS:"
^DIST(.403,49,"AY","X",4,16,0,"A")="1;6;U"
^DIST(.403,49,"AY","X",5,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",5,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",5,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",5,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",5,3,0)="A/E CONTRACT #:                  A/E NAME:"
^DIST(.403,49,"AY","X",5,5,4)="A/E Award Breakdown             A/E AWARD AMOUNT:"
^DIST(.403,49,"AY","X",5,6,0)="A/E STUDY:"
^DIST(.403,49,"AY","X",5,7,0)="A/E SCHEMATICS:                     A/E SA ADDITIONS (#):        ($):"
^DIST(.403,49,"AY","X",5,8,0)="A/E SITE SURVEY:                    A/E SA DEDUCTIONS (#):       ($):"
^DIST(.403,49,"AY","X",5,9,0)="A/E DESIGN DEVELOPMENT:                                               -------"
^DIST(.403,49,"AY","X",5,10,0)="A/E CONST DOCUMENTS:                A/E SA NET:"
^DIST(.403,49,"AY","X",5,11,0)="A/E SITE VISITS:"
^DIST(.403,49,"AY","X",5,12,0)="A/E CONST PER SERVCS:                                                 -------"
^DIST(.403,49,"AY","X",5,13,0)="A/E OTHER SERVICES:                 A/E OBLIGATED $:"
^DIST(.403,49,"AY","X",5,14,24)="-------"
^DIST(.403,49,"AY","X",5,15,0)="A/E SUBTOTAL:"
^DIST(.403,49,"AY","X",6,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",6,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",6,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",6,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",6,3,0)="CONST. CONTRACT #:                 CONTR. NAME:"
^DIST(.403,49,"AY","X",6,5,35)="CONSTRUCTION AWARD:"
^DIST(.403,49,"AY","X",6,7,1)="CONST SA ADDITIONS (#):           CONST SA ADDITIONS ($):"
^DIST(.403,49,"AY","X",6,8,1)="CONST SA DEDUCTIONS (#):          CONST SA DEDUCTIONS ($):"
^DIST(.403,49,"AY","X",6,9,1)="TIME EXTENSION (DAYS):            CONST SA NET:"
^DIST(.403,49,"AY","X",6,11,35)="P&H LABOR TO DATE:"
^DIST(.403,49,"AY","X",6,12,35)="P&H MATERIALS TO DATE:"
^DIST(.403,49,"AY","X",6,13,35)="TOTAL P&H:"
^DIST(.403,49,"AY","X",6,15,70)="--------"
^DIST(.403,49,"AY","X",6,16,35)="TOTAL CONST OBLIGATION:"
^DIST(.403,49,"AY","X",7,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,49,"AY","X",7,1,0)="PROJECT #:             TITLE:"
^DIST(.403,49,"AY","X",7,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,49,"AY","X",7,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,49,"AY","X",7,3,0)="REMARKS:"
^DIST(.403,49,"AY","X",7,5,0)="Reload Previous Progress Note:"
^DIST(.403,49,"AY","X",7,7,0)="PROGRESS NOTE (Press <PF1>Z for zoom editor):"
^DIST(.403,49,"AY","X",7,10,0)="REPORTING PERIOD (Month/Year):"
^DIST(.403,49,"AY","X",7,12,0)="MONTHLY UPDATES:"
^DIST(.403,50,0)="ENPR PRELIM^@^@^^2970424.1654^^^6925^0^0^1"
^DIST(.403,50,11)="S ENPG(""T"")=""PRELIMINARY DATA EDIT"""
^DIST(.403,50,12)="K ENPG(""T""),ENPG(""N"")"
^DIST(.403,50,40,0)="^.4031I^2^2"
^DIST(.403,50,40,1,0)="1^^1,1^2^2"
^DIST(.403,50,40,1,1)="Page 1"
^DIST(.403,50,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 2"""
^DIST(.403,50,40,1,40,0)="^.4032IP^194^2"
^DIST(.403,50,40,1,40,192,0)="192^1^1,1^e"
^DIST(.403,50,40,1,40,194,0)="194^2^4,1^e"
^DIST(.403,50,40,1,40,"AC",1,192)=""
^DIST(.403,50,40,1,40,"AC",2,194)=""
^DIST(.403,50,40,1,40,"B",192,192)=""
^DIST(.403,50,40,1,40,"B",194,194)=""
^DIST(.403,50,40,2,0)="2^^1,1^1^1"
^DIST(.403,50,40,2,1)="Page 2"
^DIST(.403,50,40,2,11)="S ENPG(""N"")=""PAGE 2 OF 2"" D NHPR^ENPROJF"
^DIST(.403,50,40,2,40,0)="^.4032IP^192^3"
^DIST(.403,50,40,2,40,190,0)="190^2^4,1^e"
^DIST(.403,50,40,2,40,191,0)="191^3^12,1^e"
^DIST(.403,50,40,2,40,191,2)="6"
^DIST(.403,50,40,2,40,192,0)="192^1^1,1^d"
^DIST(.403,50,40,2,40,"AC",1,192)=""
^DIST(.403,50,40,2,40,"AC",2,190)=""
^DIST(.403,50,40,2,40,"AC",3,191)=""
^DIST(.403,50,40,2,40,"B",190,190)=""
^DIST(.403,50,40,2,40,"B",191,191)=""
^DIST(.403,50,40,2,40,"B",192,192)=""
^DIST(.403,50,40,"B",1,1)=""
^DIST(.403,50,40,"B",2,2)=""
^DIST(.403,50,40,"C","PAGE 1",1)=""
^DIST(.403,50,40,"C","PAGE 2",2)=""
^DIST(.403,50,"AY",1,0,0,"N")="21,194^2,192^2,192^25,194^2,192"
^DIST(.403,50,"AY",1,192)="0^0^6925^^e^^^^2"
^DIST(.403,50,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,50,"AY",1,192,2,"N")="0^1,194^3^0^3"
^DIST(.403,50,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,50,"AY",1,192,3,"N")="0^1,194^1,194^2^1,194"
^DIST(.403,50,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,50,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,50,"AY",1,194)="3^0^6925^^e^^^^1"
^DIST(.403,50,"AY",1,194,1,"D")="3^10^30^3"
^DIST(.403,50,"AY",1,194,1,"N")="2,192^3^2^3,192^2"
^DIST(.403,50,"AY",1,194,2,"D")="3^53^10^176"
^DIST(.403,50,"AY",1,194,2,"N")="3,192^3^3^1^3"
^DIST(.403,50,"AY",1,194,3,"D")="4^15^25^158"
^DIST(.403,50,"AY",1,194,3,"N")="1^4^4^2^4"
^DIST(.403,50,"AY",1,194,4,"D")="6^9^13^155"
^DIST(.403,50,"AY",1,194,4,"N")="3^5^33^3^33"
^DIST(.403,50,"AY",1,194,5,"D")="7^18^30^158.1"
^DIST(.403,50,"AY",1,194,5,"N")="4^7^6^33^6"
^DIST(.403,50,"AY",1,194,6,"D")="7^61^14^158.8"
^DIST(.403,50,"AY",1,194,6,"N")="33^7^7^5^7"
^DIST(.403,50,"AY",1,194,7,"D")="8^17^30^158.2"
^DIST(.403,50,"AY",1,194,7,"N")="5^8^8^6^8"
^DIST(.403,50,"AY",1,194,8,"D")="9^16^3^158.6"
^DIST(.403,50,"AY",1,194,8,"N")="7^20^9^7^9"
^DIST(.403,50,"AY",1,194,9,"D")="9^35^44^158.7"
^DIST(.403,50,"AY",1,194,9,"N")="7^24^20^8^20"
^DIST(.403,50,"AY",1,194,20,"D")="13^14^4^3.45"
^DIST(.403,50,"AY",1,194,20,"N")="8^21^22^9^22"
^DIST(.403,50,"AY",1,194,21,"D")="14^14^4^3.5"
^DIST(.403,50,"AY",1,194,21,"N")="20^0^23^24^23"
^DIST(.403,50,"AY",1,194,22,"D")="13^20^8^7"
^DIST(.403,50,"AY",1,194,22,"N")="8^23^24^20^24"
^DIST(.403,50,"AY",1,194,23,"D")="14^20^13^8"
^DIST(.403,50,"AY",1,194,23,"N")="22^0^25^21^25"
^DIST(.403,50,"AY",1,194,24,"D")="13^35^11^5^^^^^^1"
^DIST(.403,50,"AY",1,194,24,"N")="9^25^21^22^21"
^DIST(.403,50,"AY",1,194,25,"D")="14^35^11^4^^^^^^1"
^DIST(.403,50,"AY",1,194,25,"N")="24^0^0^23^0"
^DIST(.403,50,"AY",1,194,27,"D")="16^35^11^0^^^^^1^1"
^DIST(.403,50,"AY",1,194,29,"D")="13^48^11^0^^^^^1^1"
^DIST(.403,50,"AY",1,194,30,"D")="14^48^11^0^^^^^1^1"
^DIST(.403,50,"AY",1,194,32,"D")="16^48^11^0^^^^^1^1"
^DIST(.403,50,"AY",1,194,33,"D")="6^32^30^6"
^DIST(.403,50,"AY",1,194,33,"N")="3^5^5^4^5"
^DIST(.403,50,"AY",1,"FIRST")="2,192"
^DIST(.403,50,"AY",2,0,0,"N")="1,191^9,190^9,190^2,191^9,190"
^DIST(.403,50,"AY",2,190)="3^0^6925^^e^^^^9"
^DIST(.403,50,"AY",2,190,1,"D")="5^25^4^158.3^^^^^^1"
^DIST(.403,50,"AY",2,190,1,"N")="9^2^2^9^2"
^DIST(.403,50,"AY",2,190,2,"D")="6^25^4^158.4^^^^^^1"
^DIST(.403,50,"AY",2,190,2,"N")="1^8^8^1^8"
^DIST(.403,50,"AY",2,190,8,"D")="7^25^4^158.5^^^^^^1"
^DIST(.403,50,"AY",2,190,8,"N")="2^1,191^1,191^2^1,191"
^DIST(.403,50,"AY",2,190,9,"D")="3^25^4^165.1^^^^^^1"
^DIST(.403,50,"AY",2,190,9,"N")="0^1^1^0^1"
^DIST(.403,50,"AY",2,191)="11^0^6925.0166^^e^^6^^1^1"
^DIST(.403,50,"AY",2,191,1,"D")="11^9^14^.01"
^DIST(.403,50,"AY",2,191,1,"N")="8,190^0^0^8,190^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,50,"AY",2,191,2,"D")="11^29^4^1^^^^^^1"
^DIST(.403,50,"AY",2,191,2,"N")="8,190^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,50,"AY",2,192)="0^0^6925^^d^^^^0"
^DIST(.403,50,"AY",2,192,2,"D")="1^11^11^.01"
^DIST(.403,50,"AY",2,192,3,"D")="1^30^50^2"
^DIST(.403,50,"AY",2,192,5,"D")="^^^^0^66^^0"
^DIST(.403,50,"AY",2,192,6,"D")="^^^^0^25^^0"
^DIST(.403,50,"AY",2,"FIRST")="9,190"
^DIST(.403,50,"AY","CAP","BONUS CAT","1^2",1,194,6)=""
^DIST(.403,50,"AY","CAP","BUDGET CATEGORY","1^2",1,194,7)=""
^DIST(.403,50,"AY","CAP","DIVISION","1^2",1,194,2)=""
^DIST(.403,50,"AY","CAP","EPA CATEGORY","1^2",1,194,9)=""
^DIST(.403,50,"AY","CAP","EPA REPORTABLE","1^2",1,194,8)=""
^DIST(.403,50,"AY","CAP","FACILITY","1^2",1,194,1)=""
^DIST(.403,50,"AY","CAP","FACILITY TYPE","1^2",1,194,3)=""
^DIST(.403,50,"AY","CAP","NHCU AUTHORIZED BEDS","1^2",2,190,9)=""
^DIST(.403,50,"AY","CAP","NHCU BEDS (CONVERTED)","1^2",2,190,8)=""
^DIST(.403,50,"AY","CAP","NHCU BEDS (NEW)","1^2",2,190,1)=""
^DIST(.403,50,"AY","CAP","NHCU BEDS (RENOVATED)","1^2",2,190,2)=""
^DIST(.403,50,"AY","CAP","PROGRAM","1^2",1,194,4)=""
^DIST(.403,50,"AY","CAP","PROJECT #","1^2",1,192,2)=""
^DIST(.403,50,"AY","CAP","PROJECT CATEGORY","1^2",1,194,5)=""
^DIST(.403,50,"AY","CAP","STATUS","1^2",1,194,33)=""
^DIST(.403,50,"AY","CAP","TITLE","1^2",1,192,3)=""
^DIST(.403,50,"AY","COMP",0,"29,194",1,194,32)=""
^DIST(.403,50,"AY","COMP",0,"30,194",1,194,32)=""
^DIST(.403,50,"AY","COMP",6925,4,1,194,27)=""
^DIST(.403,50,"AY","COMP",6925,5,1,194,27)=""
^DIST(.403,50,"AY","COMP",6925,71.6,1,194,29)=""
^DIST(.403,50,"AY","COMP",6925,78,1,194,29)=""
^DIST(.403,50,"AY","COMP",6925,80,1,194,29)=""
^DIST(.403,50,"AY","COMP",6925,106,1,194,30)=""
^DIST(.403,50,"AY","COMP",6925,107,1,194,30)=""
^DIST(.403,50,"AY","COMP",6925,108,1,194,30)=""
^DIST(.403,50,"AY","COMP",6925,126,1,194,30)=""
^DIST(.403,50,"AY","COMP",6925,128,1,194,30)=""
^DIST(.403,50,"AY","COMPE",194,27)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,50,"AY","COMPE",194,27,1)="N X S X=$$GET^DDSVAL(6925,.DA,5,"""",""E""),DDSE(1)=X"
^DIST(.403,50,"AY","COMPE",194,27,2)="N X S X=$$GET^DDSVAL(6925,.DA,4,"""",""E""),DDSE(2)=X"
^DIST(.403,50,"AY","COMPE",194,29)="S Y=DDSE(1)+DDSE(2)-DDSE(3)"
^DIST(.403,50,"AY","COMPE",194,29,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.6,"""",""E""),DDSE(1)=X"
^DIST(.403,50,"AY","COMPE",194,29,2)="N X S X=$$GET^DDSVAL(6925,.DA,78,"""",""E""),DDSE(2)=X"
^DIST(.403,50,"AY","COMPE",194,29,3)="N X S X=$$GET^DDSVAL(6925,.DA,80,"""",""E""),DDSE(3)=X"
^DIST(.403,50,"AY","COMPE",194,30)="S Y=DDSE(1)+DDSE(2)+DDSE(3)+DDSE(4)-DDSE(5)"
^DIST(.403,50,"AY","COMPE",194,30,1)="N X S X=$$GET^DDSVAL(6925,.DA,106,"""",""E""),DDSE(1)=X"
^DIST(.403,50,"AY","COMPE",194,30,2)="N X S X=$$GET^DDSVAL(6925,.DA,107,"""",""E""),DDSE(2)=X"
^DIST(.403,50,"AY","COMPE",194,30,3)="N X S X=$$GET^DDSVAL(6925,.DA,108,"""",""E""),DDSE(3)=X"
^DIST(.403,50,"AY","COMPE",194,30,4)="N X S X=$$GET^DDSVAL(6925,.DA,126,"""",""E""),DDSE(4)=X"
^DIST(.403,50,"AY","COMPE",194,30,5)="N X S X=$$GET^DDSVAL(6925,.DA,128,"""",""E""),DDSE(5)=X"
^DIST(.403,50,"AY","COMPE",194,32)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,50,"AY","COMPE",194,32,1)="N X S X=$$GET^DDSVALF(""29,194"","""","""",""E"",DDSDA),DDSE(1)=X"
^DIST(.403,50,"AY","COMPE",194,32,2)="N X S X=$$GET^DDSVALF(""30,194"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,50,"AY","F6925",0,"L",1,194,27)=""
^DIST(.403,50,"AY","F6925",0,"L",1,194,29)=""
^DIST(.403,50,"AY","F6925",0,"L",1,194,30)=""
^DIST(.403,50,"AY","F6925",0,"L",1,194,32)=""
^DIST(.403,50,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,50,"AY","F6925",.01,"L",2,192,2)=""
^DIST(.403,50,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,50,"AY","F6925",2,"L",2,192,3)=""
^DIST(.403,50,"AY","F6925",3,"L",1,194,1)=""
^DIST(.403,50,"AY","F6925",3.45,"L",1,194,20)=""
^DIST(.403,50,"AY","F6925",3.5,"L",1,194,21)=""
^DIST(.403,50,"AY","F6925",4,"L",1,194,25)=""
^DIST(.403,50,"AY","F6925",5,"L",1,194,24)=""
^DIST(.403,50,"AY","F6925",6,"L",1,194,33)=""
^DIST(.403,50,"AY","F6925",7,"L",1,194,22)=""
^DIST(.403,50,"AY","F6925",8,"L",1,194,23)=""
^DIST(.403,50,"AY","F6925",155,"L",1,194,4)=""
^DIST(.403,50,"AY","F6925",158,"L",1,194,3)=""
^DIST(.403,50,"AY","F6925",158.1,"L",1,194,5)=""
^DIST(.403,50,"AY","F6925",158.2,"L",1,194,7)=""
^DIST(.403,50,"AY","F6925",158.3,"L",2,190,1)=""
^DIST(.403,50,"AY","F6925",158.4,"L",2,190,2)=""
^DIST(.403,50,"AY","F6925",158.5,"L",2,190,8)=""
^DIST(.403,50,"AY","F6925",158.6,"L",1,194,8)=""
^DIST(.403,50,"AY","F6925",158.7,"L",1,194,9)=""
^DIST(.403,50,"AY","F6925",158.8,"L",1,194,6)=""
^DIST(.403,50,"AY","F6925",165.1,"L",2,190,9)=""
^DIST(.403,50,"AY","F6925",176,"L",1,194,2)=""
^DIST(.403,50,"AY","F6925.0166",.01,"L",2,191,1)=""
^DIST(.403,50,"AY","F6925.0166",1,"L",2,191,2)=""
^DIST(.403,50,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,50,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,50,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,50,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,50,"AY","X",1,3,0)="FACILITY:                                  DIVISION:"
^DIST(.403,50,"AY","X",1,3,0,"A")="1;8;U"
^DIST(.403,50,"AY","X",1,4,0)="FACILITY TYPE:"
^DIST(.403,50,"AY","X",1,4,0,"A")="1;13;U"
^DIST(.403,50,"AY","X",1,6,0)="PROGRAM:                STATUS:"
^DIST(.403,50,"AY","X",1,6,0,"A")="1;7;U^25;30;U"
^DIST(.403,50,"AY","X",1,7,0)="PROJECT CATEGORY:                                 BONUS CAT:"
^DIST(.403,50,"AY","X",1,7,0,"A")="1;16;U"
^DIST(.403,50,"AY","X",1,8,0)="BUDGET CATEGORY:"
^DIST(.403,50,"AY","X",1,8,0,"A")="1;15;U"
^DIST(.403,50,"AY","X",1,9,0)="EPA REPORTABLE:      EPA CATEGORY:"
^DIST(.403,50,"AY","X",1,11,15)="FY   METHOD         APPROVED $   OBLIGATED $"
^DIST(.403,50,"AY","X",1,12,14)="----  -------------  -----------  -----------"
^DIST(.403,50,"AY","X",1,13,0)="DESIGN"
^DIST(.403,50,"AY","X",1,14,0)="CONSTRUCTION"
^DIST(.403,50,"AY","X",1,15,35)="-----------  -----------"
^DIST(.403,50,"AY","X",1,16,0)="TOTAL"
^DIST(.403,50,"AY","X",2,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,50,"AY","X",2,1,0)="PROJECT #:             TITLE:"
^DIST(.403,50,"AY","X",2,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,50,"AY","X",2,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,50,"AY","X",2,3,2)="NHCU AUTHORIZED BEDS:"
^DIST(.403,50,"AY","X",2,5,2)="NHCU BEDS (NEW):"
^DIST(.403,50,"AY","X",2,6,2)="NHCU BEDS (RENOVATED):"
^DIST(.403,50,"AY","X",2,7,2)="NHCU BEDS (CONVERTED):"
^DIST(.403,50,"AY","X",2,9,9)="CONVERTED FROM      NUMBER"
^DIST(.403,50,"AY","X",2,10,9)="--------------      ------"
^DIST(.403,51,0)="ENPR AE^@^@^^2970424.171^^^6925^0^0^1"
^DIST(.403,51,11)="S ENPG(""T"")=""A/E DATA EDIT"""
^DIST(.403,51,12)="K ENPG(""T""),ENPG(""N"")"
^DIST(.403,51,40,0)="^.4031I^1^1"
^DIST(.403,51,40,1,0)="1^^1,1"
^DIST(.403,51,40,1,1)="Page 1"
^DIST(.403,51,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 1"""
^DIST(.403,51,40,1,40,0)="^.4032IP^195^2"
^DIST(.403,51,40,1,40,192,0)="192^1^1,1^d"
^DIST(.403,51,40,1,40,195,0)="195^2^4,1^e"
^DIST(.403,51,40,1,40,"AC",1,192)=""
^DIST(.403,51,40,1,40,"AC",2,195)=""
^DIST(.403,51,40,1,40,"B",192,192)=""
^DIST(.403,51,40,1,40,"B",195,195)=""
^DIST(.403,51,40,"B",1,1)=""
^DIST(.403,51,40,"C","PAGE 1",1)=""
^DIST(.403,51,"AY",1,0,0,"N")="10,195^1,195^1,195^10,195^1,195"
^DIST(.403,51,"AY",1,192)="0^0^6925^^d^^^^0"
^DIST(.403,51,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,51,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,51,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,51,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,51,"AY",1,195)="3^0^6925^^e^^^^1"
^DIST(.403,51,"AY",1,195,1,"D")="3^16^15^70"
^DIST(.403,51,"AY",1,195,1,"N")="0^11^2^0^2"
^DIST(.403,51,"AY",1,195,2,"D")="3^44^35^85"
^DIST(.403,51,"AY",1,195,2,"N")="0^11^11^1^3"
^DIST(.403,51,"AY",1,195,3,"D")="6^24^7^71.7^^^^^^1"
^DIST(.403,51,"AY",1,195,3,"N")="11^4^4^11^4"
^DIST(.403,51,"AY",1,195,4,"D")="7^24^7^72^^^^^^1"
^DIST(.403,51,"AY",1,195,4,"N")="3^5^12^3^5"
^DIST(.403,51,"AY",1,195,5,"D")="8^24^7^72.3^^^^^^1"
^DIST(.403,51,"AY",1,195,5,"N")="4^6^14^13^6"
^DIST(.403,51,"AY",1,195,6,"D")="9^24^7^72.5^^^^^^1"
^DIST(.403,51,"AY",1,195,6,"N")="5^7^7^15^7"
^DIST(.403,51,"AY",1,195,7,"D")="10^24^7^73^^^^^^1"
^DIST(.403,51,"AY",1,195,7,"N")="6^8^8^6^8"
^DIST(.403,51,"AY",1,195,8,"D")="11^24^7^74^^^^^^1"
^DIST(.403,51,"AY",1,195,8,"N")="7^9^9^7^9"
^DIST(.403,51,"AY",1,195,9,"D")="12^24^7^75^^^^^^1"
^DIST(.403,51,"AY",1,195,9,"N")="8^10^10^8^10"
^DIST(.403,51,"AY",1,195,10,"D")="13^24^7^75.5^^^^^^1"
^DIST(.403,51,"AY",1,195,10,"N")="9^0^0^9^11"
^DIST(.403,51,"AY",1,195,11,"D")="5^70^7^71.6^^^^^^1"
^DIST(.403,51,"AY",1,195,11,"N")="2^3^3^2^12"
^DIST(.403,51,"AY",1,195,12,"D")="7^59^3^77^^^^^^1"
^DIST(.403,51,"AY",1,195,12,"N")="3^14^13^4^13"
^DIST(.403,51,"AY",1,195,13,"D")="7^70^7^78^^^^^^1"
^DIST(.403,51,"AY",1,195,13,"N")="3^15^5^12^14"
^DIST(.403,51,"AY",1,195,14,"D")="8^59^3^79^^^^^^1"
^DIST(.403,51,"AY",1,195,14,"N")="12^6^15^5^15"
^DIST(.403,51,"AY",1,195,15,"D")="8^70^7^80^^^^^^1"
^DIST(.403,51,"AY",1,195,15,"N")="13^6^6^14^0"
^DIST(.403,51,"AY",1,195,21,"D")="15^24^7^0^^^^^1^1"
^DIST(.403,51,"AY",1,195,22,"D")="10^70^7^0^^^^^1^1"
^DIST(.403,51,"AY",1,195,24,"D")="13^70^7^0^^^^^1^1"
^DIST(.403,51,"AY",1,"FIRST")="1,195"
^DIST(.403,51,"AY","CAP","($)",1,1,195,13)=""
^DIST(.403,51,"AY","CAP","($)",1,1,195,15)=""
^DIST(.403,51,"AY","CAP","A/E AWARD AMOUNT",1,1,195,11)=""
^DIST(.403,51,"AY","CAP","A/E CONST DOCUMENTS",1,1,195,7)=""
^DIST(.403,51,"AY","CAP","A/E CONST PER SERVCS",1,1,195,9)=""
^DIST(.403,51,"AY","CAP","A/E CONTRACT #",1,1,195,1)=""
^DIST(.403,51,"AY","CAP","A/E DESIGN DEVELOPMENT",1,1,195,6)=""
^DIST(.403,51,"AY","CAP","A/E NAME",1,1,195,2)=""
^DIST(.403,51,"AY","CAP","A/E OTHER SERVICES",1,1,195,10)=""
^DIST(.403,51,"AY","CAP","A/E SA ADDITIONS (#)",1,1,195,12)=""
^DIST(.403,51,"AY","CAP","A/E SA DEDUCTIONS (#)",1,1,195,14)=""
^DIST(.403,51,"AY","CAP","A/E SCHEMATICS",1,1,195,4)=""
^DIST(.403,51,"AY","CAP","A/E SITE SURVEY",1,1,195,5)=""
^DIST(.403,51,"AY","CAP","A/E SITE VISITS",1,1,195,8)=""
^DIST(.403,51,"AY","CAP","A/E STUDY",1,1,195,3)=""
^DIST(.403,51,"AY","COMP",0,"22,195",1,195,24)=""
^DIST(.403,51,"AY","COMP",6925,71.6,1,195,24)=""
^DIST(.403,51,"AY","COMP",6925,71.7,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,72,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,72.3,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,72.5,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,73,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,74,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,75,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,75.5,1,195,21)=""
^DIST(.403,51,"AY","COMP",6925,78,1,195,22)=""
^DIST(.403,51,"AY","COMP",6925,80,1,195,22)=""
^DIST(.403,51,"AY","COMPE",195,21)="S Y=DDSE(1)+DDSE(2)+DDSE(3)+DDSE(4)+DDSE(5)+DDSE(6)+DDSE(7)+DDSE(8)"
^DIST(.403,51,"AY","COMPE",195,21,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.7,"""",""E""),DDSE(1)=X"
^DIST(.403,51,"AY","COMPE",195,21,2)="N X S X=$$GET^DDSVAL(6925,.DA,72,"""",""E""),DDSE(2)=X"
^DIST(.403,51,"AY","COMPE",195,21,3)="N X S X=$$GET^DDSVAL(6925,.DA,72.3,"""",""E""),DDSE(3)=X"
^DIST(.403,51,"AY","COMPE",195,21,4)="N X S X=$$GET^DDSVAL(6925,.DA,72.5,"""",""E""),DDSE(4)=X"
^DIST(.403,51,"AY","COMPE",195,21,5)="N X S X=$$GET^DDSVAL(6925,.DA,73,"""",""E""),DDSE(5)=X"
^DIST(.403,51,"AY","COMPE",195,21,6)="N X S X=$$GET^DDSVAL(6925,.DA,74,"""",""E""),DDSE(6)=X"
^DIST(.403,51,"AY","COMPE",195,21,7)="N X S X=$$GET^DDSVAL(6925,.DA,75,"""",""E""),DDSE(7)=X"
^DIST(.403,51,"AY","COMPE",195,21,8)="N X S X=$$GET^DDSVAL(6925,.DA,75.5,"""",""E""),DDSE(8)=X"
^DIST(.403,51,"AY","COMPE",195,22)="S Y=DDSE(1)-DDSE(2)"
^DIST(.403,51,"AY","COMPE",195,22,1)="N X S X=$$GET^DDSVAL(6925,.DA,78,"""",""E""),DDSE(1)=X"
^DIST(.403,51,"AY","COMPE",195,22,2)="N X S X=$$GET^DDSVAL(6925,.DA,80,"""",""E""),DDSE(2)=X"
^DIST(.403,51,"AY","COMPE",195,24)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,51,"AY","COMPE",195,24,1)="N X S X=$$GET^DDSVAL(6925,.DA,71.6,"""",""E""),DDSE(1)=X"
^DIST(.403,51,"AY","COMPE",195,24,2)="N X S X=$$GET^DDSVALF(""22,195"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,51,"AY","F6925",0,"L",1,195,21)=""
^DIST(.403,51,"AY","F6925",0,"L",1,195,22)=""
^DIST(.403,51,"AY","F6925",0,"L",1,195,24)=""
^DIST(.403,51,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,51,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,51,"AY","F6925",70,"L",1,195,1)=""
^DIST(.403,51,"AY","F6925",71.6,"L",1,195,11)=""
^DIST(.403,51,"AY","F6925",71.7,"L",1,195,3)=""
^DIST(.403,51,"AY","F6925",72,"L",1,195,4)=""
^DIST(.403,51,"AY","F6925",72.3,"L",1,195,5)=""
^DIST(.403,51,"AY","F6925",72.5,"L",1,195,6)=""
^DIST(.403,51,"AY","F6925",73,"L",1,195,7)=""
^DIST(.403,51,"AY","F6925",74,"L",1,195,8)=""
^DIST(.403,51,"AY","F6925",75,"L",1,195,9)=""
^DIST(.403,51,"AY","F6925",75.5,"L",1,195,10)=""
^DIST(.403,51,"AY","F6925",77,"L",1,195,12)=""
^DIST(.403,51,"AY","F6925",78,"L",1,195,13)=""
^DIST(.403,51,"AY","F6925",79,"L",1,195,14)=""
^DIST(.403,51,"AY","F6925",80,"L",1,195,15)=""
^DIST(.403,51,"AY","F6925",85,"L",1,195,2)=""
^DIST(.403,51,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,51,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,51,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,51,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,51,"AY","X",1,3,0)="A/E CONTRACT #:                  A/E NAME:"
^DIST(.403,51,"AY","X",1,5,4)="A/E Award Breakdown             A/E AWARD AMOUNT:"
^DIST(.403,51,"AY","X",1,6,0)="A/E STUDY:"
^DIST(.403,51,"AY","X",1,7,0)="A/E SCHEMATICS:                     A/E SA ADDITIONS (#):        ($):"
^DIST(.403,51,"AY","X",1,8,0)="A/E SITE SURVEY:                    A/E SA DEDUCTIONS (#):       ($):"
^DIST(.403,51,"AY","X",1,9,0)="A/E DESIGN DEVELOPMENT:                                               -------"
^DIST(.403,51,"AY","X",1,10,0)="A/E CONST DOCUMENTS:                A/E SA NET:"
^DIST(.403,51,"AY","X",1,11,0)="A/E SITE VISITS:"
^DIST(.403,51,"AY","X",1,12,0)="A/E CONST PER SERVCS:                                                 -------"
^DIST(.403,51,"AY","X",1,13,0)="A/E OTHER SERVICES:                 A/E OBLIGATED $:"
^DIST(.403,51,"AY","X",1,14,24)="-------"
^DIST(.403,51,"AY","X",1,15,0)="A/E SUBTOTAL:"
^DIST(.403,52,0)="ENPR CO^@^@^^2970424.1712^^^6925^0^0^1"
^DIST(.403,52,11)="S ENPG(""T"")=""CONTRACTOR DATA EDIT"""
^DIST(.403,52,12)="K ENPG(""T""),ENPG(""N"")"
^DIST(.403,52,40,0)="^.4031I^1^1"
^DIST(.403,52,40,1,0)="1^^1,1"
^DIST(.403,52,40,1,1)="Page 1"
^DIST(.403,52,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 1"""
^DIST(.403,52,40,1,40,0)="^.4032IP^196^2"
^DIST(.403,52,40,1,40,192,0)="192^1^1,1^d"
^DIST(.403,52,40,1,40,196,0)="196^2^4,1^e"
^DIST(.403,52,40,1,40,"AC",1,192)=""
^DIST(.403,52,40,1,40,"AC",2,196)=""
^DIST(.403,52,40,1,40,"B",192,192)=""
^DIST(.403,52,40,1,40,"B",196,196)=""
^DIST(.403,52,40,"B",1,1)=""
^DIST(.403,52,40,"C","PAGE 1",1)=""
^DIST(.403,52,"AY",1,0,0,"N")="16,196^1,196^1,196^16,196^1,196"
^DIST(.403,52,"AY",1,192)="0^0^6925^^d^^^^0"
^DIST(.403,52,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,52,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,52,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,52,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,52,"AY",1,196)="3^0^6925^^e^^^^1"
^DIST(.403,52,"AY",1,196,1,"D")="3^19^15^105"
^DIST(.403,52,"AY",1,196,1,"N")="0^6^3^0^3"
^DIST(.403,52,"AY",1,196,3,"D")="3^48^30^115"
^DIST(.403,52,"AY",1,196,3,"N")="0^6^6^1^6"
^DIST(.403,52,"AY",1,196,6,"D")="5^70^8^106^^^^^^1"
^DIST(.403,52,"AY",1,196,6,"N")="3^8^7^3^7"
^DIST(.403,52,"AY",1,196,7,"D")="7^26^3^125^^^^^^1"
^DIST(.403,52,"AY",1,196,7,"N")="6^9^8^6^8"
^DIST(.403,52,"AY",1,196,8,"D")="7^61^7^126^^^^^^1"
^DIST(.403,52,"AY",1,196,8,"N")="6^10^9^7^9"
^DIST(.403,52,"AY",1,196,9,"D")="8^26^3^127^^^^^^1"
^DIST(.403,52,"AY",1,196,9,"N")="7^18^10^8^10"
^DIST(.403,52,"AY",1,196,10,"D")="8^61^7^128^^^^^^1"
^DIST(.403,52,"AY",1,196,10,"N")="8^18^18^9^18"
^DIST(.403,52,"AY",1,196,12,"D")="9^71^7^0^^^^^1^1"
^DIST(.403,52,"AY",1,196,14,"D")="16^70^8^0^^^^^1^1"
^DIST(.403,52,"AY",1,196,15,"D")="11^61^7^107^^^^^^1"
^DIST(.403,52,"AY",1,196,15,"N")="18^16^16^18^16"
^DIST(.403,52,"AY",1,196,16,"D")="12^61^7^108^^^^^^1"
^DIST(.403,52,"AY",1,196,16,"N")="15^0^0^15^0"
^DIST(.403,52,"AY",1,196,17,"D")="13^71^7^0^^^^^1^1"
^DIST(.403,52,"AY",1,196,18,"D")="9^24^3^129.1"
^DIST(.403,52,"AY",1,196,18,"N")="9^15^15^10^15"
^DIST(.403,52,"AY",1,"FIRST")="1,196"
^DIST(.403,52,"AY","CAP","CONST SA ADDITIONS (#)",1,1,196,7)=""
^DIST(.403,52,"AY","CAP","CONST SA ADDITIONS ($)",1,1,196,8)=""
^DIST(.403,52,"AY","CAP","CONST SA DEDUCTIONS (#)",1,1,196,9)=""
^DIST(.403,52,"AY","CAP","CONST SA DEDUCTIONS ($)",1,1,196,10)=""
^DIST(.403,52,"AY","CAP","CONST. CONTRACT #",1,1,196,1)=""
^DIST(.403,52,"AY","CAP","CONSTRUCTION AWARD",1,1,196,6)=""
^DIST(.403,52,"AY","CAP","CONTR. NAME",1,1,196,3)=""
^DIST(.403,52,"AY","CAP","P&H LABOR TO DATE",1,1,196,15)=""
^DIST(.403,52,"AY","CAP","P&H MATERIALS TO DATE",1,1,196,16)=""
^DIST(.403,52,"AY","CAP","TIME EXTENSION (DAYS)",1,1,196,18)=""
^DIST(.403,52,"AY","COMP",0,"12,196",1,196,14)=""
^DIST(.403,52,"AY","COMP",0,"17,196",1,196,14)=""
^DIST(.403,52,"AY","COMP",6925,106,1,196,14)=""
^DIST(.403,52,"AY","COMP",6925,107,1,196,17)=""
^DIST(.403,52,"AY","COMP",6925,108,1,196,17)=""
^DIST(.403,52,"AY","COMP",6925,126,1,196,12)=""
^DIST(.403,52,"AY","COMP",6925,128,1,196,12)=""
^DIST(.403,52,"AY","COMPE",196,12)="S Y=DDSE(1)-DDSE(2)"
^DIST(.403,52,"AY","COMPE",196,12,1)="N X S X=$$GET^DDSVAL(6925,.DA,126,"""",""E""),DDSE(1)=X"
^DIST(.403,52,"AY","COMPE",196,12,2)="N X S X=$$GET^DDSVAL(6925,.DA,128,"""",""E""),DDSE(2)=X"
^DIST(.403,52,"AY","COMPE",196,14)="S Y=DDSE(1)+DDSE(2)+DDSE(3)"
^DIST(.403,52,"AY","COMPE",196,14,1)="N X S X=$$GET^DDSVAL(6925,.DA,106,"""",""E""),DDSE(1)=X"
^DIST(.403,52,"AY","COMPE",196,14,2)="N X S X=$$GET^DDSVALF(""12,196"","""","""",""E"",DDSDA),DDSE(2)=X"
^DIST(.403,52,"AY","COMPE",196,14,3)="N X S X=$$GET^DDSVALF(""17,196"","""","""",""E"",DDSDA),DDSE(3)=X"
^DIST(.403,52,"AY","COMPE",196,17)="S Y=DDSE(1)+DDSE(2)"
^DIST(.403,52,"AY","COMPE",196,17,1)="N X S X=$$GET^DDSVAL(6925,.DA,107,"""",""E""),DDSE(1)=X"
^DIST(.403,52,"AY","COMPE",196,17,2)="N X S X=$$GET^DDSVAL(6925,.DA,108,"""",""E""),DDSE(2)=X"
^DIST(.403,52,"AY","F6925",0,"L",1,196,12)=""
^DIST(.403,52,"AY","F6925",0,"L",1,196,14)=""
^DIST(.403,52,"AY","F6925",0,"L",1,196,17)=""
^DIST(.403,52,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,52,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,52,"AY","F6925",105,"L",1,196,1)=""
^DIST(.403,52,"AY","F6925",106,"L",1,196,6)=""
^DIST(.403,52,"AY","F6925",107,"L",1,196,15)=""
^DIST(.403,52,"AY","F6925",108,"L",1,196,16)=""
^DIST(.403,52,"AY","F6925",115,"L",1,196,3)=""
^DIST(.403,52,"AY","F6925",125,"L",1,196,7)=""
^DIST(.403,52,"AY","F6925",126,"L",1,196,8)=""
^DIST(.403,52,"AY","F6925",127,"L",1,196,9)=""
^DIST(.403,52,"AY","F6925",128,"L",1,196,10)=""
^DIST(.403,52,"AY","F6925",129.1,"L",1,196,18)=""
^DIST(.403,52,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,52,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,52,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,52,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,52,"AY","X",1,3,0)="CONST. CONTRACT #:                 CONTR. NAME:"
^DIST(.403,52,"AY","X",1,5,35)="CONSTRUCTION AWARD:"
^DIST(.403,52,"AY","X",1,7,1)="CONST SA ADDITIONS (#):           CONST SA ADDITIONS ($):"
^DIST(.403,52,"AY","X",1,8,1)="CONST SA DEDUCTIONS (#):          CONST SA DEDUCTIONS ($):"
^DIST(.403,52,"AY","X",1,9,1)="TIME EXTENSION (DAYS):            CONST SA NET:"
^DIST(.403,52,"AY","X",1,11,35)="P&H LABOR TO DATE:"
^DIST(.403,52,"AY","X",1,12,35)="P&H MATERIALS TO DATE:"
^DIST(.403,52,"AY","X",1,13,35)="TOTAL P&H:"
^DIST(.403,52,"AY","X",1,15,70)="--------"
^DIST(.403,52,"AY","X",1,16,35)="TOTAL CONST OBLIGATION:"
^DIST(.403,53,0)="ENPR CHG^@^@^^2970424.1714^^^6925^0^0^1"
^DIST(.403,53,11)="S ENPG(""T"")=""CHANGES & REMARKS EDIT"""
^DIST(.403,53,12)="K ENPG(""T""),ENPG(""N"")"
^DIST(.403,53,40,0)="^.4031I^1^1"
^DIST(.403,53,40,1,0)="1^^1,1"
^DIST(.403,53,40,1,1)="Page 1"
^DIST(.403,53,40,1,11)="S ENPG(""N"")=""PAGE 1 OF 1"""
^DIST(.403,53,40,1,40,0)="^.4032IP^197^2"
^DIST(.403,53,40,1,40,192,0)="192^1^1,1^d"
^DIST(.403,53,40,1,40,197,0)="197^2^4,1^e"
^DIST(.403,53,40,1,40,"AC",1,192)=""
^DIST(.403,53,40,1,40,"AC",2,197)=""
^DIST(.403,53,40,1,40,"B",192,192)=""
^DIST(.403,53,40,1,40,"B",197,197)=""
^DIST(.403,53,40,"B",1,1)=""
^DIST(.403,53,40,"C","PAGE 1",1)=""
^DIST(.403,53,"AY",1,0,0,"N")="4,197^1,197^1,197^4,197^1,197"
^DIST(.403,53,"AY",1,192)="0^0^6925^^d^^^^0"
^DIST(.403,53,"AY",1,192,2,"D")="1^11^11^.01"
^DIST(.403,53,"AY",1,192,3,"D")="1^30^50^2"
^DIST(.403,53,"AY",1,192,5,"D")="^^^^0^66^^0"
^DIST(.403,53,"AY",1,192,6,"D")="^^^^0^25^^0"
^DIST(.403,53,"AY",1,197)="3^0^6925^^e^^^^1"
^DIST(.403,53,"AY",1,197,1,"D")="3^9^1^145"
^DIST(.403,53,"AY",1,197,1,"N")="0^5^5^0^5^^^^^^1"
^DIST(.403,53,"AY",1,197,2,"D")="8^2^76^146"
^DIST(.403,53,"AY",1,197,2,"N")="5^3^3^5^3"
^DIST(.403,53,"AY",1,197,3,"D")="10^31^11^1"
^DIST(.403,53,"AY",1,197,3,"N")="2^4^4^2^4"
^DIST(.403,53,"AY",1,197,4,"D")="12^17^3^2.5"
^DIST(.403,53,"AY",1,197,4,"N")="3^0^0^3^0"
^DIST(.403,53,"AY",1,197,5,"D")="5^31^1^5,197"
^DIST(.403,53,"AY",1,197,5,"N")="1^2^2^1^2"
^DIST(.403,53,"AY",1,"FIRST")="1,197"
^DIST(.403,53,"AY","CAP","MONTHLY UPDATES",1,1,197,4)=""
^DIST(.403,53,"AY","CAP","PROGRESS NOTE (PRESS <PF1>Z FOR ZOOM EDI",1,1,197,2)=""
^DIST(.403,53,"AY","CAP","RELOAD PREVIOUS PROGRESS NOTE",1,1,197,5)=""
^DIST(.403,53,"AY","CAP","REMARKS",1,1,197,1)=""
^DIST(.403,53,"AY","CAP","REPORTING PERIOD (MONTH/YEAR)",1,1,197,3)=""
^DIST(.403,53,"AY","F0","5,197","L",1,197,5)=""
^DIST(.403,53,"AY","F6925",.01,"L",1,192,2)=""
^DIST(.403,53,"AY","F6925",1,"L",1,197,3)=""
^DIST(.403,53,"AY","F6925",2,"L",1,192,3)=""
^DIST(.403,53,"AY","F6925",2.5,"L",1,197,4)=""
^DIST(.403,53,"AY","F6925",145,"L",1,197,1)=""
^DIST(.403,53,"AY","F6925",146,"L",1,197,2)=""
^DIST(.403,53,"AY","X",1,0,0)="PROJECT PROGRESS REPORT:"
^DIST(.403,53,"AY","X",1,1,0)="PROJECT #:             TITLE:"
^DIST(.403,53,"AY","X",1,1,0,"A")="1;9;U^24;28;U"
^DIST(.403,53,"AY","X",1,2,0)="-------------------------------------------------------------------------------"
^DIST(.403,53,"AY","X",1,3,0)="REMARKS:"
^DIST(.403,53,"AY","X",1,5,0)="Reload Previous Progress Note:"
^DIST(.403,53,"AY","X",1,7,0)="PROGRESS NOTE (Press <PF1>Z for zoom editor):"
^DIST(.403,53,"AY","X",1,10,0)="REPORTING PERIOD (Month/Year):"
^DIST(.403,53,"AY","X",1,12,0)="MONTHLY UPDATES:"
^DIST(.403,54,0)="ABSV ADD/EDIT MASTER^^^^2940207^^^503330^1^1^1"
^DIST(.403,54,15,0)="^^1^1^2940207^^"
^DIST(.403,54,15,1,0)="This is the primary screen used for editing a volunteer record"
^DIST(.403,54,40,0)="^.4031I^1^1"
^DIST(.403,54,40,1,0)="1^^1,1^^^1"
^DIST(.403,54,40,"B",1,1)=""
^DIST(.403,55,0)="XQEDTOPT^@^@^^2971104.1203^3050905.1144^Option Editor^19^0^0^1"
^DIST(.403,55,11)="D IN^XQOPED"
^DIST(.403,55,12)="D OUT^XQOPED"
^DIST(.403,55,15,0)="^^1^1^2971203^"
^DIST(.403,55,15,1,0)="   The form XQEDTOPT is the screen-based Option Editor."
^DIST(.403,55,21)=""
^DIST(.403,55,40,0)="^.4031I^23^23"
^DIST(.403,55,40,1,0)="1^^1,1"
^DIST(.403,55,40,1,1)="Main Page"
^DIST(.403,55,40,1,11)=""
^DIST(.403,55,40,1,12)=""
^DIST(.403,55,40,1,15,0)="^^1^1^2971124^"
^DIST(.403,55,40,1,15,1,0)="     This is the main starting page of the for XQEDTOPT the Option Editor."
^DIST(.403,55,40,1,40,0)="^.4032IP^204^2"
^DIST(.403,55,40,1,40,199,0)="199^1^4,1^e"
^DIST(.403,55,40,1,40,204,0)="204^2^1,1^d"
^DIST(.403,55,40,1,40,"AC",1,199)=""
^DIST(.403,55,40,1,40,"AC",2,204)=""
^DIST(.403,55,40,1,40,"B",199,199)=""
^DIST(.403,55,40,1,40,"B",204,204)=""
^DIST(.403,55,40,2,0)="2^^1,1^^^1^17,75"
^DIST(.403,55,40,2,1)="Restrictions"
^DIST(.403,55,40,2,15,0)="^^2^2^2971105^"
^DIST(.403,55,40,2,15,1,0)="   This page of the XQEDTOPT form has the various restrictive fields on"
^DIST(.403,55,40,2,15,2,0)="it, such as locks, restricted times, etc."
^DIST(.403,55,40,2,40,0)="^.4032IP^200^1"
^DIST(.403,55,40,2,40,200,0)="200^1^2,2^e"
^DIST(.403,55,40,2,40,"AC",1,200)=""
^DIST(.403,55,40,2,40,"B",200,200)=""
^DIST(.403,55,40,3,0)="3^^1,1^^^1^15,75"
^DIST(.403,55,40,3,1)="Executables Fields"
^DIST(.403,55,40,3,15,0)="^^2^2^2971105^"
^DIST(.403,55,40,3,15,1,0)="     This page, ""Executables"" is a list of the executable fields in the"
^DIST(.403,55,40,3,15,2,0)="Option File."
^DIST(.403,55,40,3,40,0)="^.4032IP^211^2"
^DIST(.403,55,40,3,40,201,0)="201^1^4,1^e"
^DIST(.403,55,40,3,40,211,0)="211^2^1,1^d"
^DIST(.403,55,40,3,40,"AC",1,201)=""
^DIST(.403,55,40,3,40,"AC",2,211)=""
^DIST(.403,55,40,3,40,"B",201,201)=""
^DIST(.403,55,40,3,40,"B",211,211)=""
^DIST(.403,55,40,4,0)="1.1^^5,5"
^DIST(.403,55,40,4,1)="XQEDTOPT 1.1"
^DIST(.403,55,40,4,40,0)="^.4032IP^203^2"
^DIST(.403,55,40,4,40,202,0)="202^2^4,1^e"
^DIST(.403,55,40,4,40,202,2)="8^^f"
^DIST(.403,55,40,4,40,203,0)="203^1^1,1^d"
^DIST(.403,55,40,4,40,"AC",1,203)=""
^DIST(.403,55,40,4,40,"AC",2,202)=""
^DIST(.403,55,40,4,40,"B",202,202)=""
^DIST(.403,55,40,4,40,"B",203,203)=""
^DIST(.403,55,40,5,0)="1.2^^1,1^1^1"
^DIST(.403,55,40,5,1)="Page 1.2"
^DIST(.403,55,40,5,15,0)="^^1^1^2971113^"
^DIST(.403,55,40,5,15,1,0)="       This page, 1.2, contains the related fields for EDIT-type options."
^DIST(.403,55,40,5,40,0)="^.4032IP^206^2"
^DIST(.403,55,40,5,40,205,0)="205^1^1,1^d"
^DIST(.403,55,40,5,40,206,0)="206^2^5,1^e"
^DIST(.403,55,40,5,40,"AC",1,205)=""
^DIST(.403,55,40,5,40,"AC",2,206)=""
^DIST(.403,55,40,5,40,"B",205,205)=""
^DIST(.403,55,40,5,40,"B",206,206)=""
^DIST(.403,55,40,6,0)="1.3^^1,1^1.4^1"
^DIST(.403,55,40,6,1)="Page 1.3"
^DIST(.403,55,40,6,15,0)="^^1^1^2971113^"
^DIST(.403,55,40,6,15,1,0)="   This is page 2 of Print-type options related fields."
^DIST(.403,55,40,6,40,0)="^.4032IP^208^2"
^DIST(.403,55,40,6,40,207,0)="207^1^1,1^d"
^DIST(.403,55,40,6,40,208,0)="208^2^5,1^e"
^DIST(.403,55,40,6,40,"AC",1,207)=""
^DIST(.403,55,40,6,40,"AC",2,208)=""
^DIST(.403,55,40,6,40,"B",207,207)=""
^DIST(.403,55,40,6,40,"B",208,208)=""
^DIST(.403,55,40,7,0)="1.4^^1,1^1.3^1.3"
^DIST(.403,55,40,7,1)="Page 1.4"
^DIST(.403,55,40,7,15,0)="^^1^1^2971113^"
^DIST(.403,55,40,7,15,1,0)="     This is page 2 of the Prnt-type option related fields."
^DIST(.403,55,40,7,40,0)="^.4032IP^210^2"
^DIST(.403,55,40,7,40,209,0)="209^1^1,1^d"
^DIST(.403,55,40,7,40,210,0)="210^2^4,1^e"
^DIST(.403,55,40,7,40,"AC",1,209)=""
^DIST(.403,55,40,7,40,"AC",2,210)=""
^DIST(.403,55,40,7,40,"B",209,209)=""
^DIST(.403,55,40,7,40,"B",210,210)=""
^DIST(.403,55,40,8,0)="1.5^^1,1"
^DIST(.403,55,40,8,1)="Inquire-type option"
^DIST(.403,55,40,8,40,0)="^.4032IP^213^2"
^DIST(.403,55,40,8,40,212,0)="212^1^1,1^d"
^DIST(.403,55,40,8,40,213,0)="213^2^4,1^e"
^DIST(.403,55,40,8,40,"AC",1,212)=""
^DIST(.403,55,40,8,40,"AC",2,213)=""
^DIST(.403,55,40,8,40,"B",212,212)=""
^DIST(.403,55,40,8,40,"B",213,213)=""
^DIST(.403,55,40,9,0)="1.6^^1,1^^^1^15,75"
^DIST(.403,55,40,9,1)="Run Routine"
^DIST(.403,55,40,9,40,0)="^.4032IP^215^2"
^DIST(.403,55,40,9,40,214,0)="214^1^2,2^d"
^DIST(.403,55,40,9,40,215,0)="215^2^5,1^e"
^DIST(.403,55,40,9,40,"AC",1,214)=""
^DIST(.403,55,40,9,40,"AC",2,215)=""
^DIST(.403,55,40,9,40,"B",214,214)=""
^DIST(.403,55,40,9,40,"B",215,215)=""
^DIST(.403,55,40,10,0)="1.7^^1,1^^^1^17,79"
^DIST(.403,55,40,10,1)="Servers"
^DIST(.403,55,40,10,40,0)="^.4032IP^217^2"
^DIST(.403,55,40,10,40,216,0)="216^1^2,2^d"
^DIST(.403,55,40,10,40,217,0)="217^2^5,2^e"
^DIST(.403,55,40,10,40,"AC",1,216)=""
^DIST(.403,55,40,10,40,"AC",2,217)=""
^DIST(.403,55,40,10,40,"B",216,216)=""
^DIST(.403,55,40,10,40,"B",217,217)=""
^DIST(.403,55,40,11,0)="1.8^^1,1^^^1^17,77"
^DIST(.403,55,40,11,1)="ScreenMan"
^DIST(.403,55,40,11,40,0)="^.4032IP^219^2"
^DIST(.403,55,40,11,40,218,0)="218^1^1,1^d"
^DIST(.403,55,40,11,40,219,0)="219^2^4,1^e"
^DIST(.403,55,40,11,40,"AC",1,218)=""
^DIST(.403,55,40,11,40,"AC",2,219)=""
^DIST(.403,55,40,11,40,"B",218,218)=""
^DIST(.403,55,40,11,40,"B",219,219)=""
^DIST(.403,55,40,12,0)="10.1^^1,1^^^1^15,75"
^DIST(.403,55,40,12,1)="BROKER"
^DIST(.403,55,40,12,40,0)="^.4032IP^221^2"
^DIST(.403,55,40,12,40,220,0)="220^1^2,2^d"
^DIST(.403,55,40,12,40,221,0)="221^2^4,2^e"
^DIST(.403,55,40,12,40,221,2)="5"
^DIST(.403,55,40,12,40,"AC",1,220)=""
^DIST(.403,55,40,12,40,"AC",2,221)=""
^DIST(.403,55,40,12,40,"B",220,220)=""
^DIST(.403,55,40,12,40,"B",221,221)=""
^DIST(.403,55,40,13,0)="10.2^^1,1^^^1^15,75"
^DIST(.403,55,40,13,1)="Window"
^DIST(.403,55,40,13,40,0)="^.4032IP^223^2"
^DIST(.403,55,40,13,40,222,0)="222^1^2,2^d"
^DIST(.403,55,40,13,40,223,0)="223^2^5,2^e"
^DIST(.403,55,40,13,40,"AC",1,222)=""
^DIST(.403,55,40,13,40,"AC",2,223)=""
^DIST(.403,55,40,13,40,"B",222,222)=""
^DIST(.403,55,40,13,40,"B",223,223)=""
^DIST(.403,55,40,14,0)="10.3^^1,1^^^1^15,75"
^DIST(.403,55,40,14,1)="Suites"
^DIST(.403,55,40,14,40,0)="^.4032IP^225^3"
^DIST(.403,55,40,14,40,223,0)="223^2^4,2^e"
^DIST(.403,55,40,14,40,224,0)="224^1^2,2^d"
^DIST(.403,55,40,14,40,225,0)="225^3^8,2^e"
^DIST(.403,55,40,14,40,225,2)="3"
^DIST(.403,55,40,14,40,"AC",1,224)=""
^DIST(.403,55,40,14,40,"AC",2,223)=""
^DIST(.403,55,40,14,40,"AC",3,225)=""
^DIST(.403,55,40,14,40,"B",223,223)=""
^DIST(.403,55,40,14,40,"B",224,224)=""
^DIST(.403,55,40,14,40,"B",225,225)=""
^DIST(.403,55,40,15,0)="2.1^^1,1^^^1^17,79"
^DIST(.403,55,40,15,1)="Restricted days/times"
^DIST(.403,55,40,15,15,0)="^^2^2^2971118^"
^DIST(.403,55,40,15,15,1,0)="   This page is used to enter restricted days and times an option can be"
^DIST(.403,55,40,15,15,2,0)="envoked."
^DIST(.403,55,40,15,40,0)="^.4032IP^227^2"
^DIST(.403,55,40,15,40,226,0)="226^1^2,2^d"
^DIST(.403,55,40,15,40,227,0)="227^2^6,2^e"
^DIST(.403,55,40,15,40,227,2)="5"
^DIST(.403,55,40,15,40,"AC",1,226)=""
^DIST(.403,55,40,15,40,"AC",2,227)=""
^DIST(.403,55,40,15,40,"B",226,226)=""
^DIST(.403,55,40,15,40,"B",227,227)=""
^DIST(.403,55,40,16,0)="2.2^^1,1^^^1^17,79"
^DIST(.403,55,40,16,1)="Page 2.2"
^DIST(.403,55,40,16,40,0)="^.4032IP^229^2"
^DIST(.403,55,40,16,40,228,0)="228^1^2,2^d"
^DIST(.403,55,40,16,40,229,0)="229^2^4,9^e"
^DIST(.403,55,40,16,40,229,2)="5"
^DIST(.403,55,40,16,40,"AC",1,228)=""
^DIST(.403,55,40,16,40,"AC",2,229)=""
^DIST(.403,55,40,16,40,"B",228,228)=""
^DIST(.403,55,40,16,40,"B",229,229)=""
^DIST(.403,55,40,17,0)="2.3^^1,1^^^1^17,79"
^DIST(.403,55,40,17,1)="Queuing Required"
^DIST(.403,55,40,17,40,0)="^.4032IP^231^2"
^DIST(.403,55,40,17,40,230,0)="230^1^2,2^d"
^DIST(.403,55,40,17,40,231,0)="231^2^6,3^e"
^DIST(.403,55,40,17,40,231,2)="5"
^DIST(.403,55,40,17,40,"AC",1,230)=""
^DIST(.403,55,40,17,40,"AC",2,231)=""
^DIST(.403,55,40,17,40,"B",230,230)=""
^DIST(.403,55,40,17,40,"B",231,231)=""
^DIST(.403,55,40,18,0)="1.9^^1,1^^^1^15,75"
^DIST(.403,55,40,18,1)="Action"
^DIST(.403,55,40,18,40,0)="^.4032IP^233^2"
^DIST(.403,55,40,18,40,232,0)="232^1^2,2^d"
^DIST(.403,55,40,18,40,233,0)="233^2^6,7^e"
^DIST(.403,55,40,18,40,"AC",1,232)=""
^DIST(.403,55,40,18,40,"AC",2,233)=""
^DIST(.403,55,40,18,40,"B",232,232)=""
^DIST(.403,55,40,18,40,"B",233,233)=""
^DIST(.403,55,40,19,0)="11^^1,1"
^DIST(.403,55,40,19,1)="Print3"
^DIST(.403,55,40,19,40,0)="^.4032IP^238^5"
^DIST(.403,55,40,19,40,234,0)="234^4^11,1^e"
^DIST(.403,55,40,19,40,234,2)="2"
^DIST(.403,55,40,19,40,235,0)="235^1^1,1^d"
^DIST(.403,55,40,19,40,236,0)="236^2^6,1^e"
^DIST(.403,55,40,19,40,236,2)="3"
^DIST(.403,55,40,19,40,237,0)="237^3^8,1^d"
^DIST(.403,55,40,19,40,238,0)="238^5^14,1^d"
^DIST(.403,55,40,19,40,"AC",1,235)=""
^DIST(.403,55,40,19,40,"AC",2,236)=""
^DIST(.403,55,40,19,40,"AC",3,237)=""
^DIST(.403,55,40,19,40,"AC",4,234)=""
^DIST(.403,55,40,19,40,"AC",5,238)=""
^DIST(.403,55,40,19,40,"B",234,234)=""
^DIST(.403,55,40,19,40,"B",235,235)=""
^DIST(.403,55,40,19,40,"B",236,236)=""
^DIST(.403,55,40,19,40,"B",237,237)=""
^DIST(.403,55,40,19,40,"B",238,238)=""
^DIST(.403,55,40,20,0)="10^^1,1^^^1^15,75"
^DIST(.403,55,40,20,1)="Selection Page"
^DIST(.403,55,40,20,40,0)="^.4032IP^239^1"
^DIST(.403,55,40,20,40,239,0)="239^1^2,3^e"
^DIST(.403,55,40,20,40,"AC",1,239)=""
^DIST(.403,55,40,20,40,"B",239,239)=""
^DIST(.403,55,40,21,0)="4^^1,1^^^1^17,75"
^DIST(.403,55,40,21,1)="DIC Look Up"
^DIST(.403,55,40,21,15,0)="^^2^2^2980203^"
^DIST(.403,55,40,21,15,1,0)="     This page is called by the Edit, Inquire, and ScreenMan Pages (1.2,"
^DIST(.403,55,40,21,15,2,0)="1.5, and 1.9) to do the initial DIC look up."
^DIST(.403,55,40,21,40,0)="^.4032IP^241^2"
^DIST(.403,55,40,21,40,240,0)="240^2^5,2^e"
^DIST(.403,55,40,21,40,241,0)="241^1^2,2^d"
^DIST(.403,55,40,21,40,"AC",1,241)=""
^DIST(.403,55,40,21,40,"AC",2,240)=""
^DIST(.403,55,40,21,40,"B",240,240)=""
^DIST(.403,55,40,21,40,"B",241,241)=""
^DIST(.403,55,40,22,0)="12^^1,1^^^1^15,75"
^DIST(.403,55,40,22,1)="Broker Choice"
^DIST(.403,55,40,22,11)="D H^XQOPED(82)"
^DIST(.403,55,40,22,15,0)="^^2^2^3001012^"
^DIST(.403,55,40,22,15,1,0)="     This page chooses between adding RPC's or other contexts (options) to"
^DIST(.403,55,40,22,15,2,0)="a broker-type option."
^DIST(.403,55,40,22,40,0)="^.4032IP^336^2"
^DIST(.403,55,40,22,40,335,0)="335^1^2,2^d"
^DIST(.403,55,40,22,40,336,0)="336^2^4,2^e"
^DIST(.403,55,40,22,40,"AC",1,335)=""
^DIST(.403,55,40,22,40,"AC",2,336)=""
^DIST(.403,55,40,22,40,"B",335,335)=""
^DIST(.403,55,40,22,40,"B",336,336)=""
^DIST(.403,55,40,23,0)="13^^1,1^^^1^15,75"
^DIST(.403,55,40,23,1)="Page 13"
^DIST(.403,55,40,23,11)="D H^XQOPED(83)"
^DIST(.403,55,40,23,15,0)="^^2^2^3001012^"
^DIST(.403,55,40,23,15,1,0)="     This page allows users to add broker-type options to other"
^DIST(.403,55,40,23,15,2,0)="broker-type options in the MENU multi[ple."
^DIST(.403,55,40,23,40,0)="^.4032IP^338^2"
^DIST(.403,55,40,23,40,337,0)="337^1^2,2^d"
^DIST(.403,55,40,23,40,338,0)="338^2^4,2^e"
^DIST(.403,55,40,23,40,338,2)="10"
^DIST(.403,55,40,23,40,"AC",1,337)=""
^DIST(.403,55,40,23,40,"AC",2,338)=""
^DIST(.403,55,40,23,40,"B",337,337)=""
^DIST(.403,55,40,23,40,"B",338,338)=""
^DIST(.403,55,40,"B",1,1)=""
^DIST(.403,55,40,"B",1.1,4)=""
^DIST(.403,55,40,"B",1.2,5)=""
^DIST(.403,55,40,"B",1.3,6)=""
^DIST(.403,55,40,"B",1.4,7)=""
^DIST(.403,55,40,"B",1.5,8)=""
^DIST(.403,55,40,"B",1.6,9)=""
^DIST(.403,55,40,"B",1.7,10)=""
^DIST(.403,55,40,"B",1.8,11)=""
^DIST(.403,55,40,"B",1.9,18)=""
^DIST(.403,55,40,"B",2,2)=""
^DIST(.403,55,40,"B",2.1,15)=""
^DIST(.403,55,40,"B",2.2,16)=""
^DIST(.403,55,40,"B",2.3,17)=""
^DIST(.403,55,40,"B",3,3)=""
^DIST(.403,55,40,"B",4,21)=""
^DIST(.403,55,40,"B",10,20)=""
^DIST(.403,55,40,"B",10.1,12)=""
^DIST(.403,55,40,"B",10.2,13)=""
^DIST(.403,55,40,"B",10.3,14)=""
^DIST(.403,55,40,"B",11,19)=""
^DIST(.403,55,40,"B",12,22)=""
^DIST(.403,55,40,"B",13,23)=""
^DIST(.403,55,40,"C","ACTION",18)=""
^DIST(.403,55,40,"C","BROKER",12)=""
^DIST(.403,55,40,"C","BROKER CHOICE",22)=""
^DIST(.403,55,40,"C","DIC LOOK UP",21)=""
^DIST(.403,55,40,"C","EXECUTABLES FIELDS",3)=""
^DIST(.403,55,40,"C","INQUIRE-TYPE OPTION",8)=""
^DIST(.403,55,40,"C","MAIN PAGE",1)=""
^DIST(.403,55,40,"C","PAGE 1.2",5)=""
^DIST(.403,55,40,"C","PAGE 1.3",6)=""
^DIST(.403,55,40,"C","PAGE 1.4",7)=""
^DIST(.403,55,40,"C","PAGE 13",23)=""
^DIST(.403,55,40,"C","PAGE 2.2",16)=""
^DIST(.403,55,40,"C","PRINT3",19)=""
^DIST(.403,55,40,"C","QUEUING REQUIRED",17)=""
^DIST(.403,55,40,"C","RESTRICTED DAYS/TIMES",15)=""
^DIST(.403,55,40,"C","RESTRICTIONS",2)=""
^DIST(.403,55,40,"C","RUN ROUTINE",9)=""
^DIST(.403,55,40,"C","SCREENMAN",11)=""
^DIST(.403,55,40,"C","SELECTION PAGE",20)=""
^DIST(.403,55,40,"C","SERVERS",10)=""
^DIST(.403,55,40,"C","SUITES",14)=""
^DIST(.403,55,40,"C","WINDOW",13)=""
^DIST(.403,55,40,"C","XQEDTOPT 1.1",4)=""
^DIST(.403,55,"AY",1,0,0,"N")="10,199^1,199^1,199^10,199^1,199"
^DIST(.403,55,"AY",1,199)="3^0^19^^e^^^^1"
^DIST(.403,55,"AY",1,199,1,"D")="4^20^30^.01"
^DIST(.403,55,"AY",1,199,1,"N")="0^2^2^0^2"
^DIST(.403,55,"AY",1,199,2,"D")="6^12^50^1"
^DIST(.403,55,"AY",1,199,2,"N")="1^3^3^1^3"
^DIST(.403,55,"AY",1,199,3,"D")="8^14^1^3.5"
^DIST(.403,55,"AY",1,199,3,"N")="2^5^4^2^4^^^^^^1"
^DIST(.403,55,"AY",1,199,4,"D")="8^24^15^4"
^DIST(.403,55,"AY",1,199,4,"N")="2^5^7^3^7"
^DIST(.403,55,"AY",1,199,5,"D")="10^13^20^3.7"
^DIST(.403,55,"AY",1,199,5,"N")="3^8^6^7^6"
^DIST(.403,55,"AY",1,199,6,"D")="10^48^20^12"
^DIST(.403,55,"AY",1,199,6,"N")="4^8^8^5^8"
^DIST(.403,55,"AY",1,199,7,"D")="8^64^3^13"
^DIST(.403,55,"AY",1,199,7,"N")="2^6^5^4^5"
^DIST(.403,55,"AY",1,199,8,"D")="13^29^3^8,199"
^DIST(.403,55,"AY",1,199,8,"N")="5^10^9^6^9"
^DIST(.403,55,"AY",1,199,9,"D")="13^72^3^9,199"
^DIST(.403,55,"AY",1,199,9,"N")="6^10^10^8^10"
^DIST(.403,55,"AY",1,199,10,"D")="15^62^3^10,199"
^DIST(.403,55,"AY",1,199,10,"N")="8^0^0^9^0"
^DIST(.403,55,"AY",1,204)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",1,"FIRST")="1,199"
^DIST(.403,55,"AY",2,0,0,"N")="12,200^2,200^2,200^12,200^2,200"
^DIST(.403,55,"AY",2,200)="1^1^19^^e^^^^2"
^DIST(.403,55,"AY",2,200,1,"D")="5^7^26^3"
^DIST(.403,55,"AY",2,200,1,"N")="2^9^3^2^3"
^DIST(.403,55,"AY",2,200,2,"D")="3^23^50^2"
^DIST(.403,55,"AY",2,200,2,"N")="0^1^1^0^1"
^DIST(.403,55,"AY",2,200,3,"D")="5^48^25^3.01"
^DIST(.403,55,"AY",2,200,3,"N")="2^9^9^1^9"
^DIST(.403,55,"AY",2,200,9,"D")="7^22^51^1840"
^DIST(.403,55,"AY",2,200,9,"N")="1^14^14^3^10"
^DIST(.403,55,"AY",2,200,10,"D")="11^53^1^10,200"
^DIST(.403,55,"AY",2,200,10,"N")="14^11^11^14^11"
^DIST(.403,55,"AY",2,200,11,"D")="13^54^1^11,200"
^DIST(.403,55,"AY",2,200,11,"N")="10^12^12^10^12"
^DIST(.403,55,"AY",2,200,12,"D")="15^60^1^12,200"
^DIST(.403,55,"AY",2,200,12,"N")="11^0^0^11^14"
^DIST(.403,55,"AY",2,200,14,"D")="9^39^3^11"
^DIST(.403,55,"AY",2,200,14,"N")="9^10^10^9^0"
^DIST(.403,55,"AY",2,"FIRST")="2,200"
^DIST(.403,55,"AY",3,0,0,"N")="5,201^1,201^1,201^5,201^1,201"
^DIST(.403,55,"AY",3,201)="3^0^19^^e^^^^1"
^DIST(.403,55,"AY",3,201,1,"D")="3^17^54^20"
^DIST(.403,55,"AY",3,201,1,"N")="0^2^2^0^2"
^DIST(.403,55,"AY",3,201,2,"D")="5^20^1^21"
^DIST(.403,55,"AY",3,201,2,"N")="1^3^3^1^3^^^^^^1"
^DIST(.403,55,"AY",3,201,3,"D")="7^23^48^22"
^DIST(.403,55,"AY",3,201,3,"N")="2^4^4^2^4"
^DIST(.403,55,"AY",3,201,4,"D")="9^11^60^26"
^DIST(.403,55,"AY",3,201,4,"N")="3^5^5^3^5"
^DIST(.403,55,"AY",3,201,5,"D")="11^16^55^15"
^DIST(.403,55,"AY",3,201,5,"N")="4^0^0^4^0"
^DIST(.403,55,"AY",3,211)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",3,"FIRST")="1,201"
^DIST(.403,55,"AY",4,0,0,"N")="1,202^1,202^1,202^3,202^1,202"
^DIST(.403,55,"AY",4,202)="7^4^19.01^^e^^8^^1^1"
^DIST(.403,55,"AY",4,202,1,"D")="7^4^30^.01"
^DIST(.403,55,"AY",4,202,1,"N")="0^0^0^0^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,55,"AY",4,202,2,"D")="7^38^4^2"
^DIST(.403,55,"AY",4,202,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,55,"AY",4,202,3,"D")="7^56^5^3"
^DIST(.403,55,"AY",4,202,3,"N")="0^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,55,"AY",4,203)="4^4^19^^d^^^^0"
^DIST(.403,55,"AY",4,"FIRST")="1,202"
^DIST(.403,55,"AY",5,0,0,"N")="10,206^11,206^11,206^10,206^11,206"
^DIST(.403,55,"AY",5,205)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",5,206)="4^0^19^^e^^^^11"
^DIST(.403,55,"AY",5,206,8,"D")="7^29^39^50"
^DIST(.403,55,"AY",5,206,8,"N")="11^9^9^11^9"
^DIST(.403,55,"AY",5,206,9,"D")="9^35^42^51"
^DIST(.403,55,"AY",5,206,9,"N")="8^10^10^8^10"
^DIST(.403,55,"AY",5,206,10,"D")="11^37^23^53"
^DIST(.403,55,"AY",5,206,10,"N")="9^0^0^9^0"
^DIST(.403,55,"AY",5,206,11,"D")="5^42^1^11,206"
^DIST(.403,55,"AY",5,206,11,"N")="0^8^8^0^8"
^DIST(.403,55,"AY",5,"FIRST")="11,206"
^DIST(.403,55,"AY",6,0,0,"N")="12,208^1,208^1,208^10,208^1,208"
^DIST(.403,55,"AY",6,207)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",6,208)="4^0^19^^e^^^^1"
^DIST(.403,55,"AY",6,208,1,"D")="5^29^20^60"
^DIST(.403,55,"AY",6,208,1,"N")="0^3^14^0^14"
^DIST(.403,55,"AY",6,208,2,"D")="12^20^59^62"
^DIST(.403,55,"AY",6,208,2,"N")="6^7^7^6^7"
^DIST(.403,55,"AY",6,208,3,"D")="6^21^58^63"
^DIST(.403,55,"AY",6,208,3,"N")="1^4^4^14^4"
^DIST(.403,55,"AY",6,208,4,"D")="8^21^58^64"
^DIST(.403,55,"AY",6,208,4,"N")="3^5^5^3^5"
^DIST(.403,55,"AY",6,208,5,"D")="9^24^55^65"
^DIST(.403,55,"AY",6,208,5,"N")="4^6^6^4^6"
^DIST(.403,55,"AY",6,208,6,"D")="10^19^60^66"
^DIST(.403,55,"AY",6,208,6,"N")="5^2^2^5^2"
^DIST(.403,55,"AY",6,208,7,"D")="13^14^35^67"
^DIST(.403,55,"AY",6,208,7,"N")="2^8^11^2^11"
^DIST(.403,55,"AY",6,208,8,"D")="15^30^3^68"
^DIST(.403,55,"AY",6,208,8,"N")="7^12^13^11^13"
^DIST(.403,55,"AY",6,208,10,"D")="16^70^4^61"
^DIST(.403,55,"AY",6,208,10,"N")="13^0^0^12^0"
^DIST(.403,55,"AY",6,208,11,"D")="13^77^2^79"
^DIST(.403,55,"AY",6,208,11,"N")="2^13^8^7^8"
^DIST(.403,55,"AY",6,208,12,"D")="16^37^4^77"
^DIST(.403,55,"AY",6,208,12,"N")="8^0^10^13^10"
^DIST(.403,55,"AY",6,208,13,"D")="15^70^4^78"
^DIST(.403,55,"AY",6,208,13,"N")="7^10^12^8^12"
^DIST(.403,55,"AY",6,208,14,"D")="5^64^15^70"
^DIST(.403,55,"AY",6,208,14,"N")="0^3^3^1^3"
^DIST(.403,55,"AY",6,"FIRST")="1,208"
^DIST(.403,55,"AY",7,0,0,"N")="15,210^2,210^2,210^15,210^2,210"
^DIST(.403,55,"AY",7,209)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",7,210)="3^0^19^^e^^^^2"
^DIST(.403,55,"AY",7,210,2,"D")="5^34^45^71"
^DIST(.403,55,"AY",7,210,2,"N")="0^3^3^0^3"
^DIST(.403,55,"AY",7,210,3,"D")="6^34^45^72"
^DIST(.403,55,"AY",7,210,3,"N")="2^4^4^2^4"
^DIST(.403,55,"AY",7,210,4,"D")="7^31^48^73"
^DIST(.403,55,"AY",7,210,4,"N")="3^16^16^3^16"
^DIST(.403,55,"AY",7,210,13,"D")="14^11^68^69.1"
^DIST(.403,55,"AY",7,210,13,"N")="16^14^14^16^14"
^DIST(.403,55,"AY",7,210,14,"D")="15^11^68^69.2"
^DIST(.403,55,"AY",7,210,14,"N")="13^15^15^13^15"
^DIST(.403,55,"AY",7,210,15,"D")="16^11^68^69.3"
^DIST(.403,55,"AY",7,210,15,"N")="14^0^0^14^0"
^DIST(.403,55,"AY",7,210,16,"D")="10^17^62^69"
^DIST(.403,55,"AY",7,210,16,"N")="4^13^13^4^13"
^DIST(.403,55,"AY",7,"FIRST")="2,210"
^DIST(.403,55,"AY",8,0,0,"N")="14,213^11,213^11,213^14,213^11,213"
^DIST(.403,55,"AY",8,212)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",8,213)="3^0^19^^e^^^^11"
^DIST(.403,55,"AY",8,213,3,"D")="7^34^41^80"
^DIST(.403,55,"AY",8,213,3,"N")="11^6^6^11^6"
^DIST(.403,55,"AY",8,213,5,"D")="13^73^2^82"
^DIST(.403,55,"AY",8,213,5,"N")="12^14^14^13^14"
^DIST(.403,55,"AY",8,213,6,"D")="9^32^43^63"
^DIST(.403,55,"AY",8,213,6,"N")="3^12^12^3^12"
^DIST(.403,55,"AY",8,213,11,"D")="5^53^4^11,213"
^DIST(.403,55,"AY",8,213,11,"N")="0^3^3^0^3"
^DIST(.403,55,"AY",8,213,12,"D")="11^19^56^67"
^DIST(.403,55,"AY",8,213,12,"N")="6^13^13^6^13"
^DIST(.403,55,"AY",8,213,13,"D")="13^28^3^83"
^DIST(.403,55,"AY",8,213,13,"N")="12^14^5^12^5"
^DIST(.403,55,"AY",8,213,14,"D")="15^36^24^70"
^DIST(.403,55,"AY",8,213,14,"N")="13^0^0^5^0"
^DIST(.403,55,"AY",8,"FIRST")="11,213"
^DIST(.403,55,"AY",9,0,0,"N")="1,215^1,215^1,215^1,215^1,215"
^DIST(.403,55,"AY",9,214)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",9,215)="4^0^19^^e^^^^1"
^DIST(.403,55,"AY",9,215,1,"D")="5^28^25^25"
^DIST(.403,55,"AY",9,215,1,"N")="0^0^0^0^0"
^DIST(.403,55,"AY",9,"FIRST")="1,215"
^DIST(.403,55,"AY",10,0,0,"N")="10,217^1,217^1,217^10,217^1,217"
^DIST(.403,55,"AY",10,216)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",10,217)="4^1^19^^e^^^^1"
^DIST(.403,55,"AY",10,217,1,"D")="5^22^15^25"
^DIST(.403,55,"AY",10,217,1,"N")="0^2^3^0^3"
^DIST(.403,55,"AY",10,217,2,"D")="7^11^26^220"
^DIST(.403,55,"AY",10,217,2,"N")="1^9^4^3^4"
^DIST(.403,55,"AY",10,217,3,"D")="5^56^15^221"
^DIST(.403,55,"AY",10,217,3,"N")="0^4^2^1^2"
^DIST(.403,55,"AY",10,217,4,"D")="7^53^18^222"
^DIST(.403,55,"AY",10,217,4,"N")="1^9^9^2^5"
^DIST(.403,55,"AY",10,217,5,"D")="12^15^3^223"
^DIST(.403,55,"AY",10,217,5,"N")="9^10^6^8^6"
^DIST(.403,55,"AY",10,217,6,"D")="12^40^5^224"
^DIST(.403,55,"AY",10,217,6,"N")="9^10^7^5^7"
^DIST(.403,55,"AY",10,217,7,"D")="12^62^5^225"
^DIST(.403,55,"AY",10,217,7,"N")="8^10^10^6^8"
^DIST(.403,55,"AY",10,217,8,"D")="9^56^15^226"
^DIST(.403,55,"AY",10,217,8,"N")="4^6^5^9^9"
^DIST(.403,55,"AY",10,217,9,"D")="9^16^20^227"
^DIST(.403,55,"AY",10,217,9,"N")="2^5^8^4^10"
^DIST(.403,55,"AY",10,217,10,"D")="14^50^3^228"
^DIST(.403,55,"AY",10,217,10,"N")="6^0^0^7^0"
^DIST(.403,55,"AY",10,"FIRST")="1,217"
^DIST(.403,55,"AY",11,0,0,"N")="8,219^9,219^9,219^8,219^9,219"
^DIST(.403,55,"AY",11,218)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",11,219)="3^0^19^^e^^^^9"
^DIST(.403,55,"AY",11,219,4,"D")="10^27^24^40"
^DIST(.403,55,"AY",11,219,4,"N")="6^7^7^6^7"
^DIST(.403,55,"AY",11,219,5,"D")="6^22^29^41"
^DIST(.403,55,"AY",11,219,5,"N")="9^6^6^9^6"
^DIST(.403,55,"AY",11,219,6,"D")="8^28^23^42"
^DIST(.403,55,"AY",11,219,6,"N")="5^4^4^5^4"
^DIST(.403,55,"AY",11,219,7,"D")="12^33^8^43"
^DIST(.403,55,"AY",11,219,7,"N")="4^8^8^4^8"
^DIST(.403,55,"AY",11,219,8,"D")="14^28^9^44"
^DIST(.403,55,"AY",11,219,8,"N")="7^0^0^7^0"
^DIST(.403,55,"AY",11,219,9,"D")="4^50^1^9,219"
^DIST(.403,55,"AY",11,219,9,"N")="0^5^5^0^5"
^DIST(.403,55,"AY",11,"FIRST")="9,219"
^DIST(.403,55,"AY",12,0,0,"N")="1,221^1,221^1,221^3,221^1,221"
^DIST(.403,55,"AY",12,220)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",12,221)="3^1^19.05^^e^^5^^1^1"
^DIST(.403,55,"AY",12,221,1,"D")="5^2^21^.01"
^DIST(.403,55,"AY",12,221,1,"N")="0^0^0^0^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,55,"AY",12,221,2,"D")="5^26^15^1"
^DIST(.403,55,"AY",12,221,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,55,"AY",12,221,3,"D")="5^44^30^2"
^DIST(.403,55,"AY",12,221,3,"N")="0^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,55,"AY",12,"FIRST")="1,221"
^DIST(.403,55,"AY",13,0,0,"N")="3,223^1,223^1,223^4,223^1,223"
^DIST(.403,55,"AY",13,222)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",13,223)="4^1^19^^e^^^^1"
^DIST(.403,55,"AY",13,223,1,"D")="4^9^23^24"
^DIST(.403,55,"AY",13,223,1,"N")="0^3^2^0^2"
^DIST(.403,55,"AY",13,223,2,"D")="4^45^25^25"
^DIST(.403,55,"AY",13,223,2,"N")="0^3^3^1^3"
^DIST(.403,55,"AY",13,223,3,"D")="6^7^25^300"
^DIST(.403,55,"AY",13,223,3,"N")="1^0^4^2^4"
^DIST(.403,55,"AY",13,223,4,"D")="6^48^22^301"
^DIST(.403,55,"AY",13,223,4,"N")="2^0^0^3^0"
^DIST(.403,55,"AY",13,"FIRST")="1,223"
^DIST(.403,55,"AY",14,0,0,"N")="2,225^1,223^1,223^3,225^1,223"
^DIST(.403,55,"AY",14,223)="3^1^19^^e^^^^1"
^DIST(.403,55,"AY",14,223,1,"D")="3^9^23^24"
^DIST(.403,55,"AY",14,223,1,"N")="0^3^2^0^2"
^DIST(.403,55,"AY",14,223,2,"D")="3^45^25^25"
^DIST(.403,55,"AY",14,223,2,"N")="0^3^3^1^3"
^DIST(.403,55,"AY",14,223,3,"D")="5^7^25^300"
^DIST(.403,55,"AY",14,223,3,"N")="1^2,225^4^2^4"
^DIST(.403,55,"AY",14,223,4,"D")="5^48^22^301"
^DIST(.403,55,"AY",14,223,4,"N")="2^2,225^2,225^3^2,225"
^DIST(.403,55,"AY",14,224)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",14,225)="7^1^19.01^^e^^3^^2^2"
^DIST(.403,55,"AY",14,225,2,"D")="9^12^30^.01"
^DIST(.403,55,"AY",14,225,2,"N")="3,223^0^0^4,223^0^2,-1^2,+1^3^3,-1^3"
^DIST(.403,55,"AY",14,225,3,"D")="9^49^5^3"
^DIST(.403,55,"AY",14,225,3,"N")="4,223^0^0^2^0^3,-1^3,+1^2,+1^2^2,+1"
^DIST(.403,55,"AY",14,"FIRST")="1,223"
^DIST(.403,55,"AY",15,0,0,"N")="1,227^1,227^1,227^2,227^1,227"
^DIST(.403,55,"AY",15,226)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",15,227)="5^1^19.391^^e^^5^^1^1"
^DIST(.403,55,"AY",15,227,1,"D")="5^11^14^.01"
^DIST(.403,55,"AY",15,227,1,"N")="0^0^0^0^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,55,"AY",15,227,2,"D")="5^42^23^.02"
^DIST(.403,55,"AY",15,227,2,"N")="0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,55,"AY",15,"FIRST")="1,227"
^DIST(.403,55,"AY",16,0,0,"N")="1,229^1,229^1,229^1,229^1,229"
^DIST(.403,55,"AY",16,228)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",16,229)="3^8^19.396^^e^^5^^1^1"
^DIST(.403,55,"AY",16,229,1,"D")="4^26^30^.01"
^DIST(.403,55,"AY",16,229,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,55,"AY",16,"FIRST")="1,229"
^DIST(.403,55,"AY",17,0,0,"N")="1,231^1,231^1,231^2,231^1,231"
^DIST(.403,55,"AY",17,230)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",17,231)="5^2^19.392^^e^^5^^1^1"
^DIST(.403,55,"AY",17,231,1,"D")="5^12^9^.01"
^DIST(.403,55,"AY",17,231,1,"N")="0^0^0^0^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,55,"AY",17,231,2,"D")="5^44^15^.02"
^DIST(.403,55,"AY",17,231,2,"N")="0^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,55,"AY",17,"FIRST")="1,231"
^DIST(.403,55,"AY",18,0,0,"N")="1,233^1,233^1,233^1,233^1,233"
^DIST(.403,55,"AY",18,232)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",18,233)="5^6^19^^e^^^^1"
^DIST(.403,55,"AY",18,233,1,"D")="5^31^41^20"
^DIST(.403,55,"AY",18,233,1,"N")="0^0^0^0^0"
^DIST(.403,55,"AY",18,"FIRST")="1,233"
^DIST(.403,55,"AY",19,0,0,"N")="1,234^1,236^1,236^2,234^1,236"
^DIST(.403,55,"AY",19,234)="10^0^19.02^^e^^2^^1^1"
^DIST(.403,55,"AY",19,234,1,"D")="10^8^1^.01"
^DIST(.403,55,"AY",19,234,1,"N")="1,236^0^0^2,236^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,55,"AY",19,234,2,"D")="10^25^45^1"
^DIST(.403,55,"AY",19,234,2,"N")="1,236^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,55,"AY",19,235)="0^0^19^^d^^^^0"
^DIST(.403,55,"AY",19,236)="5^0^19.02^^e^^3^^1^1"
^DIST(.403,55,"AY",19,236,1,"D")="5^8^1^.01"
^DIST(.403,55,"AY",19,236,1,"N")="0^1,234^1,234^0^1,234^1,-1^1,+1^2^2,-1^2"
^DIST(.403,55,"AY",19,236,2,"D")="5^25^45^1"
^DIST(.403,55,"AY",19,236,2,"N")="0^1,234^1,234^1^1,234^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,55,"AY",19,237)="7^0^19^^d^^^^0"
^DIST(.403,55,"AY",19,238)="13^0^19^^d^^^^0"
^DIST(.403,55,"AY",19,"FIRST")="1,236"
^DIST(.403,55,"AY",20,0,0,"N")="1,239^1,239^1,239^1,239^1,239"
^DIST(.403,55,"AY",20,239)="1^2^19^^e^^^^1"
^DIST(.403,55,"AY",20,239,1,"D")="6^38^20^1,239"
^DIST(.403,55,"AY",20,239,1,"N")="0^0^0^0^0"
^DIST(.403,55,"AY",20,"FIRST")="1,239"
^DIST(.403,55,"AY",21,0,0,"N")="7,240^1,240^1,240^7,240^1,240"
^DIST(.403,55,"AY",21,240)="4^1^19^^e^^^^1"
^DIST(.403,55,"AY",21,240,1,"D")="5^30^30^30"
^DIST(.403,55,"AY",21,240,1,"N")="0^2^2^0^2"
^DIST(.403,55,"AY",21,240,2,"D")="7^25^9^31"
^DIST(.403,55,"AY",21,240,2,"N")="1^4^3^1^3"
^DIST(.403,55,"AY",21,240,3,"D")="7^63^10^36"
^DIST(.403,55,"AY",21,240,3,"N")="1^4^4^2^4"
^DIST(.403,55,"AY",21,240,4,"D")="9^18^55^32"
^DIST(.403,55,"AY",21,240,4,"N")="2^5^5^3^5"
^DIST(.403,55,"AY",21,240,5,"D")="11^28^45^33"
^DIST(.403,55,"AY",21,240,5,"N")="4^6^6^4^6"
^DIST(.403,55,"AY",21,240,6,"D")="13^18^55^34"
^DIST(.403,55,"AY",21,240,6,"N")="5^7^7^5^7"
^DIST(.403,55,"AY",21,240,7,"D")="15^23^50^35"
^DIST(.403,55,"AY",21,240,7,"N")="6^0^0^6^0"
^DIST(.403,55,"AY",21,241)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",21,"FIRST")="1,240"
^DIST(.403,55,"AY",22,0,0,"N")="2,336^1,336^1,336^2,336^1,336"
^DIST(.403,55,"AY",22,335)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",22,336)="3^1^19^^e^^^^1"
^DIST(.403,55,"AY",22,336,1,"D")="4^53^3^1,336"
^DIST(.403,55,"AY",22,336,1,"N")="0^2^2^0^2"
^DIST(.403,55,"AY",22,336,2,"D")="6^58^3^2,336"
^DIST(.403,55,"AY",22,336,2,"N")="1^0^0^1^0"
^DIST(.403,55,"AY",22,"FIRST")="1,336"
^DIST(.403,55,"AY",23,0,0,"N")="1,338^1,338^1,338^1,338^1,338"
^DIST(.403,55,"AY",23,337)="1^1^19^^d^^^^0"
^DIST(.403,55,"AY",23,338)="3^1^19.01^^e^^10^^1^1"
^DIST(.403,55,"AY",23,338,1,"D")="4^8^30^.01"
^DIST(.403,55,"AY",23,338,1,"N")="0^0^0^0^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,55,"AY",23,"FIRST")="1,338"
^DIST(.403,55,"AY","CAP","AFTER PRINT FINISHES [DIOEND]","6^7^1",7,210,4)=""
^DIST(.403,55,"AY","CAP","ASK FOR HEADER [DIASKHD]","6^7^1",6,208,11)=""
^DIST(.403,55,"AY","CAP","BEFORE THE PRINT STARTS [DIOBEG]","6^7^1",7,210,3)=""
^DIST(.403,55,"AY","CAP","BULLETIN",10,10,217,2)=""
^DIST(.403,55,"AY","CAP","DEFAULT RESPONSE [DIC(B)]",21,21,240,5)=""
^DIST(.403,55,"AY","CAP","DESCRIPTION",1,1,199,3)=""
^DIST(.403,55,"AY","CAP","DEVICE [IOP]",8,8,213,14)=""
^DIST(.403,55,"AY","CAP","DEVICE [IOP]","6^7^1",6,208,14)=""
^DIST(.403,55,"AY","CAP","DIS(1) ","6^7^1",7,210,13)=""
^DIST(.403,55,"AY","CAP","DISPLAY COMPUTED FIELDS? [DIQ(0)]",8,8,213,5)=""
^DIST(.403,55,"AY","CAP","DO YOU WANT TO ADD CONTEXTS (BROKER OPTI",22,22,336,2)=""
^DIST(.403,55,"AY","CAP","DO YOU WANT TO ADD RPC'S TO THIS OPTION?",22,22,336,1)=""
^DIST(.403,55,"AY","CAP","DO YOU WANT TO EDIT DIC LOOK UP VARIABLE",11,11,219,9)=""
^DIST(.403,55,"AY","CAP","DO YOU WANT TO EDIT DIC VARIABLES ?","5^1",5,206,11)=""
^DIST(.403,55,"AY","CAP","DO YOU WANT TO EDIT THE DIC LOOK UP VARI",8,8,213,11)=""
^DIST(.403,55,"AY","CAP","ENTRY ACTION",3,3,201,1)=""
^DIST(.403,55,"AY","CAP","ENTRY ACTION TO EXECUTE",18,18,233,1)=""
^DIST(.403,55,"AY","CAP","EXECUTABLE FIELDS (PROGRAMMERS ONLY)",1,1,199,9)=""
^DIST(.403,55,"AY","CAP","EXECUTED AFTER EACH ENTRY [DHIT]","6^7^1",7,210,2)=""
^DIST(.403,55,"AY","CAP","EXIT ACTION",3,3,201,5)=""
^DIST(.403,55,"AY","CAP","FIELDS OR TEMPLATE [DR{DIE}]","5^1",5,206,9)=""
^DIST(.403,55,"AY","CAP","FIELDS OR TEMPLATE [FLDS]",8,8,213,6)=""
^DIST(.403,55,"AY","CAP","FILE [DDSFILE]",11,11,219,5)=""
^DIST(.403,55,"AY","CAP","FORM NAME [DR{DDS}]",11,11,219,4)=""
^DIST(.403,55,"AY","CAP","GLOBAL REFERENCE [DIC{DIC}]",21,21,240,1)=""
^DIST(.403,55,"AY","CAP","GLOBAL REFERENCE [DIC{DIP}]","6^7^1",6,208,1)=""
^DIST(.403,55,"AY","CAP","GLOBAL REFERENCE [DIC{DIQ}]",8,8,213,3)=""
^DIST(.403,55,"AY","CAP","GLOBAL REFERENCE [DIE]","5^1",5,206,8)=""
^DIST(.403,55,"AY","CAP","GO TO VALUES [TO]","6^7^1",6,208,6)=""
^DIST(.403,55,"AY","CAP","HEADER",3,3,201,4)=""
^DIST(.403,55,"AY","CAP","HEADER [DHD]",8,8,213,12)=""
^DIST(.403,55,"AY","CAP","HEADER [DHD]","6^7^1",6,208,7)=""
^DIST(.403,55,"AY","CAP","HELP FRAME",1,1,199,5)=""
^DIST(.403,55,"AY","CAP","ICON",13,13,223,3)=""
^DIST(.403,55,"AY","CAP","ICON",14,14,223,3)=""
^DIST(.403,55,"AY","CAP","ICON TITLE",13,13,223,4)=""
^DIST(.403,55,"AY","CAP","ICON TITLE",14,14,223,4)=""
^DIST(.403,55,"AY","CAP","INPUT MATCH [DIC(W)]",21,21,240,7)=""
^DIST(.403,55,"AY","CAP","IS IT DELEGABLE",1,1,199,7)=""
^DIST(.403,55,"AY","CAP","LOCK",2,2,200,1)=""
^DIST(.403,55,"AY","CAP","LOOK UP CODES [DIC(0)]",21,21,240,2)=""
^DIST(.403,55,"AY","CAP","MAIL GROUP",10,10,217,4)=""
^DIST(.403,55,"AY","CAP","MENU TEXT",1,1,199,2)=""
^DIST(.403,55,"AY","CAP","NAME",1,1,199,1)=""
^DIST(.403,55,"AY","CAP","NUMBER OF COPIES [DCOPIES]","6^7^1",6,208,8)=""
^DIST(.403,55,"AY","CAP","OPTION TO EDIT",20,20,239,1)=""
^DIST(.403,55,"AY","CAP","OPTION-TYPE (PRINT, RUN ROUTINE, ETC.) R",1,1,199,10)=""
^DIST(.403,55,"AY","CAP","OR DIS(2)","6^7^1",7,210,14)=""
^DIST(.403,55,"AY","CAP","OR DIS(3)","6^7^1",7,210,15)=""
^DIST(.403,55,"AY","CAP","OUT-OF-ORDER MESSAGE",2,2,200,2)=""
^DIST(.403,55,"AY","CAP","PACKAGE",1,1,199,6)=""
^DIST(.403,55,"AY","CAP","PARAMETERS [DDSPARM]",11,11,219,8)=""
^DIST(.403,55,"AY","CAP","PERMITTED DEVICE",16,16,229,1)=""
^DIST(.403,55,"AY","CAP","PREFERRED X-REFERENCE [D.]",21,21,240,3)=""
^DIST(.403,55,"AY","CAP","PREVENT MENU REDISPLAY WHEN FINISHED",2,2,200,14)=""
^DIST(.403,55,"AY","CAP","PRINT FIELDS [FLDS]","6^7^1",6,208,3)=""
^DIST(.403,55,"AY","CAP","PROMPT STRING [L.]","6^7^1",6,208,2)=""
^DIST(.403,55,"AY","CAP","PROMPT [DIC(A)]",21,21,240,4)=""
^DIST(.403,55,"AY","CAP","PROTECTED VARIABLES",2,2,200,9)=""
^DIST(.403,55,"AY","CAP","REQUIRE OUTPUT QUEUING CERTAIN DAYS/TIME",2,2,200,12)=""
^DIST(.403,55,"AY","CAP","RESTRICT DAYS/TIMES OPTION CAN RUN?",2,2,200,10)=""
^DIST(.403,55,"AY","CAP","RESTRICT OPTION TO SELECTED DEVICES?",2,2,200,11)=""
^DIST(.403,55,"AY","CAP","RESTRICTIONS (LOCKS, ETC.)",1,1,199,8)=""
^DIST(.403,55,"AY","CAP","REVERSE LOCK",2,2,200,3)=""
^DIST(.403,55,"AY","CAP","ROUTINE",13,13,223,2)=""
^DIST(.403,55,"AY","CAP","ROUTINE",14,14,223,2)=""
^DIST(.403,55,"AY","CAP","ROUTINE ENTRY POINT",9,9,215,1)=""
^DIST(.403,55,"AY","CAP","ROUTINE ENTRY POINT",10,10,217,1)=""
^DIST(.403,55,"AY","CAP","SAVE REQUEST",10,10,217,8)=""
^DIST(.403,55,"AY","CAP","SCREEN [DIC(S)]",21,21,240,6)=""
^DIST(.403,55,"AY","CAP","SCREEN [DIS(0)]","6^7^1",7,210,16)=""
^DIST(.403,55,"AY","CAP","SERVER ACTION",10,10,217,3)=""
^DIST(.403,55,"AY","CAP","SERVER AUDIT",10,10,217,5)=""
^DIST(.403,55,"AY","CAP","SERVER DEVICE",10,10,217,9)=""
^DIST(.403,55,"AY","CAP","SERVER REPLY",10,10,217,7)=""
^DIST(.403,55,"AY","CAP","SORT BY FIELDS [BY]","6^7^1",6,208,4)=""
^DIST(.403,55,"AY","CAP","SORT CRITERIA IN HEADER [DIPCRIT]","6^7^1",6,208,13)=""
^DIST(.403,55,"AY","CAP","START WITH PAGE [DDSPAGE]",11,11,219,7)=""
^DIST(.403,55,"AY","CAP","START WITH VALUES [FR]","6^7^1",6,208,5)=""
^DIST(.403,55,"AY","CAP","STARTING PAGE NUMBER [PG]","6^7^1",6,208,10)=""
^DIST(.403,55,"AY","CAP","SUBFILE [DDSFILE(1)]",11,11,219,6)=""
^DIST(.403,55,"AY","CAP","SUPRESS ""NO RECORDS..."" [DISUPNO]","6^7^1",6,208,12)=""
^DIST(.403,55,"AY","CAP","SUPRESS BULLETIN?",10,10,217,6)=""
^DIST(.403,55,"AY","CAP","SUPRESS DEVICE PROMPT",8,8,213,13)=""
^DIST(.403,55,"AY","CAP","TASKMAN RETENTION IN DAYS",10,10,217,10)=""
^DIST(.403,55,"AY","CAP","TYPE",1,1,199,4)=""
^DIST(.403,55,"AY","CAP","UP-ARROW CONTROL [NO UP-ARROW]","5^1",5,206,10)=""
^DIST(.403,55,"AY","CAP","WINDOW",13,13,223,1)=""
^DIST(.403,55,"AY","CAP","WINDOW",14,14,223,1)=""
^DIST(.403,55,"AY","CAP","XQUIT EXECUTABLE",3,3,201,3)=""
^DIST(.403,55,"AY","CAP","XQUIT MESSAGE",3,3,201,2)=""
^DIST(.403,55,"AY","F0","1,239","L",20,239,1)=""
^DIST(.403,55,"AY","F0","1,336","L",22,336,1)=""
^DIST(.403,55,"AY","F0","10,199","L",1,199,10)=""
^DIST(.403,55,"AY","F0","10,200","L",2,200,10)=""
^DIST(.403,55,"AY","F0","11,200","L",2,200,11)=""
^DIST(.403,55,"AY","F0","11,206","L",5,206,11)=""
^DIST(.403,55,"AY","F0","11,213","L",8,213,11)=""
^DIST(.403,55,"AY","F0","12,200","L",2,200,12)=""
^DIST(.403,55,"AY","F0","2,336","L",22,336,2)=""
^DIST(.403,55,"AY","F0","8,199","L",1,199,8)=""
^DIST(.403,55,"AY","F0","9,199","L",1,199,9)=""
^DIST(.403,55,"AY","F0","9,219","L",11,219,9)=""
^DIST(.403,55,"AY","F19",.01,"L",1,199,1)=""
^DIST(.403,55,"AY","F19",1,"L",1,199,2)=""
^DIST(.403,55,"AY","F19",2,"L",2,200,2)=""
^DIST(.403,55,"AY","F19",3,"L",2,200,1)=""
^DIST(.403,55,"AY","F19",3.01,"L",2,200,3)=""
^DIST(.403,55,"AY","F19",3.5,"L",1,199,3)=""
^DIST(.403,55,"AY","F19",3.7,"L",1,199,5)=""
^DIST(.403,55,"AY","F19",4,"L",1,199,4)=""
^DIST(.403,55,"AY","F19",11,"L",2,200,14)=""
^DIST(.403,55,"AY","F19",12,"L",1,199,6)=""
^DIST(.403,55,"AY","F19",13,"L",1,199,7)=""
^DIST(.403,55,"AY","F19",15,"L",3,201,5)=""
^DIST(.403,55,"AY","F19",20,"L",3,201,1)=""
^DIST(.403,55,"AY","F19",20,"L",18,233,1)=""
^DIST(.403,55,"AY","F19",21,"L",3,201,2)=""
^DIST(.403,55,"AY","F19",22,"L",3,201,3)=""
^DIST(.403,55,"AY","F19",24,"L",13,223,1)=""
^DIST(.403,55,"AY","F19",24,"L",14,223,1)=""
^DIST(.403,55,"AY","F19",25,"L",9,215,1)=""
^DIST(.403,55,"AY","F19",25,"L",10,217,1)=""
^DIST(.403,55,"AY","F19",25,"L",13,223,2)=""
^DIST(.403,55,"AY","F19",25,"L",14,223,2)=""
^DIST(.403,55,"AY","F19",26,"L",3,201,4)=""
^DIST(.403,55,"AY","F19",30,"L",21,240,1)=""
^DIST(.403,55,"AY","F19",31,"L",21,240,2)=""
^DIST(.403,55,"AY","F19",32,"L",21,240,4)=""
^DIST(.403,55,"AY","F19",33,"L",21,240,5)=""
^DIST(.403,55,"AY","F19",34,"L",21,240,6)=""
^DIST(.403,55,"AY","F19",35,"L",21,240,7)=""
^DIST(.403,55,"AY","F19",36,"L",21,240,3)=""
^DIST(.403,55,"AY","F19",40,"L",11,219,4)=""
^DIST(.403,55,"AY","F19",41,"L",11,219,5)=""
^DIST(.403,55,"AY","F19",42,"L",11,219,6)=""
^DIST(.403,55,"AY","F19",43,"L",11,219,7)=""
^DIST(.403,55,"AY","F19",44,"L",11,219,8)=""
^DIST(.403,55,"AY","F19",50,"L",5,206,8)=""
^DIST(.403,55,"AY","F19",51,"L",5,206,9)=""
^DIST(.403,55,"AY","F19",53,"L",5,206,10)=""
^DIST(.403,55,"AY","F19",60,"L",6,208,1)=""
^DIST(.403,55,"AY","F19",61,"L",6,208,10)=""
^DIST(.403,55,"AY","F19",62,"L",6,208,2)=""
^DIST(.403,55,"AY","F19",63,"L",6,208,3)=""
^DIST(.403,55,"AY","F19",63,"L",8,213,6)=""
^DIST(.403,55,"AY","F19",64,"L",6,208,4)=""
^DIST(.403,55,"AY","F19",65,"L",6,208,5)=""
^DIST(.403,55,"AY","F19",66,"L",6,208,6)=""
^DIST(.403,55,"AY","F19",67,"L",6,208,7)=""
^DIST(.403,55,"AY","F19",67,"L",8,213,12)=""
^DIST(.403,55,"AY","F19",68,"L",6,208,8)=""
^DIST(.403,55,"AY","F19",69,"L",7,210,16)=""
^DIST(.403,55,"AY","F19",69.1,"L",7,210,13)=""
^DIST(.403,55,"AY","F19",69.2,"L",7,210,14)=""
^DIST(.403,55,"AY","F19",69.3,"L",7,210,15)=""
^DIST(.403,55,"AY","F19",70,"L",6,208,14)=""
^DIST(.403,55,"AY","F19",70,"L",8,213,14)=""
^DIST(.403,55,"AY","F19",71,"L",7,210,2)=""
^DIST(.403,55,"AY","F19",72,"L",7,210,3)=""
^DIST(.403,55,"AY","F19",73,"L",7,210,4)=""
^DIST(.403,55,"AY","F19",77,"L",6,208,12)=""
^DIST(.403,55,"AY","F19",78,"L",6,208,13)=""
^DIST(.403,55,"AY","F19",79,"L",6,208,11)=""
^DIST(.403,55,"AY","F19",80,"L",8,213,3)=""
^DIST(.403,55,"AY","F19",82,"L",8,213,5)=""
^DIST(.403,55,"AY","F19",83,"L",8,213,13)=""
^DIST(.403,55,"AY","F19",220,"L",10,217,2)=""
^DIST(.403,55,"AY","F19",221,"L",10,217,3)=""
^DIST(.403,55,"AY","F19",222,"L",10,217,4)=""
^DIST(.403,55,"AY","F19",223,"L",10,217,5)=""
^DIST(.403,55,"AY","F19",224,"L",10,217,6)=""
^DIST(.403,55,"AY","F19",225,"L",10,217,7)=""
^DIST(.403,55,"AY","F19",226,"L",10,217,8)=""
^DIST(.403,55,"AY","F19",227,"L",10,217,9)=""
^DIST(.403,55,"AY","F19",228,"L",10,217,10)=""
^DIST(.403,55,"AY","F19",300,"L",13,223,3)=""
^DIST(.403,55,"AY","F19",300,"L",14,223,3)=""
^DIST(.403,55,"AY","F19",301,"L",13,223,4)=""
^DIST(.403,55,"AY","F19",301,"L",14,223,4)=""
^DIST(.403,55,"AY","F19",1840,"L",2,200,9)=""
^DIST(.403,55,"AY","F19.01",.01,"L",4,202,1)=""
^DIST(.403,55,"AY","F19.01",.01,"L",14,225,2)=""
^DIST(.403,55,"AY","F19.01",.01,"L",23,338,1)=""
^DIST(.403,55,"AY","F19.01",2,"L",4,202,2)=""
^DIST(.403,55,"AY","F19.01",3,"L",4,202,3)=""
^DIST(.403,55,"AY","F19.01",3,"L",14,225,3)=""
^DIST(.403,55,"AY","F19.02",.01,"L",19,234,1)=""
^DIST(.403,55,"AY","F19.02",.01,"L",19,236,1)=""
^DIST(.403,55,"AY","F19.02",1,"L",19,234,2)=""
^DIST(.403,55,"AY","F19.02",1,"L",19,236,2)=""
^DIST(.403,55,"AY","F19.05",.01,"L",12,221,1)=""
^DIST(.403,55,"AY","F19.05",1,"L",12,221,2)=""
^DIST(.403,55,"AY","F19.05",2,"L",12,221,3)=""
^DIST(.403,55,"AY","F19.391",.01,"L",15,227,1)=""
^DIST(.403,55,"AY","F19.391",.02,"L",15,227,2)=""
^DIST(.403,55,"AY","F19.392",.01,"L",17,231,1)=""
^DIST(.403,55,"AY","F19.392",.02,"L",17,231,2)=""
^DIST(.403,55,"AY","F19.396",.01,"L",16,229,1)=""
^DIST(.403,55,"AY","X",1,1,14)="Welcome to the Screen-Based Option Editor"
^DIST(.403,55,"AY","X",1,4,14)="Name:"
^DIST(.403,55,"AY","X",1,4,14,"A")="1;4;U"
^DIST(.403,55,"AY","X",1,6,1)="Menu Text:"
^DIST(.403,55,"AY","X",1,6,1,"A")="1;9;U"
^DIST(.403,55,"AY","X",1,8,1)="Description:     Type:                        Is It Delegable:"
^DIST(.403,55,"AY","X",1,8,1,"A")="18;21;U"
^DIST(.403,55,"AY","X",1,10,1)="Help Frame:                           Package:"
^DIST(.403,55,"AY","X",1,13,1)="Restrictions (Locks, etc.):      Executable Fields (Programmers Only):"
^DIST(.403,55,"AY","X",1,15,7)="Option-type (Print, Run Routine, etc.) Related Fields:"
^DIST(.403,55,"AY","X",2,1,21)="Restricting Option Dynamics"
^DIST(.403,55,"AY","X",2,3,1)="Out-Of-Order Message:"
^DIST(.403,55,"AY","X",2,5,1)="Lock:                            Reverse Lock:"
^DIST(.403,55,"AY","X",2,7,1)="Protected Variables:"
^DIST(.403,55,"AY","X",2,9,1)="Prevent Menu Redisplay When Finished:"
^DIST(.403,55,"AY","X",2,11,16)="Restrict days/times option can run?:"
^DIST(.403,55,"AY","X",2,13,16)="Restrict Option to Selected Devices?:"
^DIST(.403,55,"AY","X",2,15,16)="Require Output Queuing Certain Days/Times?:"
^DIST(.403,55,"AY","X",3,1,33)="Executables"
^DIST(.403,55,"AY","X",3,3,3)="Entry Action:"
^DIST(.403,55,"AY","X",3,5,5)="XQUIT Message:"
^DIST(.403,55,"AY","X",3,7,5)="XQUIT Executable:"
^DIST(.403,55,"AY","X",3,9,3)="Header:"
^DIST(.403,55,"AY","X",3,11,3)="Exit Action:"
^DIST(.403,55,"AY","X",4,5,4)="Option Name                     Synonym         Display Order"
^DIST(.403,55,"AY","X",5,1,22)="Edit-type Option Related Fields"
^DIST(.403,55,"AY","X",5,5,5)="Do you want to edit DIC variables ?"
^DIST(.403,55,"AY","X",5,7,5)="Global Reference [DIE]:"
^DIST(.403,55,"AY","X",5,9,5)="Fields or Template [DR{DIE}]:"
^DIST(.403,55,"AY","X",5,11,5)="Up-Arrow Control [NO UP-ARROW]:"
^DIST(.403,55,"AY","X",6,1,17)="Print-type Option Related Fields (Page 1 of 2)"
^DIST(.403,55,"AY","X",6,2,12)="Use the PageDown key or <PF1><down arrow> to see page 2"
^DIST(.403,55,"AY","X",6,5,0)="Global Reference [DIC{DIP}]:                      Device [IOP]:"
^DIST(.403,55,"AY","X",6,6,0)="Print fields [FLDS]:"
^DIST(.403,55,"AY","X",6,8,0)="Sort by Fields [BY]:"
^DIST(.403,55,"AY","X",6,9,0)="Start With Values [FR]:"
^DIST(.403,55,"AY","X",6,10,0)="Go To Values [TO]:"
^DIST(.403,55,"AY","X",6,12,0)="Prompt String [L.]:"
^DIST(.403,55,"AY","X",6,13,0)="Header [DHD]:                                      Ask For Header [DIASKHD]:"
^DIST(.403,55,"AY","X",6,15,2)="Number of Copies [DCOPIES]:      Sort Criteria in Header [DIPCRIT]:"
^DIST(.403,55,"AY","X",6,16,2)="Supress ""No Records..."" [DISUPNO]:       Starting Page Number [PG]:"
^DIST(.403,55,"AY","X",7,1,14)="Print-type Options Related Fields (Page 2 of 2)"
^DIST(.403,55,"AY","X",7,2,8)="Use the <PageUp> Key or <PF1><Up Cursor Arrow> To See Page 1"
^DIST(.403,55,"AY","X",7,3,16)="All These Fields Must Contain Valid M Code"
^DIST(.403,55,"AY","X",7,5,0)="Executed After Each Entry [DHIT]:"
^DIST(.403,55,"AY","X",7,6,0)="Before the Print Starts [DIOBEG]:"
^DIST(.403,55,"AY","X",7,7,0)="After Print Finishes [DIOEND]:"
^DIST(.403,55,"AY","X",7,9,6)="Screens: A Selection Must Pass DIS(0), If Defined, To Be Printed"
^DIST(.403,55,"AY","X",7,10,0)="Screen [DIS(0)]:"
^DIST(.403,55,"AY","X",7,12,6)="A Selection Will Be Printed If It Passes Any One Of These Screens"
^DIST(.403,55,"AY","X",7,13,21)="And Screen DIS(0), If It Is Defined"
^DIST(.403,55,"AY","X",7,14,0)="Dis(1) :"
^DIST(.403,55,"AY","X",7,15,0)="Or Dis(2):"
^DIST(.403,55,"AY","X",7,16,0)="Or DIS(3):"
^DIST(.403,55,"AY","X",8,1,19)="Inquire-type Option Related Fields"
^DIST(.403,55,"AY","X",8,5,5)="Do You Want To Edit the DIC Look Up Variables?"
^DIST(.403,55,"AY","X",8,7,5)="Global Reference [DIC{DIQ}]:"
^DIST(.403,55,"AY","X",8,9,5)="Fields or Template [FLDS]:"
^DIST(.403,55,"AY","X",8,11,5)="Header [DHD]:"
^DIST(.403,55,"AY","X",8,13,5)="Supress Device Prompt:           Display Computed Fields? [DIQ(0)]:"
^DIST(.403,55,"AY","X",8,15,22)="Device [IOP]:"
^DIST(.403,55,"AY","X",9,2,27)="Routine-type Option"
^DIST(.403,55,"AY","X",9,5,7)="Routine Entry Point:"
^DIST(.403,55,"AY","X",9,5,7,"A")="1;19;U"
^DIST(.403,55,"AY","X",10,2,23)="Server-type Option Fields"
^DIST(.403,55,"AY","X",10,5,1)="Routine Entry Point:                    Server Action:"
^DIST(.403,55,"AY","X",10,7,1)="Bulletin:                               Mail Group:"
^DIST(.403,55,"AY","X",10,9,1)="Server Device:                           Save Request:"
^DIST(.403,55,"AY","X",10,12,1)="Server Audit:       Supress Bulletin?:         Server Reply:"
^DIST(.403,55,"AY","X",10,14,23)="TaskMan Retention in Days:"
^DIST(.403,55,"AY","X",11,1,26)="ScreenMan-type Option Fields"
^DIST(.403,55,"AY","X",11,4,6)="Do You Want to Edit DIC Look Up Variables?"
^DIST(.403,55,"AY","X",11,6,6)="File [DDSFILE]:"
^DIST(.403,55,"AY","X",11,8,6)="Subfile [DDSFILE(1)]:"
^DIST(.403,55,"AY","X",11,10,6)="Form Name [DR{DDS}]:"
^DIST(.403,55,"AY","X",11,12,6)="Start with Page [DDSPAGE]:"
^DIST(.403,55,"AY","X",11,14,6)="Parameters [DDSPARM]:"
^DIST(.403,55,"AY","X",12,1,28)="Broker-type Option"
^DIST(.403,55,"AY","X",12,3,2)="  Remote Procedure         RPC Key                Rules"
^DIST(.403,55,"AY","X",13,2,28)="Window-type Option"
^DIST(.403,55,"AY","X",13,4,1)="Window:                            Routine:"
^DIST(.403,55,"AY","X",13,6,1)="Icon:                              Icon Title:"
^DIST(.403,55,"AY","X",14,1,30)="Suite-type Option"
^DIST(.403,55,"AY","X",14,3,1)="Window:                            Routine:"
^DIST(.403,55,"AY","X",14,5,1)="Icon:                              Icon Title:"
^DIST(.403,55,"AY","X",14,7,21)="  Window                Display Order"
^DIST(.403,55,"AY","X",14,8,21)="  Window                Display Order"
^DIST(.403,55,"AY","X",14,9,21)="  Window                Display Order"
^DIST(.403,55,"AY","X",15,1,11)="Restricting Days and Times An Option Can Be Envoked"
^DIST(.403,55,"AY","X",15,3,1)="Time Range (Example: 0800-1630)    On What Days (MO-FR or MO,WE etc.)"
^DIST(.403,55,"AY","X",16,1,8)="Enter the Devices Upon Which This Option Is Allowed To Run"
^DIST(.403,55,"AY","X",16,4,8)="Permitted Device:"
^DIST(.403,55,"AY","X",16,5,8)="Permitted Device:"
^DIST(.403,55,"AY","X",16,6,8)="Permitted Device:"
^DIST(.403,55,"AY","X",16,7,8)="Permitted Device:"
^DIST(.403,55,"AY","X",16,8,8)="Permitted Device:"
^DIST(.403,55,"AY","X",17,1,11)="Time Periods and Days When Output Must Be Queued"
^DIST(.403,55,"AY","X",17,3,2)="Time Period (e.g. 0800-1645)     Days (e.g. MO or MO,WE or MO-FR)"
^DIST(.403,55,"AY","X",18,2,29)="Action-type option"
^DIST(.403,55,"AY","X",18,5,6)="Entry Action to Execute:"
^DIST(.403,55,"AY","X",19,1,21)="Print-type Option Programmer Fields"
^DIST(.403,55,"AY","X",19,4,0)="FROM Subscript Level                    FROM Value"
^DIST(.403,55,"AY","X",19,9,0)="TO Subscript Level                       TO Value"
^DIST(.403,55,"AY","X",20,6,15)="Select Option to Edit:"
^DIST(.403,55,"AY","X",20,6,15,"A")="1;21;U"
^DIST(.403,55,"AY","X",21,1,22)="Initial DIC Look Up Parameters"
^DIST(.403,55,"AY","X",21,2,15)="Used By Edit, Inquire, and ScreenMan Options"
^DIST(.403,55,"AY","X",21,5,1)="Global Reference [DIC{DIC}]:"
^DIST(.403,55,"AY","X",21,7,1)="Look Up Codes [DIC(0)]:           Preferred X-Reference [D.]:"
^DIST(.403,55,"AY","X",21,9,1)="Prompt [DIC(A)]:"
^DIST(.403,55,"AY","X",21,11,1)="Default Response [DIC(B)]:"
^DIST(.403,55,"AY","X",21,13,1)="Screen [DIC(S)]:"
^DIST(.403,55,"AY","X",21,15,1)="Input Match [DIC(W)]:"
^DIST(.403,55,"AY","X",22,1,24)="Broker-type Option Choices"
^DIST(.403,55,"AY","X",22,4,11)="Do you want to add RPC's to this option?"
^DIST(.403,55,"AY","X",22,6,11)="Do you Want to add contexts (broker options)?"
^DIST(.403,55,"AY","X",23,1,8)="Broker-type option (context) name"
^DIST(.403,56,0)="XU-INST-EDIT^@^@^^2971205.0946^^^4^0^0^1"
^DIST(.403,56,40,0)="^.4031I^1^1"
^DIST(.403,56,40,1,0)="1^^1,1"
^DIST(.403,56,40,1,1)="Page 1"
^DIST(.403,56,40,1,40,0)="^.4032IP^243^2"
^DIST(.403,56,40,1,40,242,0)="242^1^1,1^e"
^DIST(.403,56,40,1,40,243,0)="243^2^11,5^e"
^DIST(.403,56,40,1,40,243,2)="5^^l"
^DIST(.403,56,40,1,40,"AC",1,242)=""
^DIST(.403,56,40,1,40,"AC",2,243)=""
^DIST(.403,56,40,1,40,"B",242,242)=""
^DIST(.403,56,40,1,40,"B",243,243)=""
^DIST(.403,56,40,"B",1,1)=""
^DIST(.403,56,40,"C","PAGE 1",1)=""
^DIST(.403,56,"AY",1,0,0,"N")="1,243^1,242^1,242^2,243^1,242"
^DIST(.403,56,"AY",1,242)="0^0^4^^e^^^^1"
^DIST(.403,56,"AY",1,242,1,"D")="0^7^30^.01"
^DIST(.403,56,"AY",1,242,1,"N")="0^3^2^0^3"
^DIST(.403,56,"AY",1,242,2,"D")="0^61^7^99"
^DIST(.403,56,"AY",1,242,2,"N")="0^7^3^1^1,243"
^DIST(.403,56,"AY",1,242,3,"D")="2^17^23^.02"
^DIST(.403,56,"AY",1,242,3,"N")="1^4^7^2^4"
^DIST(.403,56,"AY",1,242,4,"D")="3^17^11^13"
^DIST(.403,56,"AY",1,242,4,"N")="3^5^8^7^5"
^DIST(.403,56,"AY",1,242,5,"D")="4^17^9^95"
^DIST(.403,56,"AY",1,242,5,"N")="4^6^9^8^6"
^DIST(.403,56,"AY",1,242,6,"D")="5^17^8^11"
^DIST(.403,56,"AY",1,242,6,"N")="5^1,243^1,243^9^7"
^DIST(.403,56,"AY",1,242,7,"D")="2^61^6^51"
^DIST(.403,56,"AY",1,242,7,"N")="2^8^4^3^8"
^DIST(.403,56,"AY",1,242,8,"D")="3^61^16^60"
^DIST(.403,56,"AY",1,242,8,"N")="7^9^5^4^9"
^DIST(.403,56,"AY",1,242,9,"D")="4^61^16^100"
^DIST(.403,56,"AY",1,242,9,"N")="8^6^6^5^2"
^DIST(.403,56,"AY",1,243)="10^4^4.014^^e^^5^^1^1"
^DIST(.403,56,"AY",1,243,1,"D")="11^4^27^.01"
^DIST(.403,56,"AY",1,243,1,"N")="6,242^0^0^6,242^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,56,"AY",1,243,2,"D")="11^45^30^1"
^DIST(.403,56,"AY",1,243,2,"N")="6,242^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,56,"AY",1,"FIRST")="1,242"
^DIST(.403,56,"AY","CAP","ACOS HOSPITAL ID",1,1,242,7)=""
^DIST(.403,56,"AY","CAP","AGENCY CODE",1,1,242,5)=""
^DIST(.403,56,"AY","CAP","DOMAIN",1,1,242,8)=""
^DIST(.403,56,"AY","CAP","FACILITY TYPE",1,1,242,4)=""
^DIST(.403,56,"AY","CAP","NAME",1,1,242,1)=""
^DIST(.403,56,"AY","CAP","OFFICAL VA NAME",1,1,242,9)=""
^DIST(.403,56,"AY","CAP","STATE",1,1,242,3)=""
^DIST(.403,56,"AY","CAP","STATION NUMBER",1,1,242,2)=""
^DIST(.403,56,"AY","CAP","STATUS",1,1,242,6)=""
^DIST(.403,56,"AY","F4",.01,"L",1,242,1)=""
^DIST(.403,56,"AY","F4",.02,"L",1,242,3)=""
^DIST(.403,56,"AY","F4",11,"L",1,242,6)=""
^DIST(.403,56,"AY","F4",13,"L",1,242,4)=""
^DIST(.403,56,"AY","F4",51,"L",1,242,7)=""
^DIST(.403,56,"AY","F4",60,"L",1,242,8)=""
^DIST(.403,56,"AY","F4",95,"L",1,242,5)=""
^DIST(.403,56,"AY","F4",99,"L",1,242,2)=""
^DIST(.403,56,"AY","F4",100,"L",1,242,9)=""
^DIST(.403,56,"AY","F4.014",.01,"L",1,243,1)=""
^DIST(.403,56,"AY","F4.014",1,"L",1,243,2)=""
^DIST(.403,56,"AY","X",1,0,1)="NAME:                                       STATION NUMBER:"
^DIST(.403,56,"AY","X",1,0,1,"A")="1;4;U"
^DIST(.403,56,"AY","X",1,2,10)="STATE:                           ACOS HOSPITAL ID:"
^DIST(.403,56,"AY","X",1,3,2)="FACILITY TYPE:                                     DOMAIN:"
^DIST(.403,56,"AY","X",1,4,4)="AGENCY CODE:                            OFFICAL VA NAME:"
^DIST(.403,56,"AY","X",1,5,9)="STATUS:"
^DIST(.403,56,"AY","X",1,5,9,"A")="1;6;U"
^DIST(.403,56,"AY","X",1,10,4)="Association                              Parent"
^DIST(.403,56,"AY","X",1,11,4)="Association                              Parent"
^DIST(.403,56,"AY","X",1,12,4)="Association                              Parent"
^DIST(.403,56,"AY","X",1,13,4)="Association                              Parent"
^DIST(.403,56,"AY","X",1,14,4)="Association                              Parent"
^DIST(.403,57,0)="LREPIPROT^@^@^^2970905.1334^^^69.4^0^0^1"
^DIST(.403,57,40,0)="^.4031I^1^1"
^DIST(.403,57,40,1,0)="1^^1,1"
^DIST(.403,57,40,1,1)="Page 1"
^DIST(.403,57,40,1,40,0)="^.4032IP^247^3"
^DIST(.403,57,40,1,40,245,0)="245^1^1,1^e"
^DIST(.403,57,40,1,40,246,0)="246^2^5,1^e"
^DIST(.403,57,40,1,40,247,0)="247^3^12,1^e"
^DIST(.403,57,40,1,40,247,2)="4"
^DIST(.403,57,40,1,40,"AC",1,245)=""
^DIST(.403,57,40,1,40,"AC",2,246)=""
^DIST(.403,57,40,1,40,"AC",3,247)=""
^DIST(.403,57,40,1,40,"B",245,245)=""
^DIST(.403,57,40,1,40,"B",246,246)=""
^DIST(.403,57,40,1,40,"B",247,247)=""
^DIST(.403,57,40,"B",1,1)=""
^DIST(.403,57,40,"C","PAGE 1",1)=""
^DIST(.403,57,"AY",1,0,0,"N")="1,247^1,246^1,246^1,247^1,246"
^DIST(.403,57,"AY",1,245)="0^0^69.4^^e^^^^0"
^DIST(.403,57,"AY",1,246)="4^0^69.4^^e^^^^1"
^DIST(.403,57,"AY",1,246,1,"D")="4^10^63^.01"
^DIST(.403,57,"AY",1,246,1,"N")="0^5^5^0^5"
^DIST(.403,57,"AY",1,246,2,"D")="8^19^30^1"
^DIST(.403,57,"AY",1,246,2,"N")="5^4^4^3^4"
^DIST(.403,57,"AY",1,246,3,"D")="6^65^6^2"
^DIST(.403,57,"AY",1,246,3,"N")="1^2^2^5^2"
^DIST(.403,57,"AY",1,246,4,"D")="10^12^3^3"
^DIST(.403,57,"AY",1,246,4,"N")="2^1,247^1,247^2^1,247"
^DIST(.403,57,"AY",1,246,5,"D")="6^7^40^4"
^DIST(.403,57,"AY",1,246,5,"N")="1^2^3^1^3"
^DIST(.403,57,"AY",1,247)="11^0^69.45^^e^^4^^1^1"
^DIST(.403,57,"AY",1,247,1,"D")="14^0^35^.01"
^DIST(.403,57,"AY",1,247,1,"N")="4,246^0^0^4,246^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,57,"AY",1,"FIRST")="1,246"
^DIST(.403,57,"AY","CAP","MESSAGE SIZE",1,1,246,3)=""
^DIST(.403,57,"AY","CAP","PROTOCOL",1,1,246,1)=""
^DIST(.403,57,"AY","CAP","REPORT MAIL GROUP",1,1,246,2)=""
^DIST(.403,57,"AY","CAP","SEND ALERT",1,1,246,4)=""
^DIST(.403,57,"AY","CAP","TITLE",1,1,246,5)=""
^DIST(.403,57,"AY","F69.4",.01,"L",1,246,1)=""
^DIST(.403,57,"AY","F69.4",1,"L",1,246,2)=""
^DIST(.403,57,"AY","F69.4",2,"L",1,246,3)=""
^DIST(.403,57,"AY","F69.4",3,"L",1,246,4)=""
^DIST(.403,57,"AY","F69.4",4,"L",1,246,5)=""
^DIST(.403,57,"AY","F69.45",.01,"L",1,247,1)=""
^DIST(.403,57,"AY","X",1,1,19)="Protocol Parameters Setup Definition"
^DIST(.403,57,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,57,"AY","X",1,4,0)="PROTOCOL:"
^DIST(.403,57,"AY","X",1,4,0,"A")="1;8;U"
^DIST(.403,57,"AY","X",1,6,0)="Title:                                             Message Size:"
^DIST(.403,57,"AY","X",1,8,0)="Report Mail Group:"
^DIST(.403,57,"AY","X",1,10,0)="Send Alert:"
^DIST(.403,57,"AY","X",1,12,0)="Send Alert To"
^DIST(.403,58,0)="XUTMKE ADD^@^@^^2980417.0834^^^3.076^0^0^1"
^DIST(.403,58,40,0)="^.4031I^1^1"
^DIST(.403,58,40,1,0)="1^^1,1"
^DIST(.403,58,40,1,1)="Page 1"
^DIST(.403,58,40,1,40,0)="^.4032IP^249^1"
^DIST(.403,58,40,1,40,249,0)="249^1^1,1^e"
^DIST(.403,58,40,1,40,"AC",1,249)=""
^DIST(.403,58,40,1,40,"B",249,249)=""
^DIST(.403,58,40,"B",1,1)=""
^DIST(.403,58,40,"C","PAGE 1",1)=""
^DIST(.403,58,"AY",1,0,0,"N")="6,249^1,249^1,249^6,249^1,249"
^DIST(.403,58,"AY",1,249)="0^0^3.076^^e^^^^1"
^DIST(.403,58,"AY",1,249,1,"D")="0^6^30^.01"
^DIST(.403,58,"AY",1,249,1,"N")="0^3^2^0^2"
^DIST(.403,58,"AY",1,249,2,"D")="0^57^3^.05"
^DIST(.403,58,"AY",1,249,2,"N")="0^3^3^1^3"
^DIST(.403,58,"AY",1,249,3,"D")="2^19^12^.03"
^DIST(.403,58,"AY",1,249,3,"N")="1^4^4^2^4"
^DIST(.403,58,"AY",1,249,4,"D")="4^26^3^.04"
^DIST(.403,58,"AY",1,249,4,"N")="3^6^5^3^5"
^DIST(.403,58,"AY",1,249,5,"D")="4^57^5^3"
^DIST(.403,58,"AY",1,249,5,"N")="3^6^6^4^6"
^DIST(.403,58,"AY",1,249,6,"D")="7^13^48^2"
^DIST(.403,58,"AY",1,249,6,"N")="4^0^0^5^0"
^DIST(.403,58,"AY",1,"FIRST")="1,249"
^DIST(.403,58,"AY","CAP","ALTERNATIVE SCREENING TEXT",1,1,249,6)=""
^DIST(.403,58,"AY","CAP","COUNT SCREENED ERRORS",1,1,249,4)=""
^DIST(.403,58,"AY","CAP","CURRENT COUNT",1,1,249,5)=""
^DIST(.403,58,"AY","CAP","NAME",1,1,249,1)=""
^DIST(.403,58,"AY","CAP","NATIONAL",1,1,249,2)=""
^DIST(.403,58,"AY","CAP","SCREEN IN XTER",1,1,249,3)=""
^DIST(.403,58,"AY","F3.076",.01,"L",1,249,1)=""
^DIST(.403,58,"AY","F3.076",.03,"L",1,249,3)=""
^DIST(.403,58,"AY","F3.076",.04,"L",1,249,4)=""
^DIST(.403,58,"AY","F3.076",.05,"L",1,249,2)=""
^DIST(.403,58,"AY","F3.076",2,"L",1,249,6)=""
^DIST(.403,58,"AY","F3.076",3,"L",1,249,5)=""
^DIST(.403,58,"AY","X",1,0,0)="NAME:                                          National:"
^DIST(.403,58,"AY","X",1,0,0,"A")="1;4;U"
^DIST(.403,58,"AY","X",1,2,3)="Screen in XTER:"
^DIST(.403,58,"AY","X",1,4,3)="Count Screened Errors:                 Current Count:"
^DIST(.403,58,"AY","X",1,6,3)="Alternative Screening Text:"
^DIST(.403,59,0)="WV PROC-FORM-1^^^^2940620^^^790.1^0^0^1"
^DIST(.403,59,11)=""
^DIST(.403,59,12)=""
^DIST(.403,59,40,0)="^.4031I^1^1"
^DIST(.403,59,40,1,0)="1^^1,1^^^0"
^DIST(.403,59,40,1,1)="PAGE 1"
^DIST(.403,59,40,1,11)=""
^DIST(.403,59,40,1,12)=""
^DIST(.403,59,40,1,40,0)="^.4032PI^262^2"
^DIST(.403,59,40,1,40,250,0)="250^3^9,1^e"
^DIST(.403,59,40,1,40,262,0)="262^2^1,1^d"
^DIST(.403,59,40,1,40,"AC",2,262)=""
^DIST(.403,59,40,1,40,"AC",3,250)=""
^DIST(.403,59,40,1,40,"B",250,250)=""
^DIST(.403,59,40,1,40,"B",262,262)=""
^DIST(.403,59,40,"B",1,1)=""
^DIST(.403,59,40,"C","PAGE 1",1)=""
^DIST(.403,59,"AY",1,0,0,"N")="12,250^1,250^1,250^12,250^1,250"
^DIST(.403,59,"AY",1,250)="8^0^790.1^^e^^^^1"
^DIST(.403,59,"AY",1,250,1,"D")="9^24^18^.12"
^DIST(.403,59,"AY",1,250,1,"N")="0^3^3^0^3"
^DIST(.403,59,"AY",1,250,3,"D")="10^24^25^.07"
^DIST(.403,59,"AY",1,250,3,"N")="1^4^4^1^4"
^DIST(.403,59,"AY",1,250,4,"D")="11^24^30^.11"
^DIST(.403,59,"AY",1,250,4,"N")="3^5^18^3^5"
^DIST(.403,59,"AY",1,250,5,"D")="12^24^30^.1"
^DIST(.403,59,"AY",1,250,5,"N")="4^15^7^18^15"
^DIST(.403,59,"AY",1,250,6,"D")="15^24^30^.05"
^DIST(.403,59,"AY",1,250,6,"N")="9^12^10^13^7"
^DIST(.403,59,"AY",1,250,7,"D")="12^76^1^1.01"
^DIST(.403,59,"AY",1,250,7,"N")="4^15^15^5^12^^^^^^1"
^DIST(.403,59,"AY",1,250,9,"D")="14^24^12^.13"
^DIST(.403,59,"AY",1,250,9,"N")="15^6^13^15^18"
^DIST(.403,59,"AY",1,250,10,"D")="15^64^6^.14"
^DIST(.403,59,"AY",1,250,10,"N")="13^12^12^6^0"
^DIST(.403,59,"AY",1,250,11,"D")="^^^^16^59^^0"
^DIST(.403,59,"AY",1,250,12,"D")="16^24^30^.06"
^DIST(.403,59,"AY",1,250,12,"N")="6^0^0^10^13"
^DIST(.403,59,"AY",1,250,13,"D")="14^64^3^.08"
^DIST(.403,59,"AY",1,250,13,"N")="15^10^6^9^10"
^DIST(.403,59,"AY",1,250,14,"D")="^^^^12^76^^0"
^DIST(.403,59,"AY",1,250,15,"D")="13^24^53^3.01"
^DIST(.403,59,"AY",1,250,15,"N")="5^9^9^7^9"
^DIST(.403,59,"AY",1,250,17,"D")="^^^^11^76^^0"
^DIST(.403,59,"AY",1,250,18,"D")="11^77^1^9"
^DIST(.403,59,"AY",1,250,18,"N")="3^7^5^4^6^^^^^^1"
^DIST(.403,59,"AY",1,262)="0^0^790.1^^d^^^^0"
^DIST(.403,59,"AY",1,262,5,"D")="^^^^3^0^^0"
^DIST(.403,59,"AY",1,262,12,"D")="^^^^1^14^^0"
^DIST(.403,59,"AY",1,262,13,"D")="^^^^2^14^^0"
^DIST(.403,59,"AY",1,262,14,"D")="^^^^2^60^^0"
^DIST(.403,59,"AY",1,262,17,"D")="^^^^4^14^^0"
^DIST(.403,59,"AY",1,262,18,"D")="^^^^3^14^^0"
^DIST(.403,59,"AY",1,262,20,"D")="^^^^1^60^^0"
^DIST(.403,59,"AY",1,262,21,"D")="^^^^3^60^^0"
^DIST(.403,59,"AY",1,262,23,"D")="^^^^5^14^^0"
^DIST(.403,59,"AY",1,262,25,"D")="^^^^8^52^^0"
^DIST(.403,59,"AY",1,262,26,"D")="^^^^8^24^^0"
^DIST(.403,59,"AY",1,262,27,"D")="^^^^4^60^^0"
^DIST(.403,59,"AY",1,262,28,"D")="^^^^5^60^^0"
^DIST(.403,59,"AY",1,262,30,"D")="^^^^7^14^^0"
^DIST(.403,59,"AY",1,262,33,"D")="^^^^6^60^^0"
^DIST(.403,59,"AY",1,262,35,"D")="^^^^6^14^^0"
^DIST(.403,59,"AY",1,262,37,"D")="^^^^7^60^^0"
^DIST(.403,59,"AY",1,"FIRST")="1,250"
^DIST(.403,59,"AY","CAP","CLINICIAN/PROVIDER",1,1,250,3)=""
^DIST(.403,59,"AY","CAP","COMMENTS",1,1,250,15)=""
^DIST(.403,59,"AY","CAP","COMPLETE BY (DATE)",1,1,250,9)=""
^DIST(.403,59,"AY","CAP","DATE OF PROCEDURE",1,1,250,1)=""
^DIST(.403,59,"AY","CAP","HEALTH CARE FACILITY",1,1,250,5)=""
^DIST(.403,59,"AY","CAP","HPV",1,1,250,13)=""
^DIST(.403,59,"AY","CAP","NOTES (WP)",1,1,250,7)=""
^DIST(.403,59,"AY","CAP","REPORTS (WP)",1,1,250,18)=""
^DIST(.403,59,"AY","CAP","RESULTS/DIAGNOSIS",1,1,250,6)=""
^DIST(.403,59,"AY","CAP","SEC RESULTS/DIAGNOSIS",1,1,250,12)=""
^DIST(.403,59,"AY","CAP","STATUS",1,1,250,10)=""
^DIST(.403,59,"AY","CAP","WARD/CLINIC/LOCATION",1,1,250,4)=""
^DIST(.403,59,"AY","F790.1",.05,"L",1,250,6)=""
^DIST(.403,59,"AY","F790.1",.06,"L",1,250,12)=""
^DIST(.403,59,"AY","F790.1",.07,"L",1,250,3)=""
^DIST(.403,59,"AY","F790.1",.08,"L",1,250,13)=""
^DIST(.403,59,"AY","F790.1",.1,"L",1,250,5)=""
^DIST(.403,59,"AY","F790.1",.11,"L",1,250,4)=""
^DIST(.403,59,"AY","F790.1",.12,"L",1,250,1)=""
^DIST(.403,59,"AY","F790.1",.13,"L",1,250,9)=""
^DIST(.403,59,"AY","F790.1",.14,"L",1,250,10)=""
^DIST(.403,59,"AY","F790.1",1.01,"L",1,250,7)=""
^DIST(.403,59,"AY","F790.1",3.01,"L",1,250,15)=""
^DIST(.403,59,"AY","F790.1",9,"L",1,250,18)=""
^DIST(.403,59,"AY","X",1,0,18)="* * *  EDIT A PROCEDURE  * * *"
^DIST(.403,59,"AY","X",1,1,0)="Patient Name:                                          SSN:"
^DIST(.403,59,"AY","X",1,2,0)="Case Manager:                                    Procedure:"
^DIST(.403,59,"AY","X",1,3,10)="                                            Acc#:"
^DIST(.403,59,"AY","X",1,4,0)="Cx Tx Need  :                                  Cx Facility:"
^DIST(.403,59,"AY","X",1,5,0)="Br Tx Need  :                                  Br Facility:"
^DIST(.403,59,"AY","X",1,6,0)="Elig Code   :                                      Veteran:"
^DIST(.403,59,"AY","X",1,7,0)="MST         :                                          CST:"
^DIST(.403,59,"AY","X",1,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,59,"AY","X",1,9,5)="Date of Procedure:"
^DIST(.403,59,"AY","X",1,9,5,"A")="1;17;U"
^DIST(.403,59,"AY","X",1,10,4)="Clinician/Provider:"
^DIST(.403,59,"AY","X",1,11,2)="Ward/Clinic/Location:                                       Reports (WP):"
^DIST(.403,59,"AY","X",1,12,2)="Health Care Facility:                                         Notes (WP):"
^DIST(.403,59,"AY","X",1,12,2,"A")="1;20;U"
^DIST(.403,59,"AY","X",1,13,14)="Comments:"
^DIST(.403,59,"AY","X",1,14,4)="Complete by (Date):                                    HPV:"
^DIST(.403,59,"AY","X",1,15,5)="Results/Diagnosis:                                 Status:"
^DIST(.403,59,"AY","X",1,16,1)="Sec Results/Diagnosis:"
^DIST(.403,60,0)="WV NOTIF-FORM-1^^^^2940713^^^790.4^0^0^1"
^DIST(.403,60,11)=""
^DIST(.403,60,12)=""
^DIST(.403,60,40,0)="^.4031I^1^1"
^DIST(.403,60,40,1,0)="1^^1,1^^^0"
^DIST(.403,60,40,1,1)="PAGE 1"
^DIST(.403,60,40,1,40,0)="^.4032PI^252^2"
^DIST(.403,60,40,1,40,251,0)="251^2^1,1^d"
^DIST(.403,60,40,1,40,252,0)="252^1^9,1^e"
^DIST(.403,60,40,1,40,"AC",1,252)=""
^DIST(.403,60,40,1,40,"AC",2,251)=""
^DIST(.403,60,40,1,40,"B",251,251)=""
^DIST(.403,60,40,1,40,"B",252,252)=""
^DIST(.403,60,40,"B",1,1)=""
^DIST(.403,60,40,"C","PAGE 1",1)=""
^DIST(.403,60,"AY",1,0,0,"N")="6,252^2,252^2,252^9,252^2,252"
^DIST(.403,60,"AY",1,251)="0^0^790.4^^d^^^^0"
^DIST(.403,60,"AY",1,251,2,"D")="^^^^1^0^^0"
^DIST(.403,60,"AY",1,251,3,"D")="^^^^1^54^^0"
^DIST(.403,60,"AY",1,251,5,"D")="^^^^2^47^^0"
^DIST(.403,60,"AY",1,251,6,"D")="^^^^2^0^^0"
^DIST(.403,60,"AY",1,251,7,"D")="^^^^3^0^^0"
^DIST(.403,60,"AY",1,251,8,"D")="^^^^5^0^^0"
^DIST(.403,60,"AY",1,251,9,"D")="^^^^8^50^^0"
^DIST(.403,60,"AY",1,251,10,"D")="^^^^4^0^^0"
^DIST(.403,60,"AY",1,251,11,"D")="^^^^5^62^^0"
^DIST(.403,60,"AY",1,251,14,"D")="^^^^3^62^^0"
^DIST(.403,60,"AY",1,251,15,"D")="^^^^4^62^^0"
^DIST(.403,60,"AY",1,251,18,"D")="^^^^7^14^^0"
^DIST(.403,60,"AY",1,251,20,"D")="^^^^6^62^^0"
^DIST(.403,60,"AY",1,251,21,"D")="^^^^6^0^^0"
^DIST(.403,60,"AY",1,251,23,"D")="^^^^7^62^^0"
^DIST(.403,60,"AY",1,252)="8^0^790.4^^e^^^^2"
^DIST(.403,60,"AY",1,252,1,"D")="10^28^12^.02"
^DIST(.403,60,"AY",1,252,1,"N")="2^4^13^2^13"
^DIST(.403,60,"AY",1,252,2,"D")="9^14^12^.06"
^DIST(.403,60,"AY",1,252,2,"N")="0^1^1^0^1"
^DIST(.403,60,"AY",1,252,3,"D")="13^28^26^.03"
^DIST(.403,60,"AY",1,252,3,"N")="4^10^11^4^11"
^DIST(.403,60,"AY",1,252,4,"D")="11^28^50^.04"
^DIST(.403,60,"AY",1,252,4,"N")="1^3^3^13^3"
^DIST(.403,60,"AY",1,252,5,"D")="15^28^30^.05"
^DIST(.403,60,"AY",1,252,5,"N")="10^6^6^12^6"
^DIST(.403,60,"AY",1,252,6,"D")="16^28^6^.14"
^DIST(.403,60,"AY",1,252,6,"N")="5^0^9^5^9"
^DIST(.403,60,"AY",1,252,7,"D")="^^^^12^18^^0"
^DIST(.403,60,"AY",1,252,8,"D")="^^^^9^26^^0"
^DIST(.403,60,"AY",1,252,9,"D")="16^68^7^.09"
^DIST(.403,60,"AY",1,252,9,"N")="5^0^0^6^0"
^DIST(.403,60,"AY",1,252,10,"D")="14^28^12^.13"
^DIST(.403,60,"AY",1,252,10,"N")="3^5^12^11^12"
^DIST(.403,60,"AY",1,252,11,"D")="13^68^11^.11"
^DIST(.403,60,"AY",1,252,11,"N")="4^12^10^3^10"
^DIST(.403,60,"AY",1,252,12,"D")="14^68^12^.1"
^DIST(.403,60,"AY",1,252,12,"N")="11^5^5^10^5"
^DIST(.403,60,"AY",1,252,13,"D")="10^55^23^.07"
^DIST(.403,60,"AY",1,252,13,"N")="2^4^4^1^4"
^DIST(.403,60,"AY",1,"FIRST")="2,252"
^DIST(.403,60,"AY","CAP","ACCESSION#",1,1,252,2)=""
^DIST(.403,60,"AY","CAP","COMPLETE BY (DATE)",1,1,252,10)=""
^DIST(.403,60,"AY","CAP","DATE NOTIFICATION OPENED",1,1,252,1)=""
^DIST(.403,60,"AY","CAP","FACILITY",1,1,252,13)=""
^DIST(.403,60,"AY","CAP","OUTCOME",1,1,252,5)=""
^DIST(.403,60,"AY","CAP","PATIENT ED",1,1,252,9)=""
^DIST(.403,60,"AY","CAP","PRINT DATE",1,1,252,11)=""
^DIST(.403,60,"AY","CAP","PRINTED",1,1,252,12)=""
^DIST(.403,60,"AY","CAP","PURPOSE OF NOTIFICATION",1,1,252,4)=""
^DIST(.403,60,"AY","CAP","STATUS",1,1,252,6)=""
^DIST(.403,60,"AY","CAP","TYPE OF NOTIFICATION",1,1,252,3)=""
^DIST(.403,60,"AY","F790.4",.02,"L",1,252,1)=""
^DIST(.403,60,"AY","F790.4",.03,"L",1,252,3)=""
^DIST(.403,60,"AY","F790.4",.04,"L",1,252,4)=""
^DIST(.403,60,"AY","F790.4",.05,"L",1,252,5)=""
^DIST(.403,60,"AY","F790.4",.06,"L",1,252,2)=""
^DIST(.403,60,"AY","F790.4",.07,"L",1,252,13)=""
^DIST(.403,60,"AY","F790.4",.09,"L",1,252,9)=""
^DIST(.403,60,"AY","F790.4",.1,"L",1,252,12)=""
^DIST(.403,60,"AY","F790.4",.11,"L",1,252,11)=""
^DIST(.403,60,"AY","F790.4",.13,"L",1,252,10)=""
^DIST(.403,60,"AY","F790.4",.14,"L",1,252,6)=""
^DIST(.403,60,"AY","X",1,0,22)="* * *  EDIT A NOTIFICATION  * * *"
^DIST(.403,60,"AY","X",1,3,51)="Cx Tx Fac:"
^DIST(.403,60,"AY","X",1,4,51)="Br Tx Fac:"
^DIST(.403,60,"AY","X",1,6,53)="Veteran:"
^DIST(.403,60,"AY","X",1,7,0)="MST         :                                            CST:"
^DIST(.403,60,"AY","X",1,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,60,"AY","X",1,9,2)="Accession#:"
^DIST(.403,60,"AY","X",1,10,2)="Date Notification Opened:                  Facility:"
^DIST(.403,60,"AY","X",1,10,2,"A")="1;24;U^44;51;U"
^DIST(.403,60,"AY","X",1,11,3)="Purpose of Notification:"
^DIST(.403,60,"AY","X",1,11,3,"A")="1;23;U"
^DIST(.403,60,"AY","X",1,13,6)="Type of Notification:                             Print Date:"
^DIST(.403,60,"AY","X",1,14,8)="Complete by (Date):                                Printed:"
^DIST(.403,60,"AY","X",1,15,19)="Outcome:"
^DIST(.403,60,"AY","X",1,16,20)="Status:                             Patient Ed:"
^DIST(.403,61,0)="WV PATIENT-FORM-1^^^^2940917^^^790^0^0^1"
^DIST(.403,61,40,0)="^.4031I^1^1"
^DIST(.403,61,40,1,0)="1^^1,1^^^0"
^DIST(.403,61,40,1,1)="PAGE 1"
^DIST(.403,61,40,1,40,0)="^.4032PI^266^2"
^DIST(.403,61,40,1,40,253,0)="253^1^8,1^e"
^DIST(.403,61,40,1,40,266,0)="266^2^1,1^d"
^DIST(.403,61,40,1,40,"AC",1,253)=""
^DIST(.403,61,40,1,40,"AC",2,266)=""
^DIST(.403,61,40,1,40,"B",253,253)=""
^DIST(.403,61,40,1,40,"B",266,266)=""
^DIST(.403,61,40,"B",1,1)=""
^DIST(.403,61,40,"C","PAGE 1",1)=""
^DIST(.403,61,"AY",1,0,0,"N")="12,253^1,253^1,253^14,253^1,253"
^DIST(.403,61,"AY",1,253)="7^0^790^^e^^^^1"
^DIST(.403,61,"AY",1,253,1,"D")="8^20^28^.1"
^DIST(.403,61,"AY",1,253,1,"N")="0^7^16^0^16"
^DIST(.403,61,"AY",1,253,2,"D")="9^64^16^.11"
^DIST(.403,61,"AY",1,253,2,"N")="16^3^10^7^3"
^DIST(.403,61,"AY",1,253,3,"D")="10^64^11^.12"
^DIST(.403,61,"AY",1,253,3,"N")="2^19^18^10^19"
^DIST(.403,61,"AY",1,253,4,"D")="15^24^3^.13"
^DIST(.403,61,"AY",1,253,4,"N")="15^12^5^9^5"
^DIST(.403,61,"AY",1,253,5,"D")="15^36^12^.14"
^DIST(.403,61,"AY",1,253,5,"N")="15^12^6^4^6"
^DIST(.403,61,"AY",1,253,6,"D")="15^67^7^.15"
^DIST(.403,61,"AY",1,253,6,"N")="9^14^12^5^12"
^DIST(.403,61,"AY",1,253,7,"D")="9^20^20^.18"
^DIST(.403,61,"AY",1,253,7,"N")="1^10^2^16^10"
^DIST(.403,61,"AY",1,253,8,"D")="13^24^11^.17"
^DIST(.403,61,"AY",1,253,8,"N")="11^15^23^11^23"
^DIST(.403,61,"AY",1,253,9,"D")="14^67^1^1.01"
^DIST(.403,61,"AY",1,253,9,"N")="23^6^4^15^15^^^^^^1"
^DIST(.403,61,"AY",1,253,10,"D")="10^20^11^.19"
^DIST(.403,61,"AY",1,253,10,"N")="7^18^3^2^18"
^DIST(.403,61,"AY",1,253,11,"D")="12^20^25^.16"
^DIST(.403,61,"AY",1,253,11,"N")="18^8^8^19^8"
^DIST(.403,61,"AY",1,253,12,"D")="16^24^11^.21"
^DIST(.403,61,"AY",1,253,12,"N")="4^0^14^6^14"
^DIST(.403,61,"AY",1,253,13,"D")="^^^^14^68^^0"
^DIST(.403,61,"AY",1,253,14,"D")="16^67^8^.22"
^DIST(.403,61,"AY",1,253,14,"N")="6^0^0^12^0"
^DIST(.403,61,"AY",1,253,15,"D")="14^24^23^.23"
^DIST(.403,61,"AY",1,253,15,"N")="8^4^9^23^4"
^DIST(.403,61,"AY",1,253,16,"D")="8^64^11^.24"
^DIST(.403,61,"AY",1,253,16,"N")="0^2^7^1^7"
^DIST(.403,61,"AY",1,253,18,"D")="11^20^20^.25"
^DIST(.403,61,"AY",1,253,18,"N")="10^11^19^3^2"
^DIST(.403,61,"AY",1,253,19,"D")="11^64^15^.26"
^DIST(.403,61,"AY",1,253,19,"N")="3^11^11^18^11"
^DIST(.403,61,"AY",1,253,23,"D")="13^67^12^.28"
^DIST(.403,61,"AY",1,253,23,"N")="11^9^15^8^9"
^DIST(.403,61,"AY",1,266)="0^0^790^^d^^^^0"
^DIST(.403,61,"AY",1,266,2,"D")="^^^^2^0^^0"
^DIST(.403,61,"AY",1,266,3,"D")="^^^^2^51^^0"
^DIST(.403,61,"AY",1,266,4,"D")="^^^^3^6^^0"
^DIST(.403,61,"AY",1,266,5,"D")="^^^^3^44^^0"
^DIST(.403,61,"AY",1,266,6,"D")="^^^^4^2^^0"
^DIST(.403,61,"AY",1,266,7,"D")="^^^^4^46^^0"
^DIST(.403,61,"AY",1,266,8,"D")="^^^^5^50^^0"
^DIST(.403,61,"AY",1,266,10,"D")="^^^^5^3^^0"
^DIST(.403,61,"AY",1,266,11,"D")="^^^^6^9^^0"
^DIST(.403,61,"AY",1,"FIRST")="1,253"
^DIST(.403,61,"AY","CAP","BREAST TX DUE DATE",1,1,253,10)=""
^DIST(.403,61,"AY","CAP","BREAST TX FACILITY",1,1,253,18)=""
^DIST(.403,61,"AY","CAP","BREAST TX NEED",1,1,253,7)=""
^DIST(.403,61,"AY","CAP","CASE MANAGER",1,1,253,1)=""
^DIST(.403,61,"AY","CAP","CERVICAL TX DUE DATE",1,1,253,3)=""
^DIST(.403,61,"AY","CAP","CERVICAL TX FACILITY",1,1,253,19)=""
^DIST(.403,61,"AY","CAP","CERVICAL TX NEED",1,1,253,2)=""
^DIST(.403,61,"AY","CAP","CST",1,1,253,23)=""
^DIST(.403,61,"AY","CAP","CURRENTLY PREGNANT",1,1,253,4)=""
^DIST(.403,61,"AY","CAP","DATE OF 1ST ENCOUNTER",1,1,253,12)=""
^DIST(.403,61,"AY","CAP","DES DAUGHTER",1,1,253,6)=""
^DIST(.403,61,"AY","CAP","EDC",1,1,253,5)=""
^DIST(.403,61,"AY","CAP","FAMILY HX OF BREAST CA",1,1,253,15)=""
^DIST(.403,61,"AY","CAP","INACTIVE DATE",1,1,253,16)=""
^DIST(.403,61,"AY","CAP","NOTES (WP)",1,1,253,9)=""
^DIST(.403,61,"AY","CAP","PAP REGIMEN",1,1,253,11)=""
^DIST(.403,61,"AY","CAP","PAP REGIMEN START DATE",1,1,253,8)=""
^DIST(.403,61,"AY","CAP","REFERRAL SOURCE",1,1,253,14)=""
^DIST(.403,61,"AY","F790",.1,"L",1,253,1)=""
^DIST(.403,61,"AY","F790",.11,"L",1,253,2)=""
^DIST(.403,61,"AY","F790",.12,"L",1,253,3)=""
^DIST(.403,61,"AY","F790",.13,"L",1,253,4)=""
^DIST(.403,61,"AY","F790",.14,"L",1,253,5)=""
^DIST(.403,61,"AY","F790",.15,"L",1,253,6)=""
^DIST(.403,61,"AY","F790",.16,"L",1,253,11)=""
^DIST(.403,61,"AY","F790",.17,"L",1,253,8)=""
^DIST(.403,61,"AY","F790",.18,"L",1,253,7)=""
^DIST(.403,61,"AY","F790",.19,"L",1,253,10)=""
^DIST(.403,61,"AY","F790",.21,"L",1,253,12)=""
^DIST(.403,61,"AY","F790",.22,"L",1,253,14)=""
^DIST(.403,61,"AY","F790",.23,"L",1,253,15)=""
^DIST(.403,61,"AY","F790",.24,"L",1,253,16)=""
^DIST(.403,61,"AY","F790",.25,"L",1,253,18)=""
^DIST(.403,61,"AY","F790",.26,"L",1,253,19)=""
^DIST(.403,61,"AY","F790",.28,"L",1,253,23)=""
^DIST(.403,61,"AY","F790",1.01,"L",1,253,9)=""
^DIST(.403,61,"AY","X",1,0,21)="* * *  EDIT PATIENT CASE DATA  * * *"
^DIST(.403,61,"AY","X",1,7,0)="________________________________________________________________________________"
^DIST(.403,61,"AY","X",1,8,6)="Case Manager:                              Inactive Date:"
^DIST(.403,61,"AY","X",1,8,6,"A")="1;12;U"
^DIST(.403,61,"AY","X",1,9,4)="Breast Tx Need:                           Cervical Tx Need:"
^DIST(.403,61,"AY","X",1,10,0)="Breast Tx Due Date:                       Cervical Tx Due Date:"
^DIST(.403,61,"AY","X",1,11,0)="Breast Tx Facility:                       Cervical Tx Facility:"
^DIST(.403,61,"AY","X",1,12,7)="PAP Regimen:"
^DIST(.403,61,"AY","X",1,13,0)="PAP Regimen Start Date:                                       CST:"
^DIST(.403,61,"AY","X",1,14,0)="Family Hx of Breast CA:                                Notes (WP):"
^DIST(.403,61,"AY","X",1,15,4)="Currently Pregnant:        EDC:                  DES Daughter:"
^DIST(.403,61,"AY","X",1,16,1)="Date of 1st Encounter:                           Referral Source:            "
^DIST(.403,62,0)="WV NOTIF-FORM-2^^^^2941003^^^790.4^0^0^1"
^DIST(.403,62,11)=""
^DIST(.403,62,40,0)="^.4031I^1^1"
^DIST(.403,62,40,1,0)="1^251^1,1^^^0"
^DIST(.403,62,40,1,1)="PAGE 1"
^DIST(.403,62,40,1,40,0)="^.4032PI^255^1"
^DIST(.403,62,40,1,40,255,0)="255^1^9,1^e"
^DIST(.403,62,40,1,40,"AC",1,255)=""
^DIST(.403,62,40,1,40,"B",255,255)=""
^DIST(.403,62,40,"B",1,1)=""
^DIST(.403,62,40,"C","PAGE 1",1)=""
^DIST(.403,62,"AY",1,0,0,"N")="6,255^2,255^2,255^9,255^2,255"
^DIST(.403,62,"AY",1,251)="0^0^790.4^^h"
^DIST(.403,62,"AY",1,251,2,"D")="^^^^1^0^^0"
^DIST(.403,62,"AY",1,251,3,"D")="^^^^1^54^^0"
^DIST(.403,62,"AY",1,251,5,"D")="^^^^2^47^^0"
^DIST(.403,62,"AY",1,251,6,"D")="^^^^2^0^^0"
^DIST(.403,62,"AY",1,251,7,"D")="^^^^3^0^^0"
^DIST(.403,62,"AY",1,251,8,"D")="^^^^5^0^^0"
^DIST(.403,62,"AY",1,251,9,"D")="^^^^8^50^^0"
^DIST(.403,62,"AY",1,251,10,"D")="^^^^4^0^^0"
^DIST(.403,62,"AY",1,251,11,"D")="^^^^5^62^^0"
^DIST(.403,62,"AY",1,251,14,"D")="^^^^3^62^^0"
^DIST(.403,62,"AY",1,251,15,"D")="^^^^4^62^^0"
^DIST(.403,62,"AY",1,251,18,"D")="^^^^7^14^^0"
^DIST(.403,62,"AY",1,251,20,"D")="^^^^6^62^^0"
^DIST(.403,62,"AY",1,251,21,"D")="^^^^6^0^^0"
^DIST(.403,62,"AY",1,251,23,"D")="^^^^7^62^^0"
^DIST(.403,62,"AY",1,255)="8^0^790.4^^e^^^^2"
^DIST(.403,62,"AY",1,255,1,"D")="10^24^12^.02"
^DIST(.403,62,"AY",1,255,1,"N")="2^4^13^2^13"
^DIST(.403,62,"AY",1,255,2,"D")="9^14^12^.06"
^DIST(.403,62,"AY",1,255,2,"N")="0^1^1^0^1"
^DIST(.403,62,"AY",1,255,3,"D")="13^28^26^.03"
^DIST(.403,62,"AY",1,255,3,"N")="4^10^11^4^11"
^DIST(.403,62,"AY",1,255,4,"D")="11^28^50^.04"
^DIST(.403,62,"AY",1,255,4,"N")="1^3^3^13^3"
^DIST(.403,62,"AY",1,255,5,"D")="15^28^30^.05"
^DIST(.403,62,"AY",1,255,5,"N")="10^6^6^12^6"
^DIST(.403,62,"AY",1,255,6,"D")="16^28^6^.14"
^DIST(.403,62,"AY",1,255,6,"N")="5^0^9^5^9"
^DIST(.403,62,"AY",1,255,7,"D")="^^^^12^18^^0"
^DIST(.403,62,"AY",1,255,8,"D")="^^^^9^37^^0"
^DIST(.403,62,"AY",1,255,9,"D")="16^68^7^.09"
^DIST(.403,62,"AY",1,255,9,"N")="5^0^0^6^0"
^DIST(.403,62,"AY",1,255,10,"D")="14^28^12^.13"
^DIST(.403,62,"AY",1,255,10,"N")="3^5^12^11^12"
^DIST(.403,62,"AY",1,255,11,"D")="13^68^11^.11"
^DIST(.403,62,"AY",1,255,11,"N")="4^12^10^3^10"
^DIST(.403,62,"AY",1,255,12,"D")="14^68^12^.1"
^DIST(.403,62,"AY",1,255,12,"N")="11^5^5^10^5"
^DIST(.403,62,"AY",1,255,13,"D")="10^55^23^.07"
^DIST(.403,62,"AY",1,255,13,"N")="2^4^4^1^4"
^DIST(.403,62,"AY",1,"FIRST")="2,255"
^DIST(.403,62,"AY","CAP","ACCESSION#",1,1,255,2)=""
^DIST(.403,62,"AY","CAP","COMPLETE BY (DATE)",1,1,255,10)=""
^DIST(.403,62,"AY","CAP","DATE OF NOTIFICATION",1,1,255,1)=""
^DIST(.403,62,"AY","CAP","FACILITY",1,1,255,13)=""
^DIST(.403,62,"AY","CAP","OUTCOME",1,1,255,5)=""
^DIST(.403,62,"AY","CAP","PATIENT ED",1,1,255,9)=""
^DIST(.403,62,"AY","CAP","PRINT DATE",1,1,255,11)=""
^DIST(.403,62,"AY","CAP","PRINTED",1,1,255,12)=""
^DIST(.403,62,"AY","CAP","PURPOSE OF NOTIFICATION",1,1,255,4)=""
^DIST(.403,62,"AY","CAP","STATUS",1,1,255,6)=""
^DIST(.403,62,"AY","CAP","TYPE OF NOTIFICATION",1,1,255,3)=""
^DIST(.403,62,"AY","F790.4",.02,"L",1,255,1)=""
^DIST(.403,62,"AY","F790.4",.03,"L",1,255,3)=""
^DIST(.403,62,"AY","F790.4",.04,"L",1,255,4)=""
^DIST(.403,62,"AY","F790.4",.05,"L",1,255,5)=""
^DIST(.403,62,"AY","F790.4",.06,"L",1,255,2)=""
^DIST(.403,62,"AY","F790.4",.07,"L",1,255,13)=""
^DIST(.403,62,"AY","F790.4",.09,"L",1,255,9)=""
^DIST(.403,62,"AY","F790.4",.1,"L",1,255,12)=""
^DIST(.403,62,"AY","F790.4",.11,"L",1,255,11)=""
^DIST(.403,62,"AY","F790.4",.13,"L",1,255,10)=""
^DIST(.403,62,"AY","F790.4",.14,"L",1,255,6)=""
^DIST(.403,62,"AY","X",1,0,22)="* * *  EDIT A NOTIFICATION  * * *"
^DIST(.403,62,"AY","X",1,3,51)="Cx Tx Fac:"
^DIST(.403,62,"AY","X",1,4,51)="Br Tx Fac:"
^DIST(.403,62,"AY","X",1,6,53)="Veteran:"
^DIST(.403,62,"AY","X",1,7,0)="MST         :                                            CST:"
^DIST(.403,62,"AY","X",1,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,62,"AY","X",1,9,2)="Accession#:"
^DIST(.403,62,"AY","X",1,10,2)="Date of Notification:                      Facility:"
^DIST(.403,62,"AY","X",1,10,2,"A")="1;20;U"
^DIST(.403,62,"AY","X",1,11,3)="Purpose of Notification:"
^DIST(.403,62,"AY","X",1,13,6)="Type of Notification:                             Print Date:"
^DIST(.403,62,"AY","X",1,14,8)="Complete by (Date):                                Printed:"
^DIST(.403,62,"AY","X",1,15,19)="Outcome:"
^DIST(.403,62,"AY","X",1,16,20)="Status:                             Patient Ed:"
^DIST(.403,63,0)="WV PROC-FORM-2-COLP^^^^2940620^^^790.1^0^0^1"
^DIST(.403,63,40,0)="^.4031I^2^2"
^DIST(.403,63,40,1,0)="1^^1,1^2^2^0"
^DIST(.403,63,40,1,1)="PAGE 1"
^DIST(.403,63,40,1,40,0)="^.4032PI^262^2"
^DIST(.403,63,40,1,40,250,0)="250^1^9,1^e"
^DIST(.403,63,40,1,40,262,0)="262^2^1,1^d"
^DIST(.403,63,40,1,40,"AC",1,250)=""
^DIST(.403,63,40,1,40,"AC",2,262)=""
^DIST(.403,63,40,1,40,"B",250,250)=""
^DIST(.403,63,40,1,40,"B",262,262)=""
^DIST(.403,63,40,2,0)="2^^1,1^1^1^0"
^DIST(.403,63,40,2,1)="PAGE 2"
^DIST(.403,63,40,2,40,0)="^.4032PI^262^2"
^DIST(.403,63,40,2,40,254,0)="254^1^9,1^e"
^DIST(.403,63,40,2,40,262,0)="262^2^1,1^d"
^DIST(.403,63,40,2,40,"AC",1,254)=""
^DIST(.403,63,40,2,40,"AC",2,262)=""
^DIST(.403,63,40,2,40,"B",254,254)=""
^DIST(.403,63,40,2,40,"B",262,262)=""
^DIST(.403,63,40,"B",1,1)=""
^DIST(.403,63,40,"B",2,2)=""
^DIST(.403,63,40,"C","PAGE 1",1)=""
^DIST(.403,63,40,"C","PAGE 2",2)=""
^DIST(.403,63,"AY",1,0,0,"N")="12,250^1,250^1,250^12,250^1,250"
^DIST(.403,63,"AY",1,250)="8^0^790.1^^e^^^^1"
^DIST(.403,63,"AY",1,250,1,"D")="9^24^18^.12"
^DIST(.403,63,"AY",1,250,1,"N")="0^3^3^0^3"
^DIST(.403,63,"AY",1,250,3,"D")="10^24^25^.07"
^DIST(.403,63,"AY",1,250,3,"N")="1^4^4^1^4"
^DIST(.403,63,"AY",1,250,4,"D")="11^24^30^.11"
^DIST(.403,63,"AY",1,250,4,"N")="3^5^18^3^5"
^DIST(.403,63,"AY",1,250,5,"D")="12^24^30^.1"
^DIST(.403,63,"AY",1,250,5,"N")="4^15^7^18^15"
^DIST(.403,63,"AY",1,250,6,"D")="15^24^30^.05"
^DIST(.403,63,"AY",1,250,6,"N")="9^12^10^13^7"
^DIST(.403,63,"AY",1,250,7,"D")="12^76^1^1.01"
^DIST(.403,63,"AY",1,250,7,"N")="4^15^15^5^12^^^^^^1"
^DIST(.403,63,"AY",1,250,9,"D")="14^24^12^.13"
^DIST(.403,63,"AY",1,250,9,"N")="15^6^13^15^18"
^DIST(.403,63,"AY",1,250,10,"D")="15^64^6^.14"
^DIST(.403,63,"AY",1,250,10,"N")="13^12^12^6^0"
^DIST(.403,63,"AY",1,250,11,"D")="^^^^16^59^^0"
^DIST(.403,63,"AY",1,250,12,"D")="16^24^30^.06"
^DIST(.403,63,"AY",1,250,12,"N")="6^0^0^10^13"
^DIST(.403,63,"AY",1,250,13,"D")="14^64^3^.08"
^DIST(.403,63,"AY",1,250,13,"N")="15^10^6^9^10"
^DIST(.403,63,"AY",1,250,14,"D")="^^^^12^76^^0"
^DIST(.403,63,"AY",1,250,15,"D")="13^24^53^3.01"
^DIST(.403,63,"AY",1,250,15,"N")="5^9^9^7^9"
^DIST(.403,63,"AY",1,250,17,"D")="^^^^11^76^^0"
^DIST(.403,63,"AY",1,250,18,"D")="11^77^1^9"
^DIST(.403,63,"AY",1,250,18,"N")="3^7^5^4^6^^^^^^1"
^DIST(.403,63,"AY",1,262)="0^0^790.1^^d^^^^0"
^DIST(.403,63,"AY",1,262,5,"D")="^^^^3^0^^0"
^DIST(.403,63,"AY",1,262,12,"D")="^^^^1^14^^0"
^DIST(.403,63,"AY",1,262,13,"D")="^^^^2^14^^0"
^DIST(.403,63,"AY",1,262,14,"D")="^^^^2^60^^0"
^DIST(.403,63,"AY",1,262,17,"D")="^^^^4^14^^0"
^DIST(.403,63,"AY",1,262,18,"D")="^^^^3^14^^0"
^DIST(.403,63,"AY",1,262,20,"D")="^^^^1^60^^0"
^DIST(.403,63,"AY",1,262,21,"D")="^^^^3^60^^0"
^DIST(.403,63,"AY",1,262,23,"D")="^^^^5^14^^0"
^DIST(.403,63,"AY",1,262,25,"D")="^^^^8^52^^0"
^DIST(.403,63,"AY",1,262,26,"D")="^^^^8^24^^0"
^DIST(.403,63,"AY",1,262,27,"D")="^^^^4^60^^0"
^DIST(.403,63,"AY",1,262,28,"D")="^^^^5^60^^0"
^DIST(.403,63,"AY",1,262,30,"D")="^^^^7^14^^0"
^DIST(.403,63,"AY",1,262,33,"D")="^^^^6^60^^0"
^DIST(.403,63,"AY",1,262,35,"D")="^^^^6^14^^0"
^DIST(.403,63,"AY",1,262,37,"D")="^^^^7^60^^0"
^DIST(.403,63,"AY",1,"FIRST")="1,250"
^DIST(.403,63,"AY",2,0,0,"N")="11,254^14,254^14,254^11,254^14,254"
^DIST(.403,63,"AY",2,254)="8^0^790.1^^e^^^^14"
^DIST(.403,63,"AY",2,254,2,"D")="10^24^3^.21"
^DIST(.403,63,"AY",2,254,2,"N")="14^3^5^14^3"
^DIST(.403,63,"AY",2,254,3,"D")="11^24^3^.22"
^DIST(.403,63,"AY",2,254,3,"N")="2^4^6^5^4"
^DIST(.403,63,"AY",2,254,4,"D")="12^24^3^.2"
^DIST(.403,63,"AY",2,254,4,"N")="3^13^16^6^5"
^DIST(.403,63,"AY",2,254,5,"D")="10^66^3^.23"
^DIST(.403,63,"AY",2,254,5,"N")="14^6^3^2^6"
^DIST(.403,63,"AY",2,254,6,"D")="11^66^3^.24"
^DIST(.403,63,"AY",2,254,6,"N")="5^16^4^3^16"
^DIST(.403,63,"AY",2,254,8,"D")="14^24^20^.25"
^DIST(.403,63,"AY",2,254,8,"N")="13^9^12^13^12"
^DIST(.403,63,"AY",2,254,9,"D")="15^24^30^.26"
^DIST(.403,63,"AY",2,254,9,"N")="8^11^15^12^15"
^DIST(.403,63,"AY",2,254,10,"D")="^^^^16^57^^0"
^DIST(.403,63,"AY",2,254,11,"D")="16^24^30^.28"
^DIST(.403,63,"AY",2,254,11,"N")="9^0^0^15^0"
^DIST(.403,63,"AY",2,254,12,"D")="14^72^3^.27"
^DIST(.403,63,"AY",2,254,12,"N")="13^15^9^8^9"
^DIST(.403,63,"AY",2,254,13,"D")="13^24^30^.29"
^DIST(.403,63,"AY",2,254,13,"N")="4^8^8^16^8"
^DIST(.403,63,"AY",2,254,14,"D")="9^24^10^.3"
^DIST(.403,63,"AY",2,254,14,"N")="0^2^2^0^2"
^DIST(.403,63,"AY",2,254,15,"D")="15^64^10^.31"
^DIST(.403,63,"AY",2,254,15,"N")="8^11^11^9^11"
^DIST(.403,63,"AY",2,254,16,"D")="12^66^11^.245"
^DIST(.403,63,"AY",2,254,16,"N")="6^13^13^4^13"
^DIST(.403,63,"AY",2,262)="0^0^790.1^^d^^^^0"
^DIST(.403,63,"AY",2,262,5,"D")="^^^^3^0^^0"
^DIST(.403,63,"AY",2,262,12,"D")="^^^^1^14^^0"
^DIST(.403,63,"AY",2,262,13,"D")="^^^^2^14^^0"
^DIST(.403,63,"AY",2,262,14,"D")="^^^^2^60^^0"
^DIST(.403,63,"AY",2,262,17,"D")="^^^^4^14^^0"
^DIST(.403,63,"AY",2,262,18,"D")="^^^^3^14^^0"
^DIST(.403,63,"AY",2,262,20,"D")="^^^^1^60^^0"
^DIST(.403,63,"AY",2,262,21,"D")="^^^^3^60^^0"
^DIST(.403,63,"AY",2,262,23,"D")="^^^^5^14^^0"
^DIST(.403,63,"AY",2,262,25,"D")="^^^^8^52^^0"
^DIST(.403,63,"AY",2,262,26,"D")="^^^^8^24^^0"
^DIST(.403,63,"AY",2,262,27,"D")="^^^^4^60^^0"
^DIST(.403,63,"AY",2,262,28,"D")="^^^^5^60^^0"
^DIST(.403,63,"AY",2,262,30,"D")="^^^^7^14^^0"
^DIST(.403,63,"AY",2,262,33,"D")="^^^^6^60^^0"
^DIST(.403,63,"AY",2,262,35,"D")="^^^^6^14^^0"
^DIST(.403,63,"AY",2,262,37,"D")="^^^^7^60^^0"
^DIST(.403,63,"AY",2,"FIRST")="14,254"
^DIST(.403,63,"AY","CAP","CLINICIAN/PROVIDER","1^2",1,250,3)=""
^DIST(.403,63,"AY","CAP","COMMENTS","1^2",1,250,15)=""
^DIST(.403,63,"AY","CAP","COMPLETE BY (DATE)","1^2",1,250,9)=""
^DIST(.403,63,"AY","CAP","DATE OF PROCEDURE","1^2",1,250,1)=""
^DIST(.403,63,"AY","CAP","ECC DYSPLASIA","1^2",2,254,8)=""
^DIST(.403,63,"AY","CAP","ECTOCERVICAL BIOPSY","1^2",2,254,9)=""
^DIST(.403,63,"AY","CAP","HEALTH CARE FACILITY","1^2",1,250,5)=""
^DIST(.403,63,"AY","CAP","HPV","1^2",1,250,13)=""
^DIST(.403,63,"AY","CAP","IMPRESSION","1^2",2,254,13)=""
^DIST(.403,63,"AY","CAP","LESION OUTSIDE CANAL","1^2",2,254,3)=""
^DIST(.403,63,"AY","CAP","MARGINS CLEAR","1^2",2,254,12)=""
^DIST(.403,63,"AY","CAP","MULTIFOCAL","1^2",2,254,5)=""
^DIST(.403,63,"AY","CAP","NOTES (WP)","1^2",1,250,7)=""
^DIST(.403,63,"AY","CAP","NUMBER OF QUADRANTS","1^2",2,254,6)=""
^DIST(.403,63,"AY","CAP","QUADRANT LOCATIONS","1^2",2,254,16)=""
^DIST(.403,63,"AY","CAP","REPORTS (WP)","1^2",1,250,18)=""
^DIST(.403,63,"AY","CAP","RESULTS/DIAGNOSIS","1^2",1,250,6)=""
^DIST(.403,63,"AY","CAP","SATISFACTORY EXAM","1^2",2,254,4)=""
^DIST(.403,63,"AY","CAP","SCREENING PAP","1^2",2,254,14)=""
^DIST(.403,63,"AY","CAP","SEC RESULTS/DIAGNOSIS","1^2",1,250,12)=""
^DIST(.403,63,"AY","CAP","STAGE","1^2",2,254,15)=""
^DIST(.403,63,"AY","CAP","STATUS","1^2",1,250,10)=""
^DIST(.403,63,"AY","CAP","STD EVALUATION","1^2",2,254,11)=""
^DIST(.403,63,"AY","CAP","T-ZONE SEEN ENTIRELY","1^2",2,254,2)=""
^DIST(.403,63,"AY","CAP","WARD/CLINIC/LOCATION","1^2",1,250,4)=""
^DIST(.403,63,"AY","F790.1",.05,"L",1,250,6)=""
^DIST(.403,63,"AY","F790.1",.06,"L",1,250,12)=""
^DIST(.403,63,"AY","F790.1",.07,"L",1,250,3)=""
^DIST(.403,63,"AY","F790.1",.08,"L",1,250,13)=""
^DIST(.403,63,"AY","F790.1",.1,"L",1,250,5)=""
^DIST(.403,63,"AY","F790.1",.11,"L",1,250,4)=""
^DIST(.403,63,"AY","F790.1",.12,"L",1,250,1)=""
^DIST(.403,63,"AY","F790.1",.13,"L",1,250,9)=""
^DIST(.403,63,"AY","F790.1",.14,"L",1,250,10)=""
^DIST(.403,63,"AY","F790.1",.2,"L",2,254,4)=""
^DIST(.403,63,"AY","F790.1",.21,"L",2,254,2)=""
^DIST(.403,63,"AY","F790.1",.22,"L",2,254,3)=""
^DIST(.403,63,"AY","F790.1",.23,"L",2,254,5)=""
^DIST(.403,63,"AY","F790.1",.24,"L",2,254,6)=""
^DIST(.403,63,"AY","F790.1",.245,"L",2,254,16)=""
^DIST(.403,63,"AY","F790.1",.25,"L",2,254,8)=""
^DIST(.403,63,"AY","F790.1",.26,"L",2,254,9)=""
^DIST(.403,63,"AY","F790.1",.27,"L",2,254,12)=""
^DIST(.403,63,"AY","F790.1",.28,"L",2,254,11)=""
^DIST(.403,63,"AY","F790.1",.29,"L",2,254,13)=""
^DIST(.403,63,"AY","F790.1",.3,"L",2,254,14)=""
^DIST(.403,63,"AY","F790.1",.31,"L",2,254,15)=""
^DIST(.403,63,"AY","F790.1",1.01,"L",1,250,7)=""
^DIST(.403,63,"AY","F790.1",3.01,"L",1,250,15)=""
^DIST(.403,63,"AY","F790.1",9,"L",1,250,18)=""
^DIST(.403,63,"AY","X",1,0,18)="* * *  EDIT A PROCEDURE  * * *"
^DIST(.403,63,"AY","X",1,1,0)="Patient Name:                                          SSN:"
^DIST(.403,63,"AY","X",1,2,0)="Case Manager:                                    Procedure:"
^DIST(.403,63,"AY","X",1,3,10)="                                            Acc#:"
^DIST(.403,63,"AY","X",1,4,0)="Cx Tx Need  :                                  Cx Facility:"
^DIST(.403,63,"AY","X",1,5,0)="Br Tx Need  :                                  Br Facility:"
^DIST(.403,63,"AY","X",1,6,0)="Elig Code   :                                      Veteran:"
^DIST(.403,63,"AY","X",1,7,0)="MST         :                                          CST:"
^DIST(.403,63,"AY","X",1,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,63,"AY","X",1,9,5)="Date of Procedure:"
^DIST(.403,63,"AY","X",1,9,5,"A")="1;17;U"
^DIST(.403,63,"AY","X",1,10,4)="Clinician/Provider:"
^DIST(.403,63,"AY","X",1,11,2)="Ward/Clinic/Location:                                       Reports (WP):"
^DIST(.403,63,"AY","X",1,12,2)="Health Care Facility:                                         Notes (WP):"
^DIST(.403,63,"AY","X",1,12,2,"A")="1;20;U"
^DIST(.403,63,"AY","X",1,13,14)="Comments:"
^DIST(.403,63,"AY","X",1,14,4)="Complete by (Date):                                    HPV:"
^DIST(.403,63,"AY","X",1,15,5)="Results/Diagnosis:                                 Status:"
^DIST(.403,63,"AY","X",1,16,1)="Sec Results/Diagnosis:"
^DIST(.403,63,"AY","X",2,0,18)="* * *  EDIT A PROCEDURE  * * *"
^DIST(.403,63,"AY","X",2,1,0)="Patient Name:                                          SSN:"
^DIST(.403,63,"AY","X",2,2,0)="Case Manager:                                    Procedure:"
^DIST(.403,63,"AY","X",2,3,10)="                                            Acc#:"
^DIST(.403,63,"AY","X",2,4,0)="Cx Tx Need  :                                  Cx Facility:"
^DIST(.403,63,"AY","X",2,5,0)="Br Tx Need  :                                  Br Facility:"
^DIST(.403,63,"AY","X",2,6,0)="Elig Code   :                                      Veteran:"
^DIST(.403,63,"AY","X",2,7,0)="MST         :                                          CST:"
^DIST(.403,63,"AY","X",2,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,63,"AY","X",2,9,9)="Screening PAP:"
^DIST(.403,63,"AY","X",2,10,2)="T-Zone Seen Entirely:                               Multifocal:"
^DIST(.403,63,"AY","X",2,11,2)="Lesion Outside Canal:                      Number of Quadrants:"
^DIST(.403,63,"AY","X",2,12,5)="Satisfactory Exam:                       Quadrant Locations:"
^DIST(.403,63,"AY","X",2,13,12)="IMPRESSION:"
^DIST(.403,63,"AY","X",2,14,9)="ECC Dysplasia:                                  Margins Clear:"
^DIST(.403,63,"AY","X",2,15,3)="Ectocervical Biopsy:                                  Stage:"
^DIST(.403,63,"AY","X",2,16,8)="STD Evaluation:"
^DIST(.403,64,0)="WV NOTIFPURPOSE-FORM-1^^^^2950316^^^790.404^0^0^1"
^DIST(.403,64,40,0)="^.4031I^1^1"
^DIST(.403,64,40,1,0)="1^^1,1^^^0"
^DIST(.403,64,40,1,1)="PAGE 1"
^DIST(.403,64,40,1,40,0)="^.4032PI^256^1"
^DIST(.403,64,40,1,40,256,0)="256^1^1,1^e"
^DIST(.403,64,40,1,40,"AC",1,256)=""
^DIST(.403,64,40,1,40,"B",256,256)=""
^DIST(.403,64,40,"B",1,1)=""
^DIST(.403,64,40,"C","PAGE 1",1)=""
^DIST(.403,64,"AY",1,0,0,"N")="14,256^2,256^2,256^14,256^2,256"
^DIST(.403,64,"AY",1,256)="0^0^790.404^^e^^^^2"
^DIST(.403,64,"AY",1,256,2,"D")="5^29^48^.01"
^DIST(.403,64,"AY",1,256,2,"N")="0^6^6^0^6"
^DIST(.403,64,"AY",1,256,3,"D")="7^29^6^.03"
^DIST(.403,64,"AY",1,256,3,"N")="6^4^4^6^4"
^DIST(.403,64,"AY",1,256,4,"D")="8^29^10^.02"
^DIST(.403,64,"AY",1,256,4,"N")="3^8^5^3^5"
^DIST(.403,64,"AY",1,256,5,"D")="8^67^1^1.01"
^DIST(.403,64,"AY",1,256,5,"N")="3^8^8^4^8^^^^^^1"
^DIST(.403,64,"AY",1,256,6,"D")="6^29^3^.04"
^DIST(.403,64,"AY",1,256,6,"N")="2^3^3^2^3"
^DIST(.403,64,"AY",1,256,8,"D")="10^29^9^.06"
^DIST(.403,64,"AY",1,256,8,"N")="4^9^9^5^9"
^DIST(.403,64,"AY",1,256,9,"D")="11^29^9^.05"
^DIST(.403,64,"AY",1,256,9,"N")="8^11^11^8^11"
^DIST(.403,64,"AY",1,256,10,"D")="^^^^8^67^^0"
^DIST(.403,64,"AY",1,256,11,"D")="13^29^20^.07"
^DIST(.403,64,"AY",1,256,11,"N")="9^12^12^9^12"
^DIST(.403,64,"AY",1,256,12,"D")="14^29^5^.08"
^DIST(.403,64,"AY",1,256,12,"N")="11^13^13^11^13"
^DIST(.403,64,"AY",1,256,13,"D")="15^29^20^.09"
^DIST(.403,64,"AY",1,256,13,"N")="12^14^14^12^14"
^DIST(.403,64,"AY",1,256,14,"D")="16^29^5^.1"
^DIST(.403,64,"AY",1,256,14,"N")="13^0^0^13^0"
^DIST(.403,64,"AY",1,"FIRST")="2,256"
^DIST(.403,64,"AY","CAP","ACTIVE",1,1,256,6)=""
^DIST(.403,64,"AY","CAP","ASSOCIATE WITH BR OR CX TX",1,1,256,9)=""
^DIST(.403,64,"AY","CAP","BREAST TREATMENT DUE DATE",1,1,256,12)=""
^DIST(.403,64,"AY","CAP","BREAST TREATMENT NEED",1,1,256,11)=""
^DIST(.403,64,"AY","CAP","CERVICAL TREATMENT DUE DATE",1,1,256,14)=""
^DIST(.403,64,"AY","CAP","CERVICAL TREATMENT NEED",1,1,256,13)=""
^DIST(.403,64,"AY","CAP","FORM LETTER (WP)",1,1,256,5)=""
^DIST(.403,64,"AY","CAP","PRIORITY",1,1,256,4)=""
^DIST(.403,64,"AY","CAP","PURPOSE OF NOTIFICATION",1,1,256,2)=""
^DIST(.403,64,"AY","CAP","RESULT OR REMINDER LETTER",1,1,256,8)=""
^DIST(.403,64,"AY","CAP","SYNONYM",1,1,256,3)=""
^DIST(.403,64,"AY","F790.404",.01,"L",1,256,2)=""
^DIST(.403,64,"AY","F790.404",.02,"L",1,256,4)=""
^DIST(.403,64,"AY","F790.404",.03,"L",1,256,3)=""
^DIST(.403,64,"AY","F790.404",.04,"L",1,256,6)=""
^DIST(.403,64,"AY","F790.404",.05,"L",1,256,9)=""
^DIST(.403,64,"AY","F790.404",.06,"L",1,256,8)=""
^DIST(.403,64,"AY","F790.404",.07,"L",1,256,11)=""
^DIST(.403,64,"AY","F790.404",.08,"L",1,256,12)=""
^DIST(.403,64,"AY","F790.404",.09,"L",1,256,13)=""
^DIST(.403,64,"AY","F790.404",.1,"L",1,256,14)=""
^DIST(.403,64,"AY","F790.404",1.01,"L",1,256,5)=""
^DIST(.403,64,"AY","X",1,2,15)="* * *  EDIT NOTIFICATION PURPOSE & LETTER  * * *"
^DIST(.403,64,"AY","X",1,3,0)="________________________________________________________________________________"
^DIST(.403,64,"AY","X",1,5,4)="Purpose of Notification:"
^DIST(.403,64,"AY","X",1,5,4,"A")="1;23;U"
^DIST(.403,64,"AY","X",1,6,21)="Active:"
^DIST(.403,64,"AY","X",1,7,20)="Synonym:"
^DIST(.403,64,"AY","X",1,8,19)="Priority:                     FORM LETTER (WP):"
^DIST(.403,64,"AY","X",1,8,19,"A")="1;8;U"
^DIST(.403,64,"AY","X",1,10,2)="Result or Reminder Letter:"
^DIST(.403,64,"AY","X",1,11,1)="Associate with BR or CX Tx:"
^DIST(.403,64,"AY","X",1,13,6)="Breast Treatment Need:"
^DIST(.403,64,"AY","X",1,14,2)="Breast Treatment Due Date:"
^DIST(.403,64,"AY","X",1,15,4)="Cervical Treatment Need:"
^DIST(.403,64,"AY","X",1,16,0)="Cervical Treatment Due Date:"
^DIST(.403,65,0)="WV SITE PARAMS-FORM-1^^^^2950317^2990602.1354^^790.02^0^0^1"
^DIST(.403,65,14)="D DELETE^WVUTL9(DA)"
^DIST(.403,65,40,0)="^.4031I^6^6"
^DIST(.403,65,40,1,0)="1^^1,1^2^6^0"
^DIST(.403,65,40,1,1)="PAGE 1"
^DIST(.403,65,40,1,40,0)="^.4032PI^257^1"
^DIST(.403,65,40,1,40,257,0)="257^1^1,1^e"
^DIST(.403,65,40,1,40,"AC",1,257)=""
^DIST(.403,65,40,1,40,"B",257,257)=""
^DIST(.403,65,40,2,0)="2^^1,1^3^1^0"
^DIST(.403,65,40,2,1)="PAGE 2"
^DIST(.403,65,40,2,40,0)="^.4032PI^325^4"
^DIST(.403,65,40,2,40,258,0)="258^1^1,1^e"
^DIST(.403,65,40,2,40,323,0)="323^2^8,26^e"
^DIST(.403,65,40,2,40,323,2)="3^^"
^DIST(.403,65,40,2,40,324,0)="324^3^12,5^e"
^DIST(.403,65,40,2,40,325,0)="325^4^14,26^e"
^DIST(.403,65,40,2,40,325,2)="3"
^DIST(.403,65,40,2,40,"AC",1,258)=""
^DIST(.403,65,40,2,40,"AC",2,323)=""
^DIST(.403,65,40,2,40,"AC",3,324)=""
^DIST(.403,65,40,2,40,"AC",4,325)=""
^DIST(.403,65,40,2,40,"B",258,258)=""
^DIST(.403,65,40,2,40,"B",323,323)=""
^DIST(.403,65,40,2,40,"B",324,324)=""
^DIST(.403,65,40,2,40,"B",325,325)=""
^DIST(.403,65,40,3,0)="3^^1,1^4^2"
^DIST(.403,65,40,3,1)="Page 3"
^DIST(.403,65,40,3,40,0)="^.4032IP^259^1"
^DIST(.403,65,40,3,40,259,0)="259^1^1,1^e"
^DIST(.403,65,40,3,40,"AC",1,259)=""
^DIST(.403,65,40,3,40,"B",259,259)=""
^DIST(.403,65,40,4,0)="4^^1,1^5^3"
^DIST(.403,65,40,4,1)="Page 4"
^DIST(.403,65,40,4,40,0)="^.4032IP^260^1"
^DIST(.403,65,40,4,40,260,0)="260^1^1,1^e"
^DIST(.403,65,40,4,40,"AC",1,260)=""
^DIST(.403,65,40,4,40,"B",260,260)=""
^DIST(.403,65,40,5,0)="5^^1,1^6^4"
^DIST(.403,65,40,5,1)="Page 5"
^DIST(.403,65,40,5,40,0)="^.4032IP^261^1"
^DIST(.403,65,40,5,40,261,0)="261^1^1,1^e"
^DIST(.403,65,40,5,40,"AC",1,261)=""
^DIST(.403,65,40,5,40,"B",261,261)=""
^DIST(.403,65,40,6,0)="6^^1,1^1^5"
^DIST(.403,65,40,6,1)="Page 6"
^DIST(.403,65,40,6,40,0)="^.4032IP^305^1"
^DIST(.403,65,40,6,40,305,0)="305^1^1,1^e"
^DIST(.403,65,40,6,40,"AC",1,305)=""
^DIST(.403,65,40,6,40,"B",305,305)=""
^DIST(.403,65,40,"B",1,1)=""
^DIST(.403,65,40,"B",2,2)=""
^DIST(.403,65,40,"B",3,3)=""
^DIST(.403,65,40,"B",4,4)=""
^DIST(.403,65,40,"B",5,5)=""
^DIST(.403,65,40,"B",6,6)=""
^DIST(.403,65,40,"C","PAGE 1",1)=""
^DIST(.403,65,40,"C","PAGE 2",2)=""
^DIST(.403,65,40,"C","PAGE 3",3)=""
^DIST(.403,65,40,"C","PAGE 4",4)=""
^DIST(.403,65,40,"C","PAGE 5",5)=""
^DIST(.403,65,40,"C","PAGE 6",6)=""
^DIST(.403,65,"AY",1,0,0,"N")="14,257^4,257^4,257^14,257^4,257"
^DIST(.403,65,"AY",1,257)="0^0^790.02^^e^^^^4"
^DIST(.403,65,"AY",1,257,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",1,257,4,"D")="4^32^30^.02"
^DIST(.403,65,"AY",1,257,4,"N")="0^5^5^0^5"
^DIST(.403,65,"AY",1,257,5,"D")="5^32^3^.05"
^DIST(.403,65,"AY",1,257,5,"N")="4^6^6^4^6"
^DIST(.403,65,"AY",1,257,6,"D")="7^32^3^.03"
^DIST(.403,65,"AY",1,257,6,"N")="5^7^7^5^7"
^DIST(.403,65,"AY",1,257,7,"D")="8^32^47^.04"
^DIST(.403,65,"AY",1,257,7,"N")="6^8^8^6^8"
^DIST(.403,65,"AY",1,257,8,"D")="9^32^3^.07"
^DIST(.403,65,"AY",1,257,8,"N")="7^9^9^7^9"
^DIST(.403,65,"AY",1,257,9,"D")="10^32^47^.08"
^DIST(.403,65,"AY",1,257,9,"N")="8^10^10^8^10"
^DIST(.403,65,"AY",1,257,10,"D")="12^32^3^.06"
^DIST(.403,65,"AY",1,257,10,"N")="9^13^13^9^13"
^DIST(.403,65,"AY",1,257,12,"D")="^^^^16^57^^0"
^DIST(.403,65,"AY",1,257,13,"D")="14^32^3^.11"
^DIST(.403,65,"AY",1,257,13,"N")="10^14^14^10^14"
^DIST(.403,65,"AY",1,257,14,"D")="15^32^3^.12"
^DIST(.403,65,"AY",1,257,14,"N")="13^0^0^13^0"
^DIST(.403,65,"AY",1,"FIRST")="4,257"
^DIST(.403,65,"AY",2,0,0,"N")="1,325^10,258^10,258^1,325^10,258"
^DIST(.403,65,"AY",2,258)="0^0^790.02^^e^^^^10"
^DIST(.403,65,"AY",2,258,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",2,258,10,"D")="4^50^3^.1"
^DIST(.403,65,"AY",2,258,10,"N")="0^14^14^0^14"
^DIST(.403,65,"AY",2,258,11,"D")="^^^^16^57^^0"
^DIST(.403,65,"AY",2,258,14,"D")="5^53^6^.23"
^DIST(.403,65,"AY",2,258,14,"N")="10^20^20^10^20"
^DIST(.403,65,"AY",2,258,20,"D")="6^48^3^.25"
^DIST(.403,65,"AY",2,258,20,"N")="14^1,323^1,323^14^1,323"
^DIST(.403,65,"AY",2,323)="7^25^790.13^^e^^3^^1^1"
^DIST(.403,65,"AY",2,323,1,"D")="7^25^30^.01"
^DIST(.403,65,"AY",2,323,1,"N")="20,258^2,324^2,324^20,258^2,324^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,65,"AY",2,324)="11^4^790.02^^e^^^^2"
^DIST(.403,65,"AY",2,324,2,"D")="11^46^3^.24"
^DIST(.403,65,"AY",2,324,2,"N")="1,323^3^3^1,323^3"
^DIST(.403,65,"AY",2,324,3,"D")="12^48^3^.26"
^DIST(.403,65,"AY",2,324,3,"N")="2^1,325^1,325^2^1,325"
^DIST(.403,65,"AY",2,325)="13^25^790.14^^e^^3^^1^1"
^DIST(.403,65,"AY",2,325,1,"D")="13^25^30^.01"
^DIST(.403,65,"AY",2,325,1,"N")="3,324^0^0^3,324^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,65,"AY",2,"FIRST")="10,258"
^DIST(.403,65,"AY",3,0,0,"N")="26,259^18,259^18,259^35,259^18,259"
^DIST(.403,65,"AY",3,259)="0^0^790.02^^e^^^^18"
^DIST(.403,65,"AY",3,259,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",3,259,18,"D")="7^31^3^38.01"
^DIST(.403,65,"AY",3,259,18,"N")="0^19^27^0^27"
^DIST(.403,65,"AY",3,259,19,"D")="8^31^3^27.01"
^DIST(.403,65,"AY",3,259,19,"N")="18^20^28^27^28"
^DIST(.403,65,"AY",3,259,20,"D")="9^31^3^37.01"
^DIST(.403,65,"AY",3,259,20,"N")="19^21^29^28^29"
^DIST(.403,65,"AY",3,259,21,"D")="10^31^3^2.01"
^DIST(.403,65,"AY",3,259,21,"N")="20^22^30^29^30"
^DIST(.403,65,"AY",3,259,22,"D")="11^31^3^19.01"
^DIST(.403,65,"AY",3,259,22,"N")="21^23^31^30^31"
^DIST(.403,65,"AY",3,259,23,"D")="12^31^3^4.01"
^DIST(.403,65,"AY",3,259,23,"N")="22^24^32^31^32"
^DIST(.403,65,"AY",3,259,24,"D")="13^31^3^17.01"
^DIST(.403,65,"AY",3,259,24,"N")="23^25^33^32^33"
^DIST(.403,65,"AY",3,259,25,"D")="14^31^3^18.01"
^DIST(.403,65,"AY",3,259,25,"N")="24^26^34^33^34"
^DIST(.403,65,"AY",3,259,26,"D")="15^31^3^8.01"
^DIST(.403,65,"AY",3,259,26,"N")="25^0^35^34^35"
^DIST(.403,65,"AY",3,259,27,"D")="7^47^4^38.03"
^DIST(.403,65,"AY",3,259,27,"N")="0^28^19^18^19"
^DIST(.403,65,"AY",3,259,28,"D")="8^47^4^27.03"
^DIST(.403,65,"AY",3,259,28,"N")="27^29^20^19^20"
^DIST(.403,65,"AY",3,259,29,"D")="9^47^4^37.03"
^DIST(.403,65,"AY",3,259,29,"N")="28^30^21^20^21"
^DIST(.403,65,"AY",3,259,30,"D")="10^47^4^2.03"
^DIST(.403,65,"AY",3,259,30,"N")="29^31^22^21^22"
^DIST(.403,65,"AY",3,259,31,"D")="11^47^4^19.03"
^DIST(.403,65,"AY",3,259,31,"N")="30^32^23^22^23"
^DIST(.403,65,"AY",3,259,32,"D")="12^47^4^4.03"
^DIST(.403,65,"AY",3,259,32,"N")="31^33^24^23^24"
^DIST(.403,65,"AY",3,259,33,"D")="13^47^4^7.03"
^DIST(.403,65,"AY",3,259,33,"N")="32^34^25^24^25"
^DIST(.403,65,"AY",3,259,34,"D")="14^47^4^18.03"
^DIST(.403,65,"AY",3,259,34,"N")="33^35^26^25^26"
^DIST(.403,65,"AY",3,259,35,"D")="15^47^4^8.03"
^DIST(.403,65,"AY",3,259,35,"N")="34^0^0^26^0"
^DIST(.403,65,"AY",3,259,36,"D")="^^^^16^56^^0"
^DIST(.403,65,"AY",3,"FIRST")="18,259"
^DIST(.403,65,"AY",4,0,0,"N")="34,260^10,260^10,260^35,260^10,260"
^DIST(.403,65,"AY",4,260)="0^0^790.02^^e^^^^10"
^DIST(.403,65,"AY",4,260,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",4,260,10,"D")="7^31^3^34.01"
^DIST(.403,65,"AY",4,260,10,"N")="0^13^11^0^11"
^DIST(.403,65,"AY",4,260,11,"D")="7^47^4^34.03"
^DIST(.403,65,"AY",4,260,11,"N")="0^14^13^10^13"
^DIST(.403,65,"AY",4,260,13,"D")="8^31^3^29.01"
^DIST(.403,65,"AY",4,260,13,"N")="10^16^14^11^14"
^DIST(.403,65,"AY",4,260,14,"D")="8^47^4^29.03"
^DIST(.403,65,"AY",4,260,14,"N")="11^17^16^13^16"
^DIST(.403,65,"AY",4,260,16,"D")="9^31^3^24.01"
^DIST(.403,65,"AY",4,260,16,"N")="13^19^17^14^17"
^DIST(.403,65,"AY",4,260,17,"D")="9^47^4^24.03"
^DIST(.403,65,"AY",4,260,17,"N")="14^20^19^16^19"
^DIST(.403,65,"AY",4,260,19,"D")="10^31^3^3.01"
^DIST(.403,65,"AY",4,260,19,"N")="16^22^20^17^20"
^DIST(.403,65,"AY",4,260,20,"D")="10^47^4^3.03"
^DIST(.403,65,"AY",4,260,20,"N")="17^23^22^19^22"
^DIST(.403,65,"AY",4,260,22,"D")="11^31^3^22.01"
^DIST(.403,65,"AY",4,260,22,"N")="19^25^23^20^23"
^DIST(.403,65,"AY",4,260,23,"D")="11^47^4^22.03"
^DIST(.403,65,"AY",4,260,23,"N")="20^26^25^22^25"
^DIST(.403,65,"AY",4,260,25,"D")="12^31^3^23.01"
^DIST(.403,65,"AY",4,260,25,"N")="22^28^26^23^26"
^DIST(.403,65,"AY",4,260,26,"D")="12^47^4^23.03"
^DIST(.403,65,"AY",4,260,26,"N")="23^29^28^25^28"
^DIST(.403,65,"AY",4,260,28,"D")="13^31^3^17.01"
^DIST(.403,65,"AY",4,260,28,"N")="25^31^29^26^29"
^DIST(.403,65,"AY",4,260,29,"D")="13^47^4^17.03"
^DIST(.403,65,"AY",4,260,29,"N")="26^32^31^28^31"
^DIST(.403,65,"AY",4,260,31,"D")="14^31^3^32.01"
^DIST(.403,65,"AY",4,260,31,"N")="28^34^32^29^32"
^DIST(.403,65,"AY",4,260,32,"D")="14^47^4^32.03"
^DIST(.403,65,"AY",4,260,32,"N")="29^35^34^31^34"
^DIST(.403,65,"AY",4,260,34,"D")="15^31^3^25.01"
^DIST(.403,65,"AY",4,260,34,"N")="31^0^35^32^35"
^DIST(.403,65,"AY",4,260,35,"D")="15^47^4^25.03"
^DIST(.403,65,"AY",4,260,35,"N")="32^0^0^34^0"
^DIST(.403,65,"AY",4,260,36,"D")="^^^^16^57^^0"
^DIST(.403,65,"AY",4,"FIRST")="10,260"
^DIST(.403,65,"AY",5,0,0,"N")="34,261^10,261^10,261^35,261^10,261"
^DIST(.403,65,"AY",5,261)="0^0^790.02^^e^^^^10"
^DIST(.403,65,"AY",5,261,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",5,261,10,"D")="7^31^3^26.01"
^DIST(.403,65,"AY",5,261,10,"N")="0^13^11^0^11"
^DIST(.403,65,"AY",5,261,11,"D")="7^47^4^26.03"
^DIST(.403,65,"AY",5,261,11,"N")="0^14^13^10^13"
^DIST(.403,65,"AY",5,261,13,"D")="8^31^3^28.01"
^DIST(.403,65,"AY",5,261,13,"N")="10^16^14^11^14"
^DIST(.403,65,"AY",5,261,14,"D")="8^47^4^28.03"
^DIST(.403,65,"AY",5,261,14,"N")="11^17^16^13^16"
^DIST(.403,65,"AY",5,261,16,"D")="9^31^3^33.01"
^DIST(.403,65,"AY",5,261,16,"N")="13^19^17^14^17"
^DIST(.403,65,"AY",5,261,17,"D")="9^47^4^33.03"
^DIST(.403,65,"AY",5,261,17,"N")="14^20^19^16^19"
^DIST(.403,65,"AY",5,261,19,"D")="10^31^3^30.01"
^DIST(.403,65,"AY",5,261,19,"N")="16^22^20^17^20"
^DIST(.403,65,"AY",5,261,20,"D")="10^47^4^30.03"
^DIST(.403,65,"AY",5,261,20,"N")="17^23^22^19^22"
^DIST(.403,65,"AY",5,261,22,"D")="11^31^3^31.01"
^DIST(.403,65,"AY",5,261,22,"N")="19^25^23^20^23"
^DIST(.403,65,"AY",5,261,23,"D")="11^47^4^31.03"
^DIST(.403,65,"AY",5,261,23,"N")="20^26^25^22^25"
^DIST(.403,65,"AY",5,261,25,"D")="12^31^3^1.01"
^DIST(.403,65,"AY",5,261,25,"N")="22^28^26^23^26"
^DIST(.403,65,"AY",5,261,26,"D")="12^47^4^1.03"
^DIST(.403,65,"AY",5,261,26,"N")="23^29^28^25^28"
^DIST(.403,65,"AY",5,261,28,"D")="13^31^3^40.01"
^DIST(.403,65,"AY",5,261,28,"N")="25^31^29^26^29"
^DIST(.403,65,"AY",5,261,29,"D")="13^47^4^40.03"
^DIST(.403,65,"AY",5,261,29,"N")="26^32^31^28^31"
^DIST(.403,65,"AY",5,261,31,"D")="14^31^3^20.01"
^DIST(.403,65,"AY",5,261,31,"N")="28^34^32^29^32"
^DIST(.403,65,"AY",5,261,32,"D")="14^47^4^20.03"
^DIST(.403,65,"AY",5,261,32,"N")="29^35^34^31^34"
^DIST(.403,65,"AY",5,261,34,"D")="15^31^3^21.01"
^DIST(.403,65,"AY",5,261,34,"N")="31^0^35^32^35"
^DIST(.403,65,"AY",5,261,35,"D")="15^47^4^21.03"
^DIST(.403,65,"AY",5,261,35,"N")="32^0^0^34^0"
^DIST(.403,65,"AY",5,261,36,"D")="^^^^16^56^^0"
^DIST(.403,65,"AY",5,"FIRST")="10,261"
^DIST(.403,65,"AY",6,0,0,"N")="16,305^10,305^10,305^17,305^10,305"
^DIST(.403,65,"AY",6,305)="0^0^790.02^^e^^^^10"
^DIST(.403,65,"AY",6,305,1,"D")="^^^^2^11^^0"
^DIST(.403,65,"AY",6,305,10,"D")="7^31^3^35.01"
^DIST(.403,65,"AY",6,305,10,"N")="0^13^11^0^11"
^DIST(.403,65,"AY",6,305,11,"D")="7^47^4^35.03"
^DIST(.403,65,"AY",6,305,11,"N")="0^14^13^10^13"
^DIST(.403,65,"AY",6,305,13,"D")="8^31^3^39.01"
^DIST(.403,65,"AY",6,305,13,"N")="10^16^14^11^14"
^DIST(.403,65,"AY",6,305,14,"D")="8^47^4^39.03"
^DIST(.403,65,"AY",6,305,14,"N")="11^17^16^13^16"
^DIST(.403,65,"AY",6,305,16,"D")="9^31^3^41.01"
^DIST(.403,65,"AY",6,305,16,"N")="13^0^17^14^17"
^DIST(.403,65,"AY",6,305,17,"D")="9^47^4^41.03"
^DIST(.403,65,"AY",6,305,17,"N")="14^0^0^16^0"
^DIST(.403,65,"AY",6,305,18,"D")="^^^^16^56^^0"
^DIST(.403,65,"AY",6,"FIRST")="10,305"
^DIST(.403,65,"AY","CAP","ASK CASE MANAGER","1^2^6^3^4^5",1,257,5)=""
^DIST(.403,65,"AY","CAP","AUTOQUEUE NORMAL MAM LETTERS","1^2^6^3^4^5",1,257,8)=""
^DIST(.403,65,"AY","CAP","AUTOQUEUE NORMAL PAP LETTERS","1^2^6^3^4^5",1,257,6)=""
^DIST(.403,65,"AY","CAP","DEFAULT #DAYS TO PRINT LETTER","1^2^6^3^4^5",1,257,10)=""
^DIST(.403,65,"AY","CAP","DEFAULT CASE MANAGER","1^2^6^3^4^5",1,257,4)=""
^DIST(.403,65,"AY","CAP","IMPORT MAMMOGRAMS FROM RADIOLOGY","1^2^6^3^4^5",2,258,10)=""
^DIST(.403,65,"AY","CAP","IMPORT TESTS FROM LABORATORY","1^2^6^3^4^5",2,324,2)=""
^DIST(.403,65,"AY","CAP","INCLUDE ALL NON-VETERANS(Y/N)?","1^2^6^3^4^5",2,258,20)=""
^DIST(.403,65,"AY","CAP","INCLUDE ALL NON-VETERANS(Y/N)?","1^2^6^3^4^5",2,324,3)=""
^DIST(.403,65,"AY","CAP","MAM RESULT NORMAL LETTER","1^2^6^3^4^5",1,257,9)=""
^DIST(.403,65,"AY","CAP","PAP RESULT NORMAL LETTER","1^2^6^3^4^5",1,257,7)=""
^DIST(.403,65,"AY","CAP","STATUS GIVEN TO IMPORTED MAMMOGRAMS","1^2^6^3^4^5",2,258,14)=""
^DIST(.403,65,"AY","CAP","UPDATE RESULT/DX FIELD?","1^2^6^3^4^5",1,257,13)=""
^DIST(.403,65,"AY","CAP","UPDATE TREATMENT NEEDS?","1^2^6^3^4^5",1,257,14)=""
^DIST(.403,65,"AY","F790.02",.02,"L",1,257,4)=""
^DIST(.403,65,"AY","F790.02",.03,"L",1,257,6)=""
^DIST(.403,65,"AY","F790.02",.04,"L",1,257,7)=""
^DIST(.403,65,"AY","F790.02",.05,"L",1,257,5)=""
^DIST(.403,65,"AY","F790.02",.06,"L",1,257,10)=""
^DIST(.403,65,"AY","F790.02",.07,"L",1,257,8)=""
^DIST(.403,65,"AY","F790.02",.08,"L",1,257,9)=""
^DIST(.403,65,"AY","F790.02",.1,"L",2,258,10)=""
^DIST(.403,65,"AY","F790.02",.11,"L",1,257,13)=""
^DIST(.403,65,"AY","F790.02",.12,"L",1,257,14)=""
^DIST(.403,65,"AY","F790.02",.23,"L",2,258,14)=""
^DIST(.403,65,"AY","F790.02",.24,"L",2,324,2)=""
^DIST(.403,65,"AY","F790.02",.25,"L",2,258,20)=""
^DIST(.403,65,"AY","F790.02",.26,"L",2,324,3)=""
^DIST(.403,65,"AY","F790.02",1.01,"L",5,261,25)=""
^DIST(.403,65,"AY","F790.02",1.03,"L",5,261,26)=""
^DIST(.403,65,"AY","F790.02",2.01,"L",3,259,21)=""
^DIST(.403,65,"AY","F790.02",2.03,"L",3,259,30)=""
^DIST(.403,65,"AY","F790.02",3.01,"L",4,260,19)=""
^DIST(.403,65,"AY","F790.02",3.03,"L",4,260,20)=""
^DIST(.403,65,"AY","F790.02",4.01,"L",3,259,23)=""
^DIST(.403,65,"AY","F790.02",4.03,"L",3,259,32)=""
^DIST(.403,65,"AY","F790.02",7.03,"L",3,259,33)=""
^DIST(.403,65,"AY","F790.02",8.01,"L",3,259,26)=""
^DIST(.403,65,"AY","F790.02",8.03,"L",3,259,35)=""
^DIST(.403,65,"AY","F790.02",17.01,"L",3,259,24)=""
^DIST(.403,65,"AY","F790.02",17.01,"L",4,260,28)=""
^DIST(.403,65,"AY","F790.02",17.03,"L",4,260,29)=""
^DIST(.403,65,"AY","F790.02",18.01,"L",3,259,25)=""
^DIST(.403,65,"AY","F790.02",18.03,"L",3,259,34)=""
^DIST(.403,65,"AY","F790.02",19.01,"L",3,259,22)=""
^DIST(.403,65,"AY","F790.02",19.03,"L",3,259,31)=""
^DIST(.403,65,"AY","F790.02",20.01,"L",5,261,31)=""
^DIST(.403,65,"AY","F790.02",20.03,"L",5,261,32)=""
^DIST(.403,65,"AY","F790.02",21.01,"L",5,261,34)=""
^DIST(.403,65,"AY","F790.02",21.03,"L",5,261,35)=""
^DIST(.403,65,"AY","F790.02",22.01,"L",4,260,22)=""
^DIST(.403,65,"AY","F790.02",22.03,"L",4,260,23)=""
^DIST(.403,65,"AY","F790.02",23.01,"L",4,260,25)=""
^DIST(.403,65,"AY","F790.02",23.03,"L",4,260,26)=""
^DIST(.403,65,"AY","F790.02",24.01,"L",4,260,16)=""
^DIST(.403,65,"AY","F790.02",24.03,"L",4,260,17)=""
^DIST(.403,65,"AY","F790.02",25.01,"L",4,260,34)=""
^DIST(.403,65,"AY","F790.02",25.03,"L",4,260,35)=""
^DIST(.403,65,"AY","F790.02",26.01,"L",5,261,10)=""
^DIST(.403,65,"AY","F790.02",26.03,"L",5,261,11)=""
^DIST(.403,65,"AY","F790.02",27.01,"L",3,259,19)=""
^DIST(.403,65,"AY","F790.02",27.03,"L",3,259,28)=""
^DIST(.403,65,"AY","F790.02",28.01,"L",5,261,13)=""
^DIST(.403,65,"AY","F790.02",28.03,"L",5,261,14)=""
^DIST(.403,65,"AY","F790.02",29.01,"L",4,260,13)=""
^DIST(.403,65,"AY","F790.02",29.03,"L",4,260,14)=""
^DIST(.403,65,"AY","F790.02",30.01,"L",5,261,19)=""
^DIST(.403,65,"AY","F790.02",30.03,"L",5,261,20)=""
^DIST(.403,65,"AY","F790.02",31.01,"L",5,261,22)=""
^DIST(.403,65,"AY","F790.02",31.03,"L",5,261,23)=""
^DIST(.403,65,"AY","F790.02",32.01,"L",4,260,31)=""
^DIST(.403,65,"AY","F790.02",32.03,"L",4,260,32)=""
^DIST(.403,65,"AY","F790.02",33.01,"L",5,261,16)=""
^DIST(.403,65,"AY","F790.02",33.03,"L",5,261,17)=""
^DIST(.403,65,"AY","F790.02",34.01,"L",4,260,10)=""
^DIST(.403,65,"AY","F790.02",34.03,"L",4,260,11)=""
^DIST(.403,65,"AY","F790.02",35.01,"L",6,305,10)=""
^DIST(.403,65,"AY","F790.02",35.03,"L",6,305,11)=""
^DIST(.403,65,"AY","F790.02",37.01,"L",3,259,20)=""
^DIST(.403,65,"AY","F790.02",37.03,"L",3,259,29)=""
^DIST(.403,65,"AY","F790.02",38.01,"L",3,259,18)=""
^DIST(.403,65,"AY","F790.02",38.03,"L",3,259,27)=""
^DIST(.403,65,"AY","F790.02",39.01,"L",6,305,13)=""
^DIST(.403,65,"AY","F790.02",39.03,"L",6,305,14)=""
^DIST(.403,65,"AY","F790.02",40.01,"L",5,261,28)=""
^DIST(.403,65,"AY","F790.02",40.03,"L",5,261,29)=""
^DIST(.403,65,"AY","F790.02",41.01,"L",6,305,16)=""
^DIST(.403,65,"AY","F790.02",41.03,"L",6,305,17)=""
^DIST(.403,65,"AY","F790.13",.01,"L",2,323,1)=""
^DIST(.403,65,"AY","F790.14",.01,"L",2,325,1)=""
^DIST(.403,65,"AY","X",1,3,0)="________________________________________________________________________________"
^DIST(.403,65,"AY","X",1,4,10)="Default Case Manager:"
^DIST(.403,65,"AY","X",1,5,14)="Ask Case Manager:"
^DIST(.403,65,"AY","X",1,7,2)="Autoqueue Normal PAP Letters:"
^DIST(.403,65,"AY","X",1,8,6)="PAP Result Normal Letter:"
^DIST(.403,65,"AY","X",1,9,2)="Autoqueue Normal MAM Letters:"
^DIST(.403,65,"AY","X",1,10,6)="MAM Result Normal Letter:"
^DIST(.403,65,"AY","X",1,12,1)="Default #days to print letter:"
^DIST(.403,65,"AY","X",1,14,7)="Update Result/Dx Field?:"
^DIST(.403,65,"AY","X",1,15,7)="Update Treatment Needs?:"
^DIST(.403,65,"AY","X",2,3,0)="________________________________________________________________________________"
^DIST(.403,65,"AY","X",2,4,4)="RADIOLOGY:  Import Mammograms from Radiology:"
^DIST(.403,65,"AY","X",2,5,16)="Status Given to Imported Mammograms:"
^DIST(.403,65,"AY","X",2,6,16)="Include ALL Non-Veterans(Y/N)?:"
^DIST(.403,65,"AY","X",2,7,4)="ELIGIBILITY CODE(S):"
^DIST(.403,65,"AY","X",2,11,4)="LABORATORY: Import Tests from Laboratory:"
^DIST(.403,65,"AY","X",2,12,16)="Include ALL Non-Veterans(Y/N)?:"
^DIST(.403,65,"AY","X",2,13,4)="ELIGIBILITY CODE(S):"
^DIST(.403,65,"AY","X",3,3,0)="________________________________________________________________________________"
^DIST(.403,65,"AY","X",3,5,4)="Procedure Type            Active      DAYS DELINQUENT"
^DIST(.403,65,"AY","X",3,6,4)="--------------------      ------      ---------------"
^DIST(.403,65,"AY","X",3,7,4)="Breast Ultrasound"
^DIST(.403,65,"AY","X",3,8,4)="Clinical Breast Exam"
^DIST(.403,65,"AY","X",3,9,4)="Colposcopy Impr (No Bx)"
^DIST(.403,65,"AY","X",3,10,4)="Colposcopy w/Biopsy"
^DIST(.403,65,"AY","X",3,11,4)="Cone Biopsy"
^DIST(.403,65,"AY","X",3,12,4)="Cryotherapy"
^DIST(.403,65,"AY","X",3,13,4)="Ectocervical Biopsy"
^DIST(.403,65,"AY","X",3,14,4)="Endocervical Currettage"
^DIST(.403,65,"AY","X",3,15,4)="Endometrial Biopsy"
^DIST(.403,65,"AY","X",4,3,0)="________________________________________________________________________________"
^DIST(.403,65,"AY","X",4,5,4)="Procedure Type            Active      DAYS DELINQUENT"
^DIST(.403,65,"AY","X",4,6,4)="--------------------      ------      ---------------"
^DIST(.403,65,"AY","X",4,7,4)="Fine Needle Aspiration"
^DIST(.403,65,"AY","X",4,8,4)="General Surgery Consult"
^DIST(.403,65,"AY","X",4,9,4)="Gyn Onc Consult"
^DIST(.403,65,"AY","X",4,10,4)="Hysterectomy"
^DIST(.403,65,"AY","X",4,11,4)="Laser Abilation"
^DIST(.403,65,"AY","X",4,12,4)="Laser Cone"
^DIST(.403,65,"AY","X",4,13,4)="LEEP"
^DIST(.403,65,"AY","X",4,14,4)="Lumpectomy"
^DIST(.403,65,"AY","X",4,15,4)="Mammogram Dx Bilat"
^DIST(.403,65,"AY","X",5,3,0)="________________________________________________________________________________"
^DIST(.403,65,"AY","X",5,5,4)="Procedure Type            Active      DAYS DELINQUENT"
^DIST(.403,65,"AY","X",5,6,4)="--------------------      ------      ---------------"
^DIST(.403,65,"AY","X",5,7,4)="Mamogram Dx Unilat"
^DIST(.403,65,"AY","X",5,8,4)="Mammogram Screening"
^DIST(.403,65,"AY","X",5,9,4)="Mastectomy"
^DIST(.403,65,"AY","X",5,10,4)="Needle Biopsy"
^DIST(.403,65,"AY","X",5,11,4)="Open Biopsy"
^DIST(.403,65,"AY","X",5,12,4)="PAP Smear"
^DIST(.403,65,"AY","X",5,13,4)="Pelvic Ultrasound"
^DIST(.403,65,"AY","X",5,14,4)="Pregnancy Test"
^DIST(.403,65,"AY","X",5,15,4)="STD Evaluation"
^DIST(.403,65,"AY","X",6,3,0)="-------------------------------------------------------------------------------"
^DIST(.403,65,"AY","X",6,5,4)="Procedure Type            Active      DAYS DELINQUENT"
^DIST(.403,65,"AY","X",6,6,4)="--------------------      ------      ---------------"
^DIST(.403,65,"AY","X",6,7,4)="Stereotactic Biopsy"
^DIST(.403,65,"AY","X",6,8,4)="Tubal Ligation"
^DIST(.403,65,"AY","X",6,9,4)="Vaginal Ultrasound"
^DIST(.403,66,0)="WV REFUSED PROCEDURE-ENTRY^@^@^^2980617.0721^^^790.3^0^0^1"
^DIST(.403,66,40,0)="^.4031I^1^1"
^DIST(.403,66,40,1,0)="1^^1,1"
^DIST(.403,66,40,1,1)="Page 1"
^DIST(.403,66,40,1,40,0)="^.4032IP^264^2"
^DIST(.403,66,40,1,40,263,0)="263^1^1,1^d"
^DIST(.403,66,40,1,40,264,0)="264^2^10,1^e"
^DIST(.403,66,40,1,40,"AC",1,263)=""
^DIST(.403,66,40,1,40,"AC",2,264)=""
^DIST(.403,66,40,1,40,"B",263,263)=""
^DIST(.403,66,40,1,40,"B",264,264)=""
^DIST(.403,66,40,"B",1,1)=""
^DIST(.403,66,40,"C","PAGE 1",1)=""
^DIST(.403,66,"AY",1,0,0,"N")="3,264^1,264^1,264^3,264^1,264"
^DIST(.403,66,"AY",1,263)="0^0^790.1^^d^^^^0"
^DIST(.403,66,"AY",1,263,5,"D")="^^^^3^47^^0"
^DIST(.403,66,"AY",1,263,12,"D")="^^^^2^14^^0"
^DIST(.403,66,"AY",1,263,13,"D")="^^^^3^14^^0"
^DIST(.403,66,"AY",1,263,17,"D")="^^^^4^14^^0"
^DIST(.403,66,"AY",1,263,18,"D")="^^^^3^60^^0"
^DIST(.403,66,"AY",1,263,20,"D")="^^^^2^60^^0"
^DIST(.403,66,"AY",1,263,23,"D")="^^^^5^14^^0"
^DIST(.403,66,"AY",1,263,25,"D")="^^^^8^0^^0"
^DIST(.403,66,"AY",1,263,26,"D")="^^^^8^60^^0"
^DIST(.403,66,"AY",1,263,27,"D")="^^^^4^60^^0"
^DIST(.403,66,"AY",1,263,28,"D")="^^^^5^60^^0"
^DIST(.403,66,"AY",1,263,30,"D")="^^^^7^14^^0"
^DIST(.403,66,"AY",1,263,32,"D")="^^^^6^60^^0"
^DIST(.403,66,"AY",1,263,34,"D")="^^^^6^14^^0"
^DIST(.403,66,"AY",1,263,36,"D")="^^^^7^60^^0"
^DIST(.403,66,"AY",1,264)="9^0^790.3^^e^^^^1"
^DIST(.403,66,"AY",1,264,1,"D")="10^14^11^.01"
^DIST(.403,66,"AY",1,264,1,"N")="0^5^5^0^5"
^DIST(.403,66,"AY",1,264,2,"D")="14^14^17^3"
^DIST(.403,66,"AY",1,264,2,"N")="5^3^3^5^3"
^DIST(.403,66,"AY",1,264,3,"D")="16^14^63^4"
^DIST(.403,66,"AY",1,264,3,"N")="2^0^0^2^0"
^DIST(.403,66,"AY",1,264,5,"D")="12^14^30^2"
^DIST(.403,66,"AY",1,264,5,"N")="1^2^2^1^2"
^DIST(.403,66,"AY",1,"FIRST")="1,264"
^DIST(.403,66,"AY","CAP","COMMENTS",1,1,264,3)=""
^DIST(.403,66,"AY","CAP","DATE REFUSED",1,1,264,1)=""
^DIST(.403,66,"AY","CAP","PROCEDURE",1,1,264,5)=""
^DIST(.403,66,"AY","CAP","REASON",1,1,264,2)=""
^DIST(.403,66,"AY","F790.3",.01,"L",1,264,1)=""
^DIST(.403,66,"AY","F790.3",2,"L",1,264,5)=""
^DIST(.403,66,"AY","F790.3",3,"L",1,264,2)=""
^DIST(.403,66,"AY","F790.3",4,"L",1,264,3)=""
^DIST(.403,66,"AY","X",1,0,21)="* * *  ADD/EDIT A REFUSAL  * * *"
^DIST(.403,66,"AY","X",1,2,0)="Patient Name:                                          SSN:"
^DIST(.403,66,"AY","X",1,3,0)="Case Manager:"
^DIST(.403,66,"AY","X",1,4,0)="Cx Tx Need  :                                    Cx Tx Fac:"
^DIST(.403,66,"AY","X",1,5,0)="Br Tx Need  :                                    Br Tx Fac:"
^DIST(.403,66,"AY","X",1,6,0)="Elig Code   :                                      Veteran:"
^DIST(.403,66,"AY","X",1,7,0)="MST         :                                          CST:"
^DIST(.403,66,"AY","X",1,9,0)="--------------------------------------------------------------------------------"
^DIST(.403,66,"AY","X",1,10,0)="Date Refused:"
^DIST(.403,66,"AY","X",1,10,0,"A")="1;12;U"
^DIST(.403,66,"AY","X",1,12,3)="Procedure:"
^DIST(.403,66,"AY","X",1,12,3,"A")="1;9;U"
^DIST(.403,66,"AY","X",1,14,6)="Reason:"
^DIST(.403,66,"AY","X",1,16,4)="Comments:"
^DIST(.403,67,0)="WV PROC-FORM-LAB^^^^2940620^^^790.1^0^0^1"
^DIST(.403,67,40,0)="^.4031I^1^1"
^DIST(.403,67,40,1,0)="1^^1,1^^^0"
^DIST(.403,67,40,1,1)="PAGE 1"
^DIST(.403,67,40,1,40,0)="^.4032PI^267^2"
^DIST(.403,67,40,1,40,265,0)="265^1^8,1^e"
^DIST(.403,67,40,1,40,267,0)="267^2^1,1^d"
^DIST(.403,67,40,1,40,"AC",1,265)=""
^DIST(.403,67,40,1,40,"AC",2,267)=""
^DIST(.403,67,40,1,40,"B",265,265)=""
^DIST(.403,67,40,1,40,"B",267,267)=""
^DIST(.403,67,40,"B",1,1)=""
^DIST(.403,67,40,"C","PAGE 1",1)=""
^DIST(.403,67,"AY",1,0,0,"N")="5,265^1,265^1,265^5,265^1,265"
^DIST(.403,67,"AY",1,265)="7^0^790.1^^e^^^^1"
^DIST(.403,67,"AY",1,265,1,"D")="9^24^18^.12"
^DIST(.403,67,"AY",1,265,1,"N")="0^3^3^0^3"
^DIST(.403,67,"AY",1,265,3,"D")="10^24^25^.07"
^DIST(.403,67,"AY",1,265,3,"N")="1^4^4^1^4"
^DIST(.403,67,"AY",1,265,4,"D")="11^24^30^.11"
^DIST(.403,67,"AY",1,265,4,"N")="3^5^5^3^5"
^DIST(.403,67,"AY",1,265,5,"D")="12^24^30^.1"
^DIST(.403,67,"AY",1,265,5,"N")="4^0^0^4^0"
^DIST(.403,67,"AY",1,267)="0^0^790.1^^d^^^^0"
^DIST(.403,67,"AY",1,267,2,"D")="^^^^2^0^^0"
^DIST(.403,67,"AY",1,267,3,"D")="^^^^2^52^^0"
^DIST(.403,67,"AY",1,267,4,"D")="^^^^3^0^^0"
^DIST(.403,67,"AY",1,267,5,"D")="^^^^3^49^^0"
^DIST(.403,67,"AY",1,267,6,"D")="^^^^4^0^^0"
^DIST(.403,67,"AY",1,267,7,"D")="^^^^4^54^^0"
^DIST(.403,67,"AY",1,267,8,"D")="^^^^5^0^^0"
^DIST(.403,67,"AY",1,267,9,"D")="^^^^6^0^^0"
^DIST(.403,67,"AY",1,267,10,"D")="^^^^5^60^^0"
^DIST(.403,67,"AY",1,267,11,"D")="^^^^7^51^^0"
^DIST(.403,67,"AY",1,267,12,"D")="^^^^6^52^^0"
^DIST(.403,67,"AY",1,267,14,"D")="^^^^7^0^^0"
^DIST(.403,67,"AY",1,"FIRST")="1,265"
^DIST(.403,67,"AY","CAP","CLINICIAN/PROVIDER",1,1,265,3)=""
^DIST(.403,67,"AY","CAP","DATE OF PROCEDURE",1,1,265,1)=""
^DIST(.403,67,"AY","CAP","HEALTH CARE FACILITY",1,1,265,5)=""
^DIST(.403,67,"AY","CAP","WARD/CLINIC/LOCATION",1,1,265,4)=""
^DIST(.403,67,"AY","F790.1",.07,"L",1,265,3)=""
^DIST(.403,67,"AY","F790.1",.1,"L",1,265,5)=""
^DIST(.403,67,"AY","F790.1",.11,"L",1,265,4)=""
^DIST(.403,67,"AY","F790.1",.12,"L",1,265,1)=""
^DIST(.403,67,"AY","X",1,0,23)="* * *  EDIT A PROCEDURE  * * *"
^DIST(.403,67,"AY","X",1,8,0)="--------------------------------------------------------------------------------"
^DIST(.403,67,"AY","X",1,9,5)="Date of Procedure:"
^DIST(.403,67,"AY","X",1,9,5,"A")="1;17;U"
^DIST(.403,67,"AY","X",1,10,4)="Clinician/Provider:"
^DIST(.403,67,"AY","X",1,11,2)="Ward/Clinic/Location:"
^DIST(.403,67,"AY","X",1,12,2)="Health Care Facility:"
^DIST(.403,67,"AY","X",1,12,2,"A")="1;20;U"
^DIST(.403,68,0)="XDR RESFILE FORM^^^^2951117.1044^^^15.1^0^0^1"
^DIST(.403,68,15,0)="^^2^2^2970805^"
^DIST(.403,68,15,1,0)="This form is used to edited site parameters.  This form is used in the"
^DIST(.403,68,15,2,0)="option, Edit Duplicate Resolution File, which is locked by the XDRMGR key."
^DIST(.403,68,40,0)="^.4031I^3^3"
^DIST(.403,68,40,1,0)="1^268^1,1^2^"
^DIST(.403,68,40,1,1)="Page 1"
^DIST(.403,68,40,1,15,0)="^^3^3^2960306^"
^DIST(.403,68,40,1,15,1,0)="This is 1 of 2 pages for this form.  This page contains two sub-pages"
^DIST(.403,68,40,1,15,2,0)="that are linked to it and two blocks, a header block and a data block."
^DIST(.403,68,40,1,15,3,0)="Entries are made into one file, 15.1."
^DIST(.403,68,40,1,40,0)="^.4032IP^273^3"
^DIST(.403,68,40,1,40,268,0)="268^1^1,1^d"
^DIST(.403,68,40,1,40,269,0)="269^2^2,1^e"
^DIST(.403,68,40,1,40,273,0)="273^3^12,1^e"
^DIST(.403,68,40,1,40,273,2)="4"
^DIST(.403,68,40,1,40,"AC",1,268)=""
^DIST(.403,68,40,1,40,"AC",2,269)=""
^DIST(.403,68,40,1,40,"AC",3,273)=""
^DIST(.403,68,40,1,40,"B",268,268)=""
^DIST(.403,68,40,1,40,"B",269,269)=""
^DIST(.403,68,40,1,40,"B",273,273)=""
^DIST(.403,68,40,2,0)="1.1^^5,15^^^1^15,75"
^DIST(.403,68,40,2,1)="Page 1.1"
^DIST(.403,68,40,2,15,0)="^^1^1^2960305^"
^DIST(.403,68,40,2,15,1,0)="This is a pop-up page for the Duplicate Test multiple (page 1.1)."
^DIST(.403,68,40,2,40,0)="^.4032IP^270^1"
^DIST(.403,68,40,2,40,270,0)="270^1^1,1^e"
^DIST(.403,68,40,2,40,"AC",1,270)=""
^DIST(.403,68,40,2,40,"B",270,270)=""
^DIST(.403,68,40,3,0)="1.2^^5,10^^^1^17,78"
^DIST(.403,68,40,3,1)="Page 1.2"
^DIST(.403,68,40,3,15,0)="^^2^2^2960920^"
^DIST(.403,68,40,3,15,1,0)=" "
^DIST(.403,68,40,3,15,2,0)="This page is used for the multiple field, ancillary service."
^DIST(.403,68,40,3,40,0)="^.4032IP^272^2"
^DIST(.403,68,40,3,40,271,0)="271^1^1,1^e"
^DIST(.403,68,40,3,40,272,0)="272^2^9,30^e"
^DIST(.403,68,40,3,40,272,2)="4"
^DIST(.403,68,40,3,40,"AC",1,271)=""
^DIST(.403,68,40,3,40,"AC",2,272)=""
^DIST(.403,68,40,3,40,"B",271,271)=""
^DIST(.403,68,40,3,40,"B",272,272)=""
^DIST(.403,68,40,"B",1,1)=""
^DIST(.403,68,40,"B",1.1,2)=""
^DIST(.403,68,40,"B",1.2,3)=""
^DIST(.403,68,40,"C","PAGE 1",1)=""
^DIST(.403,68,40,"C","PAGE 1.1",2)=""
^DIST(.403,68,40,"C","PAGE 1.2",3)=""
^DIST(.403,68,"AY",1,0,0,"N")="1,273^20,269^20,269^1,273^20,269"
^DIST(.403,68,"AY",1,268)="0^0^15.1^^d^^^^0"
^DIST(.403,68,"AY",1,268,3,"D")="1^20^20^.01"
^DIST(.403,68,"AY",1,269)="1^0^15.1^^e^^^^20"
^DIST(.403,68,"AY",1,269,2,"D")="5^36^30^.11"
^DIST(.403,68,"AY",1,269,2,"N")="20^3^3^20^3"
^DIST(.403,68,"AY",1,269,3,"D")="6^36^3^.15"
^DIST(.403,68,"AY",1,269,3,"N")="2^13^13^2^13"
^DIST(.403,68,"AY",1,269,13,"D")="7^36^2^.13"
^DIST(.403,68,"AY",1,269,13,"N")="3^14^14^3^14"
^DIST(.403,68,"AY",1,269,14,"D")="8^36^2^.14"
^DIST(.403,68,"AY",1,269,14,"N")="13^15^15^13^15"
^DIST(.403,68,"AY",1,269,15,"D")="9^36^1^1.01"
^DIST(.403,68,"AY",1,269,15,"N")="14^1,273^1,273^14^1,273"
^DIST(.403,68,"AY",1,269,20,"D")="4^36^30^.29"
^DIST(.403,68,"AY",1,269,20,"N")="0^2^2^0^2"
^DIST(.403,68,"AY",1,273)="11^0^15.12^^e^^4^^1^1"
^DIST(.403,68,"AY",1,273,1,"D")="13^25^25^.01"
^DIST(.403,68,"AY",1,273,1,"N")="15,269^0^0^15,269^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,68,"AY",1,"FIRST")="20,269"
^DIST(.403,68,"AY",2,0,0,"N")="8,270^2,270^2,270^8,270^2,270"
^DIST(.403,68,"AY",2,270)="4^14^15.111^^e^^^^2"
^DIST(.403,68,"AY",2,270,2,"D")="7^43^25^.01"
^DIST(.403,68,"AY",2,270,2,"N")="0^4^4^0^4"
^DIST(.403,68,"AY",2,270,4,"D")="8^43^17^.03"
^DIST(.403,68,"AY",2,270,4,"N")="2^5^5^2^5"
^DIST(.403,68,"AY",2,270,5,"D")="9^43^26^.04"
^DIST(.403,68,"AY",2,270,5,"N")="4^6^6^4^6"
^DIST(.403,68,"AY",2,270,6,"D")="10^43^18^.05"
^DIST(.403,68,"AY",2,270,6,"N")="5^7^7^5^7"
^DIST(.403,68,"AY",2,270,7,"D")="11^43^5^.06"
^DIST(.403,68,"AY",2,270,7,"N")="6^8^8^6^8"
^DIST(.403,68,"AY",2,270,8,"D")="12^43^4^.07"
^DIST(.403,68,"AY",2,270,8,"N")="7^0^0^7^0"
^DIST(.403,68,"AY",2,"FIRST")="2,270"
^DIST(.403,68,"AY",3,0,0,"N")="1,272^2,271^2,271^1,272^2,271"
^DIST(.403,68,"AY",3,271)="4^9^15.12^^e^^^^2"
^DIST(.403,68,"AY",3,271,2,"D")="7^39^25^.01"
^DIST(.403,68,"AY",3,271,2,"N")="0^4^4^0^4"
^DIST(.403,68,"AY",3,271,3,"D")="11^39^25^.02"
^DIST(.403,68,"AY",3,271,3,"N")="7^1,272^1,272^7^1,272"
^DIST(.403,68,"AY",3,271,4,"D")="8^39^12^.03"
^DIST(.403,68,"AY",3,271,4,"N")="2^6^6^2^6"
^DIST(.403,68,"AY",3,271,6,"D")="9^39^15^2.01"
^DIST(.403,68,"AY",3,271,6,"N")="4^7^7^4^7"
^DIST(.403,68,"AY",3,271,7,"D")="10^39^35^2.02"
^DIST(.403,68,"AY",3,271,7,"N")="6^3^3^6^3"
^DIST(.403,68,"AY",3,272)="12^38^15.121^^e^^4^^1^1"
^DIST(.403,68,"AY",3,272,1,"D")="12^39^29^.01"
^DIST(.403,68,"AY",3,272,1,"N")="3,271^0^0^3,271^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,68,"AY",3,"FIRST")="2,271"
^DIST(.403,68,"AY","CAP","ANCILLARY SERVICE",3,3,271,2)=""
^DIST(.403,68,"AY","CAP","DAYS BEFORE FINAL VERIFY",1,1,269,13)=""
^DIST(.403,68,"AY","CAP","DAYS BETWEEN VERIFY AND MERGE",1,1,269,14)=""
^DIST(.403,68,"AY","CAP","DISPLAY NAMES FOR SUBFILES",3,3,271,7)=""
^DIST(.403,68,"AY","CAP","DUPLICATE MANAGER MAIL GROUP",1,1,269,2)=""
^DIST(.403,68,"AY","CAP","DUPLICATE TEST",2,2,270,2)=""
^DIST(.403,68,"AY","CAP","DUPLICATE TEST ROUTINE",2,2,270,4)=""
^DIST(.403,68,"AY","CAP","FIELD TO BE CHECKED",2,2,270,6)=""
^DIST(.403,68,"AY","CAP","FILE FOR INFORMATION",2,2,270,5)=""
^DIST(.403,68,"AY","CAP","MAIL GROUP NAME",3,3,271,3)=""
^DIST(.403,68,"AY","CAP","MERGE MAIL GROUP",1,1,269,20)=""
^DIST(.403,68,"AY","CAP","NUMBER OF THREADS",1,1,269,15)=""
^DIST(.403,68,"AY","CAP","POTENTIAL DUPLICATE THRESHOLD%",1,1,269,3)=""
^DIST(.403,68,"AY","CAP","PRIMARY FILE NUMBER",3,3,271,4)=""
^DIST(.403,68,"AY","CAP","SUBFILES (FIELD NUMBERS)",3,3,271,6)=""
^DIST(.403,68,"AY","CAP","SUCCESSFUL MATCH WEIGHT",2,2,270,7)=""
^DIST(.403,68,"AY","CAP","UNSUCCESSFUL MATCH WEIGHT",2,2,270,8)=""
^DIST(.403,68,"AY","F15.1",.01,"L",1,268,3)=""
^DIST(.403,68,"AY","F15.1",.11,"L",1,269,2)=""
^DIST(.403,68,"AY","F15.1",.13,"L",1,269,13)=""
^DIST(.403,68,"AY","F15.1",.14,"L",1,269,14)=""
^DIST(.403,68,"AY","F15.1",.15,"L",1,269,3)=""
^DIST(.403,68,"AY","F15.1",.29,"L",1,269,20)=""
^DIST(.403,68,"AY","F15.1",1.01,"L",1,269,15)=""
^DIST(.403,68,"AY","F15.111",.01,"L",2,270,2)=""
^DIST(.403,68,"AY","F15.111",.03,"L",2,270,4)=""
^DIST(.403,68,"AY","F15.111",.04,"L",2,270,5)=""
^DIST(.403,68,"AY","F15.111",.05,"L",2,270,6)=""
^DIST(.403,68,"AY","F15.111",.06,"L",2,270,7)=""
^DIST(.403,68,"AY","F15.111",.07,"L",2,270,8)=""
^DIST(.403,68,"AY","F15.12",.01,"L",1,273,1)=""
^DIST(.403,68,"AY","F15.12",.01,"L",3,271,2)=""
^DIST(.403,68,"AY","F15.12",.02,"L",3,271,3)=""
^DIST(.403,68,"AY","F15.12",.03,"L",3,271,4)=""
^DIST(.403,68,"AY","F15.12",2.01,"L",3,271,6)=""
^DIST(.403,68,"AY","F15.12",2.02,"L",3,271,7)=""
^DIST(.403,68,"AY","F15.121",.01,"L",3,272,1)=""
^DIST(.403,68,"AY","X",1,0,27)="DUPLICATE RESOLUTION FILE"
^DIST(.403,68,"AY","X",1,1,0)="FILE TO BE CHECKED:"
^DIST(.403,68,"AY","X",1,1,0,"A")="1;18;U"
^DIST(.403,68,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,68,"AY","X",1,4,18)="MERGE MAIL GROUP:"
^DIST(.403,68,"AY","X",1,5,6)="DUPLICATE MANAGER MAIL GROUP:"
^DIST(.403,68,"AY","X",1,6,4)="POTENTIAL DUPLICATE THRESHOLD%:"
^DIST(.403,68,"AY","X",1,6,4,"A")="1;30;U"
^DIST(.403,68,"AY","X",1,7,10)="DAYS BEFORE FINAL VERIFY:"
^DIST(.403,68,"AY","X",1,8,5)="DAYS BETWEEN VERIFY AND MERGE:"
^DIST(.403,68,"AY","X",1,9,17)="NUMBER OF THREADS:"
^DIST(.403,68,"AY","X",1,11,25)="ANCILLARY SERVICE"
^DIST(.403,68,"AY","X",1,12,25)="-----------------"
^DIST(.403,68,"AY","X",2,5,16)="DUPLICATE RESOLUTION TESTS"
^DIST(.403,68,"AY","X",2,7,27)="DUPLICATE TEST:"
^DIST(.403,68,"AY","X",2,8,19)="DUPLICATE TEST ROUTINE:"
^DIST(.403,68,"AY","X",2,8,19,"A")="1;22;U"
^DIST(.403,68,"AY","X",2,9,21)="FILE FOR INFORMATION:"
^DIST(.403,68,"AY","X",2,10,22)="FIELD TO BE CHECKED:"
^DIST(.403,68,"AY","X",2,10,22,"A")="1;19;U"
^DIST(.403,68,"AY","X",2,11,18)="SUCCESSFUL MATCH WEIGHT:"
^DIST(.403,68,"AY","X",2,11,18,"A")="1;23;U"
^DIST(.403,68,"AY","X",2,12,16)="UNSUCCESSFUL MATCH WEIGHT:"
^DIST(.403,68,"AY","X",2,12,16,"A")="1;25;U"
^DIST(.403,68,"AY","X",3,5,11)="ANCILLARY SERVICE INFORMATION"
^DIST(.403,68,"AY","X",3,7,20)="ANCILLARY SERVICE:"
^DIST(.403,68,"AY","X",3,8,18)="PRIMARY FILE NUMBER:"
^DIST(.403,68,"AY","X",3,8,18,"A")="1;19;U"
^DIST(.403,68,"AY","X",3,9,13)="SUBFILES (FIELD NUMBERS):"
^DIST(.403,68,"AY","X",3,10,11)="DISPLAY NAMES FOR SUBFILES:"
^DIST(.403,68,"AY","X",3,11,22)="MAIL GROUP NAME:"
^DIST(.403,68,"AY","X",3,12,15)="INDIVIDUALS FOR ALERTS:"
^DIST(.403,69,0)="HL SITE PARAMETERS^@^@^^2980430.1006^2990707.1554^^869.3^0^0^1"
^DIST(.403,69,40,0)="^.4031I^3^3"
^DIST(.403,69,40,1,0)="1^^1,1^2"
^DIST(.403,69,40,1,1)="Page 1"
^DIST(.403,69,40,1,40,0)="^.4032IP^328^3"
^DIST(.403,69,40,1,40,277,0)="277^1^1,1^e"
^DIST(.403,69,40,1,40,278,0)="278^2^2,1^e"
^DIST(.403,69,40,1,40,328,0)="328^3^13,1^e"
^DIST(.403,69,40,1,40,328,2)="4"
^DIST(.403,69,40,1,40,"AC",1,277)=""
^DIST(.403,69,40,1,40,"AC",2,278)=""
^DIST(.403,69,40,1,40,"AC",3,328)=""
^DIST(.403,69,40,1,40,"B",277,277)=""
^DIST(.403,69,40,1,40,"B",278,278)=""
^DIST(.403,69,40,1,40,"B",328,328)=""
^DIST(.403,69,40,2,0)="1.1^^4,5^^^1^14,75"
^DIST(.403,69,40,2,1)="Page 1.1^"
^DIST(.403,69,40,2,40,0)="^.4032IP^327^2"
^DIST(.403,69,40,2,40,326,0)="326^1^1,2^e"
^DIST(.403,69,40,2,40,327,0)="327^2^5,2^e"
^DIST(.403,69,40,2,40,327,2)="4"
^DIST(.403,69,40,2,40,"AC",1,326)=""
^DIST(.403,69,40,2,40,"AC",2,327)=""
^DIST(.403,69,40,2,40,"B",326,326)=""
^DIST(.403,69,40,2,40,"B",327,327)=""
^DIST(.403,69,40,3,0)="2^^1,1^1^1"
^DIST(.403,69,40,3,1)="Page 2"
^DIST(.403,69,40,3,40,0)="^.4032IP^329^1"
^DIST(.403,69,40,3,40,329,0)="329^1^1,1^e"
^DIST(.403,69,40,3,40,"AC",1,329)=""
^DIST(.403,69,40,3,40,"B",329,329)=""
^DIST(.403,69,40,"B",1,1)=""
^DIST(.403,69,40,"B",1.1,2)=""
^DIST(.403,69,40,"B",2,3)=""
^DIST(.403,69,40,"C","PAGE 1",1)=""
^DIST(.403,69,40,"C","PAGE 1.1",2)=""
^DIST(.403,69,40,"C","PAGE 2",3)=""
^DIST(.403,69,"AY",1,0,0,"N")="1,328^1,278^1,278^1,328^1,278"
^DIST(.403,69,"AY",1,277)="0^0^869.3^^e^^^^0"
^DIST(.403,69,"AY",1,278)="1^0^869.3^^e^^^^1"
^DIST(.403,69,"AY",1,278,1,"D")="3^38^30^.02"
^DIST(.403,69,"AY",1,278,1,"N")="0^2^2^0^2"
^DIST(.403,69,"AY",1,278,2,"D")="4^38^30^.04"
^DIST(.403,69,"AY",1,278,2,"N")="1^3^3^1^3"
^DIST(.403,69,"AY",1,278,3,"D")="5^38^10^.03"
^DIST(.403,69,"AY",1,278,3,"N")="2^6^6^2^6"
^DIST(.403,69,"AY",1,278,6,"D")="7^38^30^.05"
^DIST(.403,69,"AY",1,278,6,"N")="3^1,328^1,328^3^1,328"
^DIST(.403,69,"AY",1,328)="12^0^869.31^^e^^4^^1^1"
^DIST(.403,69,"AY",1,328,1,"D")="12^0^20^.01"
^DIST(.403,69,"AY",1,328,1,"N")="6,278^0^0^6,278^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,69,"AY",1,"FIRST")="1,278"
^DIST(.403,69,"AY",2,0,0,"N")="1,327^2,326^2,326^2,327^2,326"
^DIST(.403,69,"AY",2,326)="3^5^869.31^^e^^^^2"
^DIST(.403,69,"AY",2,326,2,"D")="4^31^20^.01"
^DIST(.403,69,"AY",2,326,2,"N")="0^1,327^1,327^0^1,327"
^DIST(.403,69,"AY",2,327)="7^5^869.311^^e^^4^^1^1"
^DIST(.403,69,"AY",2,327,1,"D")="8^6^10^.01"
^DIST(.403,69,"AY",2,327,1,"N")="2,326^0^0^2,326^0^1,-1^1,+1^2^2,-1^2"
^DIST(.403,69,"AY",2,327,2,"D")="8^29^4^1"
^DIST(.403,69,"AY",2,327,2,"N")="2,326^0^0^1^0^2,-1^2,+1^1,+1^1^1,+1"
^DIST(.403,69,"AY",2,"FIRST")="2,326"
^DIST(.403,69,"AY",3,0,0,"N")="10,329^5,329^5,329^10,329^5,329"
^DIST(.403,69,"AY",3,329)="0^0^869.3^^e^^^^5"
^DIST(.403,69,"AY",3,329,5,"D")="4^38^2^11"
^DIST(.403,69,"AY",3,329,5,"N")="0^6^6^0^6"
^DIST(.403,69,"AY",3,329,6,"D")="5^38^2^12"
^DIST(.403,69,"AY",3,329,6,"N")="5^7^7^5^7"
^DIST(.403,69,"AY",3,329,7,"D")="8^38^3^41"
^DIST(.403,69,"AY",3,329,7,"N")="6^8^8^6^8"
^DIST(.403,69,"AY",3,329,8,"D")="9^38^3^43"
^DIST(.403,69,"AY",3,329,8,"N")="7^9^9^7^9"
^DIST(.403,69,"AY",3,329,9,"D")="10^38^3^42"
^DIST(.403,69,"AY",3,329,9,"N")="8^11^11^8^11"
^DIST(.403,69,"AY",3,329,10,"D")="14^38^6^51"
^DIST(.403,69,"AY",3,329,10,"N")="11^0^0^11^0"
^DIST(.403,69,"AY",3,329,11,"D")="11^38^3^44"
^DIST(.403,69,"AY",3,329,11,"N")="9^10^10^9^10"
^DIST(.403,69,"AY",3,"FIRST")="5,329"
^DIST(.403,69,"AY","CAP","CURRENT DOMAIN","1^3",1,278,1)=""
^DIST(.403,69,"AY","CAP","CURRENT INSTITUTION","1^3",1,278,2)=""
^DIST(.403,69,"AY","CAP","DAYS BEFORE PURGING ALL MESSAGES","1^3",3,329,8)=""
^DIST(.403,69,"AY","CAP","DAYS TO KEEP AWAITING ACK MESSAGES","1^3",3,329,9)=""
^DIST(.403,69,"AY","CAP","DAYS TO KEEP COMPLETED MESSAGES","1^3",3,329,7)=""
^DIST(.403,69,"AY","CAP","DAYS TO KEEP ERROR STATUS MESSAGES","1^3",3,329,11)=""
^DIST(.403,69,"AY","CAP","DEFAULT NUMBER OF INCOMING FILERS","1^3",3,329,5)=""
^DIST(.403,69,"AY","CAP","DEFAULT NUMBER OF OUTGOING FILERS","1^3",3,329,6)=""
^DIST(.403,69,"AY","CAP","DEFAULT RETENTION TIME","1^3",3,329,10)=""
^DIST(.403,69,"AY","CAP","IS THIS A PRODUCTION OR TEST ACCOUNT?","1^3",1,278,3)=""
^DIST(.403,69,"AY","CAP","MAIL GROUP FOR ALERTS","1^3",1,278,6)=""
^DIST(.403,69,"AY","CAP","NAME",2,2,326,2)=""
^DIST(.403,69,"AY","F869.3",.02,"L",1,278,1)=""
^DIST(.403,69,"AY","F869.3",.03,"L",1,278,3)=""
^DIST(.403,69,"AY","F869.3",.04,"L",1,278,2)=""
^DIST(.403,69,"AY","F869.3",.05,"L",1,278,6)=""
^DIST(.403,69,"AY","F869.3",11,"L",3,329,5)=""
^DIST(.403,69,"AY","F869.3",12,"L",3,329,6)=""
^DIST(.403,69,"AY","F869.3",41,"L",3,329,7)=""
^DIST(.403,69,"AY","F869.3",42,"L",3,329,9)=""
^DIST(.403,69,"AY","F869.3",43,"L",3,329,8)=""
^DIST(.403,69,"AY","F869.3",44,"L",3,329,11)=""
^DIST(.403,69,"AY","F869.3",51,"L",3,329,10)=""
^DIST(.403,69,"AY","F869.31",.01,"L",1,328,1)=""
^DIST(.403,69,"AY","F869.31",.01,"L",2,326,2)=""
^DIST(.403,69,"AY","F869.311",.01,"L",2,327,1)=""
^DIST(.403,69,"AY","F869.311",1,"L",2,327,2)=""
^DIST(.403,69,"AY","X",1,0,25)="Edit HL7 Site Parameters                  Page 1 of 2"
^DIST(.403,69,"AY","X",1,1,0)="------------------------------------------------------------------------------"
^DIST(.403,69,"AY","X",1,3,22)="Current Domain:"
^DIST(.403,69,"AY","X",1,3,22,"A")="1;14;U"
^DIST(.403,69,"AY","X",1,4,17)="Current Institution:"
^DIST(.403,69,"AY","X",1,4,17,"A")="1;19;U"
^DIST(.403,69,"AY","X",1,5,0)="Is this a Production or Test Account?"
^DIST(.403,69,"AY","X",1,5,0,"A")="1;37;U"
^DIST(.403,69,"AY","X",1,7,15)="Mail Group for Alerts:"
^DIST(.403,69,"AY","X",1,10,0)="System Link Monitor VIEWS"
^DIST(.403,69,"AY","X",1,11,0)="-------------------------"
^DIST(.403,69,"AY","X",1,16,12)="[Goto next page to edit Background Process Parameters]"
^DIST(.403,69,"AY","X",2,3,26)="System Link Monitor View"
^DIST(.403,69,"AY","X",2,4,25)="NAME:"
^DIST(.403,69,"AY","X",2,6,6)="LOGICAL LINK         DISPLAY ORDER"
^DIST(.403,69,"AY","X",2,7,6)="------------         -------------"
^DIST(.403,69,"AY","X",3,0,25)="Edit HL7 Site Parameters                  Page 2 of 2"
^DIST(.403,69,"AY","X",3,1,22)="Background Processes Parameters"
^DIST(.403,69,"AY","X",3,2,0)="------------------------------------------------------------------------------"
^DIST(.403,69,"AY","X",3,4,3)="Default Number of Incoming Filers:"
^DIST(.403,69,"AY","X",3,5,3)="Default Number of Outgoing Filers:"
^DIST(.403,69,"AY","X",3,8,5)="Days to Keep Completed Messages:"
^DIST(.403,69,"AY","X",3,9,4)="Days Before Purging All Messages:"
^DIST(.403,69,"AY","X",3,10,2)="Days to Keep Awaiting ACK Messages:"
^DIST(.403,69,"AY","X",3,11,2)="Days to Keep Error Status Messages:"
^DIST(.403,69,"AY","X",3,14,14)="Default Retention Time:"
^DIST(.403,70,0)="PSB PRN EFFECTIVENESS^@^@^^2990322.143^^^53.79^0^0^1"
^DIST(.403,70,12)="D REFRESH^DDSUTL"
^DIST(.403,70,40,0)="^.4031I^1^1"
^DIST(.403,70,40,1,0)="1^^1,1"
^DIST(.403,70,40,1,1)="Page 1"
^DIST(.403,70,40,1,40,0)="^.4032IP^294^1"
^DIST(.403,70,40,1,40,294,0)="294^1^1,1^e"
^DIST(.403,70,40,1,40,"AC",1,294)=""
^DIST(.403,70,40,1,40,"B",294,294)=""
^DIST(.403,70,40,"B",1,1)=""
^DIST(.403,70,40,"C","PAGE 1",1)=""
^DIST(.403,70,"AY",1,0,0,"N")="7,294^1,294^1,294^7,294^1,294"
^DIST(.403,70,"AY",1,294)="0^0^53.79^^e^^^^1"
^DIST(.403,70,"AY",1,294,1,"D")="3^9^30^.01"
^DIST(.403,70,"AY",1,294,1,"N")="0^2^2^0^2"
^DIST(.403,70,"AY",1,294,2,"D")="4^10^20^.02"
^DIST(.403,70,"AY",1,294,2,"N")="1^10^3^1^3"
^DIST(.403,70,"AY",1,294,3,"D")="4^42^30^.03"
^DIST(.403,70,"AY",1,294,3,"N")="1^10^10^2^4"
^DIST(.403,70,"AY",1,294,4,"D")="7^26^20^.06"
^DIST(.403,70,"AY",1,294,4,"N")="10^5^5^10^5"
^DIST(.403,70,"AY",1,294,5,"D")="8^26^35^.07"
^DIST(.403,70,"AY",1,294,5,"N")="4^6^6^4^6"
^DIST(.403,70,"AY",1,294,6,"D")="11^1^78^.21"
^DIST(.403,70,"AY",1,294,6,"N")="5^7^7^5^7"
^DIST(.403,70,"AY",1,294,7,"D")="14^1^78^.22"
^DIST(.403,70,"AY",1,294,7,"N")="6^0^0^6^10"
^DIST(.403,70,"AY",1,294,9,"D")="^^^^1^0^^0"
^DIST(.403,70,"AY",1,294,10,"D")="6^26^40^.08"
^DIST(.403,70,"AY",1,294,10,"N")="2^4^4^3^0"
^DIST(.403,70,"AY",1,"FIRST")="1,294"
^DIST(.403,70,"AY","CAP","ADMINISTRATION BY",1,1,294,5)=""
^DIST(.403,70,"AY","CAP","ADMINISTRATION DATE/TIME",1,1,294,4)=""
^DIST(.403,70,"AY","CAP","DIVISION",1,1,294,3)=""
^DIST(.403,70,"AY","CAP","LOCATION",1,1,294,2)=""
^DIST(.403,70,"AY","CAP","MEDICATION",1,1,294,10)=""
^DIST(.403,70,"AY","CAP","PATIENT",1,1,294,1)=""
^DIST(.403,70,"AY","CAP","PRN EFFECTIVENESS",1,1,294,7)=""
^DIST(.403,70,"AY","CAP","PRN REASON",1,1,294,6)=""
^DIST(.403,70,"AY","F53.79",.01,"L",1,294,1)=""
^DIST(.403,70,"AY","F53.79",.02,"L",1,294,2)=""
^DIST(.403,70,"AY","F53.79",.03,"L",1,294,3)=""
^DIST(.403,70,"AY","F53.79",.06,"L",1,294,4)=""
^DIST(.403,70,"AY","F53.79",.07,"L",1,294,5)=""
^DIST(.403,70,"AY","F53.79",.08,"L",1,294,10)=""
^DIST(.403,70,"AY","F53.79",.21,"L",1,294,6)=""
^DIST(.403,70,"AY","F53.79",.22,"L",1,294,7)=""
^DIST(.403,70,"AY","X",1,0,0)="PRN Effectiveness Entry"
^DIST(.403,70,"AY","X",1,3,0)="Patient:"
^DIST(.403,70,"AY","X",1,3,0,"A")="1;7;U"
^DIST(.403,70,"AY","X",1,4,0)="Location:                       Division:"
^DIST(.403,70,"AY","X",1,4,0,"A")="33;40;U"
^DIST(.403,70,"AY","X",1,6,14)="Medication:"
^DIST(.403,70,"AY","X",1,6,14,"A")="1;10;U"
^DIST(.403,70,"AY","X",1,7,0)="Administration Date/Time:"
^DIST(.403,70,"AY","X",1,7,0,"A")="1;24;U"
^DIST(.403,70,"AY","X",1,8,7)="Administration By:"
^DIST(.403,70,"AY","X",1,10,0)="PRN Reason:"
^DIST(.403,70,"AY","X",1,13,0)="PRN Effectiveness:"
^DIST(.403,71,0)="PSB MED LOG EDIT^@^@^^2990323.1252^^^53.79^0^0^1"
^DIST(.403,71,40,0)="^.4031I^2^2"
^DIST(.403,71,40,1,0)="1^^1,1"
^DIST(.403,71,40,1,1)="Page 1"
^DIST(.403,71,40,1,40,0)="^.4032IP^295^1"
^DIST(.403,71,40,1,40,295,0)="295^1^1,1^e"
^DIST(.403,71,40,1,40,"AC",1,295)=""
^DIST(.403,71,40,1,40,"B",295,295)=""
^DIST(.403,71,40,2,0)="2^^5,5^^^1^15,75"
^DIST(.403,71,40,2,1)="Page 2"
^DIST(.403,71,40,2,40,0)="^.4032IP^297^2"
^DIST(.403,71,40,2,40,296,0)="296^1^1,1^d"
^DIST(.403,71,40,2,40,297,0)="297^2^4,3^e"
^DIST(.403,71,40,2,40,297,2)="3^B^f^0"
^DIST(.403,71,40,2,40,"AC",1,296)=""
^DIST(.403,71,40,2,40,"AC",2,297)=""
^DIST(.403,71,40,2,40,"B",296,296)=""
^DIST(.403,71,40,2,40,"B",297,297)=""
^DIST(.403,71,40,"B",1,1)=""
^DIST(.403,71,40,"B",2,2)=""
^DIST(.403,71,40,"C","PAGE 1",1)=""
^DIST(.403,71,40,"C","PAGE 2",2)=""
^DIST(.403,71,"AY",1,0,0,"N")="9,295^1,295^1,295^9,295^1,295"
^DIST(.403,71,"AY",1,295)="0^0^53.79^^e^^^^1"
^DIST(.403,71,"AY",1,295,1,"D")="3^15^30^.01"
^DIST(.403,71,"AY",1,295,1,"N")="0^10^10^0^10"
^DIST(.403,71,"AY",1,295,3,"D")="^^^^1^0^^0"
^DIST(.403,71,"AY",1,295,4,"D")="^^^^3^46^^0"
^DIST(.403,71,"AY",1,295,5,"D")="6^17^7^.09"
^DIST(.403,71,"AY",1,295,5,"N")="10^12^6^10^6"
^DIST(.403,71,"AY",1,295,6,"D")="6^43^20^.06"
^DIST(.403,71,"AY",1,295,6,"N")="10^12^12^5^12"
^DIST(.403,71,"AY",1,295,7,"D")="9^21^58^.21"
^DIST(.403,71,"AY",1,295,7,"N")="12^8^8^12^8"
^DIST(.403,71,"AY",1,295,8,"D")="10^21^58^.22"
^DIST(.403,71,"AY",1,295,8,"N")="7^13^13^7^13"
^DIST(.403,71,"AY",1,295,9,"D")="15^1^78^9,295"
^DIST(.403,71,"AY",1,295,9,"N")="13^0^0^13^0"
^DIST(.403,71,"AY",1,295,10,"D")="4^15^40^.08"
^DIST(.403,71,"AY",1,295,10,"N")="1^5^5^1^5"
^DIST(.403,71,"AY",1,295,12,"D")="7^17^30^.16"
^DIST(.403,71,"AY",1,295,12,"N")="5^7^7^6^7"
^DIST(.403,71,"AY",1,295,13,"D")="12^21^1^13,295"
^DIST(.403,71,"AY",1,295,13,"N")="8^9^9^8^9"
^DIST(.403,71,"AY",1,"FIRST")="1,295"
^DIST(.403,71,"AY",2,0,0,"N")="1,297^1,297^1,297^4,297^1,297"
^DIST(.403,71,"AY",2,296)="4^4^53.79^^d^^^^0"
^DIST(.403,71,"AY",2,297)="7^6^53.795^^e^^3^^1^1"
^DIST(.403,71,"AY",2,297,1,"D")="7^6^30^.01"
^DIST(.403,71,"AY",2,297,1,"N")="0^0^0^0^0^1,-1^1,+1^2^4,-1^2"
^DIST(.403,71,"AY",2,297,2,"D")="7^38^6^.02^^^^^^1"
^DIST(.403,71,"AY",2,297,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,71,"AY",2,297,3,"D")="7^46^6^.03^^^^^^1"
^DIST(.403,71,"AY",2,297,3,"N")="0^0^0^2^0^3,-1^3,+1^4^2^4"
^DIST(.403,71,"AY",2,297,4,"D")="7^54^10^.04"
^DIST(.403,71,"AY",2,297,4,"N")="0^0^0^3^0^4,-1^4,+1^1,+1^3^1,+1"
^DIST(.403,71,"AY",2,"FIRST")="1,297"
^DIST(.403,71,"AY","CAP","ADMIN DATE/TIME",1,1,295,6)=""
^DIST(.403,71,"AY","CAP","ADMIN STATUS",1,1,295,5)=""
^DIST(.403,71,"AY","CAP","COMMENT (REQUIRED)",1,1,295,9)=""
^DIST(.403,71,"AY","CAP","DISPENSE DRUGS...",1,1,295,13)=""
^DIST(.403,71,"AY","CAP","INJECTION SITE",1,1,295,12)=""
^DIST(.403,71,"AY","CAP","MEDICATION",1,1,295,10)=""
^DIST(.403,71,"AY","CAP","PRN EFFECTIVENESS",1,1,295,8)=""
^DIST(.403,71,"AY","CAP","PRN REASON",1,1,295,7)=""
^DIST(.403,71,"AY","F0","13,295","L",1,295,13)=""
^DIST(.403,71,"AY","F0","9,295","L",1,295,9)=""
^DIST(.403,71,"AY","F53.79",.01,"L",1,295,1)=""
^DIST(.403,71,"AY","F53.79",.06,"L",1,295,6)=""
^DIST(.403,71,"AY","F53.79",.08,"L",1,295,10)=""
^DIST(.403,71,"AY","F53.79",.09,"L",1,295,5)=""
^DIST(.403,71,"AY","F53.79",.16,"L",1,295,12)=""
^DIST(.403,71,"AY","F53.79",.21,"L",1,295,7)=""
^DIST(.403,71,"AY","F53.79",.22,"L",1,295,8)=""
^DIST(.403,71,"AY","F53.795",.01,"L",2,297,1)=""
^DIST(.403,71,"AY","F53.795",.02,"L",2,297,2)=""
^DIST(.403,71,"AY","F53.795",.03,"L",2,297,3)=""
^DIST(.403,71,"AY","F53.795",.04,"L",2,297,4)=""
^DIST(.403,71,"AY","X",1,0,0)="Medication Log Edit UD/PB"
^DIST(.403,71,"AY","X",1,3,1)="Patient:"
^DIST(.403,71,"AY","X",1,4,1)="Medication:"
^DIST(.403,71,"AY","X",1,4,1,"A")="1;10;U"
^DIST(.403,71,"AY","X",1,6,1)="Admin Status:            Admin Date/Time:"
^DIST(.403,71,"AY","X",1,6,1,"A")="1;12;U^26;40;U"
^DIST(.403,71,"AY","X",1,7,1)="Injection Site:"
^DIST(.403,71,"AY","X",1,9,1)="PRN Reason:"
^DIST(.403,71,"AY","X",1,10,1)="PRN Effectiveness:"
^DIST(.403,71,"AY","X",1,12,1)="Dispense Drugs..."
^DIST(.403,71,"AY","X",1,14,1)="Comment (Required):"
^DIST(.403,71,"AY","X",1,14,1,"A")="1;18;U"
^DIST(.403,71,"AY","X",2,4,5)=" Dispense Drugs "
^DIST(.403,71,"AY","X",2,5,39)="Units   Units"
^DIST(.403,71,"AY","X",2,6,6)="Drug Name                        Order   Given  Units"
^DIST(.403,72,0)="PSBO DL^^^^2990313.1144^^Due List^53.69^0^0^1"
^DIST(.403,72,11)="S PSBSAVE=0"
^DIST(.403,72,14)="S PSBSAVE=1"
^DIST(.403,72,20)="D VAL^PSBO("".16;.17;.19;.11;.12;.13;.15;.21;.22;.23;.24;.25;.26;.27;.06;.07"")"
^DIST(.403,72,40,0)="^.4031I^1^1"
^DIST(.403,72,40,1,0)="1^^1,1"
^DIST(.403,72,40,1,1)="Page 1"
^DIST(.403,72,40,1,40,0)="^.4032IP^322^5"
^DIST(.403,72,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,72,40,1,40,280,0)="280^4^10,1^e"
^DIST(.403,72,40,1,40,281,0)="281^5^15,1^e"
^DIST(.403,72,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,72,40,1,40,322,0)="322^2^3,1^e"
^DIST(.403,72,40,1,40,"AC",1,279)=""
^DIST(.403,72,40,1,40,"AC",2,322)=""
^DIST(.403,72,40,1,40,"AC",3,293)=""
^DIST(.403,72,40,1,40,"AC",4,280)=""
^DIST(.403,72,40,1,40,"AC",5,281)=""
^DIST(.403,72,40,1,40,"B",279,279)=""
^DIST(.403,72,40,1,40,"B",280,280)=""
^DIST(.403,72,40,1,40,"B",281,281)=""
^DIST(.403,72,40,1,40,"B",293,293)=""
^DIST(.403,72,40,1,40,"B",322,322)=""
^DIST(.403,72,40,"B",1,1)=""
^DIST(.403,72,40,"C","PAGE 1",1)=""
^DIST(.403,72,"AY",1,0,0,"N")="3,281^1,322^1,322^3,281^1,322"
^DIST(.403,72,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,72,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,72,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,72,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,72,"AY",1,280)="9^0^53.69^^e^^^^7"
^DIST(.403,72,"AY",1,280,7,"D")="9^32^3^.21"
^DIST(.403,72,"AY",1,280,7,"N")="3,293^8^13^4,293^8"
^DIST(.403,72,"AY",1,280,8,"D")="10^32^3^.22"
^DIST(.403,72,"AY",1,280,8,"N")="7^9^14^13^9"
^DIST(.403,72,"AY",1,280,9,"D")="11^32^3^.23"
^DIST(.403,72,"AY",1,280,9,"N")="8^10^10^14^10"
^DIST(.403,72,"AY",1,280,10,"D")="12^32^3^.24"
^DIST(.403,72,"AY",1,280,10,"N")="9^1,281^12^9^13"
^DIST(.403,72,"AY",1,280,12,"D")="12^63^3^.25"
^DIST(.403,72,"AY",1,280,12,"N")="9^1,281^1,281^10^1,281"
^DIST(.403,72,"AY",1,280,13,"D")="9^63^3^.26"
^DIST(.403,72,"AY",1,280,13,"N")="3,293^14^8^7^14"
^DIST(.403,72,"AY",1,280,14,"D")="10^63^3^.27"
^DIST(.403,72,"AY",1,280,14,"N")="13^9^9^8^12"
^DIST(.403,72,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,72,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,72,"AY",1,281,1,"N")="10,280^2^2^12,280^2"
^DIST(.403,72,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,72,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,72,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,72,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,72,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,72,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,72,"AY",1,293,1,"N")="1,322^2^2^4,322^2"
^DIST(.403,72,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,72,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,72,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,72,"AY",1,293,3,"N")="2^7,280^4^2^4"
^DIST(.403,72,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,72,"AY",1,293,4,"N")="2^13,280^7,280^3^7,280"
^DIST(.403,72,"AY",1,322)="2^0^53.69^^e^^^^1"
^DIST(.403,72,"AY",1,322,1,"D")="3^13^11^.16"
^DIST(.403,72,"AY",1,322,1,"N")="0^1,293^2^0^2"
^DIST(.403,72,"AY",1,322,2,"D")="3^38^6^.17"
^DIST(.403,72,"AY",1,322,2,"N")="0^1,293^4^1^4"
^DIST(.403,72,"AY",1,322,4,"D")="3^56^6^.19"
^DIST(.403,72,"AY",1,322,4,"N")="0^1,293^1,293^2^1,293"
^DIST(.403,72,"AY",1,"FIRST")="1,322"
^DIST(.403,72,"AY","CAP","INCLUDE ADDENDUMS",1,1,280,12)=""
^DIST(.403,72,"AY","CAP","INCLUDE ORDER TYPES - IV",1,1,280,13)=""
^DIST(.403,72,"AY","CAP","INCLUDE SCHEDULE - CONTINUOUS",1,1,280,7)=""
^DIST(.403,72,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,72,"AY","CAP","ON CALL",1,1,280,9)=""
^DIST(.403,72,"AY","CAP","ONE-TIME",1,1,280,10)=""
^DIST(.403,72,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,72,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,72,"AY","CAP","PRN",1,1,280,8)=""
^DIST(.403,72,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,72,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,72,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,72,"AY","CAP","START DATE",1,1,322,1)=""
^DIST(.403,72,"AY","CAP","START TIME",1,1,322,2)=""
^DIST(.403,72,"AY","CAP","STOP TIME",1,1,322,4)=""
^DIST(.403,72,"AY","CAP","UNIT DOSE",1,1,280,14)=""
^DIST(.403,72,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,72,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,72,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,72,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,72,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,72,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,72,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,72,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,72,"AY","F53.69",.16,"L",1,322,1)=""
^DIST(.403,72,"AY","F53.69",.17,"L",1,322,2)=""
^DIST(.403,72,"AY","F53.69",.19,"L",1,322,4)=""
^DIST(.403,72,"AY","F53.69",.21,"L",1,280,7)=""
^DIST(.403,72,"AY","F53.69",.22,"L",1,280,8)=""
^DIST(.403,72,"AY","F53.69",.23,"L",1,280,9)=""
^DIST(.403,72,"AY","F53.69",.24,"L",1,280,10)=""
^DIST(.403,72,"AY","F53.69",.25,"L",1,280,12)=""
^DIST(.403,72,"AY","F53.69",.26,"L",1,280,13)=""
^DIST(.403,72,"AY","F53.69",.27,"L",1,280,14)=""
^DIST(.403,72,"AY","X",1,3,1)="Start Date:              Start Time:        Stop Time:"
^DIST(.403,72,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,72,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,72,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,72,"AY","X",1,9,1)="Include Schedule - Continuous:      Include Order Types - IV:"
^DIST(.403,72,"AY","X",1,10,27)="PRN:                     Unit Dose:"
^DIST(.403,72,"AY","X",1,11,23)="On Call:"
^DIST(.403,72,"AY","X",1,12,22)="One-Time:             Include Addendums:"
^DIST(.403,72,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,72,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,72,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,73,0)="PSBO WA^^^^2990313.121^^Ward Administration Times^53.69^0^0^1"
^DIST(.403,73,11)="S PSBSAVE=0"
^DIST(.403,73,14)="S PSBSAVE=1"
^DIST(.403,73,20)="D VAL^PSBO("".16;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,73,40,0)="^.4031I^1^1"
^DIST(.403,73,40,1,0)="1^^1,1"
^DIST(.403,73,40,1,1)="Page 1"
^DIST(.403,73,40,1,40,0)="^.4032IP^293^4"
^DIST(.403,73,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,73,40,1,40,281,0)="281^4^15,1^e"
^DIST(.403,73,40,1,40,282,0)="282^2^3,1^e"
^DIST(.403,73,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,73,40,1,40,"AC",1,279)=""
^DIST(.403,73,40,1,40,"AC",2,282)=""
^DIST(.403,73,40,1,40,"AC",3,293)=""
^DIST(.403,73,40,1,40,"AC",4,281)=""
^DIST(.403,73,40,1,40,"B",279,279)=""
^DIST(.403,73,40,1,40,"B",281,281)=""
^DIST(.403,73,40,1,40,"B",282,282)=""
^DIST(.403,73,40,1,40,"B",293,293)=""
^DIST(.403,73,40,"B",1,1)=""
^DIST(.403,73,40,"C","PAGE 1",1)=""
^DIST(.403,73,"AY",1,0,0,"N")="3,281^1,282^1,282^3,281^1,282"
^DIST(.403,73,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,73,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,73,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,73,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,73,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,73,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,73,"AY",1,281,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,73,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,73,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,73,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,73,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,73,"AY",1,282)="2^0^53.69^^e^^^^1"
^DIST(.403,73,"AY",1,282,1,"D")="3^18^11^.16"
^DIST(.403,73,"AY",1,282,1,"N")="0^1,293^1,293^0^1,293"
^DIST(.403,73,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,73,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,73,"AY",1,293,1,"N")="1,282^2^2^1,282^2"
^DIST(.403,73,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,73,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,73,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,73,"AY",1,293,3,"N")="2^1,281^4^2^4"
^DIST(.403,73,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,73,"AY",1,293,4,"N")="2^1,281^1,281^3^1,281"
^DIST(.403,73,"AY",1,"FIRST")="1,282"
^DIST(.403,73,"AY","CAP","DATE FOR REPORT",1,1,282,1)=""
^DIST(.403,73,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,73,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,73,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,73,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,73,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,73,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,73,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,73,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,73,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,73,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,73,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,73,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,73,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,73,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,73,"AY","F53.69",.16,"L",1,282,1)=""
^DIST(.403,73,"AY","X",1,3,1)="Date for Report:"
^DIST(.403,73,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,73,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,73,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,73,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,73,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,73,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,74,0)="PSBO ML^^^^2990313.1858^^Medication Log^53.69^0^0^1"
^DIST(.403,74,11)="S PSBSAVE=0"
^DIST(.403,74,14)="S PSBSAVE=1"
^DIST(.403,74,20)="D VAL^PSBO("".16;.17;.18;.19;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,74,40,0)="^.4031I^1^1"
^DIST(.403,74,40,1,0)="1^^1,1"
^DIST(.403,74,40,1,1)="Page 1"
^DIST(.403,74,40,1,40,0)="^.4032IP^304^5"
^DIST(.403,74,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,74,40,1,40,281,0)="281^5^15,1^e"
^DIST(.403,74,40,1,40,292,0)="292^2^3,1^e"
^DIST(.403,74,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,74,40,1,40,304,0)="304^4^10,1^e"
^DIST(.403,74,40,1,40,"AC",1,279)=""
^DIST(.403,74,40,1,40,"AC",2,292)=""
^DIST(.403,74,40,1,40,"AC",3,293)=""
^DIST(.403,74,40,1,40,"AC",4,304)=""
^DIST(.403,74,40,1,40,"AC",5,281)=""
^DIST(.403,74,40,1,40,"B",279,279)=""
^DIST(.403,74,40,1,40,"B",281,281)=""
^DIST(.403,74,40,1,40,"B",292,292)=""
^DIST(.403,74,40,1,40,"B",293,293)=""
^DIST(.403,74,40,1,40,"B",304,304)=""
^DIST(.403,74,40,"B",1,1)=""
^DIST(.403,74,40,"C","PAGE 1",1)=""
^DIST(.403,74,"AY",1,0,0,"N")="3,281^1,292^1,292^3,281^1,292"
^DIST(.403,74,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,74,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,74,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,74,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,74,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,74,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,74,"AY",1,281,1,"N")="2,304^2^2^2,304^2"
^DIST(.403,74,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,74,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,74,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,74,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,74,"AY",1,292)="2^0^53.69^^e^^^^1"
^DIST(.403,74,"AY",1,292,1,"D")="3^13^11^.16"
^DIST(.403,74,"AY",1,292,1,"N")="0^1,293^2^0^2"
^DIST(.403,74,"AY",1,292,2,"D")="3^30^6^.17"
^DIST(.403,74,"AY",1,292,2,"N")="0^1,293^3^1^3"
^DIST(.403,74,"AY",1,292,3,"D")="3^49^11^.18"
^DIST(.403,74,"AY",1,292,3,"N")="0^1,293^4^2^4"
^DIST(.403,74,"AY",1,292,4,"D")="3^66^6^.19"
^DIST(.403,74,"AY",1,292,4,"N")="0^1,293^1,293^3^1,293"
^DIST(.403,74,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,74,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,74,"AY",1,293,1,"N")="1,292^2^2^4,292^2"
^DIST(.403,74,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,74,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,74,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,74,"AY",1,293,3,"N")="2^1,304^4^2^4"
^DIST(.403,74,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,74,"AY",1,293,4,"N")="2^1,304^1,304^3^1,304"
^DIST(.403,74,"AY",1,304)="9^0^53.69^^e^^^^1"
^DIST(.403,74,"AY",1,304,1,"D")="9^65^3^.28"
^DIST(.403,74,"AY",1,304,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,74,"AY",1,304,2,"D")="10^65^3^.29"
^DIST(.403,74,"AY",1,304,2,"N")="1^1,281^1,281^1^1,281"
^DIST(.403,74,"AY",1,"FIRST")="1,292"
^DIST(.403,74,"AY","CAP","AT",1,1,292,2)=""
^DIST(.403,74,"AY","CAP","AT",1,1,292,4)=""
^DIST(.403,74,"AY","CAP","INCLUDE AUDITS",1,1,304,2)=""
^DIST(.403,74,"AY","CAP","INCLUDE COMMENTS",1,1,304,1)=""
^DIST(.403,74,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,74,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,74,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,74,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,74,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,74,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,74,"AY","CAP","START DATE",1,1,292,1)=""
^DIST(.403,74,"AY","CAP","STOP DATE",1,1,292,3)=""
^DIST(.403,74,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,74,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,74,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,74,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,74,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,74,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,74,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,74,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,74,"AY","F53.69",.16,"L",1,292,1)=""
^DIST(.403,74,"AY","F53.69",.17,"L",1,292,2)=""
^DIST(.403,74,"AY","F53.69",.18,"L",1,292,3)=""
^DIST(.403,74,"AY","F53.69",.19,"L",1,292,4)=""
^DIST(.403,74,"AY","F53.69",.28,"L",1,304,1)=""
^DIST(.403,74,"AY","F53.69",.29,"L",1,304,2)=""
^DIST(.403,74,"AY","X",1,3,1)="Start Date:              At:         Stop Date:              At:"
^DIST(.403,74,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,74,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,74,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,74,"AY","X",1,9,47)="Include Comments:"
^DIST(.403,74,"AY","X",1,10,47)="Include Audits:"
^DIST(.403,74,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,74,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,74,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,75,0)="PSBO MM^^^^2990313.1907^^Missed Medications^53.69^0^0^1"
^DIST(.403,75,11)="S PSBSAVE=0"
^DIST(.403,75,14)="S PSBSAVE=1"
^DIST(.403,75,20)="D VAL^PSBO("".16;.17;.19;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,75,40,0)="^.4031I^1^1"
^DIST(.403,75,40,1,0)="1^^1,1"
^DIST(.403,75,40,1,1)="Page 1"
^DIST(.403,75,40,1,40,0)="^.4032IP^293^4"
^DIST(.403,75,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,75,40,1,40,281,0)="281^4^15,1^e"
^DIST(.403,75,40,1,40,283,0)="283^2^3,1^e"
^DIST(.403,75,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,75,40,1,40,"AC",1,279)=""
^DIST(.403,75,40,1,40,"AC",2,283)=""
^DIST(.403,75,40,1,40,"AC",3,293)=""
^DIST(.403,75,40,1,40,"AC",4,281)=""
^DIST(.403,75,40,1,40,"B",279,279)=""
^DIST(.403,75,40,1,40,"B",281,281)=""
^DIST(.403,75,40,1,40,"B",283,283)=""
^DIST(.403,75,40,1,40,"B",293,293)=""
^DIST(.403,75,40,"B",1,1)=""
^DIST(.403,75,40,"C","PAGE 1",1)=""
^DIST(.403,75,"AY",1,0,0,"N")="3,281^1,283^1,283^3,281^1,283"
^DIST(.403,75,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,75,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,75,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,75,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,75,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,75,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,75,"AY",1,281,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,75,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,75,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,75,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,75,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,75,"AY",1,283)="2^0^53.69^^e^^^^1"
^DIST(.403,75,"AY",1,283,1,"D")="3^18^11^.16"
^DIST(.403,75,"AY",1,283,1,"N")="0^1,293^2^0^2"
^DIST(.403,75,"AY",1,283,2,"D")="3^43^6^.17"
^DIST(.403,75,"AY",1,283,2,"N")="0^1,293^3^1^3"
^DIST(.403,75,"AY",1,283,3,"D")="3^62^6^.19"
^DIST(.403,75,"AY",1,283,3,"N")="0^1,293^1,293^2^1,293"
^DIST(.403,75,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,75,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,75,"AY",1,293,1,"N")="1,283^2^2^3,283^2"
^DIST(.403,75,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,75,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,75,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,75,"AY",1,293,3,"N")="2^1,281^4^2^4"
^DIST(.403,75,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,75,"AY",1,293,4,"N")="2^1,281^1,281^3^1,281"
^DIST(.403,75,"AY",1,"FIRST")="1,283"
^DIST(.403,75,"AY","CAP","DATE FOR REPORT",1,1,283,1)=""
^DIST(.403,75,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,75,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,75,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,75,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,75,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,75,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,75,"AY","CAP","START TIME",1,1,283,2)=""
^DIST(.403,75,"AY","CAP","STOP TIME",1,1,283,3)=""
^DIST(.403,75,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,75,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,75,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,75,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,75,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,75,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,75,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,75,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,75,"AY","F53.69",.16,"L",1,283,1)=""
^DIST(.403,75,"AY","F53.69",.17,"L",1,283,2)=""
^DIST(.403,75,"AY","F53.69",.19,"L",1,283,3)=""
^DIST(.403,75,"AY","X",1,3,1)="Date for Report:              Start Time:         Stop Time:"
^DIST(.403,75,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,75,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,75,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,75,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,75,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,75,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,76,0)="PSBO PE^^^^2990313.1924^^PRN Effectiveness^53.69^0^0^1"
^DIST(.403,76,11)="S PSBSAVE=0"
^DIST(.403,76,14)="S PSBSAVE=1"
^DIST(.403,76,20)="D VAL^PSBO("".16;.17;.18;.19;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,76,40,0)="^.4031I^1^1"
^DIST(.403,76,40,1,0)="1^^1,1"
^DIST(.403,76,40,1,1)="Page 1"
^DIST(.403,76,40,1,40,0)="^.4032IP^293^4"
^DIST(.403,76,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,76,40,1,40,281,0)="281^4^15,1^e"
^DIST(.403,76,40,1,40,284,0)="284^2^3,1^e"
^DIST(.403,76,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,76,40,1,40,"AC",1,279)=""
^DIST(.403,76,40,1,40,"AC",2,284)=""
^DIST(.403,76,40,1,40,"AC",3,293)=""
^DIST(.403,76,40,1,40,"AC",4,281)=""
^DIST(.403,76,40,1,40,"B",279,279)=""
^DIST(.403,76,40,1,40,"B",281,281)=""
^DIST(.403,76,40,1,40,"B",284,284)=""
^DIST(.403,76,40,1,40,"B",293,293)=""
^DIST(.403,76,40,"B",1,1)=""
^DIST(.403,76,40,"C","PAGE 1",1)=""
^DIST(.403,76,"AY",1,0,0,"N")="3,281^1,284^1,284^3,281^1,284"
^DIST(.403,76,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,76,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,76,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,76,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,76,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,76,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,76,"AY",1,281,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,76,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,76,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,76,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,76,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,76,"AY",1,284)="2^0^53.69^^e^^^^1"
^DIST(.403,76,"AY",1,284,1,"D")="3^13^11^.16"
^DIST(.403,76,"AY",1,284,1,"N")="0^1,293^2^0^2"
^DIST(.403,76,"AY",1,284,2,"D")="3^32^6^.17"
^DIST(.403,76,"AY",1,284,2,"N")="0^1,293^4^1^4"
^DIST(.403,76,"AY",1,284,3,"D")="3^70^6^.19"
^DIST(.403,76,"AY",1,284,3,"N")="0^1,293^1,293^4^1,293"
^DIST(.403,76,"AY",1,284,4,"D")="3^51^11^.18"
^DIST(.403,76,"AY",1,284,4,"N")="0^1,293^3^2^3"
^DIST(.403,76,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,76,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,76,"AY",1,293,1,"N")="1,284^2^2^3,284^2"
^DIST(.403,76,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,76,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,76,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,76,"AY",1,293,3,"N")="2^1,281^4^2^4"
^DIST(.403,76,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,76,"AY",1,293,4,"N")="2^1,281^1,281^3^1,281"
^DIST(.403,76,"AY",1,"FIRST")="1,284"
^DIST(.403,76,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,76,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,76,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,76,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,76,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,76,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,76,"AY","CAP","START DATE",1,1,284,1)=""
^DIST(.403,76,"AY","CAP","STOP DATE",1,1,284,4)=""
^DIST(.403,76,"AY","CAP","TIME",1,1,284,2)=""
^DIST(.403,76,"AY","CAP","TIME",1,1,284,3)=""
^DIST(.403,76,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,76,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,76,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,76,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,76,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,76,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,76,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,76,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,76,"AY","F53.69",.16,"L",1,284,1)=""
^DIST(.403,76,"AY","F53.69",.17,"L",1,284,2)=""
^DIST(.403,76,"AY","F53.69",.18,"L",1,284,4)=""
^DIST(.403,76,"AY","F53.69",.19,"L",1,284,3)=""
^DIST(.403,76,"AY","X",1,3,1)="Start Date:              Time:         Stop Date:              Time:"
^DIST(.403,76,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,76,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,76,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,76,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,76,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,76,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,77,0)="PSB MISSING DOSE REQUEST^^^^2990313.1948^^Missing Dose Request^53.68^0^0^1"
^DIST(.403,77,11)="S PSBSAVE=0"
^DIST(.403,77,14)="S PSBSAVE=1"
^DIST(.403,77,20)="D VAL^PSBMD("".11;.12;.13;.14;.15;.16;.17;.18"")"
^DIST(.403,77,40,0)="^.4031I^1^1"
^DIST(.403,77,40,1,0)="1^^1,1"
^DIST(.403,77,40,1,1)="Page 1"
^DIST(.403,77,40,1,40,0)="^.4032IP^287^2"
^DIST(.403,77,40,1,40,285,0)="285^1^1,1^d"
^DIST(.403,77,40,1,40,287,0)="287^2^5,1^e"
^DIST(.403,77,40,1,40,"AC",1,285)=""
^DIST(.403,77,40,1,40,"AC",2,287)=""
^DIST(.403,77,40,1,40,"B",285,285)=""
^DIST(.403,77,40,1,40,"B",287,287)=""
^DIST(.403,77,40,"B",1,1)=""
^DIST(.403,77,40,"C","PAGE 1",1)=""
^DIST(.403,77,"AY",1,0,0,"N")="7,287^1,287^1,287^7,287^1,287"
^DIST(.403,77,"AY",1,285)="0^0^53.68^^d^^^^0"
^DIST(.403,77,"AY",1,285,1,"D")="^^^^0^0^^0"
^DIST(.403,77,"AY",1,285,3,"D")="^^^^1^0^^0"
^DIST(.403,77,"AY",1,285,4,"D")="2^19^30^.03"
^DIST(.403,77,"AY",1,285,5,"D")="2^61^18^.04"
^DIST(.403,77,"AY",1,285,6,"D")="3^19^17^.02"
^DIST(.403,77,"AY",1,287)="4^0^53.68^^e^^^^1"
^DIST(.403,77,"AY",1,287,1,"D")="5^17^30^.11"
^DIST(.403,77,"AY",1,287,1,"N")="0^2^2^0^2"
^DIST(.403,77,"AY",1,287,2,"D")="6^17^30^.12"
^DIST(.403,77,"AY",1,287,2,"N")="1^8^8^1^8"
^DIST(.403,77,"AY",1,287,3,"D")="9^17^30^.13"
^DIST(.403,77,"AY",1,287,3,"N")="8^4^4^8^4"
^DIST(.403,77,"AY",1,287,4,"D")="10^17^30^.14"
^DIST(.403,77,"AY",1,287,4,"N")="3^5^5^3^5"
^DIST(.403,77,"AY",1,287,5,"D")="11^17^25^.15"
^DIST(.403,77,"AY",1,287,5,"N")="4^9^9^4^9"
^DIST(.403,77,"AY",1,287,6,"D")="14^28^17^.16"
^DIST(.403,77,"AY",1,287,6,"N")="9^7^7^9^7"
^DIST(.403,77,"AY",1,287,7,"D")="15^28^17^.17"
^DIST(.403,77,"AY",1,287,7,"N")="6^0^0^6^0"
^DIST(.403,77,"AY",1,287,8,"D")="7^12^30^.18"
^DIST(.403,77,"AY",1,287,8,"N")="2^3^3^2^3"
^DIST(.403,77,"AY",1,287,9,"D")="13^12^25^.19"
^DIST(.403,77,"AY",1,287,9,"N")="5^6^6^5^6"
^DIST(.403,77,"AY",1,"FIRST")="1,287"
^DIST(.403,77,"AY","CAP","ADMINISTRATION DATE/TIME",1,1,287,6)=""
^DIST(.403,77,"AY","CAP","DOSAGE NEEDED",1,1,287,4)=""
^DIST(.403,77,"AY","CAP","MISSING DRUG",1,1,287,3)=""
^DIST(.403,77,"AY","CAP","NEEDED BY DATE/TIME",1,1,287,7)=""
^DIST(.403,77,"AY","CAP","PATIENT NAME",1,1,287,1)=""
^DIST(.403,77,"AY","CAP","REASON NEEDED",1,1,287,5)=""
^DIST(.403,77,"AY","CAP","ROOM/BED",1,1,287,8)=""
^DIST(.403,77,"AY","CAP","SCHEDULE",1,1,287,9)=""
^DIST(.403,77,"AY","CAP","WARD LOCATION",1,1,287,2)=""
^DIST(.403,77,"AY","F53.68",.02,"L",1,285,6)=""
^DIST(.403,77,"AY","F53.68",.03,"L",1,285,4)=""
^DIST(.403,77,"AY","F53.68",.04,"L",1,285,5)=""
^DIST(.403,77,"AY","F53.68",.11,"L",1,287,1)=""
^DIST(.403,77,"AY","F53.68",.12,"L",1,287,2)=""
^DIST(.403,77,"AY","F53.68",.13,"L",1,287,3)=""
^DIST(.403,77,"AY","F53.68",.14,"L",1,287,4)=""
^DIST(.403,77,"AY","F53.68",.15,"L",1,287,5)=""
^DIST(.403,77,"AY","F53.68",.16,"L",1,287,6)=""
^DIST(.403,77,"AY","F53.68",.17,"L",1,287,7)=""
^DIST(.403,77,"AY","F53.68",.18,"L",1,287,8)=""
^DIST(.403,77,"AY","F53.68",.19,"L",1,287,9)=""
^DIST(.403,77,"AY","X",1,0,59)="Missing Dose Request"
^DIST(.403,77,"AY","X",1,2,0)="Requesting User:                                   Division:"
^DIST(.403,77,"AY","X",1,3,0)="Request Date/Time:"
^DIST(.403,77,"AY","X",1,5,2)="Patient Name:"
^DIST(.403,77,"AY","X",1,6,2)="Ward Location:"
^DIST(.403,77,"AY","X",1,7,2)="Room/Bed:"
^DIST(.403,77,"AY","X",1,9,2)="Missing Drug:"
^DIST(.403,77,"AY","X",1,10,2)="Dosage Needed:"
^DIST(.403,77,"AY","X",1,11,2)="Reason Needed:"
^DIST(.403,77,"AY","X",1,13,2)="Schedule:"
^DIST(.403,77,"AY","X",1,13,2,"A")="1;8;U"
^DIST(.403,77,"AY","X",1,14,2)="Administration Date/Time:"
^DIST(.403,77,"AY","X",1,15,2)="Needed by Date/Time:"
^DIST(.403,78,0)="PSBO MH^^^^2990313.2033^^Medication Administration History^53.69^0^0^1"
^DIST(.403,78,11)="S PSBSAVE=0"
^DIST(.403,78,14)="S PSBSAVE=1"
^DIST(.403,78,20)="D VAL^PSBO("".16;.18;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,78,40,0)="^.4031I^1^1"
^DIST(.403,78,40,1,0)="1^^1,1"
^DIST(.403,78,40,1,1)="Page 1"
^DIST(.403,78,40,1,40,0)="^.4032IP^293^4"
^DIST(.403,78,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,78,40,1,40,281,0)="281^4^15,1^e"
^DIST(.403,78,40,1,40,286,0)="286^2^3,1^e"
^DIST(.403,78,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,78,40,1,40,"AC",1,279)=""
^DIST(.403,78,40,1,40,"AC",2,286)=""
^DIST(.403,78,40,1,40,"AC",3,293)=""
^DIST(.403,78,40,1,40,"AC",4,281)=""
^DIST(.403,78,40,1,40,"B",279,279)=""
^DIST(.403,78,40,1,40,"B",281,281)=""
^DIST(.403,78,40,1,40,"B",286,286)=""
^DIST(.403,78,40,1,40,"B",293,293)=""
^DIST(.403,78,40,"B",1,1)=""
^DIST(.403,78,40,"C","PAGE 1",1)=""
^DIST(.403,78,"AY",1,0,0,"N")="3,281^1,286^1,286^3,281^1,286"
^DIST(.403,78,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,78,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,78,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,78,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,78,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,78,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,78,"AY",1,281,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,78,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,78,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,78,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,78,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,78,"AY",1,286)="2^0^53.69^^e^^^^1"
^DIST(.403,78,"AY",1,286,1,"D")="3^13^11^.16"
^DIST(.403,78,"AY",1,286,1,"N")="0^1,293^2^0^2"
^DIST(.403,78,"AY",1,286,2,"D")="3^37^11^.18"
^DIST(.403,78,"AY",1,286,2,"N")="0^1,293^1,293^1^1,293"
^DIST(.403,78,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,78,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,78,"AY",1,293,1,"N")="1,286^2^2^2,286^2"
^DIST(.403,78,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,78,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,78,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,78,"AY",1,293,3,"N")="2^1,281^4^2^4"
^DIST(.403,78,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,78,"AY",1,293,4,"N")="2^1,281^1,281^3^1,281"
^DIST(.403,78,"AY",1,"FIRST")="1,286"
^DIST(.403,78,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,78,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,78,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,78,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,78,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,78,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,78,"AY","CAP","START DATE",1,1,286,1)=""
^DIST(.403,78,"AY","CAP","STOP DATE",1,1,286,2)=""
^DIST(.403,78,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,78,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,78,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,78,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,78,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,78,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,78,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,78,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,78,"AY","F53.69",.16,"L",1,286,1)=""
^DIST(.403,78,"AY","F53.69",.18,"L",1,286,2)=""
^DIST(.403,78,"AY","X",1,3,1)="Start Date:              Stop Date:"
^DIST(.403,78,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,78,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,78,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,78,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,78,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,78,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,79,0)="PSBO MV^^^^2990313.232^^Medication Variance Log^53.69^0^0^1"
^DIST(.403,79,11)="S PSBSAVE=0"
^DIST(.403,79,14)="S PSBSAVE=1"
^DIST(.403,79,20)="D VAL^PSBO("".16;.17;.18;.19;.11;.12;.13;.15;.06;.07"")"
^DIST(.403,79,40,0)="^.4031I^1^1"
^DIST(.403,79,40,1,0)="1^^1,1"
^DIST(.403,79,40,1,1)="Page 1"
^DIST(.403,79,40,1,40,0)="^.4032IP^293^4"
^DIST(.403,79,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,79,40,1,40,281,0)="281^4^15,1^e"
^DIST(.403,79,40,1,40,288,0)="288^2^3,1^e"
^DIST(.403,79,40,1,40,293,0)="293^3^6,1^e"
^DIST(.403,79,40,1,40,"AC",1,279)=""
^DIST(.403,79,40,1,40,"AC",2,288)=""
^DIST(.403,79,40,1,40,"AC",3,293)=""
^DIST(.403,79,40,1,40,"AC",4,281)=""
^DIST(.403,79,40,1,40,"B",279,279)=""
^DIST(.403,79,40,1,40,"B",281,281)=""
^DIST(.403,79,40,1,40,"B",288,288)=""
^DIST(.403,79,40,1,40,"B",293,293)=""
^DIST(.403,79,40,"B",1,1)=""
^DIST(.403,79,40,"C","PAGE 1",1)=""
^DIST(.403,79,"AY",1,0,0,"N")="3,281^1,288^1,288^3,281^1,288"
^DIST(.403,79,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,79,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,79,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,79,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,79,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,79,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,79,"AY",1,281,1,"N")="3,293^2^2^4,293^2"
^DIST(.403,79,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,79,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,79,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,79,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,79,"AY",1,288)="2^0^53.69^^e^^^^1"
^DIST(.403,79,"AY",1,288,1,"D")="3^13^11^.16"
^DIST(.403,79,"AY",1,288,1,"N")="0^1,293^2^0^2"
^DIST(.403,79,"AY",1,288,2,"D")="3^32^6^.17"
^DIST(.403,79,"AY",1,288,2,"N")="0^1,293^3^1^3"
^DIST(.403,79,"AY",1,288,3,"D")="3^51^11^.18"
^DIST(.403,79,"AY",1,288,3,"N")="0^1,293^4^2^4"
^DIST(.403,79,"AY",1,288,4,"D")="3^70^6^.19"
^DIST(.403,79,"AY",1,288,4,"N")="0^1,293^1,293^3^1,293"
^DIST(.403,79,"AY",1,293)="5^0^53.69^^e^^^^1"
^DIST(.403,79,"AY",1,293,1,"D")="5^25^7^.11"
^DIST(.403,79,"AY",1,293,1,"N")="1,288^2^2^4,288^2"
^DIST(.403,79,"AY",1,293,2,"D")="6^25^30^.12"
^DIST(.403,79,"AY",1,293,2,"N")="1^3^3^1^3"
^DIST(.403,79,"AY",1,293,3,"D")="7^25^20^.13"
^DIST(.403,79,"AY",1,293,3,"N")="2^1,281^4^2^4"
^DIST(.403,79,"AY",1,293,4,"D")="7^71^8^.15"
^DIST(.403,79,"AY",1,293,4,"N")="2^1,281^1,281^3^1,281"
^DIST(.403,79,"AY",1,"FIRST")="1,288"
^DIST(.403,79,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,79,"AY","CAP","PATIENT NAME",1,1,293,2)=""
^DIST(.403,79,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,79,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,79,"AY","CAP","RUN BY PATIENT OR WARD",1,1,293,1)=""
^DIST(.403,79,"AY","CAP","SORT BY PT OR ROOM-BED",1,1,293,4)=""
^DIST(.403,79,"AY","CAP","START DATE",1,1,288,1)=""
^DIST(.403,79,"AY","CAP","STOP DATE",1,1,288,3)=""
^DIST(.403,79,"AY","CAP","TIME",1,1,288,2)=""
^DIST(.403,79,"AY","CAP","TIME",1,1,288,4)=""
^DIST(.403,79,"AY","CAP","WARD LOCATION",1,1,293,3)=""
^DIST(.403,79,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,79,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,79,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,79,"AY","F53.69",.11,"L",1,293,1)=""
^DIST(.403,79,"AY","F53.69",.12,"L",1,293,2)=""
^DIST(.403,79,"AY","F53.69",.13,"L",1,293,3)=""
^DIST(.403,79,"AY","F53.69",.15,"L",1,293,4)=""
^DIST(.403,79,"AY","F53.69",.16,"L",1,288,1)=""
^DIST(.403,79,"AY","F53.69",.17,"L",1,288,2)=""
^DIST(.403,79,"AY","F53.69",.18,"L",1,288,3)=""
^DIST(.403,79,"AY","F53.69",.19,"L",1,288,4)=""
^DIST(.403,79,"AY","X",1,3,1)="Start Date:              Time:         Stop Date:              Time:"
^DIST(.403,79,"AY","X",1,5,1)="Run by Patient or Ward:"
^DIST(.403,79,"AY","X",1,6,11)="Patient Name:"
^DIST(.403,79,"AY","X",1,7,10)="Ward Location:                       Sort by Pt or Room-Bed:"
^DIST(.403,79,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,79,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,79,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,80,0)="PSB MISSING DOSE FOLLOWUP^^^^2990313.2347^^Missing Dose Followup^53.68^0^0^1"
^DIST(.403,80,11)="S PSBSAVE=0"
^DIST(.403,80,14)="S PSBSAVE=1"
^DIST(.403,80,20)="D VAL^PSBMD("".21;.24;.17"")"
^DIST(.403,80,40,0)="^.4031I^1^1"
^DIST(.403,80,40,1,0)="1^^1,1"
^DIST(.403,80,40,1,1)="Page 1"
^DIST(.403,80,40,1,40,0)="^.4032IP^289^2"
^DIST(.403,80,40,1,40,285,0)="285^1^1,1^d"
^DIST(.403,80,40,1,40,289,0)="289^2^5,1^e"
^DIST(.403,80,40,1,40,"AC",1,285)=""
^DIST(.403,80,40,1,40,"AC",2,289)=""
^DIST(.403,80,40,1,40,"B",285,285)=""
^DIST(.403,80,40,1,40,"B",289,289)=""
^DIST(.403,80,40,"B",1,1)=""
^DIST(.403,80,40,"C","PAGE 1",1)=""
^DIST(.403,80,"AY",1,0,0,"N")="7,289^1,289^1,289^7,289^1,289"
^DIST(.403,80,"AY",1,285)="0^0^53.68^^d^^^^0"
^DIST(.403,80,"AY",1,285,1,"D")="^^^^0^0^^0"
^DIST(.403,80,"AY",1,285,3,"D")="^^^^1^0^^0"
^DIST(.403,80,"AY",1,285,4,"D")="2^19^30^.03"
^DIST(.403,80,"AY",1,285,5,"D")="2^61^18^.04"
^DIST(.403,80,"AY",1,285,6,"D")="3^19^17^.02"
^DIST(.403,80,"AY",1,289)="4^0^53.68^^e^^^^1"
^DIST(.403,80,"AY",1,289,1,"D")="5^16^30^.11"
^DIST(.403,80,"AY",1,289,1,"N")="0^3^2^0^2"
^DIST(.403,80,"AY",1,289,2,"D")="5^54^18^.12"
^DIST(.403,80,"AY",1,289,2,"N")="0^3^3^1^3"
^DIST(.403,80,"AY",1,289,3,"D")="6^16^30^.13"
^DIST(.403,80,"AY",1,289,3,"N")="1^4^9^2^9"
^DIST(.403,80,"AY",1,289,4,"D")="10^26^3^.21"
^DIST(.403,80,"AY",1,289,4,"N")="3^5^5^9^5"
^DIST(.403,80,"AY",1,289,5,"D")="11^26^35^.22"
^DIST(.403,80,"AY",1,289,5,"N")="4^6^6^4^6"
^DIST(.403,80,"AY",1,289,6,"D")="12^26^17^.23"
^DIST(.403,80,"AY",1,289,6,"N")="5^7^7^5^7"
^DIST(.403,80,"AY",1,289,7,"D")="13^26^25^.24"
^DIST(.403,80,"AY",1,289,7,"N")="6^0^0^6^0"
^DIST(.403,80,"AY",1,289,9,"D")="6^58^15^.18"
^DIST(.403,80,"AY",1,289,9,"N")="2^4^4^3^4"
^DIST(.403,80,"AY",1,"FIRST")="1,289"
^DIST(.403,80,"AY","CAP","DELIVERED BY",1,1,289,5)=""
^DIST(.403,80,"AY","CAP","DELIVERY DATE/TIME",1,1,289,6)=""
^DIST(.403,80,"AY","CAP","DOSE DELIVERED",1,1,289,4)=""
^DIST(.403,80,"AY","CAP","DRUG REQUESTED",1,1,289,3)=""
^DIST(.403,80,"AY","CAP","PATIENT NAME",1,1,289,1)=""
^DIST(.403,80,"AY","CAP","PHARMACY REASON NEEDED",1,1,289,7)=""
^DIST(.403,80,"AY","CAP","ROOM/BED",1,1,289,9)=""
^DIST(.403,80,"AY","CAP","WARD",1,1,289,2)=""
^DIST(.403,80,"AY","F53.68",.02,"L",1,285,6)=""
^DIST(.403,80,"AY","F53.68",.03,"L",1,285,4)=""
^DIST(.403,80,"AY","F53.68",.04,"L",1,285,5)=""
^DIST(.403,80,"AY","F53.68",.11,"L",1,289,1)=""
^DIST(.403,80,"AY","F53.68",.12,"L",1,289,2)=""
^DIST(.403,80,"AY","F53.68",.13,"L",1,289,3)=""
^DIST(.403,80,"AY","F53.68",.18,"L",1,289,9)=""
^DIST(.403,80,"AY","F53.68",.21,"L",1,289,4)=""
^DIST(.403,80,"AY","F53.68",.22,"L",1,289,5)=""
^DIST(.403,80,"AY","F53.68",.23,"L",1,289,6)=""
^DIST(.403,80,"AY","F53.68",.24,"L",1,289,7)=""
^DIST(.403,80,"AY","X",1,0,59)="Missing Dose Request"
^DIST(.403,80,"AY","X",1,2,0)="Requesting User:                                   Division:"
^DIST(.403,80,"AY","X",1,3,0)="Request Date/Time:"
^DIST(.403,80,"AY","X",1,5,0)="Patient Name:                                   Ward:"
^DIST(.403,80,"AY","X",1,6,0)="Drug Requested:                                 Room/Bed:"
^DIST(.403,80,"AY","X",1,8,16)="***** Pharmacy Followup Information *****"
^DIST(.403,80,"AY","X",1,10,2)="Dose Delivered:"
^DIST(.403,80,"AY","X",1,11,2)="Delivered By:"
^DIST(.403,80,"AY","X",1,12,2)="Delivery Date/Time:"
^DIST(.403,80,"AY","X",1,13,2)="Pharmacy Reason Needed:"
^DIST(.403,81,0)="PSBO BL^^^^2990318.1536^^^53.69^0^0^1"
^DIST(.403,81,11)="S PSBSAVE=0"
^DIST(.403,81,14)="S PSBSAVE=1"
^DIST(.403,81,20)="D VAL^PSBO("".31;.36;.37;.06"")"
^DIST(.403,81,40,0)="^.4031I^1^1"
^DIST(.403,81,40,1,0)="1^^1,1"
^DIST(.403,81,40,1,1)="Page 1"
^DIST(.403,81,40,1,40,0)="^.4032IP^290^3"
^DIST(.403,81,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,81,40,1,40,281,0)="281^3^15,1^e"
^DIST(.403,81,40,1,40,290,0)="290^2^3,1^e"
^DIST(.403,81,40,1,40,"AC",1,279)=""
^DIST(.403,81,40,1,40,"AC",2,290)=""
^DIST(.403,81,40,1,40,"AC",3,281)=""
^DIST(.403,81,40,1,40,"B",279,279)=""
^DIST(.403,81,40,1,40,"B",281,281)=""
^DIST(.403,81,40,1,40,"B",290,290)=""
^DIST(.403,81,40,"B",1,1)=""
^DIST(.403,81,40,"C","PAGE 1",1)=""
^DIST(.403,81,"AY",1,0,0,"N")="3,281^1,290^1,290^3,281^1,290"
^DIST(.403,81,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,81,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,81,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,81,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,81,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,81,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,81,"AY",1,281,1,"N")="10,290^2^2^10,290^2"
^DIST(.403,81,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,81,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,81,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,81,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,81,"AY",1,290)="2^0^53.69^^e^^^^1"
^DIST(.403,81,"AY",1,290,1,"D")="3^12^40^.31"
^DIST(.403,81,"AY",1,290,1,"N")="0^2^2^0^2"
^DIST(.403,81,"AY",1,290,2,"D")="4^18^15^.32"
^DIST(.403,81,"AY",1,290,2,"N")="1^3^3^1^3"
^DIST(.403,81,"AY",1,290,3,"D")="5^18^11^.33"
^DIST(.403,81,"AY",1,290,3,"N")="2^4^4^2^4"
^DIST(.403,81,"AY",1,290,4,"D")="6^18^30^.34"
^DIST(.403,81,"AY",1,290,4,"N")="3^5^5^3^5"
^DIST(.403,81,"AY",1,290,5,"D")="8^18^7^.35"
^DIST(.403,81,"AY",1,290,5,"N")="4^6^6^4^6"
^DIST(.403,81,"AY",1,290,6,"D")="9^18^5^.36"
^DIST(.403,81,"AY",1,290,6,"N")="5^7^7^5^7"
^DIST(.403,81,"AY",1,290,7,"D")="10^18^5^.37"
^DIST(.403,81,"AY",1,290,7,"N")="6^8^8^6^8"
^DIST(.403,81,"AY",1,290,8,"D")="11^18^7^.38"
^DIST(.403,81,"AY",1,290,8,"N")="7^9^9^7^9"
^DIST(.403,81,"AY",1,290,9,"D")="12^18^30^.12"
^DIST(.403,81,"AY",1,290,9,"N")="8^10^10^8^10"
^DIST(.403,81,"AY",1,290,10,"D")="13^18^30^.39"
^DIST(.403,81,"AY",1,290,10,"N")="9^1,281^1,281^9^1,281"
^DIST(.403,81,"AY",1,"FIRST")="1,290"
^DIST(.403,81,"AY","CAP","# LABELS",1,1,290,8)=""
^DIST(.403,81,"AY","CAP","CHECKED BY",1,1,290,7)=""
^DIST(.403,81,"AY","CAP","DOSAGE",1,1,290,10)=""
^DIST(.403,81,"AY","CAP","DRUG NAME",1,1,290,1)=""
^DIST(.403,81,"AY","CAP","EXPIRATION DATE",1,1,290,3)=""
^DIST(.403,81,"AY","CAP","FILLED BY",1,1,290,6)=""
^DIST(.403,81,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,81,"AY","CAP","LOT #",1,1,290,2)=""
^DIST(.403,81,"AY","CAP","MANUFACTURER",1,1,290,4)=""
^DIST(.403,81,"AY","CAP","PATIENT NAME",1,1,290,9)=""
^DIST(.403,81,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,81,"AY","CAP","QUANTITY",1,1,290,5)=""
^DIST(.403,81,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,81,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,81,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,81,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,81,"AY","F53.69",.12,"L",1,290,9)=""
^DIST(.403,81,"AY","F53.69",.31,"L",1,290,1)=""
^DIST(.403,81,"AY","F53.69",.32,"L",1,290,2)=""
^DIST(.403,81,"AY","F53.69",.33,"L",1,290,3)=""
^DIST(.403,81,"AY","F53.69",.34,"L",1,290,4)=""
^DIST(.403,81,"AY","F53.69",.35,"L",1,290,5)=""
^DIST(.403,81,"AY","F53.69",.36,"L",1,290,6)=""
^DIST(.403,81,"AY","F53.69",.37,"L",1,290,7)=""
^DIST(.403,81,"AY","F53.69",.38,"L",1,290,8)=""
^DIST(.403,81,"AY","F53.69",.39,"L",1,290,10)=""
^DIST(.403,81,"AY","X",1,3,1)="Drug Name:"
^DIST(.403,81,"AY","X",1,4,11)="Lot #:"
^DIST(.403,81,"AY","X",1,5,1)="Expiration Date:"
^DIST(.403,81,"AY","X",1,6,4)="Manufacturer:"
^DIST(.403,81,"AY","X",1,8,8)="Quantity:"
^DIST(.403,81,"AY","X",1,9,7)="Filled By:"
^DIST(.403,81,"AY","X",1,10,6)="Checked By:"
^DIST(.403,81,"AY","X",1,11,8)="# Labels:"
^DIST(.403,81,"AY","X",1,12,4)="Patient Name:"
^DIST(.403,81,"AY","X",1,13,10)="Dosage:"
^DIST(.403,81,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,81,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,81,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,82,0)="PSBO MD^^^^2990318.1618^^^53.69^0^0^1"
^DIST(.403,82,11)="S PSBSAVE=0"
^DIST(.403,82,14)="S PSBSAVE=1"
^DIST(.403,82,20)="D VAL^PSBO("".16;.17;.18;.19"")"
^DIST(.403,82,40,0)="^.4031I^1^1"
^DIST(.403,82,40,1,0)="1^^1,1"
^DIST(.403,82,40,1,1)="Page 1"
^DIST(.403,82,40,1,40,0)="^.4032IP^291^3"
^DIST(.403,82,40,1,40,279,0)="279^1^1,1^d"
^DIST(.403,82,40,1,40,281,0)="281^3^15,1^e"
^DIST(.403,82,40,1,40,291,0)="291^2^3,1^e"
^DIST(.403,82,40,1,40,"AC",1,279)=""
^DIST(.403,82,40,1,40,"AC",2,291)=""
^DIST(.403,82,40,1,40,"AC",3,281)=""
^DIST(.403,82,40,1,40,"B",279,279)=""
^DIST(.403,82,40,1,40,"B",281,281)=""
^DIST(.403,82,40,1,40,"B",291,291)=""
^DIST(.403,82,40,"B",1,1)=""
^DIST(.403,82,40,"C","PAGE 1",1)=""
^DIST(.403,82,"AY",1,0,0,"N")="3,281^1,291^1,291^3,281^1,291"
^DIST(.403,82,"AY",1,279)="0^0^53.69^^d^^^^0"
^DIST(.403,82,"AY",1,279,1,"D")="^^^^0^0^^0"
^DIST(.403,82,"AY",1,279,3,"D")="^^^^1^0^^0"
^DIST(.403,82,"AY",1,279,4,"D")="^^^^0^40^^0"
^DIST(.403,82,"AY",1,281)="14^0^53.69^^e^^^^1"
^DIST(.403,82,"AY",1,281,1,"D")="14^58^22^.06"
^DIST(.403,82,"AY",1,281,1,"N")="5,291^2^2^5,291^2"
^DIST(.403,82,"AY",1,281,2,"D")="15^58^17^.07"
^DIST(.403,82,"AY",1,281,2,"N")="1^3^3^1^3"
^DIST(.403,82,"AY",1,281,3,"D")="16^75^1^3,281"
^DIST(.403,82,"AY",1,281,3,"N")="2^0^0^2^0"
^DIST(.403,82,"AY",1,291)="2^0^53.69^^e^^^^1"
^DIST(.403,82,"AY",1,291,1,"D")="3^13^11^.16"
^DIST(.403,82,"AY",1,291,1,"N")="0^3^2^0^2"
^DIST(.403,82,"AY",1,291,2,"D")="3^30^6^.17"
^DIST(.403,82,"AY",1,291,2,"N")="0^4^3^1^3"
^DIST(.403,82,"AY",1,291,3,"D")="5^13^11^.18"
^DIST(.403,82,"AY",1,291,3,"N")="1^5^4^2^4"
^DIST(.403,82,"AY",1,291,4,"D")="5^30^6^.19"
^DIST(.403,82,"AY",1,291,4,"N")="2^5^5^3^5"
^DIST(.403,82,"AY",1,291,5,"D")="7^30^30^.13"
^DIST(.403,82,"AY",1,291,5,"N")="4^1,281^1,281^4^1,281"
^DIST(.403,82,"AY",1,"FIRST")="1,291"
^DIST(.403,82,"AY","CAP","AT",1,1,291,2)=""
^DIST(.403,82,"AY","CAP","AT",1,1,291,4)=""
^DIST(.403,82,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,281,3)=""
^DIST(.403,82,"AY","CAP","PRINT TO DEVICE",1,1,281,1)=""
^DIST(.403,82,"AY","CAP","QUEUE TO RUN AT",1,1,281,2)=""
^DIST(.403,82,"AY","CAP","START DATE",1,1,291,1)=""
^DIST(.403,82,"AY","CAP","STOP DATE",1,1,291,3)=""
^DIST(.403,82,"AY","CAP","WARD (RETURN FOR ALL)",1,1,291,5)=""
^DIST(.403,82,"AY","F0","3,281","L",1,281,3)=""
^DIST(.403,82,"AY","F53.69",.06,"L",1,281,1)=""
^DIST(.403,82,"AY","F53.69",.07,"L",1,281,2)=""
^DIST(.403,82,"AY","F53.69",.13,"L",1,291,5)=""
^DIST(.403,82,"AY","F53.69",.16,"L",1,291,1)=""
^DIST(.403,82,"AY","F53.69",.17,"L",1,291,2)=""
^DIST(.403,82,"AY","F53.69",.18,"L",1,291,3)=""
^DIST(.403,82,"AY","F53.69",.19,"L",1,291,4)=""
^DIST(.403,82,"AY","X",1,3,1)="Start Date:              At:"
^DIST(.403,82,"AY","X",1,5,2)="Stop Date:              At:"
^DIST(.403,82,"AY","X",1,7,7)="Ward (Return for All):"
^DIST(.403,82,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,82,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,82,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,83,0)="PSB NEW UD ENTRY^^@^^2990323.1252^^^53.79^0^0^1"
^DIST(.403,83,11)="S PSBSAVE=0"
^DIST(.403,83,12)=""
^DIST(.403,83,14)="S PSBSAVE=1"
^DIST(.403,83,20)=""
^DIST(.403,83,40,0)="^.4031I^2^2"
^DIST(.403,83,40,1,0)="1^^1,1"
^DIST(.403,83,40,1,1)="Page 1"
^DIST(.403,83,40,1,40,0)="^.4032IP^298^1"
^DIST(.403,83,40,1,40,298,0)="298^1^1,1^e"
^DIST(.403,83,40,1,40,"AC",1,298)=""
^DIST(.403,83,40,1,40,"B",298,298)=""
^DIST(.403,83,40,2,0)="2^^5,5^^^1^15,75"
^DIST(.403,83,40,2,1)="Page 2"
^DIST(.403,83,40,2,40,0)="^.4032IP^300^2"
^DIST(.403,83,40,2,40,299,0)="299^1^1,1^d"
^DIST(.403,83,40,2,40,300,0)="300^2^4,3^e"
^DIST(.403,83,40,2,40,300,2)="3^B^f^1"
^DIST(.403,83,40,2,40,300,11)="I $G(PSBDOSEF)=""PATCH"" D UNED^DDSUTL(4,,,1,DDSDA)"
^DIST(.403,83,40,2,40,300,12)=""
^DIST(.403,83,40,2,40,"AC",1,299)=""
^DIST(.403,83,40,2,40,"AC",2,300)=""
^DIST(.403,83,40,2,40,"B",299,299)=""
^DIST(.403,83,40,2,40,"B",300,300)=""
^DIST(.403,83,40,"B",1,1)=""
^DIST(.403,83,40,"B",2,2)=""
^DIST(.403,83,40,"C","PAGE 1",1)=""
^DIST(.403,83,40,"C","PAGE 2",2)=""
^DIST(.403,83,"AY",1,0,0,"N")="9,298^1,298^1,298^9,298^1,298"
^DIST(.403,83,"AY",1,298)="0^0^53.79^^e^^^^1"
^DIST(.403,83,"AY",1,298,1,"D")="3^15^30^.01"
^DIST(.403,83,"AY",1,298,1,"N")="0^10^10^0^10"
^DIST(.403,83,"AY",1,298,3,"D")="^^^^1^0^^0"
^DIST(.403,83,"AY",1,298,4,"D")="^^^^3^46^^0"
^DIST(.403,83,"AY",1,298,5,"D")="6^17^7^.09"
^DIST(.403,83,"AY",1,298,5,"N")="10^12^6^10^6"
^DIST(.403,83,"AY",1,298,6,"D")="6^43^20^.06"
^DIST(.403,83,"AY",1,298,6,"N")="10^12^12^5^12"
^DIST(.403,83,"AY",1,298,7,"D")="9^21^58^.21"
^DIST(.403,83,"AY",1,298,7,"N")="12^8^8^12^8"
^DIST(.403,83,"AY",1,298,8,"D")="10^21^58^.22"
^DIST(.403,83,"AY",1,298,8,"N")="7^13^13^7^13"
^DIST(.403,83,"AY",1,298,9,"D")="15^1^78^9,298"
^DIST(.403,83,"AY",1,298,9,"N")="13^0^0^13^0"
^DIST(.403,83,"AY",1,298,10,"D")="4^15^40^.08"
^DIST(.403,83,"AY",1,298,10,"N")="1^5^5^1^5"
^DIST(.403,83,"AY",1,298,12,"D")="7^17^30^.16"
^DIST(.403,83,"AY",1,298,12,"N")="5^7^7^6^7"
^DIST(.403,83,"AY",1,298,13,"D")="12^21^1^13,298"
^DIST(.403,83,"AY",1,298,13,"N")="8^9^9^8^9"
^DIST(.403,83,"AY",1,"FIRST")="1,298"
^DIST(.403,83,"AY",2,0,0,"N")="1,300^1,300^1,300^4,300^1,300"
^DIST(.403,83,"AY",2,299)="4^4^53.79^^d^^^^0"
^DIST(.403,83,"AY",2,300)="7^6^53.795^^e^^3^^1^1"
^DIST(.403,83,"AY",2,300,1,"D")="7^6^30^.01"
^DIST(.403,83,"AY",2,300,1,"N")="0^0^0^0^0^1,-1^1,+1^2^4,-1^2"
^DIST(.403,83,"AY",2,300,2,"D")="7^38^6^.02^^^^^^1"
^DIST(.403,83,"AY",2,300,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,83,"AY",2,300,3,"D")="7^46^6^.03^^^^^^1"
^DIST(.403,83,"AY",2,300,3,"N")="0^0^0^2^0^3,-1^3,+1^4^2^4"
^DIST(.403,83,"AY",2,300,4,"D")="7^54^10^.04"
^DIST(.403,83,"AY",2,300,4,"N")="0^0^0^3^0^4,-1^4,+1^1,+1^3^1,+1"
^DIST(.403,83,"AY",2,"FIRST")="1,300"
^DIST(.403,83,"AY","CAP","ADMIN DATE/TIME",1,1,298,6)=""
^DIST(.403,83,"AY","CAP","ADMIN STATUS",1,1,298,5)=""
^DIST(.403,83,"AY","CAP","COMMENT (REQUIRED)",1,1,298,9)=""
^DIST(.403,83,"AY","CAP","DISPENSE DRUGS...",1,1,298,13)=""
^DIST(.403,83,"AY","CAP","INJECTION SITE",1,1,298,12)=""
^DIST(.403,83,"AY","CAP","MEDICATION",1,1,298,10)=""
^DIST(.403,83,"AY","CAP","PRN EFFECTIVENESS",1,1,298,8)=""
^DIST(.403,83,"AY","CAP","PRN REASON",1,1,298,7)=""
^DIST(.403,83,"AY","F0","13,298","L",1,298,13)=""
^DIST(.403,83,"AY","F0","9,298","L",1,298,9)=""
^DIST(.403,83,"AY","F53.79",.01,"L",1,298,1)=""
^DIST(.403,83,"AY","F53.79",.06,"L",1,298,6)=""
^DIST(.403,83,"AY","F53.79",.08,"L",1,298,10)=""
^DIST(.403,83,"AY","F53.79",.09,"L",1,298,5)=""
^DIST(.403,83,"AY","F53.79",.16,"L",1,298,12)=""
^DIST(.403,83,"AY","F53.79",.21,"L",1,298,7)=""
^DIST(.403,83,"AY","F53.79",.22,"L",1,298,8)=""
^DIST(.403,83,"AY","F53.795",.01,"L",2,300,1)=""
^DIST(.403,83,"AY","F53.795",.02,"L",2,300,2)=""
^DIST(.403,83,"AY","F53.795",.03,"L",2,300,3)=""
^DIST(.403,83,"AY","F53.795",.04,"L",2,300,4)=""
^DIST(.403,83,"AY","X",1,0,0)="Medication Log Manual Entry - Unit Dose Order"
^DIST(.403,83,"AY","X",1,3,1)="Patient:"
^DIST(.403,83,"AY","X",1,4,1)="Medication:"
^DIST(.403,83,"AY","X",1,4,1,"A")="1;10;U"
^DIST(.403,83,"AY","X",1,6,1)="Admin Status:            Admin Date/Time:"
^DIST(.403,83,"AY","X",1,6,1,"A")="1;12;U^26;40;U"
^DIST(.403,83,"AY","X",1,7,1)="Injection Site:"
^DIST(.403,83,"AY","X",1,9,1)="PRN Reason:"
^DIST(.403,83,"AY","X",1,10,1)="PRN Effectiveness:"
^DIST(.403,83,"AY","X",1,12,1)="Dispense Drugs..."
^DIST(.403,83,"AY","X",1,14,1)="Comment (Required):"
^DIST(.403,83,"AY","X",1,14,1,"A")="1;18;U"
^DIST(.403,83,"AY","X",2,4,5)=" Dispense Drugs "
^DIST(.403,83,"AY","X",2,5,39)="Units   Units"
^DIST(.403,83,"AY","X",2,6,6)="Drug Name                        Order   Given  Units"
^DIST(.403,84,0)="PSB NEW IV ENTRY^^^^2990323.1252^^^53.79^0^0^1"
^DIST(.403,84,11)="S PSBSAVE=0"
^DIST(.403,84,14)="S PSBSAVE=1"
^DIST(.403,84,20)="S PSBSAVE=0"
^DIST(.403,84,40,0)="^.4031I^2^2"
^DIST(.403,84,40,1,0)="1^^1,1"
^DIST(.403,84,40,1,1)="Page 1"
^DIST(.403,84,40,1,40,0)="^.4032IP^301^1"
^DIST(.403,84,40,1,40,301,0)="301^1^1,1^e"
^DIST(.403,84,40,1,40,"AC",1,301)=""
^DIST(.403,84,40,1,40,"B",301,301)=""
^DIST(.403,84,40,2,0)="2^^5,5^^^1^15,75"
^DIST(.403,84,40,2,1)="Page 2"
^DIST(.403,84,40,2,40,0)="^.4032IP^303^2"
^DIST(.403,84,40,2,40,302,0)="302^1^1,1^d"
^DIST(.403,84,40,2,40,303,0)="303^2^4,3^e"
^DIST(.403,84,40,2,40,303,2)="3^B^f^1"
^DIST(.403,84,40,2,40,"AC",1,302)=""
^DIST(.403,84,40,2,40,"AC",2,303)=""
^DIST(.403,84,40,2,40,"B",302,302)=""
^DIST(.403,84,40,2,40,"B",303,303)=""
^DIST(.403,84,40,"B",1,1)=""
^DIST(.403,84,40,"B",2,2)=""
^DIST(.403,84,40,"C","PAGE 1",1)=""
^DIST(.403,84,40,"C","PAGE 2",2)=""
^DIST(.403,84,"AY",1,0,0,"N")="9,301^1,301^1,301^9,301^1,301"
^DIST(.403,84,"AY",1,301)="0^0^53.79^^e^^^^1"
^DIST(.403,84,"AY",1,301,1,"D")="3^15^30^.01"
^DIST(.403,84,"AY",1,301,1,"N")="0^10^10^0^10"
^DIST(.403,84,"AY",1,301,3,"D")="^^^^1^0^^0"
^DIST(.403,84,"AY",1,301,4,"D")="^^^^3^46^^0"
^DIST(.403,84,"AY",1,301,5,"D")="6^17^7^.09"
^DIST(.403,84,"AY",1,301,5,"N")="10^12^6^10^6"
^DIST(.403,84,"AY",1,301,6,"D")="6^43^20^.06"
^DIST(.403,84,"AY",1,301,6,"N")="10^12^12^5^12"
^DIST(.403,84,"AY",1,301,7,"D")="9^21^58^.21"
^DIST(.403,84,"AY",1,301,7,"N")="12^8^8^12^8"
^DIST(.403,84,"AY",1,301,8,"D")="10^21^58^.22"
^DIST(.403,84,"AY",1,301,8,"N")="7^13^13^7^13"
^DIST(.403,84,"AY",1,301,9,"D")="15^1^78^9,301"
^DIST(.403,84,"AY",1,301,9,"N")="13^0^0^13^0"
^DIST(.403,84,"AY",1,301,10,"D")="4^15^40^.08"
^DIST(.403,84,"AY",1,301,10,"N")="1^5^5^1^5"
^DIST(.403,84,"AY",1,301,12,"D")="7^17^30^.16"
^DIST(.403,84,"AY",1,301,12,"N")="5^7^7^6^7"
^DIST(.403,84,"AY",1,301,13,"D")="12^16^1^13,301"
^DIST(.403,84,"AY",1,301,13,"N")="8^9^9^8^9"
^DIST(.403,84,"AY",1,"FIRST")="1,301"
^DIST(.403,84,"AY",2,0,0,"N")="1,303^1,303^1,303^4,303^1,303"
^DIST(.403,84,"AY",2,302)="4^4^53.79^^d^^^^0"
^DIST(.403,84,"AY",2,303)="7^6^53.796^^e^^3^^1^1"
^DIST(.403,84,"AY",2,303,1,"D")="7^6^30^.01"
^DIST(.403,84,"AY",2,303,1,"N")="0^0^0^0^0^1,-1^1,+1^2^4,-1^2"
^DIST(.403,84,"AY",2,303,2,"D")="7^38^6^.02^^^^^^1"
^DIST(.403,84,"AY",2,303,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,84,"AY",2,303,3,"D")="7^46^6^.03^^^^^^1"
^DIST(.403,84,"AY",2,303,3,"N")="0^0^0^2^0^3,-1^3,+1^4^2^4"
^DIST(.403,84,"AY",2,303,4,"D")="7^54^10^.04"
^DIST(.403,84,"AY",2,303,4,"N")="0^0^0^3^0^4,-1^4,+1^1,+1^3^1,+1"
^DIST(.403,84,"AY",2,"FIRST")="1,303"
^DIST(.403,84,"AY","CAP","ADDITIVES...",1,1,301,13)=""
^DIST(.403,84,"AY","CAP","ADMIN DATE/TIME",1,1,301,6)=""
^DIST(.403,84,"AY","CAP","ADMIN STATUS",1,1,301,5)=""
^DIST(.403,84,"AY","CAP","COMMENT (REQUIRED)",1,1,301,9)=""
^DIST(.403,84,"AY","CAP","INJECTION SITE",1,1,301,12)=""
^DIST(.403,84,"AY","CAP","MEDICATION",1,1,301,10)=""
^DIST(.403,84,"AY","CAP","PRN EFFECTIVENESS",1,1,301,8)=""
^DIST(.403,84,"AY","CAP","PRN REASON",1,1,301,7)=""
^DIST(.403,84,"AY","F0","13,301","L",1,301,13)=""
^DIST(.403,84,"AY","F0","9,301","L",1,301,9)=""
^DIST(.403,84,"AY","F53.79",.01,"L",1,301,1)=""
^DIST(.403,84,"AY","F53.79",.06,"L",1,301,6)=""
^DIST(.403,84,"AY","F53.79",.08,"L",1,301,10)=""
^DIST(.403,84,"AY","F53.79",.09,"L",1,301,5)=""
^DIST(.403,84,"AY","F53.79",.16,"L",1,301,12)=""
^DIST(.403,84,"AY","F53.79",.21,"L",1,301,7)=""
^DIST(.403,84,"AY","F53.79",.22,"L",1,301,8)=""
^DIST(.403,84,"AY","F53.796",.01,"L",2,303,1)=""
^DIST(.403,84,"AY","F53.796",.02,"L",2,303,2)=""
^DIST(.403,84,"AY","F53.796",.03,"L",2,303,3)=""
^DIST(.403,84,"AY","F53.796",.04,"L",2,303,4)=""
^DIST(.403,84,"AY","X",1,0,0)="Medication Log Manual Entry - IV Order"
^DIST(.403,84,"AY","X",1,3,1)="Patient:"
^DIST(.403,84,"AY","X",1,4,1)="Medication:"
^DIST(.403,84,"AY","X",1,4,1,"A")="1;10;U"
^DIST(.403,84,"AY","X",1,6,1)="Admin Status:            Admin Date/Time:"
^DIST(.403,84,"AY","X",1,6,1,"A")="1;12;U^26;40;U"
^DIST(.403,84,"AY","X",1,7,1)="Injection Site:"
^DIST(.403,84,"AY","X",1,9,1)="PRN Reason:"
^DIST(.403,84,"AY","X",1,10,1)="PRN Effectiveness:"
^DIST(.403,84,"AY","X",1,12,1)="Additives..."
^DIST(.403,84,"AY","X",1,14,1)="Comment (Required):"
^DIST(.403,84,"AY","X",1,14,1,"A")="1;18;U"
^DIST(.403,84,"AY","X",2,4,5)=" Additives "
^DIST(.403,84,"AY","X",2,5,39)="Units   Units"
^DIST(.403,84,"AY","X",2,6,6)="Additives                        Order   Given  Units"
^DIST(.403,85,0)="HL7 APP^@^@^^2990701.1504^^^771^0^0^1"
^DIST(.403,85,40,0)="^.4031I^1^1"
^DIST(.403,85,40,1,0)="1^^1,1"
^DIST(.403,85,40,1,1)="Page 1"
^DIST(.403,85,40,1,40,0)="^.4032IP^306^1"
^DIST(.403,85,40,1,40,306,0)="306^1^1,1^e"
^DIST(.403,85,40,1,40,"AC",1,306)=""
^DIST(.403,85,40,1,40,"B",306,306)=""
^DIST(.403,85,40,"B",1,1)=""
^DIST(.403,85,40,"C","PAGE 1",1)=""
^DIST(.403,85,"AY",1,0,0,"N")="8,306^2,306^2,306^8,306^2,306"
^DIST(.403,85,"AY",1,306)="0^0^771^^e^^^^2"
^DIST(.403,85,"AY",1,306,2,"D")="3^21^15^.01"
^DIST(.403,85,"AY",1,306,2,"N")="0^4^3^0^3"
^DIST(.403,85,"AY",1,306,3,"D")="3^68^8^2"
^DIST(.403,85,"AY",1,306,3,"N")="0^5^4^2^4"
^DIST(.403,85,"AY",1,306,4,"D")="6^21^20^3"
^DIST(.403,85,"AY",1,306,4,"N")="2^7^5^3^5"
^DIST(.403,85,"AY",1,306,5,"D")="6^68^3^7"
^DIST(.403,85,"AY",1,306,5,"N")="3^6^7^4^7"
^DIST(.403,85,"AY",1,306,6,"D")="9^68^4^101"
^DIST(.403,85,"AY",1,306,6,"N")="5^8^8^7^8"
^DIST(.403,85,"AY",1,306,7,"D")="9^21^1^100"
^DIST(.403,85,"AY",1,306,7,"N")="4^8^6^5^6"
^DIST(.403,85,"AY",1,306,8,"D")="12^21^30^4"
^DIST(.403,85,"AY",1,306,8,"N")="7^0^0^6^0"
^DIST(.403,85,"AY",1,"FIRST")="2,306"
^DIST(.403,85,"AY","CAP","ACTIVE/INACTIVE",1,1,306,3)=""
^DIST(.403,85,"AY","CAP","COUNTRY CODE",1,1,306,5)=""
^DIST(.403,85,"AY","CAP","FACILITY NAME",1,1,306,4)=""
^DIST(.403,85,"AY","CAP","HL7 ENCODING CHARACTERS",1,1,306,6)=""
^DIST(.403,85,"AY","CAP","HL7 FIELD SEPARATOR",1,1,306,7)=""
^DIST(.403,85,"AY","CAP","MAIL GROUP",1,1,306,8)=""
^DIST(.403,85,"AY","CAP","NAME",1,1,306,2)=""
^DIST(.403,85,"AY","F771",.01,"L",1,306,2)=""
^DIST(.403,85,"AY","F771",2,"L",1,306,3)=""
^DIST(.403,85,"AY","F771",3,"L",1,306,4)=""
^DIST(.403,85,"AY","F771",4,"L",1,306,8)=""
^DIST(.403,85,"AY","F771",7,"L",1,306,5)=""
^DIST(.403,85,"AY","F771",100,"L",1,306,7)=""
^DIST(.403,85,"AY","F771",101,"L",1,306,6)=""
^DIST(.403,85,"AY","X",1,0,27)="HL7 APPLICATION EDIT"
^DIST(.403,85,"AY","X",1,1,0)="--------------------------------------------------------------------------------"
^DIST(.403,85,"AY","X",1,3,15)="NAME:                               ACTIVE/INACTIVE:"
^DIST(.403,85,"AY","X",1,3,15,"A")="1;4;U"
^DIST(.403,85,"AY","X",1,6,6)="FACILITY NAME:                                  COUNTRY CODE:"
^DIST(.403,85,"AY","X",1,9,0)="HL7 FIELD SEPARATOR:                       HL7 ENCODING CHARACTERS:"
^DIST(.403,85,"AY","X",1,12,9)="MAIL GROUP:"
^DIST(.403,86,0)="HL7 LOGICAL LINK^@^@^^2990706.1207^^^870^0^0^1"
^DIST(.403,86,40,0)="^.4031I^5^5"
^DIST(.403,86,40,1,0)="1^^1,1"
^DIST(.403,86,40,1,1)="Page 1"
^DIST(.403,86,40,1,40,0)="^.4032IP^308^2"
^DIST(.403,86,40,1,40,307,0)="307^1^1,1^d"
^DIST(.403,86,40,1,40,308,0)="308^2^2,1^e"
^DIST(.403,86,40,1,40,"AC",1,307)=""
^DIST(.403,86,40,1,40,"AC",2,308)=""
^DIST(.403,86,40,1,40,"B",307,307)=""
^DIST(.403,86,40,1,40,"B",308,308)=""
^DIST(.403,86,40,2,0)="3^^3,3^^^1^14,77"
^DIST(.403,86,40,2,1)="Page 3"
^DIST(.403,86,40,2,40,0)="^.4032IP^309^1"
^DIST(.403,86,40,2,40,309,0)="309^1^1,2^e"
^DIST(.403,86,40,2,40,309,1)=""
^DIST(.403,86,40,2,40,"AC",1,309)=""
^DIST(.403,86,40,2,40,"B",309,309)=""
^DIST(.403,86,40,3,0)="5^^3,3^^^1^17,77"
^DIST(.403,86,40,3,1)="Page 5"
^DIST(.403,86,40,3,40,0)="^.4032IP^310^1"
^DIST(.403,86,40,3,40,310,0)="310^1^1,2^e"
^DIST(.403,86,40,3,40,310,1)=""
^DIST(.403,86,40,3,40,"AC",1,310)=""
^DIST(.403,86,40,3,40,"B",310,310)=""
^DIST(.403,86,40,4,0)="2^^3,3^^^1^7,77"
^DIST(.403,86,40,4,1)="Page 2"
^DIST(.403,86,40,4,40,0)="^.4032IP^311^1"
^DIST(.403,86,40,4,40,311,0)="311^1^1,2^e"
^DIST(.403,86,40,4,40,311,1)=""
^DIST(.403,86,40,4,40,"AC",1,311)=""
^DIST(.403,86,40,4,40,"B",311,311)=""
^DIST(.403,86,40,5,0)="4^^3,3^^^1^14,77"
^DIST(.403,86,40,5,1)="Page 4"
^DIST(.403,86,40,5,40,0)="^.4032IP^312^1"
^DIST(.403,86,40,5,40,312,0)="312^1^1,2^e"
^DIST(.403,86,40,5,40,312,1)=""
^DIST(.403,86,40,5,40,"AC",1,312)=""
^DIST(.403,86,40,5,40,"B",312,312)=""
^DIST(.403,86,40,"B",1,1)=""
^DIST(.403,86,40,"B",2,4)=""
^DIST(.403,86,40,"B",3,2)=""
^DIST(.403,86,40,"B",4,5)=""
^DIST(.403,86,40,"B",5,3)=""
^DIST(.403,86,40,"C","PAGE 1",1)=""
^DIST(.403,86,40,"C","PAGE 2",4)=""
^DIST(.403,86,40,"C","PAGE 3",2)=""
^DIST(.403,86,40,"C","PAGE 4",5)=""
^DIST(.403,86,40,"C","PAGE 5",3)=""
^DIST(.403,86,"AY",1,0,0,"N")="7,308^1,308^1,308^7,308^1,308"
^DIST(.403,86,"AY",1,307)="0^0^870^^d^^^^0"
^DIST(.403,86,"AY",1,308)="1^0^870^^e^^^^1"
^DIST(.403,86,"AY",1,308,1,"D")="4^22^10^.01"
^DIST(.403,86,"AY",1,308,1,"N")="0^2^8^0^2"
^DIST(.403,86,"AY",1,308,2,"D")="6^22^30^.02"
^DIST(.403,86,"AY",1,308,2,"N")="1^3^3^8^3"
^DIST(.403,86,"AY",1,308,3,"D")="8^22^30^.03"
^DIST(.403,86,"AY",1,308,3,"N")="2^5^5^2^5"
^DIST(.403,86,"AY",1,308,4,"D")="14^22^30^2"
^DIST(.403,86,"AY",1,308,4,"N")="6^7^7^6^7"
^DIST(.403,86,"AY",1,308,5,"D")="10^22^8^4.5"
^DIST(.403,86,"AY",1,308,5,"N")="3^6^6^3^6"
^DIST(.403,86,"AY",1,308,6,"D")="12^22^6^21"
^DIST(.403,86,"AY",1,308,6,"N")="5^4^4^5^4"
^DIST(.403,86,"AY",1,308,7,"D")="16^22^30^.08"
^DIST(.403,86,"AY",1,308,7,"N")="4^0^0^4^8"
^DIST(.403,86,"AY",1,308,8,"D")="4^66^1^1"
^DIST(.403,86,"AY",1,308,8,"N")="0^2^2^1^0^^^^^^1"
^DIST(.403,86,"AY",1,"FIRST")="1,308"
^DIST(.403,86,"AY",2,0,0,"N")="4,309^2,309^2,309^10,309^2,309"
^DIST(.403,86,"AY",2,309)="2^3^870^^e^^^^2"
^DIST(.403,86,"AY",2,309,2,"D")="3^26^30^.01"
^DIST(.403,86,"AY",2,309,2,"N")="0^5^5^0^5"
^DIST(.403,86,"AY",2,309,4,"D")="12^17^3^200.03"
^DIST(.403,86,"AY",2,309,4,"N")="8^0^10^9^10"
^DIST(.403,86,"AY",2,309,5,"D")="6^17^30^200.01"
^DIST(.403,86,"AY",2,309,5,"N")="2^7^11^2^11"
^DIST(.403,86,"AY",2,309,6,"D")="8^72^2^200.02"
^DIST(.403,86,"AY",2,309,6,"N")="11^9^8^7^8"
^DIST(.403,86,"AY",2,309,7,"D")="8^17^3^200.04"
^DIST(.403,86,"AY",2,309,7,"N")="5^8^6^11^6"
^DIST(.403,86,"AY",2,309,8,"D")="10^17^3^200.05"
^DIST(.403,86,"AY",2,309,8,"N")="7^4^9^6^9"
^DIST(.403,86,"AY",2,309,9,"D")="10^72^2^200.06"
^DIST(.403,86,"AY",2,309,9,"N")="6^10^4^8^4"
^DIST(.403,86,"AY",2,309,10,"D")="12^72^2^200.07"
^DIST(.403,86,"AY",2,309,10,"N")="9^0^0^4^0"
^DIST(.403,86,"AY",2,309,11,"D")="6^72^3^200.08"
^DIST(.403,86,"AY",2,309,11,"N")="2^6^7^5^7"
^DIST(.403,86,"AY",2,"FIRST")="2,309"
^DIST(.403,86,"AY",3,0,0,"N")="13,310^2,310^2,310^8,310^2,310"
^DIST(.403,86,"AY",3,310)="2^3^870^^e^^^^2"
^DIST(.403,86,"AY",3,310,2,"D")="3^25^30^.01"
^DIST(.403,86,"AY",3,310,2,"N")="0^11^11^0^11"
^DIST(.403,86,"AY",3,310,4,"D")="10^66^2^200.02"
^DIST(.403,86,"AY",3,310,4,"N")="17^15^6^7^6"
^DIST(.403,86,"AY",3,310,5,"D")="12^19^3^200.03"
^DIST(.403,86,"AY",3,310,5,"N")="6^18^16^15^16"
^DIST(.403,86,"AY",3,310,6,"D")="11^19^3^200.04"
^DIST(.403,86,"AY",3,310,6,"N")="7^5^15^4^15"
^DIST(.403,86,"AY",3,310,7,"D")="10^19^3^200.05"
^DIST(.403,86,"AY",3,310,7,"N")="17^6^4^17^4"
^DIST(.403,86,"AY",3,310,8,"D")="15^66^2^200.09"
^DIST(.403,86,"AY",3,310,8,"N")="12^0^0^13^18"
^DIST(.403,86,"AY",3,310,9,"D")="6^26^40^400.01"
^DIST(.403,86,"AY",3,310,9,"N")="11^10^10^11^10"
^DIST(.403,86,"AY",3,310,10,"D")="7^26^5^400.02"
^DIST(.403,86,"AY",3,310,10,"N")="9^17^17^9^17"
^DIST(.403,86,"AY",3,310,11,"D")="5^26^15^400.03"
^DIST(.403,86,"AY",3,310,11,"N")="2^9^9^2^9"
^DIST(.403,86,"AY",3,310,12,"D")="14^66^3^400.04"
^DIST(.403,86,"AY",3,310,12,"N")="18^8^13^14^13"
^DIST(.403,86,"AY",3,310,13,"D")="15^17^6^400.05"
^DIST(.403,86,"AY",3,310,13,"N")="14^0^8^12^8"
^DIST(.403,86,"AY",3,310,14,"D")="14^17^20^400.06"
^DIST(.403,86,"AY",3,310,14,"N")="18^13^12^18^12"
^DIST(.403,86,"AY",3,310,15,"D")="11^66^10^200.021"
^DIST(.403,86,"AY",3,310,15,"N")="4^16^5^6^5"
^DIST(.403,86,"AY",3,310,16,"D")="12^66^3^400.07"
^DIST(.403,86,"AY",3,310,16,"N")="15^18^18^5^14"
^DIST(.403,86,"AY",3,310,17,"D")="8^38^5^400.08"
^DIST(.403,86,"AY",3,310,17,"N")="10^7^7^10^7"
^DIST(.403,86,"AY",3,310,18,"D")="13^66^2^.09"
^DIST(.403,86,"AY",3,310,18,"N")="16^12^14^16^0"
^DIST(.403,86,"AY",3,"FIRST")="2,310"
^DIST(.403,86,"AY",4,0,0,"N")="4,311^5,311^5,311^4,311^4,311"
^DIST(.403,86,"AY",4,311)="2^3^870^^e^^^^4"
^DIST(.403,86,"AY",4,311,4,"D")="5^25^30^100.01"
^DIST(.403,86,"AY",4,311,4,"N")="5^0^0^5^5"
^DIST(.403,86,"AY",4,311,5,"D")="3^25^30^.01"
^DIST(.403,86,"AY",4,311,5,"N")="0^4^4^0^0"
^DIST(.403,86,"AY",4,"FIRST")="4,311"
^DIST(.403,86,"AY",5,0,0,"N")="8,312^2,312^2,312^10,312^2,312"
^DIST(.403,86,"AY",5,312)="2^3^870^^e^^^^2"
^DIST(.403,86,"AY",5,312,2,"D")="3^25^30^.01"
^DIST(.403,86,"AY",5,312,2,"N")="0^4^4^0^4"
^DIST(.403,86,"AY",5,312,4,"D")="6^26^30^300.01"
^DIST(.403,86,"AY",5,312,4,"N")="2^5^5^2^5"
^DIST(.403,86,"AY",5,312,5,"D")="8^26^5^300.02"
^DIST(.403,86,"AY",5,312,5,"N")="4^7^6^4^6"
^DIST(.403,86,"AY",5,312,6,"D")="8^71^3^300.03"
^DIST(.403,86,"AY",5,312,6,"N")="4^9^7^5^7"
^DIST(.403,86,"AY",5,312,7,"D")="10^26^2^300.04"
^DIST(.403,86,"AY",5,312,7,"N")="5^8^9^6^9"
^DIST(.403,86,"AY",5,312,8,"D")="12^26^2^300.05"
^DIST(.403,86,"AY",5,312,8,"N")="7^0^10^9^10"
^DIST(.403,86,"AY",5,312,9,"D")="10^71^2^300.06"
^DIST(.403,86,"AY",5,312,9,"N")="6^10^8^7^8"
^DIST(.403,86,"AY",5,312,10,"D")="12^71^3^300.07"
^DIST(.403,86,"AY",5,312,10,"N")="9^0^0^8^0"
^DIST(.403,86,"AY",5,"FIRST")="2,312"
^DIST(.403,86,"AY","CAP","ACK TIMEOUT",2,2,309,8)=""
^DIST(.403,86,"AY","CAP","ACK TIMEOUT",3,3,310,7)=""
^DIST(.403,86,"AY","CAP","AUTOSTART",1,1,308,5)=""
^DIST(.403,86,"AY","CAP","BLOCK SIZE",2,2,309,4)=""
^DIST(.403,86,"AY","CAP","BLOCK SIZE",3,3,310,5)=""
^DIST(.403,86,"AY","CAP","DESCRIPTION",1,1,308,8)=""
^DIST(.403,86,"AY","CAP","DIRECT CONNECT OPEN TIMEOUT",3,3,310,18)=""
^DIST(.403,86,"AY","CAP","DNS DOMAIN",1,1,308,7)=""
^DIST(.403,86,"AY","CAP","EXCEED RE-TRANSMIT ACTION",3,3,310,15)=""
^DIST(.403,86,"AY","CAP","HLLP DEVICE",2,2,309,5)=""
^DIST(.403,86,"AY","CAP","INSTITUTION",1,1,308,2)=""
^DIST(.403,86,"AY","CAP","LLP END BLOCK",2,2,309,10)=""
^DIST(.403,86,"AY","CAP","LLP START BLOCK",2,2,309,9)=""
^DIST(.403,86,"AY","CAP","LLP TYPE",1,1,308,4)=""
^DIST(.403,86,"AY","CAP","MAIL GROUP",4,4,311,4)=""
^DIST(.403,86,"AY","CAP","MAILMAN DOMAIN",1,1,308,3)=""
^DIST(.403,86,"AY","CAP","MAXIMUM BLOCK SIZE",5,5,312,6)=""
^DIST(.403,86,"AY","CAP","MAXIMUM MESSAGE SIZE",5,5,312,5)=""
^DIST(.403,86,"AY","CAP","NODE",1,1,308,1)=""
^DIST(.403,86,"AY","CAP","PERSISTENT",3,3,310,12)=""
^DIST(.403,86,"AY","CAP","PROTOCOL ID VERSION",2,2,309,11)=""
^DIST(.403,86,"AY","CAP","QUEUE SIZE",1,1,308,6)=""
^DIST(.403,86,"AY","CAP","RE-TRANSMISION ATTEMPTS",2,2,309,6)=""
^DIST(.403,86,"AY","CAP","RE-TRANSMISION ATTEMPTS",3,3,310,4)=""
^DIST(.403,86,"AY","CAP","READ TIMEOUT",2,2,309,7)=""
^DIST(.403,86,"AY","CAP","READ TIMEOUT",3,3,310,6)=""
^DIST(.403,86,"AY","CAP","RETENTION",3,3,310,13)=""
^DIST(.403,86,"AY","CAP","SAY HELO",3,3,310,16)=""
^DIST(.403,86,"AY","CAP","STARTUP NODE",3,3,310,14)=""
^DIST(.403,86,"AY","CAP","TCP/IP ADDRESS",3,3,310,9)=""
^DIST(.403,86,"AY","CAP","TCP/IP PORT",3,3,310,10)=""
^DIST(.403,86,"AY","CAP","TCP/IP PORT (OPTIMIZED)",3,3,310,17)=""
^DIST(.403,86,"AY","CAP","TCP/IP SERVICE TYPE",3,3,310,11)=""
^DIST(.403,86,"AY","CAP","TIMER A",5,5,312,7)=""
^DIST(.403,86,"AY","CAP","TIMER B",5,5,312,8)=""
^DIST(.403,86,"AY","CAP","TIMER D",5,5,312,9)=""
^DIST(.403,86,"AY","CAP","TIMER E",5,5,312,10)=""
^DIST(.403,86,"AY","CAP","UNI-DIRECTIONAL WAIT",3,3,310,8)=""
^DIST(.403,86,"AY","CAP","X3.28 DEVICE",5,5,312,4)=""
^DIST(.403,86,"AY","F870",.01,"L",1,308,1)=""
^DIST(.403,86,"AY","F870",.01,"L",2,309,2)=""
^DIST(.403,86,"AY","F870",.01,"L",3,310,2)=""
^DIST(.403,86,"AY","F870",.01,"L",4,311,5)=""
^DIST(.403,86,"AY","F870",.01,"L",5,312,2)=""
^DIST(.403,86,"AY","F870",.02,"L",1,308,2)=""
^DIST(.403,86,"AY","F870",.03,"L",1,308,3)=""
^DIST(.403,86,"AY","F870",.08,"L",1,308,7)=""
^DIST(.403,86,"AY","F870",.09,"L",3,310,18)=""
^DIST(.403,86,"AY","F870",1,"L",1,308,8)=""
^DIST(.403,86,"AY","F870",2,"L",1,308,4)=""
^DIST(.403,86,"AY","F870",4.5,"L",1,308,5)=""
^DIST(.403,86,"AY","F870",21,"L",1,308,6)=""
^DIST(.403,86,"AY","F870",100.01,"L",4,311,4)=""
^DIST(.403,86,"AY","F870",200.01,"L",2,309,5)=""
^DIST(.403,86,"AY","F870",200.02,"L",2,309,6)=""
^DIST(.403,86,"AY","F870",200.02,"L",3,310,4)=""
^DIST(.403,86,"AY","F870",200.021,"L",3,310,15)=""
^DIST(.403,86,"AY","F870",200.03,"L",2,309,4)=""
^DIST(.403,86,"AY","F870",200.03,"L",3,310,5)=""
^DIST(.403,86,"AY","F870",200.04,"L",2,309,7)=""
^DIST(.403,86,"AY","F870",200.04,"L",3,310,6)=""
^DIST(.403,86,"AY","F870",200.05,"L",2,309,8)=""
^DIST(.403,86,"AY","F870",200.05,"L",3,310,7)=""
^DIST(.403,86,"AY","F870",200.06,"L",2,309,9)=""
^DIST(.403,86,"AY","F870",200.07,"L",2,309,10)=""
^DIST(.403,86,"AY","F870",200.08,"L",2,309,11)=""
^DIST(.403,86,"AY","F870",200.09,"L",3,310,8)=""
^DIST(.403,86,"AY","F870",300.01,"L",5,312,4)=""
^DIST(.403,86,"AY","F870",300.02,"L",5,312,5)=""
^DIST(.403,86,"AY","F870",300.03,"L",5,312,6)=""
^DIST(.403,86,"AY","F870",300.04,"L",5,312,7)=""
^DIST(.403,86,"AY","F870",300.05,"L",5,312,8)=""
^DIST(.403,86,"AY","F870",300.06,"L",5,312,9)=""
^DIST(.403,86,"AY","F870",300.07,"L",5,312,10)=""
^DIST(.403,86,"AY","F870",400.01,"L",3,310,9)=""
^DIST(.403,86,"AY","F870",400.02,"L",3,310,10)=""
^DIST(.403,86,"AY","F870",400.03,"L",3,310,11)=""
^DIST(.403,86,"AY","F870",400.04,"L",3,310,12)=""
^DIST(.403,86,"AY","F870",400.05,"L",3,310,13)=""
^DIST(.403,86,"AY","F870",400.06,"L",3,310,14)=""
^DIST(.403,86,"AY","F870",400.07,"L",3,310,16)=""
^DIST(.403,86,"AY","F870",400.08,"L",3,310,17)=""
^DIST(.403,86,"AY","X",1,0,26)="HL7 LOGICAL LINK"
^DIST(.403,86,"AY","X",1,1,0)="--------------------------------------------------------------------------------"
^DIST(.403,86,"AY","X",1,4,16)="NODE:                                DESCRIPTION:"
^DIST(.403,86,"AY","X",1,4,16,"A")="1;4;U"
^DIST(.403,86,"AY","X",1,6,9)="INSTITUTION:"
^DIST(.403,86,"AY","X",1,8,6)="MAILMAN DOMAIN:"
^DIST(.403,86,"AY","X",1,10,11)="AUTOSTART:"
^DIST(.403,86,"AY","X",1,12,10)="QUEUE SIZE:"
^DIST(.403,86,"AY","X",1,14,12)="LLP TYPE:"
^DIST(.403,86,"AY","X",1,14,12,"A")="1;8;U"
^DIST(.403,86,"AY","X",1,16,10)="DNS DOMAIN:"
^DIST(.403,86,"AY","X",2,2,26)="HLLP LOWER LEVEL PARAMETERS"
^DIST(.403,86,"AY","X",2,6,4)="HLLP DEVICE:                                   PROTOCOL ID VERSION:"
^DIST(.403,86,"AY","X",2,8,3)="READ TIMEOUT:                               RE-TRANSMISION ATTEMPTS:"
^DIST(.403,86,"AY","X",2,10,4)="ACK TIMEOUT:                                       LLP START BLOCK:"
^DIST(.403,86,"AY","X",2,12,5)="BLOCK SIZE:                                         LLP END BLOCK:"
^DIST(.403,86,"AY","X",3,2,25)="TCP LOWER LEVEL PARAMETERS"
^DIST(.403,86,"AY","X",3,5,5)="TCP/IP SERVICE TYPE:"
^DIST(.403,86,"AY","X",3,6,10)="TCP/IP ADDRESS:"
^DIST(.403,86,"AY","X",3,7,13)="TCP/IP PORT:"
^DIST(.403,86,"AY","X",3,8,13)="TCP/IP PORT (OPTIMIZED):"
^DIST(.403,86,"AY","X",3,10,6)="ACK TIMEOUT:                       RE-TRANSMISION ATTEMPTS:"
^DIST(.403,86,"AY","X",3,11,5)="READ TIMEOUT:                     EXCEED RE-TRANSMIT ACTION:"
^DIST(.403,86,"AY","X",3,12,7)="BLOCK SIZE:                                      SAY HELO:"
^DIST(.403,86,"AY","X",3,13,37)="DIRECT CONNECT OPEN TIMEOUT:"
^DIST(.403,86,"AY","X",3,14,3)="STARTUP NODE:                                      PERSISTENT:"
^DIST(.403,86,"AY","X",3,15,6)="RETENTION:                            UNI-DIRECTIONAL WAIT:"
^DIST(.403,86,"AY","X",4,2,25)="MAILMAN LOWER LEVEL PARAMETERS"
^DIST(.403,86,"AY","X",4,5,13)="MAIL GROUP:"
^DIST(.403,86,"AY","X",5,2,25)="X3.28 LOWER LEVEL PARAMETERS"
^DIST(.403,86,"AY","X",5,6,12)="X3.28 DEVICE:"
^DIST(.403,86,"AY","X",5,8,4)="MAXIMUM MESSAGE SIZE:                          MAXIMUM BLOCK SIZE:"
^DIST(.403,86,"AY","X",5,10,17)="TIMER A:                                     TIMER D:"
^DIST(.403,86,"AY","X",5,12,17)="TIMER B:                                     TIMER E:"
^DIST(.403,87,0)="HL7 INTERFACE^@^@^^2990709.0839^3071212.2257^^101^0^0^1"
^DIST(.403,87,11)=""
^DIST(.403,87,14)=""
^DIST(.403,87,40,0)="^.4031I^6^6"
^DIST(.403,87,40,1,0)="1^^1,1"
^DIST(.403,87,40,1,1)="Page 1"
^DIST(.403,87,40,1,40,0)="^.4032IP^314^2"
^DIST(.403,87,40,1,40,313,0)="313^1^1,1^d"
^DIST(.403,87,40,1,40,314,0)="314^2^3,1^e"
^DIST(.403,87,40,1,40,"AC",1,313)=""
^DIST(.403,87,40,1,40,"AC",2,314)=""
^DIST(.403,87,40,1,40,"B",313,313)=""
^DIST(.403,87,40,1,40,"B",314,314)=""
^DIST(.403,87,40,2,0)="2^^1,1^^1"
^DIST(.403,87,40,2,1)="Page 2"
^DIST(.403,87,40,2,40,0)="^.4032IP^317^2"
^DIST(.403,87,40,2,40,315,0)="315^1^1,2^e"
^DIST(.403,87,40,2,40,317,0)="317^2^12,2^e"
^DIST(.403,87,40,2,40,317,2)="5^^^0"
^DIST(.403,87,40,2,40,317,11)=""
^DIST(.403,87,40,2,40,"AC",1,315)=""
^DIST(.403,87,40,2,40,"AC",2,317)=""
^DIST(.403,87,40,2,40,"B",315,315)=""
^DIST(.403,87,40,2,40,"B",317,317)=""
^DIST(.403,87,40,3,0)="3^^1,1^^1"
^DIST(.403,87,40,3,1)="Page 3"
^DIST(.403,87,40,3,40,0)="^.4032IP^316^1"
^DIST(.403,87,40,3,40,316,0)="316^1^1,2^e"
^DIST(.403,87,40,3,40,"AC",1,316)=""
^DIST(.403,87,40,3,40,"B",316,316)=""
^DIST(.403,87,40,4,0)="4^^2,4^^^1^17,77"
^DIST(.403,87,40,4,1)="Page 4^"
^DIST(.403,87,40,4,40,0)="^.4032IP^318^1"
^DIST(.403,87,40,4,40,318,0)="318^1^1,1^e"
^DIST(.403,87,40,4,40,318,1)="775:.01"
^DIST(.403,87,40,4,40,318,11)="D PUT^DDSVAL(""^ORD(101,"",.DA,4,""S"","""",""I"")"
^DIST(.403,87,40,4,40,"AC",1,318)=""
^DIST(.403,87,40,4,40,"B",318,318)=""
^DIST(.403,87,40,5,0)="5^^4,3^^^1^15,77"
^DIST(.403,87,40,5,1)="Page 5"
^DIST(.403,87,40,5,40,0)="^.4032IP^319^1"
^DIST(.403,87,40,5,40,319,0)="319^1^1,1^e"
^DIST(.403,87,40,5,40,319,1)="770.1:"
^DIST(.403,87,40,5,40,"AC",1,319)=""
^DIST(.403,87,40,5,40,"B",319,319)=""
^DIST(.403,87,40,6,0)="6^^3,3^^^1^10,77"
^DIST(.403,87,40,6,1)="Page 6"
^DIST(.403,87,40,6,40,0)="^.4032IP^320^1"
^DIST(.403,87,40,6,40,320,0)="320^1^1,1^e"
^DIST(.403,87,40,6,40,320,1)="770.2:"
^DIST(.403,87,40,6,40,"AC",1,320)=""
^DIST(.403,87,40,6,40,"B",320,320)=""
^DIST(.403,87,40,"B",1,1)=""
^DIST(.403,87,40,"B",2,2)=""
^DIST(.403,87,40,"B",3,3)=""
^DIST(.403,87,40,"B",4,4)=""
^DIST(.403,87,40,"B",5,5)=""
^DIST(.403,87,40,"B",6,6)=""
^DIST(.403,87,40,"C","PAGE 1",1)=""
^DIST(.403,87,40,"C","PAGE 2",2)=""
^DIST(.403,87,40,"C","PAGE 3",3)=""
^DIST(.403,87,40,"C","PAGE 4",4)=""
^DIST(.403,87,40,"C","PAGE 5",5)=""
^DIST(.403,87,40,"C","PAGE 6",6)=""
^DIST(.403,87,"AY",1,0,0,"N")="6,314^1,314^1,314^6,314^1,314"
^DIST(.403,87,"AY",1,313)="0^0^101^^d^^^^0"
^DIST(.403,87,"AY",1,314)="2^0^101^^e^^^^1"
^DIST(.403,87,"AY",1,314,1,"D")="3^18^55^.01"
^DIST(.403,87,"AY",1,314,1,"N")="0^2^2^0^2"
^DIST(.403,87,"AY",1,314,2,"D")="5^18^1^3.5"
^DIST(.403,87,"AY",1,314,2,"N")="1^3^3^1^3^^^^^^1"
^DIST(.403,87,"AY",1,314,3,"D")="8^14^64^20"
^DIST(.403,87,"AY",1,314,3,"N")="2^4^4^2^4"
^DIST(.403,87,"AY",1,314,4,"D")="10^14^64^15"
^DIST(.403,87,"AY",1,314,4,"N")="3^6^6^3^6"
^DIST(.403,87,"AY",1,314,6,"D")="13^14^15^6,314"
^DIST(.403,87,"AY",1,314,6,"N")="4^0^0^4^0"
^DIST(.403,87,"AY",1,314,7,"D")="^^^^5^20^^0"
^DIST(.403,87,"AY",1,"FIRST")="1,314"
^DIST(.403,87,"AY",2,0,0,"N")="1,317^14,315^14,315^1,317^14,315"
^DIST(.403,87,"AY",2,315)="0^1^101^^e^^^^14"
^DIST(.403,87,"AY",2,315,1,"D")="3^27^15^770.1"
^DIST(.403,87,"AY",2,315,1,"N")="14^2^2^14^2"
^DIST(.403,87,"AY",2,315,2,"D")="4^27^3^770.3"
^DIST(.403,87,"AY",2,315,2,"N")="1^15^3^1^3"
^DIST(.403,87,"AY",2,315,3,"D")="4^66^3^770.4"
^DIST(.403,87,"AY",2,315,3,"N")="1^15^15^2^15"
^DIST(.403,87,"AY",2,315,4,"D")="6^27^10^770.6"
^DIST(.403,87,"AY",2,315,4,"N")="15^5^7^15^7"
^DIST(.403,87,"AY",2,315,5,"D")="7^27^2^770.8"
^DIST(.403,87,"AY",2,315,5,"N")="4^8^6^7^6"
^DIST(.403,87,"AY",2,315,6,"D")="7^66^2^770.9"
^DIST(.403,87,"AY",2,315,6,"N")="7^8^8^5^8"
^DIST(.403,87,"AY",2,315,7,"D")="6^66^8^770.95"
^DIST(.403,87,"AY",2,315,7,"N")="15^6^5^4^5"
^DIST(.403,87,"AY",2,315,8,"D")="9^26^53^772"
^DIST(.403,87,"AY",2,315,8,"N")="5^1,317^1,317^6^1,317"
^DIST(.403,87,"AY",2,315,14,"D")="1^25^30^.01"
^DIST(.403,87,"AY",2,315,14,"N")="0^1^1^0^1"
^DIST(.403,87,"AY",2,315,15,"D")="5^27^10^770.5"
^DIST(.403,87,"AY",2,315,15,"N")="2^4^4^3^4"
^DIST(.403,87,"AY",2,317)="11^1^101.0775^^e^^5^^1^1"
^DIST(.403,87,"AY",2,317,1,"D")="11^2^63^.01"
^DIST(.403,87,"AY",2,317,1,"N")="8,315^0^0^8,315^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,87,"AY",2,"FIRST")="14,315"
^DIST(.403,87,"AY",3,0,0,"N")="10,316^9,316^9,316^10,316^9,316"
^DIST(.403,87,"AY",3,316)="0^1^101^^e^^^^9"
^DIST(.403,87,"AY",3,316,1,"D")="6^29^3^770.11"
^DIST(.403,87,"AY",3,316,1,"N")="2^11^3^2^3"
^DIST(.403,87,"AY",3,316,2,"D")="4^29^15^770.2"
^DIST(.403,87,"AY",3,316,2,"N")="9^1^1^9^1"
^DIST(.403,87,"AY",3,316,3,"D")="6^72^3^770.4"
^DIST(.403,87,"AY",3,316,3,"N")="2^12^11^1^11"
^DIST(.403,87,"AY",3,316,4,"D")="12^29^10^770.7"
^DIST(.403,87,"AY",3,316,4,"N")="14^5^5^14^5"
^DIST(.403,87,"AY",3,316,5,"D")="14^17^61^771"
^DIST(.403,87,"AY",3,316,5,"N")="4^10^10^4^10"
^DIST(.403,87,"AY",3,316,9,"D")="1^27^30^.01"
^DIST(.403,87,"AY",3,316,9,"N")="0^2^2^0^2"
^DIST(.403,87,"AY",3,316,10,"D")="16^17^61^774"
^DIST(.403,87,"AY",3,316,10,"N")="5^0^0^5^0"
^DIST(.403,87,"AY",3,316,11,"D")="8^29^3^773.1"
^DIST(.403,87,"AY",3,316,11,"N")="1^14^12^3^12"
^DIST(.403,87,"AY",3,316,12,"D")="8^72^3^773.2"
^DIST(.403,87,"AY",3,316,12,"N")="3^14^14^11^14"
^DIST(.403,87,"AY",3,316,14,"D")="10^29^3^773.3"
^DIST(.403,87,"AY",3,316,14,"N")="11^4^4^12^4"
^DIST(.403,87,"AY",3,"FIRST")="9,316"
^DIST(.403,87,"AY",4,0,0,"N")="9,318^7,318^7,318^9,318^7,318"
^DIST(.403,87,"AY",4,318)="1^3^101^^e^^^1^7"
^DIST(.403,87,"AY",4,318,2,"D")="4^32^15^770.2"
^DIST(.403,87,"AY",4,318,2,"N")="7^3^3^7^3"
^DIST(.403,87,"AY",4,318,3,"D")="6^32^3^770.11"
^DIST(.403,87,"AY",4,318,3,"N")="2^10^4^2^4"
^DIST(.403,87,"AY",4,318,4,"D")="6^72^3^770.4"
^DIST(.403,87,"AY",4,318,4,"N")="2^11^10^3^10"
^DIST(.403,87,"AY",4,318,5,"D")="12^32^10^770.7"
^DIST(.403,87,"AY",4,318,5,"N")="12^6^6^12^6"
^DIST(.403,87,"AY",4,318,6,"D")="14^21^54^771"
^DIST(.403,87,"AY",4,318,6,"N")="5^9^9^5^9"
^DIST(.403,87,"AY",4,318,7,"D")="2^27^30^.01"
^DIST(.403,87,"AY",4,318,7,"N")="0^2^2^0^2"
^DIST(.403,87,"AY",4,318,9,"D")="15^21^54^774"
^DIST(.403,87,"AY",4,318,9,"N")="6^0^0^6^0"
^DIST(.403,87,"AY",4,318,10,"D")="8^32^3^773.1"
^DIST(.403,87,"AY",4,318,10,"N")="3^12^11^4^11"
^DIST(.403,87,"AY",4,318,11,"D")="8^72^3^773.2"
^DIST(.403,87,"AY",4,318,11,"N")="4^12^12^10^12"
^DIST(.403,87,"AY",4,318,12,"D")="10^32^3^773.3"
^DIST(.403,87,"AY",4,318,12,"N")="10^5^5^11^5"
^DIST(.403,87,"AY",4,318,"PTB")="101.0775,.01"
^DIST(.403,87,"AY",4,318,"PTB",1)="S X=$$GET^DDSVAL(101.0775,.DA,.01),DA=X"
^DIST(.403,87,"AY",4,"FIRST")="7,318"
^DIST(.403,87,"AY",5,0,0,"N")="8,319^2,319^2,319^8,319^2,319"
^DIST(.403,87,"AY",5,319)="3^2^771^^e^^^1^2"
^DIST(.403,87,"AY",5,319,2,"D")="5^24^15^.01"
^DIST(.403,87,"AY",5,319,2,"N")="0^4^3^0^3"
^DIST(.403,87,"AY",5,319,3,"D")="5^68^8^2"
^DIST(.403,87,"AY",5,319,3,"N")="0^5^4^2^4"
^DIST(.403,87,"AY",5,319,4,"D")="7^24^20^3"
^DIST(.403,87,"AY",5,319,4,"N")="2^6^5^3^5"
^DIST(.403,87,"AY",5,319,5,"D")="7^68^3^7"
^DIST(.403,87,"AY",5,319,5,"N")="3^7^6^4^6"
^DIST(.403,87,"AY",5,319,6,"D")="9^24^1^100"
^DIST(.403,87,"AY",5,319,6,"N")="4^8^7^5^7"
^DIST(.403,87,"AY",5,319,7,"D")="9^68^4^101"
^DIST(.403,87,"AY",5,319,7,"N")="5^8^8^6^8"
^DIST(.403,87,"AY",5,319,8,"D")="12^24^30^4"
^DIST(.403,87,"AY",5,319,8,"N")="6^0^0^7^0"
^DIST(.403,87,"AY",5,319,"PTB")="101,770.1"
^DIST(.403,87,"AY",5,319,"PTB",1)="S X=$$GET^DDSVAL(101,.DA,770.1),DA=X"
^DIST(.403,87,"AY",5,"FIRST")="2,319"
^DIST(.403,87,"AY",6,0,0,"N")="8,320^2,320^2,320^8,320^2,320"
^DIST(.403,87,"AY",6,320)="2^2^771^^e^^^1^2"
^DIST(.403,87,"AY",6,320,2,"D")="4^18^15^.01"
^DIST(.403,87,"AY",6,320,2,"N")="0^4^3^0^3"
^DIST(.403,87,"AY",6,320,3,"D")="4^67^8^2"
^DIST(.403,87,"AY",6,320,3,"N")="0^5^4^2^4"
^DIST(.403,87,"AY",6,320,4,"D")="6^18^20^3"
^DIST(.403,87,"AY",6,320,4,"N")="2^8^5^3^5"
^DIST(.403,87,"AY",6,320,5,"D")="6^67^3^7"
^DIST(.403,87,"AY",6,320,5,"N")="3^8^8^4^8"
^DIST(.403,87,"AY",6,320,8,"D")="8^18^30^4"
^DIST(.403,87,"AY",6,320,8,"N")="4^0^0^5^0"
^DIST(.403,87,"AY",6,320,"PTB")="101,770.2"
^DIST(.403,87,"AY",6,320,"PTB",1)="S X=$$GET^DDSVAL(101,.DA,770.2),DA=X"
^DIST(.403,87,"AY",6,"FIRST")="2,320"
^DIST(.403,87,"AY","CAP","ACCEPT ACK CODE","2^1",2,315,5)=""
^DIST(.403,87,"AY","CAP","ACTIVE/INACTIVE",5,5,319,3)=""
^DIST(.403,87,"AY","CAP","ACTIVE/INACTIVE",6,6,320,3)=""
^DIST(.403,87,"AY","CAP","APPLICATION ACK TYPE","2^1",2,315,6)=""
^DIST(.403,87,"AY","CAP","COUNTRY CODE",5,5,319,5)=""
^DIST(.403,87,"AY","CAP","COUNTRY CODE",6,6,320,5)=""
^DIST(.403,87,"AY","CAP","DESCRIPTION (WP)",1,1,314,2)=""
^DIST(.403,87,"AY","CAP","ENTRY ACTION",1,1,314,3)=""
^DIST(.403,87,"AY","CAP","EVENT TYPE",4,4,318,4)=""
^DIST(.403,87,"AY","CAP","EVENT TYPE","2^1",2,315,3)=""
^DIST(.403,87,"AY","CAP","EVENT TYPE","3^1",3,316,3)=""
^DIST(.403,87,"AY","CAP","EXIT ACTION",1,1,314,4)=""
^DIST(.403,87,"AY","CAP","FACILITY NAME",5,5,319,4)=""
^DIST(.403,87,"AY","CAP","FACILITY NAME",6,6,320,4)=""
^DIST(.403,87,"AY","CAP","HL7 ENCODING CHARACTERS",5,5,319,7)=""
^DIST(.403,87,"AY","CAP","HL7 FIELD SEPARATOR",5,5,319,6)=""
^DIST(.403,87,"AY","CAP","LOGICAL LINK",4,4,318,5)=""
^DIST(.403,87,"AY","CAP","LOGICAL LINK","3^1",3,316,4)=""
^DIST(.403,87,"AY","CAP","MAIL GROUP",5,5,319,8)=""
^DIST(.403,87,"AY","CAP","MAIL GROUP",6,6,320,8)=""
^DIST(.403,87,"AY","CAP","MESSAGE STRUCTURE","2^1",2,315,15)=""
^DIST(.403,87,"AY","CAP","NAME",1,1,314,1)=""
^DIST(.403,87,"AY","CAP","NAME",5,5,319,2)=""
^DIST(.403,87,"AY","CAP","NAME",6,6,320,2)=""
^DIST(.403,87,"AY","CAP","PROCESSING ID","2^1",2,315,4)=""
^DIST(.403,87,"AY","CAP","PROCESSING RTN",4,4,318,6)=""
^DIST(.403,87,"AY","CAP","PROCESSING RTN","3^1",3,316,5)=""
^DIST(.403,87,"AY","CAP","RECEIVING APPLICATION",4,4,318,2)=""
^DIST(.403,87,"AY","CAP","RECEIVING APPLICATION","3^1",3,316,2)=""
^DIST(.403,87,"AY","CAP","RECEIVING FACILITY REQUIRED?",4,4,318,11)=""
^DIST(.403,87,"AY","CAP","RECEIVING FACILITY REQUIRED?","3^1",3,316,12)=""
^DIST(.403,87,"AY","CAP","RESPONSE MESSAGE TYPE",4,4,318,3)=""
^DIST(.403,87,"AY","CAP","RESPONSE MESSAGE TYPE","3^1",3,316,1)=""
^DIST(.403,87,"AY","CAP","RESPONSE PROCESSING RTN","2^1",2,315,8)=""
^DIST(.403,87,"AY","CAP","ROUTING LOGIC",4,4,318,9)=""
^DIST(.403,87,"AY","CAP","ROUTING LOGIC","3^1",3,316,10)=""
^DIST(.403,87,"AY","CAP","SECURITY REQUIRED?",4,4,318,12)=""
^DIST(.403,87,"AY","CAP","SECURITY REQUIRED?","3^1",3,316,14)=""
^DIST(.403,87,"AY","CAP","SENDING APPLICATION","2^1",2,315,1)=""
^DIST(.403,87,"AY","CAP","SENDING FACILITY REQUIRED?",4,4,318,10)=""
^DIST(.403,87,"AY","CAP","SENDING FACILITY REQUIRED?","3^1",3,316,11)=""
^DIST(.403,87,"AY","CAP","TRANSACTION MESSAGE TYPE","2^1",2,315,2)=""
^DIST(.403,87,"AY","CAP","TYPE",1,1,314,6)=""
^DIST(.403,87,"AY","CAP","VERSION ID","2^1",2,315,7)=""
^DIST(.403,87,"AY","F0","6,314","L",1,314,6)=""
^DIST(.403,87,"AY","F101",.01,"L",1,314,1)=""
^DIST(.403,87,"AY","F101",.01,"L",2,315,14)=""
^DIST(.403,87,"AY","F101",.01,"L",3,316,9)=""
^DIST(.403,87,"AY","F101",.01,"L",4,318,7)=""
^DIST(.403,87,"AY","F101",3.5,"L",1,314,2)=""
^DIST(.403,87,"AY","F101",15,"L",1,314,4)=""
^DIST(.403,87,"AY","F101",20,"L",1,314,3)=""
^DIST(.403,87,"AY","F101",770.1,"L",2,315,1)=""
^DIST(.403,87,"AY","F101",770.11,"L",3,316,1)=""
^DIST(.403,87,"AY","F101",770.11,"L",4,318,3)=""
^DIST(.403,87,"AY","F101",770.2,"L",3,316,2)=""
^DIST(.403,87,"AY","F101",770.2,"L",4,318,2)=""
^DIST(.403,87,"AY","F101",770.3,"L",2,315,2)=""
^DIST(.403,87,"AY","F101",770.4,"L",2,315,3)=""
^DIST(.403,87,"AY","F101",770.4,"L",3,316,3)=""
^DIST(.403,87,"AY","F101",770.4,"L",4,318,4)=""
^DIST(.403,87,"AY","F101",770.5,"L",2,315,15)=""
^DIST(.403,87,"AY","F101",770.6,"L",2,315,4)=""
^DIST(.403,87,"AY","F101",770.7,"L",3,316,4)=""
^DIST(.403,87,"AY","F101",770.7,"L",4,318,5)=""
^DIST(.403,87,"AY","F101",770.8,"L",2,315,5)=""
^DIST(.403,87,"AY","F101",770.9,"L",2,315,6)=""
^DIST(.403,87,"AY","F101",770.95,"L",2,315,7)=""
^DIST(.403,87,"AY","F101",771,"L",3,316,5)=""
^DIST(.403,87,"AY","F101",771,"L",4,318,6)=""
^DIST(.403,87,"AY","F101",772,"L",2,315,8)=""
^DIST(.403,87,"AY","F101",773.1,"L",3,316,11)=""
^DIST(.403,87,"AY","F101",773.1,"L",4,318,10)=""
^DIST(.403,87,"AY","F101",773.2,"L",3,316,12)=""
^DIST(.403,87,"AY","F101",773.2,"L",4,318,11)=""
^DIST(.403,87,"AY","F101",773.3,"L",3,316,14)=""
^DIST(.403,87,"AY","F101",773.3,"L",4,318,12)=""
^DIST(.403,87,"AY","F101",774,"L",3,316,10)=""
^DIST(.403,87,"AY","F101",774,"L",4,318,9)=""
^DIST(.403,87,"AY","F101.0775",.01,"L",2,317,1)=""
^DIST(.403,87,"AY","F771",.01,"L",5,319,2)=""
^DIST(.403,87,"AY","F771",.01,"L",6,320,2)=""
^DIST(.403,87,"AY","F771",2,"L",5,319,3)=""
^DIST(.403,87,"AY","F771",2,"L",6,320,3)=""
^DIST(.403,87,"AY","F771",3,"L",5,319,4)=""
^DIST(.403,87,"AY","F771",3,"L",6,320,4)=""
^DIST(.403,87,"AY","F771",4,"L",5,319,8)=""
^DIST(.403,87,"AY","F771",4,"L",6,320,8)=""
^DIST(.403,87,"AY","F771",7,"L",5,319,5)=""
^DIST(.403,87,"AY","F771",7,"L",6,320,5)=""
^DIST(.403,87,"AY","F771",100,"L",5,319,6)=""
^DIST(.403,87,"AY","F771",101,"L",5,319,7)=""
^DIST(.403,87,"AY","PT",101,770.1,5,319)=""
^DIST(.403,87,"AY","PT",101,770.2,6,320)=""
^DIST(.403,87,"AY","PT",101.0775,.01,4,318)=""
^DIST(.403,87,"AY","X",1,0,23)="HL7 INTERFACE SETUP                         PAGE 1 OF 2"
^DIST(.403,87,"AY","X",1,1,0)="--------------------------------------------------------------------------------"
^DIST(.403,87,"AY","X",1,3,12)="NAME:"
^DIST(.403,87,"AY","X",1,5,0)="DESCRIPTION (wp):"
^DIST(.403,87,"AY","X",1,8,0)="ENTRY ACTION:"
^DIST(.403,87,"AY","X",1,10,1)="EXIT ACTION:"
^DIST(.403,87,"AY","X",1,13,8)="TYPE:"
^DIST(.403,87,"AY","X",1,13,8,"A")="1;4;U"
^DIST(.403,87,"AY","X",2,0,26)="HL7 EVENT DRIVER                         PAGE 2 OF 2"
^DIST(.403,87,"AY","X",2,2,0)="--------------------------------------------------------------------------------"
^DIST(.403,87,"AY","X",2,3,6)="SENDING APPLICATION:"
^DIST(.403,87,"AY","X",2,3,6,"A")="1;19;U"
^DIST(.403,87,"AY","X",2,4,1)="TRANSACTION MESSAGE TYPE:                            EVENT TYPE:"
^DIST(.403,87,"AY","X",2,4,1,"A")="1;24;U"
^DIST(.403,87,"AY","X",2,5,8)="MESSAGE STRUCTURE:"
^DIST(.403,87,"AY","X",2,6,12)="PROCESSING ID:                            VERSION ID:"
^DIST(.403,87,"AY","X",2,6,12,"A")="43;52;U"
^DIST(.403,87,"AY","X",2,7,10)="ACCEPT ACK CODE:                  APPLICATION ACK TYPE:"
^DIST(.403,87,"AY","X",2,9,1)="RESPONSE PROCESSING RTN:"
^DIST(.403,87,"AY","X",2,10,27)="SUBSCRIBERS"
^DIST(.403,87,"AY","X",3,0,28)="HL7 SUBSCRIBER                         PAGE 2 OF 2"
^DIST(.403,87,"AY","X",3,2,0)="--------------------------------------------------------------------------------"
^DIST(.403,87,"AY","X",3,4,6)="RECEIVING APPLICATION:"
^DIST(.403,87,"AY","X",3,4,6,"A")="1;21;U"
^DIST(.403,87,"AY","X",3,6,6)="RESPONSE MESSAGE TYPE:                                EVENT TYPE:"
^DIST(.403,87,"AY","X",3,6,6,"A")="1;21;U"
^DIST(.403,87,"AY","X",3,8,1)="SENDING FACILITY REQUIRED?:              RECEIVING FACILITY REQUIRED?:"
^DIST(.403,87,"AY","X",3,10,9)="SECURITY REQUIRED?:"
^DIST(.403,87,"AY","X",3,12,15)="LOGICAL LINK:"
^DIST(.403,87,"AY","X",3,14,1)="PROCESSING RTN:"
^DIST(.403,87,"AY","X",3,16,2)="ROUTING LOGIC:"
^DIST(.403,87,"AY","X",4,1,30)="HL7 SUBSCRIBER"
^DIST(.403,87,"AY","X",4,3,4)="------------------------------------------------------------------------"
^DIST(.403,87,"AY","X",4,4,9)="RECEIVING APPLICATION:"
^DIST(.403,87,"AY","X",4,6,9)="RESPONSE MESSAGE TYPE:                             EVENT TYPE:"
^DIST(.403,87,"AY","X",4,8,4)="SENDING FACILITY REQUIRED?:           RECEIVING FACILITY REQUIRED?:"
^DIST(.403,87,"AY","X",4,10,12)="SECURITY REQUIRED?:"
^DIST(.403,87,"AY","X",4,12,18)="LOGICAL LINK:"
^DIST(.403,87,"AY","X",4,14,5)="PROCESSING RTN:"
^DIST(.403,87,"AY","X",4,15,6)="ROUTING LOGIC:"
^DIST(.403,87,"AY","X",5,3,25)="Sending Application Edit"
^DIST(.403,87,"AY","X",5,5,18)="NAME:                            ACTIVE/INACTIVE:"
^DIST(.403,87,"AY","X",5,5,18,"A")="1;4;U"
^DIST(.403,87,"AY","X",5,7,9)="FACILITY NAME:                               COUNTRY CODE:"
^DIST(.403,87,"AY","X",5,9,3)="HL7 FIELD SEPARATOR:                    HL7 ENCODING CHARACTERS:"
^DIST(.403,87,"AY","X",5,12,12)="MAIL GROUP:"
^DIST(.403,87,"AY","X",6,2,23)="Receiving Application Edit"
^DIST(.403,87,"AY","X",6,4,12)="NAME:                                 ACTIVE/INACTIVE:"
^DIST(.403,87,"AY","X",6,4,12,"A")="1;4;U"
^DIST(.403,87,"AY","X",6,6,3)="FACILITY NAME:                                    COUNTRY CODE:"
^DIST(.403,87,"AY","X",6,8,6)="MAIL GROUP:"
^DIST(.403,88,0)="SPNLP ASIA MES^^^^2960723.1058^^^154.1^0^0^1"
^DIST(.403,88,11)=""
^DIST(.403,88,40,0)="^.4031I^2^2"
^DIST(.403,88,40,1,0)="1^^1,1^2"
^DIST(.403,88,40,1,1)="Page 1"
^DIST(.403,88,40,1,11)=""
^DIST(.403,88,40,1,12)=""
^DIST(.403,88,40,1,40,0)="^.4032IP^334^3"
^DIST(.403,88,40,1,40,330,0)="330^2^1,1^d"
^DIST(.403,88,40,1,40,330,11)=""
^DIST(.403,88,40,1,40,331,0)="331^3^4,1^e"
^DIST(.403,88,40,1,40,331,11)=""
^DIST(.403,88,40,1,40,331,12)=""
^DIST(.403,88,40,1,40,334,0)="334^4^1,1^d"
^DIST(.403,88,40,1,40,"AC",2,330)=""
^DIST(.403,88,40,1,40,"AC",3,331)=""
^DIST(.403,88,40,1,40,"AC",4,334)=""
^DIST(.403,88,40,1,40,"B",330,330)=""
^DIST(.403,88,40,1,40,"B",331,331)=""
^DIST(.403,88,40,1,40,"B",334,334)=""
^DIST(.403,88,40,2,0)="2^330^1,1^3^1"
^DIST(.403,88,40,2,1)="Page 2"
^DIST(.403,88,40,2,40,0)="^.4032IP^333^2"
^DIST(.403,88,40,2,40,332,0)="332^1^1,1^d"
^DIST(.403,88,40,2,40,333,0)="333^2^4,1^e"
^DIST(.403,88,40,2,40,"AC",1,332)=""
^DIST(.403,88,40,2,40,"AC",2,333)=""
^DIST(.403,88,40,2,40,"B",332,332)=""
^DIST(.403,88,40,2,40,"B",333,333)=""
^DIST(.403,88,40,"B",1,1)=""
^DIST(.403,88,40,"B",2,2)=""
^DIST(.403,88,40,"C","PAGE 1",1)=""
^DIST(.403,88,40,"C","PAGE 2",2)=""
^DIST(.403,88,"AY",1,0,0,"N")="7,331^15,331^15,331^9,331^15,331"
^DIST(.403,88,"AY",1,330)="0^0^154.1^^d^^^^0"
^DIST(.403,88,"AY",1,330,1,"D")="1^9^30^.01"
^DIST(.403,88,"AY",1,330,2,"D")="^^^^1^40^^0"
^DIST(.403,88,"AY",1,330,3,"D")="^^^^1^58^^0"
^DIST(.403,88,"AY",1,331)="3^0^154.1^^e^^^^15"
^DIST(.403,88,"AY",1,331,2,"D")="9^25^1^7.01"
^DIST(.403,88,"AY",1,331,2,"N")="15^5^10^15^10"
^DIST(.403,88,"AY",1,331,5,"D")="11^25^3^7.02"
^DIST(.403,88,"AY",1,331,5,"N")="2^7^6^10^6"
^DIST(.403,88,"AY",1,331,6,"D")="11^63^3^7.03"
^DIST(.403,88,"AY",1,331,6,"N")="10^9^7^5^7"
^DIST(.403,88,"AY",1,331,7,"D")="13^25^3^7.04"
^DIST(.403,88,"AY",1,331,7,"N")="5^0^9^6^9"
^DIST(.403,88,"AY",1,331,9,"D")="13^63^3^7.14"
^DIST(.403,88,"AY",1,331,9,"N")="6^0^0^7^0"
^DIST(.403,88,"AY",1,331,10,"D")="9^63^10^7.09"
^DIST(.403,88,"AY",1,331,10,"N")="15^6^5^2^5"
^DIST(.403,88,"AY",1,331,14,"D")="^^^^4^25^^0"
^DIST(.403,88,"AY",1,331,15,"D")="6^49^30^.024"
^DIST(.403,88,"AY",1,331,15,"N")="0^2^2^0^2"
^DIST(.403,88,"AY",1,331,16,"D")="^^^^3^9^^0"
^DIST(.403,88,"AY",1,331,17,"D")="^^^^3^40^^0"
^DIST(.403,88,"AY",1,331,18,"D")="^^^^6^0^^0"
^DIST(.403,88,"AY",1,334)="0^0^154.1^^d^^^^0"
^DIST(.403,88,"AY",1,"FIRST")="15,331"
^DIST(.403,88,"AY",2,0,0,"N")="8,333^1,333^1,333^9,333^1,333"
^DIST(.403,88,"AY",2,330)="0^0^154.1^^h"
^DIST(.403,88,"AY",2,330,1,"D")="1^9^30^.01"
^DIST(.403,88,"AY",2,330,2,"D")="^^^^1^40^^0"
^DIST(.403,88,"AY",2,330,3,"D")="^^^^1^58^^0"
^DIST(.403,88,"AY",2,332)="0^0^154.1^^d^^^^0"
^DIST(.403,88,"AY",2,333)="3^0^154.1^^e^^^^1"
^DIST(.403,88,"AY",2,333,1,"D")="6^32^3^7.05"
^DIST(.403,88,"AY",2,333,1,"N")="0^3^2^0^2"
^DIST(.403,88,"AY",2,333,2,"D")="6^69^3^7.06"
^DIST(.403,88,"AY",2,333,2,"N")="0^4^3^1^3"
^DIST(.403,88,"AY",2,333,3,"D")="8^32^3^7.07"
^DIST(.403,88,"AY",2,333,3,"N")="1^6^4^2^4"
^DIST(.403,88,"AY",2,333,4,"D")="8^69^3^7.08"
^DIST(.403,88,"AY",2,333,4,"N")="2^7^6^3^6"
^DIST(.403,88,"AY",2,333,6,"D")="12^32^3^7.1"
^DIST(.403,88,"AY",2,333,6,"N")="3^8^7^4^7"
^DIST(.403,88,"AY",2,333,7,"D")="12^69^3^7.11"
^DIST(.403,88,"AY",2,333,7,"N")="4^9^8^6^8"
^DIST(.403,88,"AY",2,333,8,"D")="14^32^3^7.12"
^DIST(.403,88,"AY",2,333,8,"N")="6^0^9^7^9"
^DIST(.403,88,"AY",2,333,9,"D")="14^69^3^7.13"
^DIST(.403,88,"AY",2,333,9,"N")="7^0^0^8^0"
^DIST(.403,88,"AY",2,333,10,"D")="^^^^4^0^^0"
^DIST(.403,88,"AY",2,"FIRST")="1,333"
^DIST(.403,88,"AY","CAP","ASIA COMPLETE/INCOMPLETE","1^2",1,331,10)=""
^DIST(.403,88,"AY","CAP","ASIA HIGHEST NEURO LEVEL","1^2",1,331,9)=""
^DIST(.403,88,"AY","CAP","ASIA IMPAIRMENT SCALE","1^2",1,331,2)=""
^DIST(.403,88,"AY","CAP","DISPOSITION","1^2",1,331,15)=""
^DIST(.403,88,"AY","CAP","NEUROLEVEL-MOTOR LEFT","1^2",2,333,4)=""
^DIST(.403,88,"AY","CAP","NEUROLEVEL-MOTOR RIGHT","1^2",2,333,3)=""
^DIST(.403,88,"AY","CAP","NEUROLEVEL-SENSORY LEFT","1^2",2,333,2)=""
^DIST(.403,88,"AY","CAP","NEUROLEVEL-SENSORY RIGHT","1^2",2,333,1)=""
^DIST(.403,88,"AY","CAP","PARTIAL PRESERVATION-MOTOR L","1^2",2,333,9)=""
^DIST(.403,88,"AY","CAP","PARTIAL PRESERVATION-MOTOR R","1^2",2,333,8)=""
^DIST(.403,88,"AY","CAP","PARTIAL PRESERVATION-SENSORY L","1^2",2,333,7)=""
^DIST(.403,88,"AY","CAP","PARTIAL PRESERVATION-SENSORY R","1^2",2,333,6)=""
^DIST(.403,88,"AY","CAP","TOTAL LIGHT TOUCH SCORE","1^2",1,331,7)=""
^DIST(.403,88,"AY","CAP","TOTAL MOTOR SCORE","1^2",1,331,5)=""
^DIST(.403,88,"AY","CAP","TOTAL PIN PRICK SCORE","1^2",1,331,6)=""
^DIST(.403,88,"AY","F154.1",.01,"L",1,330,1)=""
^DIST(.403,88,"AY","F154.1",.01,"L",2,330,1)=""
^DIST(.403,88,"AY","F154.1",.024,"L",1,331,15)=""
^DIST(.403,88,"AY","F154.1",7.01,"L",1,331,2)=""
^DIST(.403,88,"AY","F154.1",7.02,"L",1,331,5)=""
^DIST(.403,88,"AY","F154.1",7.03,"L",1,331,6)=""
^DIST(.403,88,"AY","F154.1",7.04,"L",1,331,7)=""
^DIST(.403,88,"AY","F154.1",7.05,"L",2,333,1)=""
^DIST(.403,88,"AY","F154.1",7.06,"L",2,333,2)=""
^DIST(.403,88,"AY","F154.1",7.07,"L",2,333,3)=""
^DIST(.403,88,"AY","F154.1",7.08,"L",2,333,4)=""
^DIST(.403,88,"AY","F154.1",7.09,"L",1,331,10)=""
^DIST(.403,88,"AY","F154.1",7.1,"L",2,333,6)=""
^DIST(.403,88,"AY","F154.1",7.11,"L",2,333,7)=""
^DIST(.403,88,"AY","F154.1",7.12,"L",2,333,8)=""
^DIST(.403,88,"AY","F154.1",7.13,"L",2,333,9)=""
^DIST(.403,88,"AY","F154.1",7.14,"L",1,331,9)=""
^DIST(.403,88,"AY","X",1,0,37)="ASIA                           PAGE 1 OF 2"
^DIST(.403,88,"AY","X",1,1,0)="PATIENT:"
^DIST(.403,88,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,88,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,88,"AY","X",1,6,36)="DISPOSITION:"
^DIST(.403,88,"AY","X",1,9,2)="ASIA IMPAIRMENT SCALE:             ASIA COMPLETE/INCOMPLETE:"
^DIST(.403,88,"AY","X",1,9,2,"A")="1;21;U"
^DIST(.403,88,"AY","X",1,11,6)="TOTAL MOTOR SCORE:                TOTAL PIN PRICK SCORE:"
^DIST(.403,88,"AY","X",1,13,0)="TOTAL LIGHT TOUCH SCORE:             ASIA HIGHEST NEURO LEVEL:"
^DIST(.403,88,"AY","X",1,13,0,"A")="38;61;U"
^DIST(.403,88,"AY","X",2,0,34)="ASIA                              PAGE 2 OF 2"
^DIST(.403,88,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,88,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,88,"AY","X",2,2,0)="_______________________________________________________________________________"
^DIST(.403,88,"AY","X",2,6,6)="NEUROLEVEL-SENSORY RIGHT:             NEUROLEVEL-SENSORY LEFT:"
^DIST(.403,88,"AY","X",2,8,8)="NEUROLEVEL-MOTOR RIGHT:               NEUROLEVEL-MOTOR LEFT:"
^DIST(.403,88,"AY","X",2,12,0)="PARTIAL PRESERVATION-SENSORY R:      PARTIAL PRESERVATION-SENSORY L:"
^DIST(.403,88,"AY","X",2,14,2)="PARTIAL PRESERVATION-MOTOR R:        PARTIAL PRESERVATION-MOTOR L:"
^DIST(.403,89,0)="PSB MED LOG EDIT IV^@^@^^2990323.1252^^^53.79^0^0^1"
^DIST(.403,89,40,0)="^.4031I^2^2"
^DIST(.403,89,40,1,0)="1^^1,1"
^DIST(.403,89,40,1,1)="Page 1"
^DIST(.403,89,40,1,40,0)="^.4032IP^343^1"
^DIST(.403,89,40,1,40,343,0)="343^1^1,1^e"
^DIST(.403,89,40,1,40,"AC",1,343)=""
^DIST(.403,89,40,1,40,"B",343,343)=""
^DIST(.403,89,40,2,0)="2^^5,5^^^1^15,75"
^DIST(.403,89,40,2,1)="Page 2"
^DIST(.403,89,40,2,40,0)="^.4032IP^345^2"
^DIST(.403,89,40,2,40,344,0)="344^1^1,1^d"
^DIST(.403,89,40,2,40,345,0)="345^2^4,3^e"
^DIST(.403,89,40,2,40,345,2)="3^B^f^0"
^DIST(.403,89,40,2,40,"AC",1,344)=""
^DIST(.403,89,40,2,40,"AC",2,345)=""
^DIST(.403,89,40,2,40,"B",344,344)=""
^DIST(.403,89,40,2,40,"B",345,345)=""
^DIST(.403,89,40,"B",1,1)=""
^DIST(.403,89,40,"B",2,2)=""
^DIST(.403,89,40,"C","PAGE 1",1)=""
^DIST(.403,89,40,"C","PAGE 2",2)=""
^DIST(.403,89,"AY",1,0,0,"N")="9,343^1,343^1,343^9,343^1,343"
^DIST(.403,89,"AY",1,343)="0^0^53.79^^e^^^^1"
^DIST(.403,89,"AY",1,343,1,"D")="3^15^30^.01"
^DIST(.403,89,"AY",1,343,1,"N")="0^10^10^0^10"
^DIST(.403,89,"AY",1,343,3,"D")="^^^^1^0^^0"
^DIST(.403,89,"AY",1,343,4,"D")="^^^^3^46^^0"
^DIST(.403,89,"AY",1,343,5,"D")="6^17^7^.09"
^DIST(.403,89,"AY",1,343,5,"N")="10^12^6^10^6"
^DIST(.403,89,"AY",1,343,6,"D")="6^43^20^.06"
^DIST(.403,89,"AY",1,343,6,"N")="10^12^12^5^12"
^DIST(.403,89,"AY",1,343,7,"D")="9^21^58^.21"
^DIST(.403,89,"AY",1,343,7,"N")="12^8^8^12^8"
^DIST(.403,89,"AY",1,343,8,"D")="10^21^58^.22"
^DIST(.403,89,"AY",1,343,8,"N")="7^13^13^7^13"
^DIST(.403,89,"AY",1,343,9,"D")="15^1^78^9,343"
^DIST(.403,89,"AY",1,343,9,"N")="13^0^0^13^0"
^DIST(.403,89,"AY",1,343,10,"D")="4^15^40^.08"
^DIST(.403,89,"AY",1,343,10,"N")="1^5^5^1^5"
^DIST(.403,89,"AY",1,343,12,"D")="7^17^30^.16"
^DIST(.403,89,"AY",1,343,12,"N")="5^7^7^6^7"
^DIST(.403,89,"AY",1,343,13,"D")="12^21^1^13,343"
^DIST(.403,89,"AY",1,343,13,"N")="8^9^9^8^9"
^DIST(.403,89,"AY",1,343,14,"D")="^^^^4^58^^0"
^DIST(.403,89,"AY",1,"FIRST")="1,343"
^DIST(.403,89,"AY",2,0,0,"N")="1,345^1,345^1,345^4,345^1,345"
^DIST(.403,89,"AY",2,344)="4^4^53.79^^d^^^^0"
^DIST(.403,89,"AY",2,345)="7^6^53.795^^e^^3^^1^1"
^DIST(.403,89,"AY",2,345,1,"D")="7^6^30^.01"
^DIST(.403,89,"AY",2,345,1,"N")="0^0^0^0^0^1,-1^1,+1^2^4,-1^2"
^DIST(.403,89,"AY",2,345,2,"D")="7^38^6^.02^^^^^^1"
^DIST(.403,89,"AY",2,345,2,"N")="0^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,89,"AY",2,345,3,"D")="7^46^6^.03^^^^^^1"
^DIST(.403,89,"AY",2,345,3,"N")="0^0^0^2^0^3,-1^3,+1^4^2^4"
^DIST(.403,89,"AY",2,345,4,"D")="7^54^10^.04"
^DIST(.403,89,"AY",2,345,4,"N")="0^0^0^3^0^4,-1^4,+1^1,+1^3^1,+1"
^DIST(.403,89,"AY",2,"FIRST")="1,345"
^DIST(.403,89,"AY","CAP","ADMIN DATE/TIME",1,1,343,6)=""
^DIST(.403,89,"AY","CAP","ADMIN STATUS",1,1,343,5)=""
^DIST(.403,89,"AY","CAP","COMMENT (REQUIRED)",1,1,343,9)=""
^DIST(.403,89,"AY","CAP","DISPENSE DRUGS...",1,1,343,13)=""
^DIST(.403,89,"AY","CAP","INJECTION SITE",1,1,343,12)=""
^DIST(.403,89,"AY","CAP","MEDICATION",1,1,343,10)=""
^DIST(.403,89,"AY","CAP","PRN EFFECTIVENESS",1,1,343,8)=""
^DIST(.403,89,"AY","CAP","PRN REASON",1,1,343,7)=""
^DIST(.403,89,"AY","F0","13,343","L",1,343,13)=""
^DIST(.403,89,"AY","F0","9,343","L",1,343,9)=""
^DIST(.403,89,"AY","F53.79",.01,"L",1,343,1)=""
^DIST(.403,89,"AY","F53.79",.06,"L",1,343,6)=""
^DIST(.403,89,"AY","F53.79",.08,"L",1,343,10)=""
^DIST(.403,89,"AY","F53.79",.09,"L",1,343,5)=""
^DIST(.403,89,"AY","F53.79",.16,"L",1,343,12)=""
^DIST(.403,89,"AY","F53.79",.21,"L",1,343,7)=""
^DIST(.403,89,"AY","F53.79",.22,"L",1,343,8)=""
^DIST(.403,89,"AY","F53.795",.01,"L",2,345,1)=""
^DIST(.403,89,"AY","F53.795",.02,"L",2,345,2)=""
^DIST(.403,89,"AY","F53.795",.03,"L",2,345,3)=""
^DIST(.403,89,"AY","F53.795",.04,"L",2,345,4)=""
^DIST(.403,89,"AY","X",1,0,0)="Medication Log Edit IV"
^DIST(.403,89,"AY","X",1,3,1)="Patient:"
^DIST(.403,89,"AY","X",1,4,1)="Medication:"
^DIST(.403,89,"AY","X",1,4,1,"A")="1;10;U"
^DIST(.403,89,"AY","X",1,6,1)="Admin Status:            Admin Date/Time:"
^DIST(.403,89,"AY","X",1,6,1,"A")="1;12;U^26;40;U"
^DIST(.403,89,"AY","X",1,7,1)="Injection Site:"
^DIST(.403,89,"AY","X",1,9,1)="PRN Reason:"
^DIST(.403,89,"AY","X",1,10,1)="PRN Effectiveness:"
^DIST(.403,89,"AY","X",1,12,1)="Dispense Drugs..."
^DIST(.403,89,"AY","X",1,14,1)="Comment (Required):"
^DIST(.403,89,"AY","X",1,14,1,"A")="1;18;U"
^DIST(.403,89,"AY","X",2,4,5)=" Dispense Drugs "
^DIST(.403,89,"AY","X",2,5,39)="Units   Units"
^DIST(.403,89,"AY","X",2,6,6)="Drug Name                        Order   Given  Units"
^DIST(.403,90,0)="SPNLP FAM FM1^@^@^^2960724.0921^^^154.1^0^0^1"
^DIST(.403,90,40,0)="^.4031I^2^1"
^DIST(.403,90,40,2,0)="1^346^1,1^3^1"
^DIST(.403,90,40,2,1)="Page 1"
^DIST(.403,90,40,2,40,0)="^.4032IP^348^2"
^DIST(.403,90,40,2,40,347,0)="347^1^1,1^d"
^DIST(.403,90,40,2,40,348,0)="348^2^4,1^e"
^DIST(.403,90,40,2,40,"AC",1,347)=""
^DIST(.403,90,40,2,40,"AC",2,348)=""
^DIST(.403,90,40,2,40,"B",347,347)=""
^DIST(.403,90,40,2,40,"B",348,348)=""
^DIST(.403,90,40,"B",1,2)=""
^DIST(.403,90,40,"C","PAGE 1",2)=""
^DIST(.403,90,"AY",2,0,0,"N")="9,348^25,348^25,348^2,348^25,348"
^DIST(.403,90,"AY",2,346)="0^0^154.1^^h"
^DIST(.403,90,"AY",2,346,3,"D")="1^9^30^.01"
^DIST(.403,90,"AY",2,346,4,"D")="^^^^1^44^^0"
^DIST(.403,90,"AY",2,346,5,"D")="^^^^1^61^^0"
^DIST(.403,90,"AY",2,347)="0^0^154.1^^d^^^^0"
^DIST(.403,90,"AY",2,348)="3^0^154.1^^e^^^^25"
^DIST(.403,90,"AY",2,348,2,"D")="16^58^21^5.01"
^DIST(.403,90,"AY",2,348,2,"N")="11^0^0^9^0"
^DIST(.403,90,"AY",2,348,3,"D")="11^58^21^5.02"
^DIST(.403,90,"AY",2,348,3,"N")="25^5^4^10^4"
^DIST(.403,90,"AY",2,348,4,"D")="12^20^21^5.03"
^DIST(.403,90,"AY",2,348,4,"N")="10^7^5^3^5"
^DIST(.403,90,"AY",2,348,5,"D")="12^58^21^5.04"
^DIST(.403,90,"AY",2,348,5,"N")="3^6^7^4^7"
^DIST(.403,90,"AY",2,348,6,"D")="13^58^21^5.05"
^DIST(.403,90,"AY",2,348,6,"N")="5^12^8^7^8"
^DIST(.403,90,"AY",2,348,7,"D")="13^20^21^5.06"
^DIST(.403,90,"AY",2,348,7,"N")="4^8^6^5^6"
^DIST(.403,90,"AY",2,348,8,"D")="14^20^21^5.07"
^DIST(.403,90,"AY",2,348,8,"N")="7^13^12^6^12"
^DIST(.403,90,"AY",2,348,9,"D")="16^20^21^5.08"
^DIST(.403,90,"AY",2,348,9,"N")="13^0^2^11^2"
^DIST(.403,90,"AY",2,348,10,"D")="11^20^21^5.09"
^DIST(.403,90,"AY",2,348,10,"N")="25^4^3^25^3"
^DIST(.403,90,"AY",2,348,11,"D")="15^58^21^5.1"
^DIST(.403,90,"AY",2,348,11,"N")="12^2^9^13^9"
^DIST(.403,90,"AY",2,348,12,"D")="14^58^21^5.11"
^DIST(.403,90,"AY",2,348,12,"N")="6^11^13^8^13"
^DIST(.403,90,"AY",2,348,13,"D")="15^20^21^5.12"
^DIST(.403,90,"AY",2,348,13,"N")="8^9^11^12^11"
^DIST(.403,90,"AY",2,348,21,"D")="^^^^3^9^^0"
^DIST(.403,90,"AY",2,348,22,"D")="^^^^3^40^^0"
^DIST(.403,90,"AY",2,348,23,"D")="^^^^4^25^^0"
^DIST(.403,90,"AY",2,348,24,"D")="^^^^5^1^^0"
^DIST(.403,90,"AY",2,348,25,"D")="5^58^25^.024"
^DIST(.403,90,"AY",2,348,25,"N")="0^3^10^0^10"
^DIST(.403,90,"AY",2,"FIRST")="25,348"
^DIST(.403,90,"AY","CAP","ADJ TO LIMITATION",2,2,348,9)=""
^DIST(.403,90,"AY","CAP","ATTENTION",2,2,348,12)=""
^DIST(.403,90,"AY","CAP","CAR TRANSFERS",2,2,348,3)=""
^DIST(.403,90,"AY","CAP","COMMUNITY ACCESS",2,2,348,4)=""
^DIST(.403,90,"AY","CAP","DISPOSITION",2,2,348,25)=""
^DIST(.403,90,"AY","CAP","EMOTIONAL STATUS",2,2,348,8)=""
^DIST(.403,90,"AY","CAP","EMPLOYABILITY",2,2,348,10)=""
^DIST(.403,90,"AY","CAP","ORIENTATION",2,2,348,11)=""
^DIST(.403,90,"AY","CAP","READING",2,2,348,5)=""
^DIST(.403,90,"AY","CAP","SAFETY JUDGEMENT",2,2,348,13)=""
^DIST(.403,90,"AY","CAP","SPEECH CLARITY",2,2,348,7)=""
^DIST(.403,90,"AY","CAP","SWALLOWING",2,2,348,2)=""
^DIST(.403,90,"AY","CAP","WRITING",2,2,348,6)=""
^DIST(.403,90,"AY","F154.1",.01,"L",2,346,3)=""
^DIST(.403,90,"AY","F154.1",.024,"L",2,348,25)=""
^DIST(.403,90,"AY","F154.1",5.01,"L",2,348,2)=""
^DIST(.403,90,"AY","F154.1",5.02,"L",2,348,3)=""
^DIST(.403,90,"AY","F154.1",5.03,"L",2,348,4)=""
^DIST(.403,90,"AY","F154.1",5.04,"L",2,348,5)=""
^DIST(.403,90,"AY","F154.1",5.05,"L",2,348,6)=""
^DIST(.403,90,"AY","F154.1",5.06,"L",2,348,7)=""
^DIST(.403,90,"AY","F154.1",5.07,"L",2,348,8)=""
^DIST(.403,90,"AY","F154.1",5.08,"L",2,348,9)=""
^DIST(.403,90,"AY","F154.1",5.09,"L",2,348,10)=""
^DIST(.403,90,"AY","F154.1",5.1,"L",2,348,11)=""
^DIST(.403,90,"AY","F154.1",5.11,"L",2,348,12)=""
^DIST(.403,90,"AY","F154.1",5.12,"L",2,348,13)=""
^DIST(.403,90,"AY","X",2,0,21)="FUNCTIONAL ASSESSMENT MEASURE(FAM)         PAGE 1 OF 1"
^DIST(.403,90,"AY","X",2,1,0)="PATIENT:"
^DIST(.403,90,"AY","X",2,1,0,"A")="1;7;U"
^DIST(.403,90,"AY","X",2,2,0)="________________________________________________________________________________"
^DIST(.403,90,"AY","X",2,5,45)="DISPOSITION:"
^DIST(.403,90,"AY","X",2,7,4)="1 = Total Assistance     2 = Maximal Assistance   3 = Moderate Assistance"
^DIST(.403,90,"AY","X",2,8,4)="4 = Minimal Assistance   5 = Supervision          6 = Modified Independence"
^DIST(.403,90,"AY","X",2,9,4)="7 = Complete Independence"
^DIST(.403,90,"AY","X",2,11,5)="EMPLOYABILITY:                        CAR TRANSFERS:"
^DIST(.403,90,"AY","X",2,12,2)="COMMUNITY ACCESS:                              READING:"
^DIST(.403,90,"AY","X",2,13,4)="SPEECH CLARITY:                              WRITING:"
^DIST(.403,90,"AY","X",2,14,2)="EMOTIONAL STATUS:                            ATTENTION:"
^DIST(.403,90,"AY","X",2,15,2)="SAFETY JUDGEMENT:                          ORIENTATION:"
^DIST(.403,90,"AY","X",2,16,1)="ADJ TO LIMITATION:                           SWALLOWING:"
^DIST(.403,91,0)="SPNLP DIENER FM1^@^@^^2960724.0921^^^154.1^0^0^1"
^DIST(.403,91,40,0)="^.4031I^3^1"
^DIST(.403,91,40,3,0)="1^349^1,1^^2"
^DIST(.403,91,40,3,1)="Page 1"
^DIST(.403,91,40,3,40,0)="^.4032IP^351^2"
^DIST(.403,91,40,3,40,350,0)="350^1^1,1^d"
^DIST(.403,91,40,3,40,351,0)="351^2^4,1^e"
^DIST(.403,91,40,3,40,"AC",1,350)=""
^DIST(.403,91,40,3,40,"AC",2,351)=""
^DIST(.403,91,40,3,40,"B",350,350)=""
^DIST(.403,91,40,3,40,"B",351,351)=""
^DIST(.403,91,40,"B",1,3)=""
^DIST(.403,91,40,"C","PAGE 1",3)=""
^DIST(.403,91,"AY",3,0,0,"N")="2,351^7,351^7,351^2,351^7,351"
^DIST(.403,91,"AY",3,349)="0^0^154.1^^h"
^DIST(.403,91,"AY",3,349,3,"D")="1^9^30^.01"
^DIST(.403,91,"AY",3,349,4,"D")="^^^^1^44^^0"
^DIST(.403,91,"AY",3,349,5,"D")="^^^^1^61^^0"
^DIST(.403,91,"AY",3,350)="0^0^154.1^^d^^^^0"
^DIST(.403,91,"AY",3,351)="3^0^154.1^^e^^^^7"
^DIST(.403,91,"AY",3,351,2,"D")="11^55^2^6.01"
^DIST(.403,91,"AY",3,351,2,"N")="7^0^0^7^0"
^DIST(.403,91,"AY",3,351,3,"D")="^^^^3^9^^0"
^DIST(.403,91,"AY",3,351,4,"D")="^^^^3^40^^0"
^DIST(.403,91,"AY",3,351,5,"D")="^^^^4^25^^0"
^DIST(.403,91,"AY",3,351,6,"D")="^^^^6^0^^0"
^DIST(.403,91,"AY",3,351,7,"D")="6^54^25^.024"
^DIST(.403,91,"AY",3,351,7,"N")="0^2^2^0^2"
^DIST(.403,91,"AY",3,"FIRST")="7,351"
^DIST(.403,91,"AY","CAP","DIENER COMPOSITE SCORE (0-35)",3,3,351,2)=""
^DIST(.403,91,"AY","CAP","DISPOSITION",3,3,351,7)=""
^DIST(.403,91,"AY","F154.1",.01,"L",3,349,3)=""
^DIST(.403,91,"AY","F154.1",.024,"L",3,351,7)=""
^DIST(.403,91,"AY","F154.1",6.01,"L",3,351,2)=""
^DIST(.403,91,"AY","X",3,0,17)="DIENER'S (1985) SATISFACTION WITH LIFE SCALE       PAGE 1 OF 1"
^DIST(.403,91,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,91,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,91,"AY","X",3,2,0)="________________________________________________________________________________"
^DIST(.403,91,"AY","X",3,6,41)="DISPOSITION:"
^DIST(.403,91,"AY","X",3,9,18)="DIENER'S (1985) SATISFACTION WITH LIFE SCALE"
^DIST(.403,91,"AY","X",3,11,24)="DIENER COMPOSITE SCORE (0-35):"
^DIST(.403,92,0)="SPNLP DUSOI FM1^@^@^^2960724.0921^^^154.1^0^0^1"
^DIST(.403,92,40,0)="^.4031I^3^1"
^DIST(.403,92,40,3,0)="1^352^1,1^^2"
^DIST(.403,92,40,3,1)="Page 1"
^DIST(.403,92,40,3,40,0)="^.4032IP^354^2"
^DIST(.403,92,40,3,40,353,0)="353^1^1,1^d"
^DIST(.403,92,40,3,40,354,0)="354^2^4,1^e"
^DIST(.403,92,40,3,40,"AC",1,353)=""
^DIST(.403,92,40,3,40,"AC",2,354)=""
^DIST(.403,92,40,3,40,"B",353,353)=""
^DIST(.403,92,40,3,40,"B",354,354)=""
^DIST(.403,92,40,"B",1,3)=""
^DIST(.403,92,40,"C","PAGE 1",3)=""
^DIST(.403,92,"AY",3,0,0,"N")="4,354^9,354^9,354^4,354^9,354"
^DIST(.403,92,"AY",3,352)="0^0^154.1^^h"
^DIST(.403,92,"AY",3,352,3,"D")="1^9^30^.01"
^DIST(.403,92,"AY",3,352,4,"D")="^^^^1^44^^0"
^DIST(.403,92,"AY",3,352,5,"D")="^^^^1^61^^0"
^DIST(.403,92,"AY",3,353)="0^0^154.1^^d^^^^0"
^DIST(.403,92,"AY",3,354)="3^0^154.1^^e^^^^9"
^DIST(.403,92,"AY",3,354,4,"D")="11^55^3^6.02"
^DIST(.403,92,"AY",3,354,4,"N")="9^0^0^9^0"
^DIST(.403,92,"AY",3,354,5,"D")="^^^^3^9^^0"
^DIST(.403,92,"AY",3,354,6,"D")="^^^^3^40^^0"
^DIST(.403,92,"AY",3,354,7,"D")="^^^^4^25^^0"
^DIST(.403,92,"AY",3,354,8,"D")="^^^^6^0^^0"
^DIST(.403,92,"AY",3,354,9,"D")="6^61^25^.024"
^DIST(.403,92,"AY",3,354,9,"N")="0^4^4^0^4"
^DIST(.403,92,"AY",3,"FIRST")="9,354"
^DIST(.403,92,"AY","CAP","DISPOSITION",3,3,354,9)=""
^DIST(.403,92,"AY","CAP","DUSOI COMPOSITE SCORE (0-100)",3,3,354,4)=""
^DIST(.403,92,"AY","F154.1",.01,"L",3,352,3)=""
^DIST(.403,92,"AY","F154.1",.024,"L",3,354,9)=""
^DIST(.403,92,"AY","F154.1",6.02,"L",3,354,4)=""
^DIST(.403,92,"AY","X",3,0,13)="DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)      PAGE 1 OF 1"
^DIST(.403,92,"AY","X",3,1,0)="PATIENT:"
^DIST(.403,92,"AY","X",3,1,0,"A")="1;7;U"
^DIST(.403,92,"AY","X",3,2,0)="________________________________________________________________________________"
^DIST(.403,92,"AY","X",3,6,48)="DISPOSITION:"
^DIST(.403,92,"AY","X",3,9,16)="DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)"
^DIST(.403,92,"AY","X",3,11,24)="DUSOI COMPOSITE SCORE (0-100):"
^DIST(.403,93,0)="XU-CLINICAL TRAINEE^@^@^^3021002.0807^^^200^0^0^1"
^DIST(.403,93,11)="D REQ^XUSER2("""",1)"
^DIST(.403,93,40,0)="^.4031I^1^1"
^DIST(.403,93,40,1,0)="1^^1,1"
^DIST(.403,93,40,1,1)="Page 1"
^DIST(.403,93,40,1,40,0)="^.4032IP^357^2"
^DIST(.403,93,40,1,40,356,0)="356^1^1,1^d"
^DIST(.403,93,40,1,40,357,0)="357^2^2,1^e"
^DIST(.403,93,40,1,40,"AC",1,356)=""
^DIST(.403,93,40,1,40,"AC",2,357)=""
^DIST(.403,93,40,1,40,"B",356,356)=""
^DIST(.403,93,40,1,40,"B",357,357)=""
^DIST(.403,93,40,"B",1,1)=""
^DIST(.403,93,40,"C","PAGE 1",1)=""
^DIST(.403,93,"AY",1,0,0,"N")="11,357^4,357^4,357^11,357^4,357"
^DIST(.403,93,"AY",1,356)="0^0^200^^d^^^^0"
^DIST(.403,93,"AY",1,356,2,"D")="1^6^35^.01"
^DIST(.403,93,"AY",1,357)="1^0^200^^e^^^^4"
^DIST(.403,93,"AY",1,357,1,"D")="9^27^30^8"
^DIST(.403,93,"AY",1,357,1,"N")="15^3^3^2^3"
^DIST(.403,93,"AY",1,357,2,"D")="9^8^10^10.6"
^DIST(.403,93,"AY",1,357,2,"N")="15^3^1^15^1"
^DIST(.403,93,"AY",1,357,3,"D")="10^17^30^29"
^DIST(.403,93,"AY",1,357,3,"N")="2^5^18^1^18"
^DIST(.403,93,"AY",1,357,4,"D")="1^48^9^9"
^DIST(.403,93,"AY",1,357,4,"N")="0^20^20^0^20"
^DIST(.403,93,"AY",1,357,5,"D")="11^20^50^.111"
^DIST(.403,93,"AY",1,357,5,"N")="3^6^6^18^6"
^DIST(.403,93,"AY",1,357,6,"D")="12^20^50^.112"
^DIST(.403,93,"AY",1,357,6,"N")="5^7^7^5^7"
^DIST(.403,93,"AY",1,357,7,"D")="13^20^50^.113"
^DIST(.403,93,"AY",1,357,7,"N")="6^8^8^6^8"
^DIST(.403,93,"AY",1,357,8,"D")="14^6^30^.114"
^DIST(.403,93,"AY",1,357,8,"N")="7^9^9^7^9"
^DIST(.403,93,"AY",1,357,9,"D")="15^7^30^.115"
^DIST(.403,93,"AY",1,357,9,"N")="8^11^10^8^10"
^DIST(.403,93,"AY",1,357,10,"D")="15^49^10^.116"
^DIST(.403,93,"AY",1,357,10,"N")="8^11^11^9^11"
^DIST(.403,93,"AY",1,357,11,"D")="16^16^50^.151"
^DIST(.403,93,"AY",1,357,11,"N")="9^0^0^10^0"
^DIST(.403,93,"AY",1,357,15,"D")="8^20^59^12.1"
^DIST(.403,93,"AY",1,357,15,"N")="16^2^2^16^2"
^DIST(.403,93,"AY",1,357,16,"D")="7^18^59^12.2"
^DIST(.403,93,"AY",1,357,16,"N")="21^15^15^21^15"
^DIST(.403,93,"AY",1,357,17,"D")="5^65^8^12.3"
^DIST(.403,93,"AY",1,357,17,"N")="19^21^21^22^21"
^DIST(.403,93,"AY",1,357,18,"D")="10^64^11^5"
^DIST(.403,93,"AY",1,357,18,"N")="1^5^5^3^5"
^DIST(.403,93,"AY",1,357,19,"D")="4^19^27^12.4"
^DIST(.403,93,"AY",1,357,19,"N")="20^22^22^20^22"
^DIST(.403,93,"AY",1,357,20,"D")="3^35^3^12.6"
^DIST(.403,93,"AY",1,357,20,"N")="4^19^19^4^19"
^DIST(.403,93,"AY",1,357,21,"D")="6^62^11^12.7"
^DIST(.403,93,"AY",1,357,21,"N")="22^16^16^17^16"
^DIST(.403,93,"AY",1,357,22,"D")="5^24^11^12.8"
^DIST(.403,93,"AY",1,357,22,"N")="19^21^17^19^17"
^DIST(.403,93,"AY",1,"FIRST")="4,357"
^DIST(.403,93,"AY","CAP","CITY",1,1,357,8)=""
^DIST(.403,93,"AY","CAP","CURRENT DEGREE LVL",1,1,357,15)=""
^DIST(.403,93,"AY","CAP","DATE OF BIRTH",1,1,357,18)=""
^DIST(.403,93,"AY","CAP","DEGREE",1,1,357,2)=""
^DIST(.403,93,"AY","CAP","E-MAIL ADDRESS",1,1,357,11)=""
^DIST(.403,93,"AY","CAP","IS THIS PERSON AN ACTIVE TRAINEE?",1,1,357,20)=""
^DIST(.403,93,"AY","CAP","LAST TRAINING MONTH & YEAR",1,1,357,17)=""
^DIST(.403,93,"AY","CAP","PERMANENT STREET 1",1,1,357,5)=""
^DIST(.403,93,"AY","CAP","PERMANENT STREET 2",1,1,357,6)=""
^DIST(.403,93,"AY","CAP","PERMANENT STREET 3",1,1,357,7)=""
^DIST(.403,93,"AY","CAP","PROGRAM OF STUDY",1,1,357,16)=""
^DIST(.403,93,"AY","CAP","SERVICE/SECTION",1,1,357,3)=""
^DIST(.403,93,"AY","CAP","SSN",1,1,357,4)=""
^DIST(.403,93,"AY","CAP","START DATE OF TRAINING",1,1,357,22)=""
^DIST(.403,93,"AY","CAP","STATE",1,1,357,9)=""
^DIST(.403,93,"AY","CAP","TITLE",1,1,357,1)=""
^DIST(.403,93,"AY","CAP","TRAINEE INACTIVE (DATE)",1,1,357,21)=""
^DIST(.403,93,"AY","CAP","VHA TRAINING FAC.",1,1,357,19)=""
^DIST(.403,93,"AY","CAP","ZIP CODE",1,1,357,10)=""
^DIST(.403,93,"AY","F200",.01,"L",1,356,2)=""
^DIST(.403,93,"AY","F200",.111,"L",1,357,5)=""
^DIST(.403,93,"AY","F200",.112,"L",1,357,6)=""
^DIST(.403,93,"AY","F200",.113,"L",1,357,7)=""
^DIST(.403,93,"AY","F200",.114,"L",1,357,8)=""
^DIST(.403,93,"AY","F200",.115,"L",1,357,9)=""
^DIST(.403,93,"AY","F200",.116,"L",1,357,10)=""
^DIST(.403,93,"AY","F200",.151,"L",1,357,11)=""
^DIST(.403,93,"AY","F200",5,"L",1,357,18)=""
^DIST(.403,93,"AY","F200",8,"L",1,357,1)=""
^DIST(.403,93,"AY","F200",9,"L",1,357,4)=""
^DIST(.403,93,"AY","F200",10.6,"L",1,357,2)=""
^DIST(.403,93,"AY","F200",12.1,"L",1,357,15)=""
^DIST(.403,93,"AY","F200",12.2,"L",1,357,16)=""
^DIST(.403,93,"AY","F200",12.3,"L",1,357,17)=""
^DIST(.403,93,"AY","F200",12.4,"L",1,357,19)=""
^DIST(.403,93,"AY","F200",12.6,"L",1,357,20)=""
^DIST(.403,93,"AY","F200",12.7,"L",1,357,21)=""
^DIST(.403,93,"AY","F200",12.8,"L",1,357,22)=""
^DIST(.403,93,"AY","F200",29,"L",1,357,3)=""
^DIST(.403,93,"AY","X",1,0,25)="Edit Trainee Registration Data"
^DIST(.403,93,"AY","X",1,1,0)="NAME:                                      SSN:                     Page 1 of 1"
^DIST(.403,93,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,93,"AY","X",1,2,0)="_______________________________________________________________________________"
^DIST(.403,93,"AY","X",1,3,0)="Is this person an active Trainee?:"
^DIST(.403,93,"AY","X",1,4,0)="VHA Training Fac.:"
^DIST(.403,93,"AY","X",1,5,0)="Start Date of Training:              Last Training Month & Year:"
^DIST(.403,93,"AY","X",1,6,37)="Trainee Inactive (Date):"
^DIST(.403,93,"AY","X",1,7,0)="Program of Study:"
^DIST(.403,93,"AY","X",1,8,0)="Current Degree Lvl:"
^DIST(.403,93,"AY","X",1,9,0)="Degree:             Title:"
^DIST(.403,93,"AY","X",1,10,0)="Service/Section:                                 Date of Birth:"
^DIST(.403,93,"AY","X",1,10,0,"A")="1;15;U"
^DIST(.403,93,"AY","X",1,11,0)="Permanent Street 1:"
^DIST(.403,93,"AY","X",1,12,0)="Permanent Street 2:"
^DIST(.403,93,"AY","X",1,13,0)="Permanent Street 3:"
^DIST(.403,93,"AY","X",1,14,0)="City:"
^DIST(.403,93,"AY","X",1,15,0)="State:                                 Zip Code:"
^DIST(.403,93,"AY","X",1,16,0)="E-Mail Address:"
^DIST(.403,94,0)="XUSSPKI^@^@^^3030505.1022^^^8989.3^0^0^1"
^DIST(.403,94,40,0)="^.4031I^1^1"
^DIST(.403,94,40,1,0)="1^^1,1"
^DIST(.403,94,40,1,1)="Page 1"
^DIST(.403,94,40,1,40,0)="^.4032IP^359^1"
^DIST(.403,94,40,1,40,359,0)="359^1^1,1^e"
^DIST(.403,94,40,1,40,"AC",1,359)=""
^DIST(.403,94,40,1,40,"B",359,359)=""
^DIST(.403,94,40,"B",1,1)=""
^DIST(.403,94,40,"C","PAGE 1",1)=""
^DIST(.403,94,"AY",1,0,0,"N")="3,359^2,359^2,359^3,359^2,359"
^DIST(.403,94,"AY",1,359)="0^0^8989.3^^e^^^^2"
^DIST(.403,94,"AY",1,359,2,"D")="1^15^52^.01"
^DIST(.403,94,"AY",1,359,2,"N")="0^3^3^0^3"
^DIST(.403,94,"AY",1,359,3,"D")="3^19^46^53.1"
^DIST(.403,94,"AY",1,359,3,"N")="2^0^0^2^0"
^DIST(.403,94,"AY",1,"FIRST")="2,359"
^DIST(.403,94,"AY","CAP","DOMAIN",1,1,359,2)=""
^DIST(.403,94,"AY","CAP","PKI SERVER",1,1,359,3)=""
^DIST(.403,94,"AY","F8989.3",.01,"L",1,359,2)=""
^DIST(.403,94,"AY","F8989.3",53.1,"L",1,359,3)=""
^DIST(.403,94,"AY","X",1,0,27)="Kernel PKI edit"
^DIST(.403,94,"AY","X",1,1,7)="DOMAIN:"
^DIST(.403,94,"AY","X",1,1,7,"A")="1;6;U"
^DIST(.403,94,"AY","X",1,3,7)="PKI Server:"
^DIST(.403,95,0)="INSTITUTION EDIT^@^@^^3030725.1538^^^52.92^0^0^1"
^DIST(.403,95,21)="2"
^DIST(.403,95,40,0)="^.4031I^2^2"
^DIST(.403,95,40,1,0)="1^^1,1"
^DIST(.403,95,40,1,1)="Page 1"
^DIST(.403,95,40,1,40,0)="^.4032IP^360^1"
^DIST(.403,95,40,1,40,360,0)="360^1^1,1^e"
^DIST(.403,95,40,1,40,"AC",1,360)=""
^DIST(.403,95,40,1,40,"B",360,360)=""
^DIST(.403,95,40,2,0)="2^^1,1^^^1^9,68"
^DIST(.403,95,40,2,1)="Page 2"
^DIST(.403,95,40,2,40,0)="^.4032IP^361^1"
^DIST(.403,95,40,2,40,361,0)="361^1^3,5^e"
^DIST(.403,95,40,2,40,"AC",1,361)=""
^DIST(.403,95,40,2,40,"B",361,361)=""
^DIST(.403,95,40,"B",1,1)=""
^DIST(.403,95,40,"B",2,2)=""
^DIST(.403,95,40,"C","PAGE 1",1)=""
^DIST(.403,95,40,"C","PAGE 2",2)=""
^DIST(.403,95,"AY",1,0,0,"N")="12,360^1,360^1,360^12,360^1,360"
^DIST(.403,95,"AY",1,360)="0^0^52.92^^e^^^^1"
^DIST(.403,95,"AY",1,360,1,"D")="1^18^30^.01"
^DIST(.403,95,"AY",1,360,1,"N")="0^2^2^0^2"
^DIST(.403,95,"AY",1,360,2,"D")="2^18^30^.02"
^DIST(.403,95,"AY",1,360,2,"N")="1^3^3^1^3"
^DIST(.403,95,"AY",1,360,3,"D")="5^11^30^.05"
^DIST(.403,95,"AY",1,360,3,"N")="2^4^23^2^4"
^DIST(.403,95,"AY",1,360,4,"D")="6^11^30^.06"
^DIST(.403,95,"AY",1,360,4,"N")="3^13^24^23^13"
^DIST(.403,95,"AY",1,360,7,"D")="11^36^25^.03"
^DIST(.403,95,"AY",1,360,7,"N")="15^8^8^26^8"
^DIST(.403,95,"AY",1,360,8,"D")="12^36^25^.04"
^DIST(.403,95,"AY",1,360,8,"N")="7^10^10^7^10"
^DIST(.403,95,"AY",1,360,10,"D")="14^20^40^2.01"
^DIST(.403,95,"AY",1,360,10,"N")="8^11^11^8^11"
^DIST(.403,95,"AY",1,360,11,"D")="15^20^40^2.02"
^DIST(.403,95,"AY",1,360,11,"N")="10^12^12^10^12"
^DIST(.403,95,"AY",1,360,12,"D")="16^20^40^2.03"
^DIST(.403,95,"AY",1,360,12,"N")="11^0^0^11^0"
^DIST(.403,95,"AY",1,360,13,"D")="7^11^30^.07"
^DIST(.403,95,"AY",1,360,13,"N")="4^14^25^24^14"
^DIST(.403,95,"AY",1,360,14,"D")="8^11^30^.09"
^DIST(.403,95,"AY",1,360,14,"N")="13^15^28^25^15"
^DIST(.403,95,"AY",1,360,15,"D")="9^11^14^.08"
^DIST(.403,95,"AY",1,360,15,"N")="14^7^26^28^23"
^DIST(.403,95,"AY",1,360,17,"D")="1^63^6^0^^^^^1"
^DIST(.403,95,"AY",1,360,23,"D")="5^43^30^1.01"
^DIST(.403,95,"AY",1,360,23,"N")="2^24^4^3^24"
^DIST(.403,95,"AY",1,360,24,"D")="6^43^30^1.02"
^DIST(.403,95,"AY",1,360,24,"N")="23^25^13^4^25"
^DIST(.403,95,"AY",1,360,25,"D")="7^43^30^1.03"
^DIST(.403,95,"AY",1,360,25,"N")="24^28^14^13^28"
^DIST(.403,95,"AY",1,360,26,"D")="9^43^15^1.05"
^DIST(.403,95,"AY",1,360,26,"N")="28^7^7^15^7"
^DIST(.403,95,"AY",1,360,28,"D")="8^43^30^1.04"
^DIST(.403,95,"AY",1,360,28,"N")="25^26^15^14^26"
^DIST(.403,95,"AY",1,"FIRST")="1,360"
^DIST(.403,95,"AY",2,0,0,"N")="1,361^1,361^1,361^1,361^1,361"
^DIST(.403,95,"AY",2,361)="2^4^52.92^^e^^^^1"
^DIST(.403,95,"AY",2,361,1,"D")="5^21^37^1,361"
^DIST(.403,95,"AY",2,361,1,"N")="0^0^0^0^0"
^DIST(.403,95,"AY",2,"FIRST")="1,361"
^DIST(.403,95,"AY","CAP","#1",1,1,360,7)=""
^DIST(.403,95,"AY","CAP","#2",1,1,360,8)=""
^DIST(.403,95,"AY","CAP","CITY",1,1,360,13)=""
^DIST(.403,95,"AY","CAP","INSTITUTION",1,1,360,1)=""
^DIST(.403,95,"AY","CAP","INSTITUTION",2,2,361,1)=""
^DIST(.403,95,"AY","CAP","LINE 1",1,1,360,3)=""
^DIST(.403,95,"AY","CAP","LINE 1",1,1,360,10)=""
^DIST(.403,95,"AY","CAP","LINE 2",1,1,360,4)=""
^DIST(.403,95,"AY","CAP","LINE 2",1,1,360,11)=""
^DIST(.403,95,"AY","CAP","LINE 3",1,1,360,12)=""
^DIST(.403,95,"AY","CAP","PARENT",1,1,360,2)=""
^DIST(.403,95,"AY","CAP","STATE",1,1,360,14)=""
^DIST(.403,95,"AY","CAP","ZIP CODE",1,1,360,15)=""
^DIST(.403,95,"AY","COMP",4,99,1,360,17)=""
^DIST(.403,95,"AY","COMP",52.92,.01,1,360,17)=""
^DIST(.403,95,"AY","COMPE",360,17)="S Y=DDSE(1)"
^DIST(.403,95,"AY","COMPE",360,17,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,95,""AY"",""COMPE"",360,17,1,DDSI))  X ^(DDSI)"
^DIST(.403,95,"AY","COMPE",360,17,1,1)="S X=$$GET^DDSVAL(52.92,.DA,.01)"
^DIST(.403,95,"AY","COMPE",360,17,1,2)="S X=$$GET^DDSVAL(4,X,99,"""",""E""),DDSE(1)=X"
^DIST(.403,95,"AY","F0","1,361","L",2,361,1)=""
^DIST(.403,95,"AY","F52.92",0,"L",1,360,17)=""
^DIST(.403,95,"AY","F52.92",.01,"L",1,360,1)=""
^DIST(.403,95,"AY","F52.92",.02,"L",1,360,2)=""
^DIST(.403,95,"AY","F52.92",.03,"L",1,360,7)=""
^DIST(.403,95,"AY","F52.92",.04,"L",1,360,8)=""
^DIST(.403,95,"AY","F52.92",.05,"L",1,360,3)=""
^DIST(.403,95,"AY","F52.92",.06,"L",1,360,4)=""
^DIST(.403,95,"AY","F52.92",.07,"L",1,360,13)=""
^DIST(.403,95,"AY","F52.92",.08,"L",1,360,15)=""
^DIST(.403,95,"AY","F52.92",.09,"L",1,360,14)=""
^DIST(.403,95,"AY","F52.92",1.01,"L",1,360,23)=""
^DIST(.403,95,"AY","F52.92",1.02,"L",1,360,24)=""
^DIST(.403,95,"AY","F52.92",1.03,"L",1,360,25)=""
^DIST(.403,95,"AY","F52.92",1.04,"L",1,360,28)=""
^DIST(.403,95,"AY","F52.92",1.05,"L",1,360,26)=""
^DIST(.403,95,"AY","F52.92",2.01,"L",1,360,10)=""
^DIST(.403,95,"AY","F52.92",2.02,"L",1,360,11)=""
^DIST(.403,95,"AY","F52.92",2.03,"L",1,360,12)=""
^DIST(.403,95,"AY","X",1,0,18)="TPB Institution Letter Edit"
^DIST(.403,95,"AY","X",1,1,0)="INSTITUTION:                                         Station #"
^DIST(.403,95,"AY","X",1,1,0,"A")="1;11;U"
^DIST(.403,95,"AY","X",1,2,0)="PARENT:"
^DIST(.403,95,"AY","X",1,4,1)="ADDRESS:  PHYSICAL - Letter Heading       MAILING - TPB Forms Return Address"
^DIST(.403,95,"AY","X",1,5,1)="Line 1:"
^DIST(.403,95,"AY","X",1,6,1)="Line 2:"
^DIST(.403,95,"AY","X",1,7,1)="CITY:"
^DIST(.403,95,"AY","X",1,8,1)="State:"
^DIST(.403,95,"AY","X",1,9,1)="Zip Code:"
^DIST(.403,95,"AY","X",1,11,1)="TPB CONTACT PHONE NUMBER(S)    #1:"
^DIST(.403,95,"AY","X",1,12,32)="#2:"
^DIST(.403,95,"AY","X",1,14,1)="DIRECTORS  Line 1:"
^DIST(.403,95,"AY","X",1,15,1)="SIGNATURE  Line 2:"
^DIST(.403,95,"AY","X",1,16,1)="BLOCK      Line 3:"
^DIST(.403,95,"AY","X",2,2,15)="TPB INSTITUTION LETTER"
^DIST(.403,95,"AY","X",2,5,8)="Institution:"
^DIST(.403,96,0)="PRSA LD POST^@^@^^3030401.1645^^^450^1^0^1"
^DIST(.403,96,40,0)="^.4031I^1^1"
^DIST(.403,96,40,1,0)="1^^1,1"
^DIST(.403,96,40,1,1)="Page 1"
^DIST(.403,96,40,1,40,0)="^.4032IP^364^3"
^DIST(.403,96,40,1,40,362,0)="362^1^1,1^d"
^DIST(.403,96,40,1,40,363,0)="363^2^7,1^d"
^DIST(.403,96,40,1,40,363,2)="4"
^DIST(.403,96,40,1,40,364,0)="364^3^13,1^d"
^DIST(.403,96,40,1,40,364,2)="4"
^DIST(.403,96,40,1,40,"AC",1,362)=""
^DIST(.403,96,40,1,40,"AC",2,363)=""
^DIST(.403,96,40,1,40,"AC",3,364)=""
^DIST(.403,96,40,1,40,"B",362,362)=""
^DIST(.403,96,40,1,40,"B",363,363)=""
^DIST(.403,96,40,1,40,"B",364,364)=""
^DIST(.403,96,40,"B",1,1)=""
^DIST(.403,96,40,"C","PAGE 1",1)=""
^DIST(.403,96,"AY",1,0,0,"N")="0^0^0^0^0"
^DIST(.403,96,"AY",1,362)="0^0^450^^d^^^^0"
^DIST(.403,96,"AY",1,362,1,"D")="^^^^0^0^^0"
^DIST(.403,96,"AY",1,362,3,"D")="^^^^0^68^^0"
^DIST(.403,96,"AY",1,362,4,"D")="^^^^1^0^^0"
^DIST(.403,96,"AY",1,362,6,"D")="^^^^1^71^^0"
^DIST(.403,96,"AY",1,362,7,"D")="^^^^2^19^^0"
^DIST(.403,96,"AY",1,363)="6^0^450.0757^^d^^4^^0^0"
^DIST(.403,96,"AY",1,363,2,"D")="6^12^4^1"
^DIST(.403,96,"AY",1,363,3,"D")="6^25^4^2"
^DIST(.403,96,"AY",1,363,4,"D")="6^43^4^3"
^DIST(.403,96,"AY",1,363,5,"D")="6^64^3^4"
^DIST(.403,96,"AY",1,363,6,"D")="6^8^1^.01"
^DIST(.403,96,"AY",1,364)="12^0^450.0757^^d^^4^^0^0"
^DIST(.403,96,"AY",1,364,2,"D")="12^12^1^.01"
^DIST(.403,96,"AY",1,364,3,"D")="12^15^4^3"
^DIST(.403,96,"AY",1,364,4,"D")="^^^^12^21^^0"
^DIST(.403,96,"AY",1,"FIRST")="0,362"
^DIST(.403,96,"AY","F450.0757",.01,"L",1,363,6)=""
^DIST(.403,96,"AY","F450.0757",.01,"L",1,364,2)=""
^DIST(.403,96,"AY","F450.0757",1,"L",1,363,2)=""
^DIST(.403,96,"AY","F450.0757",2,"L",1,363,3)=""
^DIST(.403,96,"AY","F450.0757",3,"L",1,363,4)=""
^DIST(.403,96,"AY","F450.0757",3,"L",1,364,3)=""
^DIST(.403,96,"AY","F450.0757",4,"L",1,363,5)=""
^DIST(.403,96,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,96,"AY","X",1,1,28)="Labor Distribution Codes"
^DIST(.403,96,"AY","X",1,4,12)="CODE        PERCENT         COST CENTER        FUND CTRL PT"
^DIST(.403,96,"AY","X",1,5,0)="-------------------------------------------------------------------------------"
^DIST(.403,96,"AY","X",1,6,0)="LD CODE"
^DIST(.403,96,"AY","X",1,7,0)="LD CODE"
^DIST(.403,96,"AY","X",1,8,0)="LD CODE"
^DIST(.403,96,"AY","X",1,9,0)="LD CODE"
^DIST(.403,96,"AY","X",1,12,0)="COST CENTER"
^DIST(.403,96,"AY","X",1,13,0)="COST CENTER"
^DIST(.403,96,"AY","X",1,14,0)="COST CENTER"
^DIST(.403,96,"AY","X",1,15,0)="COST CENTER"
^DIST(.403,97,0)="XUDEVICE LPD^@^@^^3030722.1401^^^3.5^0^0^1"
^DIST(.403,97,40,0)="^.4031I^1^1"
^DIST(.403,97,40,1,0)="1^^1,1"
^DIST(.403,97,40,1,1)="Page 1"
^DIST(.403,97,40,1,40,0)="^.4032IP^365^1"
^DIST(.403,97,40,1,40,365,0)="365^1^1,1^e"
^DIST(.403,97,40,1,40,"AC",1,365)=""
^DIST(.403,97,40,1,40,"B",365,365)=""
^DIST(.403,97,40,"B",1,1)=""
^DIST(.403,97,40,"C","PAGE 1",1)=""
^DIST(.403,97,"AY",1,0,0,"N")="11,365^2,365^2,365^11,365^2,365"
^DIST(.403,97,"AY",1,365)="0^0^3.5^^e^^^^2"
^DIST(.403,97,"AY",1,365,2,"D")="1^6^30^.01"
^DIST(.403,97,"AY",1,365,2,"N")="0^4^4^0^4"
^DIST(.403,97,"AY",1,365,4,"D")="3^6^32^1"
^DIST(.403,97,"AY",1,365,4,"N")="2^6^5^2^5"
^DIST(.403,97,"AY",1,365,5,"D")="3^63^16^.02"
^DIST(.403,97,"AY",1,365,5,"N")="2^14^6^4^6"
^DIST(.403,97,"AY",1,365,6,"D")="4^6^20^2"
^DIST(.403,97,"AY",1,365,6,"N")="4^12^14^5^14"
^DIST(.403,97,"AY",1,365,7,"D")="6^9^29^3"
^DIST(.403,97,"AY",1,365,7,"N")="12^15^13^12^13"
^DIST(.403,97,"AY",1,365,10,"D")="10^31^4^66"
^DIST(.403,97,"AY",1,365,10,"N")="15^11^11^15^11"
^DIST(.403,97,"AY",1,365,11,"D")="11^31^45^67"
^DIST(.403,97,"AY",1,365,11,"N")="10^0^0^10^0"
^DIST(.403,97,"AY",1,365,12,"D")="5^63^3^9"
^DIST(.403,97,"AY",1,365,12,"N")="14^13^7^14^7"
^DIST(.403,97,"AY",1,365,13,"D")="6^63^5^11"
^DIST(.403,97,"AY",1,365,13,"N")="12^15^15^7^15"
^DIST(.403,97,"AY",1,365,14,"D")="4^63^16^1.9"
^DIST(.403,97,"AY",1,365,14,"N")="5^12^12^6^12"
^DIST(.403,97,"AY",1,365,15,"D")="9^31^39^65"
^DIST(.403,97,"AY",1,365,15,"N")="7^10^10^13^10"
^DIST(.403,97,"AY",1,"FIRST")="2,365"
^DIST(.403,97,"AY","CAP","$I",1,1,365,4)=""
^DIST(.403,97,"AY","CAP","LOCATION OF TERMINAL",1,1,365,5)=""
^DIST(.403,97,"AY","CAP","MARGIN WIDTH",1,1,365,12)=""
^DIST(.403,97,"AY","CAP","NAME",1,1,365,2)=""
^DIST(.403,97,"AY","CAP","PAGE LENGTH",1,1,365,13)=""
^DIST(.403,97,"AY","CAP","PRINT SERVER NAME OR ADDRESS",1,1,365,15)=""
^DIST(.403,97,"AY","CAP","REMOTE PRINTER NAME",1,1,365,11)=""
^DIST(.403,97,"AY","CAP","SUBTYPE",1,1,365,7)=""
^DIST(.403,97,"AY","CAP","TELNET PORT",1,1,365,10)=""
^DIST(.403,97,"AY","CAP","TYPE",1,1,365,6)=""
^DIST(.403,97,"AY","CAP","VOLUME SET(CPU)",1,1,365,14)=""
^DIST(.403,97,"AY","F3.5",.01,"L",1,365,2)=""
^DIST(.403,97,"AY","F3.5",.02,"L",1,365,5)=""
^DIST(.403,97,"AY","F3.5",1,"L",1,365,4)=""
^DIST(.403,97,"AY","F3.5",1.9,"L",1,365,14)=""
^DIST(.403,97,"AY","F3.5",2,"L",1,365,6)=""
^DIST(.403,97,"AY","F3.5",3,"L",1,365,7)=""
^DIST(.403,97,"AY","F3.5",9,"L",1,365,12)=""
^DIST(.403,97,"AY","F3.5",11,"L",1,365,13)=""
^DIST(.403,97,"AY","F3.5",65,"L",1,365,15)=""
^DIST(.403,97,"AY","F3.5",66,"L",1,365,10)=""
^DIST(.403,97,"AY","F3.5",67,"L",1,365,11)=""
^DIST(.403,97,"AY","X",1,0,25)="EDIT A LDP DEVICE"
^DIST(.403,97,"AY","X",1,1,0)="NAME:                                                          PAGE 1 OF 1"
^DIST(.403,97,"AY","X",1,1,0,"A")="1;4;U"
^DIST(.403,97,"AY","X",1,3,2)="$I:                                    LOCATION OF TERMINAL:"
^DIST(.403,97,"AY","X",1,3,2,"A")="1;2;U^40;59;U"
^DIST(.403,97,"AY","X",1,4,0)="TYPE:                                         VOLUME SET(CPU):"
^DIST(.403,97,"AY","X",1,4,0,"A")="1;4;U"
^DIST(.403,97,"AY","X",1,5,49)="MARGIN WIDTH:"
^DIST(.403,97,"AY","X",1,6,0)="SUBTYPE:                                          PAGE LENGTH:"
^DIST(.403,97,"AY","X",1,6,0,"A")="1;7;U"
^DIST(.403,97,"AY","X",1,9,1)="PRINT SERVER NAME OR ADDRESS:"
^DIST(.403,97,"AY","X",1,10,18)="TELNET PORT:"
^DIST(.403,97,"AY","X",1,11,10)="REMOTE PRINTER NAME:"
^DIST(.403,98,0)="XUDEVICE TRM^@^@^^3030722.1427^^^3.5^0^0^1"
^DIST(.403,98,40,0)="^.4031I^1^1"
^DIST(.403,98,40,1,0)="1^^1,1"
^DIST(.403,98,40,1,1)="Page 1"
^DIST(.403,98,40,1,40,0)="^.4032IP^366^1"
^DIST(.403,98,40,1,40,366,0)="366^1^1,1^e"
^DIST(.403,98,40,1,40,"AC",1,366)=""
^DIST(.403,98,40,1,40,"B",366,366)=""
^DIST(.403,98,40,"B",1,1)=""
^DIST(.403,98,40,"C","PAGE 1",1)=""
^DIST(.403,98,"AY",1,0,0,"N")="14,366^2,366^2,366^15,366^2,366"
^DIST(.403,98,"AY",1,366)="0^0^3.5^^e^^^^2"
^DIST(.403,98,"AY",1,366,2,"D")="2^6^30^.01"
^DIST(.403,98,"AY",1,366,2,"N")="0^4^3^0^3"
^DIST(.403,98,"AY",1,366,3,"D")="2^58^20^.02"
^DIST(.403,98,"AY",1,366,3,"N")="0^4^4^2^4"
^DIST(.403,98,"AY",1,366,4,"D")="4^9^40^1"
^DIST(.403,98,"AY",1,366,4,"N")="2^13^13^3^13"
^DIST(.403,98,"AY",1,366,5,"D")="10^59^15^1.9"
^DIST(.403,98,"AY",1,366,5,"N")="7^9^11^7^11"
^DIST(.403,98,"AY",1,366,6,"D")="6^9^20^2"
^DIST(.403,98,"AY",1,366,6,"N")="13^8^8^13^8"
^DIST(.403,98,"AY",1,366,7,"D")="9^59^3^1.95"
^DIST(.403,98,"AY",1,366,7,"N")="8^5^5^8^5"
^DIST(.403,98,"AY",1,366,8,"D")="7^9^30^3"
^DIST(.403,98,"AY",1,366,8,"N")="6^7^7^6^7"
^DIST(.403,98,"AY",1,366,9,"D")="12^59^3^9"
^DIST(.403,98,"AY",1,366,9,"N")="5^10^12^11^12"
^DIST(.403,98,"AY",1,366,10,"D")="13^59^5^11"
^DIST(.403,98,"AY",1,366,10,"N")="9^15^14^12^14"
^DIST(.403,98,"AY",1,366,11,"D")="12^16^3^4"
^DIST(.403,98,"AY",1,366,11,"N")="5^12^9^5^9"
^DIST(.403,98,"AY",1,366,12,"D")="13^16^3^5"
^DIST(.403,98,"AY",1,366,12,"N")="11^14^10^9^10"
^DIST(.403,98,"AY",1,366,13,"D")="5^9^40^52"
^DIST(.403,98,"AY",1,366,13,"N")="4^6^6^4^6"
^DIST(.403,98,"AY",1,366,14,"D")="15^16^11^5.5"
^DIST(.403,98,"AY",1,366,14,"N")="12^0^15^10^15"
^DIST(.403,98,"AY",1,366,15,"D")="15^59^3^11.2"
^DIST(.403,98,"AY",1,366,15,"N")="10^0^0^14^0"
^DIST(.403,98,"AY",1,"FIRST")="2,366"
^DIST(.403,98,"AY","CAP","$I",1,1,366,4)=""
^DIST(.403,98,"AY","CAP","ALT $I",1,1,366,13)=""
^DIST(.403,98,"AY","CAP","ASK DEVICE",1,1,366,11)=""
^DIST(.403,98,"AY","CAP","ASK PARAMETERS",1,1,366,12)=""
^DIST(.403,98,"AY","CAP","LOCATION",1,1,366,3)=""
^DIST(.403,98,"AY","CAP","MARGIN WIDTH",1,1,366,9)=""
^DIST(.403,98,"AY","CAP","NAME",1,1,366,2)=""
^DIST(.403,98,"AY","CAP","PAGE LENGTH",1,1,366,10)=""
^DIST(.403,98,"AY","CAP","QUEUING",1,1,366,14)=""
^DIST(.403,98,"AY","CAP","SIGN-ON/SYSTEM DEVICE",1,1,366,7)=""
^DIST(.403,98,"AY","CAP","SUBTYPE",1,1,366,8)=""
^DIST(.403,98,"AY","CAP","SUPPRESS FORM FEED",1,1,366,15)=""
^DIST(.403,98,"AY","CAP","TYPE",1,1,366,6)=""
^DIST(.403,98,"AY","CAP","VOLUME SET(CPU)",1,1,366,5)=""
^DIST(.403,98,"AY","F3.5",.01,"L",1,366,2)=""
^DIST(.403,98,"AY","F3.5",.02,"L",1,366,3)=""
^DIST(.403,98,"AY","F3.5",1,"L",1,366,4)=""
^DIST(.403,98,"AY","F3.5",1.9,"L",1,366,5)=""
^DIST(.403,98,"AY","F3.5",1.95,"L",1,366,7)=""
^DIST(.403,98,"AY","F3.5",2,"L",1,366,6)=""
^DIST(.403,98,"AY","F3.5",3,"L",1,366,8)=""
^DIST(.403,98,"AY","F3.5",4,"L",1,366,11)=""
^DIST(.403,98,"AY","F3.5",5,"L",1,366,12)=""
^DIST(.403,98,"AY","F3.5",5.5,"L",1,366,14)=""
^DIST(.403,98,"AY","F3.5",9,"L",1,366,9)=""
^DIST(.403,98,"AY","F3.5",11,"L",1,366,10)=""
^DIST(.403,98,"AY","F3.5",11.2,"L",1,366,15)=""
^DIST(.403,98,"AY","F3.5",52,"L",1,366,13)=""
^DIST(.403,98,"AY","X",1,0,21)="Edit a TRM or VTRM device"
^DIST(.403,98,"AY","X",1,2,0)="NAME:                                           LOCATION:"
^DIST(.403,98,"AY","X",1,2,0,"A")="1;4;U^49;56;U"
^DIST(.403,98,"AY","X",1,4,5)="$I:"
^DIST(.403,98,"AY","X",1,4,5,"A")="1;2;U"
^DIST(.403,98,"AY","X",1,5,1)="Alt $I:"
^DIST(.403,98,"AY","X",1,6,3)="TYPE:"
^DIST(.403,98,"AY","X",1,6,3,"A")="1;4;U"
^DIST(.403,98,"AY","X",1,7,0)="SUBTYPE:"
^DIST(.403,98,"AY","X",1,7,0,"A")="1;7;U"
^DIST(.403,98,"AY","X",1,9,36)="SIGN-ON/SYSTEM DEVICE:"
^DIST(.403,98,"AY","X",1,10,42)="VOLUME SET(CPU):"
^DIST(.403,98,"AY","X",1,12,4)="ASK DEVICE:                              MARGIN WIDTH:"
^DIST(.403,98,"AY","X",1,13,0)="ASK PARAMETERS:                               PAGE LENGTH:"
^DIST(.403,98,"AY","X",1,15,7)="QUEUING:                        SUPPRESS FORM FEED:"
^DIST(.403,99,0)="KMPD PARAMETERS EDIT^@^@^^3031203.0915^^^8973^0^0^1"
^DIST(.403,99,40,0)="^.4031I^1^1"
^DIST(.403,99,40,1,0)="1^^1,1"
^DIST(.403,99,40,1,1)="Page 1"
^DIST(.403,99,40,1,40,0)="^.4032IP^368^2"
^DIST(.403,99,40,1,40,367,0)="367^1^1,1^e"
^DIST(.403,99,40,1,40,368,0)="368^2^4,1^e"
^DIST(.403,99,40,1,40,"AC",1,367)=""
^DIST(.403,99,40,1,40,"AC",2,368)=""
^DIST(.403,99,40,1,40,"B",367,367)=""
^DIST(.403,99,40,1,40,"B",368,368)=""
^DIST(.403,99,40,"B",1,1)=""
^DIST(.403,99,40,"C","PAGE 1",1)=""
^DIST(.403,99,"AY",1,0,0,"N")="15,368^1,368^1,368^15,368^1,368"
^DIST(.403,99,"AY",1,367)="0^0^8973^^e^^^^0"
^DIST(.403,99,"AY",1,367,3,"D")="^^^^1^23^^0"
^DIST(.403,99,"AY",1,368)="3^0^8973^^e^^^^1"
^DIST(.403,99,"AY",1,368,1,"D")="3^17^13^.02"
^DIST(.403,99,"AY",1,368,1,"N")="0^3^2^0^2"
^DIST(.403,99,"AY",1,368,2,"D")="3^52^17^.03"
^DIST(.403,99,"AY",1,368,2,"N")="0^4^3^1^3"
^DIST(.403,99,"AY",1,368,3,"D")="4^17^13^.04"
^DIST(.403,99,"AY",1,368,3,"N")="1^5^4^2^4"
^DIST(.403,99,"AY",1,368,4,"D")="4^52^17^.05"
^DIST(.403,99,"AY",1,368,4,"N")="2^5^5^3^5"
^DIST(.403,99,"AY",1,368,5,"D")="7^25^3^3.11"
^DIST(.403,99,"AY",1,368,5,"N")="3^7^11^4^7"
^DIST(.403,99,"AY",1,368,7,"D")="8^25^3^4.11"
^DIST(.403,99,"AY",1,368,7,"N")="5^9^12^11^9"
^DIST(.403,99,"AY",1,368,9,"D")="9^25^3^2.11"
^DIST(.403,99,"AY",1,368,9,"N")="7^13^13^12^11"
^DIST(.403,99,"AY",1,368,11,"D")="7^71^2^19.01"
^DIST(.403,99,"AY",1,368,11,"N")="4^12^7^5^12"
^DIST(.403,99,"AY",1,368,12,"D")="8^71^3^19.02"
^DIST(.403,99,"AY",1,368,12,"N")="11^9^9^7^13"
^DIST(.403,99,"AY",1,368,13,"D")="12^28^20^5.01"
^DIST(.403,99,"AY",1,368,13,"N")="9^14^14^9^14"
^DIST(.403,99,"AY",1,368,14,"D")="13^28^20^5.02"
^DIST(.403,99,"AY",1,368,14,"N")="13^15^15^13^15"
^DIST(.403,99,"AY",1,368,15,"D")="14^28^50^5.03"
^DIST(.403,99,"AY",1,368,15,"N")="14^0^0^14^0"
^DIST(.403,99,"AY",1,"FIRST")="1,368"
^DIST(.403,99,"AY","CAP","CURRENT PATCH",1,1,368,3)=""
^DIST(.403,99,"AY","CAP","CURRENT VERSION",1,1,368,1)=""
^DIST(.403,99,"AY","CAP","PATCH INSTALLED",1,1,368,4)=""
^DIST(.403,99,"AY","CAP","PURGE HL7 DATA AFTER",1,1,368,5)=""
^DIST(.403,99,"AY","CAP","PURGE RUM DATA AFTER",1,1,368,9)=""
^DIST(.403,99,"AY","CAP","PURGE TIMING DATA AFTER",1,1,368,7)=""
^DIST(.403,99,"AY","CAP","REASON FOR DOWN TIME",1,1,368,15)=""
^DIST(.403,99,"AY","CAP","SCHEDULED DOWN TIME START",1,1,368,13)=""
^DIST(.403,99,"AY","CAP","SCHEDULED DOWN TIME STOP",1,1,368,14)=""
^DIST(.403,99,"AY","CAP","TIMING MONITOR ALERT - SECONDS",1,1,368,12)=""
^DIST(.403,99,"AY","CAP","TIMING MONITOR UPDATE RATE - MIN",1,1,368,11)=""
^DIST(.403,99,"AY","CAP","VERSION INSTALLED",1,1,368,2)=""
^DIST(.403,99,"AY","F8973",.02,"L",1,368,1)=""
^DIST(.403,99,"AY","F8973",.03,"L",1,368,2)=""
^DIST(.403,99,"AY","F8973",.04,"L",1,368,3)=""
^DIST(.403,99,"AY","F8973",.05,"L",1,368,4)=""
^DIST(.403,99,"AY","F8973",2.11,"L",1,368,9)=""
^DIST(.403,99,"AY","F8973",3.11,"L",1,368,5)=""
^DIST(.403,99,"AY","F8973",4.11,"L",1,368,7)=""
^DIST(.403,99,"AY","F8973",5.01,"L",1,368,13)=""
^DIST(.403,99,"AY","F8973",5.02,"L",1,368,14)=""
^DIST(.403,99,"AY","F8973",5.03,"L",1,368,15)=""
^DIST(.403,99,"AY","F8973",19.01,"L",1,368,11)=""
^DIST(.403,99,"AY","F8973",19.02,"L",1,368,12)=""
^DIST(.403,99,"AY","X",1,0,25)="CM Tools Parameters Edit                      Page 1"
^DIST(.403,99,"AY","X",1,3,0)="Current Version:                 Version Installed:"
^DIST(.403,99,"AY","X",1,4,2)="Current Patch:                   Patch Installed:"
^DIST(.403,99,"AY","X",1,7,3)="Purge HL7 Data After:     Weeks   Timing Monitor Update Rate - Min:"
^DIST(.403,99,"AY","X",1,8,0)="Purge Timing Data after:     Weeks     Timing Monitor Alert - Seconds:"
^DIST(.403,99,"AY","X",1,9,3)="Purge RUM Data After:     Weeks"
^DIST(.403,99,"AY","X",1,12,1)="Scheduled Down Time Start:"
^DIST(.403,99,"AY","X",1,13,2)="Scheduled Down Time Stop:"
^DIST(.403,99,"AY","X",1,14,6)="Reason for Down Time:"
^DIST(.403,100,0)="LREPI9^@^@^^2961007.1013^^^69.5^0^0^1"
^DIST(.403,100,40,0)="^.4031I^5^5"
^DIST(.403,100,40,1,0)="1^^1,1^2"
^DIST(.403,100,40,1,1)="Page 1"
^DIST(.403,100,40,1,40,0)="^.4032IP^380^5"
^DIST(.403,100,40,1,40,370,0)="370^1^1,1^d"
^DIST(.403,100,40,1,40,371,0)="371^2^6,1^e"
^DIST(.403,100,40,1,40,371,2)="3"
^DIST(.403,100,40,1,40,372,0)="372^3^13,2^e"
^DIST(.403,100,40,1,40,372,2)="3"
^DIST(.403,100,40,1,40,373,0)="373^4^7,2^d"
^DIST(.403,100,40,1,40,380,0)="380^5^13,54^e"
^DIST(.403,100,40,1,40,"AC",1,370)=""
^DIST(.403,100,40,1,40,"AC",2,371)=""
^DIST(.403,100,40,1,40,"AC",3,372)=""
^DIST(.403,100,40,1,40,"AC",4,373)=""
^DIST(.403,100,40,1,40,"AC",5,380)=""
^DIST(.403,100,40,1,40,"B",370,370)=""
^DIST(.403,100,40,1,40,"B",371,371)=""
^DIST(.403,100,40,1,40,"B",372,372)=""
^DIST(.403,100,40,1,40,"B",373,373)=""
^DIST(.403,100,40,1,40,"B",380,380)=""
^DIST(.403,100,40,2,0)="2^^1,1^3^1"
^DIST(.403,100,40,2,1)="Page 2"
^DIST(.403,100,40,2,40,0)="^.4032IP^381^5"
^DIST(.403,100,40,2,40,183,0)="183^5^14,1^e"
^DIST(.403,100,40,2,40,183,2)="3"
^DIST(.403,100,40,2,40,370,0)="370^1^1,1^d"
^DIST(.403,100,40,2,40,374,0)="374^2^9,1^e"
^DIST(.403,100,40,2,40,374,2)="3"
^DIST(.403,100,40,2,40,375,0)="375^4^7,1^d"
^DIST(.403,100,40,2,40,381,0)="381^3^9,44^e"
^DIST(.403,100,40,2,40,381,2)="3"
^DIST(.403,100,40,2,40,"AC",1,370)=""
^DIST(.403,100,40,2,40,"AC",2,374)=""
^DIST(.403,100,40,2,40,"AC",3,381)=""
^DIST(.403,100,40,2,40,"AC",4,375)=""
^DIST(.403,100,40,2,40,"AC",5,183)=""
^DIST(.403,100,40,2,40,"B",183,183)=""
^DIST(.403,100,40,2,40,"B",370,370)=""
^DIST(.403,100,40,2,40,"B",374,374)=""
^DIST(.403,100,40,2,40,"B",375,375)=""
^DIST(.403,100,40,2,40,"B",381,381)=""
^DIST(.403,100,40,3,0)="3^^1,1^4^2"
^DIST(.403,100,40,3,1)="Page 3"
^DIST(.403,100,40,3,40,0)="^.4032IP^378^4"
^DIST(.403,100,40,3,40,370,0)="370^1^1,1^d"
^DIST(.403,100,40,3,40,376,0)="376^2^7,1^d"
^DIST(.403,100,40,3,40,377,0)="377^3^11,1^e"
^DIST(.403,100,40,3,40,377,2)="4"
^DIST(.403,100,40,3,40,378,0)="378^4^11,40^e"
^DIST(.403,100,40,3,40,378,2)="4"
^DIST(.403,100,40,3,40,"AC",1,370)=""
^DIST(.403,100,40,3,40,"AC",2,376)=""
^DIST(.403,100,40,3,40,"AC",3,377)=""
^DIST(.403,100,40,3,40,"AC",4,378)=""
^DIST(.403,100,40,3,40,"B",370,370)=""
^DIST(.403,100,40,3,40,"B",376,376)=""
^DIST(.403,100,40,3,40,"B",377,377)=""
^DIST(.403,100,40,3,40,"B",378,378)=""
^DIST(.403,100,40,4,0)="4^^1,1^5^4"
^DIST(.403,100,40,4,1)="Page 4"
^DIST(.403,100,40,4,40,0)="^.4032IP^382^2"
^DIST(.403,100,40,4,40,370,0)="370^1^1,1^d"
^DIST(.403,100,40,4,40,382,0)="382^2^7,1^e"
^DIST(.403,100,40,4,40,"AC",1,370)=""
^DIST(.403,100,40,4,40,"AC",2,382)=""
^DIST(.403,100,40,4,40,"B",370,370)=""
^DIST(.403,100,40,4,40,"B",382,382)=""
^DIST(.403,100,40,5,0)="5^^1,1^1^4"
^DIST(.403,100,40,5,1)="Page 5"
^DIST(.403,100,40,5,40,0)="^.4032IP^379^2"
^DIST(.403,100,40,5,40,370,0)="370^1^1,1^d"
^DIST(.403,100,40,5,40,379,0)="379^2^7,1^e"
^DIST(.403,100,40,5,40,"AC",1,370)=""
^DIST(.403,100,40,5,40,"AC",2,379)=""
^DIST(.403,100,40,5,40,"B",370,370)=""
^DIST(.403,100,40,5,40,"B",379,379)=""
^DIST(.403,100,40,"B",1,1)=""
^DIST(.403,100,40,"B",2,2)=""
^DIST(.403,100,40,"B",3,3)=""
^DIST(.403,100,40,"B",4,4)=""
^DIST(.403,100,40,"B",5,5)=""
^DIST(.403,100,40,"C","PAGE 1",1)=""
^DIST(.403,100,40,"C","PAGE 2",2)=""
^DIST(.403,100,40,"C","PAGE 3",3)=""
^DIST(.403,100,40,"C","PAGE 4",4)=""
^DIST(.403,100,40,"C","PAGE 5",5)=""
^DIST(.403,100,"AY",1,0,0,"N")="1,372^1,371^1,371^1,372^1,371"
^DIST(.403,100,"AY",1,370)="0^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",1,370,2,"D")="3^6^50^.01"
^DIST(.403,100,"AY",1,370,3,"D")="3^69^3^1"
^DIST(.403,100,"AY",1,370,6,"D")="^^^^1^66^^0"
^DIST(.403,100,"AY",1,371)="5^0^69.52^^e^^3^^1^1"
^DIST(.403,100,"AY",1,371,1,"D")="8^0^30^.01"
^DIST(.403,100,"AY",1,371,1,"N")="0^1,372^1,372^0^1,372^1,-1^1,+1^2^3,-1^2"
^DIST(.403,100,"AY",1,371,2,"D")="8^34^20^1"
^DIST(.403,100,"AY",1,371,2,"N")="0^1,372^1,372^1^1,372^2,-1^2,+1^3^1^3"
^DIST(.403,100,"AY",1,371,3,"D")="8^60^15^2"
^DIST(.403,100,"AY",1,371,3,"N")="0^1,372^1,372^2^1,372^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,100,"AY",1,372)="12^1^69.54^^e^^3^^1^1"
^DIST(.403,100,"AY",1,372,1,"D")="14^2^7^.01"
^DIST(.403,100,"AY",1,372,1,"N")="1,371^0^0^3,371^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",1,372,2,"D")="14^34^25^0^^^^^1"
^DIST(.403,100,"AY",1,372,2,"N")="^^0^^0"
^DIST(.403,100,"AY",1,373)="6^1^69.5^^d^^^^0"
^DIST(.403,100,"AY",1,380)="12^53^69.5^^e^^^^0"
^DIST(.403,100,"AY",1,"FIRST")="1,371"
^DIST(.403,100,"AY",2,0,0,"N")="1,183^1,374^1,374^1,183^1,374"
^DIST(.403,100,"AY",2,183)="13^0^69.55^^e^^3^^1^1"
^DIST(.403,100,"AY",2,183,1,"D")="14^0^30^.01"
^DIST(.403,100,"AY",2,183,1,"N")="1,374^0^0^1,381^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",2,183,2,"D")="14^48^30^0^^^^^1"
^DIST(.403,100,"AY",2,183,2,"N")="^^0^^0"
^DIST(.403,100,"AY",2,183,3,"D")="14^33^12^0^^^^^1"
^DIST(.403,100,"AY",2,183,3,"N")="^^0^^0"
^DIST(.403,100,"AY",2,370)="0^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",2,370,2,"D")="3^6^50^.01"
^DIST(.403,100,"AY",2,370,3,"D")="3^69^3^1"
^DIST(.403,100,"AY",2,370,6,"D")="^^^^1^66^^0"
^DIST(.403,100,"AY",2,374)="8^0^69.53^^e^^3^^1^1"
^DIST(.403,100,"AY",2,374,1,"D")="8^0^35^.01"
^DIST(.403,100,"AY",2,374,1,"N")="0^1,183^1,381^0^1,381^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",2,375)="6^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",2,381)="8^43^69.58^^e^^3^^1^1"
^DIST(.403,100,"AY",2,381,1,"D")="8^44^15^.01"
^DIST(.403,100,"AY",2,381,1,"N")="0^1,183^1,183^1,374^1,183^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",2,"FIRST")="1,374"
^DIST(.403,100,"AY",3,0,0,"N")="1,377^1,377^1,377^1,378^1,377"
^DIST(.403,100,"AY",3,370)="0^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",3,370,2,"D")="3^6^50^.01"
^DIST(.403,100,"AY",3,370,3,"D")="3^69^3^1"
^DIST(.403,100,"AY",3,370,6,"D")="^^^^1^66^^0"
^DIST(.403,100,"AY",3,376)="6^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",3,377)="10^0^69.56^^e^^4^^1^1"
^DIST(.403,100,"AY",3,377,1,"D")="10^0^30^.01"
^DIST(.403,100,"AY",3,377,1,"N")="0^0^1,378^0^1,378^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",3,378)="10^39^69.57^^e^^4^^1^1"
^DIST(.403,100,"AY",3,378,1,"D")="10^39^30^.01"
^DIST(.403,100,"AY",3,378,1,"N")="0^0^0^1,377^0^1,-1^1,+1^1,+1^1,-1^1,+1"
^DIST(.403,100,"AY",3,"FIRST")="1,377"
^DIST(.403,100,"AY",4,0,0,"N")="5,382^1,382^1,382^5,382^1,382"
^DIST(.403,100,"AY",4,370)="0^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",4,370,2,"D")="3^6^50^.01"
^DIST(.403,100,"AY",4,370,3,"D")="3^69^3^1"
^DIST(.403,100,"AY",4,370,6,"D")="^^^^1^66^^0"
^DIST(.403,100,"AY",4,382)="6^0^69.5^^e^^^^1"
^DIST(.403,100,"AY",4,382,1,"D")="6^17^3^11"
^DIST(.403,100,"AY",4,382,1,"N")="0^3^2^0^2"
^DIST(.403,100,"AY",4,382,2,"D")="6^54^3^13"
^DIST(.403,100,"AY",4,382,2,"N")="0^3^3^1^3"
^DIST(.403,100,"AY",4,382,3,"D")="8^22^11^17"
^DIST(.403,100,"AY",4,382,3,"N")="1^5^4^2^4"
^DIST(.403,100,"AY",4,382,4,"D")="8^63^11^18"
^DIST(.403,100,"AY",4,382,4,"N")="2^5^5^3^5"
^DIST(.403,100,"AY",4,382,5,"D")="10^12^1^16"
^DIST(.403,100,"AY",4,382,5,"N")="3^0^0^4^0"
^DIST(.403,100,"AY",4,"FIRST")="1,382"
^DIST(.403,100,"AY",5,0,0,"N")="7,379^3,379^3,379^7,379^3,379"
^DIST(.403,100,"AY",5,370)="0^0^69.5^^d^^^^0"
^DIST(.403,100,"AY",5,370,2,"D")="3^6^50^.01"
^DIST(.403,100,"AY",5,370,3,"D")="3^69^3^1"
^DIST(.403,100,"AY",5,370,6,"D")="^^^^1^66^^0"
^DIST(.403,100,"AY",5,379)="6^0^69.5^^e^^^^3"
^DIST(.403,100,"AY",5,379,3,"D")="7^10^20^9"
^DIST(.403,100,"AY",5,379,3,"N")="0^5^4^0^4"
^DIST(.403,100,"AY",5,379,4,"D")="7^47^25^12"
^DIST(.403,100,"AY",5,379,4,"N")="0^8^5^3^5"
^DIST(.403,100,"AY",5,379,5,"D")="9^11^7^10"
^DIST(.403,100,"AY",5,379,5,"N")="3^9^8^4^8"
^DIST(.403,100,"AY",5,379,7,"D")="13^21^1^15"
^DIST(.403,100,"AY",5,379,7,"N")="9^0^0^9^9^^^^^^1"
^DIST(.403,100,"AY",5,379,8,"D")="9^47^2^10.5"
^DIST(.403,100,"AY",5,379,8,"N")="4^9^9^5^7"
^DIST(.403,100,"AY",5,379,9,"D")="11^15^13^19"
^DIST(.403,100,"AY",5,379,9,"N")="5^7^7^8^0"
^DIST(.403,100,"AY",5,"FIRST")="3,379"
^DIST(.403,100,"AY","CAP","AFTER DATE OF BIRTH","1^2^3^4^5",4,382,4)=""
^DIST(.403,100,"AY","CAP","BEFORE DATE OF BIRTH","1^2^3^4^5",4,382,3)=""
^DIST(.403,100,"AY","CAP","FIRST ENCOUNTER","1^2^3^4^5",4,382,1)=""
^DIST(.403,100,"AY","CAP","FOLLOW PTF","1^2^3^4^5",4,382,2)=""
^DIST(.403,100,"AY","CAP","GENERAL DESCRIPTION","1^2^3^4^5",5,379,7)=""
^DIST(.403,100,"AY","CAP","LAG DAYS","1^2^3^4^5",5,379,8)=""
^DIST(.403,100,"AY","CAP","PREVIOUS CYCLE","1^2^3^4^5",5,379,9)=""
^DIST(.403,100,"AY","CAP","PROTOCOL","1^2^3^4^5",5,379,4)=""
^DIST(.403,100,"AY","CAP","RUN CYCLE","1^2^3^4^5",5,379,5)=""
^DIST(.403,100,"AY","CAP","RUN DATE","1^2^3^4^5",5,379,3)=""
^DIST(.403,100,"AY","CAP","SEX","1^2^3^4^5",4,382,5)=""
^DIST(.403,100,"AY","COMP",62.06,64,2,183,2)=""
^DIST(.403,100,"AY","COMP",62.06,64,2,183,3)=""
^DIST(.403,100,"AY","COMP",64,1,2,183,3)=""
^DIST(.403,100,"AY","COMP",69.54,.01,1,372,2)=""
^DIST(.403,100,"AY","COMP",69.55,.01,2,183,2)=""
^DIST(.403,100,"AY","COMP",69.55,.01,2,183,3)=""
^DIST(.403,100,"AY","COMP",80,3,1,372,2)=""
^DIST(.403,100,"AY","COMPE",183,2)="S Y=DDSE(1)"
^DIST(.403,100,"AY","COMPE",183,2,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,100,""AY"",""COMPE"",183,2,1,DDSI))  X ^(DDSI)"
^DIST(.403,100,"AY","COMPE",183,2,1,1)="S X=$$GET^DDSVAL(69.55,.DA,.01)"
^DIST(.403,100,"AY","COMPE",183,2,1,2)="S X=$$GET^DDSVAL(62.06,X,64,"""",""E""),DDSE(1)=X"
^DIST(.403,100,"AY","COMPE",183,3)="S Y=DDSE(1)"
^DIST(.403,100,"AY","COMPE",183,3,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:3 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,100,""AY"",""COMPE"",183,3,1,DDSI))  X ^(DDSI)"
^DIST(.403,100,"AY","COMPE",183,3,1,1)="S X=$$GET^DDSVAL(69.55,.DA,.01)"
^DIST(.403,100,"AY","COMPE",183,3,1,2)="S X=$$GET^DDSVAL(62.06,X,64)"
^DIST(.403,100,"AY","COMPE",183,3,1,3)="S X=$$GET^DDSVAL(64,X,1,"""",""E""),DDSE(1)=X"
^DIST(.403,100,"AY","COMPE",372,2)="S Y=DDSE(1)"
^DIST(.403,100,"AY","COMPE",372,2,1)="N DDSI,X S DDSE(1)="""" F DDSI=1:1:2 Q:DDSI>1&($G(X)'>0)!'$D(^DIST(.403,100,""AY"",""COMPE"",372,2,1,DDSI))  X ^(DDSI)"
^DIST(.403,100,"AY","COMPE",372,2,1,1)="S X=$$GET^DDSVAL(69.54,.DA,.01)"
^DIST(.403,100,"AY","COMPE",372,2,1,2)="S X=$$GET^DDSVAL(80,X,3,"""",""E""),DDSE(1)=X"
^DIST(.403,100,"AY","F69.5",.01,"L",1,370,2)=""
^DIST(.403,100,"AY","F69.5",.01,"L",2,370,2)=""
^DIST(.403,100,"AY","F69.5",.01,"L",3,370,2)=""
^DIST(.403,100,"AY","F69.5",.01,"L",4,370,2)=""
^DIST(.403,100,"AY","F69.5",.01,"L",5,370,2)=""
^DIST(.403,100,"AY","F69.5",1,"L",1,370,3)=""
^DIST(.403,100,"AY","F69.5",1,"L",2,370,3)=""
^DIST(.403,100,"AY","F69.5",1,"L",3,370,3)=""
^DIST(.403,100,"AY","F69.5",1,"L",4,370,3)=""
^DIST(.403,100,"AY","F69.5",1,"L",5,370,3)=""
^DIST(.403,100,"AY","F69.5",9,"L",5,379,3)=""
^DIST(.403,100,"AY","F69.5",10,"L",5,379,5)=""
^DIST(.403,100,"AY","F69.5",10.5,"L",5,379,8)=""
^DIST(.403,100,"AY","F69.5",11,"L",4,382,1)=""
^DIST(.403,100,"AY","F69.5",12,"L",5,379,4)=""
^DIST(.403,100,"AY","F69.5",13,"L",4,382,2)=""
^DIST(.403,100,"AY","F69.5",15,"L",5,379,7)=""
^DIST(.403,100,"AY","F69.5",16,"L",4,382,5)=""
^DIST(.403,100,"AY","F69.5",17,"L",4,382,3)=""
^DIST(.403,100,"AY","F69.5",18,"L",4,382,4)=""
^DIST(.403,100,"AY","F69.5",19,"L",5,379,9)=""
^DIST(.403,100,"AY","F69.52",.01,"L",1,371,1)=""
^DIST(.403,100,"AY","F69.52",1,"L",1,371,2)=""
^DIST(.403,100,"AY","F69.52",2,"L",1,371,3)=""
^DIST(.403,100,"AY","F69.53",.01,"L",2,374,1)=""
^DIST(.403,100,"AY","F69.54",0,"L",1,372,2)=""
^DIST(.403,100,"AY","F69.54",.01,"L",1,372,1)=""
^DIST(.403,100,"AY","F69.55",0,"L",2,183,2)=""
^DIST(.403,100,"AY","F69.55",0,"L",2,183,3)=""
^DIST(.403,100,"AY","F69.55",.01,"L",2,183,1)=""
^DIST(.403,100,"AY","F69.56",.01,"L",3,377,1)=""
^DIST(.403,100,"AY","F69.57",.01,"L",3,378,1)=""
^DIST(.403,100,"AY","F69.58",.01,"L",2,381,1)=""
^DIST(.403,100,"AY","X",1,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,100,"AY","X",1,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,100,"AY","X",1,3,0,"A")="1;4;U"
^DIST(.403,100,"AY","X",1,4,0)="________________________________________________________________________________"
^DIST(.403,100,"AY","X",1,6,1)="Laboratory Test(s)               Indicator                 Value"
^DIST(.403,100,"AY","X",1,12,2)="ICDM-9                          ICDM-9 Description"
^DIST(.403,100,"AY","X",2,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,100,"AY","X",2,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,100,"AY","X",2,3,0,"A")="1;4;U"
^DIST(.403,100,"AY","X",2,4,0)="________________________________________________________________________________"
^DIST(.403,100,"AY","X",2,6,0)="Selected Etiology                           Selected Snomed Codes"
^DIST(.403,100,"AY","X",2,12,0)="Antimicrobial Susceptibility     NLT Code       NLT Description"
^DIST(.403,100,"AY","X",3,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,100,"AY","X",3,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,100,"AY","X",3,3,0,"A")="1;4;U"
^DIST(.403,100,"AY","X",3,4,0)="________________________________________________________________________________"
^DIST(.403,100,"AY","X",3,6,26)="Topography Selection"
^DIST(.403,100,"AY","X",3,8,0)="Include                                Exclude"
^DIST(.403,100,"AY","X",4,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,100,"AY","X",4,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,100,"AY","X",4,3,0,"A")="1;4;U"
^DIST(.403,100,"AY","X",4,4,0)="________________________________________________________________________________"
^DIST(.403,100,"AY","X",4,6,0)="FIRST ENCOUNTER:                          FOLLOW PTF:"
^DIST(.403,100,"AY","X",4,8,0)="BEFORE DATE OF BIRTH:                     AFTER DATE OF BIRTH:"
^DIST(.403,100,"AY","X",4,10,0)="Select SEX:"
^DIST(.403,100,"AY","X",5,1,14)="LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN"
^DIST(.403,100,"AY","X",5,3,0)="NAME:                                                      INACTIVE: "
^DIST(.403,100,"AY","X",5,3,0,"A")="1;4;U"
^DIST(.403,100,"AY","X",5,4,0)="________________________________________________________________________________"
^DIST(.403,100,"AY","X",5,7,0)="Run Date:                            Protocol:"
^DIST(.403,100,"AY","X",5,9,0)="Run Cycle:                           Lag Days:"
^DIST(.403,100,"AY","X",5,11,0)="Previous Cycle:"
^DIST(.403,100,"AY","X",5,13,0)="General Description:"
^DIST(.403,101,0)="XUDEVICE RES^@^@^^3070524.173^^^3.5^0^0^1"
^DIST(.403,101,40,0)="^.4031I^1^1"
^DIST(.403,101,40,1,0)="1^^1,1"
^DIST(.403,101,40,1,1)="Page 1"
^DIST(.403,101,40,1,40,0)="^.4032IP^420^2"
^DIST(.403,101,40,1,40,419,0)="419^1^1,1^e"
^DIST(.403,101,40,1,40,420,0)="420^2^6,1^e"
^DIST(.403,101,40,1,40,420,1)="$I;L"
^DIST(.403,101,40,1,40,"AC",1,419)=""
^DIST(.403,101,40,1,40,"AC",2,420)=""
^DIST(.403,101,40,1,40,"B",419,419)=""
^DIST(.403,101,40,1,40,"B",420,420)=""
^DIST(.403,101,40,"B",1,1)=""
^DIST(.403,101,40,"C","PAGE 1",1)=""
^DIST(.403,101,"AY",1,0,0,"N")="2,420^2,419^2,419^2,420^2,419"
^DIST(.403,101,"AY",1,419)="0^0^3.5^^e^^^^2"
^DIST(.403,101,"AY",1,419,2,"D")="2^18^30^.01"
^DIST(.403,101,"AY",1,419,2,"N")="0^5^5^0^5"
^DIST(.403,101,"AY",1,419,3,"D")="5^18^3^35"
^DIST(.403,101,"AY",1,419,3,"N")="4^1,420^1,420^4^1,420"
^DIST(.403,101,"AY",1,419,4,"D")="4^18^40^1"
^DIST(.403,101,"AY",1,419,4,"N")="5^3^3^5^3"
^DIST(.403,101,"AY",1,419,5,"D")="3^18^35^.02"
^DIST(.403,101,"AY",1,419,5,"N")="2^4^4^2^4"
^DIST(.403,101,"AY",1,420)="5^0^3.54^^e^^^1^1"
^DIST(.403,101,"AY",1,420,1,"D")="7^18^30^.01"
^DIST(.403,101,"AY",1,420,1,"N")="3,419^2^2^3,419^2"
^DIST(.403,101,"AY",1,420,2,"D")="8^18^3^1"
^DIST(.403,101,"AY",1,420,2,"N")="1^0^0^1^0"
^DIST(.403,101,"AY",1,420,3,"D")="9^18^2^0^^^^^1"
^DIST(.403,101,"AY",1,420,"PTB")="3.5,1;J"
^DIST(.403,101,"AY",1,420,"PTB",1)="N D,DIC,Y S X=$$GET^DDSVAL(3.5,.DA,1,"""",""E""),DIC=""^%ZISL(3.54,"",DIC(0)=""MF"" S:$G(DDS1E) DIC(0)=DIC(0)_""EL"" D ^DIC S X=+Y,DA=X"
^DIST(.403,101,"AY",1,"FIRST")="2,419"
^DIST(.403,101,"AY","CAP","$I",1,1,419,4)=""
^DIST(.403,101,"AY","CAP","AVAILABLE SLOTS",1,1,420,2)=""
^DIST(.403,101,"AY","CAP","DEVICE NAME",1,1,419,2)=""
^DIST(.403,101,"AY","CAP","LOCATION",1,1,419,5)=""
^DIST(.403,101,"AY","CAP","RESOURCE NAME",1,1,420,1)=""
^DIST(.403,101,"AY","CAP","RESOURCE SLOTS",1,1,419,3)=""
^DIST(.403,101,"AY","COMPE",420,3)="N I S Y=0 F I=0:0 S I=$O(^%ZISL(3.54,DA,1,I)) Q:'I  S Y=Y+1"
^DIST(.403,101,"AY","F3.5",.01,"L",1,419,2)=""
^DIST(.403,101,"AY","F3.5",.02,"L",1,419,5)=""
^DIST(.403,101,"AY","F3.5",1,"L",1,419,4)=""
^DIST(.403,101,"AY","F3.5",35,"L",1,419,3)=""
^DIST(.403,101,"AY","F3.54",0,"L",1,420,3)=""
^DIST(.403,101,"AY","F3.54",.01,"L",1,420,1)=""
^DIST(.403,101,"AY","F3.54",1,"L",1,420,2)=""
^DIST(.403,101,"AY","PT",3.5,1,1,420)=""
^DIST(.403,101,"AY","X",1,0,24)="Edit a Resource Device"
^DIST(.403,101,"AY","X",1,2,5)="Device Name:"
^DIST(.403,101,"AY","X",1,2,5,"A")="1;11;U"
^DIST(.403,101,"AY","X",1,3,8)="Location:"
^DIST(.403,101,"AY","X",1,3,8,"A")="1;8;U"
^DIST(.403,101,"AY","X",1,4,14)="$I:"
^DIST(.403,101,"AY","X",1,4,14,"A")="1;2;U"
^DIST(.403,101,"AY","X",1,5,2)="Resource Slots:"
^DIST(.403,101,"AY","X",1,7,3)="Resource Name:"
^DIST(.403,101,"AY","X",1,7,3,"A")="1;13;U"
^DIST(.403,101,"AY","X",1,8,1)="Available Slots:"
^DIST(.403,101,"AY","X",1,9,6)="Slots Used:"
^DIST(.403,102,0)="PSBO BZ^^^^2990318.1536^3080526.1913^^53.69^0^0^1"
^DIST(.403,102,11)="S PSBSAVE=0"
^DIST(.403,102,14)="S PSBSAVE=1"
^DIST(.403,102,20)="D VAL^PSBO("".31;.06"")"
^DIST(.403,102,40,0)="^.4031I^1^1"
^DIST(.403,102,40,1,0)="1^^1,1"
^DIST(.403,102,40,1,1)="Page 1"
^DIST(.403,102,40,1,40,0)="^.4032IP^423^3"
^DIST(.403,102,40,1,40,421,0)="421^1^1,1^d"
^DIST(.403,102,40,1,40,422,0)="422^3^15,1^e"
^DIST(.403,102,40,1,40,423,0)="423^2^3,1^e"
^DIST(.403,102,40,1,40,"AC",1,421)=""
^DIST(.403,102,40,1,40,"AC",2,423)=""
^DIST(.403,102,40,1,40,"AC",3,422)=""
^DIST(.403,102,40,1,40,"B",421,421)=""
^DIST(.403,102,40,1,40,"B",422,422)=""
^DIST(.403,102,40,1,40,"B",423,423)=""
^DIST(.403,102,40,"B",1,1)=""
^DIST(.403,102,40,"C","PAGE 1",1)=""
^DIST(.403,102,"AY",1,0,0,"N")="3,422^1,423^1,423^3,422^1,423"
^DIST(.403,102,"AY",1,421)="0^0^53.69^^d^^^^0"
^DIST(.403,102,"AY",1,421,1,"D")="^^^^0^0^^0"
^DIST(.403,102,"AY",1,421,3,"D")="^^^^1^0^^0"
^DIST(.403,102,"AY",1,421,4,"D")="^^^^0^40^^0"
^DIST(.403,102,"AY",1,422)="14^0^53.69^^e^^^^1"
^DIST(.403,102,"AY",1,422,1,"D")="14^58^22^.06"
^DIST(.403,102,"AY",1,422,1,"N")="10,423^2^2^10,423^2"
^DIST(.403,102,"AY",1,422,2,"D")="15^58^17^.07"
^DIST(.403,102,"AY",1,422,2,"N")="1^3^3^1^3"
^DIST(.403,102,"AY",1,422,3,"D")="16^75^1^3,422"
^DIST(.403,102,"AY",1,422,3,"N")="2^0^0^2^0"
^DIST(.403,102,"AY",1,423)="2^0^53.69^^e^^^^1"
^DIST(.403,102,"AY",1,423,1,"D")="3^12^40^.31"
^DIST(.403,102,"AY",1,423,1,"N")="0^2^2^0^2"
^DIST(.403,102,"AY",1,423,2,"D")="4^18^25^.32"
^DIST(.403,102,"AY",1,423,2,"N")="1^3^3^1^3"
^DIST(.403,102,"AY",1,423,3,"D")="5^18^11^.33"
^DIST(.403,102,"AY",1,423,3,"N")="2^4^4^2^4"
^DIST(.403,102,"AY",1,423,4,"D")="6^18^10^.34"
^DIST(.403,102,"AY",1,423,4,"N")="3^5^5^3^5"
^DIST(.403,102,"AY",1,423,5,"D")="8^18^7^.35"
^DIST(.403,102,"AY",1,423,5,"N")="4^6^6^4^6"
^DIST(.403,102,"AY",1,423,6,"D")="9^18^5^.36"
^DIST(.403,102,"AY",1,423,6,"N")="5^7^7^5^7"
^DIST(.403,102,"AY",1,423,7,"D")="10^18^5^.37"
^DIST(.403,102,"AY",1,423,7,"N")="6^8^8^6^8"
^DIST(.403,102,"AY",1,423,8,"D")="11^18^7^.38"
^DIST(.403,102,"AY",1,423,8,"N")="7^9^9^7^9"
^DIST(.403,102,"AY",1,423,9,"D")="12^18^30^.12"
^DIST(.403,102,"AY",1,423,9,"N")="8^10^10^8^10"
^DIST(.403,102,"AY",1,423,10,"D")="13^18^22^.39"
^DIST(.403,102,"AY",1,423,10,"N")="9^1,422^1,422^9^1,422"
^DIST(.403,102,"AY",1,"FIRST")="1,423"
^DIST(.403,102,"AY","CAP","# LABELS",1,1,423,8)=""
^DIST(.403,102,"AY","CAP","CHECKED BY",1,1,423,7)=""
^DIST(.403,102,"AY","CAP","DOSAGE",1,1,423,10)=""
^DIST(.403,102,"AY","CAP","DRUG NAME",1,1,423,1)=""
^DIST(.403,102,"AY","CAP","EXPIRATION DATE",1,1,423,3)=""
^DIST(.403,102,"AY","CAP","FILLED BY",1,1,423,6)=""
^DIST(.403,102,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,422,3)=""
^DIST(.403,102,"AY","CAP","LOT #",1,1,423,2)=""
^DIST(.403,102,"AY","CAP","MANUFACTURER",1,1,423,4)=""
^DIST(.403,102,"AY","CAP","PATIENT NAME",1,1,423,9)=""
^DIST(.403,102,"AY","CAP","PRINT TO DEVICE",1,1,422,1)=""
^DIST(.403,102,"AY","CAP","QUANTITY",1,1,423,5)=""
^DIST(.403,102,"AY","CAP","QUEUE TO RUN AT",1,1,422,2)=""
^DIST(.403,102,"AY","F0","3,422","L",1,422,3)=""
^DIST(.403,102,"AY","F53.69",.06,"L",1,422,1)=""
^DIST(.403,102,"AY","F53.69",.07,"L",1,422,2)=""
^DIST(.403,102,"AY","F53.69",.12,"L",1,423,9)=""
^DIST(.403,102,"AY","F53.69",.31,"L",1,423,1)=""
^DIST(.403,102,"AY","F53.69",.32,"L",1,423,2)=""
^DIST(.403,102,"AY","F53.69",.33,"L",1,423,3)=""
^DIST(.403,102,"AY","F53.69",.34,"L",1,423,4)=""
^DIST(.403,102,"AY","F53.69",.35,"L",1,423,5)=""
^DIST(.403,102,"AY","F53.69",.36,"L",1,423,6)=""
^DIST(.403,102,"AY","F53.69",.37,"L",1,423,7)=""
^DIST(.403,102,"AY","F53.69",.38,"L",1,423,8)=""
^DIST(.403,102,"AY","F53.69",.39,"L",1,423,10)=""
^DIST(.403,102,"AY","X",1,3,1)="Drug Name:"
^DIST(.403,102,"AY","X",1,4,11)="Lot #:"
^DIST(.403,102,"AY","X",1,5,1)="Expiration Date:"
^DIST(.403,102,"AY","X",1,6,4)="Manufacturer:"
^DIST(.403,102,"AY","X",1,8,8)="Quantity:"
^DIST(.403,102,"AY","X",1,9,7)="Filled By:"
^DIST(.403,102,"AY","X",1,10,6)="Checked By:"
^DIST(.403,102,"AY","X",1,11,8)="# Labels:"
^DIST(.403,102,"AY","X",1,12,4)="Patient Name:"
^DIST(.403,102,"AY","X",1,13,10)="Dosage:"
^DIST(.403,102,"AY","X",1,14,41)="Print to DEVICE:"
^DIST(.403,102,"AY","X",1,15,41)="Queue To Run At:"
^DIST(.403,102,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,103,0)="ENIT EDIT^@^@^^3071029.1156^^^6914^0^0^1"
^DIST(.403,103,40,0)="^.4031I^1^1"
^DIST(.403,103,40,1,0)="1^^1,1"
^DIST(.403,103,40,1,1)="Page 1"
^DIST(.403,103,40,1,40,0)="^.4032IP^425^2"
^DIST(.403,103,40,1,40,424,0)="424^1^1,1^d"
^DIST(.403,103,40,1,40,425,0)="425^2^7,1^e"
^DIST(.403,103,40,1,40,"AC",1,424)=""
^DIST(.403,103,40,1,40,"AC",2,425)=""
^DIST(.403,103,40,1,40,"B",424,424)=""
^DIST(.403,103,40,1,40,"B",425,425)=""
^DIST(.403,103,40,"B",1,1)=""
^DIST(.403,103,40,"C","PAGE 1",1)=""
^DIST(.403,103,"AY",1,0,0,"N")="8,425^1,425^1,425^8,425^1,425"
^DIST(.403,103,"AY",1,424)="0^0^6914^^d^^^^0"
^DIST(.403,103,"AY",1,424,2,"D")="1^9^10^.01"
^DIST(.403,103,"AY",1,424,3,"D")="2^6^60^1"
^DIST(.403,103,"AY",1,424,4,"D")="3^7^30^4"
^DIST(.403,103,"AY",1,424,5,"D")="3^49^30^5"
^DIST(.403,103,"AY",1,424,6,"D")="4^0^57^3"
^DIST(.403,103,"AY",1,425)="6^0^6914^^e^^^^1"
^DIST(.403,103,"AY",1,425,1,"D")="7^10^20^24"
^DIST(.403,103,"AY",1,425,1,"N")="0^3^2^0^2"
^DIST(.403,103,"AY",1,425,2,"D")="7^57^20^90"
^DIST(.403,103,"AY",1,425,2,"N")="0^3^3^1^3"
^DIST(.403,103,"AY",1,425,3,"D")="10^2^75^91"
^DIST(.403,103,"AY",1,425,3,"N")="1^4^4^2^4"
^DIST(.403,103,"AY",1,425,4,"D")="12^5^5^19"
^DIST(.403,103,"AY",1,425,4,"N")="3^6^5^3^5"
^DIST(.403,103,"AY",1,425,5,"D")="12^27^30^21"
^DIST(.403,103,"AY",1,425,5,"N")="3^6^6^4^6"
^DIST(.403,103,"AY",1,425,6,"D")="14^24^1^6,425"
^DIST(.403,103,"AY",1,425,6,"N")="4^8^7^5^7"
^DIST(.403,103,"AY",1,425,7,"D")="14^49^12^23"
^DIST(.403,103,"AY",1,425,7,"N")="5^8^8^6^8"
^DIST(.403,103,"AY",1,425,8,"D")="16^18^1^92"
^DIST(.403,103,"AY",1,425,8,"N")="6^0^0^7^0^^^^^^1"
^DIST(.403,103,"AY",1,425,9,"D")="^^^^16^21^^0"
^DIST(.403,103,"AY",1,"FIRST")="1,425"
^DIST(.403,103,"AY","CAP","CMR",1,1,425,4)=""
^DIST(.403,103,"AY","CAP","IT COMMENTS (WP)",1,1,425,8)=""
^DIST(.403,103,"AY","CAP","IT REMOTE LOCATION (PRESS <PF1>Z FOR ZOO",1,1,425,3)=""
^DIST(.403,103,"AY","CAP","LAST INVENTORIED(R)",1,1,425,7)=""
^DIST(.403,103,"AY","CAP","LOCATION",1,1,425,1)=""
^DIST(.403,103,"AY","CAP","NON-SPACE FILE LOCATION",1,1,425,2)=""
^DIST(.403,103,"AY","CAP","UPDATE INVENTORY DATE?",1,1,425,6)=""
^DIST(.403,103,"AY","CAP","USING SERVICE",1,1,425,5)=""
^DIST(.403,103,"AY","F0","6,425","L",1,425,6)=""
^DIST(.403,103,"AY","F6914",.01,"L",1,424,2)=""
^DIST(.403,103,"AY","F6914",1,"L",1,424,3)=""
^DIST(.403,103,"AY","F6914",3,"L",1,424,6)=""
^DIST(.403,103,"AY","F6914",4,"L",1,424,4)=""
^DIST(.403,103,"AY","F6914",5,"L",1,424,5)=""
^DIST(.403,103,"AY","F6914",19,"L",1,425,4)=""
^DIST(.403,103,"AY","F6914",21,"L",1,425,5)=""
^DIST(.403,103,"AY","F6914",23,"L",1,425,7)=""
^DIST(.403,103,"AY","F6914",24,"L",1,425,1)=""
^DIST(.403,103,"AY","F6914",90,"L",1,425,2)=""
^DIST(.403,103,"AY","F6914",91,"L",1,425,3)=""
^DIST(.403,103,"AY","F6914",92,"L",1,425,8)=""
^DIST(.403,103,"AY","X",1,0,29)="Inventory Edit (IT)"
^DIST(.403,103,"AY","X",1,1,0)="Entry #:"
^DIST(.403,103,"AY","X",1,1,0,"A")="1;7;U"
^DIST(.403,103,"AY","X",1,2,0)="Mfgr:"
^DIST(.403,103,"AY","X",1,3,0)="Model:                                 Serial #:"
^DIST(.403,103,"AY","X",1,5,0)="--------------------------------------------------------------------------------"
^DIST(.403,103,"AY","X",1,7,0)="LOCATION:                       NON-SPACE FILE LOCATION:"
^DIST(.403,103,"AY","X",1,9,0)="IT REMOTE LOCATION (Press <PF1>Z for zoom editor):"
^DIST(.403,103,"AY","X",1,12,0)="CMR:        USING SERVICE:"
^DIST(.403,103,"AY","X",1,14,0)="UPDATE INVENTORY DATE?:     LAST INVENTORIED(R):"
^DIST(.403,103,"AY","X",1,16,0)="IT COMMENTS (wp):"
^DIST(.403,104,0)="PXRM DIALOG EDIT^@^@^^2991201.1104^^^801.41^1^1^1"
^DIST(.403,104,40,0)="^.4031I^1^1"
^DIST(.403,104,40,1,0)="1^^1,1"
^DIST(.403,104,40,1,1)="Page 1"
^DIST(.403,104,40,"B",1,1)=""
^DIST(.403,104,40,"C","PAGE 1",1)=""
^DIST(.403,105,0)="XUSITEIP^@^@^^3030218.1552^^^8989.3^0^0^1"
^DIST(.403,105,40,0)="^.4031I^1^1"
^DIST(.403,105,40,1,0)="1^^1,1"
^DIST(.403,105,40,1,1)="Page 1"
^DIST(.403,105,40,1,11)="D UNED^DDSUTL(1,""XUSITEPARM 0"",1,1)"
^DIST(.403,105,40,1,40,0)="^.4032IP^405^3"
^DIST(.403,105,40,1,40,51,0)="51^1^1,1^e"
^DIST(.403,105,40,1,40,404,0)="404^2^4,1^e"
^DIST(.403,105,40,1,40,405,0)="405^3^11,1^e"
^DIST(.403,105,40,1,40,405,2)="4^B^f"
^DIST(.403,105,40,1,40,"AC",1,51)=""
^DIST(.403,105,40,1,40,"AC",2,404)=""
^DIST(.403,105,40,1,40,"AC",3,405)=""
^DIST(.403,105,40,1,40,"B",51,51)=""
^DIST(.403,105,40,1,40,"B",404,404)=""
^DIST(.403,105,40,1,40,"B",405,405)=""
^DIST(.403,105,40,"B",1,1)=""
^DIST(.403,105,40,"C","PAGE 1",1)=""
^DIST(.403,105,"AY",1,0,0,"N")="1,405^3,51^3,51^3,405^3,51"
^DIST(.403,105,"AY",1,51)="0^0^8989.3^^e^^^^3"
^DIST(.403,105,"AY",1,51,3,"D")="1^19^42^.01"
^DIST(.403,105,"AY",1,51,3,"N")="0^1,404^1,404^0^1,404"
^DIST(.403,105,"AY",1,404)="3^0^8989.3^^e^^^^1"
^DIST(.403,105,"AY",1,404,1,"D")="3^22^3^405.1"
^DIST(.403,105,"AY",1,404,1,"N")="3,51^5^4^3,51^4"
^DIST(.403,105,"AY",1,404,4,"D")="3^43^3^405.14"
^DIST(.403,105,"AY",1,404,4,"N")="3,51^5^7^1^7"
^DIST(.403,105,"AY",1,404,5,"D")="5^31^4^405.12"
^DIST(.403,105,"AY",1,404,5,"N")="1^9^6^7^6"
^DIST(.403,105,"AY",1,404,6,"D")="5^71^4^405.13"
^DIST(.403,105,"AY",1,404,6,"N")="7^10^9^5^9"
^DIST(.403,105,"AY",1,404,7,"D")="3^71^2^405.16"
^DIST(.403,105,"AY",1,404,7,"N")="3,51^6^5^4^5"
^DIST(.403,105,"AY",1,404,9,"D")="7^18^4^405.17"
^DIST(.403,105,"AY",1,404,9,"N")="5^11^10^6^10"
^DIST(.403,105,"AY",1,404,10,"D")="7^71^2^405.18"
^DIST(.403,105,"AY",1,404,10,"N")="6^11^11^9^11"
^DIST(.403,105,"AY",1,404,11,"D")="8^30^20^405.15"
^DIST(.403,105,"AY",1,404,11,"N")="9^1,405^1,405^10^1,405"
^DIST(.403,105,"AY",1,405)="10^0^8989.305^^e^^4^^1^1"
^DIST(.403,105,"AY",1,405,1,"D")="10^2^40^.01"
^DIST(.403,105,"AY",1,405,1,"N")="11,404^0^0^11,404^0^1,-1^1,+1^2^3,-1^2"
^DIST(.403,105,"AY",1,405,2,"D")="10^46^3^1"
^DIST(.403,105,"AY",1,405,2,"N")="11,404^0^0^1^0^2,-1^2,+1^3^1^3"
^DIST(.403,105,"AY",1,405,3,"D")="10^60^12^2"
^DIST(.403,105,"AY",1,405,3,"N")="11,404^0^0^2^0^3,-1^3,+1^1,+1^2^1,+1"
^DIST(.403,105,"AY",1,"FIRST")="3,51"
^DIST(.403,105,"AY","CAP","DOMAIN",1,1,51,3)=""
^DIST(.403,105,"AY","CAP","FAILED ATTEMPTS LIMIT - AOD",1,1,404,6)=""
^DIST(.403,105,"AY","CAP","FAILED ATTEMPTS LIMIT - IRM",1,1,404,5)=""
^DIST(.403,105,"AY","CAP","IP SECURITY ON/OFF",1,1,404,1)=""
^DIST(.403,105,"AY","CAP","KEEP THRESHOLD",1,1,404,9)=""
^DIST(.403,105,"AY","CAP","LAST FAILED ATTEMPTS CHECK",1,1,404,11)=""
^DIST(.403,105,"AY","CAP","TERMINAL SERVER LIMIT",1,1,404,7)=""
^DIST(.403,105,"AY","CAP","TOTAL COUNT INCREASE",1,1,404,10)=""
^DIST(.403,105,"AY","CAP","USER LOCKING",1,1,404,4)=""
^DIST(.403,105,"AY","F8989.3",.01,"L",1,51,3)=""
^DIST(.403,105,"AY","F8989.3",405.1,"L",1,404,1)=""
^DIST(.403,105,"AY","F8989.3",405.12,"L",1,404,5)=""
^DIST(.403,105,"AY","F8989.3",405.13,"L",1,404,6)=""
^DIST(.403,105,"AY","F8989.3",405.14,"L",1,404,4)=""
^DIST(.403,105,"AY","F8989.3",405.15,"L",1,404,11)=""
^DIST(.403,105,"AY","F8989.3",405.16,"L",1,404,7)=""
^DIST(.403,105,"AY","F8989.3",405.17,"L",1,404,9)=""
^DIST(.403,105,"AY","F8989.3",405.18,"L",1,404,10)=""
^DIST(.403,105,"AY","F8989.305",.01,"L",1,405,1)=""
^DIST(.403,105,"AY","F8989.305",1,"L",1,405,2)=""
^DIST(.403,105,"AY","F8989.305",2,"L",1,405,3)=""
^DIST(.403,105,"AY","X",1,0,23)="Kernel Site Parameter edit"
^DIST(.403,105,"AY","X",1,1,12)="DOMAIN:"
^DIST(.403,105,"AY","X",1,1,12,"A")="1;6;U"
^DIST(.403,105,"AY","X",1,3,2)="IP SECURITY ON/OFF:        USER LOCKING:      TERMINAL SERVER LIMIT:"
^DIST(.403,105,"AY","X",1,5,2)="FAILED ATTEMPTS LIMIT - IRM:            FAILED ATTEMPTS LIMIT - AOD:"
^DIST(.403,105,"AY","X",1,7,2)="KEEP THRESHOLD:                                TOTAL COUNT INCREASE:"
^DIST(.403,105,"AY","X",1,8,2)="LAST FAILED ATTEMPTS CHECK:"
^DIST(.403,105,"AY","X",1,9,2)="Terminal Servers IP                        Sign-on Slack  Last Reset"
^DIST(.403,106,0)="PSB BCBU PARAMETERS^@^@^^3031014.1451^^^53.71^0^0^1"
^DIST(.403,106,40,0)="^.4031I^1^1"
^DIST(.403,106,40,1,0)="1^^1,1"
^DIST(.403,106,40,1,1)="Page 1"
^DIST(.403,106,40,1,40,0)="^.4032IP^407^2"
^DIST(.403,106,40,1,40,406,0)="406^1^1,1^d"
^DIST(.403,106,40,1,40,407,0)="407^2^4,1^e"
^DIST(.403,106,40,1,40,"AC",1,406)=""
^DIST(.403,106,40,1,40,"AC",2,407)=""
^DIST(.403,106,40,1,40,"B",406,406)=""
^DIST(.403,106,40,1,40,"B",407,407)=""
^DIST(.403,106,40,"B",1,1)=""
^DIST(.403,106,40,"C","PAGE 1",1)=""
^DIST(.403,106,"AY",1,0,0,"N")="5,407^1,407^1,407^5,407^1,407"
^DIST(.403,106,"AY",1,406)="0^0^53.71^^d^^^^0"
^DIST(.403,106,"AY",1,407)="3^0^53.71^^e^^^^1"
^DIST(.403,106,"AY",1,407,1,"D")="4^22^10^1"
^DIST(.403,106,"AY",1,407,1,"N")="0^2^2^0^2"
^DIST(.403,106,"AY",1,407,2,"D")="6^21^30^2"
^DIST(.403,106,"AY",1,407,2,"N")="1^3^3^1^3"
^DIST(.403,106,"AY",1,407,3,"D")="8^18^3^5"
^DIST(.403,106,"AY",1,407,3,"N")="2^4^4^2^4"
^DIST(.403,106,"AY",1,407,4,"D")="10^15^2^6"
^DIST(.403,106,"AY",1,407,4,"N")="3^5^5^3^5"
^DIST(.403,106,"AY",1,407,5,"D")="12^16^2^7"
^DIST(.403,106,"AY",1,407,5,"N")="4^0^0^4^0"
^DIST(.403,106,"AY",1,"FIRST")="1,407"
^DIST(.403,106,"AY","CAP","DEFAULT DAYS FOR MAR",1,1,407,1)=""
^DIST(.403,106,"AY","CAP","DEFAULT MAR PRINTER",1,1,407,2)=""
^DIST(.403,106,"AY","CAP","MED-LOG NUMBER",1,1,407,5)=""
^DIST(.403,106,"AY","CAP","PURGE ORDER DAYS",1,1,407,3)=""
^DIST(.403,106,"AY","CAP","PURGE PATIENT",1,1,407,4)=""
^DIST(.403,106,"AY","F53.71",1,"L",1,407,1)=""
^DIST(.403,106,"AY","F53.71",2,"L",1,407,2)=""
^DIST(.403,106,"AY","F53.71",5,"L",1,407,3)=""
^DIST(.403,106,"AY","F53.71",6,"L",1,407,4)=""
^DIST(.403,106,"AY","F53.71",7,"L",1,407,5)=""
^DIST(.403,106,"AY","X",1,0,21)="BCBU Workstation Parameter Setup"
^DIST(.403,106,"AY","X",1,2,0)="----------------------------------------------------------------------------------"
^DIST(.403,106,"AY","X",1,4,0)="DEFAULT DAYS FOR MAR:"
^DIST(.403,106,"AY","X",1,6,0)="DEFAULT MAR PRINTER:"
^DIST(.403,106,"AY","X",1,8,0)="PURGE ORDER DAYS:"
^DIST(.403,106,"AY","X",1,10,0)="PURGE PATIENT:"
^DIST(.403,106,"AY","X",1,12,0)="MED-LOG NUMBER:"
^DIST(.403,107,0)="PSBO XA^^^^2990313.1144^^Unknown Action Status Report^53.69^0^0^1"
^DIST(.403,107,11)="S PSBSAVE=0"
^DIST(.403,107,14)="S PSBSAVE=1"
^DIST(.403,107,20)="D VAL^PSBO("".16;.18;.06;.07"")"
^DIST(.403,107,40,0)="^.4031I^1^1"
^DIST(.403,107,40,1,0)="1^^1,1"
^DIST(.403,107,40,1,1)="Page 1"
^DIST(.403,107,40,1,40,0)="^.4032IP^410^3"
^DIST(.403,107,40,1,40,408,0)="408^1^1,1^d"
^DIST(.403,107,40,1,40,409,0)="409^3^10,1^e"
^DIST(.403,107,40,1,40,410,0)="410^2^3,1^e"
^DIST(.403,107,40,1,40,"AC",1,408)=""
^DIST(.403,107,40,1,40,"AC",2,410)=""
^DIST(.403,107,40,1,40,"AC",3,409)=""
^DIST(.403,107,40,1,40,"B",408,408)=""
^DIST(.403,107,40,1,40,"B",409,409)=""
^DIST(.403,107,40,1,40,"B",410,410)=""
^DIST(.403,107,40,"B",1,1)=""
^DIST(.403,107,40,"C","PAGE 1",1)=""
^DIST(.403,107,"AY",1,0,0,"N")="3,409^1,410^1,410^3,409^1,410"
^DIST(.403,107,"AY",1,408)="0^0^53.69^^d^^^^0"
^DIST(.403,107,"AY",1,408,1,"D")="^^^^0^0^^0"
^DIST(.403,107,"AY",1,408,3,"D")="^^^^1^0^^0"
^DIST(.403,107,"AY",1,408,4,"D")="^^^^0^40^^0"
^DIST(.403,107,"AY",1,409)="9^0^53.69^^e^^^^1"
^DIST(.403,107,"AY",1,409,1,"D")="10^57^22^.06"
^DIST(.403,107,"AY",1,409,1,"N")="3,410^2^2^3,410^2"
^DIST(.403,107,"AY",1,409,2,"D")="11^57^17^.07"
^DIST(.403,107,"AY",1,409,2,"N")="1^3^3^1^3"
^DIST(.403,107,"AY",1,409,3,"D")="16^75^1^3,409"
^DIST(.403,107,"AY",1,409,3,"N")="2^0^0^2^0"
^DIST(.403,107,"AY",1,410)="2^0^53.69^^e^^^^1"
^DIST(.403,107,"AY",1,410,1,"D")="5^13^11^.16"
^DIST(.403,107,"AY",1,410,1,"N")="0^3^2^0^2"
^DIST(.403,107,"AY",1,410,2,"D")="5^39^11^.18"
^DIST(.403,107,"AY",1,410,2,"N")="0^3^3^1^3"
^DIST(.403,107,"AY",1,410,3,"D")="7^18^30^.04"
^DIST(.403,107,"AY",1,410,3,"N")="1^1,409^1,409^2^1,409"
^DIST(.403,107,"AY",1,"FIRST")="1,410"
^DIST(.403,107,"AY","CAP","DIVISION",1,1,410,3)=""
^DIST(.403,107,"AY","CAP","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCE",1,1,409,3)=""
^DIST(.403,107,"AY","CAP","PRINT TO DEVICE",1,1,409,1)=""
^DIST(.403,107,"AY","CAP","QUEUE TO RUN AT",1,1,409,2)=""
^DIST(.403,107,"AY","CAP","START DATE",1,1,410,1)=""
^DIST(.403,107,"AY","CAP","STOP DATE",1,1,410,2)=""
^DIST(.403,107,"AY","F0","3,409","L",1,409,3)=""
^DIST(.403,107,"AY","F53.69",.04,"L",1,410,3)=""
^DIST(.403,107,"AY","F53.69",.06,"L",1,409,1)=""
^DIST(.403,107,"AY","F53.69",.07,"L",1,409,2)=""
^DIST(.403,107,"AY","F53.69",.16,"L",1,410,1)=""
^DIST(.403,107,"AY","F53.69",.18,"L",1,410,2)=""
^DIST(.403,107,"AY","X",1,5,1)="Start Date:                Stop Date:"
^DIST(.403,107,"AY","X",1,7,1)="Select Division:"
^DIST(.403,107,"AY","X",1,7,1,"A")="1;15;U"
^DIST(.403,107,"AY","X",1,10,40)="Print to DEVICE:"
^DIST(.403,107,"AY","X",1,11,40)="Queue To Run At:"
^DIST(.403,107,"AY","X",1,16,0)="Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit:"
^DIST(.403,108,0)="MD MAIN^@^@^^3030203.1413^^^703.9^0^0^1"
^DIST(.403,108,40,0)="^.4031I^2^2"
^DIST(.403,108,40,1,0)="1^^1,1"
^DIST(.403,108,40,1,1)="Page 1"
^DIST(.403,108,40,1,40,0)="^.4032IP^413^3"
^DIST(.403,108,40,1,40,411,0)="411^1^1,1^e"
^DIST(.403,108,40,1,40,412,0)="412^2^3,1^e"
^DIST(.403,108,40,1,40,413,0)="413^3^10,1^e"
^DIST(.403,108,40,1,40,413,2)="8^B^f^1"
^DIST(.403,108,40,1,40,"AC",1,411)=""
^DIST(.403,108,40,1,40,"AC",2,412)=""
^DIST(.403,108,40,1,40,"AC",3,413)=""
^DIST(.403,108,40,1,40,"B",411,411)=""
^DIST(.403,108,40,1,40,"B",412,412)=""
^DIST(.403,108,40,1,40,"B",413,413)=""
^DIST(.403,108,40,2,0)="2^^8,8^^^1^16,73"
^DIST(.403,108,40,2,1)="MD MAIN 2"
^DIST(.403,108,40,2,40,0)="^.4032IP^414^1"
^DIST(.403,108,40,2,40,414,0)="414^1^1,1^e"
^DIST(.403,108,40,2,40,"AC",1,414)=""
^DIST(.403,108,40,2,40,"B",414,414)=""
^DIST(.403,108,40,"B",1,1)=""
^DIST(.403,108,40,"B",2,2)=""
^DIST(.403,108,40,"C","MD MAIN 2",2)=""
^DIST(.403,108,40,"C","PAGE 1",1)=""
^DIST(.403,108,"AY",1,0,0,"N")="1,413^7,412^7,412^3,413^7,412"
^DIST(.403,108,"AY",1,411)="0^0^703.9^^e^^^^0"
^DIST(.403,108,"AY",1,411,2,"D")="^^^^1^0^^0"
^DIST(.403,108,"AY",1,412)="2^0^703.9^^e^^^^7"
^DIST(.403,108,"AY",1,412,1,"D")="4^31^45^.1"
^DIST(.403,108,"AY",1,412,1,"N")="7^6^6^7^6"
^DIST(.403,108,"AY",1,412,6,"D")="5^31^35^.03"
^DIST(.403,108,"AY",1,412,6,"N")="1^1,413^1,413^1^1,413"
^DIST(.403,108,"AY",1,412,7,"D")="3^31^4^.02"
^DIST(.403,108,"AY",1,412,7,"N")="0^1^1^0^1"
^DIST(.403,108,"AY",1,413)="9^0^703.91^^e^^8^^1^1"
^DIST(.403,108,"AY",1,413,1,"D")="9^2^35^.01"
^DIST(.403,108,"AY",1,413,1,"N")="6,412^0^0^6,412^0^1,-1^1,+1^3^3,-1^3"
^DIST(.403,108,"AY",1,413,3,"D")="9^54^3^.03^^^^^^1"
^DIST(.403,108,"AY",1,413,3,"N")="6,412^0^0^1^0^3,-1^3,+1^1,+1^1^1,+1"
^DIST(.403,108,"AY",1,"FIRST")="7,412"
^DIST(.403,108,"AY",2,0,0,"N")="6,414^2,414^2,414^6,414^2,414"
^DIST(.403,108,"AY",2,414)="7^7^703.91^^e^^^^2"
^DIST(.403,108,"AY",2,414,2,"D")="9^31^37^.01"
^DIST(.403,108,"AY",2,414,2,"N")="0^3^3^0^3"
^DIST(.403,108,"AY",2,414,3,"D")="11^31^30^.02"
^DIST(.403,108,"AY",2,414,3,"N")="2^5^5^2^5"
^DIST(.403,108,"AY",2,414,5,"D")="12^31^3^.04"
^DIST(.403,108,"AY",2,414,5,"N")="3^6^6^3^6"
^DIST(.403,108,"AY",2,414,6,"D")="13^31^40^.05"
^DIST(.403,108,"AY",2,414,6,"N")="5^0^0^5^0"
^DIST(.403,108,"AY",2,"FIRST")="2,414"
^DIST(.403,108,"AY","CAP","ADMINISTRATIVE CLOSURE USER",1,1,412,6)=""
^DIST(.403,108,"AY","CAP","CONVERSION MODE",1,1,412,7)=""
^DIST(.403,108,"AY","CAP","CONVERT IF NO STATUS",2,2,414,5)=""
^DIST(.403,108,"AY","CAP","CP PROCEDURE",2,2,414,3)=""
^DIST(.403,108,"AY","CAP","MEDICINE PROCEDURE",2,2,414,2)=""
^DIST(.403,108,"AY","CAP","SCRATCH HFS DIRECTORY",1,1,412,1)=""
^DIST(.403,108,"AY","CAP","USE TIU NOTE TITLE",2,2,414,6)=""
^DIST(.403,108,"AY","F703.9",.02,"L",1,412,7)=""
^DIST(.403,108,"AY","F703.9",.03,"L",1,412,6)=""
^DIST(.403,108,"AY","F703.9",.1,"L",1,412,1)=""
^DIST(.403,108,"AY","F703.91",.01,"L",1,413,1)=""
^DIST(.403,108,"AY","F703.91",.01,"L",2,414,2)=""
^DIST(.403,108,"AY","F703.91",.02,"L",2,414,3)=""
^DIST(.403,108,"AY","F703.91",.03,"L",1,413,3)=""
^DIST(.403,108,"AY","F703.91",.04,"L",2,414,5)=""
^DIST(.403,108,"AY","F703.91",.05,"L",2,414,6)=""
^DIST(.403,108,"AY","X",1,0,23)="MEDICINE FILE CONVERSION PARAMETERS"
^DIST(.403,108,"AY","X",1,3,2)="Conversion Mode:"
^DIST(.403,108,"AY","X",1,4,2)="Scratch HFS Directory:"
^DIST(.403,108,"AY","X",1,5,2)="Administrative Closure User:"
^DIST(.403,108,"AY","X",1,7,2)="Files to be converted                           Convert"
^DIST(.403,108,"AY","X",1,8,2)="Medicine Package Procedure                        (Y/N)"
^DIST(.403,108,"AY","X",2,7,8)=" Medicine Procedure Conversion Settings "
^DIST(.403,108,"AY","X",2,9,9)="Medicine Procedure:"
^DIST(.403,108,"AY","X",2,11,9)="CP Procedure:"
^DIST(.403,108,"AY","X",2,12,9)="Convert if no status:"
^DIST(.403,108,"AY","X",2,13,9)="Use TIU Note Title:"
^DIST(.403,109,0)="PRSP ESR POST^^^^2920714^^^458^0^0^1"
^DIST(.403,109,20)="D ESRVALID^PRSPESR1"
^DIST(.403,109,40,0)="^.4031I^1^1"
^DIST(.403,109,40,1,0)="1^^1,1^1^1^0"
^DIST(.403,109,40,1,1)="Page 1"
^DIST(.403,109,40,1,40,0)="^.4032PI^416^2"
^DIST(.403,109,40,1,40,415,0)="415^1^7,1^e"
^DIST(.403,109,40,1,40,416,0)="416^2^1,1^d"
^DIST(.403,109,40,1,40,"AC",1,415)=""
^DIST(.403,109,40,1,40,"AC",2,416)=""
^DIST(.403,109,40,1,40,"B",415,415)=""
^DIST(.403,109,40,1,40,"B",416,416)=""
^DIST(.403,109,40,"B",1,1)=""
^DIST(.403,109,40,"C","PAGE 1",1)=""
^DIST(.403,109,"AY",1,0,0,"N")="32,415^4,415^4,415^32,415^4,415"
^DIST(.403,109,"AY",1,415)="6^0^458.02^0^e^^^^4"
^DIST(.403,109,"AY",1,415,4,"D")="8^3^7^110"
^DIST(.403,109,"AY",1,415,4,"N")="0^8^5^0^5"
^DIST(.403,109,"AY",1,415,5,"D")="8^13^7^111"
^DIST(.403,109,"AY",1,415,5,"N")="0^9^6^4^6"
^DIST(.403,109,"AY",1,415,6,"D")="8^23^10^112"
^DIST(.403,109,"AY",1,415,6,"N")="0^10^7^5^7"
^DIST(.403,109,"AY",1,415,7,"D")="8^36^23^113"
^DIST(.403,109,"AY",1,415,7,"N")="0^11^46^6^46"
^DIST(.403,109,"AY",1,415,8,"D")="9^3^7^115"
^DIST(.403,109,"AY",1,415,8,"N")="4^12^9^46^9"
^DIST(.403,109,"AY",1,415,9,"D")="9^13^7^116"
^DIST(.403,109,"AY",1,415,9,"N")="5^13^10^8^10"
^DIST(.403,109,"AY",1,415,10,"D")="9^23^10^117"
^DIST(.403,109,"AY",1,415,10,"N")="6^14^11^9^11"
^DIST(.403,109,"AY",1,415,11,"D")="9^36^23^118"
^DIST(.403,109,"AY",1,415,11,"N")="7^15^44^10^44"
^DIST(.403,109,"AY",1,415,12,"D")="10^3^7^120"
^DIST(.403,109,"AY",1,415,12,"N")="8^16^13^44^13"
^DIST(.403,109,"AY",1,415,13,"D")="10^13^7^121"
^DIST(.403,109,"AY",1,415,13,"N")="9^17^14^12^14"
^DIST(.403,109,"AY",1,415,14,"D")="10^23^10^122"
^DIST(.403,109,"AY",1,415,14,"N")="10^18^15^13^15"
^DIST(.403,109,"AY",1,415,15,"D")="10^36^23^123"
^DIST(.403,109,"AY",1,415,15,"N")="11^19^42^14^42"
^DIST(.403,109,"AY",1,415,16,"D")="11^3^7^125"
^DIST(.403,109,"AY",1,415,16,"N")="12^20^17^42^17"
^DIST(.403,109,"AY",1,415,17,"D")="11^13^7^126"
^DIST(.403,109,"AY",1,415,17,"N")="13^21^18^16^18"
^DIST(.403,109,"AY",1,415,18,"D")="11^23^10^127"
^DIST(.403,109,"AY",1,415,18,"N")="14^22^19^17^19"
^DIST(.403,109,"AY",1,415,19,"D")="11^36^23^128"
^DIST(.403,109,"AY",1,415,19,"N")="15^23^40^18^40"
^DIST(.403,109,"AY",1,415,20,"D")="12^3^7^130"
^DIST(.403,109,"AY",1,415,20,"N")="16^24^21^40^21"
^DIST(.403,109,"AY",1,415,21,"D")="12^13^7^131"
^DIST(.403,109,"AY",1,415,21,"N")="17^25^22^20^22"
^DIST(.403,109,"AY",1,415,22,"D")="12^23^10^132"
^DIST(.403,109,"AY",1,415,22,"N")="18^26^23^21^23"
^DIST(.403,109,"AY",1,415,23,"D")="12^36^23^133"
^DIST(.403,109,"AY",1,415,23,"N")="19^27^38^22^38"
^DIST(.403,109,"AY",1,415,24,"D")="13^3^7^135"
^DIST(.403,109,"AY",1,415,24,"N")="20^28^25^38^25"
^DIST(.403,109,"AY",1,415,25,"D")="13^13^7^136"
^DIST(.403,109,"AY",1,415,25,"N")="21^29^26^24^26"
^DIST(.403,109,"AY",1,415,26,"D")="13^23^10^137"
^DIST(.403,109,"AY",1,415,26,"N")="22^30^27^25^27"
^DIST(.403,109,"AY",1,415,27,"D")="13^36^23^138"
^DIST(.403,109,"AY",1,415,27,"N")="23^31^35^26^35"
^DIST(.403,109,"AY",1,415,28,"D")="14^3^7^140"
^DIST(.403,109,"AY",1,415,28,"N")="24^32^29^35^29"
^DIST(.403,109,"AY",1,415,29,"D")="14^13^7^141"
^DIST(.403,109,"AY",1,415,29,"N")="25^32^30^28^30"
^DIST(.403,109,"AY",1,415,30,"D")="14^23^10^142"
^DIST(.403,109,"AY",1,415,30,"N")="26^32^31^29^31"
^DIST(.403,109,"AY",1,415,31,"D")="14^36^23^143"
^DIST(.403,109,"AY",1,415,31,"N")="27^32^33^30^33"
^DIST(.403,109,"AY",1,415,32,"D")="16^10^60^145"
^DIST(.403,109,"AY",1,415,32,"N")="28^0^0^33^0"
^DIST(.403,109,"AY",1,415,33,"D")="14^62^2^144"
^DIST(.403,109,"AY",1,415,33,"N")="35^32^32^31^32"
^DIST(.403,109,"AY",1,415,34,"D")="14^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,35,"D")="13^62^2^139"
^DIST(.403,109,"AY",1,415,35,"N")="38^33^28^27^28"
^DIST(.403,109,"AY",1,415,36,"D")="13^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,37,"D")="12^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,38,"D")="12^62^2^134"
^DIST(.403,109,"AY",1,415,38,"N")="40^35^24^23^24"
^DIST(.403,109,"AY",1,415,39,"D")="11^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,40,"D")="11^62^2^129"
^DIST(.403,109,"AY",1,415,40,"N")="42^38^20^19^20"
^DIST(.403,109,"AY",1,415,41,"D")="10^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,42,"D")="10^62^2^124"
^DIST(.403,109,"AY",1,415,42,"N")="44^40^16^15^16"
^DIST(.403,109,"AY",1,415,43,"D")="9^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,44,"D")="9^62^2^119"
^DIST(.403,109,"AY",1,415,44,"N")="46^42^12^11^12"
^DIST(.403,109,"AY",1,415,45,"D")="8^68^5^0^^^^^1^1"
^DIST(.403,109,"AY",1,415,46,"D")="8^62^2^114"
^DIST(.403,109,"AY",1,415,46,"N")="0^44^8^7^8"
^DIST(.403,109,"AY",1,416)="0^0^458.02^^d^^^^0"
^DIST(.403,109,"AY",1,416,2,"D")="^^^^0^0^^0"
^DIST(.403,109,"AY",1,416,3,"D")="^^^^0^68^^0"
^DIST(.403,109,"AY",1,416,4,"D")="^^^^1^0^^0"
^DIST(.403,109,"AY",1,416,5,"D")="^^^^2^33^^0"
^DIST(.403,109,"AY",1,416,6,"D")="^^^^1^71^^0"
^DIST(.403,109,"AY",1,416,8,"D")="^^^^4^0^^0"
^DIST(.403,109,"AY",1,"FIRST")="4,415"
^DIST(.403,109,"AY","CAP",1,1,1,415,4)=""
^DIST(.403,109,"AY","CAP",2,1,1,415,8)=""
^DIST(.403,109,"AY","CAP",3,1,1,415,12)=""
^DIST(.403,109,"AY","CAP",4,1,1,415,16)=""
^DIST(.403,109,"AY","CAP",5,1,1,415,20)=""
^DIST(.403,109,"AY","CAP",6,1,1,415,24)=""
^DIST(.403,109,"AY","CAP",7,1,1,415,28)=""
^DIST(.403,109,"AY","CAP","REMARKS",1,1,415,32)=""
^DIST(.403,109,"AY","COMP",458.02,110,1,415,45)=""
^DIST(.403,109,"AY","COMP",458.02,111,1,415,45)=""
^DIST(.403,109,"AY","COMP",458.02,114,1,415,45)=""
^DIST(.403,109,"AY","COMP",458.02,115,1,415,43)=""
^DIST(.403,109,"AY","COMP",458.02,116,1,415,43)=""
^DIST(.403,109,"AY","COMP",458.02,119,1,415,43)=""
^DIST(.403,109,"AY","COMP",458.02,120,1,415,41)=""
^DIST(.403,109,"AY","COMP",458.02,121,1,415,41)=""
^DIST(.403,109,"AY","COMP",458.02,124,1,415,41)=""
^DIST(.403,109,"AY","COMP",458.02,125,1,415,39)=""
^DIST(.403,109,"AY","COMP",458.02,126,1,415,39)=""
^DIST(.403,109,"AY","COMP",458.02,129,1,415,39)=""
^DIST(.403,109,"AY","COMP",458.02,130,1,415,37)=""
^DIST(.403,109,"AY","COMP",458.02,131,1,415,37)=""
^DIST(.403,109,"AY","COMP",458.02,134,1,415,37)=""
^DIST(.403,109,"AY","COMP",458.02,135,1,415,36)=""
^DIST(.403,109,"AY","COMP",458.02,136,1,415,36)=""
^DIST(.403,109,"AY","COMP",458.02,139,1,415,36)=""
^DIST(.403,109,"AY","COMP",458.02,140,1,415,34)=""
^DIST(.403,109,"AY","COMP",458.02,141,1,415,34)=""
^DIST(.403,109,"AY","COMP",458.02,144,1,415,34)=""
^DIST(.403,109,"AY","COMPE",415,34)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,34,1)="N X S X=$$GET^DDSVAL(458.02,.DA,144,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,34,2)="N X S X=$$GET^DDSVAL(458.02,.DA,140,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,34,3)="N X S X=$$GET^DDSVAL(458.02,.DA,141,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,36)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,36,1)="N X S X=$$GET^DDSVAL(458.02,.DA,139,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,36,2)="N X S X=$$GET^DDSVAL(458.02,.DA,135,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,36,3)="N X S X=$$GET^DDSVAL(458.02,.DA,136,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,37)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,37,1)="N X S X=$$GET^DDSVAL(458.02,.DA,134,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,37,2)="N X S X=$$GET^DDSVAL(458.02,.DA,130,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,37,3)="N X S X=$$GET^DDSVAL(458.02,.DA,131,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,39)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,39,1)="N X S X=$$GET^DDSVAL(458.02,.DA,129,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,39,2)="N X S X=$$GET^DDSVAL(458.02,.DA,125,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,39,3)="N X S X=$$GET^DDSVAL(458.02,.DA,126,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,41)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,41,1)="N X S X=$$GET^DDSVAL(458.02,.DA,124,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,41,2)="N X S X=$$GET^DDSVAL(458.02,.DA,120,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,41,3)="N X S X=$$GET^DDSVAL(458.02,.DA,121,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,43)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,43,1)="N X S X=$$GET^DDSVAL(458.02,.DA,119,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,43,2)="N X S X=$$GET^DDSVAL(458.02,.DA,115,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,43,3)="N X S X=$$GET^DDSVAL(458.02,.DA,116,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","COMPE",415,45)="S Y=$$ELAPSE^PRSPESR2(DDSE(1),DDSE(2),DDSE(3))"
^DIST(.403,109,"AY","COMPE",415,45,1)="N X S X=$$GET^DDSVAL(458.02,.DA,114,"""",""E""),DDSE(1)=X"
^DIST(.403,109,"AY","COMPE",415,45,2)="N X S X=$$GET^DDSVAL(458.02,.DA,110,"""",""E""),DDSE(2)=X"
^DIST(.403,109,"AY","COMPE",415,45,3)="N X S X=$$GET^DDSVAL(458.02,.DA,111,"""",""E""),DDSE(3)=X"
^DIST(.403,109,"AY","F458.02",0,"L",1,415,34)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,36)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,37)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,39)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,41)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,43)=""
^DIST(.403,109,"AY","F458.02",0,"L",1,415,45)=""
^DIST(.403,109,"AY","F458.02",110,"L",1,415,4)=""
^DIST(.403,109,"AY","F458.02",111,"L",1,415,5)=""
^DIST(.403,109,"AY","F458.02",112,"L",1,415,6)=""
^DIST(.403,109,"AY","F458.02",113,"L",1,415,7)=""
^DIST(.403,109,"AY","F458.02",114,"L",1,415,46)=""
^DIST(.403,109,"AY","F458.02",115,"L",1,415,8)=""
^DIST(.403,109,"AY","F458.02",116,"L",1,415,9)=""
^DIST(.403,109,"AY","F458.02",117,"L",1,415,10)=""
^DIST(.403,109,"AY","F458.02",118,"L",1,415,11)=""
^DIST(.403,109,"AY","F458.02",119,"L",1,415,44)=""
^DIST(.403,109,"AY","F458.02",120,"L",1,415,12)=""
^DIST(.403,109,"AY","F458.02",121,"L",1,415,13)=""
^DIST(.403,109,"AY","F458.02",122,"L",1,415,14)=""
^DIST(.403,109,"AY","F458.02",123,"L",1,415,15)=""
^DIST(.403,109,"AY","F458.02",124,"L",1,415,42)=""
^DIST(.403,109,"AY","F458.02",125,"L",1,415,16)=""
^DIST(.403,109,"AY","F458.02",126,"L",1,415,17)=""
^DIST(.403,109,"AY","F458.02",127,"L",1,415,18)=""
^DIST(.403,109,"AY","F458.02",128,"L",1,415,19)=""
^DIST(.403,109,"AY","F458.02",129,"L",1,415,40)=""
^DIST(.403,109,"AY","F458.02",130,"L",1,415,20)=""
^DIST(.403,109,"AY","F458.02",131,"L",1,415,21)=""
^DIST(.403,109,"AY","F458.02",132,"L",1,415,22)=""
^DIST(.403,109,"AY","F458.02",133,"L",1,415,23)=""
^DIST(.403,109,"AY","F458.02",134,"L",1,415,38)=""
^DIST(.403,109,"AY","F458.02",135,"L",1,415,24)=""
^DIST(.403,109,"AY","F458.02",136,"L",1,415,25)=""
^DIST(.403,109,"AY","F458.02",137,"L",1,415,26)=""
^DIST(.403,109,"AY","F458.02",138,"L",1,415,27)=""
^DIST(.403,109,"AY","F458.02",139,"L",1,415,35)=""
^DIST(.403,109,"AY","F458.02",140,"L",1,415,28)=""
^DIST(.403,109,"AY","F458.02",141,"L",1,415,29)=""
^DIST(.403,109,"AY","F458.02",142,"L",1,415,30)=""
^DIST(.403,109,"AY","F458.02",143,"L",1,415,31)=""
^DIST(.403,109,"AY","F458.02",144,"L",1,415,33)=""
^DIST(.403,109,"AY","F458.02",145,"L",1,415,32)=""
^DIST(.403,109,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,109,"AY","X",1,1,33)="Tour Beginning"
^DIST(.403,109,"AY","X",1,6,4)="START     STOP    TYPE OF TIME        REMARKS CODE       MEAL     HRS"
^DIST(.403,109,"AY","X",1,8,1)="1"
^DIST(.403,109,"AY","X",1,9,1)="2"
^DIST(.403,109,"AY","X",1,10,1)="3"
^DIST(.403,109,"AY","X",1,11,1)="4"
^DIST(.403,109,"AY","X",1,12,1)="5"
^DIST(.403,109,"AY","X",1,13,1)="6"
^DIST(.403,109,"AY","X",1,14,1)="7"
^DIST(.403,109,"AY","X",1,16,0)="REMARKS:"
^DIST(.403,110,0)="PRSP EXT ABSENCE^@^@^^3041006.1824^^^458.4^0^0^1"
^DIST(.403,110,11)="D FRMPRE^PRSPEAF"
^DIST(.403,110,12)="D FRMPST^PRSPEAF"
^DIST(.403,110,14)="D FRMPSV^PRSPEAF"
^DIST(.403,110,20)="D FRMVAL^PRSPEAF"
^DIST(.403,110,40,0)="^.4031I^1^1"
^DIST(.403,110,40,1,0)="1^^1,1"
^DIST(.403,110,40,1,1)="Page 1"
^DIST(.403,110,40,1,40,0)="^.4032IP^417^1"
^DIST(.403,110,40,1,40,417,0)="417^1^1,1^e"
^DIST(.403,110,40,1,40,"AC",1,417)=""
^DIST(.403,110,40,1,40,"B",417,417)=""
^DIST(.403,110,40,"B",1,1)=""
^DIST(.403,110,40,"C","PAGE 1",1)=""
^DIST(.403,110,"AY",1,0,0,"N")="6,417^4,417^4,417^6,417^4,417"
^DIST(.403,110,"AY",1,417)="0^0^458.4^0^e^^^^4"
^DIST(.403,110,"AY",1,417,2,"D")="^^^^1^28^^0"
^DIST(.403,110,"AY",1,417,3,"D")="^^^^3^0^^0"
^DIST(.403,110,"AY",1,417,4,"D")="5^11^11^.01"
^DIST(.403,110,"AY",1,417,4,"N")="0^5^5^0^5"
^DIST(.403,110,"AY",1,417,5,"D")="7^9^11^1"
^DIST(.403,110,"AY",1,417,5,"N")="4^6^6^4^6"
^DIST(.403,110,"AY",1,417,6,"D")="15^9^60^6"
^DIST(.403,110,"AY",1,417,6,"N")="5^0^0^5^0"
^DIST(.403,110,"AY",1,"FIRST")="4,417"
^DIST(.403,110,"AY","CAP","FROM DATE",1,1,417,4)=""
^DIST(.403,110,"AY","CAP","REMARKS",1,1,417,6)=""
^DIST(.403,110,"AY","CAP","TO DATE",1,1,417,5)=""
^DIST(.403,110,"AY","F458.4",.01,"L",1,417,4)=""
^DIST(.403,110,"AY","F458.4",1,"L",1,417,5)=""
^DIST(.403,110,"AY","F458.4",6,"L",1,417,6)=""
^DIST(.403,110,"AY","X",1,0,26)="VA TIME & ATTENDANCE SYSTEM"
^DIST(.403,110,"AY","X",1,5,0)="FROM DATE:"
^DIST(.403,110,"AY","X",1,5,0,"A")="1;9;U"
^DIST(.403,110,"AY","X",1,7,0)="TO DATE:"
^DIST(.403,110,"AY","X",1,7,0,"A")="1;7;U"
^DIST(.403,110,"AY","X",1,15,0)="REMARKS:"
^DIST(.403,"AB",.00101,.001,1,.00101)=""
^DIST(.403,"AB",.00102,.001,2,.00102)=""
^DIST(.403,"AB",.00103,.001,3,.00103)=""
^DIST(.403,"AB",.00104,.001,6,.00104)=""
^DIST(.403,"AB",.00105,.001,7,.00105)=""
^DIST(.403,"AB",.00106,.001,8,.00106)=""
^DIST(.403,"AB",.00107,.001,9,.00107)=""
^DIST(.403,"AB",.00108,.001,10,.00108)=""
^DIST(.403,"AB",.00109,.001,11,.00109)=""
^DIST(.403,"AB",.0011,.001,12,.0011)=""
^DIST(.403,"AB",.00111,.001,13,.00111)=""
^DIST(.403,"AB",.00112,.001,15,.00112)=""
^DIST(.403,"AB",.00113,.001,16,.00113)=""
^DIST(.403,"AB",.00114,.001,17,.00114)=""
^DIST(.403,"AB",.00115,.001,18,.00115)=""
^DIST(.403,"AB",.00116,.001,19,.00116)=""
^DIST(.403,"AB",.00117,.001,20,.00117)=""
^DIST(.403,"AB",.00118,.001,21,.00118)=""
^DIST(.403,"AB",.10011,.1001,1,.10011)=""
^DIST(.403,"AB",.10012,.1001,2,.10012)=""
^DIST(.403,"AB",.110101,.1101,1,.110101)=""
^DIST(.403,"AB",.110102,.1101,1,.110102)=""
^DIST(.403,"AB",.110103,.1101,2,.110103)=""
^DIST(.403,"AB",.110104,.1101,2,.110104)=""
^DIST(.403,"AB",.110105,.1101,2,.110105)=""
^DIST(.403,"AB",.110106,.1101,2,.110106)=""
^DIST(.403,"AB",.110107,.1101,3,.110107)=""
^DIST(.403,"AB",.110108,.1101,4,.110108)=""
^DIST(.403,"AB",.11021,.1102,1,.11021)=""
^DIST(.403,"AB",.11022,.1102,1,.11022)=""
^DIST(.403,"AB",.11023,.1102,1,.11023)=""
^DIST(.403,"AB",.11024,.1102,1,.11024)=""
^DIST(.403,"AB",.11025,.1102,2,.11025)=""
^DIST(.403,"AB",.310101,.3101,1,.310101)=""
^DIST(.403,"AB",.310102,.3101,1,.310102)=""
^DIST(.403,"AB",.310103,.3101,1,.310103)=""
^DIST(.403,"AB",.310104,.3101,1,.310104)=""
^DIST(.403,"AB",.310105,.3101,1,.310105)=""
^DIST(.403,"AB",.310106,.3101,1,.310106)=""
^DIST(.403,"AB",.310107,.3101,2,.310107)=""
^DIST(.403,"AB",.310108,.3101,2,.310108)=""
^DIST(.403,"AB",.310109,.3101,2,.310109)=""
^DIST(.403,"AB",.31011,.3101,2,.31011)=""
^DIST(.403,"AB",.310111,.3101,3,.310111)=""
^DIST(.403,"AB",.400011,.40001,1,.400011)=""
^DIST(.403,"AB",.400012,.40001,2,.400012)=""
^DIST(.403,"AB",.401011,.40101,1,.401011)=""
^DIST(.403,"AB",.401012,.40101,2,.401012)=""
^DIST(.403,"AB",.402011,.40201,1,.402011)=""
^DIST(.403,"AB",.403011,.40301,1,.403011)=""
^DIST(.403,"AB",.403012,.40301,1,.403012)=""
^DIST(.403,"AB",.403012,.40306,1,.403012)=""
^DIST(.403,"AB",.403013,.40301,2,.403013)=""
^DIST(.403,"AB",.403021,.40302,1,.403021)=""
^DIST(.403,"AB",.403022,.40302,2,.403022)=""
^DIST(.403,"AB",.403031,.40303,1,.403031)=""
^DIST(.403,"AB",.403041,.40304,1,.403041)=""
^DIST(.403,"AB",.403051,.40305,1,.403051)=""
^DIST(.403,"AB",.403061,.40306,1,.403061)=""
^DIST(.403,"AB",.404011,.40401,1,.404011)=""
^DIST(.403,"AB",.404021,.40402,1,.404021)=""
^DIST(.403,"AB",.404031,.40403,1,.404031)=""
^DIST(.403,"AB",.404032,.40403,2,.404032)=""
^DIST(.403,"AB",.404032,.40404,3,.404032)=""
^DIST(.403,"AB",.404033,.40403,3,.404033)=""
^DIST(.403,"AB",.404034,.40403,4,.404034)=""
^DIST(.403,"AB",.404041,.40404,1,.404041)=""
^DIST(.403,"AB",.404042,.40404,2,.404042)=""
^DIST(.403,"AB",.404051,.40405,1,.404051)=""
^DIST(.403,"AB",.404052,.40405,2,.404052)=""
^DIST(.403,"AB",.404061,.40406,1,.404061)=""
^DIST(.403,"AB",.404062,.40406,2,.404062)=""
^DIST(.403,"AB",.404063,.40406,3,.404063)=""
^DIST(.403,"AB",.404071,.40407,1,.404071)=""
^DIST(.403,"AB",.404081,.40408,1,.404081)=""
^DIST(.403,"AB",.441,.441,1,.441)=""
^DIST(.403,"AB",.442,.441,2,.442)=""
^DIST(.403,"AB",.443,.441,3,.443)=""
^DIST(.403,"AB",.4611,.461,1,.4611)=""
^DIST(.403,"AB",.4612,.461,2,.4612)=""
^DIST(.403,"AB",.4613,.461,3,.4613)=""
^DIST(.403,"AB",.4614,.461,4,.4614)=""
^DIST(.403,"AB",1,1,1,1)=""
^DIST(.403,"AB",1,1,2,1)=""
^DIST(.403,"AB",1,1,4,1)=""
^DIST(.403,"AB",1,1,14,1)=""
^DIST(.403,"AB",1,1,17,1)=""
^DIST(.403,"AB",2,1,1,2)=""
^DIST(.403,"AB",3,1,2,3)=""
^DIST(.403,"AB",4,1,3,4)=""
^DIST(.403,"AB",5,1,7,5)=""
^DIST(.403,"AB",6,1,5,6)=""
^DIST(.403,"AB",7,1,8,7)=""
^DIST(.403,"AB",8,1,15,8)=""
^DIST(.403,"AB",9,1,3,9)=""
^DIST(.403,"AB",10,1,8,10)=""
^DIST(.403,"AB",11,1,9,11)=""
^DIST(.403,"AB",12,1,10,12)=""
^DIST(.403,"AB",13,1,2,13)=""
^DIST(.403,"AB",14,1,4,14)=""
^DIST(.403,"AB",15,1,4,15)=""
^DIST(.403,"AB",16,1,11,16)=""
^DIST(.403,"AB",17,1,12,17)=""
^DIST(.403,"AB",18,1,11,18)=""
^DIST(.403,"AB",19,1,12,19)=""
^DIST(.403,"AB",20,1,13,20)=""
^DIST(.403,"AB",21,1,14,21)=""
^DIST(.403,"AB",22,1,14,22)=""
^DIST(.403,"AB",23,1,8,23)=""
^DIST(.403,"AB",24,1,9,24)=""
^DIST(.403,"AB",25,1,10,25)=""
^DIST(.403,"AB",27,2,1,27)=""
^DIST(.403,"AB",28,3,1,28)=""
^DIST(.403,"AB",28,14,1,28)=""
^DIST(.403,"AB",28,30,1,28)=""
^DIST(.403,"AB",29,3,2,29)=""
^DIST(.403,"AB",29,14,2,29)=""
^DIST(.403,"AB",29,30,2,29)=""
^DIST(.403,"AB",30,3,3,30)=""
^DIST(.403,"AB",30,14,4,30)=""
^DIST(.403,"AB",30,30,4,30)=""
^DIST(.403,"AB",31,3,4,31)=""
^DIST(.403,"AB",31,14,5,31)=""
^DIST(.403,"AB",31,30,5,31)=""
^DIST(.403,"AB",33,4,1,33)=""
^DIST(.403,"AB",34,5,1,34)=""
^DIST(.403,"AB",35,6,1,35)=""
^DIST(.403,"AB",36,6,3,36)=""
^DIST(.403,"AB",37,7,1,37)=""
^DIST(.403,"AB",41,8,1,41)=""
^DIST(.403,"AB",43,9,1,43)=""
^DIST(.403,"AB",44,10,1,44)=""
^DIST(.403,"AB",45,11,1,45)=""
^DIST(.403,"AB",47,3,1,47)=""
^DIST(.403,"AB",47,3,2,47)=""
^DIST(.403,"AB",47,3,5,47)=""
^DIST(.403,"AB",47,3,9,47)=""
^DIST(.403,"AB",47,3,10,47)=""
^DIST(.403,"AB",47,14,1,47)=""
^DIST(.403,"AB",47,14,2,47)=""
^DIST(.403,"AB",47,14,3,47)=""
^DIST(.403,"AB",47,14,7,47)=""
^DIST(.403,"AB",47,14,8,47)=""
^DIST(.403,"AB",47,30,1,47)=""
^DIST(.403,"AB",47,30,2,47)=""
^DIST(.403,"AB",47,30,3,47)=""
^DIST(.403,"AB",47,30,7,47)=""
^DIST(.403,"AB",47,30,8,47)=""
^DIST(.403,"AB",48,9,2,48)=""
^DIST(.403,"AB",49,9,2,49)=""
^DIST(.403,"AB",50,3,5,50)=""
^DIST(.403,"AB",50,14,3,50)=""
^DIST(.403,"AB",50,30,3,50)=""
^DIST(.403,"AB",51,12,1,51)=""
^DIST(.403,"AB",51,12,2,51)=""
^DIST(.403,"AB",51,12,3,51)=""
^DIST(.403,"AB",51,12,4,51)=""
^DIST(.403,"AB",51,12,5,51)=""
^DIST(.403,"AB",51,13,1,51)=""
^DIST(.403,"AB",51,105,1,51)=""
^DIST(.403,"AB",52,12,1,52)=""
^DIST(.403,"AB",53,12,2,53)=""
^DIST(.403,"AB",54,12,3,54)=""
^DIST(.403,"AB",55,12,3,55)=""
^DIST(.403,"AB",56,12,3,56)=""
^DIST(.403,"AB",57,12,4,57)=""
^DIST(.403,"AB",57,13,1,57)=""
^DIST(.403,"AB",58,12,4,58)=""
^DIST(.403,"AB",58,13,1,58)=""
^DIST(.403,"AB",59,12,4,59)=""
^DIST(.403,"AB",59,13,1,59)=""
^DIST(.403,"AB",60,12,4,60)=""
^DIST(.403,"AB",60,13,1,60)=""
^DIST(.403,"AB",61,12,4,61)=""
^DIST(.403,"AB",61,13,1,61)=""
^DIST(.403,"AB",62,15,1,62)=""
^DIST(.403,"AB",62,17,1,62)=""
^DIST(.403,"AB",63,25,1,63)=""
^DIST(.403,"AB",64,16,1,64)=""
^DIST(.403,"AB",65,18,1,65)=""
^DIST(.403,"AB",65,19,1,65)=""
^DIST(.403,"AB",66,18,2,66)=""
^DIST(.403,"AB",67,18,3,67)=""
^DIST(.403,"AB",68,20,1,68)=""
^DIST(.403,"AB",69,23,1,69)=""
^DIST(.403,"AB",70,21,1,70)=""
^DIST(.403,"AB",72,22,1,72)=""
^DIST(.403,"AB",74,23,1,74)=""
^DIST(.403,"AB",75,24,1,75)=""
^DIST(.403,"AB",76,24,2,76)=""
^DIST(.403,"AB",77,25,1,77)=""
^DIST(.403,"AB",78,18,4,78)=""
^DIST(.403,"AB",79,26,1,79)=""
^DIST(.403,"AB",81,27,1,81)=""
^DIST(.403,"AB",82,28,1,82)=""
^DIST(.403,"AB",83,28,2,83)=""
^DIST(.403,"AB",84,28,3,84)=""
^DIST(.403,"AB",85,29,1,85)=""
^DIST(.403,"AB",86,3,5,86)=""
^DIST(.403,"AB",86,14,3,86)=""
^DIST(.403,"AB",86,29,1,86)=""
^DIST(.403,"AB",86,30,3,86)=""
^DIST(.403,"AB",87,30,3,87)=""
^DIST(.403,"AB",88,31,1,88)=""
^DIST(.403,"AB",89,31,1,89)=""
^DIST(.403,"AB",90,31,1,90)=""
^DIST(.403,"AB",91,31,3,91)=""
^DIST(.403,"AB",93,32,1,93)=""
^DIST(.403,"AB",94,32,2,94)=""
^DIST(.403,"AB",95,33,1,95)=""
^DIST(.403,"AB",96,33,2,96)=""
^DIST(.403,"AB",97,33,3,97)=""
^DIST(.403,"AB",98,32,3,98)=""
^DIST(.403,"AB",99,33,4,99)=""
^DIST(.403,"AB",101,1,14,101)=""
^DIST(.403,"AB",102,35,1,102)=""
^DIST(.403,"AB",103,35,1,103)=""
^DIST(.403,"AB",103,35,2,103)=""
^DIST(.403,"AB",103,36,1,103)=""
^DIST(.403,"AB",104,35,1,104)=""
^DIST(.403,"AB",105,36,1,105)=""
^DIST(.403,"AB",106,36,1,106)=""
^DIST(.403,"AB",107,37,1,107)=""
^DIST(.403,"AB",107,37,3,107)=""
^DIST(.403,"AB",107,37,6,107)=""
^DIST(.403,"AB",108,37,1,108)=""
^DIST(.403,"AB",109,37,2,109)=""
^DIST(.403,"AB",110,37,3,110)=""
^DIST(.403,"AB",111,37,3,111)=""
^DIST(.403,"AB",112,37,4,112)=""
^DIST(.403,"AB",113,37,5,113)=""
^DIST(.403,"AB",114,37,6,114)=""
^DIST(.403,"AB",115,37,7,115)=""
^DIST(.403,"AB",116,37,7,116)=""
^DIST(.403,"AB",117,37,9,117)=""
^DIST(.403,"AB",118,37,8,118)=""
^DIST(.403,"AB",119,39,1,119)=""
^DIST(.403,"AB",120,39,2,120)=""
^DIST(.403,"AB",121,39,2,121)=""
^DIST(.403,"AB",122,39,2,122)=""
^DIST(.403,"AB",123,38,1,123)=""
^DIST(.403,"AB",124,38,1,124)=""
^DIST(.403,"AB",125,38,1,125)=""
^DIST(.403,"AB",126,38,1,126)=""
^DIST(.403,"AB",127,38,2,127)=""
^DIST(.403,"AB",128,38,3,128)=""
^DIST(.403,"AB",129,40,1,129)=""
^DIST(.403,"AB",130,40,1,130)=""
^DIST(.403,"AB",131,40,1,131)=""
^DIST(.403,"AB",132,40,2,132)=""
^DIST(.403,"AB",133,41,1,133)=""
^DIST(.403,"AB",134,41,1,134)=""
^DIST(.403,"AB",135,41,1,135)=""
^DIST(.403,"AB",136,31,1,136)=""
^DIST(.403,"AB",137,31,3,137)=""
^DIST(.403,"AB",138,31,3,138)=""
^DIST(.403,"AB",139,31,3,139)=""
^DIST(.403,"AB",141,34,2,141)=""
^DIST(.403,"AB",142,34,2,142)=""
^DIST(.403,"AB",143,34,3,143)=""
^DIST(.403,"AB",144,34,3,144)=""
^DIST(.403,"AB",145,42,1,145)=""
^DIST(.403,"AB",146,42,1,146)=""
^DIST(.403,"AB",147,42,2,147)=""
^DIST(.403,"AB",148,42,2,148)=""
^DIST(.403,"AB",149,42,3,149)=""
^DIST(.403,"AB",150,42,3,150)=""
^DIST(.403,"AB",151,43,1,151)=""
^DIST(.403,"AB",152,43,1,152)=""
^DIST(.403,"AB",153,43,1,153)=""
^DIST(.403,"AB",154,43,2,154)=""
^DIST(.403,"AB",155,43,2,155)=""
^DIST(.403,"AB",155,43,3,155)=""
^DIST(.403,"AB",155,43,4,155)=""
^DIST(.403,"AB",156,43,2,156)=""
^DIST(.403,"AB",157,43,3,157)=""
^DIST(.403,"AB",158,43,3,158)=""
^DIST(.403,"AB",159,43,4,159)=""
^DIST(.403,"AB",160,43,4,160)=""
^DIST(.403,"AB",161,42,1,161)=""
^DIST(.403,"AB",162,44,1,162)=""
^DIST(.403,"AB",163,44,1,163)=""
^DIST(.403,"AB",164,44,1,164)=""
^DIST(.403,"AB",169,45,1,169)=""
^DIST(.403,"AB",170,45,1,170)=""
^DIST(.403,"AB",171,45,2,171)=""
^DIST(.403,"AB",172,45,2,172)=""
^DIST(.403,"AB",173,45,3,173)=""
^DIST(.403,"AB",174,45,3,174)=""
^DIST(.403,"AB",175,34,3,175)=""
^DIST(.403,"AB",176,46,1,176)=""
^DIST(.403,"AB",177,46,1,177)=""
^DIST(.403,"AB",178,47,1,178)=""
^DIST(.403,"AB",178,47,2,178)=""
^DIST(.403,"AB",178,47,3,178)=""
^DIST(.403,"AB",178,47,4,178)=""
^DIST(.403,"AB",178,47,5,178)=""
^DIST(.403,"AB",179,47,1,179)=""
^DIST(.403,"AB",180,47,1,180)=""
^DIST(.403,"AB",181,47,1,181)=""
^DIST(.403,"AB",182,47,2,182)=""
^DIST(.403,"AB",183,100,2,183)=""
^DIST(.403,"AB",184,47,2,184)=""
^DIST(.403,"AB",185,47,3,185)=""
^DIST(.403,"AB",186,47,3,186)=""
^DIST(.403,"AB",187,47,3,187)=""
^DIST(.403,"AB",188,47,5,188)=""
^DIST(.403,"AB",189,47,1,189)=""
^DIST(.403,"AB",190,49,2,190)=""
^DIST(.403,"AB",190,50,2,190)=""
^DIST(.403,"AB",191,49,2,191)=""
^DIST(.403,"AB",191,50,2,191)=""
^DIST(.403,"AB",192,48,1,192)=""
^DIST(.403,"AB",192,48,2,192)=""
^DIST(.403,"AB",192,49,1,192)=""
^DIST(.403,"AB",192,49,2,192)=""
^DIST(.403,"AB",192,49,3,192)=""
^DIST(.403,"AB",192,49,4,192)=""
^DIST(.403,"AB",192,49,5,192)=""
^DIST(.403,"AB",192,49,6,192)=""
^DIST(.403,"AB",192,49,7,192)=""
^DIST(.403,"AB",192,50,1,192)=""
^DIST(.403,"AB",192,50,2,192)=""
^DIST(.403,"AB",192,51,1,192)=""
^DIST(.403,"AB",192,52,1,192)=""
^DIST(.403,"AB",192,53,1,192)=""
^DIST(.403,"AB",193,48,2,193)=""
^DIST(.403,"AB",193,49,4,193)=""
^DIST(.403,"AB",194,49,1,194)=""
^DIST(.403,"AB",194,50,1,194)=""
^DIST(.403,"AB",195,49,5,195)=""
^DIST(.403,"AB",195,51,1,195)=""
^DIST(.403,"AB",196,49,6,196)=""
^DIST(.403,"AB",196,52,1,196)=""
^DIST(.403,"AB",197,49,7,197)=""
^DIST(.403,"AB",197,53,1,197)=""
^DIST(.403,"AB",198,48,1,198)=""
^DIST(.403,"AB",198,49,3,198)=""
^DIST(.403,"AB",199,55,1,199)=""
^DIST(.403,"AB",200,55,2,200)=""
^DIST(.403,"AB",201,55,3,201)=""
^DIST(.403,"AB",202,55,4,202)=""
^DIST(.403,"AB",203,55,4,203)=""
^DIST(.403,"AB",204,55,1,204)=""
^DIST(.403,"AB",205,55,5,205)=""
^DIST(.403,"AB",206,55,5,206)=""
^DIST(.403,"AB",207,55,6,207)=""
^DIST(.403,"AB",208,55,6,208)=""
^DIST(.403,"AB",209,55,7,209)=""
^DIST(.403,"AB",210,55,7,210)=""
^DIST(.403,"AB",211,55,3,211)=""
^DIST(.403,"AB",212,55,8,212)=""
^DIST(.403,"AB",213,55,8,213)=""
^DIST(.403,"AB",214,55,9,214)=""
^DIST(.403,"AB",215,55,9,215)=""
^DIST(.403,"AB",216,55,10,216)=""
^DIST(.403,"AB",217,55,10,217)=""
^DIST(.403,"AB",218,55,11,218)=""
^DIST(.403,"AB",219,55,11,219)=""
^DIST(.403,"AB",220,55,12,220)=""
^DIST(.403,"AB",221,55,12,221)=""
^DIST(.403,"AB",222,55,13,222)=""
^DIST(.403,"AB",223,55,13,223)=""
^DIST(.403,"AB",223,55,14,223)=""
^DIST(.403,"AB",224,55,14,224)=""
^DIST(.403,"AB",225,55,14,225)=""
^DIST(.403,"AB",226,55,15,226)=""
^DIST(.403,"AB",227,55,15,227)=""
^DIST(.403,"AB",228,55,16,228)=""
^DIST(.403,"AB",229,55,16,229)=""
^DIST(.403,"AB",230,55,17,230)=""
^DIST(.403,"AB",231,55,17,231)=""
^DIST(.403,"AB",232,55,18,232)=""
^DIST(.403,"AB",233,55,18,233)=""
^DIST(.403,"AB",234,55,19,234)=""
^DIST(.403,"AB",235,55,19,235)=""
^DIST(.403,"AB",236,55,19,236)=""
^DIST(.403,"AB",237,55,19,237)=""
^DIST(.403,"AB",238,55,19,238)=""
^DIST(.403,"AB",239,55,20,239)=""
^DIST(.403,"AB",240,55,21,240)=""
^DIST(.403,"AB",241,55,21,241)=""
^DIST(.403,"AB",242,56,1,242)=""
^DIST(.403,"AB",243,56,1,243)=""
^DIST(.403,"AB",244,47,2,244)=""
^DIST(.403,"AB",245,57,1,245)=""
^DIST(.403,"AB",246,57,1,246)=""
^DIST(.403,"AB",247,57,1,247)=""
^DIST(.403,"AB",248,47,4,248)=""
^DIST(.403,"AB",249,58,1,249)=""
^DIST(.403,"AB",250,59,1,250)=""
^DIST(.403,"AB",250,63,1,250)=""
^DIST(.403,"AB",251,60,1,251)=""
^DIST(.403,"AB",252,60,1,252)=""
^DIST(.403,"AB",253,61,1,253)=""
^DIST(.403,"AB",254,63,2,254)=""
^DIST(.403,"AB",255,62,1,255)=""
^DIST(.403,"AB",256,64,1,256)=""
^DIST(.403,"AB",257,65,1,257)=""
^DIST(.403,"AB",258,65,2,258)=""
^DIST(.403,"AB",259,65,3,259)=""
^DIST(.403,"AB",260,65,4,260)=""
^DIST(.403,"AB",261,65,5,261)=""
^DIST(.403,"AB",262,59,1,262)=""
^DIST(.403,"AB",262,63,1,262)=""
^DIST(.403,"AB",262,63,2,262)=""
^DIST(.403,"AB",263,66,1,263)=""
^DIST(.403,"AB",264,66,1,264)=""
^DIST(.403,"AB",265,67,1,265)=""
^DIST(.403,"AB",266,61,1,266)=""
^DIST(.403,"AB",267,67,1,267)=""
^DIST(.403,"AB",268,68,1,268)=""
^DIST(.403,"AB",269,68,1,269)=""
^DIST(.403,"AB",270,68,2,270)=""
^DIST(.403,"AB",271,68,3,271)=""
^DIST(.403,"AB",272,68,3,272)=""
^DIST(.403,"AB",273,68,1,273)=""
^DIST(.403,"AB",276,35,2,276)=""
^DIST(.403,"AB",277,69,1,277)=""
^DIST(.403,"AB",278,69,1,278)=""
^DIST(.403,"AB",279,72,1,279)=""
^DIST(.403,"AB",279,73,1,279)=""
^DIST(.403,"AB",279,74,1,279)=""
^DIST(.403,"AB",279,75,1,279)=""
^DIST(.403,"AB",279,76,1,279)=""
^DIST(.403,"AB",279,78,1,279)=""
^DIST(.403,"AB",279,79,1,279)=""
^DIST(.403,"AB",279,81,1,279)=""
^DIST(.403,"AB",279,82,1,279)=""
^DIST(.403,"AB",280,72,1,280)=""
^DIST(.403,"AB",281,72,1,281)=""
^DIST(.403,"AB",281,73,1,281)=""
^DIST(.403,"AB",281,74,1,281)=""
^DIST(.403,"AB",281,75,1,281)=""
^DIST(.403,"AB",281,76,1,281)=""
^DIST(.403,"AB",281,78,1,281)=""
^DIST(.403,"AB",281,79,1,281)=""
^DIST(.403,"AB",281,81,1,281)=""
^DIST(.403,"AB",281,82,1,281)=""
^DIST(.403,"AB",282,73,1,282)=""
^DIST(.403,"AB",283,75,1,283)=""
^DIST(.403,"AB",284,76,1,284)=""
^DIST(.403,"AB",285,77,1,285)=""
^DIST(.403,"AB",285,80,1,285)=""
^DIST(.403,"AB",286,78,1,286)=""
^DIST(.403,"AB",287,77,1,287)=""
^DIST(.403,"AB",288,79,1,288)=""
^DIST(.403,"AB",289,80,1,289)=""
^DIST(.403,"AB",290,81,1,290)=""
^DIST(.403,"AB",291,82,1,291)=""
^DIST(.403,"AB",292,74,1,292)=""
^DIST(.403,"AB",293,72,1,293)=""
^DIST(.403,"AB",293,73,1,293)=""
^DIST(.403,"AB",293,74,1,293)=""
^DIST(.403,"AB",293,75,1,293)=""
^DIST(.403,"AB",293,76,1,293)=""
^DIST(.403,"AB",293,78,1,293)=""
^DIST(.403,"AB",293,79,1,293)=""
^DIST(.403,"AB",294,70,1,294)=""
^DIST(.403,"AB",295,71,1,295)=""
^DIST(.403,"AB",296,71,2,296)=""
^DIST(.403,"AB",297,71,2,297)=""
^DIST(.403,"AB",298,83,1,298)=""
^DIST(.403,"AB",299,83,2,299)=""
^DIST(.403,"AB",300,83,2,300)=""
^DIST(.403,"AB",301,84,1,301)=""
^DIST(.403,"AB",302,84,2,302)=""
^DIST(.403,"AB",303,84,2,303)=""
^DIST(.403,"AB",304,74,1,304)=""
^DIST(.403,"AB",305,65,6,305)=""
^DIST(.403,"AB",306,85,1,306)=""
^DIST(.403,"AB",307,86,1,307)=""
^DIST(.403,"AB",308,86,1,308)=""
^DIST(.403,"AB",309,86,2,309)=""
^DIST(.403,"AB",310,86,3,310)=""
^DIST(.403,"AB",311,86,4,311)=""
^DIST(.403,"AB",312,86,5,312)=""
^DIST(.403,"AB",313,87,1,313)=""
^DIST(.403,"AB",314,87,1,314)=""
^DIST(.403,"AB",315,87,2,315)=""
^DIST(.403,"AB",316,87,3,316)=""
^DIST(.403,"AB",317,87,2,317)=""
^DIST(.403,"AB",318,87,4,318)=""
^DIST(.403,"AB",319,87,5,319)=""
^DIST(.403,"AB",320,87,6,320)=""
^DIST(.403,"AB",321,3,8,321)=""
^DIST(.403,"AB",321,14,6,321)=""
^DIST(.403,"AB",321,30,6,321)=""
^DIST(.403,"AB",322,72,1,322)=""
^DIST(.403,"AB",323,65,2,323)=""
^DIST(.403,"AB",324,65,2,324)=""
^DIST(.403,"AB",325,65,2,325)=""
^DIST(.403,"AB",326,69,2,326)=""
^DIST(.403,"AB",327,69,2,327)=""
^DIST(.403,"AB",328,69,1,328)=""
^DIST(.403,"AB",329,69,3,329)=""
^DIST(.403,"AB",330,88,1,330)=""
^DIST(.403,"AB",331,88,1,331)=""
^DIST(.403,"AB",332,88,2,332)=""
^DIST(.403,"AB",333,88,2,333)=""
^DIST(.403,"AB",334,88,1,334)=""
^DIST(.403,"AB",335,55,22,335)=""
^DIST(.403,"AB",336,55,22,336)=""
^DIST(.403,"AB",337,55,23,337)=""
^DIST(.403,"AB",338,55,23,338)=""
^DIST(.403,"AB",339,31,3,339)=""
^DIST(.403,"AB",340,34,3,340)=""
^DIST(.403,"AB",341,3,9,341)=""
^DIST(.403,"AB",341,14,7,341)=""
^DIST(.403,"AB",341,30,7,341)=""
^DIST(.403,"AB",342,3,9,342)=""
^DIST(.403,"AB",342,14,7,342)=""
^DIST(.403,"AB",342,30,7,342)=""
^DIST(.403,"AB",343,89,1,343)=""
^DIST(.403,"AB",344,89,2,344)=""
^DIST(.403,"AB",345,89,2,345)=""
^DIST(.403,"AB",347,90,2,347)=""
^DIST(.403,"AB",348,90,2,348)=""
^DIST(.403,"AB",350,91,3,350)=""
^DIST(.403,"AB",351,91,3,351)=""
^DIST(.403,"AB",353,92,3,353)=""
^DIST(.403,"AB",354,92,3,354)=""
^DIST(.403,"AB",355,12,5,355)=""
^DIST(.403,"AB",356,93,1,356)=""
^DIST(.403,"AB",357,93,1,357)=""
^DIST(.403,"AB",358,3,10,358)=""
^DIST(.403,"AB",358,14,8,358)=""
^DIST(.403,"AB",358,30,8,358)=""
^DIST(.403,"AB",359,94,1,359)=""
^DIST(.403,"AB",360,95,1,360)=""
^DIST(.403,"AB",361,95,2,361)=""
^DIST(.403,"AB",362,96,1,362)=""
^DIST(.403,"AB",363,96,1,363)=""
^DIST(.403,"AB",364,96,1,364)=""
^DIST(.403,"AB",365,97,1,365)=""
^DIST(.403,"AB",366,98,1,366)=""
^DIST(.403,"AB",367,99,1,367)=""
^DIST(.403,"AB",368,99,1,368)=""
^DIST(.403,"AB",369,47,2,369)=""
^DIST(.403,"AB",370,100,1,370)=""
^DIST(.403,"AB",370,100,2,370)=""
^DIST(.403,"AB",370,100,3,370)=""
^DIST(.403,"AB",370,100,4,370)=""
^DIST(.403,"AB",370,100,5,370)=""
^DIST(.403,"AB",371,100,1,371)=""
^DIST(.403,"AB",372,100,1,372)=""
^DIST(.403,"AB",373,100,1,373)=""
^DIST(.403,"AB",374,100,2,374)=""
^DIST(.403,"AB",375,100,2,375)=""
^DIST(.403,"AB",376,100,3,376)=""
^DIST(.403,"AB",377,100,3,377)=""
^DIST(.403,"AB",378,100,3,378)=""
^DIST(.403,"AB",379,100,5,379)=""
^DIST(.403,"AB",380,100,1,380)=""
^DIST(.403,"AB",381,100,2,381)=""
^DIST(.403,"AB",382,100,4,382)=""
^DIST(.403,"AB",383,47,6,383)=""
^DIST(.403,"AB",403,3,11,403)=""
^DIST(.403,"AB",404,105,1,404)=""
^DIST(.403,"AB",405,105,1,405)=""
^DIST(.403,"AB",406,106,1,406)=""
^DIST(.403,"AB",407,106,1,407)=""
^DIST(.403,"AB",408,107,1,408)=""
^DIST(.403,"AB",409,107,1,409)=""
^DIST(.403,"AB",410,107,1,410)=""
^DIST(.403,"AB",411,108,1,411)=""
^DIST(.403,"AB",412,108,1,412)=""
^DIST(.403,"AB",413,108,1,413)=""
^DIST(.403,"AB",414,108,2,414)=""
^DIST(.403,"AB",415,109,1,415)=""
^DIST(.403,"AB",416,109,1,416)=""
^DIST(.403,"AB",417,110,1,417)=""
^DIST(.403,"AB",418,1,17,418)=""
^DIST(.403,"AB",419,101,1,419)=""
^DIST(.403,"AB",420,101,1,420)=""
^DIST(.403,"AB",421,102,1,421)=""
^DIST(.403,"AB",422,102,1,422)=""
^DIST(.403,"AB",423,102,1,423)=""
^DIST(.403,"AB",424,103,1,424)=""
^DIST(.403,"AB",425,103,1,425)=""
^DIST(.403,"AC",1,1,16)=""
^DIST(.403,"AC",26,2,1)=""
^DIST(.403,"AC",32,4,1)=""
^DIST(.403,"AC",38,5,1)=""
^DIST(.403,"AC",39,6,1)=""
^DIST(.403,"AC",40,7,1)=""
^DIST(.403,"AC",42,8,1)=""
^DIST(.403,"AC",46,10,1)=""
^DIST(.403,"AC",71,22,1)=""
^DIST(.403,"AC",73,23,1)=""
^DIST(.403,"AC",80,27,1)=""
^DIST(.403,"AC",145,42,2)=""
^DIST(.403,"AC",145,42,3)=""
^DIST(.403,"AC",151,43,2)=""
^DIST(.403,"AC",151,43,3)=""
^DIST(.403,"AC",151,43,4)=""
^DIST(.403,"AC",251,62,1)=""
^DIST(.403,"AC",268,68,1)=""
^DIST(.403,"AC",330,88,2)=""
^DIST(.403,"AC",346,90,2)=""
^DIST(.403,"AC",349,91,3)=""
^DIST(.403,"AC",352,92,3)=""
^DIST(.403,"B","ABSV ADD/EDIT MASTER",54)=""
^DIST(.403,"B","DDGF BLOCK ADD",.40406)=""
^DIST(.403,"B","DDGF BLOCK DELETE",.40407)=""
^DIST(.403,"B","DDGF BLOCK EDIT",.40301)=""
^DIST(.403,"B","DDGF FIELD ADD",.40401)=""
^DIST(.403,"B","DDGF FIELD CAPTION ONLY",.40402)=""
^DIST(.403,"B","DDGF FIELD COMPUTED",.40405)=""
^DIST(.403,"B","DDGF FIELD DD",.40403)=""
^DIST(.403,"B","DDGF FIELD FORM ONLY",.40404)=""
^DIST(.403,"B","DDGF FORM EDIT",.40305)=""
^DIST(.403,"B","DDGF HEADER BLOCK EDIT",.40306)=""
^DIST(.403,"B","DDGF HEADER BLOCK SELECT",.40408)=""
^DIST(.403,"B","DDGF PAGE ADD",.40302)=""
^DIST(.403,"B","DDGF PAGE EDIT",.40303)=""
^DIST(.403,"B","DDGF PAGE SELECT",.40304)=""
^DIST(.403,"B","DDMP SPECIFY IMPORT",.461)=""
^DIST(.403,"B","DDXP FF FORM1",.441)=""
^DIST(.403,"B","DIBTED",.40001)=""
^DIST(.403,"B","DICATT",.001)=""
^DIST(.403,"B","DIEDIT",.40201)=""
^DIST(.403,"B","DIETED",.40101)=""
^DIST(.403,"B","DIKC EDIT",.1101)=""
^DIST(.403,"B","DIKC EDIT UI",.1102)=""
^DIST(.403,"B","DIKK EDIT",.3101)=""
^DIST(.403,"B","DIPTED",.1001)=""
^DIST(.403,"B","ENIT EDIT",103)=""
^DIST(.403,"B","ENPR AE",51)=""
^DIST(.403,"B","ENPR ALL",49)=""
^DIST(.403,"B","ENPR CHG",53)=""
^DIST(.403,"B","ENPR CO",52)=""
^DIST(.403,"B","ENPR MS",48)=""
^DIST(.403,"B","ENPR PRELIM",50)=""
^DIST(.403,"B","HL SITE PARAMETERS",69)=""
^DIST(.403,"B","HL7 APP",85)=""
^DIST(.403,"B","HL7 INTERFACE",87)=""
^DIST(.403,"B","HL7 LOGICAL LINK",86)=""
^DIST(.403,"B","INSTITUTION EDIT",95)=""
^DIST(.403,"B","KMPD PARAMETERS EDIT",99)=""
^DIST(.403,"B","LREPI",47)=""
^DIST(.403,"B","LREPI9",100)=""
^DIST(.403,"B","LREPIPROT",57)=""
^DIST(.403,"B","MD MAIN",108)=""
^DIST(.403,"B","NURA-I-SERVICE",28)=""
^DIST(.403,"B","PRCHQ1",37)=""
^DIST(.403,"B","PRCHQ2",38)=""
^DIST(.403,"B","PRCHQ3",39)=""
^DIST(.403,"B","PRCHQ4",40)=""
^DIST(.403,"B","PRCHQ5",41)=""
^DIST(.403,"B","PRSA ED REQ",21)=""
^DIST(.403,"B","PRSA FEE POST",27)=""
^DIST(.403,"B","PRSA LD POST",96)=""
^DIST(.403,"B","PRSA LV REQ",20)=""
^DIST(.403,"B","PRSA OT REQ",16)=""
^DIST(.403,"B","PRSA PM POST",23)=""
^DIST(.403,"B","PRSA TD DISP",17)=""
^DIST(.403,"B","PRSA TD EDIT",15)=""
^DIST(.403,"B","PRSA TD TL",24)=""
^DIST(.403,"B","PRSA TE EDIT",26)=""
^DIST(.403,"B","PRSA TL DISP",19)=""
^DIST(.403,"B","PRSA TL EDIT",18)=""
^DIST(.403,"B","PRSA TP POST1",25)=""
^DIST(.403,"B","PRSA VC POST",22)=""
^DIST(.403,"B","PRSP ESR POST",109)=""
^DIST(.403,"B","PRSP EXT ABSENCE",110)=""
^DIST(.403,"B","PSB BCBU PARAMETERS",106)=""
^DIST(.403,"B","PSB MED LOG EDIT",71)=""
^DIST(.403,"B","PSB MED LOG EDIT IV",89)=""
^DIST(.403,"B","PSB MISSING DOSE FOLLOWUP",80)=""
^DIST(.403,"B","PSB MISSING DOSE REQUEST",77)=""
^DIST(.403,"B","PSB NEW IV ENTRY",84)=""
^DIST(.403,"B","PSB NEW UD ENTRY",83)=""
^DIST(.403,"B","PSB PRN EFFECTIVENESS",70)=""
^DIST(.403,"B","PSBO BL",81)=""
^DIST(.403,"B","PSBO BZ",102)=""
^DIST(.403,"B","PSBO DL",72)=""
^DIST(.403,"B","PSBO MD",82)=""
^DIST(.403,"B","PSBO MH",78)=""
^DIST(.403,"B","PSBO ML",74)=""
^DIST(.403,"B","PSBO MM",75)=""
^DIST(.403,"B","PSBO MV",79)=""
^DIST(.403,"B","PSBO PE",76)=""
^DIST(.403,"B","PSBO WA",73)=""
^DIST(.403,"B","PSBO XA",107)=""
^DIST(.403,"B","PXRM DIALOG EDIT",104)=""
^DIST(.403,"B","SPNE ENTER/EDIT SYNONYM",46)=""
^DIST(.403,"B","SPNFFRM1",32)=""
^DIST(.403,"B","SPNFFRM2",33)=""
^DIST(.403,"B","SPNLP ASIA MES",88)=""
^DIST(.403,"B","SPNLP CHART FM1",44)=""
^DIST(.403,"B","SPNLP DIENER FM1",91)=""
^DIST(.403,"B","SPNLP DUSOI FM1",92)=""
^DIST(.403,"B","SPNLP FAM FM1",90)=""
^DIST(.403,"B","SPNLP FIM FM1",43)=""
^DIST(.403,"B","SPNLP FUN MES",42)=""
^DIST(.403,"B","SPNLP MS FM1",45)=""
^DIST(.403,"B","SPNLPFM1",31)=""
^DIST(.403,"B","SPNLPFM2",34)=""
^DIST(.403,"B","WV NOTIF-FORM-1",60)=""
^DIST(.403,"B","WV NOTIF-FORM-2",62)=""
^DIST(.403,"B","WV NOTIFPURPOSE-FORM-1",64)=""
^DIST(.403,"B","WV PATIENT-FORM-1",61)=""
^DIST(.403,"B","WV PROC-FORM-1",59)=""
^DIST(.403,"B","WV PROC-FORM-2-COLP",63)=""
^DIST(.403,"B","WV PROC-FORM-LAB",67)=""
^DIST(.403,"B","WV REFUSED PROCEDURE-ENTRY",66)=""
^DIST(.403,"B","WV SITE PARAMS-FORM-1",65)=""
^DIST(.403,"B","XDR RESFILE FORM",68)=""
^DIST(.403,"B","XPD EDIT BUILD",1)=""
^DIST(.403,"B","XPD EDIT GP",36)=""
^DIST(.403,"B","XPD EDIT MP",35)=""
^DIST(.403,"B","XQEDTOPT",55)=""
^DIST(.403,"B","XU OPTION SCHEDULE",9)=""
^DIST(.403,"B","XU-CLINICAL TRAINEE",93)=""
^DIST(.403,"B","XU-INST-EDIT",56)=""
^DIST(.403,"B","XU-PERSON CLASS",29)=""
^DIST(.403,"B","XUAUDIT",13)=""
^DIST(.403,"B","XUDEVICE CHAN",8)=""
^DIST(.403,"B","XUDEVICE HFS",7)=""
^DIST(.403,"B","XUDEVICE LPD",97)=""
^DIST(.403,"B","XUDEVICE MT",4)=""
^DIST(.403,"B","XUDEVICE RES",101)=""
^DIST(.403,"B","XUDEVICE SDP",5)=""
^DIST(.403,"B","XUDEVICE SPL",6)=""
^DIST(.403,"B","XUDEVICE TRM",98)=""
^DIST(.403,"B","XUEDIT CHARACTERISTICS",2)=""
^DIST(.403,"B","XUEXISTING USER",3)=""
^DIST(.403,"B","XUNEW USER",30)=""
^DIST(.403,"B","XUREACT USER",14)=""
^DIST(.403,"B","XUSERDEACT",10)=""
^DIST(.403,"B","XUSITEIP",105)=""
^DIST(.403,"B","XUSITEPARM",12)=""
^DIST(.403,"B","XUSSPKI",94)=""
^DIST(.403,"B","XUTM UCI ASSOC",11)=""
^DIST(.403,"B","XUTMKE ADD",58)=""
^DIST(.403,"C","Due List",72)=""
^DIST(.403,"C","Medication Administration Hist",78)=""
^DIST(.403,"C","Medication Log",74)=""
^DIST(.403,"C","Medication Variance Log",79)=""
^DIST(.403,"C","Missed Medications",75)=""
^DIST(.403,"C","Missing Dose Followup",80)=""
^DIST(.403,"C","Missing Dose Request",77)=""
^DIST(.403,"C","Option Editor",55)=""
^DIST(.403,"C","PRN Effectiveness",76)=""
^DIST(.403,"C","Unknown Action Status Report",107)=""
^DIST(.403,"C","Ward Administration Times",73)=""
^DIST(.403,"F.11","DIKC EDIT",.1101)="1"
^DIST(.403,"F.11","DIKC EDIT UI",.1102)="1"
^DIST(.403,"F.31","DIKK EDIT",.3101)="1"
^DIST(.403,"F.4","DIPTED",.1001)="1"
^DIST(.403,"F.401","DIBTED",.40001)="1"
^DIST(.403,"F.402","DIETED",.40101)="1"
^DIST(.403,"F.403","DDGF BLOCK EDIT",.40301)="1"
^DIST(.403,"F.403","DDGF FORM EDIT",.40305)="1"
^DIST(.403,"F.403","DDGF HEADER BLOCK EDIT",.40306)="1"
^DIST(.403,"F.403","DDGF PAGE ADD",.40302)="1"
^DIST(.403,"F.403","DDGF PAGE EDIT",.40303)="1"
^DIST(.403,"F.403","DDGF PAGE SELECT",.40304)="1"
^DIST(.403,"F.404","DDGF BLOCK ADD",.40406)="1"
^DIST(.403,"F.404","DDGF BLOCK DELETE",.40407)="1"
^DIST(.403,"F.404","DDGF FIELD ADD",.40401)="1"
^DIST(.403,"F.404","DDGF FIELD CAPTION ONLY",.40402)="1"
^DIST(.403,"F.404","DDGF FIELD COMPUTED",.40405)="1"
^DIST(.403,"F.404","DDGF FIELD DD",.40403)="1"
^DIST(.403,"F.404","DDGF FIELD FORM ONLY",.40404)="1"
^DIST(.403,"F.404","DDGF HEADER BLOCK SELECT",.40408)="1"
^DIST(.403,"F.44","DDXP FF FORM1",.441)="1"
^DIST(.403,"F.46","DDMP SPECIFY IMPORT",.461)="1"
^DIST(.403,"F1","DICATT",.001)="1"
^DIST(.403,"F1","DIEDIT",.40201)="1"
^DIST(.403,"F101","HL7 INTERFACE",87)="1"
^DIST(.403,"F14.6","XUTM UCI ASSOC",11)="1"
^DIST(.403,"F15.1","XDR RESFILE FORM",68)="1"
^DIST(.403,"F154","SPNLPFM1",31)="1"
^DIST(.403,"F154","SPNLPFM2",34)="1"
^DIST(.403,"F154.03","SPNE ENTER/EDIT SYNONYM",46)="1"
^DIST(.403,"F154.1","SPNFFRM1",32)="1"
^DIST(.403,"F154.1","SPNFFRM2",33)="1"
^DIST(.403,"F154.1","SPNLP ASIA MES",88)="1"
^DIST(.403,"F154.1","SPNLP CHART FM1",44)="1"
^DIST(.403,"F154.1","SPNLP DIENER FM1",91)="1"
^DIST(.403,"F154.1","SPNLP DUSOI FM1",92)="1"
^DIST(.403,"F154.1","SPNLP FAM FM1",90)="1"
^DIST(.403,"F154.1","SPNLP FIM FM1",43)="1"
^DIST(.403,"F154.1","SPNLP FUN MES",42)="1"
^DIST(.403,"F154.1","SPNLP MS FM1",45)="1"
^DIST(.403,"F19","XQEDTOPT",55)="1"
^DIST(.403,"F19.2","XU OPTION SCHEDULE",9)="1"
^DIST(.403,"F200","XU-CLINICAL TRAINEE",93)="1"
^DIST(.403,"F200","XU-PERSON CLASS",29)="1"
^DIST(.403,"F200","XUEDIT CHARACTERISTICS",2)="1"
^DIST(.403,"F200","XUEXISTING USER",3)="1"
^DIST(.403,"F200","XUNEW USER",30)="1"
^DIST(.403,"F200","XUREACT USER",14)="1"
^DIST(.403,"F200","XUSERDEACT",10)="1"
^DIST(.403,"F211.3","NURA-I-SERVICE",28)="1"
^DIST(.403,"F3.076","XUTMKE ADD",58)="1"
^DIST(.403,"F3.5","XUDEVICE CHAN",8)="1"
^DIST(.403,"F3.5","XUDEVICE HFS",7)="1"
^DIST(.403,"F3.5","XUDEVICE LPD",97)="1"
^DIST(.403,"F3.5","XUDEVICE MT",4)="1"
^DIST(.403,"F3.5","XUDEVICE RES",101)="1"
^DIST(.403,"F3.5","XUDEVICE SDP",5)="1"
^DIST(.403,"F3.5","XUDEVICE SPL",6)="1"
^DIST(.403,"F3.5","XUDEVICE TRM",98)="1"
^DIST(.403,"F4","XU-INST-EDIT",56)="1"
^DIST(.403,"F444","PRCHQ1",37)="1"
^DIST(.403,"F444","PRCHQ2",38)="1"
^DIST(.403,"F444","PRCHQ4",40)="1"
^DIST(.403,"F444","PRCHQ5",41)="1"
^DIST(.403,"F444.1","PRCHQ3",39)="1"
^DIST(.403,"F450","PRSA LD POST",96)="1"
^DIST(.403,"F455.5","PRSA TL DISP",19)="1"
^DIST(.403,"F455.5","PRSA TL EDIT",18)="1"
^DIST(.403,"F457.1","PRSA TD DISP",17)="1"
^DIST(.403,"F457.1","PRSA TD EDIT",15)="1"
^DIST(.403,"F457.1","PRSA TD TL",24)="1"
^DIST(.403,"F458","PRSA FEE POST",27)="1"
^DIST(.403,"F458","PRSA PM POST",23)="1"
^DIST(.403,"F458","PRSA TE EDIT",26)="1"
^DIST(.403,"F458","PRSA TP POST1",25)="1"
^DIST(.403,"F458","PRSA VC POST",22)="1"
^DIST(.403,"F458","PRSP ESR POST",109)="1"
^DIST(.403,"F458.1","PRSA LV REQ",20)="1"
^DIST(.403,"F458.2","PRSA OT REQ",16)="1"
^DIST(.403,"F458.3","PRSA ED REQ",21)="1"
^DIST(.403,"F458.4","PRSP EXT ABSENCE",110)="1"
^DIST(.403,"F503330","ABSV ADD/EDIT MASTER",54)="1"
^DIST(.403,"F52.92","INSTITUTION EDIT",95)="1"
^DIST(.403,"F53.68","PSB MISSING DOSE FOLLOWUP",80)="1"
^DIST(.403,"F53.68","PSB MISSING DOSE REQUEST",77)="1"
^DIST(.403,"F53.69","PSBO BL",81)="1"
^DIST(.403,"F53.69","PSBO BZ",102)="1"
^DIST(.403,"F53.69","PSBO DL",72)="1"
^DIST(.403,"F53.69","PSBO MD",82)="1"
^DIST(.403,"F53.69","PSBO MH",78)="1"
^DIST(.403,"F53.69","PSBO ML",74)="1"
^DIST(.403,"F53.69","PSBO MM",75)="1"
^DIST(.403,"F53.69","PSBO MV",79)="1"
^DIST(.403,"F53.69","PSBO PE",76)="1"
^DIST(.403,"F53.69","PSBO WA",73)="1"
^DIST(.403,"F53.69","PSBO XA",107)="1"
^DIST(.403,"F53.71","PSB BCBU PARAMETERS",106)="1"
^DIST(.403,"F53.79","PSB MED LOG EDIT",71)="1"
^DIST(.403,"F53.79","PSB MED LOG EDIT IV",89)="1"
^DIST(.403,"F53.79","PSB NEW IV ENTRY",84)="1"
^DIST(.403,"F53.79","PSB NEW UD ENTRY",83)="1"
^DIST(.403,"F53.79","PSB PRN EFFECTIVENESS",70)="1"
^DIST(.403,"F69.4","LREPIPROT",57)="1"
^DIST(.403,"F69.5","LREPI",47)="1"
^DIST(.403,"F69.5","LREPI9",100)="1"
^DIST(.403,"F6914","ENIT EDIT",103)="1"
^DIST(.403,"F6925","ENPR AE",51)="1"
^DIST(.403,"F6925","ENPR ALL",49)="1"
^DIST(.403,"F6925","ENPR CHG",53)="1"
^DIST(.403,"F6925","ENPR CO",52)="1"
^DIST(.403,"F6925","ENPR MS",48)="1"
^DIST(.403,"F6925","ENPR PRELIM",50)="1"
^DIST(.403,"F703.9","MD MAIN",108)="1"
^DIST(.403,"F771","HL7 APP",85)="1"
^DIST(.403,"F790","WV PATIENT-FORM-1",61)="1"
^DIST(.403,"F790.02","WV SITE PARAMS-FORM-1",65)="1"
^DIST(.403,"F790.1","WV PROC-FORM-1",59)="1"
^DIST(.403,"F790.1","WV PROC-FORM-2-COLP",63)="1"
^DIST(.403,"F790.1","WV PROC-FORM-LAB",67)="1"
^DIST(.403,"F790.3","WV REFUSED PROCEDURE-ENTRY",66)="1"
^DIST(.403,"F790.4","WV NOTIF-FORM-1",60)="1"
^DIST(.403,"F790.4","WV NOTIF-FORM-2",62)="1"
^DIST(.403,"F790.404","WV NOTIFPURPOSE-FORM-1",64)="1"
^DIST(.403,"F801.41","PXRM DIALOG EDIT",104)="1"
^DIST(.403,"F869.3","HL SITE PARAMETERS",69)="1"
^DIST(.403,"F870","HL7 LOGICAL LINK",86)="1"
^DIST(.403,"F8973","KMPD PARAMETERS EDIT",99)="1"
^DIST(.403,"F8989.3","XUAUDIT",13)="1"
^DIST(.403,"F8989.3","XUSITEIP",105)="1"
^DIST(.403,"F8989.3","XUSITEPARM",12)="1"
^DIST(.403,"F8989.3","XUSSPKI",94)="1"
^DIST(.403,"F9.6","XPD EDIT BUILD",1)="1"
^DIST(.403,"F9.6","XPD EDIT GP",36)="1"
^DIST(.403,"F9.6","XPD EDIT MP",35)="1"
^DIST(.404,0)="BLOCK^.404^425^486"
^DIST(.404,.00101,0)="DICATT^1"
^DIST(.404,.00101,40,0)="^.4044I^17^16"
^DIST(.404,.00101,40,1,0)="1^FIELD LABEL^2^^LABEL"
^DIST(.404,.00101,40,1,2)="2,14^30^2,1"
^DIST(.404,.00101,40,1,3)="!M"
^DIST(.404,.00101,40,1,3.1)="S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)"
^DIST(.404,.00101,40,1,10)="S DDSBR=20 I X="""" S DDSSTACK=9"
^DIST(.404,.00101,40,1,20)="DD^^0,.01"
^DIST(.404,.00101,40,2,0)="2^TITLE^2^^TITLE"
^DIST(.404,.00101,40,2,2)="4,18^60^4,11"
^DIST(.404,.00101,40,2,3)="!M"
^DIST(.404,.00101,40,2,3.1)="S Y=$G(^DD(DICATTA,DICATTF,.1))"
^DIST(.404,.00101,40,2,11)="I $$GET^DDSVALF(1)="""" S DDACT=""EX"""
^DIST(.404,.00101,40,2,20)="F^^1:99"
^DIST(.404,.00101,40,2,22)="I +X=X K X"
^DIST(.404,.00101,40,3,0)="11^DESCRIPTION...^2^^DESCRIPTION"
^DIST(.404,.00101,40,3,2)="11,17^1^11,2^1"
^DIST(.404,.00101,40,3,10)="S DDSSTACK=1.1"
^DIST(.404,.00101,40,3,20)="F^^1:1"
^DIST(.404,.00101,40,4,0)="3^AUDIT^2^^AUDIT"
^DIST(.404,.00101,40,4,2)="5,18^16^5,11"
^DIST(.404,.00101,40,4,3)="!M"
^DIST(.404,.00101,40,4,3.1)="S Y=$P($G(^DD(DICATTA,DICATTF,""AUDIT"")),U)"
^DIST(.404,.00101,40,4,20)="DD^^0,1.1"
^DIST(.404,.00101,40,5,0)="4^AUDIT CONDITION^2^^AUDIT CONDITION"
^DIST(.404,.00101,40,5,2)="6,18^60^6,1"
^DIST(.404,.00101,40,5,3)="!M"
^DIST(.404,.00101,40,5,3.1)="S Y=$G(^DD(DICATTA,DICATTF,""AX""))"
^DIST(.404,.00101,40,5,20)="DD^^0,1.2"
^DIST(.404,.00101,40,6,0)="5^READ ACCESS^2^^READ ACCESS"
^DIST(.404,.00101,40,6,2)="7,18^13^7,5"
^DIST(.404,.00101,40,6,3)="!M"
^DIST(.404,.00101,40,6,3.1)="S Y=$G(^DD(DICATTA,DICATTF,8))"
^DIST(.404,.00101,40,6,20)="DD^^0,8"
^DIST(.404,.00101,40,7,0)="6^DELETE ACCESS^2^^DELETE ACCESS"
^DIST(.404,.00101,40,7,2)="8,18^13^8,3"
^DIST(.404,.00101,40,7,3)="!M"
^DIST(.404,.00101,40,7,3.1)="S Y=$G(^DD(DICATTA,DICATTF,8.5))"
^DIST(.404,.00101,40,7,20)="DD^^0,8.5"
^DIST(.404,.00101,40,8,0)="7^WRITE ACCESS^2^^WRITE ACCESS"
^DIST(.404,.00101,40,8,2)="9,18^13^9,4"
^DIST(.404,.00101,40,8,3)="!M"
^DIST(.404,.00101,40,8,3.1)="S Y=$G(^DD(DICATTA,DICATTF,9))"
^DIST(.404,.00101,40,8,20)="DD^^0,9"
^DIST(.404,.00101,40,9,0)="12^TECHNICAL DESCRIPTION...^2"
^DIST(.404,.00101,40,9,2)="11,49^1^11,24^1"
^DIST(.404,.00101,40,9,10)="S DDSSTACK=1.2"
^DIST(.404,.00101,40,9,20)="F^^1:1"
^DIST(.404,.00101,40,10,0)="18^MANDATORY^2^^MANDATORY"
^DIST(.404,.00101,40,10,2)="15,17^3^15,6"
^DIST(.404,.00101,40,10,3)="!M"
^DIST(.404,.00101,40,10,3.1)="S Y=$S(DICATT2[""R"":""YES"",DICATT2'[""C""&'DICATT2:""NO"",1:"""")"
^DIST(.404,.00101,40,10,10)="S DDSBR=98"
^DIST(.404,.00101,40,10,20)="Y"
^DIST(.404,.00101,40,12,0)="98^HELP-PROMPT^2^^HELP-PROMPT"
^DIST(.404,.00101,40,12,2)="16,17^61^16,4"
^DIST(.404,.00101,40,12,3)="!M"
^DIST(.404,.00101,40,12,3.1)="S Y=$G(^DD(DICATTA,DICATTF,3))"
^DIST(.404,.00101,40,12,20)="DD^^0,3"
^DIST(.404,.00101,40,13,0)="99^XECUTABLE HELP^2^^XECUTABLE HELP"
^DIST(.404,.00101,40,13,2)="17,17^61^17,1"
^DIST(.404,.00101,40,13,3)="!M"
^DIST(.404,.00101,40,13,3.1)="S Y=$G(^DD(DICATTA,DICATTF,4))"
^DIST(.404,.00101,40,13,20)="DD^^0,4"
^DIST(.404,.00101,40,14,0)="20^DATA TYPE...^2^^TYPE"
^DIST(.404,.00101,40,14,2)="2,60^20^2,47^1"
^DIST(.404,.00101,40,14,3)="!M"
^DIST(.404,.00101,40,14,3.1)="S Y=$$TYPE^DICATTD"
^DIST(.404,.00101,40,14,4)="1"
^DIST(.404,.00101,40,14,10)="S DDSBR=18 D BRANCH^DICATTD"
^DIST(.404,.00101,40,14,11)="I $G(DICATTDK) S DDACT=""EX"""
^DIST(.404,.00101,40,14,20)="S^M^1:DATE;2:NUMERIC;3:SET;4:FREE TEXT;5:WORD-PROCESSING;6:COMPUTED;7:POINTER;8:VARIABLE-POINTER;9:MUMPS"
^DIST(.404,.00101,40,14,24)="D SCREEN^DICATTD"
^DIST(.404,.00101,40,15,0)=".5^^4^^FIELD NUMBER"
^DIST(.404,.00101,40,15,2)="1,1^77"
^DIST(.404,.00101,40,15,30)="D NUMBER^DICATTD"
^DIST(.404,.00101,40,16,0)="8^SOURCE^2^^SOURCE"
^DIST(.404,.00101,40,16,2)="10,18^61^10,10"
^DIST(.404,.00101,40,16,3)="!M"
^DIST(.404,.00101,40,16,3.1)="S Y=$G(^DD(DICATTA,DICATTF,10))"
^DIST(.404,.00101,40,16,20)="DD^^0,10"
^DIST(.404,.00101,40,17,0)="20.5^IS THIS FIELD MULTIPLE...^2^^MULTIPLE"
^DIST(.404,.00101,40,17,2)="13,49^3^13,23^1"
^DIST(.404,.00101,40,17,3)="!M"
^DIST(.404,.00101,40,17,3.1)="S Y=""N"""
^DIST(.404,.00101,40,17,4)="^^^0"
^DIST(.404,.00101,40,17,10)="S:DICATT2'[""X""&X DDSSTACK=5 I DICATT4="""",DUZ(0)=""@"" S DDSSTACK=$S(X:5,1:3)"
^DIST(.404,.00101,40,17,11)="I DICATT4="""",'$G(DICATTLN) S DDSBR=98"
^DIST(.404,.00101,40,17,20)="Y"
^DIST(.404,.00101,40,"B",.5,15)=""
^DIST(.404,.00101,40,"B",1,1)=""
^DIST(.404,.00101,40,"B",2,2)=""
^DIST(.404,.00101,40,"B",3,4)=""
^DIST(.404,.00101,40,"B",4,5)=""
^DIST(.404,.00101,40,"B",5,6)=""
^DIST(.404,.00101,40,"B",6,7)=""
^DIST(.404,.00101,40,"B",7,8)=""
^DIST(.404,.00101,40,"B",8,16)=""
^DIST(.404,.00101,40,"B",11,3)=""
^DIST(.404,.00101,40,"B",12,9)=""
^DIST(.404,.00101,40,"B",18,10)=""
^DIST(.404,.00101,40,"B",20,14)=""
^DIST(.404,.00101,40,"B",20.5,17)=""
^DIST(.404,.00101,40,"B",98,12)=""
^DIST(.404,.00101,40,"B",99,13)=""
^DIST(.404,.00101,40,"C","AUDIT",4)=""
^DIST(.404,.00101,40,"C","AUDIT CONDITION",5)=""
^DIST(.404,.00101,40,"C","DATA TYPE...",14)=""
^DIST(.404,.00101,40,"C","DELETE ACCESS",7)=""
^DIST(.404,.00101,40,"C","DESCRIPTION...",3)=""
^DIST(.404,.00101,40,"C","FIELD LABEL",1)=""
^DIST(.404,.00101,40,"C","HELP-PROMPT",12)=""
^DIST(.404,.00101,40,"C","IS THIS FIELD MULTIPLE...",17)=""
^DIST(.404,.00101,40,"C","MANDATORY",10)=""
^DIST(.404,.00101,40,"C","READ ACCESS",6)=""
^DIST(.404,.00101,40,"C","SOURCE",16)=""
^DIST(.404,.00101,40,"C","TECHNICAL DESCRIPTION...",9)=""
^DIST(.404,.00101,40,"C","TITLE",2)=""
^DIST(.404,.00101,40,"C","WRITE ACCESS",8)=""
^DIST(.404,.00101,40,"C","XECUTABLE HELP",13)=""
^DIST(.404,.00101,40,"D","AUDIT",4)=""
^DIST(.404,.00101,40,"D","AUDIT CONDITION",5)=""
^DIST(.404,.00101,40,"D","DELETE ACCESS",7)=""
^DIST(.404,.00101,40,"D","DESCRIPTION",3)=""
^DIST(.404,.00101,40,"D","FIELD NUMBER",15)=""
^DIST(.404,.00101,40,"D","HELP-PROMPT",12)=""
^DIST(.404,.00101,40,"D","LABEL",1)=""
^DIST(.404,.00101,40,"D","MANDATORY",10)=""
^DIST(.404,.00101,40,"D","MULTIPLE",17)=""
^DIST(.404,.00101,40,"D","READ ACCESS",6)=""
^DIST(.404,.00101,40,"D","SOURCE",16)=""
^DIST(.404,.00101,40,"D","TITLE",2)=""
^DIST(.404,.00101,40,"D","TYPE",14)=""
^DIST(.404,.00101,40,"D","WRITE ACCESS",8)=""
^DIST(.404,.00101,40,"D","XECUTABLE HELP",13)=""
^DIST(.404,.00102,0)="DICATT1^1"
^DIST(.404,.00102,40,0)="^.4044I^6^6"
^DIST(.404,.00102,40,1,0)="21^EARLIEST DATE^2^^EARLIEST DATE"
^DIST(.404,.00102,40,1,2)="1,29^18^1,14"
^DIST(.404,.00102,40,1,3)="!M"
^DIST(.404,.00102,40,1,3.1)="D EARLY^DICATTD1"
^DIST(.404,.00102,40,1,10)="S:'Y DDSBR=23"
^DIST(.404,.00102,40,1,20)="F"
^DIST(.404,.00102,40,1,21,0)="^^1^1^2981103"
^DIST(.404,.00102,40,1,21,1,0)="Enter a date, or ""DT"" to mean the current date at time of data entry"
^DIST(.404,.00102,40,1,22)="N Y,%DT I X'=""DT"" S %DT="""" D ^%DT K:Y<0 X"
^DIST(.404,.00102,40,2,0)="22^LATEST DATE^2^^LATEST DATE"
^DIST(.404,.00102,40,2,2)="2,29^20^2,16"
^DIST(.404,.00102,40,2,3)="!M"
^DIST(.404,.00102,40,2,3.1)="D LATEST^DICATTD1"
^DIST(.404,.00102,40,2,20)="F"
^DIST(.404,.00102,40,2,21,0)="^^1^1^2981103"
^DIST(.404,.00102,40,2,21,1,0)="Enter a date, or ""DT"" to mean the current date at time of data entry"
^DIST(.404,.00102,40,2,22)="N Y,%DT I X'=""DT"" S %DT="""" D ^%DT K:Y<0 X"
^DIST(.404,.00102,40,3,0)="23^CAN DATE BE IMPRECISE^2^^CAN DATE BE IMPRECISE"
^DIST(.404,.00102,40,3,2)="3,29^3^3,6"
^DIST(.404,.00102,40,3,3)="!M"
^DIST(.404,.00102,40,3,3.1)="S Y=$E(""YN"",$P(DICATT5,"""""""",2)[""X""+1)"
^DIST(.404,.00102,40,3,20)="Y"
^DIST(.404,.00102,40,3,21,0)="^^1^1^2981031"
^DIST(.404,.00102,40,3,21,1,0)="E.G., Would 'FEB, 1999' be allowed?"
^DIST(.404,.00102,40,4,0)="24^CAN TIME OF DAY BE ENTERED^2^^CAN TIME OF DAY BE ENTERED"
^DIST(.404,.00102,40,4,2)="4,29^3^4,1"
^DIST(.404,.00102,40,4,3)="!M"
^DIST(.404,.00102,40,4,3.1)="S Y=$E(""NY"",$P(DICATT5,"""""""",2)[""T""+1)"
^DIST(.404,.00102,40,4,10)="S:X=2 DDSBR=""COM"""
^DIST(.404,.00102,40,4,20)="Y"
^DIST(.404,.00102,40,4,21,0)="^^1^1^2981102"
^DIST(.404,.00102,40,4,21,1,0)="Can user enter time along with date, as in 'FEB23, 1999@7:30'"
^DIST(.404,.00102,40,5,0)="25^CAN SECONDS BE ENTERED^2^^SECONDS"
^DIST(.404,.00102,40,5,2)="5,29^3^5,5"
^DIST(.404,.00102,40,5,3)="!M"
^DIST(.404,.00102,40,5,3.1)="S Y=$E(""NY"",$P(DICATT5,"""""""",2)[""S""+1)"
^DIST(.404,.00102,40,5,20)="Y"
^DIST(.404,.00102,40,6,0)="26^IS TIME REQUIRED^2^^IS TIME REQUIRED"
^DIST(.404,.00102,40,6,2)="6,29^3^6,11"
^DIST(.404,.00102,40,6,3)="!M"
^DIST(.404,.00102,40,6,3.1)="S Y=$E(""NY"",$P(DICATT5,"""""""",2)[""R""+1)"
^DIST(.404,.00102,40,6,20)="Y"
^DIST(.404,.00102,40,6,21,0)="^^1^1^2981102"
^DIST(.404,.00102,40,6,21,1,0)="Must user enter TIME along with DATE?"
^DIST(.404,.00102,40,"B",21,1)=""
^DIST(.404,.00102,40,"B",22,2)=""
^DIST(.404,.00102,40,"B",23,3)=""
^DIST(.404,.00102,40,"B",24,4)=""
^DIST(.404,.00102,40,"B",25,5)=""
^DIST(.404,.00102,40,"B",26,6)=""
^DIST(.404,.00102,40,"C","CAN DATE BE IMPRECISE",3)=""
^DIST(.404,.00102,40,"C","CAN SECONDS BE ENTERED",5)=""
^DIST(.404,.00102,40,"C","CAN TIME OF DAY BE ENTERED",4)=""
^DIST(.404,.00102,40,"C","EARLIEST DATE",1)=""
^DIST(.404,.00102,40,"C","IS TIME REQUIRED",6)=""
^DIST(.404,.00102,40,"C","LATEST DATE",2)=""
^DIST(.404,.00102,40,"D","CAN DATE BE IMPRECISE",3)=""
^DIST(.404,.00102,40,"D","CAN TIME OF DAY BE ENTERED",4)=""
^DIST(.404,.00102,40,"D","EARLIEST DATE",1)=""
^DIST(.404,.00102,40,"D","IS TIME REQUIRED",6)=""
^DIST(.404,.00102,40,"D","LATEST DATE",2)=""
^DIST(.404,.00102,40,"D","SECONDS",5)=""
^DIST(.404,.00103,0)="DICATT2^1"
^DIST(.404,.00103,40,0)="^.4044I^4^4"
^DIST(.404,.00103,40,1,0)="31^INCLUSIVE LOWER BOUND^2^^LOWER BOUND"
^DIST(.404,.00103,40,1,2)="1,38^20^1,15"
^DIST(.404,.00103,40,1,3)="!M"
^DIST(.404,.00103,40,1,3.1)="I DICATT5[""X<"" S Y=+$P(DICATT5,""X<"",2)"
^DIST(.404,.00103,40,1,4)="1"
^DIST(.404,.00103,40,1,20)="F^^1:20"
^DIST(.404,.00103,40,1,21,0)="^^1^1^2990219"
^DIST(.404,.00103,40,1,21,1,0)="Enter the lowest allowable number"
^DIST(.404,.00103,40,1,22)="K:+X'=X!(X'["".""&($L(X)>15))!(X["".""&($L($P(+X,"".""))+$L($P(+X,""."",2))>15)) X"
^DIST(.404,.00103,40,2,0)="32^INCLUSIVE UPPER BOUND^2^^UPPER BOUND"
^DIST(.404,.00103,40,2,2)="2,38^20^2,15"
^DIST(.404,.00103,40,2,3)="!M"
^DIST(.404,.00103,40,2,3.1)="I DICATT5[""X>"" S Y=+$P(DICATT5,""X>"",2)"
^DIST(.404,.00103,40,2,4)="1"
^DIST(.404,.00103,40,2,20)="F^^1:20"
^DIST(.404,.00103,40,2,21,0)="^^1^1^2990219"
^DIST(.404,.00103,40,2,21,1,0)="Enter the highest allowable number"
^DIST(.404,.00103,40,2,22)="K:+X'=X!(X'["".""&($L(X)>15))!(X["".""&($L($P(+X,"".""))+$L($P(+X,"".""))>15)) X"
^DIST(.404,.00103,40,3,0)="33^IS THIS A DOLLAR AMOUNT^2^^DOLLAR AMOUNT"
^DIST(.404,.00103,40,3,2)="3,38^3^3,13"
^DIST(.404,.00103,40,3,3)="!M"
^DIST(.404,.00103,40,3,3.1)="S Y=$E(""NY"",DICATT5[""""""$""""""+1)"
^DIST(.404,.00103,40,3,12)="I X=1 D PUT^DDSVALF(34,,,2,"""") S DDSBR=""COM"""
^DIST(.404,.00103,40,3,20)="Y"
^DIST(.404,.00103,40,4,0)="34^MAXIMUM NUMBER OF FRACTIONAL DIGITS^2^^FRACTIONAL DIGITS"
^DIST(.404,.00103,40,4,2)="4,38^1^4,1"
^DIST(.404,.00103,40,4,3)="!M"
^DIST(.404,.00103,40,4,3.1)="S Y=$S(DICATT5[""""""$"""""":2,1:$P(DICATT5,""1""""."""""",2)-1) S:Y<0 Y=0"
^DIST(.404,.00103,40,4,4)="0"
^DIST(.404,.00103,40,4,20)="N^^0:9"
^DIST(.404,.00103,40,"B",31,1)=""
^DIST(.404,.00103,40,"B",32,2)=""
^DIST(.404,.00103,40,"B",33,3)=""
^DIST(.404,.00103,40,"B",34,4)=""
^DIST(.404,.00103,40,"C","INCLUSIVE LOWER BOUND",1)=""
^DIST(.404,.00103,40,"C","INCLUSIVE UPPER BOUND",2)=""
^DIST(.404,.00103,40,"C","IS THIS A DOLLAR AMOUNT",3)=""
^DIST(.404,.00103,40,"C","MAXIMUM NUMBER OF FRACTIONAL DIGITS",4)=""
^DIST(.404,.00103,40,"D","DOLLAR AMOUNT",3)=""
^DIST(.404,.00103,40,"D","FRACTIONAL DIGITS",4)=""
^DIST(.404,.00103,40,"D","LOWER BOUND",1)=""
^DIST(.404,.00103,40,"D","UPPER BOUND",2)=""
^DIST(.404,.00104,0)="DICATT4^1"
^DIST(.404,.00104,40,0)="^.4044I^3^3"
^DIST(.404,.00104,40,1,0)="68^MINIMUM LENGTH^2^^MINIMUM LENGTH"
^DIST(.404,.00104,40,1,2)="2,27^3^2,11"
^DIST(.404,.00104,40,1,3)="!M"
^DIST(.404,.00104,40,1,3.1)="S Y=+$P(DICATT5,""$L(X)<"",2)"
^DIST(.404,.00104,40,1,4)="1"
^DIST(.404,.00104,40,1,20)="N^^1:250:0"
^DIST(.404,.00104,40,2,0)="69^MAXIMUM LENGTH^2^^MAXIMUM LENGTH"
^DIST(.404,.00104,40,2,2)="3,27^3^3,11"
^DIST(.404,.00104,40,2,3)="!M"
^DIST(.404,.00104,40,2,3.1)="S Y=+$P(DICATT5,""$L(X)>"",2)"
^DIST(.404,.00104,40,2,4)="1"
^DIST(.404,.00104,40,2,20)="N^^1:250:0"
^DIST(.404,.00104,40,3,0)="70^PATTERN MATCH (IN 'X')^2^^PATTERN MATCH"
^DIST(.404,.00104,40,3,2)="4,27^30^4,3"
^DIST(.404,.00104,40,3,3)="!M"
^DIST(.404,.00104,40,3,3.1)="D PRE4^DICATTD4"
^DIST(.404,.00104,40,3,20)="F^U^3:80"
^DIST(.404,.00104,40,3,21,0)="^^1^1^2981104"
^DIST(.404,.00104,40,3,21,1,0)="Example: ""X?1.A""  or  ""X'?.P"""
^DIST(.404,.00104,40,"B",68,1)=""
^DIST(.404,.00104,40,"B",69,2)=""
^DIST(.404,.00104,40,"B",70,3)=""
^DIST(.404,.00104,40,"C","MAXIMUM LENGTH",2)=""
^DIST(.404,.00104,40,"C","MINIMUM LENGTH",1)=""
^DIST(.404,.00104,40,"C","PATTERN MATCH (IN 'X')",3)=""
^DIST(.404,.00104,40,"D","MAXIMUM LENGTH",2)=""
^DIST(.404,.00104,40,"D","MINIMUM LENGTH",1)=""
^DIST(.404,.00104,40,"D","PATTERN MATCH",3)=""
^DIST(.404,.00105,0)="DICATT5^1"
^DIST(.404,.00105,40,0)="^.4044I^2^2"
^DIST(.404,.00105,40,1,0)="75^SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE^2^^WORD-WRAP"
^DIST(.404,.00105,40,1,2)="2,53^3^2,2"
^DIST(.404,.00105,40,1,3)="!M"
^DIST(.404,.00105,40,1,3.1)="S Y=$E(""YN"",DICATT2[""L""+1)"
^DIST(.404,.00105,40,1,12)="S DICATTMN="""",DICATT2N=""W""_$TR($G(DICATT2N),""WL"")_$E(""L"",'X)"
^DIST(.404,.00105,40,1,20)="Y"
^DIST(.404,.00105,40,1,21,0)="^^4^4^2981120"
^DIST(.404,.00105,40,1,21,1,0)="Answer 'YES' if the text should normally be printed out in full lines,"
^DIST(.404,.00105,40,1,21,2,0)="breaking at word boundaries."
^DIST(.404,.00105,40,1,21,3,0)="Answer 'NO' if the text should normally be printed out line-for-line as"
^DIST(.404,.00105,40,1,21,4,0)="it was entered."
^DIST(.404,.00105,40,2,0)="76^SHALL ""|"" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHARACTERS^2^^""|"""
^DIST(.404,.00105,40,2,2)="3,74^3^3,2"
^DIST(.404,.00105,40,2,3)="!M"
^DIST(.404,.00105,40,2,3.1)="S Y=$S(DICATT2[""X""!(DICATT2[""x"")!(DICATT2=""""):""Y"",1:""N"")"
^DIST(.404,.00105,40,2,12)="S DICATTMN="""",DICATT2N=""W""_$TR($G(DICATT2N),""WxX"")_$E(""x"",X>0) I DUZ(0)=""@"",DICATT4="""" S DDSSTACK=4"
^DIST(.404,.00105,40,2,20)="Y"
^DIST(.404,.00105,40,2,21,0)="^^4^4^2981120"
^DIST(.404,.00105,40,2,21,1,0)="Answer 'YES' if the internally-stored text may have ""|"" characters in it "
^DIST(.404,.00105,40,2,21,2,0)="(such as HL7 messages) that need to display exactly as they are stored."
^DIST(.404,.00105,40,2,21,3,0)="Answer 'NO' if the internal text should normally be printed out with"
^DIST(.404,.00105,40,2,21,4,0)="anything that is delimited by ""|"" characters interpreted as variable. "
^DIST(.404,.00105,40,"B",75,1)=""
^DIST(.404,.00105,40,"B",76,2)=""
^DIST(.404,.00105,40,"C","SHALL ""|"" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHA",2)=""
^DIST(.404,.00105,40,"C","SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE",1)=""
^DIST(.404,.00105,40,"D","""|""",2)=""
^DIST(.404,.00105,40,"D","WORD-WRAP",1)=""
^DIST(.404,.00106,0)="DICATT6^1"
^DIST(.404,.00106,40,0)="^.4044I^8^8"
^DIST(.404,.00106,40,1,0)="78^^2^^COMPUTED EXPRESSION"
^DIST(.404,.00106,40,1,2)="3,2^73"
^DIST(.404,.00106,40,1,3)="!M"
^DIST(.404,.00106,40,1,3.1)="S Y=$G(^DD(DICATTA,DICATTF,9.1))"
^DIST(.404,.00106,40,1,4)="1"
^DIST(.404,.00106,40,1,13)="D VAL6^DICATTD6"
^DIST(.404,.00106,40,1,20)="F^U^1:250"
^DIST(.404,.00106,40,1,21,0)="^^3^3^2981118"
^DIST(.404,.00106,40,1,21,1,0)="A Computed Expression consists of Field Names, Operators (including ""_"""
^DIST(.404,.00106,40,1,21,2,0)="for concatenation), Functions, and literal strings (e.g., ""Name: "") and"
^DIST(.404,.00106,40,1,21,3,0)="digits."
^DIST(.404,.00106,40,2,0)="77^COMPUTED-FIELD EXPRESSION:^1^^COMP"
^DIST(.404,.00106,40,2,2)="^^2,2"
^DIST(.404,.00106,40,3,0)="80^NUMBER OF FRACTIONAL DIGITS TO OUTPUT^2^^FRACTIONAL DIGITS"
^DIST(.404,.00106,40,3,2)="5,65^1^5,26"
^DIST(.404,.00106,40,3,3)="!M"
^DIST(.404,.00106,40,3,3.1)="S Y=$P($P(DICATT2,""J"",2),"","",2),Y=$S(Y?1N.E:+Y,1:"""")"
^DIST(.404,.00106,40,3,20)="N^^0:9:0"
^DIST(.404,.00106,40,3,21,0)="^^2^2^2981118"
^DIST(.404,.00106,40,3,21,1,0)="Enter the number of digits that should normally appear to the"
^DIST(.404,.00106,40,3,21,2,0)="right of the decimal point when this Field's value is displayed."
^DIST(.404,.00106,40,4,0)="79^TYPE OF RESULT^2^^COMPTYPE"
^DIST(.404,.00106,40,4,2)="4,29^17^4,13"
^DIST(.404,.00106,40,4,10)="D BR79^DICATTD6"
^DIST(.404,.00106,40,4,20)="S^M^D:DATE;N:NUMERIC;B:BOOLEAN;S:STRING;m:MULTIPLE-VALUED;mp:MULTIPLE POINTER;p:POINTER"
^DIST(.404,.00106,40,4,21,0)="^^4^4^2981118"
^DIST(.404,.00106,40,4,21,1,0)="The typical Computed Field is STRING-valued, i.e., alphanumeric."
^DIST(.404,.00106,40,4,21,2,0)="If NUMERIC, the indented questions will be asked."
^DIST(.404,.00106,40,4,21,3,0)="BOOLEAN values are ""true-false""."
^DIST(.404,.00106,40,4,21,4,0)="If the computation returns a number that is actually an Entry number in a File, call it a POINTER."
^DIST(.404,.00106,40,5,0)="83^LENGTH OF FIELD^2^^LENGTH"
^DIST(.404,.00106,40,5,2)="8,19^3^8,2"
^DIST(.404,.00106,40,5,3)="!M"
^DIST(.404,.00106,40,5,3.1)="I DICATT2[""J"" S Y=+$P(DICATT2,""J"",2)"
^DIST(.404,.00106,40,5,20)="N^^1:250:0"
^DIST(.404,.00106,40,5,21,0)="^^2^2^2981106"
^DIST(.404,.00106,40,5,21,1,0)="MAXIMUM NUMBER OF CHARACTERS"
^DIST(.404,.00106,40,5,21,2,0)="  (not more than 250)"
^DIST(.404,.00106,40,6,0)="81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED"
^DIST(.404,.00106,40,6,2)="6,65^3^6,33"
^DIST(.404,.00106,40,6,3)="!M"
^DIST(.404,.00106,40,6,3.1)="I DICATT2["";"" S Y=$E(""NY"",DICATT5["" S X=$J(X,0,""+1)"
^DIST(.404,.00106,40,6,20)="Y"
^DIST(.404,.00106,40,7,0)="82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING"
^DIST(.404,.00106,40,7,2)="7,65^3^7,8"
^DIST(.404,.00106,40,7,3)="!M"
^DIST(.404,.00106,40,7,3.1)="I $D(^DD(DICATTA,DICATTF,9.02)) S Y=""Y"""
^DIST(.404,.00106,40,7,20)="Y"
^DIST(.404,.00106,40,8,0)="83.1^POINT TO FILE^2"
^DIST(.404,.00106,40,8,2)="8,46^27^8,30"
^DIST(.404,.00106,40,8,3)="!M"
^DIST(.404,.00106,40,8,3.1)="S Y=+$P(DICATT2,""p"",2),Y=$S(Y:$P($G(^DIC(Y,0)),U),1:"""")"
^DIST(.404,.00106,40,8,20)="P^^1:EOFIZ"
^DIST(.404,.00106,40,8,24)="S DIR(""S"")=""I $$OKFILE^DICOMPX(Y,""""W"""")"""
^DIST(.404,.00106,40,"B",77,2)=""
^DIST(.404,.00106,40,"B",78,1)=""
^DIST(.404,.00106,40,"B",79,4)=""
^DIST(.404,.00106,40,"B",80,3)=""
^DIST(.404,.00106,40,"B",81,6)=""
^DIST(.404,.00106,40,"B",82,7)=""
^DIST(.404,.00106,40,"B",83,5)=""
^DIST(.404,.00106,40,"B",83.1,8)=""
^DIST(.404,.00106,40,"C","COMPUTED-FIELD EXPRESSION:",2)=""
^DIST(.404,.00106,40,"C","LENGTH OF FIELD",5)=""
^DIST(.404,.00106,40,"C","NUMBER OF FRACTIONAL DIGITS TO OUTPUT",3)=""
^DIST(.404,.00106,40,"C","POINT TO FILE",8)=""
^DIST(.404,.00106,40,"C","SHOULD VALUE ALWAYS BE ROUNDED",6)=""
^DIST(.404,.00106,40,"C","TYPE OF RESULT",4)=""
^DIST(.404,.00106,40,"C","WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS",7)=""
^DIST(.404,.00106,40,"D","COMP",2)=""
^DIST(.404,.00106,40,"D","COMPTYPE",4)=""
^DIST(.404,.00106,40,"D","COMPUTED EXPRESSION",1)=""
^DIST(.404,.00106,40,"D","FRACTIONAL DIGITS",3)=""
^DIST(.404,.00106,40,"D","LENGTH",5)=""
^DIST(.404,.00106,40,"D","ROUNDED",6)=""
^DIST(.404,.00106,40,"D","TOTALLING",7)=""
^DIST(.404,.00107,0)="DICATT7^1"
^DIST(.404,.00107,40,0)="^.4044I^2^2"
^DIST(.404,.00107,40,1,0)="84^POINT TO WHICH FILE^2^^FILE"
^DIST(.404,.00107,40,1,2)="2,27^39^2,6"
^DIST(.404,.00107,40,1,3)="!M"
^DIST(.404,.00107,40,1,3.1)="S Y=$P($G(^DIC(+$P(DICATT2,""P"",2),0)),U)"
^DIST(.404,.00107,40,1,11)="S:$G(DICATTSC)=7 DDACT=""CL"""
^DIST(.404,.00107,40,1,20)="P^^1:EOFIZ"
^DIST(.404,.00107,40,1,24)="S DIR(""S"")=""I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""""RD"""" D ^DIAC I %"""
^DIST(.404,.00107,40,2,0)="85^SHALL 'ADDING A NEW FILE ENTRY (""LAYGO"") BE ALLOWED^2^^LAYGO"
^DIST(.404,.00107,40,2,2)="4,59^3^4,6"
^DIST(.404,.00107,40,2,3)="!M"
^DIST(.404,.00107,40,2,3.1)="S Y=""N"" I DICATT2[""P"" S Y=$E(""YN"",DICATT2[""'""+1)"
^DIST(.404,.00107,40,2,14)="N DIFILE,DIAC S DIAC=""LAYGO"",DIFILE=$$GET^DDSVALF(84,,,""I"","""") D ^DIAC I $P($G(^DD(DIFILE,0,""DI"")),U,2)[""Y""!'DIAC S DDSERROR=1 D HLP^DDSUTL(""NO LAYGO-ING TO THIS FILE!"")"
^DIST(.404,.00107,40,2,20)="Y"
^DIST(.404,.00107,40,"B",84,1)=""
^DIST(.404,.00107,40,"B",85,2)=""
^DIST(.404,.00107,40,"C","POINT TO WHICH FILE",1)=""
^DIST(.404,.00107,40,"C","SHALL 'ADDING A NEW FILE ENTRY (""LAYGO"") BE ALLOWED",2)=""
^DIST(.404,.00107,40,"D","FILE",1)=""
^DIST(.404,.00107,40,"D","LAYGO",2)=""
^DIST(.404,.00108,0)="DICATT8^1"
^DIST(.404,.00108,40,0)="^.4044I^14^14"
^DIST(.404,.00108,40,1,0)="91^VARIABLE-POINTER FILE #1^2^^VP 1"
^DIST(.404,.00108,40,1,2)="2,29^30^2,3"
^DIST(.404,.00108,40,1,3)="!M"
^DIST(.404,.00108,40,1,3.1)="D Y^DICATTD8(1,1)"
^DIST(.404,.00108,40,1,4)="1"
^DIST(.404,.00108,40,1,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,1,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,2,0)="92^VARIABLE-POINTER FILE #2^2^^VP 2"
^DIST(.404,.00108,40,2,2)="3,29^30^3,3"
^DIST(.404,.00108,40,2,3)="!M"
^DIST(.404,.00108,40,2,3.1)="D Y^DICATTD8(2,1)"
^DIST(.404,.00108,40,2,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,2,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,3,0)="91.1^ORDER...^2^^ORDER1"
^DIST(.404,.00108,40,3,2)="2,70^4^2,61^1"
^DIST(.404,.00108,40,3,3)="!M"
^DIST(.404,.00108,40,3,3.1)="D Y^DICATTD8(1,3)"
^DIST(.404,.00108,40,3,10)="S:X DICATTVP=1,DDSSTACK=8"
^DIST(.404,.00108,40,3,20)="N^^1:99:1"
^DIST(.404,.00108,40,4,0)="92.1^ORDER...^2^^ORDER2"
^DIST(.404,.00108,40,4,2)="3,70^4^3,61^1"
^DIST(.404,.00108,40,4,3)="!M"
^DIST(.404,.00108,40,4,3.1)="D Y^DICATTD8(2,3)"
^DIST(.404,.00108,40,4,10)="S:X DICATTVP=2,DDSSTACK=8"
^DIST(.404,.00108,40,4,20)="N^^1:99:1"
^DIST(.404,.00108,40,5,0)="93^VARIABLE-POINTER FILE #3^2"
^DIST(.404,.00108,40,5,2)="4,29^30^4,3"
^DIST(.404,.00108,40,5,3)="!M"
^DIST(.404,.00108,40,5,3.1)="D Y^DICATTD8(3,1)"
^DIST(.404,.00108,40,5,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,5,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,6,0)="93.1^ORDER...^2^^ORDER3"
^DIST(.404,.00108,40,6,2)="4,70^4^4,61^1"
^DIST(.404,.00108,40,6,3)="!M"
^DIST(.404,.00108,40,6,3.1)="D Y^DICATTD8(3,3)"
^DIST(.404,.00108,40,6,10)="S:X DICATTVP=3,DDSSTACK=8"
^DIST(.404,.00108,40,6,20)="N^^1:99:1"
^DIST(.404,.00108,40,7,0)="94.1^ORDER...^2^^ORDER4"
^DIST(.404,.00108,40,7,2)="5,70^4^5,61^1"
^DIST(.404,.00108,40,7,3)="!M"
^DIST(.404,.00108,40,7,3.1)="D Y^DICATTD8(4,3)"
^DIST(.404,.00108,40,7,10)="S:X DICATTVP=4,DDSSTACK=8"
^DIST(.404,.00108,40,7,20)="N^^1:99:1"
^DIST(.404,.00108,40,8,0)="95.1^ORDER...^2^^ORDER5"
^DIST(.404,.00108,40,8,2)="6,70^4^6,61^1"
^DIST(.404,.00108,40,8,3)="!M"
^DIST(.404,.00108,40,8,3.1)="D Y^DICATTD8(5,3)"
^DIST(.404,.00108,40,8,10)="S:X DICATTVP=5,DDSSTACK=8"
^DIST(.404,.00108,40,8,20)="N^^1:99:1"
^DIST(.404,.00108,40,9,0)="96.1^ORDER...^2^^ORDER6"
^DIST(.404,.00108,40,9,2)="7,70^4^7,61^1"
^DIST(.404,.00108,40,9,3)="!M"
^DIST(.404,.00108,40,9,3.1)="D Y^DICATTD8(6,3)"
^DIST(.404,.00108,40,9,10)="S:X DICATTVP=6,DDSSTACK=8"
^DIST(.404,.00108,40,9,20)="N^^1:99:1"
^DIST(.404,.00108,40,10,0)="97.1^ORDER...^2^^ORDER7"
^DIST(.404,.00108,40,10,2)="8,70^4^8,61^1"
^DIST(.404,.00108,40,10,3)="!M"
^DIST(.404,.00108,40,10,3.1)="D Y^DICATTD8(7,3)"
^DIST(.404,.00108,40,10,10)="S:X DICATTVP=7,DDSSTACK=8"
^DIST(.404,.00108,40,10,20)="N^^1:99:1"
^DIST(.404,.00108,40,11,0)="94^VARIABLE-POINTER FILE #4^2^^VP4"
^DIST(.404,.00108,40,11,2)="5,29^30^5,3"
^DIST(.404,.00108,40,11,3)="!M"
^DIST(.404,.00108,40,11,3.1)="D Y^DICATTD8(4,1)"
^DIST(.404,.00108,40,11,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,11,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,12,0)="95^VARIABLE-POINTER FILE #5^2^^VP 5"
^DIST(.404,.00108,40,12,2)="6,29^30^6,3"
^DIST(.404,.00108,40,12,3)="!M"
^DIST(.404,.00108,40,12,3.1)="D Y^DICATTD8(5,1)"
^DIST(.404,.00108,40,12,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,12,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,13,0)="96^VARIABLE-POINTER FILE #6^2^^VP 6"
^DIST(.404,.00108,40,13,2)="7,29^30^7,3"
^DIST(.404,.00108,40,13,3)="!M"
^DIST(.404,.00108,40,13,3.1)="D Y^DICATTD8(6,1)"
^DIST(.404,.00108,40,13,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,13,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,14,0)="97^VARIABLE-POINTER FILE #7^2^^VP 7"
^DIST(.404,.00108,40,14,2)="8,29^30^8,3"
^DIST(.404,.00108,40,14,3)="!M"
^DIST(.404,.00108,40,14,3.1)="D Y^DICATTD8(7,1)"
^DIST(.404,.00108,40,14,20)="P^^1:EOFIZM"
^DIST(.404,.00108,40,14,24)="D DICS^DICATTD8"
^DIST(.404,.00108,40,"B",91,1)=""
^DIST(.404,.00108,40,"B",91.1,3)=""
^DIST(.404,.00108,40,"B",92,2)=""
^DIST(.404,.00108,40,"B",92.1,4)=""
^DIST(.404,.00108,40,"B",93,5)=""
^DIST(.404,.00108,40,"B",93.1,6)=""
^DIST(.404,.00108,40,"B",94,11)=""
^DIST(.404,.00108,40,"B",94.1,7)=""
^DIST(.404,.00108,40,"B",95,12)=""
^DIST(.404,.00108,40,"B",95.1,8)=""
^DIST(.404,.00108,40,"B",96,13)=""
^DIST(.404,.00108,40,"B",96.1,9)=""
^DIST(.404,.00108,40,"B",97,14)=""
^DIST(.404,.00108,40,"B",97.1,10)=""
^DIST(.404,.00108,40,"C","ORDER...",3)=""
^DIST(.404,.00108,40,"C","ORDER...",4)=""
^DIST(.404,.00108,40,"C","ORDER...",6)=""
^DIST(.404,.00108,40,"C","ORDER...",7)=""
^DIST(.404,.00108,40,"C","ORDER...",8)=""
^DIST(.404,.00108,40,"C","ORDER...",9)=""
^DIST(.404,.00108,40,"C","ORDER...",10)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #1",1)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #2",2)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #3",5)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #4",11)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #5",12)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #6",13)=""
^DIST(.404,.00108,40,"C","VARIABLE-POINTER FILE #7",14)=""
^DIST(.404,.00108,40,"D","ORDER1",3)=""
^DIST(.404,.00108,40,"D","ORDER2",4)=""
^DIST(.404,.00108,40,"D","ORDER3",6)=""
^DIST(.404,.00108,40,"D","ORDER4",7)=""
^DIST(.404,.00108,40,"D","ORDER5",8)=""
^DIST(.404,.00108,40,"D","ORDER6",9)=""
^DIST(.404,.00108,40,"D","ORDER7",10)=""
^DIST(.404,.00108,40,"D","VP 1",1)=""
^DIST(.404,.00108,40,"D","VP 2",2)=""
^DIST(.404,.00108,40,"D","VP 5",12)=""
^DIST(.404,.00108,40,"D","VP 6",13)=""
^DIST(.404,.00108,40,"D","VP 7",14)=""
^DIST(.404,.00108,40,"D","VP4",11)=""
^DIST(.404,.00109,0)="DICATT3^1"
^DIST(.404,.00109,40,0)="^.4044I^26^26"
^DIST(.404,.00109,40,1,0)="35^CODE^2^^CODE1"
^DIST(.404,.00109,40,1,2)="2,8^4^2,2"
^DIST(.404,.00109,40,1,3)="!M"
^DIST(.404,.00109,40,1,3.1)="D Y^DICATTD3(1,1)"
^DIST(.404,.00109,40,1,4)="1"
^DIST(.404,.00109,40,1,20)="F^^1:20"
^DIST(.404,.00109,40,1,22)="D C^DICATTD3"
^DIST(.404,.00109,40,2,0)="36^WILL STAND FOR^2^^MEANS1"
^DIST(.404,.00109,40,2,2)="2,30^30^2,14"
^DIST(.404,.00109,40,2,3)="!M"
^DIST(.404,.00109,40,2,3.1)="D Y^DICATTD3(1,2)"
^DIST(.404,.00109,40,2,4)="1"
^DIST(.404,.00109,40,2,20)="F^^1:70"
^DIST(.404,.00109,40,2,22)="D C^DICATTD3"
^DIST(.404,.00109,40,3,0)="37^CODE^2^^CODE2"
^DIST(.404,.00109,40,3,2)="3,8^4^3,2"
^DIST(.404,.00109,40,3,3)="!M"
^DIST(.404,.00109,40,3,3.1)="D Y^DICATTD3(2,1)"
^DIST(.404,.00109,40,3,20)="F^^1:20"
^DIST(.404,.00109,40,3,22)="D C^DICATTD3"
^DIST(.404,.00109,40,4,0)="38^WILL STAND FOR^2^^MEANS2"
^DIST(.404,.00109,40,4,2)="3,30^30^3,14"
^DIST(.404,.00109,40,4,3)="!M"
^DIST(.404,.00109,40,4,3.1)="D Y^DICATTD3(2,2)"
^DIST(.404,.00109,40,4,20)="F^^1:70"
^DIST(.404,.00109,40,4,22)="D C^DICATTD3"
^DIST(.404,.00109,40,5,0)="39^CODE^2^^CODE3"
^DIST(.404,.00109,40,5,2)="4,8^4^4,2"
^DIST(.404,.00109,40,5,3)="!M"
^DIST(.404,.00109,40,5,3.1)="D Y^DICATTD3(3,1)"
^DIST(.404,.00109,40,5,20)="F^^1:20"
^DIST(.404,.00109,40,5,22)="D C^DICATTD3"
^DIST(.404,.00109,40,6,0)="40^WILL STAND FOR^2^^MEANS3"
^DIST(.404,.00109,40,6,2)="4,30^30^4,14"
^DIST(.404,.00109,40,6,3)="!M"
^DIST(.404,.00109,40,6,3.1)="D Y^DICATTD3(3,2)"
^DIST(.404,.00109,40,6,20)="F^^1:70"
^DIST(.404,.00109,40,6,22)="D C^DICATTD3"
^DIST(.404,.00109,40,7,0)="41^CODE^2^^CODE4"
^DIST(.404,.00109,40,7,2)="5,8^4^5,2"
^DIST(.404,.00109,40,7,3)="!M"
^DIST(.404,.00109,40,7,3.1)="D Y^DICATTD3(4,1)"
^DIST(.404,.00109,40,7,20)="F^^1:20"
^DIST(.404,.00109,40,7,22)="D C^DICATTD3"
^DIST(.404,.00109,40,8,0)="42^WILL STAND FOR^2^^MEANS4"
^DIST(.404,.00109,40,8,2)="5,30^30^5,14"
^DIST(.404,.00109,40,8,3)="!M"
^DIST(.404,.00109,40,8,3.1)="D Y^DICATTD3(4,2)"
^DIST(.404,.00109,40,8,20)="F^^1:70"
^DIST(.404,.00109,40,8,22)="D C^DICATTD3"
^DIST(.404,.00109,40,9,0)="43^CODE^2^^CODE5"
^DIST(.404,.00109,40,9,2)="6,8^4^6,2"
^DIST(.404,.00109,40,9,3)="!M"
^DIST(.404,.00109,40,9,3.1)="D Y^DICATTD3(5,1)"
^DIST(.404,.00109,40,9,20)="F^^1:20"
^DIST(.404,.00109,40,9,22)="D C^DICATTD3"
^DIST(.404,.00109,40,10,0)="44^WILL STAND FOR^2^^MEANS5"
^DIST(.404,.00109,40,10,2)="6,30^30^6,14"
^DIST(.404,.00109,40,10,3)="!M"
^DIST(.404,.00109,40,10,3.1)="D Y^DICATTD3(5,2)"
^DIST(.404,.00109,40,10,20)="F^^1:70"
^DIST(.404,.00109,40,10,22)="D C^DICATTD3"
^DIST(.404,.00109,40,11,0)="45^CODE^2^^CODE6"
^DIST(.404,.00109,40,11,2)="7,8^4^7,2"
^DIST(.404,.00109,40,11,3)="!M"
^DIST(.404,.00109,40,11,3.1)="D Y^DICATTD3(6,1)"
^DIST(.404,.00109,40,11,20)="F^^1:20"
^DIST(.404,.00109,40,11,22)="D C^DICATTD3"
^DIST(.404,.00109,40,12,0)="46^WILL STAND FOR^2^^MEANS6"
^DIST(.404,.00109,40,12,2)="7,30^30^7,14"
^DIST(.404,.00109,40,12,3)="!M"
^DIST(.404,.00109,40,12,3.1)="D Y^DICATTD3(6,2)"
^DIST(.404,.00109,40,12,20)="F^^1:70"
^DIST(.404,.00109,40,12,22)="D C^DICATTD3"
^DIST(.404,.00109,40,13,0)="47^CODE^2^^CODE7"
^DIST(.404,.00109,40,13,2)="8,8^4^8,2"
^DIST(.404,.00109,40,13,3)="!M"
^DIST(.404,.00109,40,13,3.1)="D Y^DICATTD3(7,1)"
^DIST(.404,.00109,40,13,20)="F^^1:20"
^DIST(.404,.00109,40,13,22)="D C^DICATTD3"
^DIST(.404,.00109,40,14,0)="48^WILL STAND FOR^2^^MEANS7"
^DIST(.404,.00109,40,14,2)="8,30^30^8,14"
^DIST(.404,.00109,40,14,3)="!M"
^DIST(.404,.00109,40,14,3.1)="D Y^DICATTD3(7,2)"
^DIST(.404,.00109,40,14,20)="F^^1:70"
^DIST(.404,.00109,40,14,22)="D C^DICATTD3"
^DIST(.404,.00109,40,15,0)="49^CODE^2^^CODE8"
^DIST(.404,.00109,40,15,2)="9,8^4^9,2"
^DIST(.404,.00109,40,15,3)="!M"
^DIST(.404,.00109,40,15,3.1)="D Y^DICATTD3(8,1)"
^DIST(.404,.00109,40,15,20)="F^^1:20"
^DIST(.404,.00109,40,15,22)="D C^DICATTD3"
^DIST(.404,.00109,40,16,0)="50^WILL STAND FOR^2^^MEANS8"
^DIST(.404,.00109,40,16,2)="9,30^30^9,14"
^DIST(.404,.00109,40,16,3)="!M"
^DIST(.404,.00109,40,16,3.1)="D Y^DICATTD3(8,2)"
^DIST(.404,.00109,40,16,20)="F^^1:70"
^DIST(.404,.00109,40,16,22)="D C^DICATTD3"
^DIST(.404,.00109,40,17,0)="51^CODE^2^^CODE9"
^DIST(.404,.00109,40,17,2)="10,8^4^10,2"
^DIST(.404,.00109,40,17,3)="!M"
^DIST(.404,.00109,40,17,3.1)="D Y^DICATTD3(9,1)"
^DIST(.404,.00109,40,17,20)="F^^1:20"
^DIST(.404,.00109,40,17,22)="D C^DICATTD3"
^DIST(.404,.00109,40,18,0)="52^WILL STAND FOR^2^^MEANS9"
^DIST(.404,.00109,40,18,2)="10,30^30^10,14"
^DIST(.404,.00109,40,18,3)="!M"
^DIST(.404,.00109,40,18,3.1)="D Y^DICATTD3(9,2)"
^DIST(.404,.00109,40,18,20)="F^^1:70"
^DIST(.404,.00109,40,18,22)="D C^DICATTD3"
^DIST(.404,.00109,40,19,0)="53^CODE^2^^CODE10"
^DIST(.404,.00109,40,19,2)="11,8^4^11,2"
^DIST(.404,.00109,40,19,3)="!M"
^DIST(.404,.00109,40,19,3.1)="D Y^DICATTD3(10,1)"
^DIST(.404,.00109,40,19,20)="F^^1:20"
^DIST(.404,.00109,40,19,22)="D C^DICATTD3"
^DIST(.404,.00109,40,20,0)="54^WILL STAND FOR^2^^MEANS10"
^DIST(.404,.00109,40,20,2)="11,30^30^11,14"
^DIST(.404,.00109,40,20,3)="!M"
^DIST(.404,.00109,40,20,3.1)="D Y^DICATTD3(10,2)"
^DIST(.404,.00109,40,20,20)="F^^1:70"
^DIST(.404,.00109,40,20,22)="D C^DICATTD3"
^DIST(.404,.00109,40,21,0)="55^CODE^2^^CODE11"
^DIST(.404,.00109,40,21,2)="12,8^4^12,2"
^DIST(.404,.00109,40,21,3)="!M"
^DIST(.404,.00109,40,21,3.1)="D Y^DICATTD3(11,1)"
^DIST(.404,.00109,40,21,20)="F^^1:20"
^DIST(.404,.00109,40,21,22)="D C^DICATTD3"
^DIST(.404,.00109,40,22,0)="56^WILL STAND FOR^2^^MEANS11"
^DIST(.404,.00109,40,22,2)="12,30^30^12,14"
^DIST(.404,.00109,40,22,3)="!M"
^DIST(.404,.00109,40,22,3.1)="D Y^DICATTD3(11,2)"
^DIST(.404,.00109,40,22,20)="F^^1:70"
^DIST(.404,.00109,40,22,22)="D C^DICATTD3"
^DIST(.404,.00109,40,23,0)="57^CODE^2^^CODE12"
^DIST(.404,.00109,40,23,2)="13,8^4^13,2"
^DIST(.404,.00109,40,23,3)="!M"
^DIST(.404,.00109,40,23,3.1)="D Y^DICATTD3(12,1)"
^DIST(.404,.00109,40,23,20)="F^^1:20"
^DIST(.404,.00109,40,23,22)="D C^DICATTD3"
^DIST(.404,.00109,40,24,0)="58^WILL STAND FOR^2^^MEANS12"
^DIST(.404,.00109,40,24,2)="13,30^30^13,14"
^DIST(.404,.00109,40,24,3)="!M"
^DIST(.404,.00109,40,24,3.1)="D Y^DICATTD3(12,2)"
^DIST(.404,.00109,40,24,20)="F^^1:70"
^DIST(.404,.00109,40,24,22)="D C^DICATTD3"
^DIST(.404,.00109,40,25,0)="59^CODE^2^^CODE13"
^DIST(.404,.00109,40,25,2)="14,8^4^14,2"
^DIST(.404,.00109,40,25,3)="!M"
^DIST(.404,.00109,40,25,3.1)="D Y^DICATTD3(13,1)"
^DIST(.404,.00109,40,25,20)="F^^1:20"
^DIST(.404,.00109,40,25,22)="D C^DICATTD3"
^DIST(.404,.00109,40,26,0)="60^WILL STAND FOR^2^^MEANS13"
^DIST(.404,.00109,40,26,2)="14,30^30^14,14"
^DIST(.404,.00109,40,26,3)="!M"
^DIST(.404,.00109,40,26,3.1)="D Y^DICATTD3(13,2)"
^DIST(.404,.00109,40,26,20)="F^^1:70"
^DIST(.404,.00109,40,26,22)="D C^DICATTD3"
^DIST(.404,.00109,40,"B",35,1)=""
^DIST(.404,.00109,40,"B",36,2)=""
^DIST(.404,.00109,40,"B",37,3)=""
^DIST(.404,.00109,40,"B",38,4)=""
^DIST(.404,.00109,40,"B",39,5)=""
^DIST(.404,.00109,40,"B",40,6)=""
^DIST(.404,.00109,40,"B",41,7)=""
^DIST(.404,.00109,40,"B",42,8)=""
^DIST(.404,.00109,40,"B",43,9)=""
^DIST(.404,.00109,40,"B",44,10)=""
^DIST(.404,.00109,40,"B",45,11)=""
^DIST(.404,.00109,40,"B",46,12)=""
^DIST(.404,.00109,40,"B",47,13)=""
^DIST(.404,.00109,40,"B",48,14)=""
^DIST(.404,.00109,40,"B",49,15)=""
^DIST(.404,.00109,40,"B",50,16)=""
^DIST(.404,.00109,40,"B",51,17)=""
^DIST(.404,.00109,40,"B",52,18)=""
^DIST(.404,.00109,40,"B",53,19)=""
^DIST(.404,.00109,40,"B",54,20)=""
^DIST(.404,.00109,40,"B",55,21)=""
^DIST(.404,.00109,40,"B",56,22)=""
^DIST(.404,.00109,40,"B",57,23)=""
^DIST(.404,.00109,40,"B",58,24)=""
^DIST(.404,.00109,40,"B",59,25)=""
^DIST(.404,.00109,40,"B",60,26)=""
^DIST(.404,.00109,40,"C","CODE",1)=""
^DIST(.404,.00109,40,"C","CODE",3)=""
^DIST(.404,.00109,40,"C","CODE",5)=""
^DIST(.404,.00109,40,"C","CODE",7)=""
^DIST(.404,.00109,40,"C","CODE",9)=""
^DIST(.404,.00109,40,"C","CODE",11)=""
^DIST(.404,.00109,40,"C","CODE",13)=""
^DIST(.404,.00109,40,"C","CODE",15)=""
^DIST(.404,.00109,40,"C","CODE",17)=""
^DIST(.404,.00109,40,"C","CODE",19)=""
^DIST(.404,.00109,40,"C","CODE",21)=""
^DIST(.404,.00109,40,"C","CODE",23)=""
^DIST(.404,.00109,40,"C","CODE",25)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",2)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",4)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",6)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",8)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",10)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",12)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",14)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",16)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",18)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",20)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",22)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",24)=""
^DIST(.404,.00109,40,"C","WILL STAND FOR",26)=""
^DIST(.404,.00109,40,"D","CODE1",1)=""
^DIST(.404,.00109,40,"D","CODE10",19)=""
^DIST(.404,.00109,40,"D","CODE11",21)=""
^DIST(.404,.00109,40,"D","CODE12",23)=""
^DIST(.404,.00109,40,"D","CODE13",25)=""
^DIST(.404,.00109,40,"D","CODE2",3)=""
^DIST(.404,.00109,40,"D","CODE3",5)=""
^DIST(.404,.00109,40,"D","CODE4",7)=""
^DIST(.404,.00109,40,"D","CODE5",9)=""
^DIST(.404,.00109,40,"D","CODE6",11)=""
^DIST(.404,.00109,40,"D","CODE7",13)=""
^DIST(.404,.00109,40,"D","CODE8",15)=""
^DIST(.404,.00109,40,"D","CODE9",17)=""
^DIST(.404,.00109,40,"D","MEANS1",2)=""
^DIST(.404,.00109,40,"D","MEANS10",20)=""
^DIST(.404,.00109,40,"D","MEANS11",22)=""
^DIST(.404,.00109,40,"D","MEANS12",24)=""
^DIST(.404,.00109,40,"D","MEANS13",26)=""
^DIST(.404,.00109,40,"D","MEANS2",4)=""
^DIST(.404,.00109,40,"D","MEANS3",6)=""
^DIST(.404,.00109,40,"D","MEANS4",8)=""
^DIST(.404,.00109,40,"D","MEANS5",10)=""
^DIST(.404,.00109,40,"D","MEANS6",12)=""
^DIST(.404,.00109,40,"D","MEANS7",14)=""
^DIST(.404,.00109,40,"D","MEANS8",16)=""
^DIST(.404,.00109,40,"D","MEANS9",18)=""
^DIST(.404,.0011,0)="DICATTW1^1"
^DIST(.404,.0011,40,0)="^.4044I^1^1"
^DIST(.404,.0011,40,1,0)="1^ ^2"
^DIST(.404,.0011,40,1,2)="1,4^1^1,1^1"
^DIST(.404,.0011,40,1,11)="S DDACT=""CL"""
^DIST(.404,.0011,40,1,20)="F"
^DIST(.404,.0011,40,"B",1,1)=""
^DIST(.404,.0011,40,"C"," ",1)=""
^DIST(.404,.00111,0)="DICATTW2^1"
^DIST(.404,.00111,11)="D WORD^DICATTD0(23)"
^DIST(.404,.00111,40,0)="^.4044I^1^1"
^DIST(.404,.00111,40,1,0)="1^ ^1"
^DIST(.404,.00111,40,1,2)="1,4^1^1,1^1"
^DIST(.404,.00111,40,1,11)="S DDACT=""CL"""
^DIST(.404,.00111,40,1,20)="F"
^DIST(.404,.00111,40,"B",1,1)=""
^DIST(.404,.00111,40,"C"," ",1)=""
^DIST(.404,.00112,0)="DICATTM^1"
^DIST(.404,.00112,40,0)="^.4044I^3^2"
^DIST(.404,.00112,40,2,0)="16^SUBSCRIPT^2^^SUBSCRIPT"
^DIST(.404,.00112,40,2,2)="1,18^33^1,7"
^DIST(.404,.00112,40,2,3)="!M"
^DIST(.404,.00112,40,2,3.1)="D SUBDEF^DICATTDM"
^DIST(.404,.00112,40,2,4)="1"
^DIST(.404,.00112,40,2,11)="D SUBHELP^DICATTDM"
^DIST(.404,.00112,40,2,14)="N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)"
^DIST(.404,.00112,40,2,20)="F^^1:33"
^DIST(.404,.00112,40,2,22)="K:X?1P.E!(X["" "")!(X["","")!(X["":"")!(X["";"")!(X["""""""")!(X[""="") X"
^DIST(.404,.00112,40,3,0)="17^PIECE-POSITION^2^^PIECE"
^DIST(.404,.00112,40,3,2)="2,18^8^2,2"
^DIST(.404,.00112,40,3,3)="!M"
^DIST(.404,.00112,40,3,3.1)="D PIECDEF^DICATTDM"
^DIST(.404,.00112,40,3,4)="1"
^DIST(.404,.00112,40,3,11)="D PIECHELP^DICATTDM"
^DIST(.404,.00112,40,3,14)="N % S %=$$CHKPIEC^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)"
^DIST(.404,.00112,40,3,20)="F^^1:8"
^DIST(.404,.00112,40,"B",16,2)=""
^DIST(.404,.00112,40,"B",17,3)=""
^DIST(.404,.00112,40,"C","PIECE-POSITION",3)=""
^DIST(.404,.00112,40,"C","SUBSCRIPT",2)=""
^DIST(.404,.00112,40,"D","PIECE",3)=""
^DIST(.404,.00112,40,"D","SUBSCRIPT",2)=""
^DIST(.404,.00113,0)="DICATT9^1"
^DIST(.404,.00113,40,0)="^.4044I^3^3"
^DIST(.404,.00113,40,1,0)="99^ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD^2^^DELETING"
^DIST(.404,.00113,40,1,2)="3,53^3^3,3"
^DIST(.404,.00113,40,1,3)="!M"
^DIST(.404,.00113,40,1,3.1)="S Y=""N"""
^DIST(.404,.00113,40,1,12)="D POST9^DICATTDK"
^DIST(.404,.00113,40,1,20)="Y"
^DIST(.404,.00113,40,2,0)="99.1^*****************************************************^1"
^DIST(.404,.00113,40,2,2)="^^2,3"
^DIST(.404,.00113,40,3,0)="99.2^*****************************************************^1"
^DIST(.404,.00113,40,3,2)="^^4,3"
^DIST(.404,.00113,40,"B",99,1)=""
^DIST(.404,.00113,40,"B",99.1,2)=""
^DIST(.404,.00113,40,"B",99.2,3)=""
^DIST(.404,.00113,40,"C","*****************************************************",2)=""
^DIST(.404,.00113,40,"C","*****************************************************",3)=""
^DIST(.404,.00113,40,"C","ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD",1)=""
^DIST(.404,.00113,40,"D","DELETING",1)=""
^DIST(.404,.00114,0)="DICATTS^1"
^DIST(.404,.00114,40,0)="^.4044I^2^2"
^DIST(.404,.00114,40,1,0)="76^SUBSCRIPT^2^^MUL SUBSCRIPT"
^DIST(.404,.00114,40,1,2)="2,26^33^2,15"
^DIST(.404,.00114,40,1,3)="!M"
^DIST(.404,.00114,40,1,3.1)="S Y="""" I DICATT4="""" F Y=+$O(^DD(DICATTA,""GL"",""A""),-1):1 Q:'$D(^(Y))"
^DIST(.404,.00114,40,1,4)="1"
^DIST(.404,.00114,40,1,11)="D SUBHELP^DICATTDM"
^DIST(.404,.00114,40,1,14)="N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)"
^DIST(.404,.00114,40,1,20)="F^^1:33"
^DIST(.404,.00114,40,1,22)="K:X?1P.E!(X["","")!(X["":"")!(X["""""""")!(X[""="") X"
^DIST(.404,.00114,40,1,24)="D SUBHELP^DICATTDM"
^DIST(.404,.00114,40,2,0)="76.1^SUB-DICTIONARY NUMBER^2"
^DIST(.404,.00114,40,2,2)="3,26^22^3,3"
^DIST(.404,.00114,40,2,3)="!M"
^DIST(.404,.00114,40,2,3.1)="S Y="""" I DICATT4=Y D SUBDIC^DICATTD5"
^DIST(.404,.00114,40,2,4)="1"
^DIST(.404,.00114,40,2,11)="D HLP^DDSUTL(""^DD number must be between ""_DICATTA_"" and ""_(DICATTA\1+1)_"" and not already used"")"
^DIST(.404,.00114,40,2,20)="N^^0:9999999999999:9"
^DIST(.404,.00114,40,2,22)="D CHKDIC^DICATTD5"
^DIST(.404,.00114,40,"B",76,1)=""
^DIST(.404,.00114,40,"B",76.1,2)=""
^DIST(.404,.00114,40,"C","SUB-DICTIONARY NUMBER",2)=""
^DIST(.404,.00114,40,"C","SUBSCRIPT",1)=""
^DIST(.404,.00114,40,"D","MUL SUBSCRIPT",1)=""
^DIST(.404,.00115,0)="DICATTVP^1"
^DIST(.404,.00115,40,0)="^.4044I^6^6"
^DIST(.404,.00115,40,1,0)="1^MESSAGE^2"
^DIST(.404,.00115,40,1,2)="2,10^28^2,1"
^DIST(.404,.00115,40,1,4)="0"
^DIST(.404,.00115,40,1,20)="F^^1:30"
^DIST(.404,.00115,40,2,0)="4^SCREEN^2"
^DIST(.404,.00115,40,2,2)="5,9^60^5,1"
^DIST(.404,.00115,40,2,10)="D UNED^DDSUTL(5,,,X="""","""")"
^DIST(.404,.00115,40,2,20)="DD^^.12,1"
^DIST(.404,.00115,40,2,21,0)="^^3^3^2981127"
^DIST(.404,.00115,40,2,21,1,0)="Enter (optionally) a MUMPS statement which begins with 'S DIC(""S"")=' and"
^DIST(.404,.00115,40,2,21,2,0)="contains code which sets $T to ""1"" for selectable Entries.  Entry numbers"
^DIST(.404,.00115,40,2,21,3,0)="will be in the variable 'Y' when evaluation by DIC(""S"") takes place."
^DIST(.404,.00115,40,3,0)="3^SHOULD USER BE ALLOWED TO ADD A NEW ENTRY^2"
^DIST(.404,.00115,40,3,2)="4,44^3^4,1"
^DIST(.404,.00115,40,3,20)="S^^y:YES;n:NO"
^DIST(.404,.00115,40,4,0)="5^EXPLANATION OF SCREEN^2"
^DIST(.404,.00115,40,4,2)="6,24^45^6,1"
^DIST(.404,.00115,40,4,20)="F^^1:240"
^DIST(.404,.00115,40,5,0)="2^PREFIX^2"
^DIST(.404,.00115,40,5,2)="3,9^10^3,1"
^DIST(.404,.00115,40,5,4)="0"
^DIST(.404,.00115,40,5,20)="F^^1:10"
^DIST(.404,.00115,40,5,22)="I X[""."" K X"
^DIST(.404,.00115,40,6,0)=".5^^4"
^DIST(.404,.00115,40,6,2)="1,20^30"
^DIST(.404,.00115,40,6,30)="S Y=""VARIABLE-POINTER #""_$G(DICATTVP)"
^DIST(.404,.00115,40,"B",.5,6)=""
^DIST(.404,.00115,40,"B",1,1)=""
^DIST(.404,.00115,40,"B",2,5)=""
^DIST(.404,.00115,40,"B",3,3)=""
^DIST(.404,.00115,40,"B",4,2)=""
^DIST(.404,.00115,40,"B",5,4)=""
^DIST(.404,.00115,40,"C","EXPLANATION OF SCREEN",4)=""
^DIST(.404,.00115,40,"C","MESSAGE",1)=""
^DIST(.404,.00115,40,"C","PREFIX",5)=""
^DIST(.404,.00115,40,"C","SCREEN",2)=""
^DIST(.404,.00115,40,"C","SHOULD USER BE ALLOWED TO ADD A NEW ENTRY",3)=""
^DIST(.404,.00116,0)="DICATT MUL^1"
^DIST(.404,.00116,40,0)="^.4044I^7^7"
^DIST(.404,.00116,40,1,0)="1^MULTIPLE-FIELD LABEL^2^^MULTIPLE LABEL"
^DIST(.404,.00116,40,1,2)="3,23^30^3,1"
^DIST(.404,.00116,40,1,3)="!M"
^DIST(.404,.00116,40,1,3.1)="S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)"
^DIST(.404,.00116,40,1,10)="I X="""" S DDSSTACK=9"
^DIST(.404,.00116,40,1,20)="DD^^0,.01"
^DIST(.404,.00116,40,2,0)="5^READ ACCESS^2^^MULTIPLE READ ACCESS"
^DIST(.404,.00116,40,2,2)="4,23^13^4,10"
^DIST(.404,.00116,40,2,3)="!M"
^DIST(.404,.00116,40,2,3.1)="S Y=$G(^DD(DICATTA,DICATTF,8))"
^DIST(.404,.00116,40,2,11)="I $G(DICATTDK) S DDACT=""EX"""
^DIST(.404,.00116,40,2,20)="DD^^0,8"
^DIST(.404,.00116,40,3,0)="7^WRITE ACCESS^2^^MULTIPLE WRITE ACCESS"
^DIST(.404,.00116,40,3,2)="5,23^13^5,9"
^DIST(.404,.00116,40,3,3)="!M"
^DIST(.404,.00116,40,3,3.1)="S Y=$G(^DD(DICATTA,DICATTF,9))"
^DIST(.404,.00116,40,3,20)="DD^^0,9"
^DIST(.404,.00116,40,4,0)="8^SOURCE^2^^MULTIPLE SOURCE"
^DIST(.404,.00116,40,4,2)="6,23^54^6,15"
^DIST(.404,.00116,40,4,3)="!M"
^DIST(.404,.00116,40,4,3.1)="S Y=$G(^DD(DICATTA,DICATTF,10))"
^DIST(.404,.00116,40,4,20)="DD^^0,10"
^DIST(.404,.00116,40,5,0)=".5^ ^4^^MULTIPLE FIELD NUMBER"
^DIST(.404,.00116,40,5,2)="1,2^77^1,1^1"
^DIST(.404,.00116,40,5,30)="D NUMBER^DICATTD"
^DIST(.404,.00116,40,6,0)="11^DESCRIPTION...^2"
^DIST(.404,.00116,40,6,2)="7,17^1^7,2^1"
^DIST(.404,.00116,40,6,10)="S DDSSTACK=1.1"
^DIST(.404,.00116,40,6,20)="F^^1:1"
^DIST(.404,.00116,40,7,0)="12^TECHNICAL DESCRIPTION...^2"
^DIST(.404,.00116,40,7,2)="7,49^1^7,24^1"
^DIST(.404,.00116,40,7,10)="S DDSSTACK=1.2"
^DIST(.404,.00116,40,7,20)="F^^1:1"
^DIST(.404,.00116,40,"B",.5,5)=""
^DIST(.404,.00116,40,"B",1,1)=""
^DIST(.404,.00116,40,"B",5,2)=""
^DIST(.404,.00116,40,"B",7,3)=""
^DIST(.404,.00116,40,"B",8,4)=""
^DIST(.404,.00116,40,"B",11,6)=""
^DIST(.404,.00116,40,"B",12,7)=""
^DIST(.404,.00116,40,"C"," ",5)=""
^DIST(.404,.00116,40,"C","DESCRIPTION...",6)=""
^DIST(.404,.00116,40,"C","MULTIPLE-FIELD LABEL",1)=""
^DIST(.404,.00116,40,"C","READ ACCESS",2)=""
^DIST(.404,.00116,40,"C","SOURCE",4)=""
^DIST(.404,.00116,40,"C","TECHNICAL DESCRIPTION...",7)=""
^DIST(.404,.00116,40,"C","WRITE ACCESS",3)=""
^DIST(.404,.00116,40,"D","MULTIPLE FIELD NUMBER",5)=""
^DIST(.404,.00116,40,"D","MULTIPLE LABEL",1)=""
^DIST(.404,.00116,40,"D","MULTIPLE READ ACCESS",2)=""
^DIST(.404,.00116,40,"D","MULTIPLE SOURCE",4)=""
^DIST(.404,.00116,40,"D","MULTIPLE WRITE ACCESS",3)=""
^DIST(.404,.00117,0)="DICATTMUL^1"
^DIST(.404,.00117,40,0)="^.4044I^2^2"
^DIST(.404,.00117,40,1,0)="1^SHOULD USER SEE AN ""ADDING A NEW ENTRY"" MESSAGE^2"
^DIST(.404,.00117,40,1,2)="2,52^3^2,3"
^DIST(.404,.00117,40,1,3)="!M"
^DIST(.404,.00117,40,1,3.1)="D LAYGODEF^DICATTDE"
^DIST(.404,.00117,40,1,20)="Y"
^DIST(.404,.00117,40,2,0)="2^HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER^2"
^DIST(.404,.00117,40,2,2)="3,72^3^3,3"
^DIST(.404,.00117,40,2,3)="!M"
^DIST(.404,.00117,40,2,3.1)="S Y=$E(""NY"",$G(DICATT2)[""M""+1)"
^DIST(.404,.00117,40,2,20)="Y"
^DIST(.404,.00117,40,"B",1,1)=""
^DIST(.404,.00117,40,"B",2,2)=""
^DIST(.404,.00117,40,"C","HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANO",2)=""
^DIST(.404,.00117,40,"C","SHOULD USER SEE AN ""ADDING A NEW ENTRY"" MESSAGE",1)=""
^DIST(.404,.00118,0)="DICATT SCREEN^1"
^DIST(.404,.00118,40,0)="^.4044I^3^3"
^DIST(.404,.00118,40,1,0)="65^SHOULD ENTRIES BE SCREENED^2"
^DIST(.404,.00118,40,1,2)="2,31^3^2,3"
^DIST(.404,.00118,40,1,3)="!M"
^DIST(.404,.00118,40,1,3.1)="S Y=$E(""NY"",$G(^DD(DICATTA,DICATTF,12.1))]""""+1)"
^DIST(.404,.00118,40,1,12)="D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""""),PUT^DDSVALF(67,,,"""")"
^DIST(.404,.00118,40,1,20)="Y"
^DIST(.404,.00118,40,1,21,0)="^^2^2^2981215"
^DIST(.404,.00118,40,1,21,1,0)="Answer YES if there is a condition which should prohibit"
^DIST(.404,.00118,40,1,21,2,0)="the selection of all choices at all times."
^DIST(.404,.00118,40,2,0)="66^MUMPS CODE THAT WILL SET DIC(""S"")^2"
^DIST(.404,.00118,40,2,2)="4,3^72^3,3"
^DIST(.404,.00118,40,2,3)="!M"
^DIST(.404,.00118,40,2,3.1)="S Y=$G(^DD(DICATTA,DICATTF,12.1))"
^DIST(.404,.00118,40,2,10)="D REQ^DDSUTL(67,,,X]"""")"
^DIST(.404,.00118,40,2,20)="F^U"
^DIST(.404,.00118,40,2,21,0)="^^3^3^2981215"
^DIST(.404,.00118,40,2,21,1,0)="Enter a MUMPS statement which begins with 'S DIC(""S"")=' and contains code"
^DIST(.404,.00118,40,2,21,2,0)="to set $T.  When the DIC(""S"") is executed, the variable 'Y' holds internal"
^DIST(.404,.00118,40,2,21,3,0)="code being screened."
^DIST(.404,.00118,40,2,22)="D ^DIM"
^DIST(.404,.00118,40,3,0)="67^EXPLANATION OF SCREEN^2"
^DIST(.404,.00118,40,3,2)="6,3^72^5,3"
^DIST(.404,.00118,40,3,3)="!M"
^DIST(.404,.00118,40,3,3.1)="S Y=$G(^DD(DICATTA,DICATTF,12))"
^DIST(.404,.00118,40,3,20)="F^^1:245"
^DIST(.404,.00118,40,3,22)="K:X?.P X"
^DIST(.404,.00118,40,"B",65,1)=""
^DIST(.404,.00118,40,"B",66,2)=""
^DIST(.404,.00118,40,"B",67,3)=""
^DIST(.404,.00118,40,"C","EXPLANATION OF SCREEN",3)=""
^DIST(.404,.00118,40,"C","MUMPS CODE THAT WILL SET DIC(""S"")",2)=""
^DIST(.404,.00118,40,"C","SHOULD ENTRIES BE SCREENED",1)=""
^DIST(.404,.10011,0)="DIPTED^.4"
^DIST(.404,.10011,40,0)="^.4044I^14^12"
^DIST(.404,.10011,40,1,0)="1^TEMPLATE NAME^3"
^DIST(.404,.10011,40,1,1)=".01"
^DIST(.404,.10011,40,1,2)="1,16^30^1,1"
^DIST(.404,.10011,40,2,0)="3^DATE LAST MODIFIED^3"
^DIST(.404,.10011,40,2,1)="2"
^DIST(.404,.10011,40,2,2)="4,28^17^4,8"
^DIST(.404,.10011,40,2,4)="^^^1"
^DIST(.404,.10011,40,3,0)="4^DATE LAST USED^3"
^DIST(.404,.10011,40,3,1)="7"
^DIST(.404,.10011,40,3,2)="5,28^11^5,12"
^DIST(.404,.10011,40,3,4)="^^^1"
^DIST(.404,.10011,40,4,0)="6^READ ACCESS^3"
^DIST(.404,.10011,40,4,1)="3"
^DIST(.404,.10011,40,4,2)="6,28^13^6,15"
^DIST(.404,.10011,40,5,0)="7^WRITE ACCESS^3"
^DIST(.404,.10011,40,5,1)="6"
^DIST(.404,.10011,40,5,2)="7,28^13^7,14"
^DIST(.404,.10011,40,6,0)="8^USER #^3"
^DIST(.404,.10011,40,6,1)="5"
^DIST(.404,.10011,40,6,2)="8,28^9^8,20"
^DIST(.404,.10011,40,7,0)="9^DESCRIPTION...^3"
^DIST(.404,.10011,40,7,1)="10"
^DIST(.404,.10011,40,7,2)="10,28^1^10,13^1"
^DIST(.404,.10011,40,8,0)="11^SUB-HEADER SUPPRESSED^3"
^DIST(.404,.10011,40,8,1)="707"
^DIST(.404,.10011,40,8,2)="14,28^3^14,5"
^DIST(.404,.10011,40,10,0)="2^TEMPLATE TYPE^3"
^DIST(.404,.10011,40,10,1)="8"
^DIST(.404,.10011,40,10,2)="1,71^9^1,56"
^DIST(.404,.10011,40,10,4)="^^^1"
^DIST(.404,.10011,40,12,0)="10^HEADER^2"
^DIST(.404,.10011,40,12,2)="13,4^76^12,4"
^DIST(.404,.10011,40,12,3)="!M"
^DIST(.404,.10011,40,12,3.1)="S Y=$G(^DIPT(DA,""H""))"
^DIST(.404,.10011,40,12,20)="F^^F"
^DIST(.404,.10011,40,12,22)="I '$$DHD^DIP3(X,+$P($G(^DIPT(DA,0)),U,4),0) K X"
^DIST(.404,.10011,40,12,23)="S ^DIPT(DA,""H"")=$S(DDSEXT="""":""@"",1:DDSEXT)"
^DIST(.404,.10011,40,13,0)="5^^4"
^DIST(.404,.10011,40,13,2)="2,20^44"
^DIST(.404,.10011,40,13,30)="S Y=$G(^DIPT(DA,""ROU"")),Y=$S(Y]"""":""(Compiled as '""_Y_""' routine)"",1:""(Not Compiled)"")"
^DIST(.404,.10011,40,14,0)="12^(Print Fields on Next Page...)^1^^EDIT FIELD"
^DIST(.404,.10011,40,14,2)="^^16,20"
^DIST(.404,.10011,40,"B",1,1)=""
^DIST(.404,.10011,40,"B",2,10)=""
^DIST(.404,.10011,40,"B",3,2)=""
^DIST(.404,.10011,40,"B",4,3)=""
^DIST(.404,.10011,40,"B",5,13)=""
^DIST(.404,.10011,40,"B",6,4)=""
^DIST(.404,.10011,40,"B",7,5)=""
^DIST(.404,.10011,40,"B",8,6)=""
^DIST(.404,.10011,40,"B",9,7)=""
^DIST(.404,.10011,40,"B",10,12)=""
^DIST(.404,.10011,40,"B",11,8)=""
^DIST(.404,.10011,40,"B",12,14)=""
^DIST(.404,.10011,40,"C","(PRINT FIELDS ON NEXT PAGE...)",14)=""
^DIST(.404,.10011,40,"C","DATE LAST MODIFIED",2)=""
^DIST(.404,.10011,40,"C","DATE LAST USED",3)=""
^DIST(.404,.10011,40,"C","DESCRIPTION...",7)=""
^DIST(.404,.10011,40,"C","HEADER",12)=""
^DIST(.404,.10011,40,"C","READ ACCESS",4)=""
^DIST(.404,.10011,40,"C","SUB-HEADER SUPPRESSED",8)=""
^DIST(.404,.10011,40,"C","TEMPLATE NAME",1)=""
^DIST(.404,.10011,40,"C","TEMPLATE TYPE",10)=""
^DIST(.404,.10011,40,"C","USER #",6)=""
^DIST(.404,.10011,40,"C","WRITE ACCESS",5)=""
^DIST(.404,.10011,40,"D","EDIT FIELD",14)=""
^DIST(.404,.10012,0)="DIPTED2^.4"
^DIST(.404,.10012,11)="D EDIT^DIPTED(DA)"
^DIST(.404,.10012,40,0)="^.4044I^1^1"
^DIST(.404,.10012,40,1,0)="1^ ^1"
^DIST(.404,.10012,40,1,2)="^^1,1"
^DIST(.404,.10012,40,"B",1,1)=""
^DIST(.404,.10012,40,"C"," ",1)=""
^DIST(.404,.110101,0)="DIKC EDIT MAIN^.11"
^DIST(.404,.110101,40,0)="^.4044I^14^11"
^DIST(.404,.110101,40,1,0)="1^File^3"
^DIST(.404,.110101,40,1,1)=".01"
^DIST(.404,.110101,40,1,2)="1,15^20^1,9"
^DIST(.404,.110101,40,1,13)="D BLDLOG^DIKCFORM(DA)"
^DIST(.404,.110101,40,1,14)="D VALFILE^DIKCFORM"
^DIST(.404,.110101,40,2,0)="3^Index Name^3"
^DIST(.404,.110101,40,2,1)=".02"
^DIST(.404,.110101,40,2,2)="2,15^30^2,3"
^DIST(.404,.110101,40,2,13)="D NAMECHG^DIKCFORM"
^DIST(.404,.110101,40,2,14)="D NAMEVAL^DIKCFORM"
^DIST(.404,.110101,40,3,0)="5^Short Description^3"
^DIST(.404,.110101,40,3,1)=".11"
^DIST(.404,.110101,40,3,2)="4,20^60^4,1"
^DIST(.404,.110101,40,4,0)="6^Description (wp)^3"
^DIST(.404,.110101,40,4,1)=".1"
^DIST(.404,.110101,40,4,2)="5,20^1^5,2"
^DIST(.404,.110101,40,5,0)="8^Type^3"
^DIST(.404,.110101,40,5,1)=".2"
^DIST(.404,.110101,40,5,2)="7,15^8^7,9"
^DIST(.404,.110101,40,5,13)="D TYPECHG^DIKCFORM"
^DIST(.404,.110101,40,5,14)="D TYPEVAL^DIKCFORM"
^DIST(.404,.110101,40,7,0)="10^Execution^3"
^DIST(.404,.110101,40,7,1)=".4"
^DIST(.404,.110101,40,7,2)="10,15^6^10,4"
^DIST(.404,.110101,40,8,0)="9^Activity^3"
^DIST(.404,.110101,40,8,1)=".41"
^DIST(.404,.110101,40,8,2)="9,15^5^9,5"
^DIST(.404,.110101,40,9,0)="11^Use^3"
^DIST(.404,.110101,40,9,1)=".42"
^DIST(.404,.110101,40,9,2)="12,15^16^12,10"
^DIST(.404,.110101,40,9,14)="D USEVAL^DIKCFORM"
^DIST(.404,.110101,40,10,0)="2^Root File^3"
^DIST(.404,.110101,40,10,1)=".51"
^DIST(.404,.110101,40,10,2)="1,60^20^1,49"
^DIST(.404,.110101,40,10,4)="^^^1"
^DIST(.404,.110101,40,11,0)="4^Root Type^3"
^DIST(.404,.110101,40,11,1)=".5"
^DIST(.404,.110101,40,11,2)="2,60^16^2,49"
^DIST(.404,.110101,40,11,4)="^^^1"
^DIST(.404,.110101,40,14,0)="7^!M^1"
^DIST(.404,.110101,40,14,.1)="N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"""":$G(@WPROOT@(1,0)),1:""""),Y=$S(Y]"""":""[""_$E(Y,1,56)_""]"",1:""(empty)"")"
^DIST(.404,.110101,40,14,2)="^^5,23"
^DIST(.404,.110101,40,"B",1,1)=""
^DIST(.404,.110101,40,"B",2,10)=""
^DIST(.404,.110101,40,"B",3,2)=""
^DIST(.404,.110101,40,"B",4,11)=""
^DIST(.404,.110101,40,"B",5,3)=""
^DIST(.404,.110101,40,"B",6,4)=""
^DIST(.404,.110101,40,"B",7,14)=""
^DIST(.404,.110101,40,"B",8,5)=""
^DIST(.404,.110101,40,"B",9,8)=""
^DIST(.404,.110101,40,"B",10,7)=""
^DIST(.404,.110101,40,"B",11,9)=""
^DIST(.404,.110101,40,"C","ACTIVITY",8)=""
^DIST(.404,.110101,40,"C","DESCRIPTION (WP)",4)=""
^DIST(.404,.110101,40,"C","EXECUTION",7)=""
^DIST(.404,.110101,40,"C","FILE",1)=""
^DIST(.404,.110101,40,"C","INDEX NAME",2)=""
^DIST(.404,.110101,40,"C","ROOT FILE",10)=""
^DIST(.404,.110101,40,"C","ROOT TYPE",11)=""
^DIST(.404,.110101,40,"C","SHORT DESCRIPTION",3)=""
^DIST(.404,.110101,40,"C","TYPE",5)=""
^DIST(.404,.110101,40,"C","USE",9)=""
^DIST(.404,.110102,0)="DIKC EDIT HDR 1^.11"
^DIST(.404,.110102,40,0)="^.4044I^4^4"
^DIST(.404,.110102,40,1,0)="1^EDIT AN INDEX^1"
^DIST(.404,.110102,40,1,2)="^^1,34"
^DIST(.404,.110102,40,2,0)="2^Number^4"
^DIST(.404,.110102,40,2,2)="1,9^15^1,1"
^DIST(.404,.110102,40,2,30)="S Y=DA"
^DIST(.404,.110102,40,3,0)="3^Page 1 of 2^1"
^DIST(.404,.110102,40,3,2)="^^1,69"
^DIST(.404,.110102,40,4,0)="4^-------------------------------------------------------------------------------^1"
^DIST(.404,.110102,40,4,2)="^^2,1"
^DIST(.404,.110102,40,"B",1,1)=""
^DIST(.404,.110102,40,"B",2,2)=""
^DIST(.404,.110102,40,"B",3,3)=""
^DIST(.404,.110102,40,"B",4,4)=""
^DIST(.404,.110102,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,.110102,40,"C","EDIT AN INDEX",1)=""
^DIST(.404,.110102,40,"C","NUMBER",2)=""
^DIST(.404,.110102,40,"C","PAGE 1 OF 2",3)=""
^DIST(.404,.110103,0)="DIKC EDIT LOGIC^.11"
^DIST(.404,.110103,40,0)="^.4044I^28^5"
^DIST(.404,.110103,40,1,0)="1^Set Logic^3"
^DIST(.404,.110103,40,1,1)="1.1"
^DIST(.404,.110103,40,1,2)="3,13^67^3,2"
^DIST(.404,.110103,40,1,14)="D VALLOG^DIKCFORM"
^DIST(.404,.110103,40,2,0)="2^Kill Logic^3"
^DIST(.404,.110103,40,2,1)="2.1"
^DIST(.404,.110103,40,2,2)="4,13^67^4,1"
^DIST(.404,.110103,40,2,14)="D VALLOG^DIKCFORM"
^DIST(.404,.110103,40,18,0)="3^Whole Kill^3"
^DIST(.404,.110103,40,18,1)="2.5"
^DIST(.404,.110103,40,18,2)="5,13^67^5,1"
^DIST(.404,.110103,40,18,14)="D VALLOG^DIKCFORM"
^DIST(.404,.110103,40,27,0)="8^Set Condition^3"
^DIST(.404,.110103,40,27,1)="1.4"
^DIST(.404,.110103,40,27,2)="7,17^63^7,2"
^DIST(.404,.110103,40,27,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Set Condition."")"
^DIST(.404,.110103,40,28,0)="9^Kill Condition^3"
^DIST(.404,.110103,40,28,1)="2.4"
^DIST(.404,.110103,40,28,2)="8,17^63^8,1"
^DIST(.404,.110103,40,28,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Kill Condition."")"
^DIST(.404,.110103,40,"B",1,1)=""
^DIST(.404,.110103,40,"B",2,2)=""
^DIST(.404,.110103,40,"B",3,18)=""
^DIST(.404,.110103,40,"B",8,27)=""
^DIST(.404,.110103,40,"B",9,28)=""
^DIST(.404,.110103,40,"C","KILL CONDITION",28)=""
^DIST(.404,.110103,40,"C","KILL LOGIC",2)=""
^DIST(.404,.110103,40,"C","SET CONDITION",27)=""
^DIST(.404,.110103,40,"C","SET LOGIC",1)=""
^DIST(.404,.110103,40,"C","WHOLE KILL",18)=""
^DIST(.404,.110104,0)="DIKC EDIT CRV^.114"
^DIST(.404,.110104,40,0)="^.4044I^5^5"
^DIST(.404,.110104,40,1,0)="1^^3^^ORDER"
^DIST(.404,.110104,40,1,1)=".01"
^DIST(.404,.110104,40,1,2)="1,3^3"
^DIST(.404,.110104,40,1,10)="S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)=""F"":2.1,1:2.2)"
^DIST(.404,.110104,40,1,13)="D:DDSOLD'="""" BLDLOG^DIKCFORM(DA(1))"
^DIST(.404,.110104,40,2,0)="2^^3"
^DIST(.404,.110104,40,2,1)=".5"
^DIST(.404,.110104,40,2,2)="1,12^3"
^DIST(.404,.110104,40,2,13)="D BLDLOG^DIKCFORM(DA(1))"
^DIST(.404,.110104,40,3,0)="3^^3"
^DIST(.404,.110104,40,3,1)="1"
^DIST(.404,.110104,40,3,2)="1,19^8"
^DIST(.404,.110104,40,3,10)="S:X'=DDSOLD DDSSTACK=$S(X=""F"":2.1,1:2.2)"
^DIST(.404,.110104,40,3,13)="D CRVTYPE^DIKCFORM"
^DIST(.404,.110104,40,4,0)="5^^4"
^DIST(.404,.110104,40,4,2)="1,36^43"
^DIST(.404,.110104,40,4,30)="N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP=""F"" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"""",$P($G(^DD(FIL,FLD,0)),U)="""":"""",1:$P(^(0),U)_"" (#""_FLD_"")"") S:TYP=""C"" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_""..."""
^DIST(.404,.110104,40,5,0)="4^^3"
^DIST(.404,.110104,40,5,1)="6"
^DIST(.404,.110104,40,5,2)="1,29^3"
^DIST(.404,.110104,40,5,13)="D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))"
^DIST(.404,.110104,40,"B",1,1)=""
^DIST(.404,.110104,40,"B",2,2)=""
^DIST(.404,.110104,40,"B",3,3)=""
^DIST(.404,.110104,40,"B",4,5)=""
^DIST(.404,.110104,40,"B",5,4)=""
^DIST(.404,.110104,40,"D","ORDER",1)=""
^DIST(.404,.110105,0)="DIKC EDIT CRV HDR^.11"
^DIST(.404,.110105,40,0)="^.4044I^12^11"
^DIST(.404,.110105,40,1,0)="1^CROSS-REFERENCE VALUES:^1"
^DIST(.404,.110105,40,1,2)="^^1,1"
^DIST(.404,.110105,40,3,0)="2^Order...^1"
^DIST(.404,.110105,40,3,2)="^^2,2"
^DIST(.404,.110105,40,4,0)="7^--------^1"
^DIST(.404,.110105,40,4,2)="^^3,2"
^DIST(.404,.110105,40,5,0)="3^Subscr^1"
^DIST(.404,.110105,40,5,2)="^^2,12"
^DIST(.404,.110105,40,6,0)="8^------^1"
^DIST(.404,.110105,40,6,2)="^^3,12"
^DIST(.404,.110105,40,7,0)="4^Type^1"
^DIST(.404,.110105,40,7,2)="^^2,20"
^DIST(.404,.110105,40,8,0)="9^----^1"
^DIST(.404,.110105,40,8,2)="^^3,20"
^DIST(.404,.110105,40,9,0)="6^Field or Computed Expression^1"
^DIST(.404,.110105,40,9,2)="^^2,37"
^DIST(.404,.110105,40,10,0)="11^-------------------------------------^1"
^DIST(.404,.110105,40,10,2)="^^3,37"
^DIST(.404,.110105,40,11,0)="5^Length^1"
^DIST(.404,.110105,40,11,2)="^^2,29"
^DIST(.404,.110105,40,12,0)="10^------^1"
^DIST(.404,.110105,40,12,2)="^^3,29"
^DIST(.404,.110105,40,"B",1,1)=""
^DIST(.404,.110105,40,"B",2,3)=""
^DIST(.404,.110105,40,"B",3,5)=""
^DIST(.404,.110105,40,"B",4,7)=""
^DIST(.404,.110105,40,"B",5,11)=""
^DIST(.404,.110105,40,"B",6,9)=""
^DIST(.404,.110105,40,"B",7,4)=""
^DIST(.404,.110105,40,"B",8,6)=""
^DIST(.404,.110105,40,"B",9,8)=""
^DIST(.404,.110105,40,"B",10,12)=""
^DIST(.404,.110105,40,"B",11,10)=""
^DIST(.404,.110105,40,"C","----",8)=""
^DIST(.404,.110105,40,"C","------",6)=""
^DIST(.404,.110105,40,"C","------",12)=""
^DIST(.404,.110105,40,"C","--------",4)=""
^DIST(.404,.110105,40,"C","-------------------------------------",10)=""
^DIST(.404,.110105,40,"C","CROSS-REFERENCE VALUES:",1)=""
^DIST(.404,.110105,40,"C","FIELD OR COMPUTED EXPRESSION",9)=""
^DIST(.404,.110105,40,"C","LENGTH",11)=""
^DIST(.404,.110105,40,"C","ORDER...",3)=""
^DIST(.404,.110105,40,"C","SUBSCR",5)=""
^DIST(.404,.110105,40,"C","TYPE",7)=""
^DIST(.404,.110106,0)="DIKC EDIT HDR 2^.11"
^DIST(.404,.110106,40,0)="^.4044I^4^4"
^DIST(.404,.110106,40,1,0)="1^Number^4"
^DIST(.404,.110106,40,1,2)="1,9^15^1,1"
^DIST(.404,.110106,40,1,30)="S Y=DA"
^DIST(.404,.110106,40,2,0)="2^EDIT AN INDEX^1"
^DIST(.404,.110106,40,2,2)="^^1,34"
^DIST(.404,.110106,40,3,0)="3^Page 2 of 2^1"
^DIST(.404,.110106,40,3,2)="^^1,69"
^DIST(.404,.110106,40,4,0)="4^-------------------------------------------------------------------------------^1"
^DIST(.404,.110106,40,4,2)="^^2,1"
^DIST(.404,.110106,40,"B",1,1)=""
^DIST(.404,.110106,40,"B",2,2)=""
^DIST(.404,.110106,40,"B",3,3)=""
^DIST(.404,.110106,40,"B",4,4)=""
^DIST(.404,.110106,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,.110106,40,"C","EDIT AN INDEX",2)=""
^DIST(.404,.110106,40,"C","NUMBER",1)=""
^DIST(.404,.110106,40,"C","PAGE 2 OF 2",3)=""
^DIST(.404,.110107,0)="DIKC EDIT FIELD CRV^.114"
^DIST(.404,.110107,40,0)="^.4044I^12^12"
^DIST(.404,.110107,40,1,0)="1^ Field-Type Cross Reference Value ^1"
^DIST(.404,.110107,40,1,2)="^^1,23"
^DIST(.404,.110107,40,2,0)="2^Order Number^3"
^DIST(.404,.110107,40,2,1)=".01"
^DIST(.404,.110107,40,2,2)="3,18^3^3,4"
^DIST(.404,.110107,40,2,11)="I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="""" S DDSBR=""FIELD"" K DIKCPG21"
^DIST(.404,.110107,40,2,13)="S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1"
^DIST(.404,.110107,40,3,0)="3^Subscript Number^3"
^DIST(.404,.110107,40,3,1)=".5"
^DIST(.404,.110107,40,3,2)="3,58^3^3,40"
^DIST(.404,.110107,40,3,3)="!M"
^DIST(.404,.110107,40,3,3.1)="S Y=$S($$GET^DDSVAL(.11,DA(1),.2)=""R"":$$GET^DDSVAL(.114,.DA,.01),1:"""")"
^DIST(.404,.110107,40,3,13)="I X=""""!(DDSOLD="""") S DIKCCRV=1 D:X="""" PUT^DDSVAL(.114,.DA,6) I DDSOLD="""" N DIKCTYPE S DIKCTYPE=$P($G(^DD(+$$GET^DDSVAL(.114,.DA,2),+$$GET^DDSVAL(.114,.DA,3),0)),U,2) D:DIKCTYPE[""F""!(DIKCTYPE[""K"") PUT^DDSVAL(.114,.DA,6,30)"
^DIST(.404,.110107,40,4,0)="10^Transform for Storage^3"
^DIST(.404,.110107,40,4,1)="5"
^DIST(.404,.110107,40,4,2)="9,25^53^9,2"
^DIST(.404,.110107,40,4,13)="D TRANS^DIKCFORM"
^DIST(.404,.110107,40,4,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Transform for Storage."")"
^DIST(.404,.110107,40,5,0)="7^Maximum Length^3"
^DIST(.404,.110107,40,5,1)="6"
^DIST(.404,.110107,40,5,2)="7,18^3^7,2"
^DIST(.404,.110107,40,5,13)="S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1"
^DIST(.404,.110107,40,6,0)="8^Collation^3"
^DIST(.404,.110107,40,6,1)="7"
^DIST(.404,.110107,40,6,2)="7,58^9^7,47"
^DIST(.404,.110107,40,6,3)="forwards"
^DIST(.404,.110107,40,7,0)="9^Lookup Prompt^3"
^DIST(.404,.110107,40,7,1)="8"
^DIST(.404,.110107,40,7,2)="8,18^30^8,3"
^DIST(.404,.110107,40,8,0)="5^File^3"
^DIST(.404,.110107,40,8,1)="2"
^DIST(.404,.110107,40,8,2)="4,58^20^4,52"
^DIST(.404,.110107,40,8,3)="!M"
^DIST(.404,.110107,40,8,3.1)="S Y=$$GET^DDSVAL(.11,DA(1),.51)"
^DIST(.404,.110107,40,8,4)="1^^^1"
^DIST(.404,.110107,40,8,14)="N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL(""This File number must equal the Root File number: ""_RF_""."")"
^DIST(.404,.110107,40,9,0)="4^Field^3^^FIELD"
^DIST(.404,.110107,40,9,1)="3"
^DIST(.404,.110107,40,9,2)="4,18^20^4,11"
^DIST(.404,.110107,40,9,4)="1"
^DIST(.404,.110107,40,9,13)="S:X=""""!(DDSOLD="""") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE[""F""!(DIKCTYPE[""K""):30,1:""""),"""",""I"")"
^DIST(.404,.110107,40,10,0)="6^Field Name^4"
^DIST(.404,.110107,40,10,2)="5,18^60^5,6"
^DIST(.404,.110107,40,10,30)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.404,.110107,40,11,0)="12^Transform for Display^3^^TRANSFORM FOR DISPLAY"
^DIST(.404,.110107,40,11,1)="5.5"
^DIST(.404,.110107,40,11,2)="11,25^53^11,2"
^DIST(.404,.110107,40,11,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Transform for Display."")"
^DIST(.404,.110107,40,12,0)="11^Transform for Lookup^3"
^DIST(.404,.110107,40,12,1)="5.3"
^DIST(.404,.110107,40,12,2)="10,25^53^10,3"
^DIST(.404,.110107,40,12,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Transform for Lookup."")"
^DIST(.404,.110107,40,"B",1,1)=""
^DIST(.404,.110107,40,"B",2,2)=""
^DIST(.404,.110107,40,"B",3,3)=""
^DIST(.404,.110107,40,"B",4,9)=""
^DIST(.404,.110107,40,"B",5,8)=""
^DIST(.404,.110107,40,"B",6,10)=""
^DIST(.404,.110107,40,"B",7,5)=""
^DIST(.404,.110107,40,"B",8,6)=""
^DIST(.404,.110107,40,"B",9,7)=""
^DIST(.404,.110107,40,"B",10,4)=""
^DIST(.404,.110107,40,"B",11,12)=""
^DIST(.404,.110107,40,"B",12,11)=""
^DIST(.404,.110107,40,"C"," FIELD-TYPE CROSS REFERENCE VALUE ",1)=""
^DIST(.404,.110107,40,"C","COLLATION",6)=""
^DIST(.404,.110107,40,"C","FIELD",9)=""
^DIST(.404,.110107,40,"C","FIELD NAME",10)=""
^DIST(.404,.110107,40,"C","FILE",8)=""
^DIST(.404,.110107,40,"C","LOOKUP PROMPT",7)=""
^DIST(.404,.110107,40,"C","MAXIMUM LENGTH",5)=""
^DIST(.404,.110107,40,"C","ORDER NUMBER",2)=""
^DIST(.404,.110107,40,"C","SUBSCRIPT NUMBER",3)=""
^DIST(.404,.110107,40,"C","TRANSFORM FOR DISPLAY",11)=""
^DIST(.404,.110107,40,"C","TRANSFORM FOR LOOKUP",12)=""
^DIST(.404,.110107,40,"C","TRANSFORM FOR STORAGE",4)=""
^DIST(.404,.110107,40,"D","FIELD",9)=""
^DIST(.404,.110107,40,"D","TRANSFORM FOR DISPLAY",11)=""
^DIST(.404,.110108,0)="DIKC EDIT COMPUTED CRV^.114"
^DIST(.404,.110108,40,0)="^.4044I^8^7"
^DIST(.404,.110108,40,1,0)="1^ Computed-Type Cross Reference Value ^1"
^DIST(.404,.110108,40,1,2)="^^1,21"
^DIST(.404,.110108,40,2,0)="2^Order Number^3"
^DIST(.404,.110108,40,2,1)=".01"
^DIST(.404,.110108,40,2,2)="3,21^3^3,7"
^DIST(.404,.110108,40,2,13)="S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1"
^DIST(.404,.110108,40,3,0)="3^Subscript Number^3"
^DIST(.404,.110108,40,3,1)=".5"
^DIST(.404,.110108,40,3,2)="4,21^3^4,3"
^DIST(.404,.110108,40,3,13)="S:X=""""!(DDSOLD="""") DIKCCRV=1"
^DIST(.404,.110108,40,4,0)="5^Maximum Length^3"
^DIST(.404,.110108,40,4,1)="6"
^DIST(.404,.110108,40,4,2)="5,21^3^5,5"
^DIST(.404,.110108,40,4,13)="S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1"
^DIST(.404,.110108,40,5,0)="4^Lookup Prompt^3"
^DIST(.404,.110108,40,5,1)="8"
^DIST(.404,.110108,40,5,2)="4,48^30^4,33"
^DIST(.404,.110108,40,6,0)="6^Collation^3"
^DIST(.404,.110108,40,6,1)="7"
^DIST(.404,.110108,40,6,2)="5,48^9^5,37"
^DIST(.404,.110108,40,8,0)="7^Computed Code^3"
^DIST(.404,.110108,40,8,1)="4.5"
^DIST(.404,.110108,40,8,2)="7,18^60^7,3"
^DIST(.404,.110108,40,8,4)="1"
^DIST(.404,.110108,40,8,14)="I $G(DUZ(0))'=""@"" S DDSERROR=1 D HLP^DDSUTL($C(7)_""Only programmers are allowed to edit the Computed Code."")"
^DIST(.404,.110108,40,"B",1,1)=""
^DIST(.404,.110108,40,"B",2,2)=""
^DIST(.404,.110108,40,"B",3,3)=""
^DIST(.404,.110108,40,"B",4,5)=""
^DIST(.404,.110108,40,"B",5,4)=""
^DIST(.404,.110108,40,"B",6,6)=""
^DIST(.404,.110108,40,"B",7,8)=""
^DIST(.404,.110108,40,"C"," COMPUTED-TYPE CROSS REFERENCE VALUE ",1)=""
^DIST(.404,.110108,40,"C","COLLATION",6)=""
^DIST(.404,.110108,40,"C","COMPUTED CODE",8)=""
^DIST(.404,.110108,40,"C","LOOKUP PROMPT",5)=""
^DIST(.404,.110108,40,"C","MAXIMUM LENGTH",4)=""
^DIST(.404,.110108,40,"C","ORDER NUMBER",2)=""
^DIST(.404,.110108,40,"C","SUBSCRIPT NUMBER",3)=""
^DIST(.404,.11021,0)="DIKC EDIT UI MAIN^.11"
^DIST(.404,.11021,40,0)="^.4044I^9^9"
^DIST(.404,.11021,40,1,0)="1^File^3"
^DIST(.404,.11021,40,1,1)=".01"
^DIST(.404,.11021,40,1,2)="1,15^20^1,9"
^DIST(.404,.11021,40,1,13)="D BLDLOG^DIKCFORM(DA)"
^DIST(.404,.11021,40,1,14)="D VALFILE^DIKCFORM"
^DIST(.404,.11021,40,2,0)="2^Root File^3"
^DIST(.404,.11021,40,2,1)=".51"
^DIST(.404,.11021,40,2,2)="1,60^20^1,49"
^DIST(.404,.11021,40,2,4)="^^^1"
^DIST(.404,.11021,40,3,0)="3^Index Name^3"
^DIST(.404,.11021,40,3,1)=".02"
^DIST(.404,.11021,40,3,2)="2,15^30^2,3"
^DIST(.404,.11021,40,3,13)="D NAMECHG^DIKCFORM"
^DIST(.404,.11021,40,3,14)="D NAMEVAL^DIKCFORM"
^DIST(.404,.11021,40,4,0)="4^Root Type^3"
^DIST(.404,.11021,40,4,1)=".5"
^DIST(.404,.11021,40,4,2)="2,60^16^2,49"
^DIST(.404,.11021,40,4,4)="^^^1"
^DIST(.404,.11021,40,5,0)="5^Short Description^3"
^DIST(.404,.11021,40,5,1)=".11"
^DIST(.404,.11021,40,5,2)="4,20^60^4,1"
^DIST(.404,.11021,40,5,11)="D HLP^DDSUTL(X)"
^DIST(.404,.11021,40,6,0)="6^Description (wp)^3"
^DIST(.404,.11021,40,6,1)=".1"
^DIST(.404,.11021,40,6,2)="5,20^1^5,2"
^DIST(.404,.11021,40,7,0)="7^!M^1"
^DIST(.404,.11021,40,7,.1)="N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"""":$G(@WPROOT@(1,0)),1:""""),Y=$S(Y]"""":""[""_$E(Y,1,56)_""]"",1:""(empty)"")"
^DIST(.404,.11021,40,7,2)="^^5,23"
^DIST(.404,.11021,40,8,0)="8^Set Logic^3"
^DIST(.404,.11021,40,8,1)="1.1"
^DIST(.404,.11021,40,8,2)="14,13^67^14,2"
^DIST(.404,.11021,40,8,4)="^^^2"
^DIST(.404,.11021,40,8,11)="D HLP^DDSUTL(X)"
^DIST(.404,.11021,40,9,0)="9^Kill Logic^3"
^DIST(.404,.11021,40,9,1)="2.1"
^DIST(.404,.11021,40,9,2)="15,13^67^15,1"
^DIST(.404,.11021,40,9,4)="^^^2"
^DIST(.404,.11021,40,9,11)="D HLP^DDSUTL(X)"
^DIST(.404,.11021,40,"B",1,1)=""
^DIST(.404,.11021,40,"B",2,2)=""
^DIST(.404,.11021,40,"B",3,3)=""
^DIST(.404,.11021,40,"B",4,4)=""
^DIST(.404,.11021,40,"B",5,5)=""
^DIST(.404,.11021,40,"B",6,6)=""
^DIST(.404,.11021,40,"B",7,7)=""
^DIST(.404,.11021,40,"B",8,8)=""
^DIST(.404,.11021,40,"B",9,9)=""
^DIST(.404,.11021,40,"C","DESCRIPTION (WP)",6)=""
^DIST(.404,.11021,40,"C","FILE",1)=""
^DIST(.404,.11021,40,"C","INDEX NAME",3)=""
^DIST(.404,.11021,40,"C","KILL LOGIC",9)=""
^DIST(.404,.11021,40,"C","ROOT FILE",2)=""
^DIST(.404,.11021,40,"C","ROOT TYPE",4)=""
^DIST(.404,.11021,40,"C","SET LOGIC",8)=""
^DIST(.404,.11021,40,"C","SHORT DESCRIPTION",5)=""
^DIST(.404,.11022,0)="DIKC EDIT UI HDR^.11"
^DIST(.404,.11022,40,0)="^.4044I^4^4"
^DIST(.404,.11022,40,1,0)="1^Number^4"
^DIST(.404,.11022,40,1,2)="1,9^15^1,1"
^DIST(.404,.11022,40,1,30)="S Y=DA"
^DIST(.404,.11022,40,2,0)="2^EDIT A UNIQUENESS INDEX^1"
^DIST(.404,.11022,40,2,2)="^^1,30"
^DIST(.404,.11022,40,3,0)="3^Page 1 of 1^1"
^DIST(.404,.11022,40,3,2)="^^1,69"
^DIST(.404,.11022,40,4,0)="4^-------------------------------------------------------------------------------^1"
^DIST(.404,.11022,40,4,2)="^^2,1"
^DIST(.404,.11022,40,"B",1,1)=""
^DIST(.404,.11022,40,"B",2,2)=""
^DIST(.404,.11022,40,"B",3,3)=""
^DIST(.404,.11022,40,"B",4,4)=""
^DIST(.404,.11022,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,.11022,40,"C","EDIT A UNIQUENESS INDEX",2)=""
^DIST(.404,.11022,40,"C","NUMBER",1)=""
^DIST(.404,.11022,40,"C","PAGE 1 OF 1",3)=""
^DIST(.404,.11023,0)="DIKC EDIT UI CRV^.114"
^DIST(.404,.11023,40,0)="^.4044I^4^4"
^DIST(.404,.11023,40,1,0)="1^^3^^ORDER"
^DIST(.404,.11023,40,1,1)=".01"
^DIST(.404,.11023,40,1,2)="1,3^3"
^DIST(.404,.11023,40,1,4)="^^^2"
^DIST(.404,.11023,40,1,14)="I X="""" D HLP^DDSUTL($C(7)_""Deletion not allowed."") S DDSERROR=1"
^DIST(.404,.11023,40,2,0)="2^^3^^SUBSCRIPT"
^DIST(.404,.11023,40,2,1)=".5"
^DIST(.404,.11023,40,2,2)="1,12^3"
^DIST(.404,.11023,40,2,4)="^^^1"
^DIST(.404,.11023,40,3,0)="3^^3^^LENGTH"
^DIST(.404,.11023,40,3,1)="6"
^DIST(.404,.11023,40,3,2)="1,20^3"
^DIST(.404,.11023,40,3,13)="D BLDLOG^DIKCFORM(DA(1))"
^DIST(.404,.11023,40,4,0)="4^^4^^FIELD DISPLAY"
^DIST(.404,.11023,40,4,2)="1,27^43"
^DIST(.404,.11023,40,4,30)="N DIKCFIL,DIKCFLD S DIKCFIL={FILE},DIKCFLD={FIELD} S Y=""[""_DIKCFIL_"",""_DIKCFLD_""] ""_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)"
^DIST(.404,.11023,40,"B",1,1)=""
^DIST(.404,.11023,40,"B",2,2)=""
^DIST(.404,.11023,40,"B",3,3)=""
^DIST(.404,.11023,40,"B",4,4)=""
^DIST(.404,.11023,40,"D","FIELD DISPLAY",4)=""
^DIST(.404,.11023,40,"D","LENGTH",3)=""
^DIST(.404,.11023,40,"D","ORDER",1)=""
^DIST(.404,.11023,40,"D","SUBSCRIPT",2)=""
^DIST(.404,.11024,0)="DIKC EDIT UI CRV HDR^.11"
^DIST(.404,.11024,40,0)="^.4044I^8^8"
^DIST(.404,.11024,40,1,0)="1^Order...^1"
^DIST(.404,.11024,40,1,2)="^^1,2"
^DIST(.404,.11024,40,2,0)="2^Subscr^1"
^DIST(.404,.11024,40,2,2)="^^1,12"
^DIST(.404,.11024,40,3,0)="3^Length^1"
^DIST(.404,.11024,40,3,2)="^^1,20"
^DIST(.404,.11024,40,4,0)="4^[File,Field] Field Name^1"
^DIST(.404,.11024,40,4,2)="^^1,28"
^DIST(.404,.11024,40,5,0)="5^--------^1"
^DIST(.404,.11024,40,5,2)="^^2,2"
^DIST(.404,.11024,40,6,0)="6^------^1"
^DIST(.404,.11024,40,6,2)="^^2,12"
^DIST(.404,.11024,40,7,0)="7^------^1"
^DIST(.404,.11024,40,7,2)="^^2,20"
^DIST(.404,.11024,40,8,0)="8^-----------------------^1"
^DIST(.404,.11024,40,8,2)="^^2,28"
^DIST(.404,.11024,40,"B",1,1)=""
^DIST(.404,.11024,40,"B",2,2)=""
^DIST(.404,.11024,40,"B",3,3)=""
^DIST(.404,.11024,40,"B",4,4)=""
^DIST(.404,.11024,40,"B",5,5)=""
^DIST(.404,.11024,40,"B",6,6)=""
^DIST(.404,.11024,40,"B",7,7)=""
^DIST(.404,.11024,40,"B",8,8)=""
^DIST(.404,.11024,40,"C","------",6)=""
^DIST(.404,.11024,40,"C","------",7)=""
^DIST(.404,.11024,40,"C","--------",5)=""
^DIST(.404,.11024,40,"C","-----------------------",8)=""
^DIST(.404,.11024,40,"C","LENGTH",3)=""
^DIST(.404,.11024,40,"C","ORDER...",1)=""
^DIST(.404,.11024,40,"C","SUBSCR",2)=""
^DIST(.404,.11024,40,"C","[FILE,FIELD] FIELD NAME",4)=""
^DIST(.404,.11025,0)="DIKC EDIT UI FIELD CRV^.114"
^DIST(.404,.11025,11)="K DIKCCRV"
^DIST(.404,.11025,12)="I $D(DIKCCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV"
^DIST(.404,.11025,40,0)="^.4044I^9^9"
^DIST(.404,.11025,40,1,0)="1^ Field-Type Cross Reference Value ^1"
^DIST(.404,.11025,40,1,2)="^^1,23"
^DIST(.404,.11025,40,2,0)="2^Order Number^3"
^DIST(.404,.11025,40,2,1)=".01"
^DIST(.404,.11025,40,2,2)="3,18^3^3,4"
^DIST(.404,.11025,40,2,4)="^^^1"
^DIST(.404,.11025,40,3,0)="3^Subscript Number^3"
^DIST(.404,.11025,40,3,1)=".5"
^DIST(.404,.11025,40,3,2)="3,58^3^3,40"
^DIST(.404,.11025,40,3,4)="^^^1"
^DIST(.404,.11025,40,4,0)="4^Field^3^^FIELD"
^DIST(.404,.11025,40,4,1)="3"
^DIST(.404,.11025,40,4,2)="4,18^20^4,11"
^DIST(.404,.11025,40,4,4)="^^^1"
^DIST(.404,.11025,40,5,0)="5^File^3"
^DIST(.404,.11025,40,5,1)="2"
^DIST(.404,.11025,40,5,2)="4,58^20^4,52"
^DIST(.404,.11025,40,5,4)="^^^1"
^DIST(.404,.11025,40,6,0)="6^Field Name^4"
^DIST(.404,.11025,40,6,2)="5,18^60^5,6"
^DIST(.404,.11025,40,6,30)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.404,.11025,40,7,0)="7^Maximum Length^3"
^DIST(.404,.11025,40,7,1)="6"
^DIST(.404,.11025,40,7,2)="7,18^3^7,2"
^DIST(.404,.11025,40,7,13)="S DIKCCRV=1"
^DIST(.404,.11025,40,8,0)="8^Collation^3"
^DIST(.404,.11025,40,8,1)="7"
^DIST(.404,.11025,40,8,2)="7,58^9^7,47"
^DIST(.404,.11025,40,9,0)="9^Lookup Prompt^3"
^DIST(.404,.11025,40,9,1)="8"
^DIST(.404,.11025,40,9,2)="8,18^30^8,3"
^DIST(.404,.11025,40,"B",1,1)=""
^DIST(.404,.11025,40,"B",2,2)=""
^DIST(.404,.11025,40,"B",3,3)=""
^DIST(.404,.11025,40,"B",4,4)=""
^DIST(.404,.11025,40,"B",5,5)=""
^DIST(.404,.11025,40,"B",6,6)=""
^DIST(.404,.11025,40,"B",7,7)=""
^DIST(.404,.11025,40,"B",8,8)=""
^DIST(.404,.11025,40,"B",9,9)=""
^DIST(.404,.11025,40,"C"," FIELD-TYPE CROSS REFERENCE VALUE ",1)=""
^DIST(.404,.11025,40,"C","COLLATION",8)=""
^DIST(.404,.11025,40,"C","FIELD",4)=""
^DIST(.404,.11025,40,"C","FIELD NAME",6)=""
^DIST(.404,.11025,40,"C","FILE",5)=""
^DIST(.404,.11025,40,"C","LOOKUP PROMPT",9)=""
^DIST(.404,.11025,40,"C","MAXIMUM LENGTH",7)=""
^DIST(.404,.11025,40,"C","ORDER NUMBER",2)=""
^DIST(.404,.11025,40,"C","SUBSCRIPT NUMBER",3)=""
^DIST(.404,.11025,40,"D","FIELD",4)=""
^DIST(.404,.310101,0)="DIKK EDIT HDR^.31"
^DIST(.404,.310101,40,0)="^.4044I^4^4"
^DIST(.404,.310101,40,1,0)="1^Number^4"
^DIST(.404,.310101,40,1,2)="1,9^16^1,1"
^DIST(.404,.310101,40,1,30)="S Y=DA"
^DIST(.404,.310101,40,2,0)="2^EDIT A KEY^1"
^DIST(.404,.310101,40,2,2)="^^1,36"
^DIST(.404,.310101,40,3,0)="3^Page 1 of 1^1"
^DIST(.404,.310101,40,3,2)="^^1,69"
^DIST(.404,.310101,40,4,0)="4^-------------------------------------------------------------------------------^1"
^DIST(.404,.310101,40,4,2)="^^2,1"
^DIST(.404,.310101,40,"B",1,1)=""
^DIST(.404,.310101,40,"B",2,2)=""
^DIST(.404,.310101,40,"B",3,3)=""
^DIST(.404,.310101,40,"B",4,4)=""
^DIST(.404,.310101,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,.310101,40,"C","EDIT A KEY",2)=""
^DIST(.404,.310101,40,"C","NUMBER",1)=""
^DIST(.404,.310101,40,"C","PAGE 1 OF 1",3)=""
^DIST(.404,.310102,0)="DIKK EDIT MAIN^.31"
^DIST(.404,.310102,40,0)="^.4044I^3^3"
^DIST(.404,.310102,40,1,0)="1^File^3"
^DIST(.404,.310102,40,1,1)=".01"
^DIST(.404,.310102,40,1,2)="1,9^20^1,3"
^DIST(.404,.310102,40,1,4)="^^^2"
^DIST(.404,.310102,40,2,0)="2^Name^3"
^DIST(.404,.310102,40,2,1)=".02"
^DIST(.404,.310102,40,2,2)="1,39^1^1,33"
^DIST(.404,.310102,40,2,13)="D NAMEPAC^DIKKFORM"
^DIST(.404,.310102,40,3,0)="3^Priority^3"
^DIST(.404,.310102,40,3,1)="1"
^DIST(.404,.310102,40,3,2)="1,71^9^1,61"
^DIST(.404,.310102,40,3,14)="D PRIOVAL^DIKKFORM"
^DIST(.404,.310102,40,"B",1,1)=""
^DIST(.404,.310102,40,"B",2,2)=""
^DIST(.404,.310102,40,"B",3,3)=""
^DIST(.404,.310102,40,"C","FILE",1)=""
^DIST(.404,.310102,40,"C","NAME",2)=""
^DIST(.404,.310102,40,"C","PRIORITY",3)=""
^DIST(.404,.310103,0)="DIKK EDIT FIELD HDR^.31"
^DIST(.404,.310103,40,0)="^.4044I^10^10"
^DIST(.404,.310103,40,1,0)="1^KEY FIELDS:^1"
^DIST(.404,.310103,40,1,2)="^^1,1"
^DIST(.404,.310103,40,2,0)="2^==========^1"
^DIST(.404,.310103,40,2,2)="^^2,1"
^DIST(.404,.310103,40,3,0)="3^Field^1"
^DIST(.404,.310103,40,3,2)="^^3,1"
^DIST(.404,.310103,40,4,0)="4^Seq No.^1"
^DIST(.404,.310103,40,4,2)="^^3,22"
^DIST(.404,.310103,40,5,0)="5^File^1"
^DIST(.404,.310103,40,5,2)="^^3,31"
^DIST(.404,.310103,40,6,0)="6^Field Name^1"
^DIST(.404,.310103,40,6,2)="^^3,53"
^DIST(.404,.310103,40,7,0)="7^-----^1"
^DIST(.404,.310103,40,7,2)="^^4,1"
^DIST(.404,.310103,40,8,0)="8^-------^1"
^DIST(.404,.310103,40,8,2)="^^4,22"
^DIST(.404,.310103,40,9,0)="9^----^1"
^DIST(.404,.310103,40,9,2)="^^4,31"
^DIST(.404,.310103,40,10,0)="10^----------^1"
^DIST(.404,.310103,40,10,2)="^^4,53"
^DIST(.404,.310103,40,"B",1,1)=""
^DIST(.404,.310103,40,"B",2,2)=""
^DIST(.404,.310103,40,"B",3,3)=""
^DIST(.404,.310103,40,"B",4,4)=""
^DIST(.404,.310103,40,"B",5,5)=""
^DIST(.404,.310103,40,"B",6,6)=""
^DIST(.404,.310103,40,"B",7,7)=""
^DIST(.404,.310103,40,"B",8,8)=""
^DIST(.404,.310103,40,"B",9,9)=""
^DIST(.404,.310103,40,"B",10,10)=""
^DIST(.404,.310103,40,"C","----",9)=""
^DIST(.404,.310103,40,"C","-----",7)=""
^DIST(.404,.310103,40,"C","-------",8)=""
^DIST(.404,.310103,40,"C","----------",10)=""
^DIST(.404,.310103,40,"C","==========",2)=""
^DIST(.404,.310103,40,"C","FIELD",3)=""
^DIST(.404,.310103,40,"C","FIELD NAME",6)=""
^DIST(.404,.310103,40,"C","FILE",5)=""
^DIST(.404,.310103,40,"C","KEY FIELDS:",1)=""
^DIST(.404,.310103,40,"C","SEQ NO.",4)=""
^DIST(.404,.310104,0)="DIKK EDIT FIELD^.312"
^DIST(.404,.310104,40,0)="^.4044I^4^4"
^DIST(.404,.310104,40,1,0)="1^^3"
^DIST(.404,.310104,40,1,1)=".01"
^DIST(.404,.310104,40,1,2)="1,1^20"
^DIST(.404,.310104,40,2,0)="2^^3"
^DIST(.404,.310104,40,2,1)="1"
^DIST(.404,.310104,40,2,2)="1,24^3"
^DIST(.404,.310104,40,3,0)="3^^3"
^DIST(.404,.310104,40,3,1)=".02"
^DIST(.404,.310104,40,3,2)="1,31^20"
^DIST(.404,.310104,40,3,3)="!M"
^DIST(.404,.310104,40,3,3.1)="S Y=$$GET^DDSVAL(.31,DA(1),.01)"
^DIST(.404,.310104,40,3,4)="^^^1"
^DIST(.404,.310104,40,4,0)="4^^4"
^DIST(.404,.310104,40,4,2)="1,53^25"
^DIST(.404,.310104,40,4,30)="=$P($G(^DD({FILE},{FIELD},0)),U)"
^DIST(.404,.310104,40,"B",1,1)=""
^DIST(.404,.310104,40,"B",2,2)=""
^DIST(.404,.310104,40,"B",3,3)=""
^DIST(.404,.310104,40,"B",4,4)=""
^DIST(.404,.310105,0)="DIKK EDIT UI IDENTIFIER^.11"
^DIST(.404,.310105,40,0)="^.4044I^2^2"
^DIST(.404,.310105,40,1,0)="1^^3"
^DIST(.404,.310105,40,1,1)=".02"
^DIST(.404,.310105,40,1,2)="1,44^30"
^DIST(.404,.310105,40,2,0)="2^^3"
^DIST(.404,.310105,40,2,1)=".11"
^DIST(.404,.310105,40,2,2)="2,19^61"
^DIST(.404,.310105,40,"B",1,1)=""
^DIST(.404,.310105,40,"B",2,2)=""
^DIST(.404,.310106,0)="DIKK EDIT UNIQUENESS INDEX^.31"
^DIST(.404,.310106,11)="D:$$GET^DDSVAL(.31,DA,3)="""" UNED^DDSUTL(""DETAILS"","""","""",1)"
^DIST(.404,.310106,40,0)="^.4044I^2^2"
^DIST(.404,.310106,40,1,0)="1^Uniqueness Index^3"
^DIST(.404,.310106,40,1,1)="3"
^DIST(.404,.310106,40,1,2)="1,19^20^1,1"
^DIST(.404,.310106,40,1,13)="D:X=""""!(DDSOLD="""") UNED^DDSUTL(""DETAILS"","""","""",$S(X="""":1,1:0))"
^DIST(.404,.310106,40,1,14)="D UIVAL^DIKKFORM"
^DIST(.404,.310106,40,2,0)="2^Index Details...^2^^DETAILS"
^DIST(.404,.310106,40,2,2)="3,19^1^3,2^1"
^DIST(.404,.310106,40,2,20)="F^^0:0"
^DIST(.404,.310106,40,2,21,0)="^^1^1^2970722"
^DIST(.404,.310106,40,2,21,1,0)="Press <Return> to view the properties of the Uniqueness Index."
^DIST(.404,.310106,40,"B",1,1)=""
^DIST(.404,.310106,40,"B",2,2)=""
^DIST(.404,.310106,40,"C","INDEX DETAILS...",2)=""
^DIST(.404,.310106,40,"C","UNIQUENESS INDEX",1)=""
^DIST(.404,.310106,40,"D","DETAILS",2)=""
^DIST(.404,.310107,0)="DIKK EDIT UI HDR^.11"
^DIST(.404,.310107,40,0)="^.4044I^1^1"
^DIST(.404,.310107,40,1,0)="1^ Uniqueness Index ^1"
^DIST(.404,.310107,40,1,2)="^^1,31"
^DIST(.404,.310107,40,"B",1,1)=""
^DIST(.404,.310107,40,"C"," UNIQUENESS INDEX ",1)=""
^DIST(.404,.310108,0)="DIKK EDIT UI^.11"
^DIST(.404,.310108,40,0)="^.4044I^9^9"
^DIST(.404,.310108,40,1,0)="1^File^3"
^DIST(.404,.310108,40,1,1)=".01"
^DIST(.404,.310108,40,1,2)="1,13^20^1,7"
^DIST(.404,.310108,40,1,4)="^^^1"
^DIST(.404,.310108,40,1,13)="D BLDLOG^DIKCFORM(DA)"
^DIST(.404,.310108,40,1,14)="D VALFILE^DIKCFORM"
^DIST(.404,.310108,40,2,0)="2^Root File^3"
^DIST(.404,.310108,40,2,1)=".51"
^DIST(.404,.310108,40,2,2)="1,56^20^1,45"
^DIST(.404,.310108,40,2,4)="^^^1"
^DIST(.404,.310108,40,3,0)="3^Index Name^3^^NAME"
^DIST(.404,.310108,40,3,1)=".02"
^DIST(.404,.310108,40,3,2)="2,13^30^2,1"
^DIST(.404,.310108,40,3,13)="D BLDLOG^DIKCFORM(DA)"
^DIST(.404,.310108,40,3,14)="D NAMEVAL^DIKCFORM"
^DIST(.404,.310108,40,4,0)="4^Root Type^3"
^DIST(.404,.310108,40,4,1)=".5"
^DIST(.404,.310108,40,4,2)="2,56^16^2,45"
^DIST(.404,.310108,40,4,4)="^^^1"
^DIST(.404,.310108,40,5,0)="5^Short Description^3"
^DIST(.404,.310108,40,5,1)=".11"
^DIST(.404,.310108,40,5,2)="4,20^56^4,1"
^DIST(.404,.310108,40,5,11)="D HLP^DDSUTL(X)"
^DIST(.404,.310108,40,6,0)="6^Description (wp)^3"
^DIST(.404,.310108,40,6,1)=".1"
^DIST(.404,.310108,40,6,2)="5,20^1^5,2"
^DIST(.404,.310108,40,7,0)="7^!M^1"
^DIST(.404,.310108,40,7,.1)="N WPROOT S WPROOT=$$GET^DDSVAL(.11,DA,.1),Y=$S(WPROOT]"""":$G(@WPROOT@(1,0)),1:""""),Y=$S(Y]"""":""[""_$E(Y,1,51)_""]"",1:""(empty)"")"
^DIST(.404,.310108,40,7,2)="^^5,23"
^DIST(.404,.310108,40,8,0)="8^Set Logic^3"
^DIST(.404,.310108,40,8,1)="1.1"
^DIST(.404,.310108,40,8,2)="14,13^63^14,2"
^DIST(.404,.310108,40,8,4)="^^^2"
^DIST(.404,.310108,40,8,11)="D HLP^DDSUTL(X)"
^DIST(.404,.310108,40,9,0)="9^Kill Logic^3"
^DIST(.404,.310108,40,9,1)="2.1"
^DIST(.404,.310108,40,9,2)="15,13^63^15,1"
^DIST(.404,.310108,40,9,4)="^^^2"
^DIST(.404,.310108,40,9,11)="D HLP^DDSUTL(X)"
^DIST(.404,.310108,40,"B",1,1)=""
^DIST(.404,.310108,40,"B",2,2)=""
^DIST(.404,.310108,40,"B",3,3)=""
^DIST(.404,.310108,40,"B",4,4)=""
^DIST(.404,.310108,40,"B",5,5)=""
^DIST(.404,.310108,40,"B",6,6)=""
^DIST(.404,.310108,40,"B",7,7)=""
^DIST(.404,.310108,40,"B",8,8)=""
^DIST(.404,.310108,40,"B",9,9)=""
^DIST(.404,.310108,40,"C","DESCRIPTION (WP)",6)=""
^DIST(.404,.310108,40,"C","FILE",1)=""
^DIST(.404,.310108,40,"C","INDEX NAME",3)=""
^DIST(.404,.310108,40,"C","KILL LOGIC",9)=""
^DIST(.404,.310108,40,"C","ROOT FILE",2)=""
^DIST(.404,.310108,40,"C","ROOT TYPE",4)=""
^DIST(.404,.310108,40,"C","SET LOGIC",8)=""
^DIST(.404,.310108,40,"C","SHORT DESCRIPTION",5)=""
^DIST(.404,.310108,40,"D","NAME",3)=""
^DIST(.404,.310109,0)="DIKK EDIT UI FIELD COLUMN HDR^.31"
^DIST(.404,.310109,40,0)="^.4044I^8^8"
^DIST(.404,.310109,40,1,0)="1^Order...^1"
^DIST(.404,.310109,40,1,2)="^^1,1"
^DIST(.404,.310109,40,2,0)="2^Subscr^1"
^DIST(.404,.310109,40,2,2)="^^1,11"
^DIST(.404,.310109,40,3,0)="3^Length^1"
^DIST(.404,.310109,40,3,2)="^^1,19"
^DIST(.404,.310109,40,4,0)="4^[File,Field] Field Name^1"
^DIST(.404,.310109,40,4,2)="^^1,27"
^DIST(.404,.310109,40,5,0)="5^--------^1"
^DIST(.404,.310109,40,5,2)="^^2,1"
^DIST(.404,.310109,40,6,0)="6^------^1"
^DIST(.404,.310109,40,6,2)="^^2,11"
^DIST(.404,.310109,40,7,0)="7^------^1"
^DIST(.404,.310109,40,7,2)="^^2,19"
^DIST(.404,.310109,40,8,0)="8^-----------------------^1"
^DIST(.404,.310109,40,8,2)="^^2,27"
^DIST(.404,.310109,40,"B",1,1)=""
^DIST(.404,.310109,40,"B",2,2)=""
^DIST(.404,.310109,40,"B",3,3)=""
^DIST(.404,.310109,40,"B",4,4)=""
^DIST(.404,.310109,40,"B",5,5)=""
^DIST(.404,.310109,40,"B",6,6)=""
^DIST(.404,.310109,40,"B",7,7)=""
^DIST(.404,.310109,40,"B",8,8)=""
^DIST(.404,.310109,40,"C","------",6)=""
^DIST(.404,.310109,40,"C","------",7)=""
^DIST(.404,.310109,40,"C","--------",5)=""
^DIST(.404,.310109,40,"C","-----------------------",8)=""
^DIST(.404,.310109,40,"C","LENGTH",3)=""
^DIST(.404,.310109,40,"C","ORDER...",1)=""
^DIST(.404,.310109,40,"C","SUBSCR",2)=""
^DIST(.404,.310109,40,"C","[FILE,FIELD] FIELD NAME",4)=""
^DIST(.404,.31011,0)="DIKK EDIT UI FIELD REP^.114"
^DIST(.404,.31011,40,0)="^.4044I^4^4"
^DIST(.404,.31011,40,1,0)="1^^3^^ORDER"
^DIST(.404,.31011,40,1,1)=".01"
^DIST(.404,.31011,40,1,2)="1,3^3"
^DIST(.404,.31011,40,1,4)="^^^2"
^DIST(.404,.31011,40,1,14)="I X="""" D HLP^DDSUTL($C(7)_""Deletions not allowed."") S DDSERROR=1"
^DIST(.404,.31011,40,2,0)="2^^3^^SUBSCRIPT"
^DIST(.404,.31011,40,2,1)=".5"
^DIST(.404,.31011,40,2,2)="1,12^3"
^DIST(.404,.31011,40,2,4)="^^^1"
^DIST(.404,.31011,40,3,0)="3^^3"
^DIST(.404,.31011,40,3,1)="6"
^DIST(.404,.31011,40,3,2)="1,20^3"
^DIST(.404,.31011,40,3,13)="D BLDLOG^DIKCFORM(DA(1))"
^DIST(.404,.31011,40,4,0)="4^^4"
^DIST(.404,.31011,40,4,2)="1,27^49"
^DIST(.404,.31011,40,4,30)="N DIKKFIL,DIKKFLD S DIKKFIL={FILE},DIKKFLD={FIELD} S Y=""[""_DIKKFIL_"",""_DIKKFLD_""] ""_$P($G(^DD(DIKKFIL,DIKKFLD,0)),U)"
^DIST(.404,.31011,40,"B",1,1)=""
^DIST(.404,.31011,40,"B",2,2)=""
^DIST(.404,.31011,40,"B",3,3)=""
^DIST(.404,.31011,40,"B",4,4)=""
^DIST(.404,.31011,40,"D","ORDER",1)=""
^DIST(.404,.31011,40,"D","SUBSCRIPT",2)=""
^DIST(.404,.310111,0)="DIKK EDIT UI FIELD CRV^.114"
^DIST(.404,.310111,40,0)="^.4044I^9^9"
^DIST(.404,.310111,40,1,0)="1^ Field-Type Cross Reference Value ^1"
^DIST(.404,.310111,40,1,2)="^^1,23"
^DIST(.404,.310111,40,2,0)="2^Order Number^3"
^DIST(.404,.310111,40,2,1)=".01"
^DIST(.404,.310111,40,2,2)="3,18^3^3,4"
^DIST(.404,.310111,40,2,4)="^^^1"
^DIST(.404,.310111,40,3,0)="3^Subscript Number^3"
^DIST(.404,.310111,40,3,1)=".5"
^DIST(.404,.310111,40,3,2)="3,56^3^3,38"
^DIST(.404,.310111,40,3,4)="^^^1"
^DIST(.404,.310111,40,4,0)="4^Field^3^^FIELD"
^DIST(.404,.310111,40,4,1)="3"
^DIST(.404,.310111,40,4,2)="4,18^20^4,11"
^DIST(.404,.310111,40,4,4)="^^^1"
^DIST(.404,.310111,40,5,0)="5^File^3"
^DIST(.404,.310111,40,5,1)="2"
^DIST(.404,.310111,40,5,2)="4,56^20^4,50"
^DIST(.404,.310111,40,5,4)="^^^1"
^DIST(.404,.310111,40,6,0)="6^Field Name^4"
^DIST(.404,.310111,40,6,2)="5,18^58^5,6"
^DIST(.404,.310111,40,6,30)="N DIKCFIL,DIKCFLD S Y="""",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_""..."""
^DIST(.404,.310111,40,7,0)="7^Maximum Length^3"
^DIST(.404,.310111,40,7,1)="6"
^DIST(.404,.310111,40,7,2)="7,18^3^7,2"
^DIST(.404,.310111,40,7,13)="S DIKCCRV=1"
^DIST(.404,.310111,40,8,0)="8^Collation^3"
^DIST(.404,.310111,40,8,1)="7"
^DIST(.404,.310111,40,8,2)="7,58^9^7,47"
^DIST(.404,.310111,40,9,0)="9^Lookup Prompt^3"
^DIST(.404,.310111,40,9,1)="8"
^DIST(.404,.310111,40,9,2)="8,18^30^8,3"
^DIST(.404,.310111,40,"B",1,1)=""
^DIST(.404,.310111,40,"B",2,2)=""
^DIST(.404,.310111,40,"B",3,3)=""
^DIST(.404,.310111,40,"B",4,4)=""
^DIST(.404,.310111,40,"B",5,5)=""
^DIST(.404,.310111,40,"B",6,6)=""
^DIST(.404,.310111,40,"B",7,7)=""
^DIST(.404,.310111,40,"B",8,8)=""
^DIST(.404,.310111,40,"B",9,9)=""
^DIST(.404,.310111,40,"C"," FIELD-TYPE CROSS REFERENCE VALUE ",1)=""
^DIST(.404,.310111,40,"C","COLLATION",8)=""
^DIST(.404,.310111,40,"C","FIELD",4)=""
^DIST(.404,.310111,40,"C","FIELD NAME",6)=""
^DIST(.404,.310111,40,"C","FILE",5)=""
^DIST(.404,.310111,40,"C","LOOKUP PROMPT",9)=""
^DIST(.404,.310111,40,"C","MAXIMUM LENGTH",7)=""
^DIST(.404,.310111,40,"C","ORDER NUMBER",2)=""
^DIST(.404,.310111,40,"C","SUBSCRIPT NUMBER",3)=""
^DIST(.404,.310111,40,"D","FIELD",4)=""
^DIST(.404,.400011,0)="DIBTED^.401"
^DIST(.404,.400011,40,0)="^.4044I^9^9"
^DIST(.404,.400011,40,1,0)="1^TEMPLATE NAME^3"
^DIST(.404,.400011,40,1,1)=".01"
^DIST(.404,.400011,40,1,2)="1,16^30^1,1"
^DIST(.404,.400011,40,2,0)="3^DATE LAST MODIFIED^3"
^DIST(.404,.400011,40,2,1)="2"
^DIST(.404,.400011,40,2,2)="4,28^17^4,8"
^DIST(.404,.400011,40,2,4)="^^^1"
^DIST(.404,.400011,40,3,0)="4^DATE LAST USED^3"
^DIST(.404,.400011,40,3,1)="7"
^DIST(.404,.400011,40,3,2)="5,28^11^5,12"
^DIST(.404,.400011,40,3,4)="^^^1"
^DIST(.404,.400011,40,4,0)="6^READ ACCESS^3"
^DIST(.404,.400011,40,4,1)="3"
^DIST(.404,.400011,40,4,2)="6,28^13^6,15"
^DIST(.404,.400011,40,5,0)="7^WRITE ACCESS^3"
^DIST(.404,.400011,40,5,1)="6"
^DIST(.404,.400011,40,5,2)="7,28^13^7,14"
^DIST(.404,.400011,40,6,0)="8^USER #^3"
^DIST(.404,.400011,40,6,1)="5"
^DIST(.404,.400011,40,6,2)="8,28^9^8,20"
^DIST(.404,.400011,40,7,0)="9^DESCRIPTION...^3"
^DIST(.404,.400011,40,7,1)="10"
^DIST(.404,.400011,40,7,2)="10,28^1^10,13^1"
^DIST(.404,.400011,40,8,0)="12^(Sort Fields on Next Page...)^1"
^DIST(.404,.400011,40,8,2)="^^16,20"
^DIST(.404,.400011,40,9,0)="13^PRINT TEMPLATE^3"
^DIST(.404,.400011,40,9,1)="491620"
^DIST(.404,.400011,40,9,2)="12,28^35^12,12"
^DIST(.404,.400011,40,"B",1,1)=""
^DIST(.404,.400011,40,"B",3,2)=""
^DIST(.404,.400011,40,"B",4,3)=""
^DIST(.404,.400011,40,"B",6,4)=""
^DIST(.404,.400011,40,"B",7,5)=""
^DIST(.404,.400011,40,"B",8,6)=""
^DIST(.404,.400011,40,"B",9,7)=""
^DIST(.404,.400011,40,"B",12,8)=""
^DIST(.404,.400011,40,"B",13,9)=""
^DIST(.404,.400011,40,"C","(SORT FIELDS ON NEXT PAGE...)",8)=""
^DIST(.404,.400011,40,"C","DATE LAST MODIFIED",2)=""
^DIST(.404,.400011,40,"C","DATE LAST USED",3)=""
^DIST(.404,.400011,40,"C","DESCRIPTION...",7)=""
^DIST(.404,.400011,40,"C","PRINT TEMPLATE",9)=""
^DIST(.404,.400011,40,"C","READ ACCESS",4)=""
^DIST(.404,.400011,40,"C","TEMPLATE NAME",1)=""
^DIST(.404,.400011,40,"C","USER #",6)=""
^DIST(.404,.400011,40,"C","WRITE ACCESS",5)=""
^DIST(.404,.400012,0)="DIBTED2^.401"
^DIST(.404,.400012,11)="D EDIT^DIBTED(DA)"
^DIST(.404,.400012,40,0)="^.4044I^1^1"
^DIST(.404,.400012,40,1,0)="1^ ^1"
^DIST(.404,.400012,40,1,2)="^^1,1"
^DIST(.404,.400012,40,"B",1,1)=""
^DIST(.404,.400012,40,"C"," ",1)=""
^DIST(.404,.401011,0)="DIETED^.402"
^DIST(.404,.401011,40,0)="^.4044I^9^9"
^DIST(.404,.401011,40,1,0)="1^TEMPLATE NAME^3"
^DIST(.404,.401011,40,1,1)=".01"
^DIST(.404,.401011,40,1,2)="1,16^30^1,1"
^DIST(.404,.401011,40,2,0)="3^DATE LAST MODIFIED^3"
^DIST(.404,.401011,40,2,1)="2"
^DIST(.404,.401011,40,2,2)="4,28^17^4,8"
^DIST(.404,.401011,40,2,4)="^^^1"
^DIST(.404,.401011,40,3,0)="4^DATE LAST USED^3"
^DIST(.404,.401011,40,3,1)="7"
^DIST(.404,.401011,40,3,2)="5,28^11^5,12"
^DIST(.404,.401011,40,3,4)="^^^1"
^DIST(.404,.401011,40,4,0)="5^^4"
^DIST(.404,.401011,40,4,2)="2,20^44"
^DIST(.404,.401011,40,4,30)="S Y=$G(^DIE(DA,""ROU"")),S=$S(Y]"""":""(Compiled as '""_Y_""' routine)"",1:""(Not Compiled)"")"
^DIST(.404,.401011,40,5,0)="6^READ ACCESS^3"
^DIST(.404,.401011,40,5,1)="3"
^DIST(.404,.401011,40,5,2)="6,28^13^6,15"
^DIST(.404,.401011,40,6,0)="7^WRITE ACCESS^3"
^DIST(.404,.401011,40,6,1)="6"
^DIST(.404,.401011,40,6,2)="7,28^13^7,14"
^DIST(.404,.401011,40,7,0)="8^USER #^3"
^DIST(.404,.401011,40,7,1)="5"
^DIST(.404,.401011,40,7,2)="8,28^9^8,20"
^DIST(.404,.401011,40,8,0)="9^DESCRIPTION...^3"
^DIST(.404,.401011,40,8,1)="10"
^DIST(.404,.401011,40,8,2)="10,28^1^10,13^1"
^DIST(.404,.401011,40,9,0)="12^(Edit Fields on Next Page...)^1^^EDIT FIELD"
^DIST(.404,.401011,40,9,2)="^^16,20"
^DIST(.404,.401011,40,"B",1,1)=""
^DIST(.404,.401011,40,"B",3,2)=""
^DIST(.404,.401011,40,"B",4,3)=""
^DIST(.404,.401011,40,"B",5,4)=""
^DIST(.404,.401011,40,"B",6,5)=""
^DIST(.404,.401011,40,"B",7,6)=""
^DIST(.404,.401011,40,"B",8,7)=""
^DIST(.404,.401011,40,"B",9,8)=""
^DIST(.404,.401011,40,"B",12,9)=""
^DIST(.404,.401011,40,"C","(EDIT FIELDS ON NEXT PAGE...)",9)=""
^DIST(.404,.401011,40,"C","DATE LAST MODIFIED",2)=""
^DIST(.404,.401011,40,"C","DATE LAST USED",3)=""
^DIST(.404,.401011,40,"C","DESCRIPTION...",8)=""
^DIST(.404,.401011,40,"C","READ ACCESS",5)=""
^DIST(.404,.401011,40,"C","TEMPLATE NAME",1)=""
^DIST(.404,.401011,40,"C","USER #",7)=""
^DIST(.404,.401011,40,"C","WRITE ACCESS",6)=""
^DIST(.404,.401011,40,"D","EDIT FIELD",9)=""
^DIST(.404,.401012,0)="DIETED2^.402"
^DIST(.404,.401012,40,0)="^.4044I^1^1"
^DIST(.404,.401012,40,1,0)="1^ ^1"
^DIST(.404,.401012,40,1,2)="^^1,1"
^DIST(.404,.401012,40,"B",1,1)=""
^DIST(.404,.401012,40,"C"," ",1)=""
^DIST(.404,.402011,0)="DIEDIT^1"
^DIST(.404,.402011,11)="D PRE^DIU20"
^DIST(.404,.402011,40,0)="^.4044I^18^17"
^DIST(.404,.402011,40,1,0)="1^DESCRIPTION...^3"
^DIST(.404,.402011,40,1,1)="4"
^DIST(.404,.402011,40,1,2)="3,36^1^3,21^1"
^DIST(.404,.402011,40,2,0)="2^DATA DICTIONARY ACCESS^2^^DATA DICTIONARY ACCESS"
^DIST(.404,.402011,40,2,2)="6,36^13^6,12"
^DIST(.404,.402011,40,2,3)="!M"
^DIST(.404,.402011,40,2,3.1)="S Y=$G(^DIC(DA,0,""DD""))"
^DIST(.404,.402011,40,2,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,2,20)="F"
^DIST(.404,.402011,40,3,0)="3^READ ACCESS^2^^READ ACCESS"
^DIST(.404,.402011,40,3,2)="7,36^13^7,23"
^DIST(.404,.402011,40,3,3)="!M"
^DIST(.404,.402011,40,3,3.1)="S Y=$G(^DIC(DA,0,""RD""))"
^DIST(.404,.402011,40,3,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,3,20)="F"
^DIST(.404,.402011,40,4,0)="4^WRITE ACCESS^2^^WRITE ACCESS"
^DIST(.404,.402011,40,4,2)="8,36^13^8,22"
^DIST(.404,.402011,40,4,3)="!M"
^DIST(.404,.402011,40,4,3.1)="S Y=$G(^DIC(DA,0,""WR""))"
^DIST(.404,.402011,40,4,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,4,20)="F"
^DIST(.404,.402011,40,5,0)="5^DELETE ACCESS^2^^DELETE ACCESS"
^DIST(.404,.402011,40,5,2)="9,36^13^9,21"
^DIST(.404,.402011,40,5,3)="!M"
^DIST(.404,.402011,40,5,3.1)="S Y=$G(^DIC(DA,0,""DEL""))"
^DIST(.404,.402011,40,5,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,5,20)="F"
^DIST(.404,.402011,40,6,0)="6^LAYGO ACCESS^2^^LAYGO ACCESS"
^DIST(.404,.402011,40,6,2)="10,36^13^10,22"
^DIST(.404,.402011,40,6,3)="!M"
^DIST(.404,.402011,40,6,3.1)="S Y=$G(^DIC(DA,0,""LAYGO""))"
^DIST(.404,.402011,40,6,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,6,20)="F"
^DIST(.404,.402011,40,7,0)="7^AUDIT ACCESS^2^^AUDIT ACCESS"
^DIST(.404,.402011,40,7,2)="11,36^13^11,22"
^DIST(.404,.402011,40,7,3)="!M"
^DIST(.404,.402011,40,7,3.1)="S Y=$G(^DIC(DA,0,""AUDIT""))"
^DIST(.404,.402011,40,7,14)="D ACCVAL^DIU20(X)"
^DIST(.404,.402011,40,7,20)="F"
^DIST(.404,.402011,40,8,0)="8^DD AUDIT^2^^DD AUDIT"
^DIST(.404,.402011,40,8,2)="12,36^3^12,26"
^DIST(.404,.402011,40,8,3)="!M"
^DIST(.404,.402011,40,8,3.1)="I $D(^DD(DA,0,""DDA"")) S Y=$P(""NO^YES"",U,^(""DDA"")=""Y""+1)"
^DIST(.404,.402011,40,8,20)="Y"
^DIST(.404,.402011,40,8,21,0)="^^1^1^2981023"
^DIST(.404,.402011,40,8,21,1,0)="Enter YES if you want to audit the Data Dictionary changes"
^DIST(.404,.402011,40,9,0)="9^ASK 'OK' WHEN LOOKING UP AN ENTRY^2^^ASK OK"
^DIST(.404,.402011,40,9,2)="13,36^3^13,1"
^DIST(.404,.402011,40,9,3)="!M"
^DIST(.404,.402011,40,9,3.1)="S Y=$G(^DIC(DA,0,""GL"")) I Y[""("" S Y=$G(@(Y_""0)"")),Y=$P(""YES^NO"",U,$P(Y,U,2)'[""O""+1)"
^DIST(.404,.402011,40,9,20)="Y"
^DIST(.404,.402011,40,9,21,0)="^^3^3^2981023"
^DIST(.404,.402011,40,9,21,1,0)="Answer YES to cause a lookup into this file to verify the"
^DIST(.404,.402011,40,9,21,2,0)="selection by prompting with"
^DIST(.404,.402011,40,9,21,3,0)="   '...OK?  YES//  '"
^DIST(.404,.402011,40,9.5,0)="9.5^FILE SCREEN^2^^FILE SCREEN"
^DIST(.404,.402011,40,9.5,2)="14,26^40^14,13"
^DIST(.404,.402011,40,9.5,3)="!M"
^DIST(.404,.402011,40,9.5,3.1)="S Y=$G(^DD(DA,0,""SCR""))"
^DIST(.404,.402011,40,9.5,14)="D ^DIM I '$D(X) S DDSERROR=1"
^DIST(.404,.402011,40,9.5,20)="F^UF^3:200"
^DIST(.404,.402011,40,9.5,21,0)="^^3^3^3010402"
^DIST(.404,.402011,40,9.5,21,1,0)="A line of MUMPS code can be entered here.  It should set the $T switch TRUE"
^DIST(.404,.402011,40,9.5,21,2,0)="or FALSE.  At the time of execution, 'Y' is the number of a File  entry"
^DIST(.404,.402011,40,9.5,21,3,0)="which we want to FILTER for lookup.  Thus this code is a 'permanent DIC(""S"")' for the File.  MISUSE OF THIS CAN DISENABLE THE FILE!"
^DIST(.404,.402011,40,10,0)="10^POST-SELECTION ACTION^2^^POST-SELECTION ACTION"
^DIST(.404,.402011,40,10,2)="15,26^52^15,3"
^DIST(.404,.402011,40,10,3)="!M"
^DIST(.404,.402011,40,10,3.1)="S Y=$G(^DD(DA,0,""ACT""))"
^DIST(.404,.402011,40,10,14)="D ^DIM I '$D(X) S DDSERROR=1"
^DIST(.404,.402011,40,10,20)="F^UF^3:250"
^DIST(.404,.402011,40,10,21,0)="^^3^3^3010402"
^DIST(.404,.402011,40,10,21,1,0)="If a line of MUMPS code is entered here, it will be executed"
^DIST(.404,.402011,40,10,21,2,0)="every time after a selection from the File is made."
^DIST(.404,.402011,40,10,21,3,0)="At the time of execution, 'Y' is the return value from the ""DIC"" lookup."
^DIST(.404,.402011,40,11,0)="11^LOOK-UP PROGRAM^2^^LOOK-UP PROGRAM"
^DIST(.404,.402011,40,11,2)="16,26^8^16,9"
^DIST(.404,.402011,40,11,3)="!M"
^DIST(.404,.402011,40,11,3.1)="S Y=$G(^DD(DA,0,""DIC""))"
^DIST(.404,.402011,40,11,14)="I X]"""",'$$ROUEXIST^DILIBF(X)!(X?1""DI"".E)!(X'?3U.5UN) S DDSERROR=1"
^DIST(.404,.402011,40,11,20)="F^FO"
^DIST(.404,.402011,40,11,21,0)="^^5^5^3010402"
^DIST(.404,.402011,40,11,21,1,0)="Enter a valid MUMPS routine name of from 3 to 8 characters.  This must"
^DIST(.404,.402011,40,11,21,2,0)="be entered without a leading up-arrow, and cannot begin with ""DI""."
^DIST(.404,.402011,40,11,21,3,0)="It must name a routine currently on the system."
^DIST(.404,.402011,40,11,21,4,0)="This special lookup routine will be executed instead of the standard"
^DIST(.404,.402011,40,11,21,5,0)="FileMan lookup logic, whenever a call is made to ^DIC."
^DIST(.404,.402011,40,12,0)="12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE"
^DIST(.404,.402011,40,12,2)="17,26^6^17,1"
^DIST(.404,.402011,40,12,3)="!M"
^DIST(.404,.402011,40,12,3.1)="S Y=$G(^DD(DA,0,""DIK""))"
^DIST(.404,.402011,40,12,14)="I X?1""DI"".E!(X'?3U.3NU),X]"""" S DDSERROR=1"
^DIST(.404,.402011,40,12,20)="F"
^DIST(.404,.402011,40,12,21,0)="^^11^11^2981029"
^DIST(.404,.402011,40,12,21,1,0)=""
^DIST(.404,.402011,40,12,21,2,0)="Enter a valid MUMPS routine name of from 3 to 6 characters.  This must"
^DIST(.404,.402011,40,12,21,3,0)="be entered without a leading up-arrow, and cannot begin with ""DI""."
^DIST(.404,.402011,40,12,21,4,0)=""
^DIST(.404,.402011,40,12,21,5,0)="This will become the namespace of the compiled routine(s)."
^DIST(.404,.402011,40,12,21,6,0)=""
^DIST(.404,.402011,40,12,21,7,0)="If a NEW routine name is entered, but the cross-references are not"
^DIST(.404,.402011,40,12,21,8,0)="compiled at this time, the routine name will be automatically deleted."
^DIST(.404,.402011,40,12,21,9,0)=""
^DIST(.404,.402011,40,12,21,10,0)="If the routine name is deleted, the cross-references are considered"
^DIST(.404,.402011,40,12,21,11,0)="un-compiled, and FileMan will not use the routine for re-indexing."
^DIST(.404,.402011,40,13,0)="1.8^DEVELOPER^3"
^DIST(.404,.402011,40,13,1)="20"
^DIST(.404,.402011,40,13,2)="5,36^35^5,25"
^DIST(.404,.402011,40,15,0)="1.2^Select APPLICATION GROUP^3"
^DIST(.404,.402011,40,15,1)="10"
^DIST(.404,.402011,40,15,2)="4,36^5^4,10"
^DIST(.404,.402011,40,16,0)=".1^^4^^NUMBER"
^DIST(.404,.402011,40,16,2)="3,49^18"
^DIST(.404,.402011,40,16,30)="S Y=""(File # ""_DA_"")"""
^DIST(.404,.402011,40,17,0)=".2^FILE NAME^2^^NAME"
^DIST(.404,.402011,40,17,2)="2,12^45^2,1"
^DIST(.404,.402011,40,17,3)="!M"
^DIST(.404,.402011,40,17,3.1)="S Y=$P($G(^DIC(DA,0)),U)"
^DIST(.404,.402011,40,17,13)="I X="""" S DDACT=""EX"""
^DIST(.404,.402011,40,17,20)="F^^3:45"
^DIST(.404,.402011,40,18,0)="13^^4^^FORMERLY COMPILED AS"
^DIST(.404,.402011,40,18,2)="17,37^31"
^DIST(.404,.402011,40,18,30)="S Y="""" I '$D(^DD(DA,0,""DIK"")) S Y=$G(^(""DIKOLD"")) S:Y]"""" Y=""(formerly compiled as '""_Y_""')"""
^DIST(.404,.402011,40,"B",.1,16)=""
^DIST(.404,.402011,40,"B",.2,17)=""
^DIST(.404,.402011,40,"B",1,1)=""
^DIST(.404,.402011,40,"B",1.2,15)=""
^DIST(.404,.402011,40,"B",1.8,13)=""
^DIST(.404,.402011,40,"B",2,2)=""
^DIST(.404,.402011,40,"B",3,3)=""
^DIST(.404,.402011,40,"B",4,4)=""
^DIST(.404,.402011,40,"B",5,5)=""
^DIST(.404,.402011,40,"B",6,6)=""
^DIST(.404,.402011,40,"B",7,7)=""
^DIST(.404,.402011,40,"B",8,8)=""
^DIST(.404,.402011,40,"B",9,9)=""
^DIST(.404,.402011,40,"B",9.5,9.5)=""
^DIST(.404,.402011,40,"B",10,10)=""
^DIST(.404,.402011,40,"B",11,11)=""
^DIST(.404,.402011,40,"B",12,12)=""
^DIST(.404,.402011,40,"B",13,18)=""
^DIST(.404,.402011,40,"C","APPLICATION GROUP",15)=""
^DIST(.404,.402011,40,"C","ASK 'OK' WHEN LOOKING UP AN ENTRY",9)=""
^DIST(.404,.402011,40,"C","AUDIT ACCESS",7)=""
^DIST(.404,.402011,40,"C","CROSS-REFERENCE ROUTINE",12)=""
^DIST(.404,.402011,40,"C","DATA DICTIONARY ACCESS",2)=""
^DIST(.404,.402011,40,"C","DD AUDIT",8)=""
^DIST(.404,.402011,40,"C","DELETE ACCESS",5)=""
^DIST(.404,.402011,40,"C","DESCRIPTION...",1)=""
^DIST(.404,.402011,40,"C","DEVELOPER",13)=""
^DIST(.404,.402011,40,"C","FILE NAME",17)=""
^DIST(.404,.402011,40,"C","FILE SCREEN",9.5)=""
^DIST(.404,.402011,40,"C","LAYGO ACCESS",6)=""
^DIST(.404,.402011,40,"C","LOOK-UP PROGRAM",11)=""
^DIST(.404,.402011,40,"C","POST-SELECTION ACTION",10)=""
^DIST(.404,.402011,40,"C","READ ACCESS",3)=""
^DIST(.404,.402011,40,"C","WRITE ACCESS",4)=""
^DIST(.404,.402011,40,"D","ASK OK",9)=""
^DIST(.404,.402011,40,"D","AUDIT ACCESS",7)=""
^DIST(.404,.402011,40,"D","CROSS-REFERENCE ROUTINE",12)=""
^DIST(.404,.402011,40,"D","DATA DICTIONARY ACCESS",2)=""
^DIST(.404,.402011,40,"D","DD AUDIT",8)=""
^DIST(.404,.402011,40,"D","DELETE ACCESS",5)=""
^DIST(.404,.402011,40,"D","FILE SCREEN",9.5)=""
^DIST(.404,.402011,40,"D","FORMERLY COMPILED AS",18)=""
^DIST(.404,.402011,40,"D","LAYGO ACCESS",6)=""
^DIST(.404,.402011,40,"D","LOOK-UP PROGRAM",11)=""
^DIST(.404,.402011,40,"D","NAME",17)=""
^DIST(.404,.402011,40,"D","NUMBER",16)=""
^DIST(.404,.402011,40,"D","POST-SELECTION ACTION",10)=""
^DIST(.404,.402011,40,"D","READ ACCESS",3)=""
^DIST(.404,.402011,40,"D","WRITE ACCESS",4)=""
^DIST(.404,.403011,0)="DDGF BLOCK EDIT 1^.4032"
^DIST(.404,.403011,11)="I $$GET^DDSVAL(DIE,.DA,3)=""d"" D UNED^DDSUTL(""DISABLE NAVIGATION"",""DDGF BLOCK EDIT 2"","""",1)"
^DIST(.404,.403011,40,0)="^.4044I^10^8"
^DIST(.404,.403011,40,1,0)="1^ Block Properties Stored in FORM File ^1"
^DIST(.404,.403011,40,1,2)="^^1,20^1"
^DIST(.404,.403011,40,2,0)="3^BLOCK ORDER^3"
^DIST(.404,.403011,40,2,1)="1"
^DIST(.404,.403011,40,2,2)="3,69^4^3,56"
^DIST(.404,.403011,40,2,4)="1"
^DIST(.404,.403011,40,3,0)="4^TYPE OF BLOCK^3"
^DIST(.404,.403011,40,3,1)="3"
^DIST(.404,.403011,40,3,2)="4,18^7^4,3"
^DIST(.404,.403011,40,3,4)="1"
^DIST(.404,.403011,40,3,13)="D:X=""d"" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"""") D UNED^DDSUTL(""DISABLE NAVIGATION"",""DDGF BLOCK EDIT 2"","""",$E(1,X=""d""))"
^DIST(.404,.403011,40,5,0)="6^POINTER LINK^3"
^DIST(.404,.403011,40,5,1)="4"
^DIST(.404,.403011,40,5,2)="6,18^57^6,4"
^DIST(.404,.403011,40,6,0)="2^BLOCK NAME^3"
^DIST(.404,.403011,40,6,1)=".01"
^DIST(.404,.403011,40,6,2)="3,18^30^3,6"
^DIST(.404,.403011,40,8,0)="7^PRE ACTION^3"
^DIST(.404,.403011,40,8,1)="11"
^DIST(.404,.403011,40,8,2)="7,18^57^7,6"
^DIST(.404,.403011,40,9,0)="9^POST ACTION^3"
^DIST(.404,.403011,40,9,1)="12"
^DIST(.404,.403011,40,9,2)="8,18^57^8,5"
^DIST(.404,.403011,40,10,0)="5^OTHER PARAMETERS...^2"
^DIST(.404,.403011,40,10,2)="4,69^1^4,49^1"
^DIST(.404,.403011,40,10,7)="^11"
^DIST(.404,.403011,40,10,20)="F^^0:0"
^DIST(.404,.403011,40,10,21,0)="^^1^1^2940928"
^DIST(.404,.403011,40,10,21,1,0)="Press <RET> to edit additional properties of the block"
^DIST(.404,.403011,40,"B",1,1)=""
^DIST(.404,.403011,40,"B",2,6)=""
^DIST(.404,.403011,40,"B",3,2)=""
^DIST(.404,.403011,40,"B",4,3)=""
^DIST(.404,.403011,40,"B",5,10)=""
^DIST(.404,.403011,40,"B",6,5)=""
^DIST(.404,.403011,40,"B",7,8)=""
^DIST(.404,.403011,40,"B",9,9)=""
^DIST(.404,.403011,40,"C"," BLOCK PROPERTIES STORED IN FORM FILE ",1)=""
^DIST(.404,.403011,40,"C","BLOCK NAME",6)=""
^DIST(.404,.403011,40,"C","BLOCK ORDER",2)=""
^DIST(.404,.403011,40,"C","OTHER PARAMETERS...",10)=""
^DIST(.404,.403011,40,"C","POINTER LINK",5)=""
^DIST(.404,.403011,40,"C","POST ACTION",9)=""
^DIST(.404,.403011,40,"C","PRE ACTION",8)=""
^DIST(.404,.403011,40,"C","TYPE OF BLOCK",3)=""
^DIST(.404,.403012,0)="DDGF BLOCK EDIT 2^.404"
^DIST(.404,.403012,40,0)="^.4044I^7^7"
^DIST(.404,.403012,40,1,0)="1^----------------- Block Properties Stored in BLOCK File ------------------^1"
^DIST(.404,.403012,40,1,2)="^^1,2^1"
^DIST(.404,.403012,40,2,0)="2^NAME^2"
^DIST(.404,.403012,40,2,2)="3,16^30^3,10"
^DIST(.404,.403012,40,2,3)="!M"
^DIST(.404,.403012,40,2,3.1)="S Y=DDGFBKNO"
^DIST(.404,.403012,40,2,20)="DD^^.404,.01"
^DIST(.404,.403012,40,2,23)="S DDGFBKNN=X"
^DIST(.404,.403012,40,3,0)="3^DESCRIPTION (WP)^3"
^DIST(.404,.403012,40,3,1)="15"
^DIST(.404,.403012,40,3,2)="3,69^1^3,51"
^DIST(.404,.403012,40,4,0)="4^DD NUMBER^3"
^DIST(.404,.403012,40,4,1)="1"
^DIST(.404,.403012,40,4,2)="4,16^16^4,5"
^DIST(.404,.403012,40,5,0)="5^DISABLE NAVIGATION^3"
^DIST(.404,.403012,40,5,1)="2"
^DIST(.404,.403012,40,5,2)="4,69^5^4,49"
^DIST(.404,.403012,40,6,0)="6^PRE ACTION^3"
^DIST(.404,.403012,40,6,1)="11"
^DIST(.404,.403012,40,6,2)="6,16^59^6,4"
^DIST(.404,.403012,40,7,0)="7^POST ACTION^3"
^DIST(.404,.403012,40,7,1)="12"
^DIST(.404,.403012,40,7,2)="7,16^59^7,3"
^DIST(.404,.403012,40,"B",1,1)=""
^DIST(.404,.403012,40,"B",2,2)=""
^DIST(.404,.403012,40,"B",3,3)=""
^DIST(.404,.403012,40,"B",4,4)=""
^DIST(.404,.403012,40,"B",5,5)=""
^DIST(.404,.403012,40,"B",6,6)=""
^DIST(.404,.403012,40,"B",7,7)=""
^DIST(.404,.403012,40,"C","----------------- BLOCK PROPERTIES STORED IN BLOCK FILE -------",1)=""
^DIST(.404,.403012,40,"C","DD NUMBER",4)=""
^DIST(.404,.403012,40,"C","DESCRIPTION (WP)",3)=""
^DIST(.404,.403012,40,"C","DISABLE NAVIGATION",5)=""
^DIST(.404,.403012,40,"C","NAME",2)=""
^DIST(.404,.403012,40,"C","POST ACTION",7)=""
^DIST(.404,.403012,40,"C","PRE ACTION",6)=""
^DIST(.404,.403013,0)="DDGF BLOCK EDIT OTHER^.4032"
^DIST(.404,.403013,11)="I $$GET^DDSVAL(DIE,.DA,""REPLICATION"")<2 N DDGFZ F DDGFZ=""INDEX"",""INITIAL POSITION"",""DISALLOW LAYGO"",""FIELD FOR SELECTION"",""ASK 'OK'"" D UNED^DDSUTL(DDGFZ,"""","""",1)"
^DIST(.404,.403013,40,0)="^.4044I^9^9"
^DIST(.404,.403013,40,1,0)="1^ Other Block Parameters ^1"
^DIST(.404,.403013,40,1,2)="^^1,16"
^DIST(.404,.403013,40,2,0)="2^BLOCK COORDINATE^2"
^DIST(.404,.403013,40,2,2)="3,24^7^3,6"
^DIST(.404,.403013,40,2,3)="!M"
^DIST(.404,.403013,40,2,3.1)="S Y=DDGFBKCO"
^DIST(.404,.403013,40,2,4)="1"
^DIST(.404,.403013,40,2,20)="DD^^.4032,2"
^DIST(.404,.403013,40,2,23)="S DDGFBKCN=X"
^DIST(.404,.403013,40,3,0)="3^Parameters for Repeating Blocks^1"
^DIST(.404,.403013,40,3,2)="^^5,3"
^DIST(.404,.403013,40,4,0)="4^REPLICATION^3"
^DIST(.404,.403013,40,4,1)="5"
^DIST(.404,.403013,40,4,2)="7,24^3^7,11"
^DIST(.404,.403013,40,4,13)="Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ=""INDEX"",""INITIAL POSITION"",""DISALLOW LAYGO"",""FIELD FOR SELECTION"",""ASK 'OK'"" D UNED^DDSUTL(DDGFZ,"""","""",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)"
^DIST(.404,.403013,40,5,0)="5^INDEX^3"
^DIST(.404,.403013,40,5,1)="6"
^DIST(.404,.403013,40,5,2)="8,24^30^8,17"
^DIST(.404,.403013,40,6,0)="6^INITIAL POSITION^3"
^DIST(.404,.403013,40,6,1)="7"
^DIST(.404,.403013,40,6,2)="9,24^5^9,6"
^DIST(.404,.403013,40,7,0)="7^DISALLOW LAYGO^3"
^DIST(.404,.403013,40,7,1)="8"
^DIST(.404,.403013,40,7,2)="10,24^3^10,8"
^DIST(.404,.403013,40,8,0)="8^FIELD FOR SELECTION^3"
^DIST(.404,.403013,40,8,1)="9"
^DIST(.404,.403013,40,8,2)="11,24^30^11,3"
^DIST(.404,.403013,40,9,0)="9^ASK 'OK'^3"
^DIST(.404,.403013,40,9,1)="10"
^DIST(.404,.403013,40,9,2)="12,24^3^12,14"
^DIST(.404,.403013,40,"B",1,1)=""
^DIST(.404,.403013,40,"B",2,2)=""
^DIST(.404,.403013,40,"B",3,3)=""
^DIST(.404,.403013,40,"B",4,4)=""
^DIST(.404,.403013,40,"B",5,5)=""
^DIST(.404,.403013,40,"B",6,6)=""
^DIST(.404,.403013,40,"B",7,7)=""
^DIST(.404,.403013,40,"B",8,8)=""
^DIST(.404,.403013,40,"B",9,9)=""
^DIST(.404,.403013,40,"C"," OTHER BLOCK PARAMETERS ",1)=""
^DIST(.404,.403013,40,"C","ASK 'OK'",9)=""
^DIST(.404,.403013,40,"C","BLOCK COORDINATE",2)=""
^DIST(.404,.403013,40,"C","DISALLOW LAYGO",7)=""
^DIST(.404,.403013,40,"C","FIELD FOR SELECTION",8)=""
^DIST(.404,.403013,40,"C","INDEX",5)=""
^DIST(.404,.403013,40,"C","INITIAL POSITION",6)=""
^DIST(.404,.403013,40,"C","PARAMETERS FOR REPEATING BLOCKS",3)=""
^DIST(.404,.403013,40,"C","REPLICATION",4)=""
^DIST(.404,.403021,0)="DDGF PAGE ADD^.4031"
^DIST(.404,.403021,40,0)="^.4044I^1^1"
^DIST(.404,.403021,40,1,0)="1^NEW PAGE NUMBER^2"
^DIST(.404,.403021,40,1,2)="3,20^5^3,3"
^DIST(.404,.403021,40,1,12)="S DDACT=""EX"""
^DIST(.404,.403021,40,1,20)="DD^^.4031,.01"
^DIST(.404,.403021,40,1,23)="S DDGFPNUM=X"
^DIST(.404,.403021,40,"B",1,1)=""
^DIST(.404,.403021,40,"C","NEW PAGE NUMBER",1)=""
^DIST(.404,.403022,0)="DDGF PAGE ADD ARE YOU SURE^.4031"
^DIST(.404,.403022,40,0)="^.4044I^2^2"
^DIST(.404,.403022,40,1,0)="1^!M^1"
^DIST(.404,.403022,40,1,.1)="S Y=""Are you adding Page ""_DDGFPNUM"
^DIST(.404,.403022,40,1,2)="^^3,3"
^DIST(.404,.403022,40,2,0)="2^as a new page on this form?^2"
^DIST(.404,.403022,40,2,2)="4,31^3^4,3^1"
^DIST(.404,.403022,40,2,12)="S DDACT=""EX"""
^DIST(.404,.403022,40,2,20)="Y"
^DIST(.404,.403022,40,2,23)="S DDGFANS=X"
^DIST(.404,.403022,40,"B",1,1)=""
^DIST(.404,.403022,40,"B",2,2)=""
^DIST(.404,.403022,40,"C","AS A NEW PAGE ON THIS FORM?",2)=""
^DIST(.404,.403031,0)="DDGF PAGE EDIT^.4031"
^DIST(.404,.403031,40,0)="^.4044I^16^13"
^DIST(.404,.403031,40,1,0)="1^ Page Properties ^1"
^DIST(.404,.403031,40,1,2)="^^1,27"
^DIST(.404,.403031,40,2,0)="2^PAGE NUMBER^3"
^DIST(.404,.403031,40,2,1)=".01"
^DIST(.404,.403031,40,2,2)="3,21^5^3,8"
^DIST(.404,.403031,40,4,0)="4^HEADER BLOCK^3"
^DIST(.404,.403031,40,4,1)="1"
^DIST(.404,.403031,40,4,2)="5,21^30^5,7"
^DIST(.404,.403031,40,5,0)="8^NEXT PAGE^3"
^DIST(.404,.403031,40,5,1)="3"
^DIST(.404,.403031,40,5,2)="9,21^5^9,10"
^DIST(.404,.403031,40,6,0)="9^PREVIOUS PAGE^3"
^DIST(.404,.403031,40,6,1)="4"
^DIST(.404,.403031,40,6,2)="10,21^5^10,6"
^DIST(.404,.403031,40,7,0)="12^PRE ACTION^3"
^DIST(.404,.403031,40,7,1)="11"
^DIST(.404,.403031,40,7,2)="14,21^53^14,9"
^DIST(.404,.403031,40,8,0)="13^POST ACTION^3"
^DIST(.404,.403031,40,8,1)="12"
^DIST(.404,.403031,40,8,2)="15,21^53^15,8"
^DIST(.404,.403031,40,9,0)="11^DESCRIPTION (WP)^3"
^DIST(.404,.403031,40,9,1)="15"
^DIST(.404,.403031,40,9,2)="13,21^1^13,3"
^DIST(.404,.403031,40,12,0)="10^PARENT FIELD^3"
^DIST(.404,.403031,40,12,1)="8"
^DIST(.404,.403031,40,12,2)="11,21^53^11,7"
^DIST(.404,.403031,40,13,0)="6^IS THIS A POP UP PAGE?^2"
^DIST(.404,.403031,40,13,2)="7,67^3^7,44^1"
^DIST(.404,.403031,40,13,3)="!M"
^DIST(.404,.403031,40,13,3.1)="S:$G(DDGFLRC)]"""" Y=1"
^DIST(.404,.403031,40,13,13)="N LRC,PP,NP S LRC=""LOWER RIGHT COORDINATE"",PP=""PREVIOUS PAGE"",NP=""NEXT PAGE"" D:X PUT^DDSVALF(LRC,"""","""",""15,75""):$$GET^DDSVALF(LRC)="""" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"""","""",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)"
^DIST(.404,.403031,40,13,20)="DD^^.4031,5"
^DIST(.404,.403031,40,14,0)="5^PAGE COORDINATE^2"
^DIST(.404,.403031,40,14,2)="7,21^7^7,4"
^DIST(.404,.403031,40,14,3)="!M"
^DIST(.404,.403031,40,14,3.1)="S Y=$G(DDGFTLC0)"
^DIST(.404,.403031,40,14,4)="1"
^DIST(.404,.403031,40,14,20)="DD^^.4031,2"
^DIST(.404,.403031,40,14,23)="S DDGFTLC=X"
^DIST(.404,.403031,40,15,0)="7^LOWER RIGHT COORDINATE^2"
^DIST(.404,.403031,40,15,2)="8,67^7^8,43"
^DIST(.404,.403031,40,15,3)="!M"
^DIST(.404,.403031,40,15,3.1)="S Y=$G(DDGFLRC0)"
^DIST(.404,.403031,40,15,13)="I DDSOLD=""""!(X="""") D PUT^DDSVALF(""IS THIS A POP UP PAGE?"","""","""",$S(X="""":"""",1:1),""I"") N PG,NP,PP S NP=""NEXT PAGE"",PP=""PREVIOUS PAGE"" F PG=NP,PP D UNED^DDSUTL(PG,"""","""",$E(1,X]"""")) D:X]"""" PUT^DDSVAL(DIE,.DA,PG)"
^DIST(.404,.403031,40,15,20)="DD^^.4031,6"
^DIST(.404,.403031,40,15,23)="S DDGFLRC=X"
^DIST(.404,.403031,40,16,0)="3^PAGE NAME^2"
^DIST(.404,.403031,40,16,2)="4,21^30^4,10"
^DIST(.404,.403031,40,16,3)="!M"
^DIST(.404,.403031,40,16,3.1)="S Y=$G(DDGFPNM0)"
^DIST(.404,.403031,40,16,4)="1"
^DIST(.404,.403031,40,16,20)="DD^^.4031,7"
^DIST(.404,.403031,40,16,23)="S DDGFPNM=X"
^DIST(.404,.403031,40,"B",1,1)=""
^DIST(.404,.403031,40,"B",2,2)=""
^DIST(.404,.403031,40,"B",3,16)=""
^DIST(.404,.403031,40,"B",4,4)=""
^DIST(.404,.403031,40,"B",5,14)=""
^DIST(.404,.403031,40,"B",6,13)=""
^DIST(.404,.403031,40,"B",7,15)=""
^DIST(.404,.403031,40,"B",8,5)=""
^DIST(.404,.403031,40,"B",9,6)=""
^DIST(.404,.403031,40,"B",10,12)=""
^DIST(.404,.403031,40,"B",11,9)=""
^DIST(.404,.403031,40,"B",12,7)=""
^DIST(.404,.403031,40,"B",13,8)=""
^DIST(.404,.403031,40,"C"," PAGE PROPERTIES ",1)=""
^DIST(.404,.403031,40,"C","DESCRIPTION (WP)",9)=""
^DIST(.404,.403031,40,"C","HEADER BLOCK",4)=""
^DIST(.404,.403031,40,"C","IS THIS A POP UP PAGE?",13)=""
^DIST(.404,.403031,40,"C","LOWER RIGHT COORDINATE",15)=""
^DIST(.404,.403031,40,"C","NEXT PAGE",5)=""
^DIST(.404,.403031,40,"C","PAGE COORDINATE",14)=""
^DIST(.404,.403031,40,"C","PAGE NAME",16)=""
^DIST(.404,.403031,40,"C","PAGE NUMBER",2)=""
^DIST(.404,.403031,40,"C","PARENT FIELD",12)=""
^DIST(.404,.403031,40,"C","POST ACTION",8)=""
^DIST(.404,.403031,40,"C","PRE ACTION",7)=""
^DIST(.404,.403031,40,"C","PREVIOUS PAGE",6)=""
^DIST(.404,.403041,0)="DDGF PAGE SELECT^.4031"
^DIST(.404,.403041,40,0)="^.4044I^1^1"
^DIST(.404,.403041,40,1,0)="1^Select PAGE^2"
^DIST(.404,.403041,40,1,2)="1,14^30^1,1"
^DIST(.404,.403041,40,1,3)="!M"
^DIST(.404,.403041,40,1,3.1)="S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)"
^DIST(.404,.403041,40,1,12)="S DDACT=""EX"""
^DIST(.404,.403041,40,1,20)="P^^DIST(.403,+DDGFFM,40,:QEAMZF"
^DIST(.404,.403041,40,1,23)="S DDGFPAGE=X"
^DIST(.404,.403041,40,"B",1,1)=""
^DIST(.404,.403041,40,"C","PAGE",1)=""
^DIST(.404,.403051,0)="DDGF FORM EDIT^.403"
^DIST(.404,.403051,40,0)="^.4044I^11^11"
^DIST(.404,.403051,40,1,0)="1^ Form Properties ^1"
^DIST(.404,.403051,40,1,2)="^^1,29"
^DIST(.404,.403051,40,2,0)="2^NAME^3"
^DIST(.404,.403051,40,2,1)=".01"
^DIST(.404,.403051,40,2,2)="3,20^30^3,14"
^DIST(.404,.403051,40,2,4)="1"
^DIST(.404,.403051,40,3,0)="4^PRE ACTION^3"
^DIST(.404,.403051,40,3,1)="11"
^DIST(.404,.403051,40,3,2)="6,20^54^6,8"
^DIST(.404,.403051,40,4,0)="5^POST ACTION^3"
^DIST(.404,.403051,40,4,1)="12"
^DIST(.404,.403051,40,4,2)="7,20^54^7,7"
^DIST(.404,.403051,40,5,0)="8^DESCRIPTION^3"
^DIST(.404,.403051,40,5,1)="15"
^DIST(.404,.403051,40,5,2)="11,20^1^11,7"
^DIST(.404,.403051,40,6,0)="6^DATA VALIDATION^3"
^DIST(.404,.403051,40,6,1)="20"
^DIST(.404,.403051,40,6,2)="8,20^54^8,3"
^DIST(.404,.403051,40,7,0)="9^RECORD SELECTION PAGE^3"
^DIST(.404,.403051,40,7,1)="21"
^DIST(.404,.403051,40,7,2)="11,69^5^11,46"
^DIST(.404,.403051,40,8,0)="7^POST SAVE^3"
^DIST(.404,.403051,40,8,1)="14"
^DIST(.404,.403051,40,8,2)="9,20^54^9,9"
^DIST(.404,.403051,40,9,0)="3^TITLE^3"
^DIST(.404,.403051,40,9,1)="6"
^DIST(.404,.403051,40,9,2)="4,20^50^4,13"
^DIST(.404,.403051,40,10,0)="10^READ ACCESS^3"
^DIST(.404,.403051,40,10,1)="1"
^DIST(.404,.403051,40,10,2)="13,20^15^13,7"
^DIST(.404,.403051,40,11,0)="11^WRITE ACCESS^3"
^DIST(.404,.403051,40,11,1)="2"
^DIST(.404,.403051,40,11,2)="14,20^15^14,6"
^DIST(.404,.403051,40,"B",1,1)=""
^DIST(.404,.403051,40,"B",2,2)=""
^DIST(.404,.403051,40,"B",3,9)=""
^DIST(.404,.403051,40,"B",4,3)=""
^DIST(.404,.403051,40,"B",5,4)=""
^DIST(.404,.403051,40,"B",6,6)=""
^DIST(.404,.403051,40,"B",7,8)=""
^DIST(.404,.403051,40,"B",8,5)=""
^DIST(.404,.403051,40,"B",9,7)=""
^DIST(.404,.403051,40,"B",10,10)=""
^DIST(.404,.403051,40,"B",11,11)=""
^DIST(.404,.403051,40,"C"," FORM PROPERTIES ",1)=""
^DIST(.404,.403051,40,"C","DATA VALIDATION",6)=""
^DIST(.404,.403051,40,"C","DESCRIPTION",5)=""
^DIST(.404,.403051,40,"C","NAME",2)=""
^DIST(.404,.403051,40,"C","POST ACTION",4)=""
^DIST(.404,.403051,40,"C","POST SAVE",8)=""
^DIST(.404,.403051,40,"C","PRE ACTION",3)=""
^DIST(.404,.403051,40,"C","READ ACCESS",10)=""
^DIST(.404,.403051,40,"C","RECORD SELECTION PAGE",7)=""
^DIST(.404,.403051,40,"C","TITLE",9)=""
^DIST(.404,.403051,40,"C","WRITE ACCESS",11)=""
^DIST(.404,.403061,0)="DDGF HEADER BLOCK EDIT^.4031"
^DIST(.404,.403061,40,0)="^.4044I^2^2"
^DIST(.404,.403061,40,1,0)="2^HEADER BLOCK^3"
^DIST(.404,.403061,40,1,1)="1"
^DIST(.404,.403061,40,1,2)="3,17^30^3,3"
^DIST(.404,.403061,40,1,13)="D:X]"""" PUT^DDSVALF(""NAME"",""DDGF BLOCK EDIT 2"","""",DDSEXT,""I"")"
^DIST(.404,.403061,40,1,14)="D HBVAL^DDGFU"
^DIST(.404,.403061,40,2,0)="1^ Edit Header Block Parameters ^1"
^DIST(.404,.403061,40,2,2)="^^1,24"
^DIST(.404,.403061,40,"B",1,2)=""
^DIST(.404,.403061,40,"B",2,1)=""
^DIST(.404,.403061,40,"C"," EDIT HEADER BLOCK PARAMETERS ",2)=""
^DIST(.404,.403061,40,"C","HEADER BLOCK",1)=""
^DIST(.404,.404011,0)="DDGF FIELD ADD"
^DIST(.404,.404011,40,0)="^.4044I^3^3"
^DIST(.404,.404011,40,1,0)="1^Select BLOCK^2"
^DIST(.404,.404011,40,1,2)="1,15^30^1,1"
^DIST(.404,.404011,40,1,3)="!M"
^DIST(.404,.404011,40,1,3.1)="N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X="" "",DIC=""^DIST(.403,""_DA(2)_"",""""40"""",""_DA(1)_"",""""40"""","",DIC(0)=""M"" D ^DIC S Y=$S(Y=-1:"""",1:""`""_+Y) I Y="""",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:""`""_Y,1:"""")"
^DIST(.404,.404011,40,1,13)="I X]"""" D PUT^DDSVALF(""FIELD ORDER"","""","""",$O(^DIST(.404,X,40,""B"",""""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_"",""_+DDGFPG_"",""_+DDGFFM_"","",DUZ),RECALL^DILFD(.404,X_"","",DUZ)"
^DIST(.404,.404011,40,1,20)="P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ"
^DIST(.404,.404011,40,1,23)="S DDGFBLCK=X"
^DIST(.404,.404011,40,2,0)="2^FIELD ORDER^2"
^DIST(.404,.404011,40,2,2)="2,15^4^2,2"
^DIST(.404,.404011,40,2,3)="!M"
^DIST(.404,.404011,40,2,3.1)="N V S V=$$GET^DDSVALF(""BLOCK"") I V]"""" S Y=$O(^DIST(.404,V,40,""B"",""""),-1)+1\1"
^DIST(.404,.404011,40,2,20)="N^^0:99.9:1"
^DIST(.404,.404011,40,2,21,0)="^^1^1^2940630"
^DIST(.404,.404011,40,2,21,1,0)="This must be a number not already used"
^DIST(.404,.404011,40,2,22)="N V S V=$$GET^DDSVALF(""BLOCK"") I V]"""",$O(^DIST(.404,V,40,""B"",X,""""))]"""" K X"
^DIST(.404,.404011,40,2,23)="S DDGFFORD=X"
^DIST(.404,.404011,40,3,0)="3^FIELD TYPE^2"
^DIST(.404,.404011,40,3,2)="3,15^30^3,3"
^DIST(.404,.404011,40,3,3)="DATA DICTIONARY"
^DIST(.404,.404011,40,3,20)="DD^^.4044,2"
^DIST(.404,.404011,40,3,23)="S DDGFTYPE=X"
^DIST(.404,.404011,40,"B",1,1)=""
^DIST(.404,.404011,40,"B",2,2)=""
^DIST(.404,.404011,40,"B",3,3)=""
^DIST(.404,.404011,40,"C","BLOCK",1)=""
^DIST(.404,.404011,40,"C","FIELD ORDER",2)=""
^DIST(.404,.404011,40,"C","FIELD TYPE",3)=""
^DIST(.404,.404021,0)="DDGF FIELD CAPTION ONLY^.4044"
^DIST(.404,.404021,40,0)="^.4044I^9^6"
^DIST(.404,.404021,40,1,0)="1^ Caption-Only Field Properties ^1"
^DIST(.404,.404021,40,1,2)="^^1,22"
^DIST(.404,.404021,40,2,0)="2^FIELD ORDER^3"
^DIST(.404,.404021,40,2,1)=".01"
^DIST(.404,.404021,40,2,2)="3,21^4^3,8"
^DIST(.404,.404021,40,6,0)="3^CAPTION^2"
^DIST(.404,.404021,40,6,2)="4,21^50^4,12"
^DIST(.404,.404021,40,6,3)="!M"
^DIST(.404,.404021,40,6,3.1)="S Y=DDGFCAP0"
^DIST(.404,.404021,40,6,4)="1"
^DIST(.404,.404021,40,6,13)="D:DDSOLD=""!M"" PUT^DDSVAL(.4044,.DA,1.1,"""")"
^DIST(.404,.404021,40,6,20)="DD^^.4044,1"
^DIST(.404,.404021,40,6,23)="S DDGFCAP=X"
^DIST(.404,.404021,40,7,0)="5^EXECUTABLE CAPTION^3"
^DIST(.404,.404021,40,7,1)="1.1"
^DIST(.404,.404021,40,7,2)="7,21^50^7,1"
^DIST(.404,.404021,40,7,13)="D PUT^DDSVALF(""CAPTION"","""","""",$S(X="""":"""",1:""!M""))"
^DIST(.404,.404021,40,8,0)="6^CAPTION COORDINATE^2"
^DIST(.404,.404021,40,8,2)="8,21^7^8,1"
^DIST(.404,.404021,40,8,3)="!M"
^DIST(.404,.404021,40,8,3.1)="S Y=DDGFCC0"
^DIST(.404,.404021,40,8,4)="1"
^DIST(.404,.404021,40,8,20)="DD^^.4044,5.1"
^DIST(.404,.404021,40,8,23)="S DDGFCC=X"
^DIST(.404,.404021,40,9,0)="4^UNIQUE NAME^3"
^DIST(.404,.404021,40,9,1)="3.1"
^DIST(.404,.404021,40,9,2)="5,21^50^5,8"
^DIST(.404,.404021,40,"B",1,1)=""
^DIST(.404,.404021,40,"B",2,2)=""
^DIST(.404,.404021,40,"B",3,6)=""
^DIST(.404,.404021,40,"B",4,9)=""
^DIST(.404,.404021,40,"B",5,7)=""
^DIST(.404,.404021,40,"B",6,8)=""
^DIST(.404,.404021,40,"C"," CAPTION-ONLY FIELD PROPERTIES ",1)=""
^DIST(.404,.404021,40,"C","CAPTION",6)=""
^DIST(.404,.404021,40,"C","CAPTION COORDINATE",8)=""
^DIST(.404,.404021,40,"C","EXECUTABLE CAPTION",7)=""
^DIST(.404,.404021,40,"C","FIELD ORDER",2)=""
^DIST(.404,.404021,40,"C","UNIQUE NAME",9)=""
^DIST(.404,.404031,0)="DDGF FIELD DD^.4044"
^DIST(.404,.404031,40,0)="^.4044I^17^14"
^DIST(.404,.404031,40,1,0)="1^ Data Dictionary Field Properties ^1"
^DIST(.404,.404031,40,1,2)="^^1,22"
^DIST(.404,.404031,40,2,0)="2^FIELD ORDER^3"
^DIST(.404,.404031,40,2,1)=".01"
^DIST(.404,.404031,40,2,2)="3,26^4^3,13"
^DIST(.404,.404031,40,3,0)="3^FIELD^3"
^DIST(.404,.404031,40,3,1)="4"
^DIST(.404,.404031,40,3,2)="3,66^10^3,59"
^DIST(.404,.404031,40,3,4)="1"
^DIST(.404,.404031,40,3,13)="D POSTCH1^DDGFU"
^DIST(.404,.404031,40,5,0)="8^DEFAULT^3"
^DIST(.404,.404031,40,5,1)="6"
^DIST(.404,.404031,40,5,2)="8,26^50^8,17"
^DIST(.404,.404031,40,5,13)="D:DDSOLD=""!M"" PUT^DDSVAL(.4044,.DA,6.01,"""")"
^DIST(.404,.404031,40,7,0)="11^BRANCHING LOGIC^3"
^DIST(.404,.404031,40,7,1)="10"
^DIST(.404,.404031,40,7,2)="12,26^50^12,9"
^DIST(.404,.404031,40,8,0)="12^PRE ACTION^3"
^DIST(.404,.404031,40,8,1)="11"
^DIST(.404,.404031,40,8,2)="13,26^50^13,14"
^DIST(.404,.404031,40,9,0)="13^POST ACTION^3"
^DIST(.404,.404031,40,9,1)="12"
^DIST(.404,.404031,40,9,2)="14,26^50^14,13"
^DIST(.404,.404031,40,10,0)="14^POST ACTION ON CHANGE^3"
^DIST(.404,.404031,40,10,1)="13"
^DIST(.404,.404031,40,10,2)="15,26^50^15,3"
^DIST(.404,.404031,40,12,0)="10^EXECUTABLE DEFAULT^3"
^DIST(.404,.404031,40,12,1)="6.01"
^DIST(.404,.404031,40,12,2)="10,26^50^10,6"
^DIST(.404,.404031,40,12,13)="D PUT^DDSVAL(.4044,.DA,6,$S(X="""":"""",1:""!M""))"
^DIST(.404,.404031,40,13,0)="4^OTHER PARAMETERS...^2"
^DIST(.404,.404031,40,13,2)="4,26^1^4,6^1"
^DIST(.404,.404031,40,13,10)="N DDGFFLD,DDGFSUB S DDSSTACK=11,DDGFFLD=$$GET^DDSVAL(.4044,.DA,4) I DDGFFLD S DDGFSUB=+$P($G(^DD(DDGFDD,DDGFFLD,0)),U,2) S:DDGFSUB DDSSTACK=$S(DDGFSUB_$P($G(^DD(DDGFSUB,.01,0)),U,2)'[""W"":21,1:31)"
^DIST(.404,.404031,40,13,20)="F^^0:0"
^DIST(.404,.404031,40,13,21,0)="^^1^1^2940928"
^DIST(.404,.404031,40,13,21,1,0)="Press <RET> to edit additional properties of this Data Dictionary field"
^DIST(.404,.404031,40,14,0)="7^CAPTION^2"
^DIST(.404,.404031,40,14,2)="7,26^50^7,17"
^DIST(.404,.404031,40,14,3)="!M"
^DIST(.404,.404031,40,14,3.1)="S Y=DDGFCAP0"
^DIST(.404,.404031,40,14,13)="D DDCAP^DDGFU"
^DIST(.404,.404031,40,14,20)="DD^^.4044,1"
^DIST(.404,.404031,40,14,23)="S DDGFCAP=X"
^DIST(.404,.404031,40,15,0)="5^SUPPRESS COLON AFTER CAPTION?^2"
^DIST(.404,.404031,40,15,2)="4,66^3^4,36^1"
^DIST(.404,.404031,40,15,3)="!M"
^DIST(.404,.404031,40,15,3.1)="S Y=DDGFSUP0"
^DIST(.404,.404031,40,15,20)="DD^^.4044,5.2"
^DIST(.404,.404031,40,15,23)="S DDGFSUP=X"
^DIST(.404,.404031,40,16,0)="6^UNIQUE NAME^3"
^DIST(.404,.404031,40,16,1)="3.1"
^DIST(.404,.404031,40,16,2)="5,26^50^5,13"
^DIST(.404,.404031,40,17,0)="9^EXECUTABLE CAPTION^3"
^DIST(.404,.404031,40,17,1)="1.1"
^DIST(.404,.404031,40,17,2)="9,26^50^9,6"
^DIST(.404,.404031,40,17,13)="D PUT^DDSVALF(""CAPTION"","""","""",$S(X="""":"""",1:""!M""),""I"")"
^DIST(.404,.404031,40,"B",1,1)=""
^DIST(.404,.404031,40,"B",2,2)=""
^DIST(.404,.404031,40,"B",3,3)=""
^DIST(.404,.404031,40,"B",4,13)=""
^DIST(.404,.404031,40,"B",5,15)=""
^DIST(.404,.404031,40,"B",6,16)=""
^DIST(.404,.404031,40,"B",7,14)=""
^DIST(.404,.404031,40,"B",8,5)=""
^DIST(.404,.404031,40,"B",9,17)=""
^DIST(.404,.404031,40,"B",10,12)=""
^DIST(.404,.404031,40,"B",11,7)=""
^DIST(.404,.404031,40,"B",12,8)=""
^DIST(.404,.404031,40,"B",13,9)=""
^DIST(.404,.404031,40,"B",14,10)=""
^DIST(.404,.404031,40,"C"," DATA DICTIONARY FIELD PROPERTIES ",1)=""
^DIST(.404,.404031,40,"C","BRANCHING LOGIC",7)=""
^DIST(.404,.404031,40,"C","CAPTION",14)=""
^DIST(.404,.404031,40,"C","DEFAULT",5)=""
^DIST(.404,.404031,40,"C","EXECUTABLE CAPTION",17)=""
^DIST(.404,.404031,40,"C","EXECUTABLE DEFAULT",12)=""
^DIST(.404,.404031,40,"C","FIELD",3)=""
^DIST(.404,.404031,40,"C","FIELD ORDER",2)=""
^DIST(.404,.404031,40,"C","OTHER PARAMETERS...",13)=""
^DIST(.404,.404031,40,"C","POST ACTION",9)=""
^DIST(.404,.404031,40,"C","POST ACTION ON CHANGE",10)=""
^DIST(.404,.404031,40,"C","PRE ACTION",8)=""
^DIST(.404,.404031,40,"C","SUPPRESS COLON AFTER CAPTION?",15)=""
^DIST(.404,.404031,40,"C","UNIQUE NAME",16)=""
^DIST(.404,.404032,0)="DDGF FIELD DD OTHER SINGLE^.4044"
^DIST(.404,.404032,40,0)="^.4044I^13^10"
^DIST(.404,.404032,40,1,0)="1^ Other Parameters ^1"
^DIST(.404,.404032,40,1,2)="^^1,27"
^DIST(.404,.404032,40,2,0)="2^REQUIRED^3"
^DIST(.404,.404032,40,2,1)="6.1"
^DIST(.404,.404032,40,2,2)="3,23^3^3,13"
^DIST(.404,.404032,40,3,0)="4^DISABLE EDITING^3"
^DIST(.404,.404032,40,3,1)="6.4"
^DIST(.404,.404032,40,3,2)="4,23^9^4,6"
^DIST(.404,.404032,40,7,0)="7^DATA LENGTH^2"
^DIST(.404,.404032,40,7,2)="7,23^3^7,10"
^DIST(.404,.404032,40,7,3)="!M"
^DIST(.404,.404032,40,7,3.1)="S Y=$G(DDGFDL0)"
^DIST(.404,.404032,40,7,4)="1"
^DIST(.404,.404032,40,7,20)="DD^^.4044,4.2"
^DIST(.404,.404032,40,7,23)="S DDGFDL=X"
^DIST(.404,.404032,40,8,0)="8^CAPTION COORDINATE^2"
^DIST(.404,.404032,40,8,2)="8,23^7^8,3"
^DIST(.404,.404032,40,8,3)="!M"
^DIST(.404,.404032,40,8,3.1)="S Y=$G(DDGFCC0)"
^DIST(.404,.404032,40,8,20)="DD^^.4044,5.1"
^DIST(.404,.404032,40,8,23)="S DDGFCC=X"
^DIST(.404,.404032,40,9,0)="9^DATA COORDINATE^2"
^DIST(.404,.404032,40,9,2)="9,23^7^9,6"
^DIST(.404,.404032,40,9,3)="!M"
^DIST(.404,.404032,40,9,3.1)="S Y=$G(DDGFDC0)"
^DIST(.404,.404032,40,9,4)="1"
^DIST(.404,.404032,40,9,20)="DD^^.4044,4.1"
^DIST(.404,.404032,40,9,23)="S DDGFDC=X"
^DIST(.404,.404032,40,10,0)="10^DATA VALIDATION^3"
^DIST(.404,.404032,40,10,1)="14"
^DIST(.404,.404032,40,10,2)="11,23^49^11,6"
^DIST(.404,.404032,40,11,0)="5^RIGHT JUSTIFY^3"
^DIST(.404,.404032,40,11,1)="6.3"
^DIST(.404,.404032,40,11,2)="4,52^3^4,37"
^DIST(.404,.404032,40,12,0)="6^SUB PAGE LINK^3"
^DIST(.404,.404032,40,12,1)="8"
^DIST(.404,.404032,40,12,2)="5,23^5^5,8"
^DIST(.404,.404032,40,13,0)="3^DISPLAY GROUP^3"
^DIST(.404,.404032,40,13,1)="3"
^DIST(.404,.404032,40,13,2)="3,52^20^3,37"
^DIST(.404,.404032,40,"B",1,1)=""
^DIST(.404,.404032,40,"B",2,2)=""
^DIST(.404,.404032,40,"B",3,13)=""
^DIST(.404,.404032,40,"B",4,3)=""
^DIST(.404,.404032,40,"B",5,11)=""
^DIST(.404,.404032,40,"B",6,12)=""
^DIST(.404,.404032,40,"B",7,7)=""
^DIST(.404,.404032,40,"B",8,8)=""
^DIST(.404,.404032,40,"B",9,9)=""
^DIST(.404,.404032,40,"B",10,10)=""
^DIST(.404,.404032,40,"C"," OTHER PARAMETERS ",1)=""
^DIST(.404,.404032,40,"C","CAPTION COORDINATE",8)=""
^DIST(.404,.404032,40,"C","DATA COORDINATE",9)=""
^DIST(.404,.404032,40,"C","DATA LENGTH",7)=""
^DIST(.404,.404032,40,"C","DATA VALIDATION",10)=""
^DIST(.404,.404032,40,"C","DISABLE EDITING",3)=""
^DIST(.404,.404032,40,"C","DISPLAY GROUP",13)=""
^DIST(.404,.404032,40,"C","REQUIRED",2)=""
^DIST(.404,.404032,40,"C","RIGHT JUSTIFY",11)=""
^DIST(.404,.404032,40,"C","SUB PAGE LINK",12)=""
^DIST(.404,.404033,0)="DDGF FIELD DD OTHER MULTIPLE^.4044"
^DIST(.404,.404033,40,0)="^.4044I^12^9"
^DIST(.404,.404033,40,1,0)="1^ Other Parameters ^1"
^DIST(.404,.404033,40,1,2)="^^1,14^1"
^DIST(.404,.404033,40,2,0)="2^SUB PAGE LINK^3"
^DIST(.404,.404033,40,2,1)="8"
^DIST(.404,.404033,40,2,2)="3,23^3^3,8"
^DIST(.404,.404033,40,3,0)="3^DISALLOW LAYGO^3"
^DIST(.404,.404033,40,3,1)="6.5"
^DIST(.404,.404033,40,3,2)="4,23^3^4,7"
^DIST(.404,.404033,40,7,0)="7^CAPTION COORDINATE^2"
^DIST(.404,.404033,40,7,2)="10,23^7^10,3"
^DIST(.404,.404033,40,7,3)="!M"
^DIST(.404,.404033,40,7,3.1)="S Y=$G(DDGFCC0)"
^DIST(.404,.404033,40,7,20)="DD^^.4044,5.1"
^DIST(.404,.404033,40,7,23)="S DDGFCC=X"
^DIST(.404,.404033,40,8,0)="8^DATA COORDINATE^2"
^DIST(.404,.404033,40,8,2)="11,23^7^11,6"
^DIST(.404,.404033,40,8,3)="!M"
^DIST(.404,.404033,40,8,3.1)="S Y=$G(DDGFDC0)"
^DIST(.404,.404033,40,8,4)="1"
^DIST(.404,.404033,40,8,20)="DD^^.4044,4.1"
^DIST(.404,.404033,40,8,23)="S DDGFDC=X"
^DIST(.404,.404033,40,9,0)="6^DATA LENGTH^2"
^DIST(.404,.404033,40,9,2)="9,23^3^9,10"
^DIST(.404,.404033,40,9,3)="!M"
^DIST(.404,.404033,40,9,3.1)="S Y=$G(DDGFDL0)"
^DIST(.404,.404033,40,9,4)="1"
^DIST(.404,.404033,40,9,20)="DD^^.4044,4.2"
^DIST(.404,.404033,40,9,23)="S DDGFDL=X"
^DIST(.404,.404033,40,10,0)="4^RIGHT JUSTIFY^3"
^DIST(.404,.404033,40,10,1)="6.3"
^DIST(.404,.404033,40,10,2)="6,23^3^6,8"
^DIST(.404,.404033,40,11,0)="5^DISPLAY GROUP^3"
^DIST(.404,.404033,40,11,1)="3"
^DIST(.404,.404033,40,11,2)="7,23^20^7,8"
^DIST(.404,.404033,40,12,0)="4^ASK 'OK'^3"
^DIST(.404,.404033,40,12,1)="6.6"
^DIST(.404,.404033,40,12,2)="5,23^3^5,13"
^DIST(.404,.404033,40,"B",1,1)=""
^DIST(.404,.404033,40,"B",2,2)=""
^DIST(.404,.404033,40,"B",3,3)=""
^DIST(.404,.404033,40,"B",4,10)=""
^DIST(.404,.404033,40,"B",4,12)=""
^DIST(.404,.404033,40,"B",5,11)=""
^DIST(.404,.404033,40,"B",6,9)=""
^DIST(.404,.404033,40,"B",7,7)=""
^DIST(.404,.404033,40,"B",8,8)=""
^DIST(.404,.404033,40,"C"," OTHER PARAMETERS ",1)=""
^DIST(.404,.404033,40,"C","ASK 'OK'",12)=""
^DIST(.404,.404033,40,"C","CAPTION COORDINATE",7)=""
^DIST(.404,.404033,40,"C","DATA COORDINATE",8)=""
^DIST(.404,.404033,40,"C","DATA LENGTH",9)=""
^DIST(.404,.404033,40,"C","DISALLOW LAYGO",3)=""
^DIST(.404,.404033,40,"C","DISPLAY GROUP",11)=""
^DIST(.404,.404033,40,"C","RIGHT JUSTIFY",10)=""
^DIST(.404,.404033,40,"C","SUB PAGE LINK",2)=""
^DIST(.404,.404034,0)="DDGF FIELD DD OTHER WP^.4044"
^DIST(.404,.404034,40,0)="^.4044I^10^7"
^DIST(.404,.404034,40,1,0)="1^ Other Parameters ^1"
^DIST(.404,.404034,40,1,2)="^^1,14^1"
^DIST(.404,.404034,40,2,0)="2^REQUIRED^3"
^DIST(.404,.404034,40,2,1)="6.1"
^DIST(.404,.404034,40,2,2)="3,23^3^3,13"
^DIST(.404,.404034,40,3,0)="3^DISABLE EDITING^3"
^DIST(.404,.404034,40,3,1)="6.4"
^DIST(.404,.404034,40,3,2)="4,23^3^4,6"
^DIST(.404,.404034,40,3,14)="I X=2 D HLP^DDSUTL(""Word processing fields are always reachable.  To make the field uneditable, enter 'YES'."") S DDSERROR=1"
^DIST(.404,.404034,40,7,0)="4^DISPLAY GROUP^3"
^DIST(.404,.404034,40,7,1)="3"
^DIST(.404,.404034,40,7,2)="5,23^20^5,8"
^DIST(.404,.404034,40,8,0)="5^DATA LENGTH^2"
^DIST(.404,.404034,40,8,2)="7,23^3^7,10"
^DIST(.404,.404034,40,8,3)="!M"
^DIST(.404,.404034,40,8,3.1)="S Y=$G(DDGFDL0)"
^DIST(.404,.404034,40,8,4)="1"
^DIST(.404,.404034,40,8,20)="DD^^.4044,4.2"
^DIST(.404,.404034,40,8,23)="S DDGFDL=X"
^DIST(.404,.404034,40,9,0)="6^CAPTION COORDINATE^2"
^DIST(.404,.404034,40,9,2)="8,23^7^8,3"
^DIST(.404,.404034,40,9,3)="!M"
^DIST(.404,.404034,40,9,3.1)="S Y=$G(DDGFCC0)"
^DIST(.404,.404034,40,9,20)="DD^^.4044,5.1"
^DIST(.404,.404034,40,9,23)="S DDGFCC=X"
^DIST(.404,.404034,40,10,0)="7^DATA COORDINATE^2"
^DIST(.404,.404034,40,10,2)="9,23^7^9,6"
^DIST(.404,.404034,40,10,3)="!M"
^DIST(.404,.404034,40,10,3.1)="S Y=$G(DDGFDC0)"
^DIST(.404,.404034,40,10,4)="1"
^DIST(.404,.404034,40,10,20)="DD^^.4044,4.1"
^DIST(.404,.404034,40,10,23)="S DDGFDC=X"
^DIST(.404,.404034,40,"B",1,1)=""
^DIST(.404,.404034,40,"B",2,2)=""
^DIST(.404,.404034,40,"B",3,3)=""
^DIST(.404,.404034,40,"B",4,7)=""
^DIST(.404,.404034,40,"B",5,8)=""
^DIST(.404,.404034,40,"B",6,9)=""
^DIST(.404,.404034,40,"B",7,10)=""
^DIST(.404,.404034,40,"C"," OTHER PARAMETERS ",1)=""
^DIST(.404,.404034,40,"C","CAPTION COORDINATE",9)=""
^DIST(.404,.404034,40,"C","DATA COORDINATE",10)=""
^DIST(.404,.404034,40,"C","DATA LENGTH",8)=""
^DIST(.404,.404034,40,"C","DISABLE EDITING",3)=""
^DIST(.404,.404034,40,"C","DISPLAY GROUP",7)=""
^DIST(.404,.404034,40,"C","REQUIRED",2)=""
^DIST(.404,.404041,0)="DDGF FIELD FORM ONLY^.4044"
^DIST(.404,.404041,40,0)="^.4044I^17^14"
^DIST(.404,.404041,40,1,0)="1^ Form Only Field Properties ^1"
^DIST(.404,.404041,40,1,2)="^^1,25"
^DIST(.404,.404041,40,2,0)="2^FIELD ORDER^3"
^DIST(.404,.404041,40,2,1)=".01"
^DIST(.404,.404041,40,2,2)="3,26^4^3,13"
^DIST(.404,.404041,40,5,0)="8^DEFAULT^3"
^DIST(.404,.404041,40,5,1)="6"
^DIST(.404,.404041,40,5,2)="8,26^50^8,17"
^DIST(.404,.404041,40,5,13)="D:X'=""!M"" PUT^DDSVAL(.4044,.DA,6.01,"""")"
^DIST(.404,.404041,40,7,0)="11^BRANCHING LOGIC^3"
^DIST(.404,.404041,40,7,1)="10"
^DIST(.404,.404041,40,7,2)="12,26^50^12,9"
^DIST(.404,.404041,40,8,0)="12^PRE ACTION^3"
^DIST(.404,.404041,40,8,1)="11"
^DIST(.404,.404041,40,8,2)="13,26^50^13,14"
^DIST(.404,.404041,40,9,0)="13^POST ACTION^3"
^DIST(.404,.404041,40,9,1)="12"
^DIST(.404,.404041,40,9,2)="14,26^50^14,13"
^DIST(.404,.404041,40,10,0)="14^POST ACTION ON CHANGE^3"
^DIST(.404,.404041,40,10,1)="13"
^DIST(.404,.404041,40,10,2)="15,26^50^15,3"
^DIST(.404,.404041,40,11,0)="9^EXECUTABLE CAPTION^3"
^DIST(.404,.404041,40,11,1)="1.1"
^DIST(.404,.404041,40,11,2)="9,26^50^9,6"
^DIST(.404,.404041,40,11,13)="D PUT^DDSVALF(""CAPTION"","""","""",$S(X="""":"""",1:""!M""))"
^DIST(.404,.404041,40,12,0)="10^EXECUTABLE DEFAULT^3"
^DIST(.404,.404041,40,12,1)="6.01"
^DIST(.404,.404041,40,12,2)="10,26^50^10,6"
^DIST(.404,.404041,40,12,13)="D PUT^DDSVAL(.4044,.DA,6,$S(X="""":"""",1:""!M""))"
^DIST(.404,.404041,40,13,0)="3^FORM ONLY FIELD PARAMETERS...^2"
^DIST(.404,.404041,40,13,2)="3,73^1^3,43^1"
^DIST(.404,.404041,40,13,7)="^11"
^DIST(.404,.404041,40,13,20)="F^^0:0"
^DIST(.404,.404041,40,13,21,0)="^^1^1^2940928"
^DIST(.404,.404041,40,13,21,1,0)="Press <RET> to edit the properties of this form-only field"
^DIST(.404,.404041,40,14,0)="4^OTHER PARAMETERS...^2"
^DIST(.404,.404041,40,14,2)="4,26^1^4,6^1"
^DIST(.404,.404041,40,14,7)="^21"
^DIST(.404,.404041,40,14,20)="F^^0:0"
^DIST(.404,.404041,40,14,21,0)="^^1^1^2940928"
^DIST(.404,.404041,40,14,21,1,0)="Press <RET> to edit additional properties of this form-only field"
^DIST(.404,.404041,40,15,0)="7^CAPTION^2"
^DIST(.404,.404041,40,15,2)="7,26^50^7,17"
^DIST(.404,.404041,40,15,3)="!M"
^DIST(.404,.404041,40,15,3.1)="S Y=$G(DDGFCAP0)"
^DIST(.404,.404041,40,15,13)="D FOCAP^DDGFU"
^DIST(.404,.404041,40,15,20)="DD^^.4044,1"
^DIST(.404,.404041,40,15,23)="S DDGFCAP=X"
^DIST(.404,.404041,40,16,0)="5^SUPPRESS COLON AFTER CAPTION?^2"
^DIST(.404,.404041,40,16,2)="4,73^3^4,43^1"
^DIST(.404,.404041,40,16,3)="!M"
^DIST(.404,.404041,40,16,3.1)="S Y=$G(DDGFSUP0)"
^DIST(.404,.404041,40,16,20)="DD^^.4044,5.2"
^DIST(.404,.404041,40,16,23)="S DDGFSUP=X"
^DIST(.404,.404041,40,17,0)="6^UNIQUE NAME^3"
^DIST(.404,.404041,40,17,1)="3.1"
^DIST(.404,.404041,40,17,2)="5,26^50^5,13"
^DIST(.404,.404041,40,"B",1,1)=""
^DIST(.404,.404041,40,"B",2,2)=""
^DIST(.404,.404041,40,"B",3,13)=""
^DIST(.404,.404041,40,"B",4,14)=""
^DIST(.404,.404041,40,"B",5,16)=""
^DIST(.404,.404041,40,"B",6,17)=""
^DIST(.404,.404041,40,"B",7,15)=""
^DIST(.404,.404041,40,"B",8,5)=""
^DIST(.404,.404041,40,"B",9,11)=""
^DIST(.404,.404041,40,"B",10,12)=""
^DIST(.404,.404041,40,"B",11,7)=""
^DIST(.404,.404041,40,"B",12,8)=""
^DIST(.404,.404041,40,"B",13,9)=""
^DIST(.404,.404041,40,"B",14,10)=""
^DIST(.404,.404041,40,"C"," FORM ONLY FIELD PROPERTIES ",1)=""
^DIST(.404,.404041,40,"C","BRANCHING LOGIC",7)=""
^DIST(.404,.404041,40,"C","CAPTION",15)=""
^DIST(.404,.404041,40,"C","DEFAULT",5)=""
^DIST(.404,.404041,40,"C","EXECUTABLE CAPTION",11)=""
^DIST(.404,.404041,40,"C","EXECUTABLE DEFAULT",12)=""
^DIST(.404,.404041,40,"C","FIELD ORDER",2)=""
^DIST(.404,.404041,40,"C","FORM ONLY FIELD PARAMETERS...",13)=""
^DIST(.404,.404041,40,"C","OTHER PARAMETERS...",14)=""
^DIST(.404,.404041,40,"C","POST ACTION",9)=""
^DIST(.404,.404041,40,"C","POST ACTION ON CHANGE",10)=""
^DIST(.404,.404041,40,"C","PRE ACTION",8)=""
^DIST(.404,.404041,40,"C","SUPPRESS COLON AFTER CAPTION?",16)=""
^DIST(.404,.404041,40,"C","UNIQUE NAME",17)=""
^DIST(.404,.404042,0)="DDGF FIELD FORM ONLY PARAMS^.4044"
^DIST(.404,.404042,40,0)="^.4044I^9^8"
^DIST(.404,.404042,40,1,0)="1^ Other Form Only Field Parameters ^1"
^DIST(.404,.404042,40,1,2)="^^1,22"
^DIST(.404,.404042,40,2,0)="2^READ TYPE^3"
^DIST(.404,.404042,40,2,1)="20.1"
^DIST(.404,.404042,40,2,2)="3,20^15^3,9"
^DIST(.404,.404042,40,2,4)="1"
^DIST(.404,.404042,40,3,0)="3^PARAMETERS^3"
^DIST(.404,.404042,40,3,1)="20.2"
^DIST(.404,.404042,40,3,2)="4,20^2^4,8"
^DIST(.404,.404042,40,4,0)="4^QUALIFIERS^3"
^DIST(.404,.404042,40,4,1)="20.3"
^DIST(.404,.404042,40,4,2)="5,20^52^5,8"
^DIST(.404,.404042,40,5,0)="6^INPUT TRANSFORM^3"
^DIST(.404,.404042,40,5,1)="22"
^DIST(.404,.404042,40,5,2)="9,20^52^9,3"
^DIST(.404,.404042,40,6,0)="5^HELP (WP)^3"
^DIST(.404,.404042,40,6,1)="21"
^DIST(.404,.404042,40,6,2)="7,20^1^7,9"
^DIST(.404,.404042,40,8,0)="7^SCREEN^3"
^DIST(.404,.404042,40,8,1)="24"
^DIST(.404,.404042,40,8,2)="10,20^52^10,12"
^DIST(.404,.404042,40,9,0)="8^SAVE CODE^3"
^DIST(.404,.404042,40,9,1)="23"
^DIST(.404,.404042,40,9,2)="11,20^52^11,9"
^DIST(.404,.404042,40,"B",1,1)=""
^DIST(.404,.404042,40,"B",2,2)=""
^DIST(.404,.404042,40,"B",3,3)=""
^DIST(.404,.404042,40,"B",4,4)=""
^DIST(.404,.404042,40,"B",5,6)=""
^DIST(.404,.404042,40,"B",6,5)=""
^DIST(.404,.404042,40,"B",7,8)=""
^DIST(.404,.404042,40,"B",8,9)=""
^DIST(.404,.404042,40,"C"," OTHER FORM ONLY FIELD PARAMETERS ",1)=""
^DIST(.404,.404042,40,"C","HELP (WP)",6)=""
^DIST(.404,.404042,40,"C","INPUT TRANSFORM",5)=""
^DIST(.404,.404042,40,"C","PARAMETERS",3)=""
^DIST(.404,.404042,40,"C","QUALIFIERS",4)=""
^DIST(.404,.404042,40,"C","READ TYPE",2)=""
^DIST(.404,.404042,40,"C","SAVE CODE",9)=""
^DIST(.404,.404042,40,"C","SCREEN",8)=""
^DIST(.404,.404051,0)="DDGF FIELD COMPUTED^.4044"
^DIST(.404,.404051,40,0)="^.4044I^8^8"
^DIST(.404,.404051,40,1,0)="1^ Computed Field Properties ^1"
^DIST(.404,.404051,40,1,2)="^^1,26"
^DIST(.404,.404051,40,2,0)="2^FIELD ORDER^3"
^DIST(.404,.404051,40,2,1)=".01"
^DIST(.404,.404051,40,2,2)="3,24^4^3,11"
^DIST(.404,.404051,40,3,0)="3^OTHER PARAMETERS...^2"
^DIST(.404,.404051,40,3,2)="4,24^1^4,4^1"
^DIST(.404,.404051,40,3,7)="^11"
^DIST(.404,.404051,40,3,20)="F^^1:1"
^DIST(.404,.404051,40,3,21,0)="^^1^1^2930916"
^DIST(.404,.404051,40,3,21,1,0)="Press 'RETURN' to edit additional properties of this Data Dictionary field"
^DIST(.404,.404051,40,4,0)="4^SUPPRESS COLON AFTER CAPTION?^2"
^DIST(.404,.404051,40,4,2)="4,71^3^4,41^1"
^DIST(.404,.404051,40,4,3)="!M"
^DIST(.404,.404051,40,4,3.1)="S Y=DDGFSUP0"
^DIST(.404,.404051,40,4,20)="DD^^.4044,5.2"
^DIST(.404,.404051,40,4,23)="S DDGFSUP=X"
^DIST(.404,.404051,40,5,0)="5^UNIQUE NAME^3"
^DIST(.404,.404051,40,5,1)="3.1"
^DIST(.404,.404051,40,5,2)="5,24^50^5,11"
^DIST(.404,.404051,40,6,0)="6^CAPTION^2"
^DIST(.404,.404051,40,6,2)="7,24^50^7,15"
^DIST(.404,.404051,40,6,3)="!M"
^DIST(.404,.404051,40,6,3.1)="S Y=DDGFCAP0"
^DIST(.404,.404051,40,6,13)="D COMPCAP^DDGFU"
^DIST(.404,.404051,40,6,20)="DD^^.4044,1"
^DIST(.404,.404051,40,6,23)="S DDGFCAP=X"
^DIST(.404,.404051,40,7,0)="7^EXECUTABLE CAPTION^3"
^DIST(.404,.404051,40,7,1)="1.1"
^DIST(.404,.404051,40,7,2)="8,24^50^8,4"
^DIST(.404,.404051,40,7,13)="D PUT^DDSVALF(""CAPTION"","""","""",$S(X="""":"""",1:""!M""))"
^DIST(.404,.404051,40,8,0)="8^COMPUTED EXPRESSION^3"
^DIST(.404,.404051,40,8,1)="30"
^DIST(.404,.404051,40,8,2)="10,24^50^10,3"
^DIST(.404,.404051,40,8,4)="1"
^DIST(.404,.404051,40,"B",1,1)=""
^DIST(.404,.404051,40,"B",2,2)=""
^DIST(.404,.404051,40,"B",3,3)=""
^DIST(.404,.404051,40,"B",4,4)=""
^DIST(.404,.404051,40,"B",5,5)=""
^DIST(.404,.404051,40,"B",6,6)=""
^DIST(.404,.404051,40,"B",7,7)=""
^DIST(.404,.404051,40,"B",8,8)=""
^DIST(.404,.404051,40,"C"," COMPUTED FIELD PROPERTIES ",1)=""
^DIST(.404,.404051,40,"C","CAPTION",6)=""
^DIST(.404,.404051,40,"C","COMPUTED EXPRESSION",8)=""
^DIST(.404,.404051,40,"C","EXECUTABLE CAPTION",7)=""
^DIST(.404,.404051,40,"C","FIELD ORDER",2)=""
^DIST(.404,.404051,40,"C","OTHER PARAMETERS...",3)=""
^DIST(.404,.404051,40,"C","SUPPRESS COLON AFTER CAPTION?",4)=""
^DIST(.404,.404051,40,"C","UNIQUE NAME",5)=""
^DIST(.404,.404052,0)="DDGF FIELD COMPUTED OTHER^.4044"
^DIST(.404,.404052,40,0)="^.4044I^8^5"
^DIST(.404,.404052,40,1,0)="1^ Other Computed Field Properties ^1"
^DIST(.404,.404052,40,1,2)="^^1,6"
^DIST(.404,.404052,40,5,0)="3^DATA LENGTH^2"
^DIST(.404,.404052,40,5,2)="5,25^3^5,12"
^DIST(.404,.404052,40,5,3)="!M"
^DIST(.404,.404052,40,5,3.1)="S Y=$G(DDGFDL0)"
^DIST(.404,.404052,40,5,20)="DD^^.4044,4.2"
^DIST(.404,.404052,40,5,23)="S DDGFDL=X"
^DIST(.404,.404052,40,6,0)="4^CAPTION COORDINATE^2"
^DIST(.404,.404052,40,6,2)="6,25^7^6,5"
^DIST(.404,.404052,40,6,3)="!M"
^DIST(.404,.404052,40,6,3.1)="S Y=$G(DDGFCC0)"
^DIST(.404,.404052,40,6,20)="DD^^.4044,5.1"
^DIST(.404,.404052,40,6,23)="S DDGFCC=X"
^DIST(.404,.404052,40,7,0)="5^DATA COORDINATE^2"
^DIST(.404,.404052,40,7,2)="7,25^7^7,8"
^DIST(.404,.404052,40,7,3)="!M"
^DIST(.404,.404052,40,7,3.1)="S Y=$G(DDGFDC0)"
^DIST(.404,.404052,40,7,20)="DD^^.4044,4.1"
^DIST(.404,.404052,40,7,23)="S DDGFDC=X"
^DIST(.404,.404052,40,8,0)="2^RIGHT JUSTIFY^3"
^DIST(.404,.404052,40,8,1)="6.3"
^DIST(.404,.404052,40,8,2)="3,25^3^3,10"
^DIST(.404,.404052,40,"B",1,1)=""
^DIST(.404,.404052,40,"B",2,8)=""
^DIST(.404,.404052,40,"B",3,5)=""
^DIST(.404,.404052,40,"B",4,6)=""
^DIST(.404,.404052,40,"B",5,7)=""
^DIST(.404,.404052,40,"C"," OTHER COMPUTED FIELD PROPERTIES ",1)=""
^DIST(.404,.404052,40,"C","CAPTION COORDINATE",6)=""
^DIST(.404,.404052,40,"C","DATA COORDINATE",7)=""
^DIST(.404,.404052,40,"C","DATA LENGTH",5)=""
^DIST(.404,.404052,40,"C","RIGHT JUSTIFY",8)=""
^DIST(.404,.404061,0)="DDGF BLOCK ADD"
^DIST(.404,.404061,40,0)="^.4044I^1^1"
^DIST(.404,.404061,40,1,0)="1^Select NEW BLOCK NAME^2"
^DIST(.404,.404061,40,1,2)="3,26^30^3,3"
^DIST(.404,.404061,40,1,12)="S DDACT=""EX"""
^DIST(.404,.404061,40,1,20)="P^^DIST(.404,:QEALMZF"
^DIST(.404,.404061,40,1,23)="S DDGFBNUM=X,DDGFBNAM=DDSEXT"
^DIST(.404,.404061,40,1,24)="S DIR(""S"")=""I Y'<1"""
^DIST(.404,.404061,40,"B",1,1)=""
^DIST(.404,.404061,40,"C","NEW BLOCK NAME",1)=""
^DIST(.404,.404062,0)="DDGF BLOCK ADD NEW"
^DIST(.404,.404062,40,0)="^.4044I^2^2"
^DIST(.404,.404062,40,1,0)="1^!M^1"
^DIST(.404,.404062,40,1,.1)="S Y=""Are you adding ""_DDGFBNAM"
^DIST(.404,.404062,40,1,2)="^^3,3"
^DIST(.404,.404062,40,2,0)="2^as a new block on this page?^2"
^DIST(.404,.404062,40,2,2)="4,32^3^4,3^1"
^DIST(.404,.404062,40,2,12)="S DDACT=""EX"""
^DIST(.404,.404062,40,2,20)="Y"
^DIST(.404,.404062,40,2,23)="S DDGFANS=X"
^DIST(.404,.404062,40,"B",1,1)=""
^DIST(.404,.404062,40,"B",2,2)=""
^DIST(.404,.404062,40,"C","AS A NEW BLOCK ON THIS PAGE?",2)=""
^DIST(.404,.404063,0)="DDGF BLOCK ADD DUPLICATE"
^DIST(.404,.404063,40,0)="^.4044I^3^3"
^DIST(.404,.404063,40,1,0)="1^!M^1"
^DIST(.404,.404063,40,1,.1)="S Y=""Block ""_DDGFBNAM"
^DIST(.404,.404063,40,1,2)="^^3,3"
^DIST(.404,.404063,40,2,0)="2^already exists on this page!^1"
^DIST(.404,.404063,40,2,2)="^^4,3"
^DIST(.404,.404063,40,3,0)="3^OK^2"
^DIST(.404,.404063,40,3,2)="6,18^1^6,15^1"
^DIST(.404,.404063,40,3,12)="S DDACT=""EX"""
^DIST(.404,.404063,40,3,20)="F^^0:0"
^DIST(.404,.404063,40,3,21,0)="^^1^1^2940928"
^DIST(.404,.404063,40,3,21,1,0)="Press <RET> to close this page"
^DIST(.404,.404063,40,"B",1,1)=""
^DIST(.404,.404063,40,"B",2,2)=""
^DIST(.404,.404063,40,"B",3,3)=""
^DIST(.404,.404063,40,"C","ALREADY EXISTS ON THIS PAGE!",2)=""
^DIST(.404,.404063,40,"C","OK",3)=""
^DIST(.404,.404071,0)="DDGF BLOCK DELETE"
^DIST(.404,.404071,40,0)="^.4044I^4^4"
^DIST(.404,.404071,40,1,0)="1^Block^1"
^DIST(.404,.404071,40,1,2)="^^1,1"
^DIST(.404,.404071,40,2,0)="4^Do you want to delete it from the BLOCK file?^2"
^DIST(.404,.404071,40,2,2)="3,47^3^3,1^1"
^DIST(.404,.404071,40,2,12)="S:X]"""" DDACT=""EX"" I X="""" D HLP^DDSUTL($C(7)_""A response is required.  Enter either YES or NO."") S DDSBR=2"
^DIST(.404,.404071,40,2,20)="Y"
^DIST(.404,.404071,40,2,23)="S DDGFANS=X"
^DIST(.404,.404071,40,3,0)="2^!M^1"
^DIST(.404,.404071,40,3,.1)="S Y=DDGFBK"
^DIST(.404,.404071,40,3,2)="^^1,7"
^DIST(.404,.404071,40,4,0)="3^is not used on any other forms.^1"
^DIST(.404,.404071,40,4,2)="^^2,1"
^DIST(.404,.404071,40,"B",1,1)=""
^DIST(.404,.404071,40,"B",2,3)=""
^DIST(.404,.404071,40,"B",3,4)=""
^DIST(.404,.404071,40,"B",4,2)=""
^DIST(.404,.404071,40,"C","BLOCK",1)=""
^DIST(.404,.404071,40,"C","DO YOU WANT TO DELETE IT FROM THE BLOCK FILE?",2)=""
^DIST(.404,.404071,40,"C","IS NOT USED ON ANY OTHER FORMS.",4)=""
^DIST(.404,.404081,0)="DDGF HEADER BLOCK SELECT"
^DIST(.404,.404081,40,0)="^.4044I^2^2"
^DIST(.404,.404081,40,1,0)="1^ Add a New Header Block ^1"
^DIST(.404,.404081,40,1,2)="^^1,20"
^DIST(.404,.404081,40,2,0)="2^Select New Header Block Name^2"
^DIST(.404,.404081,40,2,2)="3,33^30^3,3"
^DIST(.404,.404081,40,2,12)="S DDACT=""EX"""
^DIST(.404,.404081,40,2,20)="P^^DIST(.404,:QEALMZF"
^DIST(.404,.404081,40,2,23)="S DDGFBNUM=X,DDGFBNAM=DDSEXT"
^DIST(.404,.404081,40,"B",1,1)=""
^DIST(.404,.404081,40,"B",2,2)=""
^DIST(.404,.404081,40,"C"," ADD A NEW HEADER BLOCK ",1)=""
^DIST(.404,.404081,40,"C","NEW HEADER BLOCK NAME",2)=""
^DIST(.404,.441,0)="DDXP FF BLK1^.44"
^DIST(.404,.441,15,0)="^^2^2^2930107"
^DIST(.404,.441,15,1,0)="Block makes up page 1 of DDXP FF FORM.  It is used to define a foreign"
^DIST(.404,.441,15,2,0)="format."
^DIST(.404,.441,40,0)="^.4044I^21^16"
^DIST(.404,.441,40,1,0)="1^FOREIGN FILE FORMAT^3"
^DIST(.404,.441,40,1,1)=".01"
^DIST(.404,.441,40,1,2)="1,42^30^1,21^0"
^DIST(.404,.441,40,3,0)="3^!M^1"
^DIST(.404,.441,40,3,.1)="N I S Y="""" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_""="""
^DIST(.404,.441,40,3,2)="^^2,21"
^DIST(.404,.441,40,4,0)="4^FIELD DELIMITER^3"
^DIST(.404,.441,40,4,1)="1"
^DIST(.404,.441,40,4,2)="4,23^15^4,6^0"
^DIST(.404,.441,40,5,0)="5^RECORD LENGTH FIXED?^3"
^DIST(.404,.441,40,5,1)="5"
^DIST(.404,.441,40,5,2)="4,69^3^4,48^1"
^DIST(.404,.441,40,6,0)="4.7^RECORD DELIMITER^3"
^DIST(.404,.441,40,6,1)="2"
^DIST(.404,.441,40,6,2)="6,23^15^6,5^0"
^DIST(.404,.441,40,7,0)="7^MAXIMUM OUTPUT LENGTH^3"
^DIST(.404,.441,40,7,1)="7"
^DIST(.404,.441,40,7,2)="5,69^5^5,46^0"
^DIST(.404,.441,40,7,3)="80"
^DIST(.404,.441,40,8,0)="8^NEED FOREIGN FIELD NAMES?^3"
^DIST(.404,.441,40,8,1)="6"
^DIST(.404,.441,40,8,2)="6,69^3^6,43^1"
^DIST(.404,.441,40,9,0)="9^FILE HEADER^3"
^DIST(.404,.441,40,9,1)="20"
^DIST(.404,.441,40,9,2)="8,23^40^8,10^0"
^DIST(.404,.441,40,10,0)="10^FILE TRAILER^3"
^DIST(.404,.441,40,10,1)="25"
^DIST(.404,.441,40,10,2)="9,23^40^9,9^0"
^DIST(.404,.441,40,11,0)="11^DATE FORMAT^3"
^DIST(.404,.441,40,11,1)="27"
^DIST(.404,.441,40,11,2)="10,23^40^10,10^0"
^DIST(.404,.441,40,16,0)="16^Go to next page to document format.^1"
^DIST(.404,.441,40,16,2)="^^17,45"
^DIST(.404,.441,40,17,0)="2^PAGE 1^1"
^DIST(.404,.441,40,17,2)="^^1,74"
^DIST(.404,.441,40,18,0)="12^QUOTE NON-NUMERIC?^3"
^DIST(.404,.441,40,18,1)="8"
^DIST(.404,.441,40,18,2)="13,23^3^13,4^1"
^DIST(.404,.441,40,19,0)="13^PROMPT FOR DATA TYPE?^3"
^DIST(.404,.441,40,19,1)="9"
^DIST(.404,.441,40,19,2)="14,23^3^14,1^1"
^DIST(.404,.441,40,20,0)="4.5^SEND LAST DELIMITER?^3"
^DIST(.404,.441,40,20,1)="10"
^DIST(.404,.441,40,20,2)="5,23^3^5,2^1"
^DIST(.404,.441,40,20,3)="YES"
^DIST(.404,.441,40,21,0)="11.5^SUBSTITUTE FOR NULL^3"
^DIST(.404,.441,40,21,1)="11"
^DIST(.404,.441,40,21,2)="12,23^15^12,2^0"
^DIST(.404,.441,40,"B",1,1)=""
^DIST(.404,.441,40,"B",2,17)=""
^DIST(.404,.441,40,"B",3,3)=""
^DIST(.404,.441,40,"B",4,4)=""
^DIST(.404,.441,40,"B",4.5,20)=""
^DIST(.404,.441,40,"B",4.7,6)=""
^DIST(.404,.441,40,"B",5,5)=""
^DIST(.404,.441,40,"B",7,7)=""
^DIST(.404,.441,40,"B",8,8)=""
^DIST(.404,.441,40,"B",9,9)=""
^DIST(.404,.441,40,"B",10,10)=""
^DIST(.404,.441,40,"B",11,11)=""
^DIST(.404,.441,40,"B",11.5,21)=""
^DIST(.404,.441,40,"B",12,18)=""
^DIST(.404,.441,40,"B",13,19)=""
^DIST(.404,.441,40,"B",16,16)=""
^DIST(.404,.441,40,"C","DATE FORMAT",11)=""
^DIST(.404,.441,40,"C","FIELD DELIMITER",4)=""
^DIST(.404,.441,40,"C","FILE HEADER",9)=""
^DIST(.404,.441,40,"C","FILE TRAILER",10)=""
^DIST(.404,.441,40,"C","FOREIGN FILE FORMAT",1)=""
^DIST(.404,.441,40,"C","GO TO NEXT PAGE TO DOCUMENT FORMAT.",16)=""
^DIST(.404,.441,40,"C","MAXIMUM OUTPUT LENGTH",7)=""
^DIST(.404,.441,40,"C","NEED FOREIGN FIELD NAMES?",8)=""
^DIST(.404,.441,40,"C","PAGE 1",17)=""
^DIST(.404,.441,40,"C","PROMPT FOR DATA TYPE?",19)=""
^DIST(.404,.441,40,"C","QUOTE NON-NUMERIC?",18)=""
^DIST(.404,.441,40,"C","RECORD DELIMITER",6)=""
^DIST(.404,.441,40,"C","RECORD LENGTH FIXED?",5)=""
^DIST(.404,.441,40,"C","SEND LAST DELIMITER?",20)=""
^DIST(.404,.441,40,"C","SUBSTITUTE FOR NULL",21)=""
^DIST(.404,.442,0)="DDXP FF BLK2^.44^0"
^DIST(.404,.442,15,0)="^^2^2^2920925"
^DIST(.404,.442,15,1,0)="Contains fields for page 2 of form used to define Foreign Formats."
^DIST(.404,.442,15,2,0)="Primarily used to document the format."
^DIST(.404,.442,40,0)="^.4044I^7^7"
^DIST(.404,.442,40,1,0)="1^FOREIGN FILE FORMAT: ^1"
^DIST(.404,.442,40,1,2)="^^1,21"
^DIST(.404,.442,40,2,0)="2^^3"
^DIST(.404,.442,40,2,1)=".01"
^DIST(.404,.442,40,2,2)="1,42^30"
^DIST(.404,.442,40,2,4)="^^^1"
^DIST(.404,.442,40,3,0)="2.5^PAGE 2^1"
^DIST(.404,.442,40,3,2)="^^1,74"
^DIST(.404,.442,40,4,0)="3^!M^1"
^DIST(.404,.442,40,4,.1)="N I S Y="""" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_""="""
^DIST(.404,.442,40,4,2)="^^2,21"
^DIST(.404,.442,40,5,0)="4^DESCRIPTION (WP)^3"
^DIST(.404,.442,40,5,1)="30"
^DIST(.404,.442,40,5,2)="4,44^1^4,26^0"
^DIST(.404,.442,40,6,0)="5^USAGE NOTES (WP)^3"
^DIST(.404,.442,40,6,1)="31"
^DIST(.404,.442,40,6,2)="6,44^1^6,26^0"
^DIST(.404,.442,40,7,0)="6^Select OTHER NAME FOR FORMAT^3"
^DIST(.404,.442,40,7,1)="50"
^DIST(.404,.442,40,7,2)="10,44^22^10,14^0"
^DIST(.404,.442,40,7,4)="^^^^0"
^DIST(.404,.442,40,7,7)="^3"
^DIST(.404,.442,40,"B",1,1)=""
^DIST(.404,.442,40,"B",2,2)=""
^DIST(.404,.442,40,"B",2.5,3)=""
^DIST(.404,.442,40,"B",3,4)=""
^DIST(.404,.442,40,"B",4,5)=""
^DIST(.404,.442,40,"B",5,6)=""
^DIST(.404,.442,40,"B",6,7)=""
^DIST(.404,.442,40,"C","DESCRIPTION (WP)",5)=""
^DIST(.404,.442,40,"C","FOREIGN FILE FORMAT: ",1)=""
^DIST(.404,.442,40,"C","OTHER NAME FOR FORMAT",7)=""
^DIST(.404,.442,40,"C","PAGE 2",3)=""
^DIST(.404,.442,40,"C","USAGE NOTES (WP)",6)=""
^DIST(.404,.443,0)="DDXP FF BLK3^.441^0"
^DIST(.404,.443,15,0)="^^2^2^2920925"
^DIST(.404,.443,15,1,0)="Block for subpage containing fields from the OTHER NAME FOR FORMAT"
^DIST(.404,.443,15,2,0)="multiple.  Used in defining a foreign file format."
^DIST(.404,.443,40,0)="^.4044I^2^2"
^DIST(.404,.443,40,1,0)="1^OTHER NAME^3"
^DIST(.404,.443,40,1,1)=".01"
^DIST(.404,.443,40,1,2)="2,20^15^2,8^0"
^DIST(.404,.443,40,2,0)="2^DESCRIPTION (WP)^3"
^DIST(.404,.443,40,2,1)="1"
^DIST(.404,.443,40,2,2)="4,20^1^4,2^0"
^DIST(.404,.443,40,"B",1,1)=""
^DIST(.404,.443,40,"B",2,2)=""
^DIST(.404,.443,40,"C","DESCRIPTION (WP)",2)=""
^DIST(.404,.443,40,"C","OTHER NAME",1)=""
^DIST(.404,.4611,0)="DDMP SPECS 1^.44"
^DIST(.404,.4611,15,0)="^^2^2^2950216"
^DIST(.404,.4611,15,1,0)="Block contains specifications of data import including source file, VA"
^DIST(.404,.4611,15,2,0)="FileMan target file, and format of the incoming data."
^DIST(.404,.4611,40,0)="^.4044I^23^21"
^DIST(.404,.4611,40,1,0)="1^DATA IMPORT^1"
^DIST(.404,.4611,40,1,2)="^^1,35"
^DIST(.404,.4611,40,2,0)="2^Page 1^1"
^DIST(.404,.4611,40,2,2)="^^1,72"
^DIST(.404,.4611,40,3,0)="1.1^===========^1"
^DIST(.404,.4611,40,3,2)="^^2,35^1"
^DIST(.404,.4611,40,4,0)="6^SOURCE FILE^1"
^DIST(.404,.4611,40,4,2)="^^4,53^1"
^DIST(.404,.4611,40,5,0)="6.1^-----------^1"
^DIST(.404,.4611,40,5,2)="^^5,53^1"
^DIST(.404,.4611,40,6,0)="6.2^Full path^2^^PTH"
^DIST(.404,.4611,40,6,2)="6,61^19^6,50"
^DIST(.404,.4611,40,6,3)="!M"
^DIST(.404,.4611,40,6,3.1)="S Y=$$PWD^%ZISH"
^DIST(.404,.4611,40,6,4)="1"
^DIST(.404,.4611,40,6,20)="F^^1:245"
^DIST(.404,.4611,40,6,21,0)="^^2^2^2950216"
^DIST(.404,.4611,40,6,21,1,0)="Enter the full path to the host file that contains the data you want to"
^DIST(.404,.4611,40,6,21,2,0)="import.  Do not include the name of the file itself."
^DIST(.404,.4611,40,6,23)="S DDMPHOST(""PATH"")=X"
^DIST(.404,.4611,40,7,0)="6.3^Host file name^2^^HST_FL"
^DIST(.404,.4611,40,7,2)="7,61^19^7,45"
^DIST(.404,.4611,40,7,4)="1"
^DIST(.404,.4611,40,7,20)="F^^1:100"
^DIST(.404,.4611,40,7,21,0)="^^1^1^2960611"
^DIST(.404,.4611,40,7,21,1,0)="^D HOSTHELP^DDMPSM1"
^DIST(.404,.4611,40,7,23)="S DDMPHOST(""FILE"")=X"
^DIST(.404,.4611,40,8,0)="7^VA FILEMAN FILE^1"
^DIST(.404,.4611,40,8,2)="^^10,51^1"
^DIST(.404,.4611,40,9,0)="7.1^---------------^1"
^DIST(.404,.4611,40,9,2)="^^11,51^1"
^DIST(.404,.4611,40,10,0)="7.2^Primary file^2^^F_SEL"
^DIST(.404,.4611,40,10,2)="12,61^18^12,47"
^DIST(.404,.4611,40,10,13)="D FILESEL^DDMPSM"
^DIST(.404,.4611,40,10,20)="P^^1:ANEF"
^DIST(.404,.4611,40,10,21,0)="^^3^3^2960918"
^DIST(.404,.4611,40,10,21,1,0)="Enter the name or number of the VA FileMan file into which the data will"
^DIST(.404,.4611,40,10,21,2,0)="be imported.  If the FileMan file is specified in the source file, enter"
^DIST(.404,.4611,40,10,21,3,0)="nothing here."
^DIST(.404,.4611,40,10,23)="S DDMPSELF=X"
^DIST(.404,.4611,40,10,24)="S DIR(""S"")=""N DIFILE,DIAC S DIFILE=Y,DIAC=""""WR"""" D ^DIAC I DIAC"""
^DIST(.404,.4611,40,11,0)="5^DATA FORMAT^1"
^DIST(.404,.4611,40,11,2)="^^4,16"
^DIST(.404,.4611,40,12,0)="5.1^-----------^1"
^DIST(.404,.4611,40,12,2)="^^5,16^1"
^DIST(.404,.4611,40,13,0)="5.2^Internal or external^2^^INT_EXT"
^DIST(.404,.4611,40,13,2)="6,23^8^6,1"
^DIST(.404,.4611,40,13,3)="External"
^DIST(.404,.4611,40,13,20)="S^OM^E:EXTERNAL;I:INTERNAL"
^DIST(.404,.4611,40,13,21,0)="^^3^3^2950216"
^DIST(.404,.4611,40,13,21,1,0)="Specify whether the imported data is in internal or external format."
^DIST(.404,.4611,40,13,21,2,0)="Internal format means the way the data is stored inside of VA FileMan"
^DIST(.404,.4611,40,13,21,3,0)="files.  External means the format that a user enter."
^DIST(.404,.4611,40,13,23)="S DDMPIORE=X"
^DIST(.404,.4611,40,14,0)="5.3^Foreign format^2^^FOR_FMT"
^DIST(.404,.4611,40,14,2)="8,23^17^8,7"
^DIST(.404,.4611,40,14,13)="D FF^DDMPSM"
^DIST(.404,.4611,40,14,20)="P^^.44:EAM"
^DIST(.404,.4611,40,14,21,0)="^^6^6^2950228"
^DIST(.404,.4611,40,14,21,1,0)="Enter the foreign format that corresponds to the structure of the data"
^DIST(.404,.4611,40,14,21,2,0)="being imported.  These formats are stored in the Foreign Format file.  If"
^DIST(.404,.4611,40,14,21,3,0)="you do not choose a format here, you must specify whether the incoming"
^DIST(.404,.4611,40,14,21,4,0)="data is fixed length, what the field delimiter is (if any), and whether"
^DIST(.404,.4611,40,14,21,5,0)="some field values are quoted.  If you enter a format here, any attributes"
^DIST(.404,.4611,40,14,21,6,0)="of the format that you specified below will be deleted."
^DIST(.404,.4611,40,16,0)="5.5^Data fixed length?^2^^FIX"
^DIST(.404,.4611,40,16,2)="10,23^3^10,4^1"
^DIST(.404,.4611,40,16,13)="S DDMPSMFF(""FIXED"")=DDSEXT"
^DIST(.404,.4611,40,16,20)="Y"
^DIST(.404,.4611,40,16,21,0)="^^4^4^2950216"
^DIST(.404,.4611,40,16,21,1,0)="Enter YES or NO."
^DIST(.404,.4611,40,16,21,2,0)="If the incoming data is in fixed length fields, enter YES."
^DIST(.404,.4611,40,16,21,3,0)="If the fields are delimited by a special character, enter NO and enter the"
^DIST(.404,.4611,40,16,21,4,0)="field delimiter at the prompt below."
^DIST(.404,.4611,40,17,0)="5.6^Field delimiter^2^^FLD_DLM"
^DIST(.404,.4611,40,17,2)="11,23^3^11,6"
^DIST(.404,.4611,40,17,13)="S DDMPSMFF(""FDELIM"")=DDSEXT"
^DIST(.404,.4611,40,17,20)="F^^1:15"
^DIST(.404,.4611,40,17,21,0)="^^8^8^2960823"
^DIST(.404,.4611,40,17,21,1,0)="If the incoming data is not in fixed length fields, enter the character or"
^DIST(.404,.4611,40,17,21,2,0)="characters that separate fields.  "
^DIST(.404,.4611,40,17,21,3,0)=" "
^DIST(.404,.4611,40,17,21,4,0)="Identify the delimiter either by 1-15 characters or by the delimiter's 3"
^DIST(.404,.4611,40,17,21,5,0)="digit ascii value.  Up to 4 ascii-character values can be specified,"
^DIST(.404,.4611,40,17,21,6,0)="separated by commas.  Use the ascii value when the delimiter is a"
^DIST(.404,.4611,40,17,21,7,0)="non-printing character (e.g., <TAB>, ascii=009) or a character that has a"
^DIST(.404,.4611,40,17,21,8,0)="special meaning at a ScreenMan prompt (e.g., ^, ascii=094)."
^DIST(.404,.4611,40,17,22)="K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1"",""3N)!(X?3N1"",""3N1"",""3N)!(X?3N1"",""3N1"",""3N1"",""3N)) X"
^DIST(.404,.4611,40,18,0)="5.7^Fields quoted?^2^^QUOTE"
^DIST(.404,.4611,40,18,2)="12,23^3^12,8^1"
^DIST(.404,.4611,40,18,13)="S DDMPSMFF(""QUOTED"")=DDSEXT"
^DIST(.404,.4611,40,18,20)="Y"
^DIST(.404,.4611,40,18,21,0)="^^4^4^2950216"
^DIST(.404,.4611,40,18,21,1,0)="If the values of some fields are surrounded by quotation marks (""), enter"
^DIST(.404,.4611,40,18,21,2,0)="YES.  Field delimiters that occur within the quotation marks are ignored."
^DIST(.404,.4611,40,18,21,3,0)="This special treatment of quotation marks is not done for fixed length"
^DIST(.404,.4611,40,18,21,4,0)="data."
^DIST(.404,.4611,40,20,0)="7.4^!M^2^^FLD_JUMP"
^DIST(.404,.4611,40,20,.1)="S Y=$S($$GET^DDSVALF(""F_SEL"",1,1)]"""":""Field selection page..."",1:"""")"
^DIST(.404,.4611,40,20,2)="14,69^1^14,44^1"
^DIST(.404,.4611,40,20,4)="^^^1"
^DIST(.404,.4611,40,20,10)="S DDSBR=""FLD^1^2"""
^DIST(.404,.4611,40,20,11)="I $$GET^DDSVALF(""TMP_NM"",1,1)]"""" N DDMPMSG S DDMPMSG(1)=""You cannot select fields because you have specified an Import Template for this import."",DDMPMSG(2)=""$$EOP"" D HLP^DDSUTL(.DDMPMSG) S DDSBR=""TMP_NM"""
^DIST(.404,.4611,40,20,20)="F"
^DIST(.404,.4611,40,20,21,0)="^^1^1^2960918"
^DIST(.404,.4611,40,20,21,1,0)="Press <RET> to advance to the Field Selection Page."
^DIST(.404,.4611,40,21,0)="5.4^OR^1"
^DIST(.404,.4611,40,21,2)="^^9,14^1"
^DIST(.404,.4611,40,22,0)="7.6^!M^1^^OR"
^DIST(.404,.4611,40,22,.1)="S Y=$S($$GET^DDSVALF(""F_SEL"",1,1)]"""":""OR"",1:"""")"
^DIST(.404,.4611,40,22,2)="^^15,54"
^DIST(.404,.4611,40,23,0)="7.8^!M^2^^TMP_NM"
^DIST(.404,.4611,40,23,.1)="S Y=$S($$GET^DDSVALF(""F_SEL"",1,1)]"""":""Import Template"",1:"""")"
^DIST(.404,.4611,40,23,2)="16,61^18^16,44"
^DIST(.404,.4611,40,23,4)="^^^1"
^DIST(.404,.4611,40,23,11)="I $D(DDMPFDSL) N DDMPMSG S DDMPMSG(1)=""You have already chosen fields for this import. You may not select an Import Template unless you delete all the chosen fields."",DDMPMSG(2)=""$$EOP"" D HLP^DDSUTL(.DDMPMSG) S DDSBR=""FLD_JUMP"""
^DIST(.404,.4611,40,23,20)="P^^.46:AE"
^DIST(.404,.4611,40,23,21,0)="^^3^3^2960605"
^DIST(.404,.4611,40,23,21,1,0)="Enter the name of an Import Template to use for data import.  If you do"
^DIST(.404,.4611,40,23,21,2,0)="not specify a template, you must specify the fields on the Field Selection"
^DIST(.404,.4611,40,23,21,3,0)="page."
^DIST(.404,.4611,40,23,22)="S X=$TR(X,""[]"")"
^DIST(.404,.4611,40,23,23)="S DDMPTMPL=X"
^DIST(.404,.4611,40,23,24)="S DIR(""S"")=""I $$TMPLSCR^DDMPSM(DDMPF,DDSEXT,.DUZ)"""
^DIST(.404,.4611,40,"B",1,1)=""
^DIST(.404,.4611,40,"B",1.1,3)=""
^DIST(.404,.4611,40,"B",2,2)=""
^DIST(.404,.4611,40,"B",5,11)=""
^DIST(.404,.4611,40,"B",5.1,12)=""
^DIST(.404,.4611,40,"B",5.2,13)=""
^DIST(.404,.4611,40,"B",5.3,14)=""
^DIST(.404,.4611,40,"B",5.4,21)=""
^DIST(.404,.4611,40,"B",5.5,16)=""
^DIST(.404,.4611,40,"B",5.6,17)=""
^DIST(.404,.4611,40,"B",5.7,18)=""
^DIST(.404,.4611,40,"B",6,4)=""
^DIST(.404,.4611,40,"B",6.1,5)=""
^DIST(.404,.4611,40,"B",6.2,6)=""
^DIST(.404,.4611,40,"B",6.3,7)=""
^DIST(.404,.4611,40,"B",7,8)=""
^DIST(.404,.4611,40,"B",7.1,9)=""
^DIST(.404,.4611,40,"B",7.2,10)=""
^DIST(.404,.4611,40,"B",7.4,20)=""
^DIST(.404,.4611,40,"B",7.6,22)=""
^DIST(.404,.4611,40,"B",7.8,23)=""
^DIST(.404,.4611,40,"C","-----------",5)=""
^DIST(.404,.4611,40,"C","-----------",12)=""
^DIST(.404,.4611,40,"C","---------------",9)=""
^DIST(.404,.4611,40,"C","===========",3)=""
^DIST(.404,.4611,40,"C","DATA FIXED LENGTH?",16)=""
^DIST(.404,.4611,40,"C","DATA FORMAT",11)=""
^DIST(.404,.4611,40,"C","DATA IMPORT",1)=""
^DIST(.404,.4611,40,"C","FIELD DELIMITER",17)=""
^DIST(.404,.4611,40,"C","FIELDS QUOTED?",18)=""
^DIST(.404,.4611,40,"C","FOREIGN FORMAT",14)=""
^DIST(.404,.4611,40,"C","FULL PATH",6)=""
^DIST(.404,.4611,40,"C","HOST FILE NAME",7)=""
^DIST(.404,.4611,40,"C","INTERNAL OR EXTERNAL",13)=""
^DIST(.404,.4611,40,"C","OR",21)=""
^DIST(.404,.4611,40,"C","PAGE 1",2)=""
^DIST(.404,.4611,40,"C","PRIMARY FILE",10)=""
^DIST(.404,.4611,40,"C","SOURCE FILE",4)=""
^DIST(.404,.4611,40,"C","VA FILEMAN FILE",8)=""
^DIST(.404,.4611,40,"D","FIX",16)=""
^DIST(.404,.4611,40,"D","FLD_DLM",17)=""
^DIST(.404,.4611,40,"D","FLD_JUMP",20)=""
^DIST(.404,.4611,40,"D","FOR_FMT",14)=""
^DIST(.404,.4611,40,"D","F_SEL",10)=""
^DIST(.404,.4611,40,"D","HST_FL",7)=""
^DIST(.404,.4611,40,"D","INT_EXT",13)=""
^DIST(.404,.4611,40,"D","OR",22)=""
^DIST(.404,.4611,40,"D","PTH",6)=""
^DIST(.404,.4611,40,"D","QUOTE",18)=""
^DIST(.404,.4611,40,"D","TMP_NM",23)=""
^DIST(.404,.4612,0)="DDMP FIELD SELECTION"
^DIST(.404,.4612,40,0)="^.4044I^19^18"
^DIST(.404,.4612,40,1,0)="1^FIELD SELECTION FOR IMPORT^1"
^DIST(.404,.4612,40,1,2)="^^1,27"
^DIST(.404,.4612,40,2,0)="1.2^Page 2^1"
^DIST(.404,.4612,40,2,2)="^^1,73"
^DIST(.404,.4612,40,3,0)="1.1^==========================^1"
^DIST(.404,.4612,40,3,2)="^^2,27^1"
^DIST(.404,.4612,40,4,0)="2^Choose a field from^1"
^DIST(.404,.4612,40,4,2)="^^3,2^1"
^DIST(.404,.4612,40,5,0)="2.1^!M^1"
^DIST(.404,.4612,40,5,.1)="S Y=$S($D(DDMPFCAP):DDMPFCAP,1:DDMPFLNM)"
^DIST(.404,.4612,40,5,2)="^^4,2^1"
^DIST(.404,.4612,40,6,0)="2.2^Field^2^^FLD"
^DIST(.404,.4612,40,6,2)="5,12^19^5,5"
^DIST(.404,.4612,40,6,10)="I X=DDSOLD,$L($G(DDMPCPTH)) S DDSBR=2.2 D UP1^DDMPSM,REFRESH^DDSUTL"
^DIST(.404,.4612,40,6,13)="D FDPROC^DDMPSM,PUT^DDSVALF(2.2,1,2,""""):$G(DDSBR)=""FLD"",REFRESH^DDSUTL"
^DIST(.404,.4612,40,6,20)="F^^1:30"
^DIST(.404,.4612,40,6,21,0)="^^1^1^2950217"
^DIST(.404,.4612,40,6,21,1,0)="^N D0,DA,DIC,D,DZ S DIC=""^DD(""_DDMPCF_"","",DIC(0)="""",D=""B"",DIC(""S"")=""I '($P($G(^DD(+$P(^DD(DDMPCF,Y,0),U,2),.01,0)),U,2)[""""W"""")"" S:$G(X)=""?"" DZ=X D DQ^DICQ"
^DIST(.404,.4612,40,6,22)="D IXF^DDMPSM"
^DIST(.404,.4612,40,8,0)="3.1^Delete last field selected?^2^^FLD_DEL"
^DIST(.404,.4612,40,8,2)="5,68^3^5,40^1"
^DIST(.404,.4612,40,8,11)="S DDMPMRK($G(DDMPFDCT))=1 D REFRESH^DDSUTL"
^DIST(.404,.4612,40,8,12)="K DDMPMRK D REFRESH^DDSUTL ;S DDSBR=""COM"""
^DIST(.404,.4612,40,8,13)="I X D DELFLD^DDMPSM,PUT^DDSVALF(3.1,"""","""","""") S DDSBR=3.1"
^DIST(.404,.4612,40,8,20)="Y"
^DIST(.404,.4612,40,8,21,0)="^^2^2^2960716"
^DIST(.404,.4612,40,8,21,1,0)="Enter YES if you want to delete the most recent field that you selected"
^DIST(.404,.4612,40,8,21,2,0)="for import.  This is the last field on the list to the left"
^DIST(.404,.4612,40,9,0)="4^These are the fields selected so far:^1"
^DIST(.404,.4612,40,9,2)="^^8,2"
^DIST(.404,.4612,40,10,0)="5.1^!M^1"
^DIST(.404,.4612,40,10,.1)="I $D(DDMPFDSL(""CAP"",1+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=1+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,10,2)="^^9,4^1"
^DIST(.404,.4612,40,11,0)="5.2^!M^1"
^DIST(.404,.4612,40,11,.1)="I $D(DDMPFDSL(""CAP"",2+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=2+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,11,2)="^^10,4^1"
^DIST(.404,.4612,40,12,0)="5.3^!M^1"
^DIST(.404,.4612,40,12,.1)="I $D(DDMPFDSL(""CAP"",3+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=3+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,12,2)="^^11,4^1"
^DIST(.404,.4612,40,13,0)="5.4^!M^1"
^DIST(.404,.4612,40,13,.1)="I $D(DDMPFDSL(""CAP"",4+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=4+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,13,2)="^^12,4^1"
^DIST(.404,.4612,40,14,0)="5.5^!M^1"
^DIST(.404,.4612,40,14,.1)="I $D(DDMPFDSL(""CAP"",5+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=5+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,14,2)="^^13,4^1"
^DIST(.404,.4612,40,15,0)="5.6^!M^1"
^DIST(.404,.4612,40,15,.1)="I $D(DDMPFDSL(""CAP"",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,15,2)="^^14,4^1"
^DIST(.404,.4612,40,16,0)="5.7^!M^1"
^DIST(.404,.4612,40,16,.1)="I $D(DDMPFDSL(""CAP"",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,16,2)="^^15,4^1"
^DIST(.404,.4612,40,17,0)="5.8^!M^1"
^DIST(.404,.4612,40,17,.1)="I $D(DDMPFDSL(""CAP"",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,17,2)="^^16,4^1"
^DIST(.404,.4612,40,18,0)="5.9^!M^1"
^DIST(.404,.4612,40,18,.1)="I $D(DDMPFDSL(""CAP"",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL(""CAP"",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):""*"",1:"" "")_$S(DDMPNUM<10:"" "",1:"""")_DDMPNUM_"" - ""_$E(DDMPFDSL(""CAP"",DDMPNUM),DDMPLEN-70,DDMPLEN)"
^DIST(.404,.4612,40,18,2)="^^17,4^1"
^DIST(.404,.4612,40,19,0)="2.3^!M^2^^LEN"
^DIST(.404,.4612,40,19,.1)="S Y=$S($G(DDMPSMFF(""FIXED""))=""YES"":""Length"",1:"""")"
^DIST(.404,.4612,40,19,2)="6,12^3^6,4"
^DIST(.404,.4612,40,19,11)="I $$GET^DDSVALF(""FLD"")']"""" S DDSBR=$S($L($G(DDMPCPTH)):""FLD"",1:""FLD_DEL"")"
^DIST(.404,.4612,40,19,12)="I X="""" S DDSBR=""2^1^4"""
^DIST(.404,.4612,40,19,13)="S DDMPFDSL(""LN"",DDMPFDCT)=X,DDMPFDSL(""CAP"",DDMPFDCT)=DDMPFDSL(""CAP"",DDMPFDCT)_""[""_X_""]"",DDSBR=""FLD"" D PUT^DDSVALF(""LEN"","""","""",""""),PUT^DDSVALF(""FLD"","""","""",""""),REFRESH^DDSUTL"
^DIST(.404,.4612,40,19,20)="N^^1:255"
^DIST(.404,.4612,40,19,21,0)="^^2^2^2950228"
^DIST(.404,.4612,40,19,21,1,0)="Enter the length of the imported data associated with this field.  (This"
^DIST(.404,.4612,40,19,21,2,0)="applies only to fixed length imports.)"
^DIST(.404,.4612,40,"B",1,1)=""
^DIST(.404,.4612,40,"B",1.1,3)=""
^DIST(.404,.4612,40,"B",1.2,2)=""
^DIST(.404,.4612,40,"B",2,4)=""
^DIST(.404,.4612,40,"B",2.1,5)=""
^DIST(.404,.4612,40,"B",2.2,6)=""
^DIST(.404,.4612,40,"B",2.3,19)=""
^DIST(.404,.4612,40,"B",3.1,8)=""
^DIST(.404,.4612,40,"B",4,9)=""
^DIST(.404,.4612,40,"B",5.1,10)=""
^DIST(.404,.4612,40,"B",5.2,11)=""
^DIST(.404,.4612,40,"B",5.3,12)=""
^DIST(.404,.4612,40,"B",5.4,13)=""
^DIST(.404,.4612,40,"B",5.5,14)=""
^DIST(.404,.4612,40,"B",5.6,15)=""
^DIST(.404,.4612,40,"B",5.7,16)=""
^DIST(.404,.4612,40,"B",5.8,17)=""
^DIST(.404,.4612,40,"B",5.9,18)=""
^DIST(.404,.4612,40,"C","==========================",3)=""
^DIST(.404,.4612,40,"C","CHOOSE A FIELD FROM",4)=""
^DIST(.404,.4612,40,"C","DELETE LAST FIELD SELECTED?",8)=""
^DIST(.404,.4612,40,"C","FIELD",6)=""
^DIST(.404,.4612,40,"C","FIELD SELECTION FOR IMPORT",1)=""
^DIST(.404,.4612,40,"C","PAGE 2",2)=""
^DIST(.404,.4612,40,"C","THESE ARE THE FIELDS SELECTED SO FAR:",9)=""
^DIST(.404,.4612,40,"D","FLD",6)=""
^DIST(.404,.4612,40,"D","FLD_DEL",8)=""
^DIST(.404,.4612,40,"D","LEN",19)=""
^DIST(.404,.4613,0)="DDMP FILE CHANGE^.44"
^DIST(.404,.4613,40,0)="^.4044I^3^3"
^DIST(.404,.4613,40,1,0)="1^If you delete or change the primary file,^1"
^DIST(.404,.4613,40,1,2)="^^1,1"
^DIST(.404,.4613,40,2,0)="2^the fields you have chosen will be deleted.^1"
^DIST(.404,.4613,40,2,2)="^^2,1^1"
^DIST(.404,.4613,40,3,0)="3^Do you want to change the Primary file?^2"
^DIST(.404,.4613,40,3,2)="4,42^3^4,1"
^DIST(.404,.4613,40,3,3)="Yes"
^DIST(.404,.4613,40,3,4)="1"
^DIST(.404,.4613,40,3,12)="D CHNGFILE^DDMPSM S DDACT=""CL"""
^DIST(.404,.4613,40,3,20)="Y"
^DIST(.404,.4613,40,"B",1,1)=""
^DIST(.404,.4613,40,"B",2,2)=""
^DIST(.404,.4613,40,"B",3,3)=""
^DIST(.404,.4613,40,"C","DO YOU WANT TO CHANGE THE PRIMARY FILE?",3)=""
^DIST(.404,.4613,40,"C","IF YOU DELETE OR CHANGE THE PRIMARY FILE,",1)=""
^DIST(.404,.4613,40,"C","THE FIELDS YOU HAVE CHOSEN WILL BE DELETED.",2)=""
^DIST(.404,.4614,0)="DDMP REQUIRED LENGTH"
^DIST(.404,.4614,40,0)="^.4044I^3^3"
^DIST(.404,.4614,40,1,0)="1^Since this is a fixed length import,^1"
^DIST(.404,.4614,40,1,2)="^^1,1"
^DIST(.404,.4614,40,2,0)="1.2^you must enter a data length for every field.^1"
^DIST(.404,.4614,40,2,2)="^^2,1"
^DIST(.404,.4614,40,3,0)="2^Delete field or enter its Length (D/L)?^2"
^DIST(.404,.4614,40,3,2)="4,41^1^4,1^1"
^DIST(.404,.4614,40,3,13)="D LENCHK^DDMPSM1"
^DIST(.404,.4614,40,3,20)="S^M^D:Delete the field;L:Length will be entered"
^DIST(.404,.4614,40,3,21,0)="^^4^4^2950301"
^DIST(.404,.4614,40,3,21,1,0)="You left the length prompt without entering a data length for the last"
^DIST(.404,.4614,40,3,21,2,0)="field you specified.  Since you have chosen a fixed length import, you"
^DIST(.404,.4614,40,3,21,3,0)="must give a length for every field.  You can choose to either delete the"
^DIST(.404,.4614,40,3,21,4,0)="field you just entered or return to the Length prompt to enter a Length."
^DIST(.404,.4614,40,"B",1,1)=""
^DIST(.404,.4614,40,"B",1.2,2)=""
^DIST(.404,.4614,40,"B",2,3)=""
^DIST(.404,.4614,40,"C","DELETE FIELD OR ENTER ITS LENGTH (D/L)?",3)=""
^DIST(.404,.4614,40,"C","SINCE THIS IS A FIXED LENGTH IMPORT,",1)=""
^DIST(.404,.4614,40,"C","YOU MUST ENTER A DATA LENGTH FOR EVERY FIELD.",2)=""
^DIST(.404,1,0)="XPD EDIT BUILD HDR^9.6"
^DIST(.404,1,40,0)="^.4044I^5^5"
^DIST(.404,1,40,1,0)="1^Edit a Build^1^"
^DIST(.404,1,40,1,2)="^^1,28^"
^DIST(.404,1,40,2,0)="2^Name^3^"
^DIST(.404,1,40,2,1)=".01"
^DIST(.404,1,40,2,2)="2,7^30^2,1"
^DIST(.404,1,40,2,4)="^^^1"
^DIST(.404,1,40,3,0)="3^PAGE   OF 5^1^"
^DIST(.404,1,40,3,2)="^^1,66"
^DIST(.404,1,40,4,0)="4^!M^1^"
^DIST(.404,1,40,4,.1)="S $P(Y,""-"",80)="""""
^DIST(.404,1,40,4,2)="^^3,1^"
^DIST(.404,1,40,5,0)="5^TYPE^3"
^DIST(.404,1,40,5,1)="2"
^DIST(.404,1,40,5,2)="2,51^14^2,45"
^DIST(.404,1,40,5,4)="^^^1"
^DIST(.404,1,40,"B",1,1)=""
^DIST(.404,1,40,"B",2,2)=""
^DIST(.404,1,40,"B",3,3)=""
^DIST(.404,1,40,"B",4,4)=""
^DIST(.404,1,40,"B",5,5)=""
^DIST(.404,1,40,"C","EDIT A BUILD",1)=""
^DIST(.404,1,40,"C","NAME",2)=""
^DIST(.404,1,40,"C","PAGE   OF 5",3)=""
^DIST(.404,1,40,"C","TYPE",5)=""
^DIST(.404,2,0)="XPD EDIT BUILD1^9.6"
^DIST(.404,2,12)=""
^DIST(.404,2,40,0)="^.4044I^19^13"
^DIST(.404,2,40,1,0)="2^Name^3^"
^DIST(.404,2,40,1,1)=".01"
^DIST(.404,2,40,1,2)="5,29^50^5,23"
^DIST(.404,2,40,5,0)="5^Environment Check Routine^3^"
^DIST(.404,2,40,5,1)="913"
^DIST(.404,2,40,5,2)="11,29^8^11,2"
^DIST(.404,2,40,6,0)="7^Post-Install Routine^3^"
^DIST(.404,2,40,6,1)="914"
^DIST(.404,2,40,6,2)="15,29^17^15,7"
^DIST(.404,2,40,7,0)="6^Pre-Install Routine^3^"
^DIST(.404,2,40,7,1)="916"
^DIST(.404,2,40,7,2)="13,29^17^13,8"
^DIST(.404,2,40,11,0)="4^Description^3^"
^DIST(.404,2,40,11,1)="3"
^DIST(.404,2,40,11,2)="9,29^1^9,16"
^DIST(.404,2,40,12,0)="1^1^1^"
^DIST(.404,2,40,12,2)="^^1,71^"
^DIST(.404,2,40,13,0)="3^Date Distributed^3"
^DIST(.404,2,40,13,1)=".02"
^DIST(.404,2,40,13,2)="7,29^11^7,11"
^DIST(.404,2,40,14,0)="8^Pre-Transportation Routine^3"
^DIST(.404,2,40,14,1)="900"
^DIST(.404,2,40,14,2)="17,29^17^17,1"
^DIST(.404,2,40,15,0)="11^Delete Routine^1"
^DIST(.404,2,40,15,2)="^^9,57"
^DIST(.404,2,40,16,0)="12^after install^1"
^DIST(.404,2,40,16,2)="^^10,58"
^DIST(.404,2,40,17,0)="13^Y/N^3"
^DIST(.404,2,40,17,1)="913.1"
^DIST(.404,2,40,17,2)="11,64^1^11,59"
^DIST(.404,2,40,17,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,2,40,18,0)="14^Y/N^3"
^DIST(.404,2,40,18,1)="916.1"
^DIST(.404,2,40,18,2)="13,64^1^13,59"
^DIST(.404,2,40,18,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,2,40,19,0)="15^Y/N^3"
^DIST(.404,2,40,19,1)="914.1"
^DIST(.404,2,40,19,2)="15,64^1^15,59"
^DIST(.404,2,40,19,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,2,40,"B",1,12)=""
^DIST(.404,2,40,"B",2,1)=""
^DIST(.404,2,40,"B",3,13)=""
^DIST(.404,2,40,"B",4,11)=""
^DIST(.404,2,40,"B",5,5)=""
^DIST(.404,2,40,"B",6,7)=""
^DIST(.404,2,40,"B",7,6)=""
^DIST(.404,2,40,"B",8,14)=""
^DIST(.404,2,40,"B",11,15)=""
^DIST(.404,2,40,"B",12,16)=""
^DIST(.404,2,40,"B",13,17)=""
^DIST(.404,2,40,"B",14,18)=""
^DIST(.404,2,40,"B",15,19)=""
^DIST(.404,2,40,"C",1,12)=""
^DIST(.404,2,40,"C","AFTER INSTALL",16)=""
^DIST(.404,2,40,"C","DATE DISTRIBUTED",13)=""
^DIST(.404,2,40,"C","DELETE ROUTINE",15)=""
^DIST(.404,2,40,"C","DESCRIPTION",11)=""
^DIST(.404,2,40,"C","ENVIRONMENT CHECK ROUTINE",5)=""
^DIST(.404,2,40,"C","NAME",1)=""
^DIST(.404,2,40,"C","POST-INSTALL ROUTINE",6)=""
^DIST(.404,2,40,"C","PRE-INSTALL ROUTINE",7)=""
^DIST(.404,2,40,"C","PRE-TRANSPORTATION ROUTINE",14)=""
^DIST(.404,2,40,"C","Y/N",17)=""
^DIST(.404,2,40,"C","Y/N",18)=""
^DIST(.404,2,40,"C","Y/N",19)=""
^DIST(.404,3,0)="XPD EDIT BUILD2^9.6"
^DIST(.404,3,12)=""
^DIST(.404,3,40,0)="^.4044I^2^2"
^DIST(.404,3,40,1,0)="99^3^1^"
^DIST(.404,3,40,1,2)="^^1,71^"
^DIST(.404,3,40,2,0)="2^Build Components^1^"
^DIST(.404,3,40,2,2)="^^4,28^1"
^DIST(.404,3,40,"B",2,2)=""
^DIST(.404,3,40,"B",99,1)=""
^DIST(.404,3,40,"C",3,1)=""
^DIST(.404,3,40,"C","BUILD COMPONENTS",2)=""
^DIST(.404,4,0)="XPD EDIT BUILD3^9.68"
^DIST(.404,4,40,0)="^.4044I^2^2"
^DIST(.404,4,40,1,0)="1^^3^"
^DIST(.404,4,40,1,1)=".01"
^DIST(.404,4,40,1,2)="1,2^45"
^DIST(.404,4,40,2,0)="2^^3"
^DIST(.404,4,40,2,1)=".03"
^DIST(.404,4,40,2,2)="1,50^26"
^DIST(.404,4,40,2,3)="SEND TO SITE"
^DIST(.404,4,40,2,4)="1"
^DIST(.404,4,40,"B",1,1)=""
^DIST(.404,4,40,"B",2,2)=""
^DIST(.404,5,0)="XPD EDIT BUILD4^9.64"
^DIST(.404,5,40,0)="^.4044I^18^7"
^DIST(.404,5,40,1,0)="1^ DD Export Options ^1^"
^DIST(.404,5,40,1,2)="^^1,27^1"
^DIST(.404,5,40,2,0)="2^File^3^"
^DIST(.404,5,40,2,1)=".01"
^DIST(.404,5,40,2,2)="3,30^45^3,24"
^DIST(.404,5,40,7,0)="7^Data Comes With File...^3^"
^DIST(.404,5,40,7,1)="222.7"
^DIST(.404,5,40,7,2)="12,33^3^12,8"
^DIST(.404,5,40,7,3)="NO"
^DIST(.404,5,40,7,10)="S:X=""y"" DDSSTACK=13"
^DIST(.404,5,40,7,13)="D:X=""y"" PUT^DDSVAL(DIE,.DA,222.3,""f"","""",""I"")"
^DIST(.404,5,40,13,0)="6^Screen to Determine DD Update^3"
^DIST(.404,5,40,13,1)="223"
^DIST(.404,5,40,13,2)="10,2^76^9,2^1"
^DIST(.404,5,40,14,0)="5^Send Security Code^3"
^DIST(.404,5,40,14,1)="222.2"
^DIST(.404,5,40,14,2)="7,62^3^7,42"
^DIST(.404,5,40,14,3)="YES"
^DIST(.404,5,40,16,0)="4^Update the Data Dictionary^3"
^DIST(.404,5,40,16,1)="222.1"
^DIST(.404,5,40,16,2)="7,30^3^7,2"
^DIST(.404,5,40,16,3)="YES"
^DIST(.404,5,40,18,0)="3^Send Full or Partial DD...^3"
^DIST(.404,5,40,18,1)="222.3"
^DIST(.404,5,40,18,2)="5,33^7^5,5"
^DIST(.404,5,40,18,3)="FULL"
^DIST(.404,5,40,18,10)="S:X=""p"" DDSSTACK=11"
^DIST(.404,5,40,18,13)="D:X=""p"" PAR964^XPDET"
^DIST(.404,5,40,"B",1,1)=""
^DIST(.404,5,40,"B",2,2)=""
^DIST(.404,5,40,"B",3,18)=""
^DIST(.404,5,40,"B",4,16)=""
^DIST(.404,5,40,"B",5,14)=""
^DIST(.404,5,40,"B",6,13)=""
^DIST(.404,5,40,"B",7,7)=""
^DIST(.404,5,40,"C"," DD EXPORT OPTIONS ",1)=""
^DIST(.404,5,40,"C","DATA COMES WITH FILE...",7)=""
^DIST(.404,5,40,"C","FILE",2)=""
^DIST(.404,5,40,"C","SCREEN TO DETERMINE DD UPDATE",13)=""
^DIST(.404,5,40,"C","SEND FULL OR PARTIAL DD...",18)=""
^DIST(.404,5,40,"C","SEND SECURITY CODE",14)=""
^DIST(.404,5,40,"C","UPDATE THE DATA DICTIONARY",16)=""
^DIST(.404,6,0)="XPD EDIT BUILD5^9.402"
^DIST(.404,6,40,0)="^.4044I^4^4"
^DIST(.404,6,40,1,0)="1^ Affects Record Merge ^1^"
^DIST(.404,6,40,1,2)="^^1,23^1"
^DIST(.404,6,40,2,0)="2^File Affected^3^"
^DIST(.404,6,40,2,1)=".01"
^DIST(.404,6,40,2,2)="3,16^45^3,1"
^DIST(.404,6,40,3,0)="3^Name of Merge Routine^3^"
^DIST(.404,6,40,3,1)="3"
^DIST(.404,6,40,3,2)="5,24^8^5,1"
^DIST(.404,6,40,4,0)="4^Record has Package Data^3^"
^DIST(.404,6,40,4,1)="4"
^DIST(.404,6,40,4,2)="10,1^70^8,21^1"
^DIST(.404,6,40,"B",1,1)=""
^DIST(.404,6,40,"B",2,2)=""
^DIST(.404,6,40,"B",3,3)=""
^DIST(.404,6,40,"B",4,4)=""
^DIST(.404,6,40,"C"," AFFECTS RECORD MERGE ",1)=""
^DIST(.404,6,40,"C","FILE AFFECTED",2)=""
^DIST(.404,6,40,"C","NAME OF MERGE ROUTINE",3)=""
^DIST(.404,6,40,"C","RECORD HAS PACKAGE DATA",4)=""
^DIST(.404,7,0)="XPD EDIT BUILD6^9.4"
^DIST(.404,7,11)="I $G(XPDBR) S DDSBR=""COM"" K XPDBR"
^DIST(.404,7,40,0)="^.4044I^5^2"
^DIST(.404,7,40,2,0)="2^Select Affects Record Merge^3^"
^DIST(.404,7,40,2,1)="20"
^DIST(.404,7,40,2,2)="5,31^30^5,2"
^DIST(.404,7,40,5,0)="1^Primary Help Frame^3"
^DIST(.404,7,40,5,1)="12"
^DIST(.404,7,40,5,2)="3,31^30^3,11"
^DIST(.404,7,40,"B",1,5)=""
^DIST(.404,7,40,"B",2,2)=""
^DIST(.404,7,40,"C","AFFECTS RECORD MERGE",2)=""
^DIST(.404,7,40,"C","PRIMARY HELP FRAME",5)=""
^DIST(.404,8,0)="XPD EDIT BUILD7^9.62"
^DIST(.404,8,40,0)="^.4044I^10^10"
^DIST(.404,8,40,1,0)="2^Name^3^"
^DIST(.404,8,40,1,1)=".01"
^DIST(.404,8,40,1,2)="2,12^30^2,6"
^DIST(.404,8,40,2,0)="3^DIR(0)^3^"
^DIST(.404,8,40,2,1)="1"
^DIST(.404,8,40,2,2)="4,12^65^4,4"
^DIST(.404,8,40,3,0)="4^DIR(A)^3^"
^DIST(.404,8,40,3,1)="2"
^DIST(.404,8,40,3,2)="6,12^65^6,4"
^DIST(.404,8,40,4,0)="5^DIR(A,#)^3^"
^DIST(.404,8,40,4,1)="3"
^DIST(.404,8,40,4,2)="7,12^1^7,2"
^DIST(.404,8,40,5,0)="6^DIR(B)^3^"
^DIST(.404,8,40,5,1)="4"
^DIST(.404,8,40,5,2)="9,12^65^9,4"
^DIST(.404,8,40,6,0)="7^DIR(?)^3^"
^DIST(.404,8,40,6,1)="5"
^DIST(.404,8,40,6,2)="11,12^65^11,4"
^DIST(.404,8,40,7,0)="8^DIR(?,#)^3^"
^DIST(.404,8,40,7,1)="6"
^DIST(.404,8,40,7,2)="12,12^1^12,2"
^DIST(.404,8,40,8,0)="9^DIR(??)^3^"
^DIST(.404,8,40,8,1)="7"
^DIST(.404,8,40,8,2)="13,12^64^13,3"
^DIST(.404,8,40,9,0)="10^M Code^3"
^DIST(.404,8,40,9,1)="10"
^DIST(.404,8,40,9,2)="15,12^65^15,4"
^DIST(.404,8,40,10,0)="1^ Install Questions ^1^"
^DIST(.404,8,40,10,2)="^^1,27^1"
^DIST(.404,8,40,"B",1,10)=""
^DIST(.404,8,40,"B",2,1)=""
^DIST(.404,8,40,"B",3,2)=""
^DIST(.404,8,40,"B",4,3)=""
^DIST(.404,8,40,"B",5,4)=""
^DIST(.404,8,40,"B",6,5)=""
^DIST(.404,8,40,"B",7,6)=""
^DIST(.404,8,40,"B",8,7)=""
^DIST(.404,8,40,"B",9,8)=""
^DIST(.404,8,40,"B",10,9)=""
^DIST(.404,8,40,"C"," INSTALL QUESTIONS ",10)=""
^DIST(.404,8,40,"C","DIR(0)",2)=""
^DIST(.404,8,40,"C","DIR(?)",6)=""
^DIST(.404,8,40,"C","DIR(?,#)",7)=""
^DIST(.404,8,40,"C","DIR(??)",8)=""
^DIST(.404,8,40,"C","DIR(A)",3)=""
^DIST(.404,8,40,"C","DIR(A,#)",4)=""
^DIST(.404,8,40,"C","DIR(B)",5)=""
^DIST(.404,8,40,"C","M CODE",9)=""
^DIST(.404,8,40,"C","NAME",1)=""
^DIST(.404,9,0)="XPD EDIT BUILD31^9.67"
^DIST(.404,9,40,0)="^.4044I^1^1"
^DIST(.404,9,40,1,0)="1^!M^1^"
^DIST(.404,9,40,1,.1)="S Y="" ""_$P($G(^DIC(D1,0)),U)_"" """
^DIST(.404,9,40,1,2)="^^1,27^"
^DIST(.404,9,40,"B",1,1)=""
^DIST(.404,10,0)="XPD EDIT BUILD8^9.6"
^DIST(.404,10,11)=""
^DIST(.404,10,40,0)="^.4044I^1^1"
^DIST(.404,10,40,1,0)="1^Alpha/Beta Testing...^3"
^DIST(.404,10,40,1,1)="20"
^DIST(.404,10,40,1,2)="2,31^3^2,8"
^DIST(.404,10,40,1,3)="NO"
^DIST(.404,10,40,1,10)="S:X=""y"" DDSSTACK=""9"""
^DIST(.404,10,40,"B",1,1)=""
^DIST(.404,10,40,"C","ALPHA/BETA TESTING...",1)=""
^DIST(.404,11,0)="XPD EDIT BUILD9^9.6"
^DIST(.404,11,40,0)="^.4044I^5^4"
^DIST(.404,11,40,1,0)="2^Installation Message^3"
^DIST(.404,11,40,1,1)="21"
^DIST(.404,11,40,1,2)="3,30^3^3,8"
^DIST(.404,11,40,1,3)="NO"
^DIST(.404,11,40,2,0)="3^Address for Usage Reporting^3"
^DIST(.404,11,40,2,1)="22"
^DIST(.404,11,40,2,2)="5,30^44^5,1"
^DIST(.404,11,40,4,0)="1^ Alpha/Beta Testing ^1^"
^DIST(.404,11,40,4,2)="^^1,26^1"
^DIST(.404,11,40,5,0)="4^Package Namespace or Prefix:^1"
^DIST(.404,11,40,5,2)="^^7,1"
^DIST(.404,11,40,"B",1,4)=""
^DIST(.404,11,40,"B",2,1)=""
^DIST(.404,11,40,"B",3,2)=""
^DIST(.404,11,40,"B",4,5)=""
^DIST(.404,11,40,"C"," ALPHA/BETA TESTING ",4)=""
^DIST(.404,11,40,"C","ADDRESS FOR USAGE REPORTING",2)=""
^DIST(.404,11,40,"C","INSTALLATION MESSAGE",1)=""
^DIST(.404,11,40,"C","PACKAGE NAMESPACE OR PREFIX:",5)=""
^DIST(.404,12,0)="XPD EDIT BUILD10^9.66"
^DIST(.404,12,40,0)="^.4044I^1^1"
^DIST(.404,12,40,1,0)="1^ Exclude Namespace or Prefix ^1"
^DIST(.404,12,40,1,2)="^^1,20^1"
^DIST(.404,12,40,"B",1,1)=""
^DIST(.404,12,40,"C"," EXCLUDE NAMESPACE OR PREFIX ",1)=""
^DIST(.404,13,0)="XPD EDIT BUILD30^9.67"
^DIST(.404,13,40,0)="^.4044I^2^2"
^DIST(.404,13,40,1,0)="1^^3"
^DIST(.404,13,40,1,1)=".01"
^DIST(.404,13,40,1,2)="2,1^24"
^DIST(.404,13,40,1,4)="^^^2"
^DIST(.404,13,40,1,10)="S DDSSTACK=3"
^DIST(.404,13,40,2,0)="2^^4"
^DIST(.404,13,40,2,2)="2,27^5"
^DIST(.404,13,40,2,4)="^^1"
^DIST(.404,13,40,2,30)="S Y=""(""_+$P($G(^XPD(9.6,DA(1),""KRN"",DA,""NM"",0)),U,4)_"")"""
^DIST(.404,13,40,"B",1,1)=""
^DIST(.404,13,40,"B",2,2)=""
^DIST(.404,14,0)="XPD EDIT BUILD40^9.64"
^DIST(.404,14,40,0)="^.4044I^1^1"
^DIST(.404,14,40,1,0)="1^^3"
^DIST(.404,14,40,1,1)=".01"
^DIST(.404,14,40,1,2)="2,7^45"
^DIST(.404,14,40,1,10)="S DDSSTACK=7"
^DIST(.404,14,40,"B",1,1)=""
^DIST(.404,15,0)="XPD EDIT BUILD41^9.6"
^DIST(.404,15,40,0)="^.4044I^3^2"
^DIST(.404,15,40,1,0)="1^2^1^"
^DIST(.404,15,40,1,2)="^^1,71^"
^DIST(.404,15,40,3,0)="2^File List  (Name or Number)^1"
^DIST(.404,15,40,3,2)="^^4,28"
^DIST(.404,15,40,"B",1,1)=""
^DIST(.404,15,40,"B",2,3)=""
^DIST(.404,15,40,"C",2,1)=""
^DIST(.404,15,40,"C","FILE LIST  (NAME OR NUMBER)",3)=""
^DIST(.404,16,0)="XPD EDIT BUILD42^9.641"
^DIST(.404,16,40,0)="^.4044I^1^1"
^DIST(.404,16,40,1,0)="1^^3"
^DIST(.404,16,40,1,1)=".01"
^DIST(.404,16,40,1,2)="1,1^45"
^DIST(.404,16,40,1,10)="S DDSSTACK=12"
^DIST(.404,16,40,"B",1,1)=""
^DIST(.404,17,0)="XPD EDIT BUILD43^9.6411"
^DIST(.404,17,40,0)="^.4044I^1^1"
^DIST(.404,17,40,1,0)="1^^3"
^DIST(.404,17,40,1,1)=".01"
^DIST(.404,17,40,1,2)="1,1^45"
^DIST(.404,17,40,"B",1,1)=""
^DIST(.404,18,0)="XPD EDIT BUILD44^9.64"
^DIST(.404,18,40,0)="^.4044I^1^1"
^DIST(.404,18,40,1,0)="1^ Data Dictionary Number ^1^"
^DIST(.404,18,40,1,2)="^^1,24^1"
^DIST(.404,18,40,"B",1,1)=""
^DIST(.404,18,40,"C"," DATA DICTIONARY NUMBER ",1)=""
^DIST(.404,19,0)="XPD EDIT BUILD45^9.641"
^DIST(.404,19,40,0)="^.4044I^1^1"
^DIST(.404,19,40,1,0)="1^ Field Number ^1^"
^DIST(.404,19,40,1,2)="^^1,24^1"
^DIST(.404,19,40,"B",1,1)=""
^DIST(.404,19,40,"C"," FIELD NUMBER ",1)=""
^DIST(.404,20,0)="XPD EDIT BUILD46^9.64"
^DIST(.404,20,40,0)="^.4044I^7^6"
^DIST(.404,20,40,1,0)="1^ Data Export Options ^1^"
^DIST(.404,20,40,1,2)="^^1,29^1"
^DIST(.404,20,40,2,0)="2^Site's Data^3"
^DIST(.404,20,40,2,1)="222.8"
^DIST(.404,20,40,2,2)="3,21^15^3,8"
^DIST(.404,20,40,2,3)="OVERWRITE"
^DIST(.404,20,40,3,0)="5^Data List^3"
^DIST(.404,20,40,3,1)="222.6"
^DIST(.404,20,40,3,2)="7,21^30^7,10"
^DIST(.404,20,40,4,0)="3^Resolve Pointers^3"
^DIST(.404,20,40,4,1)="222.5"
^DIST(.404,20,40,4,2)="5,21^3^5,3"
^DIST(.404,20,40,4,3)="NO"
^DIST(.404,20,40,5,0)="4^May User Override Data Update^3"
^DIST(.404,20,40,5,1)="222.9"
^DIST(.404,20,40,5,2)="5,68^3^5,37"
^DIST(.404,20,40,5,3)="NO"
^DIST(.404,20,40,7,0)="6^Screen to Select Data^3"
^DIST(.404,20,40,7,1)="224"
^DIST(.404,20,40,7,2)="10,3^72^9,3^1"
^DIST(.404,20,40,"B",1,1)=""
^DIST(.404,20,40,"B",2,2)=""
^DIST(.404,20,40,"B",3,4)=""
^DIST(.404,20,40,"B",4,5)=""
^DIST(.404,20,40,"B",5,3)=""
^DIST(.404,20,40,"B",6,7)=""
^DIST(.404,20,40,"C"," DATA EXPORT OPTIONS ",1)=""
^DIST(.404,20,40,"C","DATA LIST",3)=""
^DIST(.404,20,40,"C","MAY USER OVERRIDE DATA UPDATE",5)=""
^DIST(.404,20,40,"C","RESOLVE POINTERS",4)=""
^DIST(.404,20,40,"C","SCREEN TO SELECT DATA",7)=""
^DIST(.404,20,40,"C","SITE'S DATA",2)=""
^DIST(.404,21,0)="XPD EDIT BUILD11^9.6"
^DIST(.404,21,40,0)="^.4044I^5^5"
^DIST(.404,21,40,1,0)="1^4^1^"
^DIST(.404,21,40,1,2)="^^1,71^"
^DIST(.404,21,40,2,0)="3^Package File Link...^3"
^DIST(.404,21,40,2,1)="1"
^DIST(.404,21,40,2,2)="15,27^30^15,5"
^DIST(.404,21,40,2,10)="S:X]"""" DDSSTACK=8"
^DIST(.404,21,40,3,0)="4^Track Package Nationally^3"
^DIST(.404,21,40,3,1)="5"
^DIST(.404,21,40,3,2)="17,27^3^17,1"
^DIST(.404,21,40,3,3)="NO"
^DIST(.404,21,40,3,11)="S:$$GET^DDSVAL(DIE,.DA,1)="""" DDSBR=""^^COM"""
^DIST(.404,21,40,4,0)="2^Install Questions^1^"
^DIST(.404,21,40,4,2)="^^4,28^1"
^DIST(.404,21,40,5,0)="5^Required Builds^1"
^DIST(.404,21,40,5,2)="^^9,28"
^DIST(.404,21,40,"B",1,1)=""
^DIST(.404,21,40,"B",2,4)=""
^DIST(.404,21,40,"B",3,2)=""
^DIST(.404,21,40,"B",4,3)=""
^DIST(.404,21,40,"B",5,5)=""
^DIST(.404,21,40,"C",4,1)=""
^DIST(.404,21,40,"C","INSTALL QUESTIONS",4)=""
^DIST(.404,21,40,"C","PACKAGE FILE LINK...",2)=""
^DIST(.404,21,40,"C","REQUIRED BUILDS",5)=""
^DIST(.404,21,40,"C","TRACK PACKAGE NATIONALLY",3)=""
^DIST(.404,22,0)="XPD EDIT BUILD12^9.62"
^DIST(.404,22,40,0)="^.4044I^1^1"
^DIST(.404,22,40,1,0)="1^^3"
^DIST(.404,22,40,1,1)=".01"
^DIST(.404,22,40,1,2)="1,3^30"
^DIST(.404,22,40,1,10)="S DDSSTACK=15"
^DIST(.404,22,40,"B",1,1)=""
^DIST(.404,23,0)="XPD EDIT BUILD60^9.6"
^DIST(.404,23,40,0)="^.4044I^3^3"
^DIST(.404,23,40,1,0)="1^ Edit PACKAGE File ^1^"
^DIST(.404,23,40,1,2)="^^1,26^1"
^DIST(.404,23,40,2,0)="2^Name^3"
^DIST(.404,23,40,2,1)=".01"
^DIST(.404,23,40,2,2)="2,8^30^2,2"
^DIST(.404,23,40,3,0)="3^!M^1^"
^DIST(.404,23,40,3,.1)="S $P(Y,""-"",76)="""""
^DIST(.404,23,40,3,2)="^^3,1^"
^DIST(.404,23,40,"B",1,1)=""
^DIST(.404,23,40,"B",2,2)=""
^DIST(.404,23,40,"B",3,3)=""
^DIST(.404,23,40,"C"," EDIT PACKAGE FILE ",1)=""
^DIST(.404,23,40,"C","NAME",2)=""
^DIST(.404,24,0)="XPD EDIT BUILD9A^9.66"
^DIST(.404,24,40,0)="^.4044I^1^1"
^DIST(.404,24,40,1,0)="1^^3"
^DIST(.404,24,40,1,1)=".01"
^DIST(.404,24,40,1,2)="2,2^4"
^DIST(.404,24,40,1,10)="S DDSSTACK=10"
^DIST(.404,24,40,"B",1,1)=""
^DIST(.404,25,0)="XPD EDIT BUILD10A^9.661"
^DIST(.404,25,40,0)="^.4044I^1^1"
^DIST(.404,25,40,1,0)="1^^3"
^DIST(.404,25,40,1,1)=".01"
^DIST(.404,25,40,1,2)="1,2^4"
^DIST(.404,25,40,"B",1,1)=""
^DIST(.404,26,0)="XUEDIT CHARACTERISTICS HDR^200^0^^"
^DIST(.404,26,40,0)="^.4044I^4^4"
^DIST(.404,26,40,1,0)="1^EDIT USER CHARACTERISTICS^1^"
^DIST(.404,26,40,1,2)="^^1,28^"
^DIST(.404,26,40,2,0)="2^NAME^3^"
^DIST(.404,26,40,2,1)=".01"
^DIST(.404,26,40,2,2)="2,7^30^2,1"
^DIST(.404,26,40,2,11)=""
^DIST(.404,26,40,3,0)="3^PAGE 1 OF 1^1^"
^DIST(.404,26,40,3,2)="^^2,69^"
^DIST(.404,26,40,4,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,26,40,4,2)="^^3,1^"
^DIST(.404,26,40,"B",1,1)=""
^DIST(.404,26,40,"B",2,2)=""
^DIST(.404,26,40,"B",3,3)=""
^DIST(.404,26,40,"B",4,4)=""
^DIST(.404,26,40,"C","EDIT USER CHARACTERISTICS",1)=""
^DIST(.404,26,40,"C","NAME",2)=""
^DIST(.404,26,40,"C","PAGE 1 OF 1",3)=""
^DIST(.404,26,40,"C","_______________________________________________________________",4)=""
^DIST(.404,27,0)="XUEDIT CHARACTERISTICS^200^^^"
^DIST(.404,27,15,0)="1^^1^1^2930813^^^^"
^DIST(.404,27,15,1,0)="Part of KERNEL."
^DIST(.404,27,40,0)="^.4044I^12^12"
^DIST(.404,27,40,1,0)="1^INITIAL^3"
^DIST(.404,27,40,1,1)="1"
^DIST(.404,27,40,1,2)="1,29^5^1,20"
^DIST(.404,27,40,1,11)="N T S T(1)=""To Exit form and save changes, enter: <PF1>E"",T(2)=""To Quit form without saving changes, enter: <PF1>Q"" D HLP^DDSUTL(.T)"
^DIST(.404,27,40,2,0)="2^NICK NAME^3"
^DIST(.404,27,40,2,1)="13"
^DIST(.404,27,40,2,2)="2,29^10^2,18"
^DIST(.404,27,40,3,0)="3^PHONE^3"
^DIST(.404,27,40,3,1)=".131"
^DIST(.404,27,40,3,2)="1,62^15^1,55"
^DIST(.404,27,40,4,0)="4^OFFICE PHONE^3"
^DIST(.404,27,40,4,1)=".132"
^DIST(.404,27,40,4,2)="2,62^15^2,48"
^DIST(.404,27,40,5,0)="5^ASK DEVICE TYPE AT SIGN-ON^3"
^DIST(.404,27,40,5,1)="200.05"
^DIST(.404,27,40,5,2)="7,33^9^7,5"
^DIST(.404,27,40,6,0)="6^AUTO MENU^3"
^DIST(.404,27,40,6,1)="200.06"
^DIST(.404,27,40,6,2)="8,33^20^8,22"
^DIST(.404,27,40,7,0)="7^TYPE-AHEAD^3"
^DIST(.404,27,40,7,1)="200.09"
^DIST(.404,27,40,7,2)="9,33^11^9,21"
^DIST(.404,27,40,8,0)="8^TEXT TERMINATOR^3"
^DIST(.404,27,40,8,1)="31.2"
^DIST(.404,27,40,8,2)="10,33^5^10,16"
^DIST(.404,27,40,9,0)="9^PREFERRED EDITOR^3"
^DIST(.404,27,40,9,1)="31.3"
^DIST(.404,27,40,9,2)="11,33^30^11,15"
^DIST(.404,27,40,10,0)="10^Want to edit VERIFY CODE (Y/N)^3"
^DIST(.404,27,40,10,1)="11.1"
^DIST(.404,27,40,10,2)="13,33^3^13,1"
^DIST(.404,27,40,11,0)="11^VOICE PAGER^3"
^DIST(.404,27,40,11,1)=".137"
^DIST(.404,27,40,11,2)="3,62^15^3,49"
^DIST(.404,27,40,12,0)="12^DIGITAL PAGER^3"
^DIST(.404,27,40,12,1)=".138"
^DIST(.404,27,40,12,2)="4,62^15^4,47"
^DIST(.404,27,40,"B",1,1)=""
^DIST(.404,27,40,"B",2,2)=""
^DIST(.404,27,40,"B",3,3)=""
^DIST(.404,27,40,"B",4,4)=""
^DIST(.404,27,40,"B",5,5)=""
^DIST(.404,27,40,"B",6,6)=""
^DIST(.404,27,40,"B",7,7)=""
^DIST(.404,27,40,"B",8,8)=""
^DIST(.404,27,40,"B",9,9)=""
^DIST(.404,27,40,"B",10,10)=""
^DIST(.404,27,40,"B",11,11)=""
^DIST(.404,27,40,"B",12,12)=""
^DIST(.404,27,40,"C","ASK DEVICE TYPE AT SIGN-ON",5)=""
^DIST(.404,27,40,"C","AUTO MENU",6)=""
^DIST(.404,27,40,"C","DIGITAL PAGER",12)=""
^DIST(.404,27,40,"C","INITIAL",1)=""
^DIST(.404,27,40,"C","NICK NAME",2)=""
^DIST(.404,27,40,"C","OFFICE PHONE",4)=""
^DIST(.404,27,40,"C","PHONE",3)=""
^DIST(.404,27,40,"C","PREFERRED EDITOR",9)=""
^DIST(.404,27,40,"C","TEXT TERMINATOR",8)=""
^DIST(.404,27,40,"C","TYPE-AHEAD",7)=""
^DIST(.404,27,40,"C","VOICE PAGER",11)=""
^DIST(.404,27,40,"C","WANT TO EDIT VERIFY CODE (Y/N)",10)=""
^DIST(.404,28,0)="XUEXISTING USER 1^200^^^"
^DIST(.404,28,40,0)="^.4044I^21^19"
^DIST(.404,28,40,1,0)="2^NAME...^3"
^DIST(.404,28,40,1,1)=".01"
^DIST(.404,28,40,1,2)="3,12^35^3,4^1"
^DIST(.404,28,40,1,10)="S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"""
^DIST(.404,28,40,1,11)="S XUITNAME=1 D:'$D(XLFCOMP) HLP^DDSUTL("" *** Press <RET> to edit the component parts of this name. ***"") I $D(XLFCOMP) S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"" K XLFCOMP"
^DIST(.404,28,40,1,13)="S XLFNDA=DA,XLFNAME=X,DDSBR=""GIVEN^^1.3"",XLFNCHG=1"
^DIST(.404,28,40,2,0)="4^TITLE^3^^F4"
^DIST(.404,28,40,2,1)="8"
^DIST(.404,28,40,2,2)="4,12^30^4,5"
^DIST(.404,28,40,3,0)="3^INITIAL^3"
^DIST(.404,28,40,3,1)="1"
^DIST(.404,28,40,3,2)="3,65^5^3,56"
^DIST(.404,28,40,4,0)="5^NICK NAME^3"
^DIST(.404,28,40,4,1)="13"
^DIST(.404,28,40,4,2)="4,65^10^4,54"
^DIST(.404,28,40,5,0)="13^PRIMARY MENU OPTION^3^"
^DIST(.404,28,40,5,1)="201"
^DIST(.404,28,40,5,2)="10,33^30^10,12"
^DIST(.404,28,40,6,0)="14^Select SECONDARY MENU OPTIONS^3"
^DIST(.404,28,40,6,1)="203"
^DIST(.404,28,40,6,2)="11,33^30^11,2"
^DIST(.404,28,40,6,7)="^1.1"
^DIST(.404,28,40,7,0)="15^Want to edit ACCESS CODE (Y/N)^3"
^DIST(.404,28,40,7,1)="2.1"
^DIST(.404,28,40,7,2)="12,33^3^12,1"
^DIST(.404,28,40,8,0)="17^Want to edit VERIFY CODE (Y/N)^3"
^DIST(.404,28,40,8,1)="11.1"
^DIST(.404,28,40,8,2)="13,33^3^13,1"
^DIST(.404,28,40,8,11)="I $L($$GET^DDSVAL(200,.DA,11,,""I"")) D EN^DDIOL(""For the user to sign-on they must have a Verify Code."")"
^DIST(.404,28,40,9,0)="16^FILE MANAGER ACCESS CODE^3"
^DIST(.404,28,40,9,1)="3"
^DIST(.404,28,40,9,2)="12,65^15^12,39"
^DIST(.404,28,40,12,0)="18^Select DIVISION^3"
^DIST(.404,28,40,12,1)="16"
^DIST(.404,28,40,12,2)="15,33^30^15,16"
^DIST(.404,28,40,12,7)="^1.2"
^DIST(.404,28,40,13,0)="19^SERVICE/SECTION^3^^"
^DIST(.404,28,40,13,1)="29"
^DIST(.404,28,40,13,2)="16,33^30^16,16"
^DIST(.404,28,40,14,0)="9^MAIL CODE^3"
^DIST(.404,28,40,14,1)="28"
^DIST(.404,28,40,14,2)="6,65^10^6,54"
^DIST(.404,28,40,15,0)="1^1^1^"
^DIST(.404,28,40,15,2)="^^1,74"
^DIST(.404,28,40,16,0)="6^SSN^3^^F1"
^DIST(.404,28,40,16,1)="9"
^DIST(.404,28,40,16,2)="5,12^9^5,7"
^DIST(.404,28,40,17,0)="8^DEGREE^3^^F8"
^DIST(.404,28,40,17,1)="10.6"
^DIST(.404,28,40,17,2)="6,12^10^6,4"
^DIST(.404,28,40,18,0)="10^DISUSER^3"
^DIST(.404,28,40,18,1)="7"
^DIST(.404,28,40,18,2)="7,12^3^7,3"
^DIST(.404,28,40,19,0)="11^TERMINATION DATE^3"
^DIST(.404,28,40,19,1)="9.2"
^DIST(.404,28,40,19,2)="7,66^11^7,48"
^DIST(.404,28,40,20,0)="12^Termination Reason^3"
^DIST(.404,28,40,20,1)="9.4"
^DIST(.404,28,40,20,2)="8,23^45^8,3"
^DIST(.404,28,40,21,0)="7^DOB^3^^F2"
^DIST(.404,28,40,21,1)="5"
^DIST(.404,28,40,21,2)="5,65^11^5,60"
^DIST(.404,28,40,"B",1,15)=""
^DIST(.404,28,40,"B",2,1)=""
^DIST(.404,28,40,"B",3,3)=""
^DIST(.404,28,40,"B",4,2)=""
^DIST(.404,28,40,"B",5,4)=""
^DIST(.404,28,40,"B",6,16)=""
^DIST(.404,28,40,"B",7,21)=""
^DIST(.404,28,40,"B",8,17)=""
^DIST(.404,28,40,"B",9,14)=""
^DIST(.404,28,40,"B",10,18)=""
^DIST(.404,28,40,"B",11,19)=""
^DIST(.404,28,40,"B",12,20)=""
^DIST(.404,28,40,"B",13,5)=""
^DIST(.404,28,40,"B",14,6)=""
^DIST(.404,28,40,"B",15,7)=""
^DIST(.404,28,40,"B",16,9)=""
^DIST(.404,28,40,"B",17,8)=""
^DIST(.404,28,40,"B",18,12)=""
^DIST(.404,28,40,"B",19,13)=""
^DIST(.404,28,40,"C",1,15)=""
^DIST(.404,28,40,"C","DEGREE",17)=""
^DIST(.404,28,40,"C","DISUSER",18)=""
^DIST(.404,28,40,"C","DIVISION",12)=""
^DIST(.404,28,40,"C","DOB",21)=""
^DIST(.404,28,40,"C","FILE MANAGER ACCESS CODE",9)=""
^DIST(.404,28,40,"C","INITIAL",3)=""
^DIST(.404,28,40,"C","MAIL CODE",14)=""
^DIST(.404,28,40,"C","NAME...",1)=""
^DIST(.404,28,40,"C","NICK NAME",4)=""
^DIST(.404,28,40,"C","PRIMARY MENU OPTION",5)=""
^DIST(.404,28,40,"C","SECONDARY MENU OPTIONS",6)=""
^DIST(.404,28,40,"C","SERVICE/SECTION",13)=""
^DIST(.404,28,40,"C","SSN",16)=""
^DIST(.404,28,40,"C","TERMINATION DATE",19)=""
^DIST(.404,28,40,"C","TERMINATION REASON",20)=""
^DIST(.404,28,40,"C","TITLE",2)=""
^DIST(.404,28,40,"C","WANT TO EDIT ACCESS CODE (Y/N)",7)=""
^DIST(.404,28,40,"C","WANT TO EDIT VERIFY CODE (Y/N)",8)=""
^DIST(.404,28,40,"D","F1",16)=""
^DIST(.404,28,40,"D","F2",21)=""
^DIST(.404,28,40,"D","F4",2)=""
^DIST(.404,28,40,"D","F8",17)=""
^DIST(.404,29,0)="XUEXISTING USER 2^200^^^"
^DIST(.404,29,40,0)="^.4044I^18^15"
^DIST(.404,29,40,1,0)="2^TIMED READ (# OF SECONDS)^3"
^DIST(.404,29,40,1,1)="200.1"
^DIST(.404,29,40,1,2)="4,31^5^4,4"
^DIST(.404,29,40,2,0)="3^MULTIPLE SIGN-ON^3"
^DIST(.404,29,40,2,1)="200.04"
^DIST(.404,29,40,2,2)="6,31^11^6,13"
^DIST(.404,29,40,2,11)="D EN^DDIOL(""If you select 'Only one IP' be sure to put a value into the MULTIPLE SIGN-ON LIMIT field so users can sign-on at least once."")"
^DIST(.404,29,40,3,0)="5.2^AUTO MENU^3"
^DIST(.404,29,40,3,1)="200.06"
^DIST(.404,29,40,3,2)="7,60^20^7,49"
^DIST(.404,29,40,4,0)="5^ASK DEVICE TYPE AT SIGN-ON^3"
^DIST(.404,29,40,4,1)="200.05"
^DIST(.404,29,40,4,2)="7,31^9^7,3"
^DIST(.404,29,40,5,0)="6^TYPE-AHEAD^3"
^DIST(.404,29,40,5,1)="200.09"
^DIST(.404,29,40,5,2)="8,60^11^8,48"
^DIST(.404,29,40,6,0)="7^PROHIBITED TIMES FOR SIGN-ON^3"
^DIST(.404,29,40,6,1)="15"
^DIST(.404,29,40,6,2)="8,31^9^8,1"
^DIST(.404,29,40,7,0)="10^ALLOWED TO USE SPOOLER^3"
^DIST(.404,29,40,7,1)="41"
^DIST(.404,29,40,7,2)="12,31^3^12,7"
^DIST(.404,29,40,8,0)="12^CAN MAKE INTO A MAIL MESSAGE^3"
^DIST(.404,29,40,8,1)="41.2"
^DIST(.404,29,40,8,2)="13,31^3^13,1"
^DIST(.404,29,40,10,0)="13^FILE RANGE^3"
^DIST(.404,29,40,10,1)="31.1"
^DIST(.404,29,40,10,2)="15,31^30^15,19"
^DIST(.404,29,40,12,0)="14^ALWAYS SHOW SECONDARIES^3"
^DIST(.404,29,40,12,1)="200.11"
^DIST(.404,29,40,12,2)="16,31^3^16,6"
^DIST(.404,29,40,13,0)="1^2^1^"
^DIST(.404,29,40,13,2)="^^1,74^1"
^DIST(.404,29,40,14,0)="11^PAC^3"
^DIST(.404,29,40,14,1)="14"
^DIST(.404,29,40,14,2)="12,63^8^12,58"
^DIST(.404,29,40,16,0)="8^AUTO SIGN-ON^3"
^DIST(.404,29,40,16,1)="200.18"
^DIST(.404,29,40,16,2)="9,60^3^9,46"
^DIST(.404,29,40,17,0)="9^Preferred Editor^3"
^DIST(.404,29,40,17,1)="31.3"
^DIST(.404,29,40,17,2)="10,31^30^10,13"
^DIST(.404,29,40,17,3)="SCREEN EDITOR"
^DIST(.404,29,40,18,0)="3.2^MULTIPLE SIGN-ON LIMIT^3"
^DIST(.404,29,40,18,1)="200.19"
^DIST(.404,29,40,18,2)="6,70^3^6,46"
^DIST(.404,29,40,"B",1,13)=""
^DIST(.404,29,40,"B",2,1)=""
^DIST(.404,29,40,"B",3,2)=""
^DIST(.404,29,40,"B",3.2,18)=""
^DIST(.404,29,40,"B",5,4)=""
^DIST(.404,29,40,"B",5.2,3)=""
^DIST(.404,29,40,"B",6,5)=""
^DIST(.404,29,40,"B",7,6)=""
^DIST(.404,29,40,"B",8,16)=""
^DIST(.404,29,40,"B",9,17)=""
^DIST(.404,29,40,"B",10,7)=""
^DIST(.404,29,40,"B",11,14)=""
^DIST(.404,29,40,"B",12,8)=""
^DIST(.404,29,40,"B",13,10)=""
^DIST(.404,29,40,"B",14,12)=""
^DIST(.404,29,40,"C",2,13)=""
^DIST(.404,29,40,"C","ALLOWED TO USE SPOOLER",7)=""
^DIST(.404,29,40,"C","ALWAYS SHOW SECONDARIES",12)=""
^DIST(.404,29,40,"C","ASK DEVICE TYPE AT SIGN-ON",4)=""
^DIST(.404,29,40,"C","AUTO MENU",3)=""
^DIST(.404,29,40,"C","AUTO SIGN-ON",16)=""
^DIST(.404,29,40,"C","CAN MAKE INTO A MAIL MESSAGE",8)=""
^DIST(.404,29,40,"C","FILE RANGE",10)=""
^DIST(.404,29,40,"C","MULTIPLE SIGN-ON",2)=""
^DIST(.404,29,40,"C","MULTIPLE SIGN-ON LIMIT",18)=""
^DIST(.404,29,40,"C","PAC",14)=""
^DIST(.404,29,40,"C","PREFERRED EDITOR",17)=""
^DIST(.404,29,40,"C","PROHIBITED TIMES FOR SIGN-ON",6)=""
^DIST(.404,29,40,"C","TIMED READ (# OF SECONDS)",1)=""
^DIST(.404,29,40,"C","TYPE-AHEAD",5)=""
^DIST(.404,30,0)="XUEXISTING USER 3^200.03"
^DIST(.404,30,40,0)="^.4044I^3^3"
^DIST(.404,30,40,1,0)="1^SECONDARY MENU OPTIONS^1^"
^DIST(.404,30,40,1,2)="^^1,33^"
^DIST(.404,30,40,2,0)="2^SECONDARY MENU OPTIONS^3"
^DIST(.404,30,40,2,1)=".01"
^DIST(.404,30,40,2,2)="3,25^30^3,1"
^DIST(.404,30,40,3,0)="3^SYNONYM^3"
^DIST(.404,30,40,3,1)="2"
^DIST(.404,30,40,3,2)="4,25^4^4,16"
^DIST(.404,30,40,"B",1,1)=""
^DIST(.404,30,40,"B",2,2)=""
^DIST(.404,30,40,"B",3,3)=""
^DIST(.404,30,40,"C","SECONDARY MENU OPTIONS",1)=""
^DIST(.404,30,40,"C","SECONDARY MENU OPTIONS",2)=""
^DIST(.404,30,40,"C","SYNONYM",3)=""
^DIST(.404,31,0)="XUEXISTING USER 4^200.02"
^DIST(.404,31,40,0)="^.4044I^3^3"
^DIST(.404,31,40,1,0)="1^DIVISION^1^"
^DIST(.404,31,40,1,2)="^^1,33^"
^DIST(.404,31,40,2,0)="2^DIVISION^3"
^DIST(.404,31,40,2,1)=".01"
^DIST(.404,31,40,2,2)="3,11^30^3,1"
^DIST(.404,31,40,3,0)="3^DEFAULT^3"
^DIST(.404,31,40,3,1)="1"
^DIST(.404,31,40,3,2)="4,11^3^4,2"
^DIST(.404,31,40,"B",1,1)=""
^DIST(.404,31,40,"B",2,2)=""
^DIST(.404,31,40,"B",3,3)=""
^DIST(.404,31,40,"C","DEFAULT",3)=""
^DIST(.404,31,40,"C","DIVISION",1)=""
^DIST(.404,31,40,"C","DIVISION",2)=""
^DIST(.404,32,0)="XUDEVICE MT HDR^3.5"
^DIST(.404,32,40,0)="^.4044I^6^4"
^DIST(.404,32,40,1,0)="1^EDIT A MAGTAPE DEVICE^1^"
^DIST(.404,32,40,1,2)="^^1,30^"
^DIST(.404,32,40,2,0)="2^NAME^3"
^DIST(.404,32,40,2,1)=".01"
^DIST(.404,32,40,2,2)="2,7^30^2,1"
^DIST(.404,32,40,3,0)="3^PAGE   OF 1^1^"
^DIST(.404,32,40,3,2)="^^2,69^"
^DIST(.404,32,40,6,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,32,40,6,2)="^^3,1^"
^DIST(.404,32,40,"B",1,1)=""
^DIST(.404,32,40,"B",2,2)=""
^DIST(.404,32,40,"B",3,3)=""
^DIST(.404,32,40,"B",4,6)=""
^DIST(.404,32,40,"C","EDIT A MAGTAPE DEVICE",1)=""
^DIST(.404,32,40,"C","NAME",2)=""
^DIST(.404,32,40,"C","PAGE   OF 1",3)=""
^DIST(.404,32,40,"C","_______________________________________________________________",6)=""
^DIST(.404,33,0)="XUDEVICE MT^3.5"
^DIST(.404,33,15,0)="^^1^1^2921023^^^^"
^DIST(.404,33,15,1,0)="SAMPLE BLOCK"
^DIST(.404,33,40,0)="^.4044I^15^13"
^DIST(.404,33,40,1,0)="1^NAME^3"
^DIST(.404,33,40,1,1)=".01"
^DIST(.404,33,40,1,2)="5,7^30^5,1"
^DIST(.404,33,40,2,0)="2^LOCATION OF TERMINAL^3"
^DIST(.404,33,40,2,1)=".02"
^DIST(.404,33,40,2,2)="5,59^20^5,37"
^DIST(.404,33,40,3,0)="3^$I^3"
^DIST(.404,33,40,3,1)="1"
^DIST(.404,33,40,3,2)="6,7^30^6,3"
^DIST(.404,33,40,4,0)="4^VOLUME SET(CPU)^3"
^DIST(.404,33,40,4,1)="1.9"
^DIST(.404,33,40,4,2)="6,59^20^6,42"
^DIST(.404,33,40,5,0)="5^TYPE^3"
^DIST(.404,33,40,5,1)="2"
^DIST(.404,33,40,5,2)="7,7^20^7,1"
^DIST(.404,33,40,5,4)="^^^1"
^DIST(.404,33,40,6,0)="6^SIGN-ON/SYSTEM DEVICE^3"
^DIST(.404,33,40,6,1)="1.95"
^DIST(.404,33,40,6,2)="7,59^3^7,36"
^DIST(.404,33,40,7,0)="7^SUBTYPE^3"
^DIST(.404,33,40,7,1)="3"
^DIST(.404,33,40,7,2)="9,10^15^9,1"
^DIST(.404,33,40,7,13)=""
^DIST(.404,33,40,8,0)="12^ASK DEVICE^3"
^DIST(.404,33,40,8,1)="4"
^DIST(.404,33,40,8,2)="12,18^3^12,6"
^DIST(.404,33,40,9,0)="13^ASK PARAMETERS^3"
^DIST(.404,33,40,9,1)="5"
^DIST(.404,33,40,9,2)="13,18^3^13,2"
^DIST(.404,33,40,10,0)="14^OPEN PARAMETERS^3"
^DIST(.404,33,40,10,1)="19"
^DIST(.404,33,40,10,2)="14,18^50^14,1"
^DIST(.404,33,40,13,0)="10^MARGIN WIDTH^3"
^DIST(.404,33,40,13,1)="9"
^DIST(.404,33,40,13,2)="9,59^3^9,45"
^DIST(.404,33,40,14,0)="11^PAGE LENGTH^3"
^DIST(.404,33,40,14,1)="11"
^DIST(.404,33,40,14,2)="10,59^6^10,46"
^DIST(.404,33,40,15,0)="15^1^1^"
^DIST(.404,33,40,15,2)="^^2,74^"
^DIST(.404,33,40,"B",1,1)=""
^DIST(.404,33,40,"B",2,2)=""
^DIST(.404,33,40,"B",3,3)=""
^DIST(.404,33,40,"B",4,4)=""
^DIST(.404,33,40,"B",5,5)=""
^DIST(.404,33,40,"B",6,6)=""
^DIST(.404,33,40,"B",7,7)=""
^DIST(.404,33,40,"B",10,13)=""
^DIST(.404,33,40,"B",11,14)=""
^DIST(.404,33,40,"B",12,8)=""
^DIST(.404,33,40,"B",13,9)=""
^DIST(.404,33,40,"B",14,10)=""
^DIST(.404,33,40,"B",15,15)=""
^DIST(.404,33,40,"C",1,15)=""
^DIST(.404,33,40,"C","$I",3)=""
^DIST(.404,33,40,"C","ASK DEVICE",8)=""
^DIST(.404,33,40,"C","ASK PARAMETERS",9)=""
^DIST(.404,33,40,"C","LOCATION OF TERMINAL",2)=""
^DIST(.404,33,40,"C","MARGIN WIDTH",13)=""
^DIST(.404,33,40,"C","NAME",1)=""
^DIST(.404,33,40,"C","OPEN PARAMETERS",10)=""
^DIST(.404,33,40,"C","PAGE LENGTH",14)=""
^DIST(.404,33,40,"C","SIGN-ON/SYSTEM DEVICE",6)=""
^DIST(.404,33,40,"C","SUBTYPE",7)=""
^DIST(.404,33,40,"C","TYPE",5)=""
^DIST(.404,33,40,"C","VOLUME SET(CPU)",4)=""
^DIST(.404,34,0)="XUDEVICE SDP^3.5"
^DIST(.404,34,15,0)="^^1^1^2921217^^^^"
^DIST(.404,34,15,1,0)="SAMPLE BLOCK"
^DIST(.404,34,40,0)="^.4044I^15^13"
^DIST(.404,34,40,1,0)="1^NAME^3"
^DIST(.404,34,40,1,1)=".01"
^DIST(.404,34,40,1,2)="5,7^30^5,1"
^DIST(.404,34,40,2,0)="2^LOCATION OF TERMINAL^3"
^DIST(.404,34,40,2,1)=".02"
^DIST(.404,34,40,2,2)="5,59^20^5,37"
^DIST(.404,34,40,3,0)="3^$I^3"
^DIST(.404,34,40,3,1)="1"
^DIST(.404,34,40,3,2)="6,7^20^6,3"
^DIST(.404,34,40,4,0)="4^VOLUME SET(CPU)^3"
^DIST(.404,34,40,4,1)="1.9"
^DIST(.404,34,40,4,2)="6,59^20^6,42"
^DIST(.404,34,40,5,0)="5^TYPE^3"
^DIST(.404,34,40,5,1)="2"
^DIST(.404,34,40,5,2)="7,7^20^7,1"
^DIST(.404,34,40,5,4)="^^^1"
^DIST(.404,34,40,6,0)="6^SIGN-ON/SYSTEM DEVICE^3"
^DIST(.404,34,40,6,1)="1.95"
^DIST(.404,34,40,6,2)="7,59^3^7,36"
^DIST(.404,34,40,7,0)="7^SUBTYPE^3"
^DIST(.404,34,40,7,1)="3"
^DIST(.404,34,40,7,2)="9,10^25^9,1"
^DIST(.404,34,40,7,13)=""
^DIST(.404,34,40,10,0)="10^MARGIN WIDTH^3"
^DIST(.404,34,40,10,1)="9"
^DIST(.404,34,40,10,2)="9,59^3^9,45"
^DIST(.404,34,40,11,0)="11^PAGE LENGTH^3"
^DIST(.404,34,40,11,1)="11"
^DIST(.404,34,40,11,2)="10,59^6^10,46"
^DIST(.404,34,40,12,0)="12^ASK DEVICE^3"
^DIST(.404,34,40,12,1)="4"
^DIST(.404,34,40,12,2)="12,18^3^12,6"
^DIST(.404,34,40,13,0)="13^ASK PARAMETERS^3"
^DIST(.404,34,40,13,1)="5"
^DIST(.404,34,40,13,2)="13,18^3^13,2"
^DIST(.404,34,40,14,0)="14^OPEN PARAMETERS^3"
^DIST(.404,34,40,14,1)="19"
^DIST(.404,34,40,14,2)="14,18^50^14,1"
^DIST(.404,34,40,15,0)="15^1^1^"
^DIST(.404,34,40,15,2)="^^2,74^"
^DIST(.404,34,40,"B",1,1)=""
^DIST(.404,34,40,"B",2,2)=""
^DIST(.404,34,40,"B",3,3)=""
^DIST(.404,34,40,"B",4,4)=""
^DIST(.404,34,40,"B",5,5)=""
^DIST(.404,34,40,"B",6,6)=""
^DIST(.404,34,40,"B",7,7)=""
^DIST(.404,34,40,"B",10,10)=""
^DIST(.404,34,40,"B",11,11)=""
^DIST(.404,34,40,"B",12,12)=""
^DIST(.404,34,40,"B",13,13)=""
^DIST(.404,34,40,"B",14,14)=""
^DIST(.404,34,40,"B",15,15)=""
^DIST(.404,34,40,"C",1,15)=""
^DIST(.404,34,40,"C","$I",3)=""
^DIST(.404,34,40,"C","ASK DEVICE",12)=""
^DIST(.404,34,40,"C","ASK PARAMETERS",13)=""
^DIST(.404,34,40,"C","LOCATION OF TERMINAL",2)=""
^DIST(.404,34,40,"C","MARGIN WIDTH",10)=""
^DIST(.404,34,40,"C","NAME",1)=""
^DIST(.404,34,40,"C","OPEN PARAMETERS",14)=""
^DIST(.404,34,40,"C","PAGE LENGTH",11)=""
^DIST(.404,34,40,"C","SIGN-ON/SYSTEM DEVICE",6)=""
^DIST(.404,34,40,"C","SUBTYPE",7)=""
^DIST(.404,34,40,"C","TYPE",5)=""
^DIST(.404,34,40,"C","VOLUME SET(CPU)",4)=""
^DIST(.404,35,0)="XUDEVICE SPL^3.5"
^DIST(.404,35,40,0)="^.4044I^18^16"
^DIST(.404,35,40,1,0)="1^NAME^3"
^DIST(.404,35,40,1,1)=".01"
^DIST(.404,35,40,1,2)="5,7^30^5,1"
^DIST(.404,35,40,2,0)="2^LOCATION OF TERMINAL^3"
^DIST(.404,35,40,2,1)=".02"
^DIST(.404,35,40,2,2)="5,59^20^5,37"
^DIST(.404,35,40,3,0)="3^$I^3"
^DIST(.404,35,40,3,1)="1"
^DIST(.404,35,40,3,2)="6,7^25^6,3"
^DIST(.404,35,40,4,0)="4^VOLUME SET(CPU)^3"
^DIST(.404,35,40,4,1)="1.9"
^DIST(.404,35,40,4,2)="6,59^25^6,42"
^DIST(.404,35,40,5,0)="5^TYPE^3"
^DIST(.404,35,40,5,1)="2"
^DIST(.404,35,40,5,2)="7,7^20^7,1"
^DIST(.404,35,40,5,4)="^^^1"
^DIST(.404,35,40,6,0)="6^SIGN-ON/SYSTEM DEVICE^3"
^DIST(.404,35,40,6,1)="1.95"
^DIST(.404,35,40,6,2)="7,59^3^7,36"
^DIST(.404,35,40,7,0)="7^SUBTYPE^3"
^DIST(.404,35,40,7,1)="3"
^DIST(.404,35,40,7,2)="9,10^25^9,1"
^DIST(.404,35,40,7,13)=""
^DIST(.404,35,40,10,0)="10^MARGIN WIDTH^3"
^DIST(.404,35,40,10,1)="9"
^DIST(.404,35,40,10,2)="9,59^3^9,45"
^DIST(.404,35,40,11,0)="11^PAGE LENGTH^3"
^DIST(.404,35,40,11,1)="11"
^DIST(.404,35,40,11,2)="10,59^6^10,46"
^DIST(.404,35,40,12,0)="12^ASK DEVICE^3"
^DIST(.404,35,40,12,1)="4"
^DIST(.404,35,40,12,2)="11,25^3^11,13"
^DIST(.404,35,40,13,0)="13^ASK PARAMETERS^3"
^DIST(.404,35,40,13,1)="5"
^DIST(.404,35,40,13,2)="12,25^3^12,9"
^DIST(.404,35,40,14,0)="14^OPEN PARAMETERS^3"
^DIST(.404,35,40,14,1)="19"
^DIST(.404,35,40,14,2)="13,25^25^13,8"
^DIST(.404,35,40,15,0)="18^1^1^"
^DIST(.404,35,40,15,2)="^^2,74^"
^DIST(.404,35,40,16,0)="15^GENERATE SPL DOC NAME^3"
^DIST(.404,35,40,16,1)="33"
^DIST(.404,35,40,16,2)="15,25^3^15,2"
^DIST(.404,35,40,17,0)="16^AUTO DESPOOL^3"
^DIST(.404,35,40,17,1)="31"
^DIST(.404,35,40,17,2)="15,59^3^15,45"
^DIST(.404,35,40,18,0)="17^Select DESPOOL DEVICES^3"
^DIST(.404,35,40,18,1)="32"
^DIST(.404,35,40,18,2)="16,25^24^16,1"
^DIST(.404,35,40,18,7)="^2"
^DIST(.404,35,40,"B",1,1)=""
^DIST(.404,35,40,"B",2,2)=""
^DIST(.404,35,40,"B",3,3)=""
^DIST(.404,35,40,"B",4,4)=""
^DIST(.404,35,40,"B",5,5)=""
^DIST(.404,35,40,"B",6,6)=""
^DIST(.404,35,40,"B",7,7)=""
^DIST(.404,35,40,"B",10,10)=""
^DIST(.404,35,40,"B",11,11)=""
^DIST(.404,35,40,"B",12,12)=""
^DIST(.404,35,40,"B",13,13)=""
^DIST(.404,35,40,"B",14,14)=""
^DIST(.404,35,40,"B",15,16)=""
^DIST(.404,35,40,"B",16,17)=""
^DIST(.404,35,40,"B",17,18)=""
^DIST(.404,35,40,"B",18,15)=""
^DIST(.404,35,40,"C",1,15)=""
^DIST(.404,35,40,"C","$I",3)=""
^DIST(.404,35,40,"C","ASK DEVICE",12)=""
^DIST(.404,35,40,"C","ASK PARAMETERS",13)=""
^DIST(.404,35,40,"C","AUTO DESPOOL",17)=""
^DIST(.404,35,40,"C","DESPOOL DEVICES",18)=""
^DIST(.404,35,40,"C","GENERATE SPL DOC NAME",16)=""
^DIST(.404,35,40,"C","LOCATION OF TERMINAL",2)=""
^DIST(.404,35,40,"C","MARGIN WIDTH",10)=""
^DIST(.404,35,40,"C","NAME",1)=""
^DIST(.404,35,40,"C","OPEN PARAMETERS",14)=""
^DIST(.404,35,40,"C","PAGE LENGTH",11)=""
^DIST(.404,35,40,"C","SIGN-ON/SYSTEM DEVICE",6)=""
^DIST(.404,35,40,"C","SUBTYPE",7)=""
^DIST(.404,35,40,"C","TYPE",5)=""
^DIST(.404,35,40,"C","VOLUME SET(CPU)",4)=""
^DIST(.404,36,0)="XUDEVICE SPL2^3.532"
^DIST(.404,36,40,0)="^.4044I^3^3"
^DIST(.404,36,40,1,0)="1^DESPOOL DEVICES^1^"
^DIST(.404,36,40,1,2)="^^1,33^"
^DIST(.404,36,40,2,0)="2^DESPOOL DEVICES^3"
^DIST(.404,36,40,2,1)=".01"
^DIST(.404,36,40,2,2)="3,18^30^3,1"
^DIST(.404,36,40,3,0)="3^COPIES^3"
^DIST(.404,36,40,3,1)="1"
^DIST(.404,36,40,3,2)="4,9^3^4,1"
^DIST(.404,36,40,3,3)="1"
^DIST(.404,36,40,"B",1,1)=""
^DIST(.404,36,40,"B",2,2)=""
^DIST(.404,36,40,"B",3,3)=""
^DIST(.404,36,40,"C","COPIES",3)=""
^DIST(.404,36,40,"C","DESPOOL DEVICES",1)=""
^DIST(.404,36,40,"C","DESPOOL DEVICES",2)=""
^DIST(.404,37,0)="XUDEVICE HFS^3.5"
^DIST(.404,37,11)="D UNED^DDSUTL(""Alt $I"",,,'$P(^XTV(8989.3,1,0),U,5))"
^DIST(.404,37,40,0)="^.4044I^23^17"
^DIST(.404,37,40,1,0)="2^NAME^3"
^DIST(.404,37,40,1,1)=".01"
^DIST(.404,37,40,1,2)="2,10^30^2,4"
^DIST(.404,37,40,2,0)="3^LOCATION^3"
^DIST(.404,37,40,2,1)=".02"
^DIST(.404,37,40,2,2)="2,56^20^2,46"
^DIST(.404,37,40,3,0)="4^$I^3"
^DIST(.404,37,40,3,1)="1"
^DIST(.404,37,40,3,2)="4,10^40^4,6"
^DIST(.404,37,40,4,0)="14^VOLUME SET(CPU)^3"
^DIST(.404,37,40,4,1)="1.9"
^DIST(.404,37,40,4,2)="10,59^20^10,42"
^DIST(.404,37,40,7,0)="7^SUBTYPE^3"
^DIST(.404,37,40,7,1)="3"
^DIST(.404,37,40,7,2)="6,10^25^6,1"
^DIST(.404,37,40,10,0)="10^MARGIN WIDTH^3"
^DIST(.404,37,40,10,1)="9"
^DIST(.404,37,40,10,2)="8,59^3^8,45"
^DIST(.404,37,40,11,0)="12^PAGE LENGTH^3"
^DIST(.404,37,40,11,1)="11"
^DIST(.404,37,40,11,2)="9,59^6^9,46"
^DIST(.404,37,40,13,0)="8^ASK PARAMETERS^3"
^DIST(.404,37,40,13,1)="5"
^DIST(.404,37,40,13,2)="8,24^3^8,8"
^DIST(.404,37,40,14,0)="13^OPEN PARAMETERS^3"
^DIST(.404,37,40,14,1)="19"
^DIST(.404,37,40,14,2)="12,21^57^12,4"
^DIST(.404,37,40,15,0)="9^ASK HOST FILE^3"
^DIST(.404,37,40,15,1)="5.1"
^DIST(.404,37,40,15,2)="9,24^3^9,9"
^DIST(.404,37,40,16,0)="11^ASK HFS I/O OPERATION^3"
^DIST(.404,37,40,16,1)="5.2"
^DIST(.404,37,40,16,2)="10,24^3^10,1"
^DIST(.404,37,40,18,0)="5^Alt $I^3"
^DIST(.404,37,40,18,1)="52"
^DIST(.404,37,40,18,2)="5,10^40^5,2"
^DIST(.404,37,40,18,4)="^^^1"
^DIST(.404,37,40,19,0)="15^PRE-OPEN EXECUTE^3"
^DIST(.404,37,40,19,1)="19.7"
^DIST(.404,37,40,19,2)="14,21^57^14,3"
^DIST(.404,37,40,20,0)="16^POST-CLOSE EXECUTE^3"
^DIST(.404,37,40,20,1)="19.8"
^DIST(.404,37,40,20,2)="15,21^57^15,1"
^DIST(.404,37,40,21,0)="17^QUEUING^3"
^DIST(.404,37,40,21,1)="5.5"
^DIST(.404,37,40,21,2)="16,21^11^16,12"
^DIST(.404,37,40,22,0)="18^SUPPRESS FORM FEED^3"
^DIST(.404,37,40,22,1)="11.2"
^DIST(.404,37,40,22,2)="16,59^3^16,39"
^DIST(.404,37,40,23,0)="19^CLOSE PARAMETERS^3"
^DIST(.404,37,40,23,1)="19.3"
^DIST(.404,37,40,23,2)="13,21^57^13,3"
^DIST(.404,37,40,"B",2,1)=""
^DIST(.404,37,40,"B",3,2)=""
^DIST(.404,37,40,"B",4,3)=""
^DIST(.404,37,40,"B",5,18)=""
^DIST(.404,37,40,"B",7,7)=""
^DIST(.404,37,40,"B",8,13)=""
^DIST(.404,37,40,"B",9,15)=""
^DIST(.404,37,40,"B",10,10)=""
^DIST(.404,37,40,"B",11,16)=""
^DIST(.404,37,40,"B",12,11)=""
^DIST(.404,37,40,"B",13,14)=""
^DIST(.404,37,40,"B",14,4)=""
^DIST(.404,37,40,"B",15,19)=""
^DIST(.404,37,40,"B",16,20)=""
^DIST(.404,37,40,"B",17,21)=""
^DIST(.404,37,40,"B",18,22)=""
^DIST(.404,37,40,"B",19,23)=""
^DIST(.404,37,40,"C","$I",3)=""
^DIST(.404,37,40,"C","ALT $I",18)=""
^DIST(.404,37,40,"C","ASK HFS I/O OPERATION",16)=""
^DIST(.404,37,40,"C","ASK HOST FILE",15)=""
^DIST(.404,37,40,"C","ASK PARAMETERS",13)=""
^DIST(.404,37,40,"C","CLOSE PARAMETERS",23)=""
^DIST(.404,37,40,"C","LOCATION",2)=""
^DIST(.404,37,40,"C","MARGIN WIDTH",10)=""
^DIST(.404,37,40,"C","NAME",1)=""
^DIST(.404,37,40,"C","OPEN PARAMETERS",14)=""
^DIST(.404,37,40,"C","PAGE LENGTH",11)=""
^DIST(.404,37,40,"C","POST-CLOSE EXECUTE",20)=""
^DIST(.404,37,40,"C","PRE-OPEN EXECUTE",19)=""
^DIST(.404,37,40,"C","QUEUING",21)=""
^DIST(.404,37,40,"C","SUBTYPE",7)=""
^DIST(.404,37,40,"C","SUPPRESS FORM FEED",22)=""
^DIST(.404,37,40,"C","VOLUME SET(CPU)",4)=""
^DIST(.404,38,0)="XUDEVICE SDP HDR^3.5"
^DIST(.404,38,40,0)="^.4044I^6^4"
^DIST(.404,38,40,1,0)="1^EDIT A SDP DEVICE^1^"
^DIST(.404,38,40,1,2)="^^1,30^"
^DIST(.404,38,40,2,0)="2^NAME^3"
^DIST(.404,38,40,2,1)=".01"
^DIST(.404,38,40,2,2)="2,7^30^2,1"
^DIST(.404,38,40,3,0)="3^PAGE   OF 1^1^"
^DIST(.404,38,40,3,2)="^^2,69^"
^DIST(.404,38,40,6,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,38,40,6,2)="^^3,1^"
^DIST(.404,38,40,"B",1,1)=""
^DIST(.404,38,40,"B",2,2)=""
^DIST(.404,38,40,"B",3,3)=""
^DIST(.404,38,40,"B",4,6)=""
^DIST(.404,38,40,"C","EDIT A SDP DEVICE",1)=""
^DIST(.404,38,40,"C","NAME",2)=""
^DIST(.404,38,40,"C","PAGE   OF 1",3)=""
^DIST(.404,38,40,"C","_______________________________________________________________",6)=""
^DIST(.404,39,0)="XUDEVICE SPL HDR^3.5"
^DIST(.404,39,40,0)="^.4044I^6^4"
^DIST(.404,39,40,1,0)="1^EDIT A SPOOL DEVICE^1^"
^DIST(.404,39,40,1,2)="^^1,30^"
^DIST(.404,39,40,2,0)="2^NAME^3"
^DIST(.404,39,40,2,1)=".01"
^DIST(.404,39,40,2,2)="2,7^30^2,1"
^DIST(.404,39,40,3,0)="3^PAGE   OF 1^1^"
^DIST(.404,39,40,3,2)="^^2,69^1"
^DIST(.404,39,40,6,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,39,40,6,2)="^^3,1^"
^DIST(.404,39,40,"B",1,1)=""
^DIST(.404,39,40,"B",2,2)=""
^DIST(.404,39,40,"B",3,3)=""
^DIST(.404,39,40,"B",4,6)=""
^DIST(.404,39,40,"C","EDIT A SPOOL DEVICE",1)=""
^DIST(.404,39,40,"C","NAME",2)=""
^DIST(.404,39,40,"C","PAGE   OF 1",3)=""
^DIST(.404,39,40,"C","_______________________________________________________________",6)=""
^DIST(.404,40,0)="XUDEVICE HFS HDR^3.5"
^DIST(.404,40,40,0)="^.4044I^1^1"
^DIST(.404,40,40,1,0)="1^EDIT A HOST FILE SERVER DEVICE^1^"
^DIST(.404,40,40,1,2)="^^1,23"
^DIST(.404,40,40,"B",1,1)=""
^DIST(.404,40,40,"C","EDIT A HOST FILE SERVER DEVICE",1)=""
^DIST(.404,41,0)="XUDEVICE CHAN^3.5"
^DIST(.404,41,15,0)="^^1^1^2921210^^^^"
^DIST(.404,41,15,1,0)="SAMPLE BLOCK"
^DIST(.404,41,40,0)="^.4044I^18^16"
^DIST(.404,41,40,1,0)="1^NAME^3"
^DIST(.404,41,40,1,1)=".01"
^DIST(.404,41,40,1,2)="5,7^30^5,1"
^DIST(.404,41,40,2,0)="2^LOCATION OF TERMINAL^3"
^DIST(.404,41,40,2,1)=".02"
^DIST(.404,41,40,2,2)="5,59^20^5,37"
^DIST(.404,41,40,3,0)="3^$I^3"
^DIST(.404,41,40,3,1)="1"
^DIST(.404,41,40,3,2)="6,7^25^6,3"
^DIST(.404,41,40,4,0)="4^VOLUME SET(CPU)^3"
^DIST(.404,41,40,4,1)="1.9"
^DIST(.404,41,40,4,2)="6,59^20^6,42"
^DIST(.404,41,40,5,0)="5^TYPE^3"
^DIST(.404,41,40,5,1)="2"
^DIST(.404,41,40,5,2)="7,7^20^7,1"
^DIST(.404,41,40,5,4)="^^^1"
^DIST(.404,41,40,6,0)="6^SIGN-ON/SYSTEM DEVICE^3"
^DIST(.404,41,40,6,1)="1.95"
^DIST(.404,41,40,6,2)="7,59^3^7,36"
^DIST(.404,41,40,7,0)="7^SUBTYPE^3"
^DIST(.404,41,40,7,1)="3"
^DIST(.404,41,40,7,2)="9,10^25^9,1"
^DIST(.404,41,40,7,13)=""
^DIST(.404,41,40,10,0)="10^MARGIN WIDTH^3"
^DIST(.404,41,40,10,1)="9"
^DIST(.404,41,40,10,2)="9,59^3^9,45"
^DIST(.404,41,40,11,0)="11^PAGE LENGTH^3"
^DIST(.404,41,40,11,1)="11"
^DIST(.404,41,40,11,2)="10,59^6^10,46"
^DIST(.404,41,40,12,0)="12^ASK DEVICE^3"
^DIST(.404,41,40,12,1)="4"
^DIST(.404,41,40,12,2)="12,24^3^12,12"
^DIST(.404,41,40,13,0)="13^ASK PARAMETERS^3"
^DIST(.404,41,40,13,1)="5"
^DIST(.404,41,40,13,2)="13,24^3^13,8"
^DIST(.404,41,40,14,0)="14^OPEN PARAMETERS^3"
^DIST(.404,41,40,14,1)="19"
^DIST(.404,41,40,14,2)="14,24^50^14,7"
^DIST(.404,41,40,15,0)="16^USE TIMEOUT ON OPENS^3"
^DIST(.404,41,40,15,1)="2009.5"
^DIST(.404,41,40,15,2)="12,59^3^12,37"
^DIST(.404,41,40,16,0)="17^OPEN TIMEOUT^3"
^DIST(.404,41,40,16,1)="2010"
^DIST(.404,41,40,16,2)="13,59^2^13,45"
^DIST(.404,41,40,17,0)="18^1^1^"
^DIST(.404,41,40,17,2)="^^2,74^"
^DIST(.404,41,40,18,0)="15^GLOBAL TO LOCK/UNLOCK^3"
^DIST(.404,41,40,18,1)="36"
^DIST(.404,41,40,18,2)="16,24^50^16,1"
^DIST(.404,41,40,"B",1,1)=""
^DIST(.404,41,40,"B",2,2)=""
^DIST(.404,41,40,"B",3,3)=""
^DIST(.404,41,40,"B",4,4)=""
^DIST(.404,41,40,"B",5,5)=""
^DIST(.404,41,40,"B",6,6)=""
^DIST(.404,41,40,"B",7,7)=""
^DIST(.404,41,40,"B",10,10)=""
^DIST(.404,41,40,"B",11,11)=""
^DIST(.404,41,40,"B",12,12)=""
^DIST(.404,41,40,"B",13,13)=""
^DIST(.404,41,40,"B",14,14)=""
^DIST(.404,41,40,"B",15,18)=""
^DIST(.404,41,40,"B",16,15)=""
^DIST(.404,41,40,"B",17,16)=""
^DIST(.404,41,40,"B",18,17)=""
^DIST(.404,41,40,"C",1,17)=""
^DIST(.404,41,40,"C","$I",3)=""
^DIST(.404,41,40,"C","ASK DEVICE",12)=""
^DIST(.404,41,40,"C","ASK PARAMETERS",13)=""
^DIST(.404,41,40,"C","GLOBAL TO LOCK/UNLOCK",18)=""
^DIST(.404,41,40,"C","LOCATION OF TERMINAL",2)=""
^DIST(.404,41,40,"C","MARGIN WIDTH",10)=""
^DIST(.404,41,40,"C","NAME",1)=""
^DIST(.404,41,40,"C","OPEN PARAMETERS",14)=""
^DIST(.404,41,40,"C","OPEN TIMEOUT",16)=""
^DIST(.404,41,40,"C","PAGE LENGTH",11)=""
^DIST(.404,41,40,"C","SIGN-ON/SYSTEM DEVICE",6)=""
^DIST(.404,41,40,"C","SUBTYPE",7)=""
^DIST(.404,41,40,"C","TYPE",5)=""
^DIST(.404,41,40,"C","USE TIMEOUT ON OPENS",15)=""
^DIST(.404,41,40,"C","VOLUME SET(CPU)",4)=""
^DIST(.404,42,0)="XUDEVICE CHAN HDR^3.5"
^DIST(.404,42,40,0)="^.4044I^6^4"
^DIST(.404,42,40,1,0)="1^EDIT A NETWORK CHANNEL DEVICE^1^"
^DIST(.404,42,40,1,2)="^^1,30^"
^DIST(.404,42,40,2,0)="2^NAME^3"
^DIST(.404,42,40,2,1)=".01"
^DIST(.404,42,40,2,2)="2,7^30^2,1"
^DIST(.404,42,40,3,0)="3^PAGE   OF 1^1^"
^DIST(.404,42,40,3,2)="^^2,69^"
^DIST(.404,42,40,6,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,42,40,6,2)="^^3,1^"
^DIST(.404,42,40,"B",1,1)=""
^DIST(.404,42,40,"B",2,2)=""
^DIST(.404,42,40,"B",3,3)=""
^DIST(.404,42,40,"B",4,6)=""
^DIST(.404,42,40,"C","EDIT A NETWORK CHANNEL DEVICE",1)=""
^DIST(.404,42,40,"C","NAME",2)=""
^DIST(.404,42,40,"C","PAGE   OF 1",3)=""
^DIST(.404,42,40,"C","_______________________________________________________________",6)=""
^DIST(.404,43,0)="XU OPTION SCHEDULE^19.2"
^DIST(.404,43,40,0)="^.4044I^11^11"
^DIST(.404,43,40,1,0)="6^QUEUED TO RUN AT WHAT TIME^3"
^DIST(.404,43,40,1,1)="2"
^DIST(.404,43,40,1,2)="6,31^30^6,3"
^DIST(.404,43,40,1,10)="S:X="""" DDSBR=5"
^DIST(.404,43,40,1,11)="K T S T(1)=""This is the date/time you want this option to be started by TaskMan."",T(2)="""",T(3)=""The current time is ""_$$HTE^XLFDT($H,""1P"") D HLP^DDSUTL(.T)"
^DIST(.404,43,40,2,0)="7^DEVICE FOR QUEUED JOB OUTPUT^3"
^DIST(.404,43,40,2,1)="3"
^DIST(.404,43,40,2,2)="8,31^30^8,1"
^DIST(.404,43,40,2,11)="D HLP^DDSUTL(""Only enter a DEVICE if the job needs an output device."")"
^DIST(.404,43,40,3,0)="8^QUEUED TO RUN ON VOLUME SET^3"
^DIST(.404,43,40,3,1)="5"
^DIST(.404,43,40,3,2)="10,31^21^10,2"
^DIST(.404,43,40,3,11)="D HLP^DDSUTL(""This is the Volume set [:node] that you want the job to run on."")"
^DIST(.404,43,40,4,0)="9^RESCHEDULING FREQUENCY^3"
^DIST(.404,43,40,4,1)="6"
^DIST(.404,43,40,4,2)="12,31^30^12,7"
^DIST(.404,43,40,4,11)="D HLP^DDSUTL(""If this field is blank then the job will run only once."")"
^DIST(.404,43,40,5,0)="11^SPECIAL QUEUEING^3"
^DIST(.404,43,40,5,1)="9"
^DIST(.404,43,40,5,2)="16,31^20^16,13"
^DIST(.404,43,40,5,11)="K T S T(1)=""This field is only for special jobs:"",T(2)=""1. That need to start every time the system is rebooted."",T(3)=""2. Need to be persistent."",T(4)=""3. BOTH"" D HLP^DDSUTL(.T)"
^DIST(.404,43,40,6,0)="1^Edit Option Schedule^1^"
^DIST(.404,43,40,6,2)="^^1,27^1"
^DIST(.404,43,40,7,0)="2^Option Name^3"
^DIST(.404,43,40,7,1)=".01"
^DIST(.404,43,40,7,2)="2,18^30^2,5"
^DIST(.404,43,40,8,0)="5^__________________________________________________________________________^1^"
^DIST(.404,43,40,8,2)="^^4,3^1"
^DIST(.404,43,40,9,0)="3^Menu Text^4"
^DIST(.404,43,40,9,2)="3,16^32^3,5"
^DIST(.404,43,40,9,30)="={NAME:MENU TEXT}"
^DIST(.404,43,40,10,0)="4^TASK ID^3"
^DIST(.404,43,40,10,1)="12"
^DIST(.404,43,40,10,2)="3,67^7^3,58"
^DIST(.404,43,40,10,4)="^^^1"
^DIST(.404,43,40,11,0)="10^TASK PARAMETERS^3"
^DIST(.404,43,40,11,1)="15"
^DIST(.404,43,40,11,2)="14,31^48^14,14"
^DIST(.404,43,40,"B",1,6)=""
^DIST(.404,43,40,"B",2,7)=""
^DIST(.404,43,40,"B",3,9)=""
^DIST(.404,43,40,"B",4,10)=""
^DIST(.404,43,40,"B",5,8)=""
^DIST(.404,43,40,"B",6,1)=""
^DIST(.404,43,40,"B",7,2)=""
^DIST(.404,43,40,"B",8,3)=""
^DIST(.404,43,40,"B",9,4)=""
^DIST(.404,43,40,"B",10,11)=""
^DIST(.404,43,40,"B",11,5)=""
^DIST(.404,43,40,"C","DEVICE FOR QUEUED JOB OUTPUT",2)=""
^DIST(.404,43,40,"C","EDIT OPTION SCHEDULE",6)=""
^DIST(.404,43,40,"C","MENU TEXT",9)=""
^DIST(.404,43,40,"C","OPTION NAME",7)=""
^DIST(.404,43,40,"C","QUEUED TO RUN AT WHAT TIME",1)=""
^DIST(.404,43,40,"C","QUEUED TO RUN ON VOLUME SET",3)=""
^DIST(.404,43,40,"C","RESCHEDULING FREQUENCY",4)=""
^DIST(.404,43,40,"C","SPECIAL QUEUEING",5)=""
^DIST(.404,43,40,"C","TASK ID",10)=""
^DIST(.404,43,40,"C","TASK PARAMETERS",11)=""
^DIST(.404,43,40,"C","_______________________________________________________________",8)=""
^DIST(.404,44,0)="XUSERDEACT^200"
^DIST(.404,44,40,0)="^.4044I^5^5"
^DIST(.404,44,40,1,0)="1^Disable User^3"
^DIST(.404,44,40,1,1)="7"
^DIST(.404,44,40,1,2)="2,35^3^2,21"
^DIST(.404,44,40,2,0)="2^TERMINATION DATE^3"
^DIST(.404,44,40,2,1)="9.2"
^DIST(.404,44,40,2,2)="4,35^11^4,17"
^DIST(.404,44,40,3,0)="3^DELETE ALL MAIL ACCESS^3"
^DIST(.404,44,40,3,1)="9.21"
^DIST(.404,44,40,3,2)="8,35^3^8,11"
^DIST(.404,44,40,3,3)="Y"
^DIST(.404,44,40,3,11)="S XUTX1=$G(XUTX1) D HLP^DDSUTL(.XUTX1)"
^DIST(.404,44,40,4,0)="4^DELETE KEYS AT TERMINATION^3"
^DIST(.404,44,40,4,1)="9.22"
^DIST(.404,44,40,4,2)="9,39^3^9,11"
^DIST(.404,44,40,4,3)="Y"
^DIST(.404,44,40,4,11)="S XUTX2=$G(XUTX2) D HLP^DDSUTL(.XUTX2)"
^DIST(.404,44,40,5,0)="5^Termination Reason^3"
^DIST(.404,44,40,5,1)="9.4"
^DIST(.404,44,40,5,2)="6,35^36^6,15"
^DIST(.404,44,40,"B",1,1)=""
^DIST(.404,44,40,"B",2,2)=""
^DIST(.404,44,40,"B",3,3)=""
^DIST(.404,44,40,"B",4,4)=""
^DIST(.404,44,40,"B",5,5)=""
^DIST(.404,44,40,"C","DELETE ALL MAIL ACCESS",3)=""
^DIST(.404,44,40,"C","DELETE KEYS AT TERMINATION",4)=""
^DIST(.404,44,40,"C","DISABLE USER",1)=""
^DIST(.404,44,40,"C","TERMINATION DATE",2)=""
^DIST(.404,44,40,"C","TERMINATION REASON",5)=""
^DIST(.404,45,0)="XUTM UCI ASSOC1^14.6"
^DIST(.404,45,40,0)="^.4044I^7^7"
^DIST(.404,45,40,1,0)="2^UCI^3"
^DIST(.404,45,40,1,1)=".01"
^DIST(.404,45,40,1,2)="5,20^10^5,15"
^DIST(.404,45,40,2,0)="1^To get from^1^"
^DIST(.404,45,40,2,2)="^^4,8^"
^DIST(.404,45,40,3,0)="3^On Volume set^3"
^DIST(.404,45,40,3,1)="1"
^DIST(.404,45,40,3,2)="6,20^10^6,5"
^DIST(.404,45,40,4,0)="4^To the target^1^"
^DIST(.404,45,40,4,2)="^^8,6^"
^DIST(.404,45,40,5,0)="5^UCI^3"
^DIST(.404,45,40,5,1)="3"
^DIST(.404,45,40,5,2)="9,20^10^9,15"
^DIST(.404,45,40,6,0)="6^On Volume set^3"
^DIST(.404,45,40,6,1)="2"
^DIST(.404,45,40,6,2)="10,20^10^10,5"
^DIST(.404,45,40,7,0)="7^Taskman UCI Association table^1^"
^DIST(.404,45,40,7,2)="^^1,22^"
^DIST(.404,45,40,"B",1,2)=""
^DIST(.404,45,40,"B",2,1)=""
^DIST(.404,45,40,"B",3,3)=""
^DIST(.404,45,40,"B",4,4)=""
^DIST(.404,45,40,"B",5,5)=""
^DIST(.404,45,40,"B",6,6)=""
^DIST(.404,45,40,"B",7,7)=""
^DIST(.404,45,40,"C","ON VOLUME SET",3)=""
^DIST(.404,45,40,"C","ON VOLUME SET",6)=""
^DIST(.404,45,40,"C","TASKMAN UCI ASSOCIATION TABLE",7)=""
^DIST(.404,45,40,"C","TO GET FROM",2)=""
^DIST(.404,45,40,"C","TO THE TARGET",4)=""
^DIST(.404,45,40,"C","UCI",1)=""
^DIST(.404,45,40,"C","UCI",5)=""
^DIST(.404,46,0)="XUSERDEACT HDR^200"
^DIST(.404,46,15,0)="^^1^1^2940809^"
^DIST(.404,46,15,1,0)="THIS IS A TEST"
^DIST(.404,46,40,0)="^.4044I^6^3"
^DIST(.404,46,40,1,0)="1^DEACTIVATE A USER^1^"
^DIST(.404,46,40,1,2)="^^1,30^1"
^DIST(.404,46,40,2,0)="2^NAME^3"
^DIST(.404,46,40,2,1)=".01"
^DIST(.404,46,40,2,2)="2,7^30^2,1"
^DIST(.404,46,40,6,0)="4^_______________________________________________________________________________^1^"
^DIST(.404,46,40,6,2)="^^3,1^"
^DIST(.404,46,40,"B",1,1)=""
^DIST(.404,46,40,"B",2,2)=""
^DIST(.404,46,40,"B",4,6)=""
^DIST(.404,46,40,"C","DEACTIVATE A USER",1)=""
^DIST(.404,46,40,"C","NAME",2)=""
^DIST(.404,46,40,"C","_______________________________________________________________",6)=""
^DIST(.404,47,0)="XUEXISTING USER 0^200^"
^DIST(.404,47,40,0)="^.4044I^6^5"
^DIST(.404,47,40,1,0)="2^NAME^3"
^DIST(.404,47,40,1,1)=".01"
^DIST(.404,47,40,1,2)="2,7^30^2,1"
^DIST(.404,47,40,1,4)="^^^1"
^DIST(.404,47,40,2,0)="1^Edit an Existing User^1^"
^DIST(.404,47,40,2,2)="^^1,30^1"
^DIST(.404,47,40,3,0)="3^Page^1^"
^DIST(.404,47,40,3,2)="^^2,69"
^DIST(.404,47,40,5,0)="4^of 5^1^"
^DIST(.404,47,40,5,2)="^^2,76"
^DIST(.404,47,40,6,0)="5^_______________________________________________________________________________^1"
^DIST(.404,47,40,6,2)="^^3,1"
^DIST(.404,47,40,"B",1,2)=""
^DIST(.404,47,40,"B",2,1)=""
^DIST(.404,47,40,"B",3,3)=""
^DIST(.404,47,40,"B",4,5)=""
^DIST(.404,47,40,"B",5,6)=""
^DIST(.404,47,40,"C","EDIT AN EXISTING USER",2)=""
^DIST(.404,47,40,"C","NAME",1)=""
^DIST(.404,47,40,"C","OF 5",5)=""
^DIST(.404,47,40,"C","PAGE",3)=""
^DIST(.404,47,40,"C","_______________________________________________________________",6)=""
^DIST(.404,48,0)="XUOPTION SCHEDULE 2^19.2"
^DIST(.404,48,40,0)="^.4044I^4^4"
^DIST(.404,48,40,1,0)="1^Edit Option Schedule^1^"
^DIST(.404,48,40,1,2)="^^1,26^"
^DIST(.404,48,40,2,0)="2^Option Name^3"
^DIST(.404,48,40,2,1)=".01"
^DIST(.404,48,40,2,2)="2,18^30^2,5"
^DIST(.404,48,40,2,4)="^^^1"
^DIST(.404,48,40,3,0)="3^_____________________________________________________________________^1^"
^DIST(.404,48,40,3,2)="^^3,5^1"
^DIST(.404,48,40,4,0)="4^USER TO RUN TASK^3"
^DIST(.404,48,40,4,1)="11"
^DIST(.404,48,40,4,2)="5,23^35^5,5"
^DIST(.404,48,40,4,11)="I '$D(^XUSEC(""XUMGR"",DUZ)) D UNED^DDSUTL(""USER TO RUN TASK"",""XUOPTION SCHEDULE 2"",,1)"
^DIST(.404,48,40,"B",1,1)=""
^DIST(.404,48,40,"B",2,2)=""
^DIST(.404,48,40,"B",3,3)=""
^DIST(.404,48,40,"B",4,4)=""
^DIST(.404,48,40,"C","EDIT OPTION SCHEDULE",1)=""
^DIST(.404,48,40,"C","OPTION NAME",2)=""
^DIST(.404,48,40,"C","USER TO RUN TASK",4)=""
^DIST(.404,48,40,"C","_______________________________________________________________",3)=""
^DIST(.404,49,0)="XUOPTION SCHEDULE 3^19.21"
^DIST(.404,49,40,0)="^.4044I^2^2"
^DIST(.404,49,40,1,0)="1^VARIABLE NAME^3"
^DIST(.404,49,40,1,1)=".01"
^DIST(.404,49,40,1,2)="1,16^20^1,1"
^DIST(.404,49,40,1,4)="0"
^DIST(.404,49,40,2,0)="2^VALUE^3"
^DIST(.404,49,40,2,1)="1"
^DIST(.404,49,40,2,2)="1,48^24^1,41"
^DIST(.404,49,40,"B",1,1)=""
^DIST(.404,49,40,"B",2,2)=""
^DIST(.404,49,40,"C","VALUE",2)=""
^DIST(.404,49,40,"C","VARIABLE NAME",1)=""
^DIST(.404,50,0)="XUEXISTING USER 5^200"
^DIST(.404,50,40,0)="^.4044I^10^10"
^DIST(.404,50,40,1,0)="1^3^1^"
^DIST(.404,50,40,1,2)="^^1,74^"
^DIST(.404,50,40,2,0)="2^PROHIBITED TIMES FOR SIGN-ON^3"
^DIST(.404,50,40,2,1)="15"
^DIST(.404,50,40,2,2)="3,31^21^3,1"
^DIST(.404,50,40,3,0)="3^PHONE^3"
^DIST(.404,50,40,3,1)=".131"
^DIST(.404,50,40,3,2)="5,19^20^5,12"
^DIST(.404,50,40,4,0)="4^OFFICE PHONE^3"
^DIST(.404,50,40,4,1)=".132"
^DIST(.404,50,40,4,2)="5,56^20^5,42"
^DIST(.404,50,40,5,0)="7^VOICE PAGER^3"
^DIST(.404,50,40,5,1)=".137"
^DIST(.404,50,40,5,2)="7,19^20^7,6"
^DIST(.404,50,40,6,0)="6^FAX NUMBER^3"
^DIST(.404,50,40,6,1)=".136"
^DIST(.404,50,40,6,2)="6,56^20^6,44"
^DIST(.404,50,40,7,0)="5^COMMERCIAL PHONE^3"
^DIST(.404,50,40,7,1)=".135"
^DIST(.404,50,40,7,2)="6,19^20^6,1"
^DIST(.404,50,40,8,0)="8^DIGITAL PAGER^3"
^DIST(.404,50,40,8,1)=".138"
^DIST(.404,50,40,8,2)="7,56^20^7,41"
^DIST(.404,50,40,9,0)="9^LANGUAGE^3"
^DIST(.404,50,40,9,1)="200.07"
^DIST(.404,50,40,9,2)="8,19^10^8,9"
^DIST(.404,50,40,10,0)="10^Person Class                                         Effective     Expired^1"
^DIST(.404,50,40,10,2)="^^10,2"
^DIST(.404,50,40,"B",1,1)=""
^DIST(.404,50,40,"B",2,2)=""
^DIST(.404,50,40,"B",3,3)=""
^DIST(.404,50,40,"B",4,4)=""
^DIST(.404,50,40,"B",5,7)=""
^DIST(.404,50,40,"B",6,6)=""
^DIST(.404,50,40,"B",7,5)=""
^DIST(.404,50,40,"B",8,8)=""
^DIST(.404,50,40,"B",9,9)=""
^DIST(.404,50,40,"B",10,10)=""
^DIST(.404,50,40,"C",3,1)=""
^DIST(.404,50,40,"C","COMMERCIAL PHONE",7)=""
^DIST(.404,50,40,"C","DIGITAL PAGER",8)=""
^DIST(.404,50,40,"C","FAX NUMBER",6)=""
^DIST(.404,50,40,"C","LANGUAGE",9)=""
^DIST(.404,50,40,"C","OFFICE PHONE",4)=""
^DIST(.404,50,40,"C","PERSON CLASS                                         EFFECTIVE ",10)=""
^DIST(.404,50,40,"C","PHONE",3)=""
^DIST(.404,50,40,"C","PROHIBITED TIMES FOR SIGN-ON",2)=""
^DIST(.404,50,40,"C","VOICE PAGER",5)=""
^DIST(.404,51,0)="XUSITEPARM 0^8989.3^"
^DIST(.404,51,40,0)="^.4044I^3^2"
^DIST(.404,51,40,2,0)="2^Kernel Site Parameter edit^1"
^DIST(.404,51,40,2,2)="^^1,24^1"
^DIST(.404,51,40,3,0)="1^DOMAIN^3"
^DIST(.404,51,40,3,1)=".01"
^DIST(.404,51,40,3,2)="2,20^42^2,13"
^DIST(.404,51,40,"B",1,3)=""
^DIST(.404,51,40,"B",2,2)=""
^DIST(.404,51,40,"C","DOMAIN",3)=""
^DIST(.404,51,40,"C","KERNEL SITE PARAMETER EDIT",2)=""
^DIST(.404,52,0)="XUSITEPARM 1^8989.3"
^DIST(.404,52,40,0)="^.4044I^20^18"
^DIST(.404,52,40,1,0)="1^DEFAULT # OF ATTEMPTS^3"
^DIST(.404,52,40,1,1)="202"
^DIST(.404,52,40,1,2)="3,31^3^3,8"
^DIST(.404,52,40,1,3)="5"
^DIST(.404,52,40,2,0)="3^DEFAULT LOCK-OUT TIME^3"
^DIST(.404,52,40,2,1)="203"
^DIST(.404,52,40,2,2)="4,31^4^4,8"
^DIST(.404,52,40,2,3)="30"
^DIST(.404,52,40,3,0)="4^DEFAULT MULTIPLE SIGN-ON^3"
^DIST(.404,52,40,3,1)="204"
^DIST(.404,52,40,3,2)="5,31^8^5,5"
^DIST(.404,52,40,3,3)="YES"
^DIST(.404,52,40,3,11)="D EN^DDIOL(""If you select 'Only one IP' be sure to put a value into the MULTIPLE SIGN-ON LIMIT field so users can sign-on at least once."")"
^DIST(.404,52,40,4,0)="15^ASK DEVICE TYPE AT SIGN-ON^3"
^DIST(.404,52,40,4,1)="205"
^DIST(.404,52,40,4,2)="12,69^3^12,41"
^DIST(.404,52,40,4,3)="ASK"
^DIST(.404,52,40,5,0)="6^DEFAULT AUTO-MENU^3"
^DIST(.404,52,40,5,1)="206"
^DIST(.404,52,40,5,2)="6,31^3^6,12"
^DIST(.404,52,40,5,3)="NO"
^DIST(.404,52,40,6,0)="9^DEFAULT TYPE-AHEAD^3"
^DIST(.404,52,40,6,1)="209"
^DIST(.404,52,40,6,2)="8,31^3^8,11"
^DIST(.404,52,40,6,3)="YES"
^DIST(.404,52,40,7,0)="10^DEFAULT TIMED-READ (SECONDS)^3"
^DIST(.404,52,40,7,1)="210"
^DIST(.404,52,40,7,2)="9,31^5^9,1"
^DIST(.404,52,40,7,3)="300"
^DIST(.404,52,40,8,0)="12^BYPASS DEVICE LOCK-OUT^3"
^DIST(.404,52,40,8,1)="211"
^DIST(.404,52,40,8,2)="11,31^3^11,7"
^DIST(.404,52,40,9,0)="14^LIFETIME OF VERIFY CODE^3"
^DIST(.404,52,40,9,1)="214"
^DIST(.404,52,40,9,2)="12,31^3^12,6"
^DIST(.404,52,40,9,3)="90"
^DIST(.404,52,40,11,0)="8^DEFAULT LANGUAGE^3"
^DIST(.404,52,40,11,1)="207"
^DIST(.404,52,40,11,2)="7,31^10^7,13"
^DIST(.404,52,40,12,0)="16^DEFAULT INSTITUTION^3"
^DIST(.404,52,40,12,1)="217"
^DIST(.404,52,40,12,2)="13,31^30^13,10"
^DIST(.404,52,40,13,0)="17^AUTO-GENERATE ACCESS CODES^3"
^DIST(.404,52,40,13,1)="11"
^DIST(.404,52,40,13,2)="14,31^3^14,3"
^DIST(.404,52,40,14,0)="2^AGENCY CODE^3"
^DIST(.404,52,40,14,1)="9"
^DIST(.404,52,40,14,2)="3,66^9^3,53"
^DIST(.404,52,40,14,3)="VA"
^DIST(.404,52,40,16,0)="7^DEFAULT AUTO SIGN-ON^3"
^DIST(.404,52,40,16,1)="218"
^DIST(.404,52,40,16,2)="6,66^8^6,44"
^DIST(.404,52,40,17,0)="11^BROKER TIMEOUT^3"
^DIST(.404,52,40,17,1)="230"
^DIST(.404,52,40,17,2)="9,66^5^9,50"
^DIST(.404,52,40,17,3)="180"
^DIST(.404,52,40,18,0)="5^MULTIPLE SIGN-ON LIMIT^3"
^DIST(.404,52,40,18,1)="219"
^DIST(.404,52,40,18,2)="5,66^3^5,42"
^DIST(.404,52,40,19,0)="18^AUTO-GENERATE VERIFY CODES^3"
^DIST(.404,52,40,19,1)="11.2"
^DIST(.404,52,40,19,2)="15,31^3^15,3"
^DIST(.404,52,40,20,0)="13^CCOW TOKEN TIMEOUT^3"
^DIST(.404,52,40,20,1)="30.1"
^DIST(.404,52,40,20,2)="11,66^5^11,46"
^DIST(.404,52,40,"B",1,1)=""
^DIST(.404,52,40,"B",2,14)=""
^DIST(.404,52,40,"B",3,2)=""
^DIST(.404,52,40,"B",4,3)=""
^DIST(.404,52,40,"B",5,18)=""
^DIST(.404,52,40,"B",6,5)=""
^DIST(.404,52,40,"B",7,16)=""
^DIST(.404,52,40,"B",8,11)=""
^DIST(.404,52,40,"B",9,6)=""
^DIST(.404,52,40,"B",10,7)=""
^DIST(.404,52,40,"B",11,17)=""
^DIST(.404,52,40,"B",12,8)=""
^DIST(.404,52,40,"B",13,20)=""
^DIST(.404,52,40,"B",14,9)=""
^DIST(.404,52,40,"B",15,4)=""
^DIST(.404,52,40,"B",16,12)=""
^DIST(.404,52,40,"B",17,13)=""
^DIST(.404,52,40,"B",18,19)=""
^DIST(.404,52,40,"C","AGENCY CODE",14)=""
^DIST(.404,52,40,"C","ASK DEVICE TYPE AT SIGN-ON",4)=""
^DIST(.404,52,40,"C","AUTO-GENERATE ACCESS CODES",13)=""
^DIST(.404,52,40,"C","AUTO-GENERATE VERIFY CODES",19)=""
^DIST(.404,52,40,"C","BROKER TIMEOUT",17)=""
^DIST(.404,52,40,"C","BYPASS DEVICE LOCK-OUT",8)=""
^DIST(.404,52,40,"C","CCOW TOKEN TIMEOUT",20)=""
^DIST(.404,52,40,"C","DEFAULT # OF ATTEMPTS",1)=""
^DIST(.404,52,40,"C","DEFAULT AUTO SIGN-ON",16)=""
^DIST(.404,52,40,"C","DEFAULT AUTO-MENU",5)=""
^DIST(.404,52,40,"C","DEFAULT INSTITUTION",12)=""
^DIST(.404,52,40,"C","DEFAULT LANGUAGE",11)=""
^DIST(.404,52,40,"C","DEFAULT LOCK-OUT TIME",2)=""
^DIST(.404,52,40,"C","DEFAULT MULTIPLE SIGN-ON",3)=""
^DIST(.404,52,40,"C","DEFAULT TIMED-READ (SECONDS)",7)=""
^DIST(.404,52,40,"C","DEFAULT TYPE-AHEAD",6)=""
^DIST(.404,52,40,"C","LIFETIME OF VERIFY CODE",9)=""
^DIST(.404,52,40,"C","MULTIPLE SIGN-ON LIMIT",18)=""
^DIST(.404,53,0)="XUSITEPARM 3^8989.3"
^DIST(.404,53,40,0)="^.4044I^9^8"
^DIST(.404,53,40,1,0)="1^MAX SPOOL LINES PER USER^3"
^DIST(.404,53,40,1,1)="31.1"
^DIST(.404,53,40,1,2)="1,31^7^1,5"
^DIST(.404,53,40,2,0)="2^MAX SPOOL DOCUMENTS PER USER^3"
^DIST(.404,53,40,2,1)="31.2"
^DIST(.404,53,40,2,2)="2,31^3^2,1"
^DIST(.404,53,40,3,0)="3^MAX SPOOL DOCUMENT LIFE-SPAN^3"
^DIST(.404,53,40,3,1)="31.3"
^DIST(.404,53,40,3,2)="3,31^3^3,1"
^DIST(.404,53,40,5,0)="8^NEW PERSON IDENTIFIERS^3"
^DIST(.404,53,40,5,1)="21"
^DIST(.404,53,40,5,2)="14,4^65^13,1"
^DIST(.404,53,40,6,0)="5^DEFAULT DIRECTORY FOR HFS^3"
^DIST(.404,53,40,6,1)="320"
^DIST(.404,53,40,6,2)="7,28^50^7,1"
^DIST(.404,53,40,6,4)="1"
^DIST(.404,53,40,7,0)="7^DNS IP^3"
^DIST(.404,53,40,7,1)="51"
^DIST(.404,53,40,7,2)="11,9^60^11,1"
^DIST(.404,53,40,7,4)="1"
^DIST(.404,53,40,8,0)="4^MIXED OS^3"
^DIST(.404,53,40,8,1)=".05"
^DIST(.404,53,40,8,2)="6,28^9^6,18"
^DIST(.404,53,40,8,3)="No"
^DIST(.404,53,40,8,12)="D UNED^DDSUTL(6,,,$S($$GET^DDSVAL(8989.3,1,.05):0,1:1)),REQ^DDSUTL(6,,,$$GET^DDSVAL(8989.3,1,.05))"
^DIST(.404,53,40,8,13)="I '$$GET^DDSVAL(8989.3,1,.05) D PUT^DDSVAL(DIE,.DA,320.2,"""",,""I"")"
^DIST(.404,53,40,9,0)="6^SECONDARY HFS DIRECTORY^3"
^DIST(.404,53,40,9,1)="320.2"
^DIST(.404,53,40,9,2)="8,28^49^8,3"
^DIST(.404,53,40,9,4)="1"
^DIST(.404,53,40,9,11)="D UNED^DDSUTL(6,,,$S($$GET^DDSVAL(8989.3,1,.05):0,1:1))"
^DIST(.404,53,40,"B",1,1)=""
^DIST(.404,53,40,"B",2,2)=""
^DIST(.404,53,40,"B",3,3)=""
^DIST(.404,53,40,"B",4,8)=""
^DIST(.404,53,40,"B",5,6)=""
^DIST(.404,53,40,"B",6,9)=""
^DIST(.404,53,40,"B",7,7)=""
^DIST(.404,53,40,"B",8,5)=""
^DIST(.404,53,40,"C","DEFAULT DIRECTORY FOR HFS",6)=""
^DIST(.404,53,40,"C","DNS IP",7)=""
^DIST(.404,53,40,"C","MAX SPOOL DOCUMENT LIFE-SPAN",3)=""
^DIST(.404,53,40,"C","MAX SPOOL DOCUMENTS PER USER",2)=""
^DIST(.404,53,40,"C","MAX SPOOL LINES PER USER",1)=""
^DIST(.404,53,40,"C","MIXED OS",8)=""
^DIST(.404,53,40,"C","NEW PERSON IDENTIFIERS",5)=""
^DIST(.404,53,40,"C","SECONDARY HFS DIRECTORY",9)=""
^DIST(.404,54,0)="XUSITEPARM 2^8989.3"
^DIST(.404,54,40,0)="^.4044I^3^3"
^DIST(.404,54,40,1,0)="1^Vol Set      Max Sign-ons       Log RT?^1"
^DIST(.404,54,40,1,2)="^^1,12^1"
^DIST(.404,54,40,2,0)="2^ROUTINE MONITORING^3"
^DIST(.404,54,40,2,1)="9.8"
^DIST(.404,54,40,2,2)="8,22^8^8,2"
^DIST(.404,54,40,3,0)="3^Routine Namespace's^1"
^DIST(.404,54,40,3,2)="^^9,12^1"
^DIST(.404,54,40,"B",1,1)=""
^DIST(.404,54,40,"B",2,2)=""
^DIST(.404,54,40,"B",3,3)=""
^DIST(.404,54,40,"C","ROUTINE MONITORING",2)=""
^DIST(.404,54,40,"C","ROUTINE NAMESPACE'S",3)=""
^DIST(.404,54,40,"C","VOL SET      MAX SIGN-ONS       LOG RT?",1)=""
^DIST(.404,55,0)="XUSITEPARM 2.1^8989.304"
^DIST(.404,55,40,0)="^.4044I^3^3"
^DIST(.404,55,40,1,0)="1^^3"
^DIST(.404,55,40,1,1)=".01"
^DIST(.404,55,40,1,2)="1,1^9"
^DIST(.404,55,40,2,0)="2^^3"
^DIST(.404,55,40,2,1)="2"
^DIST(.404,55,40,2,2)="1,14^4"
^DIST(.404,55,40,3,0)="3^^3"
^DIST(.404,55,40,3,1)="6"
^DIST(.404,55,40,3,2)="1,33^3"
^DIST(.404,55,40,"B",1,1)=""
^DIST(.404,55,40,"B",2,2)=""
^DIST(.404,55,40,"B",3,3)=""
^DIST(.404,56,0)="XUSITEPARM 2.2^8989.309"
^DIST(.404,56,40,0)="^.4044I^1^1"
^DIST(.404,56,40,1,0)="1^^3"
^DIST(.404,56,40,1,1)=".01"
^DIST(.404,56,40,1,2)="2,5^8"
^DIST(.404,56,40,"B",1,1)=""
^DIST(.404,57,0)="XUSITEPARM 4^8989.3"
^DIST(.404,57,40,0)="^.4044I^8^8"
^DIST(.404,57,40,1,0)="1^OPTION AUDIT^3"
^DIST(.404,57,40,1,1)="19"
^DIST(.404,57,40,1,2)="1,15^24^1,1"
^DIST(.404,57,40,2,0)="2^INITIATE AUDIT^3"
^DIST(.404,57,40,2,1)="19.4"
^DIST(.404,57,40,2,2)="2,20^17^2,4"
^DIST(.404,57,40,3,0)="3^TERMINATE AUDIT^3"
^DIST(.404,57,40,3,1)="19.5"
^DIST(.404,57,40,3,2)="2,60^17^2,43"
^DIST(.404,57,40,4,0)="4^Option to audit^1"
^DIST(.404,57,40,4,2)="^^4,4^1"
^DIST(.404,57,40,5,0)="5^Namespace to audit^1"
^DIST(.404,57,40,5,2)="^^4,43^1"
^DIST(.404,57,40,6,0)="6^User to audit^1"
^DIST(.404,57,40,6,2)="^^9,4^1"
^DIST(.404,57,40,7,0)="7^Device to audit^1"
^DIST(.404,57,40,7,2)="^^9,43"
^DIST(.404,57,40,8,0)="8^FAILED ACCESS ATTEMPTS^3"
^DIST(.404,57,40,8,1)="212.5"
^DIST(.404,57,40,8,2)="1,67^8^1,43"
^DIST(.404,57,40,"B",1,1)=""
^DIST(.404,57,40,"B",2,2)=""
^DIST(.404,57,40,"B",3,3)=""
^DIST(.404,57,40,"B",4,4)=""
^DIST(.404,57,40,"B",5,5)=""
^DIST(.404,57,40,"B",6,6)=""
^DIST(.404,57,40,"B",7,7)=""
^DIST(.404,57,40,"B",8,8)=""
^DIST(.404,57,40,"C","DEVICE TO AUDIT",7)=""
^DIST(.404,57,40,"C","FAILED ACCESS ATTEMPTS",8)=""
^DIST(.404,57,40,"C","INITIATE AUDIT",2)=""
^DIST(.404,57,40,"C","NAMESPACE TO AUDIT",5)=""
^DIST(.404,57,40,"C","OPTION AUDIT",1)=""
^DIST(.404,57,40,"C","OPTION TO AUDIT",4)=""
^DIST(.404,57,40,"C","TERMINATE AUDIT",3)=""
^DIST(.404,57,40,"C","USER TO AUDIT",6)=""
^DIST(.404,58,0)="XUSITEPARM 4.1^8989.36"
^DIST(.404,58,40,0)="^.4044I^1^1"
^DIST(.404,58,40,1,0)="1^^3"
^DIST(.404,58,40,1,1)=".01"
^DIST(.404,58,40,1,2)="1,1^30"
^DIST(.404,58,40,"B",1,1)=""
^DIST(.404,59,0)="XUSITEPARM 4.2^8989.35"
^DIST(.404,59,40,0)="^.4044I^1^1"
^DIST(.404,59,40,1,0)="1^^3"
^DIST(.404,59,40,1,1)=".01"
^DIST(.404,59,40,1,2)="1,1^5"
^DIST(.404,59,40,"B",1,1)=""
^DIST(.404,60,0)="XUSITEPARM 4.4^8989.33"
^DIST(.404,60,40,0)="^.4044I^1^1"
^DIST(.404,60,40,1,0)="1^^3"
^DIST(.404,60,40,1,1)=".01"
^DIST(.404,60,40,1,2)="1,1^20"
^DIST(.404,60,40,"B",1,1)=""
^DIST(.404,61,0)="XUSITEPARM 4.3^8989.34"
^DIST(.404,61,40,0)="^.4044I^1^1"
^DIST(.404,61,40,1,0)="1^^3"
^DIST(.404,61,40,1,1)=".01"
^DIST(.404,61,40,1,2)="1,1^30"
^DIST(.404,61,40,"B",1,1)=""
^DIST(.404,62,0)="PRSA TD 1^457.1^0"
^DIST(.404,62,40,0)="^.4044I^30^30"
^DIST(.404,62,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,62,40,1,2)="^^1,27^"
^DIST(.404,62,40,2,0)="2^TOUR OF DUTY^1^"
^DIST(.404,62,40,2,2)="^^2,34^"
^DIST(.404,62,40,3,0)="3^Tour Hours^3"
^DIST(.404,62,40,3,1)=".01"
^DIST(.404,62,40,3,2)="4,14^30^4,1"
^DIST(.404,62,40,4,0)="4^Description^3"
^DIST(.404,62,40,4,1)="1"
^DIST(.404,62,40,4,2)="5,14^30^5,1"
^DIST(.404,62,40,5,0)="5^Meal Time^3"
^DIST(.404,62,40,5,1)="2"
^DIST(.404,62,40,5,2)="6,14^3^6,1"
^DIST(.404,62,40,6,0)="6^START     STOP      CODE^1^"
^DIST(.404,62,40,6,2)="^^9,10^"
^DIST(.404,62,40,7,0)="7^1^3"
^DIST(.404,62,40,7,1)="11"
^DIST(.404,62,40,7,2)="11,9^7^11,3^1"
^DIST(.404,62,40,7,13)="S $P(ZN,""^"",1)=X"
^DIST(.404,62,40,8,0)="8^^3"
^DIST(.404,62,40,8,1)="12"
^DIST(.404,62,40,8,2)="11,19^7"
^DIST(.404,62,40,8,13)="S $P(ZN,""^"",2)=X"
^DIST(.404,62,40,9,0)="9^^3"
^DIST(.404,62,40,9,1)="13"
^DIST(.404,62,40,9,2)="11,29^20^"
^DIST(.404,62,40,9,13)="S $P(ZN,""^"",3)=X"
^DIST(.404,62,40,10,0)="10^2^3"
^DIST(.404,62,40,10,1)="14"
^DIST(.404,62,40,10,2)="12,9^7^12,3^1"
^DIST(.404,62,40,10,13)="S $P(ZN,""^"",4)=X"
^DIST(.404,62,40,11,0)="11^^3"
^DIST(.404,62,40,11,1)="15"
^DIST(.404,62,40,11,2)="12,19^7"
^DIST(.404,62,40,11,13)="S $P(ZN,""^"",5)=X"
^DIST(.404,62,40,12,0)="12^^3"
^DIST(.404,62,40,12,1)="16"
^DIST(.404,62,40,12,2)="12,29^20"
^DIST(.404,62,40,12,13)="S $P(ZN,""^"",6)=X"
^DIST(.404,62,40,13,0)="13^3^3"
^DIST(.404,62,40,13,1)="17"
^DIST(.404,62,40,13,2)="13,9^7^13,3^1"
^DIST(.404,62,40,13,13)="S $P(ZN,""^"",7)=X"
^DIST(.404,62,40,14,0)="14^^3"
^DIST(.404,62,40,14,1)="18"
^DIST(.404,62,40,14,2)="13,19^7"
^DIST(.404,62,40,14,13)="S $P(ZN,""^"",8)=X"
^DIST(.404,62,40,15,0)="15^^3"
^DIST(.404,62,40,15,1)="19"
^DIST(.404,62,40,15,2)="13,29^20"
^DIST(.404,62,40,15,13)="S $P(ZN,""^"",9)=X"
^DIST(.404,62,40,16,0)="16^4^3"
^DIST(.404,62,40,16,1)="20"
^DIST(.404,62,40,16,2)="14,9^7^14,3^1"
^DIST(.404,62,40,16,13)="S $P(ZN,""^"",10)=X"
^DIST(.404,62,40,17,0)="17^^3"
^DIST(.404,62,40,17,1)="21"
^DIST(.404,62,40,17,2)="14,19^7"
^DIST(.404,62,40,17,13)="S $P(ZN,""^"",11)=X"
^DIST(.404,62,40,18,0)="18^^3"
^DIST(.404,62,40,18,1)="22"
^DIST(.404,62,40,18,2)="14,29^20"
^DIST(.404,62,40,18,13)="S $P(ZN,""^"",12)=X"
^DIST(.404,62,40,19,0)="19^5^3"
^DIST(.404,62,40,19,1)="23"
^DIST(.404,62,40,19,2)="15,9^7^15,3^1"
^DIST(.404,62,40,19,13)="S $P(ZN,""^"",13)=X"
^DIST(.404,62,40,20,0)="20^^3"
^DIST(.404,62,40,20,1)="24"
^DIST(.404,62,40,20,2)="15,19^7"
^DIST(.404,62,40,20,13)="S $P(ZN,""^"",14)=X"
^DIST(.404,62,40,21,0)="21^^3"
^DIST(.404,62,40,21,1)="25"
^DIST(.404,62,40,21,2)="15,29^20"
^DIST(.404,62,40,21,13)="S $P(ZN,""^"",15)=X"
^DIST(.404,62,40,22,0)="22^6^3"
^DIST(.404,62,40,22,1)="26"
^DIST(.404,62,40,22,2)="16,9^7^16,3^1"
^DIST(.404,62,40,22,13)="S $P(ZN,""^"",16)=X"
^DIST(.404,62,40,23,0)="23^^3"
^DIST(.404,62,40,23,1)="27"
^DIST(.404,62,40,23,2)="16,19^7"
^DIST(.404,62,40,23,13)="S $P(ZN,""^"",17)=X"
^DIST(.404,62,40,24,0)="24^^3"
^DIST(.404,62,40,24,1)="28"
^DIST(.404,62,40,24,2)="16,29^20"
^DIST(.404,62,40,24,13)="S $P(ZN,""^"",18)=X"
^DIST(.404,62,40,25,0)="25^7^3"
^DIST(.404,62,40,25,1)="29"
^DIST(.404,62,40,25,2)="17,9^7^17,3^1"
^DIST(.404,62,40,25,13)="S $P(ZN,""^"",19)=X"
^DIST(.404,62,40,26,0)="26^^3"
^DIST(.404,62,40,26,1)="30"
^DIST(.404,62,40,26,2)="17,19^7"
^DIST(.404,62,40,26,13)="S $P(ZN,""^"",20)=X"
^DIST(.404,62,40,27,0)="27^^3"
^DIST(.404,62,40,27,1)="31"
^DIST(.404,62,40,27,2)="17,29^20"
^DIST(.404,62,40,27,13)="S $P(ZN,""^"",21)=X"
^DIST(.404,62,40,28,0)="5.5^All T&Ls?^3"
^DIST(.404,62,40,28,1)="4"
^DIST(.404,62,40,28,2)="7,14^3^7,1^1"
^DIST(.404,62,40,28,3)="N"
^DIST(.404,62,40,29,0)="5.7^Two-Day Tour?^3"
^DIST(.404,62,40,29,1)="5"
^DIST(.404,62,40,29,2)="7,54^3^7,40^1"
^DIST(.404,62,40,29,3)="N"
^DIST(.404,62,40,30,0)="5.3^Meal on Premium Time?^3"
^DIST(.404,62,40,30,1)="7"
^DIST(.404,62,40,30,2)="6,62^3^6,40^1"
^DIST(.404,62,40,30,3)="N"
^DIST(.404,62,40,"B",1,1)=""
^DIST(.404,62,40,"B",2,2)=""
^DIST(.404,62,40,"B",3,3)=""
^DIST(.404,62,40,"B",4,4)=""
^DIST(.404,62,40,"B",5,5)=""
^DIST(.404,62,40,"B",5.3,30)=""
^DIST(.404,62,40,"B",5.5,28)=""
^DIST(.404,62,40,"B",5.7,29)=""
^DIST(.404,62,40,"B",6,6)=""
^DIST(.404,62,40,"B",7,7)=""
^DIST(.404,62,40,"B",8,8)=""
^DIST(.404,62,40,"B",9,9)=""
^DIST(.404,62,40,"B",10,10)=""
^DIST(.404,62,40,"B",11,11)=""
^DIST(.404,62,40,"B",12,12)=""
^DIST(.404,62,40,"B",13,13)=""
^DIST(.404,62,40,"B",14,14)=""
^DIST(.404,62,40,"B",15,15)=""
^DIST(.404,62,40,"B",16,16)=""
^DIST(.404,62,40,"B",17,17)=""
^DIST(.404,62,40,"B",18,18)=""
^DIST(.404,62,40,"B",19,19)=""
^DIST(.404,62,40,"B",20,20)=""
^DIST(.404,62,40,"B",21,21)=""
^DIST(.404,62,40,"B",22,22)=""
^DIST(.404,62,40,"B",23,23)=""
^DIST(.404,62,40,"B",24,24)=""
^DIST(.404,62,40,"B",25,25)=""
^DIST(.404,62,40,"B",26,26)=""
^DIST(.404,62,40,"B",27,27)=""
^DIST(.404,62,40,"C",1,7)=""
^DIST(.404,62,40,"C",2,10)=""
^DIST(.404,62,40,"C",3,13)=""
^DIST(.404,62,40,"C",4,16)=""
^DIST(.404,62,40,"C",5,19)=""
^DIST(.404,62,40,"C",6,22)=""
^DIST(.404,62,40,"C",7,25)=""
^DIST(.404,62,40,"C","ALL T&LS?",28)=""
^DIST(.404,62,40,"C","DESCRIPTION",4)=""
^DIST(.404,62,40,"C","MEAL ON PREMIUM TIME?",30)=""
^DIST(.404,62,40,"C","MEAL TIME",5)=""
^DIST(.404,62,40,"C","START     STOP      CODE",6)=""
^DIST(.404,62,40,"C","TOUR HOURS",3)=""
^DIST(.404,62,40,"C","TOUR OF DUTY",2)=""
^DIST(.404,62,40,"C","TWO-DAY TOUR?",29)=""
^DIST(.404,62,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,63,0)="PRSA TP POST^458.02^0"
^DIST(.404,63,12)=""
^DIST(.404,63,40,0)="^.4044I^32^30"
^DIST(.404,63,40,3,0)="3^START     STOP      TYPE OF TIME  REMARKS CODE^1^"
^DIST(.404,63,40,3,2)="^^1,10^"
^DIST(.404,63,40,4,0)="4^1^3"
^DIST(.404,63,40,4,1)="41"
^DIST(.404,63,40,4,2)="3,9^7^3,3^1"
^DIST(.404,63,40,4,13)="S $P(Z,""^"",1)=X"
^DIST(.404,63,40,5,0)="5^^3"
^DIST(.404,63,40,5,1)="42"
^DIST(.404,63,40,5,2)="3,19^7"
^DIST(.404,63,40,5,13)="S $P(Z,""^"",2)=X"
^DIST(.404,63,40,6,0)="6^^3"
^DIST(.404,63,40,6,1)="43"
^DIST(.404,63,40,6,2)="3,30^10"
^DIST(.404,63,40,6,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,6,13)="S $P(Z,""^"",3)=X"
^DIST(.404,63,40,7,0)="7^^3"
^DIST(.404,63,40,7,1)="44"
^DIST(.404,63,40,7,2)="3,44^25"
^DIST(.404,63,40,7,11)="S TT=$$GET^DDSVAL(DIE,.DA,43,.ERR43) S:TT="""" TT=""*"""
^DIST(.404,63,40,7,13)="S $P(Z,""^"",4)=X"
^DIST(.404,63,40,8,0)="8^2^3"
^DIST(.404,63,40,8,1)="45"
^DIST(.404,63,40,8,2)="4,9^7^4,3^1"
^DIST(.404,63,40,8,13)="S $P(Z,""^"",5)=X"
^DIST(.404,63,40,9,0)="9^^3"
^DIST(.404,63,40,9,1)="46"
^DIST(.404,63,40,9,2)="4,19^7"
^DIST(.404,63,40,9,13)="S $P(Z,""^"",6)=X"
^DIST(.404,63,40,10,0)="10^^3"
^DIST(.404,63,40,10,1)="47"
^DIST(.404,63,40,10,2)="4,30^10"
^DIST(.404,63,40,10,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,10,13)="S $P(Z,""^"",7)=X"
^DIST(.404,63,40,11,0)="11^^3"
^DIST(.404,63,40,11,1)="48"
^DIST(.404,63,40,11,2)="4,44^25"
^DIST(.404,63,40,11,11)="S TT=$$GET^DDSVAL(DIE,.DA,47) S:TT="""" TT=""*"""
^DIST(.404,63,40,11,13)="S $P(Z,""^"",8)=X"
^DIST(.404,63,40,12,0)="12^3^3"
^DIST(.404,63,40,12,1)="49"
^DIST(.404,63,40,12,2)="5,9^7^5,3^1"
^DIST(.404,63,40,12,13)="S $P(Z,""^"",9)=X"
^DIST(.404,63,40,13,0)="13^^3"
^DIST(.404,63,40,13,1)="50"
^DIST(.404,63,40,13,2)="5,19^7"
^DIST(.404,63,40,13,13)="S $P(Z,""^"",10)=X"
^DIST(.404,63,40,14,0)="14^^3"
^DIST(.404,63,40,14,1)="51"
^DIST(.404,63,40,14,2)="5,30^10"
^DIST(.404,63,40,14,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,14,13)="S $P(Z,""^"",11)=X"
^DIST(.404,63,40,15,0)="15^^3"
^DIST(.404,63,40,15,1)="52"
^DIST(.404,63,40,15,2)="5,44^25"
^DIST(.404,63,40,15,11)="S TT=$$GET^DDSVAL(DIE,.DA,51) S:TT="""" TT=""*"""
^DIST(.404,63,40,15,13)="S $P(Z,""^"",12)=X"
^DIST(.404,63,40,16,0)="16^4^3"
^DIST(.404,63,40,16,1)="53"
^DIST(.404,63,40,16,2)="6,9^7^6,3^1"
^DIST(.404,63,40,16,13)="S $P(Z,""^"",13)=X"
^DIST(.404,63,40,17,0)="17^^3"
^DIST(.404,63,40,17,1)="54"
^DIST(.404,63,40,17,2)="6,19^7"
^DIST(.404,63,40,17,13)="S $P(Z,""^"",14)=X"
^DIST(.404,63,40,18,0)="18^^3"
^DIST(.404,63,40,18,1)="55"
^DIST(.404,63,40,18,2)="6,30^10"
^DIST(.404,63,40,18,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,18,13)="S $P(Z,""^"",15)=X"
^DIST(.404,63,40,19,0)="19^^3"
^DIST(.404,63,40,19,1)="56"
^DIST(.404,63,40,19,2)="6,44^25"
^DIST(.404,63,40,19,11)="S TT=$$GET^DDSVAL(DIE,.DA,55) S:TT="""" TT=""*"""
^DIST(.404,63,40,19,13)="S $P(Z,""^"",16)=X"
^DIST(.404,63,40,20,0)="20^5^3"
^DIST(.404,63,40,20,1)="57"
^DIST(.404,63,40,20,2)="7,9^7^7,3^1"
^DIST(.404,63,40,20,13)="S $P(Z,""^"",17)=X"
^DIST(.404,63,40,21,0)="21^^3"
^DIST(.404,63,40,21,1)="58"
^DIST(.404,63,40,21,2)="7,19^7"
^DIST(.404,63,40,21,13)="S $P(Z,""^"",18)=X"
^DIST(.404,63,40,22,0)="22^^3"
^DIST(.404,63,40,22,1)="59"
^DIST(.404,63,40,22,2)="7,30^10"
^DIST(.404,63,40,22,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,22,13)="S $P(Z,""^"",19)=X"
^DIST(.404,63,40,23,0)="23^^3"
^DIST(.404,63,40,23,1)="60"
^DIST(.404,63,40,23,2)="7,44^25"
^DIST(.404,63,40,23,11)="S TT=$$GET^DDSVAL(DIE,.DA,59) S:TT="""" TT=""*"""
^DIST(.404,63,40,23,13)="S $P(Z,""^"",20)=X"
^DIST(.404,63,40,24,0)="24^6^3"
^DIST(.404,63,40,24,1)="61"
^DIST(.404,63,40,24,2)="8,9^7^8,3^1"
^DIST(.404,63,40,24,13)="S $P(Z,""^"",21)=X"
^DIST(.404,63,40,25,0)="25^^3"
^DIST(.404,63,40,25,1)="62"
^DIST(.404,63,40,25,2)="8,19^7"
^DIST(.404,63,40,25,13)="S $P(Z,""^"",22)=X"
^DIST(.404,63,40,26,0)="26^^3"
^DIST(.404,63,40,26,1)="63"
^DIST(.404,63,40,26,2)="8,30^10"
^DIST(.404,63,40,26,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,26,13)="S $P(Z,""^"",23)=X"
^DIST(.404,63,40,27,0)="27^^3"
^DIST(.404,63,40,27,1)="64"
^DIST(.404,63,40,27,2)="8,44^25"
^DIST(.404,63,40,27,11)="S TT=$$GET^DDSVAL(DIE,.DA,63) S:TT="""" TT=""*"""
^DIST(.404,63,40,27,13)="S $P(Z,""^"",24)=X"
^DIST(.404,63,40,28,0)="28^7^3"
^DIST(.404,63,40,28,1)="65"
^DIST(.404,63,40,28,2)="9,9^7^9,3^1"
^DIST(.404,63,40,28,13)="S $P(Z,""^"",25)=X"
^DIST(.404,63,40,29,0)="29^^3"
^DIST(.404,63,40,29,1)="66"
^DIST(.404,63,40,29,2)="9,19^7"
^DIST(.404,63,40,29,13)="S $P(Z,""^"",26)=X"
^DIST(.404,63,40,30,0)="30^^3"
^DIST(.404,63,40,30,1)="67"
^DIST(.404,63,40,30,2)="9,30^10"
^DIST(.404,63,40,30,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,63,40,30,13)="S $P(Z,""^"",27)=X"
^DIST(.404,63,40,31,0)="31^^3"
^DIST(.404,63,40,31,1)="68"
^DIST(.404,63,40,31,2)="9,44^25"
^DIST(.404,63,40,31,11)="S TT=$$GET^DDSVAL(DIE,.DA,67) S:TT="""" TT=""*"""
^DIST(.404,63,40,31,13)="S $P(Z,""^"",28)=X"
^DIST(.404,63,40,32,0)="32^Remarks^3"
^DIST(.404,63,40,32,1)="70"
^DIST(.404,63,40,32,2)="11,10^70^11,1"
^DIST(.404,63,40,"B",3,3)=""
^DIST(.404,63,40,"B",4,4)=""
^DIST(.404,63,40,"B",5,5)=""
^DIST(.404,63,40,"B",6,6)=""
^DIST(.404,63,40,"B",7,7)=""
^DIST(.404,63,40,"B",8,8)=""
^DIST(.404,63,40,"B",9,9)=""
^DIST(.404,63,40,"B",10,10)=""
^DIST(.404,63,40,"B",11,11)=""
^DIST(.404,63,40,"B",12,12)=""
^DIST(.404,63,40,"B",13,13)=""
^DIST(.404,63,40,"B",14,14)=""
^DIST(.404,63,40,"B",15,15)=""
^DIST(.404,63,40,"B",16,16)=""
^DIST(.404,63,40,"B",17,17)=""
^DIST(.404,63,40,"B",18,18)=""
^DIST(.404,63,40,"B",19,19)=""
^DIST(.404,63,40,"B",20,20)=""
^DIST(.404,63,40,"B",21,21)=""
^DIST(.404,63,40,"B",22,22)=""
^DIST(.404,63,40,"B",23,23)=""
^DIST(.404,63,40,"B",24,24)=""
^DIST(.404,63,40,"B",25,25)=""
^DIST(.404,63,40,"B",26,26)=""
^DIST(.404,63,40,"B",27,27)=""
^DIST(.404,63,40,"B",28,28)=""
^DIST(.404,63,40,"B",29,29)=""
^DIST(.404,63,40,"B",30,30)=""
^DIST(.404,63,40,"B",31,31)=""
^DIST(.404,63,40,"B",32,32)=""
^DIST(.404,63,40,"C",1,4)=""
^DIST(.404,63,40,"C",2,8)=""
^DIST(.404,63,40,"C",3,12)=""
^DIST(.404,63,40,"C",4,16)=""
^DIST(.404,63,40,"C",5,20)=""
^DIST(.404,63,40,"C",6,24)=""
^DIST(.404,63,40,"C",7,28)=""
^DIST(.404,63,40,"C","REMARKS",32)=""
^DIST(.404,63,40,"C","START     STOP      TYPE OF TIME  REMARKS CODE",3)=""
^DIST(.404,64,0)="PRSA OT REQ1^458.2^0"
^DIST(.404,64,40,0)="^.4044I^9^8"
^DIST(.404,64,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,64,40,1,2)="^^2,27^"
^DIST(.404,64,40,2,0)="2^OVERTIME & COMP TIME/CREDIT HOURS REQUEST^1^"
^DIST(.404,64,40,2,2)="^^4,20"
^DIST(.404,64,40,3,0)="3^Employee^3"
^DIST(.404,64,40,3,1)="1"
^DIST(.404,64,40,3,2)="7,23^30^7,1"
^DIST(.404,64,40,3,4)="^^^1"
^DIST(.404,64,40,4,0)="4^Requested Work Date^3"
^DIST(.404,64,40,4,1)="2"
^DIST(.404,64,40,4,2)="9,23^11^9,1"
^DIST(.404,64,40,6,0)="6^Type of Time^3"
^DIST(.404,64,40,6,1)="4"
^DIST(.404,64,40,6,2)="11,23^20^11,1"
^DIST(.404,64,40,7,0)="7^Hours Requested^3"
^DIST(.404,64,40,7,1)="5"
^DIST(.404,64,40,7,2)="13,23^5^13,1"
^DIST(.404,64,40,8,0)="9^Justification^3"
^DIST(.404,64,40,8,1)="6"
^DIST(.404,64,40,8,2)="17,16^60^17,1"
^DIST(.404,64,40,9,0)="8^T&L Worked^3"
^DIST(.404,64,40,9,1)="11"
^DIST(.404,64,40,9,2)="15,23^3^15,1^1"
^DIST(.404,64,40,9,3)="!M"
^DIST(.404,64,40,9,3.1)="S Y=TLE"
^DIST(.404,64,40,9,4)="1"
^DIST(.404,64,40,"B",1,1)=""
^DIST(.404,64,40,"B",2,2)=""
^DIST(.404,64,40,"B",3,3)=""
^DIST(.404,64,40,"B",4,4)=""
^DIST(.404,64,40,"B",6,6)=""
^DIST(.404,64,40,"B",7,7)=""
^DIST(.404,64,40,"B",8,9)=""
^DIST(.404,64,40,"B",9,8)=""
^DIST(.404,64,40,"C","EMPLOYEE",3)=""
^DIST(.404,64,40,"C","HOURS REQUESTED",7)=""
^DIST(.404,64,40,"C","JUSTIFICATION",8)=""
^DIST(.404,64,40,"C","OVERTIME & COMP TIME/CREDIT HOURS REQUEST",2)=""
^DIST(.404,64,40,"C","REQUESTED WORK DATE",4)=""
^DIST(.404,64,40,"C","T&L WORKED",9)=""
^DIST(.404,64,40,"C","TYPE OF TIME",6)=""
^DIST(.404,64,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,65,0)="PRSA TL DISP^455.5^0"
^DIST(.404,65,40,0)="^.4044I^12^12"
^DIST(.404,65,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,65,40,1,2)="^^2,27^"
^DIST(.404,65,40,2,0)="2^TIME & LEAVE UNIT^1^"
^DIST(.404,65,40,2,2)="^^3,32^"
^DIST(.404,65,40,3,0)="3^CODE^3"
^DIST(.404,65,40,3,1)=".01"
^DIST(.404,65,40,3,2)="5,13^3^5,1"
^DIST(.404,65,40,4,0)="4^NAME^3"
^DIST(.404,65,40,4,1)="1"
^DIST(.404,65,40,4,2)="6,13^20^6,1"
^DIST(.404,65,40,5,0)="5^STATION #^3"
^DIST(.404,65,40,5,1)="20"
^DIST(.404,65,40,5,2)="7,13^3^7,1^1"
^DIST(.404,65,40,5,3)="!M"
^DIST(.404,65,40,5,3.1)="S Y=$G(^DD(""SITE"",1))"
^DIST(.404,65,40,6,0)="6^SERVICE^3"
^DIST(.404,65,40,6,1)="21"
^DIST(.404,65,40,6,2)="8,13^30^8,1"
^DIST(.404,65,40,7,0)="7^SECTION^3"
^DIST(.404,65,40,7,1)="22"
^DIST(.404,65,40,7,2)="8,59^20^8,50"
^DIST(.404,65,40,8,0)="9^Select TIMEKEEPER^3"
^DIST(.404,65,40,8,1)="10"
^DIST(.404,65,40,8,2)="13,24^30^13,1"
^DIST(.404,65,40,8,7)="^1.1"
^DIST(.404,65,40,9,0)="10^Select SUPERVISOR^3"
^DIST(.404,65,40,9,1)="11"
^DIST(.404,65,40,9,2)="15,24^30^15,1"
^DIST(.404,65,40,9,7)="^1.2"
^DIST(.404,65,40,10,0)="11^Select OT/CT APPROVER^3"
^DIST(.404,65,40,10,1)="12"
^DIST(.404,65,40,10,2)="17,24^30^17,1"
^DIST(.404,65,40,10,7)="^1.3"
^DIST(.404,65,40,11,0)="8^Entitled Sat/Sun Premiums?^3"
^DIST(.404,65,40,11,1)="23"
^DIST(.404,65,40,11,2)="11,28^3^11,1^1"
^DIST(.404,65,40,12,0)="7.5^Time SleepTime Begins^3"
^DIST(.404,65,40,12,1)="24"
^DIST(.404,65,40,12,2)="10,28^6^10,1"
^DIST(.404,65,40,"B",1,1)=""
^DIST(.404,65,40,"B",2,2)=""
^DIST(.404,65,40,"B",3,3)=""
^DIST(.404,65,40,"B",4,4)=""
^DIST(.404,65,40,"B",5,5)=""
^DIST(.404,65,40,"B",6,6)=""
^DIST(.404,65,40,"B",7,7)=""
^DIST(.404,65,40,"B",7.5,12)=""
^DIST(.404,65,40,"B",8,11)=""
^DIST(.404,65,40,"B",9,8)=""
^DIST(.404,65,40,"B",10,9)=""
^DIST(.404,65,40,"B",11,10)=""
^DIST(.404,65,40,"C","CODE",3)=""
^DIST(.404,65,40,"C","ENTITLED SAT/SUN PREMIUMS?",11)=""
^DIST(.404,65,40,"C","NAME",4)=""
^DIST(.404,65,40,"C","OT/CT APPROVER",10)=""
^DIST(.404,65,40,"C","SECTION",7)=""
^DIST(.404,65,40,"C","SERVICE",6)=""
^DIST(.404,65,40,"C","STATION #",5)=""
^DIST(.404,65,40,"C","SUPERVISOR",9)=""
^DIST(.404,65,40,"C","TIME & LEAVE UNIT",2)=""
^DIST(.404,65,40,"C","TIME SLEEPTIME BEGINS",12)=""
^DIST(.404,65,40,"C","TIMEKEEPER",8)=""
^DIST(.404,65,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,66,0)="PRSA TL ED1^455.51"
^DIST(.404,66,40,0)="^.4044I^1^1"
^DIST(.404,66,40,1,0)="1^Timekeeper^3"
^DIST(.404,66,40,1,1)=".01"
^DIST(.404,66,40,1,2)="1,13^30^1,1"
^DIST(.404,66,40,"B",1,1)=""
^DIST(.404,66,40,"C","TIMEKEEPER",1)=""
^DIST(.404,67,0)="PRSA TL ED2^455.511"
^DIST(.404,67,40,0)="^.4044I^2^2"
^DIST(.404,67,40,1,0)="1^Supervisor^3"
^DIST(.404,67,40,1,1)=".01"
^DIST(.404,67,40,1,2)="1,13^30^1,1"
^DIST(.404,67,40,2,0)="2^T&L which Certifies Supervisor^3"
^DIST(.404,67,40,2,1)="1"
^DIST(.404,67,40,2,2)="3,33^3^3,1"
^DIST(.404,67,40,2,4)="1"
^DIST(.404,67,40,"B",1,1)=""
^DIST(.404,67,40,"B",2,2)=""
^DIST(.404,67,40,"C","SUPERVISOR",1)=""
^DIST(.404,67,40,"C","T&L WHICH CERTIFIES SUPERVISOR",2)=""
^DIST(.404,68,0)="PRSA LV REQ^458.1^0"
^DIST(.404,68,40,0)="^.4044I^14^14"
^DIST(.404,68,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,68,40,1,2)="^^1,27^"
^DIST(.404,68,40,2,0)="2^REQUEST FOR LEAVE^1^"
^DIST(.404,68,40,2,2)="^^2,32^"
^DIST(.404,68,40,3,0)="5^From Date^3"
^DIST(.404,68,40,3,1)="2"
^DIST(.404,68,40,3,2)="6,12^11^6,1"
^DIST(.404,68,40,3,4)="1"
^DIST(.404,68,40,3,11)="K LVTYPE"
^DIST(.404,68,40,3,13)="S $P(Z1,""^"",1)=X"
^DIST(.404,68,40,4,0)="6^Time^3"
^DIST(.404,68,40,4,1)="3"
^DIST(.404,68,40,4,2)="6,41^7^6,35"
^DIST(.404,68,40,4,4)="1"
^DIST(.404,68,40,4,13)="S $P(Z1,""^"",2)=X"
^DIST(.404,68,40,5,0)="7^To Date^3"
^DIST(.404,68,40,5,1)="4"
^DIST(.404,68,40,5,2)="8,10^11^8,1"
^DIST(.404,68,40,5,4)="1"
^DIST(.404,68,40,5,13)="S $P(Z1,""^"",3)=X"
^DIST(.404,68,40,6,0)="8^Time^3"
^DIST(.404,68,40,6,1)="5"
^DIST(.404,68,40,6,2)="8,41^7^8,35"
^DIST(.404,68,40,6,4)="1"
^DIST(.404,68,40,6,13)="S $P(Z1,""^"",4)=X"
^DIST(.404,68,40,7,0)="13^Type of Leave^3"
^DIST(.404,68,40,7,1)="6"
^DIST(.404,68,40,7,2)="15,16^21^15,1"
^DIST(.404,68,40,7,4)="1"
^DIST(.404,68,40,7,12)="S:X=""ML"" LVTYPE=X"
^DIST(.404,68,40,8,0)="16^Remarks^3"
^DIST(.404,68,40,8,1)="7"
^DIST(.404,68,40,8,2)="17,10^60^17,1"
^DIST(.404,68,40,8,4)="0"
^DIST(.404,68,40,9,0)="3^!M^1^"
^DIST(.404,68,40,9,.1)="S Y=$P(^PRSPC(DFN,0),""^"",1)"
^DIST(.404,68,40,9,2)="^^4,1^"
^DIST(.404,68,40,10,0)="4^!M^1^"
^DIST(.404,68,40,10,.1)="S Y=$P(^PRSPC(DFN,0),""^"",9),Y=""XXX-XX-""_$E(Y,6,9)"
^DIST(.404,68,40,10,2)="^^4,35"
^DIST(.404,68,40,11,0)="9^AL  Annual Leave          AA  Authorized Absence        CB  Family Care^1^"
^DIST(.404,68,40,11,2)="^^10,3^1"
^DIST(.404,68,40,12,0)="10^SL  Sick Leave            ML  Military Leave            AD  Adoption^1^"
^DIST(.404,68,40,12,2)="^^11,3^1"
^DIST(.404,68,40,13,0)="11^WP  Without Pay           RL  Restored Annual Leave     DL  Donor Leave^1^"
^DIST(.404,68,40,13,2)="^^12,3^1"
^DIST(.404,68,40,14,0)="12^CU  Comp Time/Credit Hrs  NL  Non-Pay Annual Leave^1^"
^DIST(.404,68,40,14,2)="^^13,3"
^DIST(.404,68,40,15,0)="14^!M^1^"
^DIST(.404,68,40,15,.1)="S Y=Y15"
^DIST(.404,68,40,15,2)="^^15,40"
^DIST(.404,68,40,16,0)="15^^3"
^DIST(.404,68,40,16,1)="15"
^DIST(.404,68,40,16,2)="15,60^6"
^DIST(.404,68,40,16,11)="I $G(LVTYPE)=""ML"" D HLP^DDSUTL(""The minimum charge for Military Leave is one hour."")"
^DIST(.404,68,40,"B",1,1)=""
^DIST(.404,68,40,"B",2,2)=""
^DIST(.404,68,40,"B",3,9)=""
^DIST(.404,68,40,"B",4,10)=""
^DIST(.404,68,40,"B",5,3)=""
^DIST(.404,68,40,"B",6,4)=""
^DIST(.404,68,40,"B",7,5)=""
^DIST(.404,68,40,"B",8,6)=""
^DIST(.404,68,40,"B",9,11)=""
^DIST(.404,68,40,"B",10,12)=""
^DIST(.404,68,40,"B",11,13)=""
^DIST(.404,68,40,"B",12,14)=""
^DIST(.404,68,40,"B",13,7)=""
^DIST(.404,68,40,"B",14,15)=""
^DIST(.404,68,40,"B",15,16)=""
^DIST(.404,68,40,"B",16,8)=""
^DIST(.404,68,40,"C","AL  ANNUAL LEAVE          AA  AUTHORIZED ABSENCE        CB  FAM",11)=""
^DIST(.404,68,40,"C","CU  COMP TIME/CREDIT HRS  NL  NON-PAY ANNUAL LEAVE",14)=""
^DIST(.404,68,40,"C","FROM DATE",3)=""
^DIST(.404,68,40,"C","REMARKS",8)=""
^DIST(.404,68,40,"C","REQUEST FOR LEAVE",2)=""
^DIST(.404,68,40,"C","SL  SICK LEAVE            ML  MILITARY LEAVE            AD  ADO",12)=""
^DIST(.404,68,40,"C","TIME",4)=""
^DIST(.404,68,40,"C","TIME",6)=""
^DIST(.404,68,40,"C","TO DATE",5)=""
^DIST(.404,68,40,"C","TYPE OF LEAVE",7)=""
^DIST(.404,68,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,68,40,"C","WP  WITHOUT PAY           RL  RESTORED ANNUAL LEAVE     DL  DON",13)=""
^DIST(.404,69,0)="PRSA EMP HDR^458.01^1"
^DIST(.404,69,40,0)="^.4044I^10^10"
^DIST(.404,69,40,1,0)="1^!M^1^"
^DIST(.404,69,40,1,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",1)"
^DIST(.404,69,40,1,2)="^^1,1^"
^DIST(.404,69,40,2,0)="2^!M^1^"
^DIST(.404,69,40,2,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9) S:Y>1 Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DIST(.404,69,40,2,2)="^^1,66"
^DIST(.404,69,40,3,0)="3^!M^1^"
^DIST(.404,69,40,3,.1)="S Y=""Station: ""_$P($G(^PRSPC(DFN,0)),""^"",7)"
^DIST(.404,69,40,3,2)="^^3,1^"
^DIST(.404,69,40,4,0)="4^!M^1^"
^DIST(.404,69,40,4,.1)="S Y=""Normal Hours: ""_$J($P($G(^PRSPC(DFN,0)),""^"",16),3)"
^DIST(.404,69,40,4,2)="^^3,31^"
^DIST(.404,69,40,5,0)="5^!M^1^"
^DIST(.404,69,40,5,.1)="S Y=""Duty Basis: ""_$P($G(^PRSPC(DFN,0)),""^"",10)"
^DIST(.404,69,40,5,2)="^^3,66"
^DIST(.404,69,40,6,0)="6^!M^1^"
^DIST(.404,69,40,6,.1)="S Y=""T&L:     ""_$P($G(^PRSPC(DFN,0)),""^"",8)"
^DIST(.404,69,40,6,2)="^^4,1^"
^DIST(.404,69,40,7,0)="7^!M^1^"
^DIST(.404,69,40,7,.1)="S Y=""Pay Plan:        ""_$P($G(^PRSPC(DFN,0)),""^"",21)"
^DIST(.404,69,40,7,2)="^^4,31"
^DIST(.404,69,40,8,0)="8^!M^1^"
^DIST(.404,69,40,8,.1)="S Y=""Flextime:   ""_$P($G(^PRSPC(DFN,1)),""^"",7)"
^DIST(.404,69,40,8,2)="^^4,66^"
^DIST(.404,69,40,9,0)="9^!M^1^"
^DIST(.404,69,40,9,.1)="S Y=""Pay Per: ""_PPE"
^DIST(.404,69,40,9,2)="^^5,1^"
^DIST(.404,69,40,10,0)="10^!M^1^"
^DIST(.404,69,40,10,.1)="S Y=""FLSA:       ""_$P($G(^PRSPC(DFN,0)),""^"",12)"
^DIST(.404,69,40,10,2)="^^5,66"
^DIST(.404,69,40,"B",1,1)=""
^DIST(.404,69,40,"B",2,2)=""
^DIST(.404,69,40,"B",3,3)=""
^DIST(.404,69,40,"B",4,4)=""
^DIST(.404,69,40,"B",5,5)=""
^DIST(.404,69,40,"B",6,6)=""
^DIST(.404,69,40,"B",7,7)=""
^DIST(.404,69,40,"B",8,8)=""
^DIST(.404,69,40,"B",9,9)=""
^DIST(.404,69,40,"B",10,10)=""
^DIST(.404,70,0)="PRSA ED REQ^458.3^0"
^DIST(.404,70,40,0)="^.4044I^10^9"
^DIST(.404,70,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,70,40,1,2)="^^2,27^"
^DIST(.404,70,40,2,0)="2^ENVIRONMENTAL DIFFERENTIAL REQUEST^1^"
^DIST(.404,70,40,2,2)="^^3,24^"
^DIST(.404,70,40,3,0)="5^Date^3"
^DIST(.404,70,40,3,1)="2"
^DIST(.404,70,40,3,2)="7,7^11^7,1"
^DIST(.404,70,40,3,4)="1"
^DIST(.404,70,40,3,13)="S $P(Z1,""^"",1)=X"
^DIST(.404,70,40,4,0)="6^From Time^3"
^DIST(.404,70,40,4,1)="3"
^DIST(.404,70,40,4,2)="7,46^7^7,35"
^DIST(.404,70,40,4,4)="1"
^DIST(.404,70,40,4,13)="S $P(Z1,""^"",2)=X"
^DIST(.404,70,40,5,0)="7^To Time^3"
^DIST(.404,70,40,5,1)="5"
^DIST(.404,70,40,5,2)="9,46^7^9,35^0"
^DIST(.404,70,40,5,4)="1"
^DIST(.404,70,40,5,13)="S $P(Z1,""^"",4)=X"
^DIST(.404,70,40,6,0)="8^Meal Time^3"
^DIST(.404,70,40,6,1)="4"
^DIST(.404,70,40,6,2)="11,12^2^11,1^0"
^DIST(.404,70,40,6,4)="1"
^DIST(.404,70,40,6,13)="S $P(Z1,""^"",3)=X"
^DIST(.404,70,40,7,0)="9^Type of Exposure^3"
^DIST(.404,70,40,7,1)="6"
^DIST(.404,70,40,7,2)="13,19^17^13,1"
^DIST(.404,70,40,7,4)="1"
^DIST(.404,70,40,8,0)="10^Justification^3"
^DIST(.404,70,40,8,1)="7"
^DIST(.404,70,40,8,2)="15,16^60^15,1"
^DIST(.404,70,40,8,4)="1"
^DIST(.404,70,40,10,0)="4^Employee^3^"
^DIST(.404,70,40,10,.1)=""
^DIST(.404,70,40,10,1)="1"
^DIST(.404,70,40,10,2)="5,11^30^5,1^"
^DIST(.404,70,40,10,4)="1^^^1"
^DIST(.404,70,40,"B",1,1)=""
^DIST(.404,70,40,"B",2,2)=""
^DIST(.404,70,40,"B",4,10)=""
^DIST(.404,70,40,"B",5,3)=""
^DIST(.404,70,40,"B",6,4)=""
^DIST(.404,70,40,"B",7,5)=""
^DIST(.404,70,40,"B",8,6)=""
^DIST(.404,70,40,"B",9,7)=""
^DIST(.404,70,40,"B",10,8)=""
^DIST(.404,70,40,"C","DATE",3)=""
^DIST(.404,70,40,"C","EMPLOYEE",10)=""
^DIST(.404,70,40,"C","ENVIRONMENTAL DIFFERENTIAL REQUEST",2)=""
^DIST(.404,70,40,"C","FROM TIME",4)=""
^DIST(.404,70,40,"C","JUSTIFICATION",8)=""
^DIST(.404,70,40,"C","MEAL TIME",6)=""
^DIST(.404,70,40,"C","TO TIME",5)=""
^DIST(.404,70,40,"C","TYPE OF EXPOSURE",7)=""
^DIST(.404,70,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,71,0)="PRSA VC HDR^458.01"
^DIST(.404,71,40,0)="^.4044I^5^5"
^DIST(.404,71,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,71,40,1,2)="^^1,27^"
^DIST(.404,71,40,2,0)="2^VCS COMMISSION SALES^1^"
^DIST(.404,71,40,2,2)="^^2,30^"
^DIST(.404,71,40,3,0)="3^!M^1^"
^DIST(.404,71,40,3,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",1)"
^DIST(.404,71,40,3,2)="^^4,1^"
^DIST(.404,71,40,4,0)="4^!M^1^"
^DIST(.404,71,40,4,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9),Y=$E(Y)_""XX-XX-""_$E(Y,6,9)"
^DIST(.404,71,40,4,2)="^^4,68"
^DIST(.404,71,40,5,0)="5^!M^1^"
^DIST(.404,71,40,5,.1)="S Y=DTE"
^DIST(.404,71,40,5,2)="^^6,24^"
^DIST(.404,71,40,"B",1,1)=""
^DIST(.404,71,40,"B",2,2)=""
^DIST(.404,71,40,"B",3,3)=""
^DIST(.404,71,40,"B",4,4)=""
^DIST(.404,71,40,"B",5,5)=""
^DIST(.404,71,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,71,40,"C","VCS COMMISSION SALES",2)=""
^DIST(.404,72,0)="PRSA VC POST^458.01"
^DIST(.404,72,40,0)="^.4044I^15^15"
^DIST(.404,72,40,1,0)="1^Sun       Mon       Tue       Wed       Thu       Fri       Sat^1^"
^DIST(.404,72,40,1,2)="^^1,14^"
^DIST(.404,72,40,2,0)="2^Week 1^3"
^DIST(.404,72,40,2,1)="20"
^DIST(.404,72,40,2,2)="3,12^7^3,1^1"
^DIST(.404,72,40,3,0)="3^^3"
^DIST(.404,72,40,3,1)="21"
^DIST(.404,72,40,3,2)="3,22^7"
^DIST(.404,72,40,4,0)="4^^3"
^DIST(.404,72,40,4,1)="22"
^DIST(.404,72,40,4,2)="3,32^7"
^DIST(.404,72,40,5,0)="5^^3"
^DIST(.404,72,40,5,1)="23"
^DIST(.404,72,40,5,2)="3,42^7"
^DIST(.404,72,40,6,0)="6^^3"
^DIST(.404,72,40,6,1)="24"
^DIST(.404,72,40,6,2)="3,52^7"
^DIST(.404,72,40,7,0)="7^^3"
^DIST(.404,72,40,7,1)="25"
^DIST(.404,72,40,7,2)="3,62^7"
^DIST(.404,72,40,8,0)="8^^3"
^DIST(.404,72,40,8,1)="26"
^DIST(.404,72,40,8,2)="3,72^7"
^DIST(.404,72,40,9,0)="9^Week 2^3"
^DIST(.404,72,40,9,1)="27"
^DIST(.404,72,40,9,2)="5,12^7^5,1^1"
^DIST(.404,72,40,10,0)="10^^3"
^DIST(.404,72,40,10,1)="28"
^DIST(.404,72,40,10,2)="5,22^7"
^DIST(.404,72,40,11,0)="11^^3"
^DIST(.404,72,40,11,1)="29"
^DIST(.404,72,40,11,2)="5,32^7"
^DIST(.404,72,40,12,0)="12^^3"
^DIST(.404,72,40,12,1)="30"
^DIST(.404,72,40,12,2)="5,42^7"
^DIST(.404,72,40,13,0)="13^^3"
^DIST(.404,72,40,13,1)="31"
^DIST(.404,72,40,13,2)="5,52^7"
^DIST(.404,72,40,14,0)="14^^3"
^DIST(.404,72,40,14,1)="32"
^DIST(.404,72,40,14,2)="5,62^7"
^DIST(.404,72,40,15,0)="15^^3"
^DIST(.404,72,40,15,1)="33"
^DIST(.404,72,40,15,2)="5,72^7"
^DIST(.404,72,40,"B",1,1)=""
^DIST(.404,72,40,"B",2,2)=""
^DIST(.404,72,40,"B",3,3)=""
^DIST(.404,72,40,"B",4,4)=""
^DIST(.404,72,40,"B",5,5)=""
^DIST(.404,72,40,"B",6,6)=""
^DIST(.404,72,40,"B",7,7)=""
^DIST(.404,72,40,"B",8,8)=""
^DIST(.404,72,40,"B",9,9)=""
^DIST(.404,72,40,"B",10,10)=""
^DIST(.404,72,40,"B",11,11)=""
^DIST(.404,72,40,"B",12,12)=""
^DIST(.404,72,40,"B",13,13)=""
^DIST(.404,72,40,"B",14,14)=""
^DIST(.404,72,40,"B",15,15)=""
^DIST(.404,72,40,"C","SUN       MON       TUE       WED       THU       FRI       SAT",1)=""
^DIST(.404,72,40,"C","WEEK 1",2)=""
^DIST(.404,72,40,"C","WEEK 2",9)=""
^DIST(.404,73,0)="PRSA PM HDR^458.01"
^DIST(.404,73,40,0)="^.4044I^2^2"
^DIST(.404,73,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,73,40,1,2)="^^1,27^"
^DIST(.404,73,40,2,0)="2^MISCELLANEOUS DATA^1^"
^DIST(.404,73,40,2,2)="^^2,31^"
^DIST(.404,73,40,"B",1,1)=""
^DIST(.404,73,40,"B",2,2)=""
^DIST(.404,73,40,"C","MISCELLANEOUS DATA",2)=""
^DIST(.404,73,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,74,0)="PRSA PM POST^458.01"
^DIST(.404,74,40,0)="^.4044I^10^9"
^DIST(.404,74,40,2,0)="2^Lump Sum Units^3"
^DIST(.404,74,40,2,1)="41"
^DIST(.404,74,40,2,2)="1,23^6^1,1"
^DIST(.404,74,40,3,0)="3^Lump Sum Units 2^3"
^DIST(.404,74,40,3,1)="42"
^DIST(.404,74,40,3,2)="2,23^6^2,1"
^DIST(.404,74,40,4,0)="4^Lump Sum Units 3^3"
^DIST(.404,74,40,4,1)="43"
^DIST(.404,74,40,4,2)="3,23^6^3,1"
^DIST(.404,74,40,5,0)="5^Lump Sum Exp. Date^3"
^DIST(.404,74,40,5,1)="44"
^DIST(.404,74,40,5,2)="4,23^11^4,1"
^DIST(.404,74,40,6,0)="6^New T&L Unit^3"
^DIST(.404,74,40,6,1)="40"
^DIST(.404,74,40,6,2)="1,65^3^1,40"
^DIST(.404,74,40,7,0)="7^Payment Record?^3"
^DIST(.404,74,40,7,1)="45"
^DIST(.404,74,40,7,2)="2,65^3^2,40^1"
^DIST(.404,74,40,7,14)="I X=""Y""&($P($G(^PRSPC(DFN,0)),""^"",21)=""F"") S DDSERROR=1 D HLP^DDSUTL(""THIS OPTION NOT AVAILABLE FOR PAY PLAN """"F"""""") W $C(7)"
^DIST(.404,74,40,8,0)="8^Opt. W/H Tax?^3"
^DIST(.404,74,40,8,1)="46"
^DIST(.404,74,40,8,2)="3,65^3^3,40^1"
^DIST(.404,74,40,9,0)="9^Exclude Foreign COLA?^3"
^DIST(.404,74,40,9,1)="47"
^DIST(.404,74,40,9,2)="4,65^3^4,40^1"
^DIST(.404,74,40,10,0)="10^8B Day Number^3"
^DIST(.404,74,40,10,1)="48"
^DIST(.404,74,40,10,2)="6,23^3^6,1"
^DIST(.404,74,40,"B",2,2)=""
^DIST(.404,74,40,"B",3,3)=""
^DIST(.404,74,40,"B",4,4)=""
^DIST(.404,74,40,"B",5,5)=""
^DIST(.404,74,40,"B",6,6)=""
^DIST(.404,74,40,"B",7,7)=""
^DIST(.404,74,40,"B",8,8)=""
^DIST(.404,74,40,"B",9,9)=""
^DIST(.404,74,40,"B",10,10)=""
^DIST(.404,74,40,"C","8B DAY NUMBER",10)=""
^DIST(.404,74,40,"C","EXCLUDE FOREIGN COLA?",9)=""
^DIST(.404,74,40,"C","LUMP SUM EXP. DATE",5)=""
^DIST(.404,74,40,"C","LUMP SUM UNITS",2)=""
^DIST(.404,74,40,"C","LUMP SUM UNITS 2",3)=""
^DIST(.404,74,40,"C","LUMP SUM UNITS 3",4)=""
^DIST(.404,74,40,"C","NEW T&L UNIT",6)=""
^DIST(.404,74,40,"C","OPT. W/H TAX?",8)=""
^DIST(.404,74,40,"C","PAYMENT RECORD?",7)=""
^DIST(.404,75,0)="PRSA TD 2^457.1"
^DIST(.404,75,40,0)="^.4044I^5^5"
^DIST(.404,75,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,75,40,1,2)="^^1,27^"
^DIST(.404,75,40,2,0)="2^TOUR OF DUTY^1^"
^DIST(.404,75,40,2,2)="^^2,34^"
^DIST(.404,75,40,3,0)="3^Tour Hours^3"
^DIST(.404,75,40,3,1)=".01"
^DIST(.404,75,40,3,2)="4,14^30^4,1"
^DIST(.404,75,40,3,4)="^^^1"
^DIST(.404,75,40,4,0)="4^Description^3"
^DIST(.404,75,40,4,1)="1"
^DIST(.404,75,40,4,2)="5,14^30^5,1"
^DIST(.404,75,40,4,4)="^^^1"
^DIST(.404,75,40,5,0)="5^Select ASSOCIATED T&L UNIT^3"
^DIST(.404,75,40,5,1)="3"
^DIST(.404,75,40,5,2)="8,29^3^8,1"
^DIST(.404,75,40,5,4)="^^^^0"
^DIST(.404,75,40,5,7)="^1.1"
^DIST(.404,75,40,"B",1,1)=""
^DIST(.404,75,40,"B",2,2)=""
^DIST(.404,75,40,"B",3,3)=""
^DIST(.404,75,40,"B",4,4)=""
^DIST(.404,75,40,"B",5,5)=""
^DIST(.404,75,40,"C","ASSOCIATED T&L UNIT",5)=""
^DIST(.404,75,40,"C","DESCRIPTION",4)=""
^DIST(.404,75,40,"C","TOUR HOURS",3)=""
^DIST(.404,75,40,"C","TOUR OF DUTY",2)=""
^DIST(.404,75,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,76,0)="PRSA TD 3^457.13"
^DIST(.404,76,40,0)="^.4044I^1^1"
^DIST(.404,76,40,1,0)="1^ASSOCIATED T&L UNIT^3"
^DIST(.404,76,40,1,1)=".01"
^DIST(.404,76,40,1,2)="1,22^3^1,1"
^DIST(.404,76,40,"B",1,1)=""
^DIST(.404,76,40,"C","ASSOCIATED T&L UNIT",1)=""
^DIST(.404,77,0)="PRSA TP EMP^458.02"
^DIST(.404,77,40,0)="^.4044I^8^8"
^DIST(.404,77,40,1,0)="2^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,77,40,1,2)="^^1,27^"
^DIST(.404,77,40,2,0)="1^!M^1^"
^DIST(.404,77,40,2,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",1)"
^DIST(.404,77,40,2,2)="^^1,1^"
^DIST(.404,77,40,3,0)="3^!M^1^"
^DIST(.404,77,40,3,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9) S:Y'="""" Y=$E(Y)_""XX-XX-""_$E(Y,6,9)"
^DIST(.404,77,40,3,2)="^^1,69"
^DIST(.404,77,40,4,0)="4^!M^1^"
^DIST(.404,77,40,4,.1)="S Y=""Station: ""_$P($G(^PRSPC(DFN,0)),""^"",7)"
^DIST(.404,77,40,4,2)="^^2,1^"
^DIST(.404,77,40,5,0)="7^!M^1^"
^DIST(.404,77,40,5,.1)="S Y=$G(DTE)"
^DIST(.404,77,40,5,2)="^^3,34^"
^DIST(.404,77,40,6,0)="6^!M^1^"
^DIST(.404,77,40,6,.1)="S Y=""T&L: ""_$P($G(^PRSPC(DFN,0)),""^"",8)"
^DIST(.404,77,40,6,2)="^^2,72^"
^DIST(.404,77,40,7,0)="5^Tour Beginning^1^"
^DIST(.404,77,40,7,2)="^^2,34^"
^DIST(.404,77,40,8,0)="8^!M^1^"
^DIST(.404,77,40,8,.1)="S Y=""Tour: ""_Y31"
^DIST(.404,77,40,8,2)="^^5,1^"
^DIST(.404,77,40,"B",1,2)=""
^DIST(.404,77,40,"B",2,1)=""
^DIST(.404,77,40,"B",3,3)=""
^DIST(.404,77,40,"B",4,4)=""
^DIST(.404,77,40,"B",5,7)=""
^DIST(.404,77,40,"B",6,6)=""
^DIST(.404,77,40,"B",7,5)=""
^DIST(.404,77,40,"B",8,8)=""
^DIST(.404,77,40,"C","TOUR BEGINNING",7)=""
^DIST(.404,77,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,78,0)="PRSA TL ED3^455.512"
^DIST(.404,78,40,0)="^.4044I^1^1"
^DIST(.404,78,40,1,0)="1^OT/CT Approver^3"
^DIST(.404,78,40,1,1)=".01"
^DIST(.404,78,40,1,2)="1,17^30^1,1"
^DIST(.404,78,40,"B",1,1)=""
^DIST(.404,78,40,"C","OT/CT APPROVER",1)=""
^DIST(.404,79,0)="PRSA TE EDIT^458.01"
^DIST(.404,79,40,0)="^.4044I^19^19"
^DIST(.404,79,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,79,40,1,2)="^^1,27"
^DIST(.404,79,40,2,0)="2^EMPLOYEE TOUR OF DUTY^1^"
^DIST(.404,79,40,2,2)="^^2,30^"
^DIST(.404,79,40,3,0)="3^!M^1^"
^DIST(.404,79,40,3,.1)="S Y=$P(^PRSPC(DFN,0),""^"",1)"
^DIST(.404,79,40,3,2)="^^4,1^"
^DIST(.404,79,40,4,0)="4^!M^1^"
^DIST(.404,79,40,4,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9) S:Y'="""" Y=$E(Y)_""XX-XX-""_$E(Y,6,9)"
^DIST(.404,79,40,4,2)="^^4,66"
^DIST(.404,79,40,5,0)="5^!M^1^"
^DIST(.404,79,40,5,.1)="S Y=""Week 1 - ""_$E(Y1,5,13)_""                 Week 2 - ""_$E(Y2,5,13)"
^DIST(.404,79,40,5,2)="^^6,10^"
^DIST(.404,79,40,6,0)="11^Sun^3"
^DIST(.404,79,40,6,1)="201"
^DIST(.404,79,40,6,2)="8,10^30^8,1^1"
^DIST(.404,79,40,6,4)="1"
^DIST(.404,79,40,7,0)="12^Mon^3"
^DIST(.404,79,40,7,1)="202"
^DIST(.404,79,40,7,2)="9,10^30^9,1^1"
^DIST(.404,79,40,7,4)="1"
^DIST(.404,79,40,8,0)="13^Tue^3"
^DIST(.404,79,40,8,1)="203"
^DIST(.404,79,40,8,2)="10,10^30^10,1^1"
^DIST(.404,79,40,8,4)="1"
^DIST(.404,79,40,9,0)="14^Wed^3"
^DIST(.404,79,40,9,1)="204"
^DIST(.404,79,40,9,2)="11,10^30^11,1^1"
^DIST(.404,79,40,9,4)="1"
^DIST(.404,79,40,10,0)="15^Thu^3"
^DIST(.404,79,40,10,1)="205"
^DIST(.404,79,40,10,2)="12,10^30^12,1^1"
^DIST(.404,79,40,10,4)="1"
^DIST(.404,79,40,11,0)="16^Fri^3"
^DIST(.404,79,40,11,1)="206"
^DIST(.404,79,40,11,2)="13,10^30^13,1^1"
^DIST(.404,79,40,11,4)="1"
^DIST(.404,79,40,12,0)="17^Sat^3"
^DIST(.404,79,40,12,1)="207"
^DIST(.404,79,40,12,2)="14,10^30^14,1^1"
^DIST(.404,79,40,12,4)="1"
^DIST(.404,79,40,13,0)="18^^3"
^DIST(.404,79,40,13,1)="208"
^DIST(.404,79,40,13,2)="8,45^30"
^DIST(.404,79,40,13,4)="1"
^DIST(.404,79,40,14,0)="19^^3"
^DIST(.404,79,40,14,1)="209"
^DIST(.404,79,40,14,2)="9,45^30"
^DIST(.404,79,40,14,4)="1"
^DIST(.404,79,40,15,0)="20^^3"
^DIST(.404,79,40,15,1)="210"
^DIST(.404,79,40,15,2)="10,45^30"
^DIST(.404,79,40,15,4)="1"
^DIST(.404,79,40,16,0)="21^^3"
^DIST(.404,79,40,16,1)="211"
^DIST(.404,79,40,16,2)="11,45^30"
^DIST(.404,79,40,16,4)="1"
^DIST(.404,79,40,17,0)="22^^3"
^DIST(.404,79,40,17,1)="212"
^DIST(.404,79,40,17,2)="12,45^30"
^DIST(.404,79,40,17,4)="1"
^DIST(.404,79,40,18,0)="23^^3"
^DIST(.404,79,40,18,1)="213"
^DIST(.404,79,40,18,2)="13,45^30"
^DIST(.404,79,40,18,4)="1"
^DIST(.404,79,40,19,0)="24^^3"
^DIST(.404,79,40,19,1)="214"
^DIST(.404,79,40,19,2)="14,45^30"
^DIST(.404,79,40,19,4)="1"
^DIST(.404,79,40,"B",1,1)=""
^DIST(.404,79,40,"B",2,2)=""
^DIST(.404,79,40,"B",3,3)=""
^DIST(.404,79,40,"B",4,4)=""
^DIST(.404,79,40,"B",5,5)=""
^DIST(.404,79,40,"B",11,6)=""
^DIST(.404,79,40,"B",12,7)=""
^DIST(.404,79,40,"B",13,8)=""
^DIST(.404,79,40,"B",14,9)=""
^DIST(.404,79,40,"B",15,10)=""
^DIST(.404,79,40,"B",16,11)=""
^DIST(.404,79,40,"B",17,12)=""
^DIST(.404,79,40,"B",18,13)=""
^DIST(.404,79,40,"B",19,14)=""
^DIST(.404,79,40,"B",20,15)=""
^DIST(.404,79,40,"B",21,16)=""
^DIST(.404,79,40,"B",22,17)=""
^DIST(.404,79,40,"B",23,18)=""
^DIST(.404,79,40,"B",24,19)=""
^DIST(.404,79,40,"C","EMPLOYEE TOUR OF DUTY",2)=""
^DIST(.404,79,40,"C","FRI",11)=""
^DIST(.404,79,40,"C","MON",7)=""
^DIST(.404,79,40,"C","SAT",12)=""
^DIST(.404,79,40,"C","SUN",6)=""
^DIST(.404,79,40,"C","THU",10)=""
^DIST(.404,79,40,"C","TUE",8)=""
^DIST(.404,79,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,79,40,"C","WED",9)=""
^DIST(.404,80,0)="PRSA FEE HDR^458.01"
^DIST(.404,80,40,0)="^.4044I^5^5"
^DIST(.404,80,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,80,40,1,2)="^^1,27^"
^DIST(.404,80,40,2,0)="2^FEE BASIS APPOINTEES^1^"
^DIST(.404,80,40,2,2)="^^2,30^"
^DIST(.404,80,40,3,0)="3^!M^1^"
^DIST(.404,80,40,3,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",1)"
^DIST(.404,80,40,3,2)="^^4,1^"
^DIST(.404,80,40,4,0)="4^!M^1^"
^DIST(.404,80,40,4,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9),Y=$E(Y)_""XX-XX-""_$E(Y,6,9)"
^DIST(.404,80,40,4,2)="^^4,68"
^DIST(.404,80,40,5,0)="5^!M^1^"
^DIST(.404,80,40,5,.1)="S Y=DTE"
^DIST(.404,80,40,5,2)="^^6,24^"
^DIST(.404,80,40,"B",1,1)=""
^DIST(.404,80,40,"B",2,2)=""
^DIST(.404,80,40,"B",3,3)=""
^DIST(.404,80,40,"B",4,4)=""
^DIST(.404,80,40,"B",5,5)=""
^DIST(.404,80,40,"C","FEE BASIS APPOINTEES",2)=""
^DIST(.404,80,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,81,0)="PRSA FEE POST^458.01"
^DIST(.404,81,40,0)="^.4044I^19^19"
^DIST(.404,81,40,1,0)="1^Sun       Mon       Tue       Wed       Thu       Fri       Sat^1^"
^DIST(.404,81,40,1,2)="^^1,14^"
^DIST(.404,81,40,2,0)="2^Week 1^3"
^DIST(.404,81,40,2,1)="20"
^DIST(.404,81,40,2,2)="3,12^7^3,1^1"
^DIST(.404,81,40,3,0)="3^^3"
^DIST(.404,81,40,3,1)="21"
^DIST(.404,81,40,3,2)="3,22^7"
^DIST(.404,81,40,4,0)="4^^3"
^DIST(.404,81,40,4,1)="22"
^DIST(.404,81,40,4,2)="3,32^7"
^DIST(.404,81,40,5,0)="5^^3"
^DIST(.404,81,40,5,1)="23"
^DIST(.404,81,40,5,2)="3,42^7"
^DIST(.404,81,40,6,0)="6^^3"
^DIST(.404,81,40,6,1)="24"
^DIST(.404,81,40,6,2)="3,52^7"
^DIST(.404,81,40,7,0)="7^^3"
^DIST(.404,81,40,7,1)="25"
^DIST(.404,81,40,7,2)="3,62^7"
^DIST(.404,81,40,8,0)="8^^3"
^DIST(.404,81,40,8,1)="26"
^DIST(.404,81,40,8,2)="3,72^7"
^DIST(.404,81,40,9,0)="9^Week 2^3"
^DIST(.404,81,40,9,1)="27"
^DIST(.404,81,40,9,2)="5,12^7^5,1^1"
^DIST(.404,81,40,10,0)="10^^3"
^DIST(.404,81,40,10,1)="28"
^DIST(.404,81,40,10,2)="5,22^7"
^DIST(.404,81,40,11,0)="11^^3"
^DIST(.404,81,40,11,1)="29"
^DIST(.404,81,40,11,2)="5,32^7"
^DIST(.404,81,40,12,0)="12^^3"
^DIST(.404,81,40,12,1)="30"
^DIST(.404,81,40,12,2)="5,42^7"
^DIST(.404,81,40,13,0)="13^^3"
^DIST(.404,81,40,13,1)="31"
^DIST(.404,81,40,13,2)="5,52^7"
^DIST(.404,81,40,14,0)="14^^3"
^DIST(.404,81,40,14,1)="32"
^DIST(.404,81,40,14,2)="5,62^7"
^DIST(.404,81,40,15,0)="15^^3"
^DIST(.404,81,40,15,1)="33"
^DIST(.404,81,40,15,2)="5,72^7"
^DIST(.404,81,40,16,0)="16^Total Hours^3"
^DIST(.404,81,40,16,1)="50"
^DIST(.404,81,40,16,2)="9,13^3^9,1^1"
^DIST(.404,81,40,17,0)="17^Total Days^3"
^DIST(.404,81,40,17,1)="51"
^DIST(.404,81,40,17,2)="9,31^2^9,20^1"
^DIST(.404,81,40,18,0)="18^Total Procedures^3"
^DIST(.404,81,40,18,1)="52"
^DIST(.404,81,40,18,2)="9,54^3^9,37^1"
^DIST(.404,81,40,19,0)="19^!M^1^"
^DIST(.404,81,40,19,.1)="S Y=""Salary Rate: ""_$J($P($G(^PRSPC(DFN,0)),""^"",29),7,2)"
^DIST(.404,81,40,19,2)="^^9,59"
^DIST(.404,81,40,"B",1,1)=""
^DIST(.404,81,40,"B",2,2)=""
^DIST(.404,81,40,"B",3,3)=""
^DIST(.404,81,40,"B",4,4)=""
^DIST(.404,81,40,"B",5,5)=""
^DIST(.404,81,40,"B",6,6)=""
^DIST(.404,81,40,"B",7,7)=""
^DIST(.404,81,40,"B",8,8)=""
^DIST(.404,81,40,"B",9,9)=""
^DIST(.404,81,40,"B",10,10)=""
^DIST(.404,81,40,"B",11,11)=""
^DIST(.404,81,40,"B",12,12)=""
^DIST(.404,81,40,"B",13,13)=""
^DIST(.404,81,40,"B",14,14)=""
^DIST(.404,81,40,"B",15,15)=""
^DIST(.404,81,40,"B",16,16)=""
^DIST(.404,81,40,"B",17,17)=""
^DIST(.404,81,40,"B",18,18)=""
^DIST(.404,81,40,"B",19,19)=""
^DIST(.404,81,40,"C","SUN       MON       TUE       WED       THU       FRI       SAT",1)=""
^DIST(.404,81,40,"C","TOTAL DAYS",17)=""
^DIST(.404,81,40,"C","TOTAL HOURS",16)=""
^DIST(.404,81,40,"C","TOTAL PROCEDURES",18)=""
^DIST(.404,81,40,"C","WEEK 1",2)=""
^DIST(.404,81,40,"C","WEEK 2",9)=""
^DIST(.404,82,0)="NURA SERVICE POS ENTER/EDIT^211.3"
^DIST(.404,82,15,0)="^^1^1^2960624^"
^DIST(.404,82,15,1,0)="This block allows users to enter/edit Service Position file entries."
^DIST(.404,82,40,0)="^.4044I^4^5"
^DIST(.404,82,40,1,0)="1^ABBREVIATION^3"
^DIST(.404,82,40,1,1)=".01"
^DIST(.404,82,40,1,2)="3,21^10^3,7"
^DIST(.404,82,40,1,4)="1"
^DIST(.404,82,40,2,0)="2^NAME^3"
^DIST(.404,82,40,2,1)="1"
^DIST(.404,82,40,2,2)="5,21^30^5,15"
^DIST(.404,82,40,2,4)="1"
^DIST(.404,82,40,3,0)="3^PRIORITY SEQUENCE^3"
^DIST(.404,82,40,3,1)="2"
^DIST(.404,82,40,3,2)="7,21^7^7,2"
^DIST(.404,82,40,3,4)="1"
^DIST(.404,82,40,4,0)="4^PRODUCT LINE^3"
^DIST(.404,82,40,4,1)="6"
^DIST(.404,82,40,4,2)="9,21^30^9,7"
^DIST(.404,82,40,4,4)="1"
^DIST(.404,82,40,4,12)="S NURSWT=0 S:DDSEXT=""NURSING"" NURSWT=1"
^DIST(.404,82,40,5,0)="5^SERVICE CATEGORY^3"
^DIST(.404,82,40,5,1)="4"
^DIST(.404,82,40,5,2)="11,21^24^11,3"
^DIST(.404,82,40,5,4)="1"
^DIST(.404,82,40,5,10)="S:X=""R"" DDSSTACK=""1.2"" S:X=""O""&'($G(NURSWT)) DDSSTACK=""1.1"""
^DIST(.404,82,40,5,13)="D:""^R^O^""[(U_DDSOLD_U) PUT^DDSVAL(211.3,.DA,$S(DDSOLD=""R"":3,1:5),""@"")"
^DIST(.404,82,40,"B",1,1)=""
^DIST(.404,82,40,"B",2,2)=""
^DIST(.404,82,40,"B",3,3)=""
^DIST(.404,82,40,"B",4,4)=""
^DIST(.404,82,40,"B",5,5)=""
^DIST(.404,82,40,"C","ABBREVIATION",1)=""
^DIST(.404,82,40,"C","NAME",2)=""
^DIST(.404,82,40,"C","PRIORITY SEQUENCE",3)=""
^DIST(.404,82,40,"C","PRODUCT LINE",4)=""
^DIST(.404,82,40,"C","SERVICE CATEGORY",5)=""
^DIST(.404,83,0)="NURA OTHER SC^211.3"
^DIST(.404,83,40,0)="^.4044I^1^1"
^DIST(.404,83,40,1,0)="1^OTHER SERVICE CATEGORY^3"
^DIST(.404,83,40,1,1)="5"
^DIST(.404,83,40,1,2)="2,25^30^2,1"
^DIST(.404,83,40,"B",1,1)=""
^DIST(.404,83,40,"C","OTHER SERVICE CATEGORY",1)=""
^DIST(.404,84,0)="NURA AMIS POSITION^211.3"
^DIST(.404,84,40,0)="^.4044I^1^1"
^DIST(.404,84,40,1,0)="1^AMIS POSITION^3"
^DIST(.404,84,40,1,1)="3"
^DIST(.404,84,40,1,2)="2,18^30^2,3"
^DIST(.404,84,40,"B",1,1)=""
^DIST(.404,84,40,"C","AMIS POSITION",1)=""
^DIST(.404,85,0)="XU-PERSON CLASS 1^200"
^DIST(.404,85,40,0)="^.4044I^4^4"
^DIST(.404,85,40,1,0)="1^Edit of Person Class^1"
^DIST(.404,85,40,1,2)="^^1,30"
^DIST(.404,85,40,2,0)="2^NAME^3"
^DIST(.404,85,40,2,1)=".01"
^DIST(.404,85,40,2,2)="2,7^35^2,1"
^DIST(.404,85,40,2,4)="^^^1"
^DIST(.404,85,40,3,0)="3^_______________________________________________________________________________^1"
^DIST(.404,85,40,3,2)="^^3,1"
^DIST(.404,85,40,4,0)="4^Person Class                                         Effective     Expired^1"
^DIST(.404,85,40,4,2)="^^6,1"
^DIST(.404,85,40,"B",1,1)=""
^DIST(.404,85,40,"B",2,2)=""
^DIST(.404,85,40,"B",3,3)=""
^DIST(.404,85,40,"B",4,4)=""
^DIST(.404,85,40,"C","EDIT OF PERSON CLASS",1)=""
^DIST(.404,85,40,"C","NAME",2)=""
^DIST(.404,85,40,"C","PERSON CLASS                                         EFFECTIVE ",4)=""
^DIST(.404,85,40,"C","_______________________________________________________________",3)=""
^DIST(.404,86,0)="XU-PERSON CLASS 2^200.05"
^DIST(.404,86,40,0)="^.4044I^3^3"
^DIST(.404,86,40,1,0)="1^^3"
^DIST(.404,86,40,1,1)=".01"
^DIST(.404,86,40,1,2)="1,2^40"
^DIST(.404,86,40,1,11)="D DDS1^XUA4A72"
^DIST(.404,86,40,1,14)="S:$L(DDSOLD)&(X'=DDSOLD) DDSERROR=1"
^DIST(.404,86,40,2,0)="2^^3"
^DIST(.404,86,40,2,1)="2"
^DIST(.404,86,40,2,2)="1,52^12"
^DIST(.404,86,40,2,4)="^^^0"
^DIST(.404,86,40,2,12)="D DDS2^XUA4A72"
^DIST(.404,86,40,2,14)="D DDS3^XUA4A72(2)"
^DIST(.404,86,40,3,0)="3^^3"
^DIST(.404,86,40,3,1)="3"
^DIST(.404,86,40,3,2)="1,67^12"
^DIST(.404,86,40,3,14)="D DDS3^XUA4A72(3)"
^DIST(.404,86,40,"B",1,1)=""
^DIST(.404,86,40,"B",2,2)=""
^DIST(.404,86,40,"B",3,3)=""
^DIST(.404,87,0)="XUNEW USER^200"
^DIST(.404,88,0)="SPNLPHDR1^154^"
^DIST(.404,88,40,0)="^.4044I^13^10"
^DIST(.404,88,40,1,0)="1^SCD REGISTRY^1"
^DIST(.404,88,40,1,2)="^^1,1"
^DIST(.404,88,40,2,0)="2^PAGE 1 OF 2^1"
^DIST(.404,88,40,2,2)="^^1,69"
^DIST(.404,88,40,3,0)="3^PATIENT^3"
^DIST(.404,88,40,3,1)=".01"
^DIST(.404,88,40,3,2)="2,10^30^2,1"
^DIST(.404,88,40,4,0)="4^!M^1"
^DIST(.404,88,40,4,.1)="S Y=""SSN: ""_$G(SPNLSSN)"
^DIST(.404,88,40,4,2)="^^2,47"
^DIST(.404,88,40,5,0)="5^!M^1"
^DIST(.404,88,40,5,.1)="S Y=""DOB: ""_$G(SPNLDOB)"
^DIST(.404,88,40,5,2)="^^2,65"
^DIST(.404,88,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,88,40,6,2)="^^4,1"
^DIST(.404,88,40,7,0)="7^REGISTRATION SCREEN^1"
^DIST(.404,88,40,7,2)="^^1,16"
^DIST(.404,88,40,11,0)="11^!M^1"
^DIST(.404,88,40,11,.1)="S Y=$S($G(SPNLDEAD)'="""":""DECEASED: ""_SPNLDEAD,1:"""")"
^DIST(.404,88,40,11,2)="^^1,39"
^DIST(.404,88,40,12,0)="12^!M^1"
^DIST(.404,88,40,12,.1)="S Y=""VA SCI INDICATOR (MAS): ""_$G(SPNLINDC)"
^DIST(.404,88,40,12,2)="^^3,1"
^DIST(.404,88,40,13,0)="13^!M^1"
^DIST(.404,88,40,13,.1)="S:$G(SPNLPHON)'="""" Y=""PHONE: ""_SPNLPHON"
^DIST(.404,88,40,13,2)="^^3,52"
^DIST(.404,88,40,"B",1,1)=""
^DIST(.404,88,40,"B",2,2)=""
^DIST(.404,88,40,"B",3,3)=""
^DIST(.404,88,40,"B",4,4)=""
^DIST(.404,88,40,"B",5,5)=""
^DIST(.404,88,40,"B",6,6)=""
^DIST(.404,88,40,"B",7,7)=""
^DIST(.404,88,40,"B",11,11)=""
^DIST(.404,88,40,"B",12,12)=""
^DIST(.404,88,40,"B",13,13)=""
^DIST(.404,88,40,"C","PAGE 1 OF 2",2)=""
^DIST(.404,88,40,"C","PATIENT",3)=""
^DIST(.404,88,40,"C","REGISTRATION SCREEN",7)=""
^DIST(.404,88,40,"C","SCD REGISTRY",1)=""
^DIST(.404,88,40,"C","_______________________________________________________________",6)=""
^DIST(.404,89,0)="SPNLPBLK1^154^0"
^DIST(.404,89,12)=""
^DIST(.404,89,15,0)="^^4^4^2950425^^^^"
^DIST(.404,89,15,1,0)="Block for SCD (Spinal Cord) Registry file. Contains:  REGISTRATION"
^DIST(.404,89,15,2,0)="STATUS, TRANSMISSION INDICATOR, SCD SERVICE CONNECTION, LAST PHYSICAL"
^DIST(.404,89,15,3,0)="EXAM, TRAUMA, NLOI, COMPLETENESS OF NLOI, SOURCE OF NLOI, ETIOLOGY, "
^DIST(.404,89,15,4,0)="DATE OF LAST UPDATE and DATE OF ONSET."
^DIST(.404,89,40,0)="^.4044I^28^8"
^DIST(.404,89,40,2,0)="5^REGISTRATION STATUS^3"
^DIST(.404,89,40,2,1)=".03"
^DIST(.404,89,40,2,2)="5,24^26^5,3"
^DIST(.404,89,40,2,4)="1"
^DIST(.404,89,40,2,14)="D EN10^SPNLUTL0"
^DIST(.404,89,40,8,0)="3^SCI NETWORK (Y/N)^3"
^DIST(.404,89,40,8,1)="1.1"
^DIST(.404,89,40,8,2)="4,22^3^4,3"
^DIST(.404,89,40,8,4)="0"
^DIST(.404,89,40,14,0)="6^DATE OF LAST REVIEW^3"
^DIST(.404,89,40,14,1)=".05"
^DIST(.404,89,40,14,2)="6,57^19^5,57^1"
^DIST(.404,89,40,14,4)="^^^1"
^DIST(.404,89,40,24,0)="4^DATE OF ORIGINAL REGISTRATION^3"
^DIST(.404,89,40,24,1)=".02"
^DIST(.404,89,40,24,2)="4,57^19^3,50"
^DIST(.404,89,40,24,4)="^^^1"
^DIST(.404,89,40,25,0)="7^CAUSE OF SCD (Etiology)^1"
^DIST(.404,89,40,25,2)="^^7,5"
^DIST(.404,89,40,26,0)="8^DATE OF ONSET^1"
^DIST(.404,89,40,26,2)="^^7,40"
^DIST(.404,89,40,27,0)="9^DESCRIBE OTHER^1"
^DIST(.404,89,40,27,2)="^^7,59"
^DIST(.404,89,40,28,0)="2^VA SCI STATUS^3"
^DIST(.404,89,40,28,1)="2.6"
^DIST(.404,89,40,28,2)="3,22^25^3,7"
^DIST(.404,89,40,"B",2,28)=""
^DIST(.404,89,40,"B",3,8)=""
^DIST(.404,89,40,"B",4,24)=""
^DIST(.404,89,40,"B",5,2)=""
^DIST(.404,89,40,"B",6,14)=""
^DIST(.404,89,40,"B",7,25)=""
^DIST(.404,89,40,"B",8,26)=""
^DIST(.404,89,40,"B",9,27)=""
^DIST(.404,89,40,"C","CAUSE OF SCD (ETIOLOGY)",25)=""
^DIST(.404,89,40,"C","DATE OF LAST REVIEW",14)=""
^DIST(.404,89,40,"C","DATE OF ONSET",26)=""
^DIST(.404,89,40,"C","DATE OF ORIGINAL REGISTRATION",24)=""
^DIST(.404,89,40,"C","DESCRIBE OTHER",27)=""
^DIST(.404,89,40,"C","REGISTRATION STATUS",2)=""
^DIST(.404,89,40,"C","SCI NETWORK (Y/N)",8)=""
^DIST(.404,89,40,"C","VA SCI STATUS",28)=""
^DIST(.404,90,0)="SPNLPBLK2^154.004"
^DIST(.404,90,12)="I $G(DA),$$GET^DDSVAL(154.004,.DA,.02,"""",""E"")'[""OTHER"",$$GET^DDSVAL(154.004,.DA,.03,"""",""E"")]"""" D PUT^DDSVAL(154.004,.DA,.03,""@"")"
^DIST(.404,90,40,0)="^.4044I^4^3"
^DIST(.404,90,40,1,0)="1^!M^3"
^DIST(.404,90,40,1,.1)="W """""
^DIST(.404,90,40,1,1)=".01"
^DIST(.404,90,40,1,2)="2,5^30^2,1^1"
^DIST(.404,90,40,1,12)="I '$$EN9^SPNLUTL0(.DA) D REFRESH^DDSUTL"
^DIST(.404,90,40,1,13)="N SPNCK S SPNCK=$$EN3^SPNLUTL1(.DA,""OTHER"") D UNED^DDSUTL(""DESC OTHER"",3,1,('SPNCK),DA_"",""_DA(1)_"","")"
^DIST(.404,90,40,2,0)="2^!M^3"
^DIST(.404,90,40,2,.1)="W """""
^DIST(.404,90,40,2,1)=".02"
^DIST(.404,90,40,2,2)="2,40^13^2,36^1"
^DIST(.404,90,40,4,0)="3^!M^3^^DESC OTHER"
^DIST(.404,90,40,4,.1)="W """""
^DIST(.404,90,40,4,1)=".03"
^DIST(.404,90,40,4,2)="2,59^17^2,55^1"
^DIST(.404,90,40,"B",1,1)=""
^DIST(.404,90,40,"B",2,2)=""
^DIST(.404,90,40,"B",3,4)=""
^DIST(.404,90,40,"D","DESC OTHER",4)=""
^DIST(.404,91,0)="SPNLPHDR2^154^"
^DIST(.404,91,15,0)="^^3^3^2950531^"
^DIST(.404,91,15,1,0)="Block containing Identity field from the SCD (Spinal Cord) Registry file"
^DIST(.404,91,15,2,0)="with Social Security Number and Date of Birth drawn from the Patient file"
^DIST(.404,91,15,3,0)="and captions ""SCD Registry"", ""Page 1 of 2"", and a solid line."
^DIST(.404,91,40,0)="^.4044I^7^7"
^DIST(.404,91,40,1,0)="1^SCD REGISTRY^1"
^DIST(.404,91,40,1,2)="^^1,1"
^DIST(.404,91,40,2,0)="2^PATIENT^3"
^DIST(.404,91,40,2,1)=".01"
^DIST(.404,91,40,2,2)="2,10^30^2,1"
^DIST(.404,91,40,2,4)="0"
^DIST(.404,91,40,3,0)="3^PAGE 2 OF 2^1"
^DIST(.404,91,40,3,2)="^^2,66"
^DIST(.404,91,40,4,0)="4^!M^1"
^DIST(.404,91,40,4,.1)="S Y=""SSN: ""_$G(SPNLSSN)"
^DIST(.404,91,40,4,2)="^^3,1"
^DIST(.404,91,40,5,0)="5^!M^1"
^DIST(.404,91,40,5,.1)="S Y=""DOB: ""_$G(SPNLDOB)"
^DIST(.404,91,40,5,2)="^^3,52"
^DIST(.404,91,40,6,0)="6^_______________________________________________________________________________^1"
^DIST(.404,91,40,6,2)="^^4,1"
^DIST(.404,91,40,7,0)="7^HEALTH CARE SCREEN^1"
^DIST(.404,91,40,7,2)="^^1,16"
^DIST(.404,91,40,"B",1,1)=""
^DIST(.404,91,40,"B",2,2)=""
^DIST(.404,91,40,"B",3,3)=""
^DIST(.404,91,40,"B",4,4)=""
^DIST(.404,91,40,"B",5,5)=""
^DIST(.404,91,40,"B",6,6)=""
^DIST(.404,91,40,"B",7,7)=""
^DIST(.404,91,40,"C","HEALTH CARE SCREEN",7)=""
^DIST(.404,91,40,"C","PAGE 2 OF 2",3)=""
^DIST(.404,91,40,"C","PATIENT",2)=""
^DIST(.404,91,40,"C","SCD REGISTRY",1)=""
^DIST(.404,91,40,"C","_______________________________________________________________",6)=""
^DIST(.404,92,0)="SPNLPBLK3^154"
^DIST(.404,92,12)="I $$GET^DDSVAL(154,.DA,5.1)'=1,$$GET^DDSVAL(154,.DA,2.5)]"""" D PUT^DDSVAL(154,.DA,2.5,""@"")"
^DIST(.404,92,40,0)="^.4044I^18^18"
^DIST(.404,92,40,1,0)="18^HAD BRAIN INJURY (Y/N)?^3"
^DIST(.404,92,40,1,1)="5.02"
^DIST(.404,92,40,1,2)="13,68^3^13,43"
^DIST(.404,92,40,1,4)="0"
^DIST(.404,92,40,2,0)="17^HAD AMPUTATION (Y/N)?^3"
^DIST(.404,92,40,2,1)="5.03"
^DIST(.404,92,40,2,2)="13,34^3^13,11"
^DIST(.404,92,40,2,4)="0"
^DIST(.404,92,40,3,0)="1^MEMORY/THINKING AFFECTED (Y/N)?^3^^MEMORY/THINKING AFFECTED"
^DIST(.404,92,40,3,1)="5.04"
^DIST(.404,92,40,3,2)="1,34^3^1,1"
^DIST(.404,92,40,3,4)="0"
^DIST(.404,92,40,4,0)="2^EYES AFFECTED (Y/N)?^3"
^DIST(.404,92,40,4,1)="5.05"
^DIST(.404,92,40,4,2)="1,68^3^1,46"
^DIST(.404,92,40,4,4)="0"
^DIST(.404,92,40,5,0)="3^ONE ARM AFFECTED (Y/N)?^3^^ONE ARM AFFECTED"
^DIST(.404,92,40,5,1)="5.06"
^DIST(.404,92,40,5,2)="3,34^3^3,9"
^DIST(.404,92,40,5,4)="0"
^DIST(.404,92,40,6,0)="5^BOTH ARMS AFFECTED (Y/N)?^3"
^DIST(.404,92,40,6,1)="5.08"
^DIST(.404,92,40,6,2)="4,34^3^4,7"
^DIST(.404,92,40,6,4)="0"
^DIST(.404,92,40,7,0)="4^ONE LEG AFFECTED (Y/N)?^3^^ONE LEG AFFECTED"
^DIST(.404,92,40,7,1)="5.07"
^DIST(.404,92,40,7,2)="3,68^3^3,43"
^DIST(.404,92,40,7,4)="0"
^DIST(.404,92,40,8,0)="6^BOTH LEGS AFFECTED (Y/N)?^3"
^DIST(.404,92,40,8,1)="5.09"
^DIST(.404,92,40,8,2)="4,68^3^4,41"
^DIST(.404,92,40,8,4)="0"
^DIST(.404,92,40,9,0)="7^OTHER BODY PART AFFECTED (Y/N)?^3"
^DIST(.404,92,40,9,1)="5.1"
^DIST(.404,92,40,9,2)="6,34^3^6,1"
^DIST(.404,92,40,9,4)="0"
^DIST(.404,92,40,9,10)="S:X'=1 DDSBR=""EXTENT OF MOVEMENT^2^Page 3"""
^DIST(.404,92,40,9,12)="I X'=1,$$GET^DDSVAL(154,.DA,2.5)]"""" D PUT^DDSVAL(154,.DA,2.5,"""",""@"")"
^DIST(.404,92,40,10,0)="15^EXTENT OF MOVEMENT^3^^EXTENT OF MOVEMENT"
^DIST(.404,92,40,10,1)="5.11"
^DIST(.404,92,40,10,2)="11,21^20^11,1"
^DIST(.404,92,40,10,4)="0"
^DIST(.404,92,40,11,0)="16^EXTENT OF FEELING^3"
^DIST(.404,92,40,11,1)="5.12"
^DIST(.404,92,40,11,2)="11,61^19^11,42"
^DIST(.404,92,40,11,4)="0"
^DIST(.404,92,40,12,0)="8^DESCRIBE OTHER^3"
^DIST(.404,92,40,12,1)="2.5"
^DIST(.404,92,40,12,2)="6,55^25^6,39"
^DIST(.404,92,40,12,4)="0"
^DIST(.404,92,40,13,0)="9^<< 1 - Full Useful Movement >>^1"
^DIST(.404,92,40,13,2)="^^8,1"
^DIST(.404,92,40,14,0)="11^<< 2 - Some Useful Movement >>^1"
^DIST(.404,92,40,14,2)="^^9,1"
^DIST(.404,92,40,15,0)="13^<< 3 - No   Useful Movement >>^1"
^DIST(.404,92,40,15,2)="^^10,1"
^DIST(.404,92,40,16,0)="10^<< 1 - Full Feeling >>^1"
^DIST(.404,92,40,16,2)="^^8,42"
^DIST(.404,92,40,17,0)="12^<< 2 - Some Feeling >>^1"
^DIST(.404,92,40,17,2)="^^9,42"
^DIST(.404,92,40,18,0)="14^<< 3 - No   Feeling >>^1"
^DIST(.404,92,40,18,2)="^^10,42"
^DIST(.404,92,40,"B",1,3)=""
^DIST(.404,92,40,"B",2,4)=""
^DIST(.404,92,40,"B",3,5)=""
^DIST(.404,92,40,"B",4,7)=""
^DIST(.404,92,40,"B",5,6)=""
^DIST(.404,92,40,"B",6,8)=""
^DIST(.404,92,40,"B",7,9)=""
^DIST(.404,92,40,"B",8,12)=""
^DIST(.404,92,40,"B",9,13)=""
^DIST(.404,92,40,"B",10,16)=""
^DIST(.404,92,40,"B",11,14)=""
^DIST(.404,92,40,"B",12,17)=""
^DIST(.404,92,40,"B",13,15)=""
^DIST(.404,92,40,"B",14,18)=""
^DIST(.404,92,40,"B",15,10)=""
^DIST(.404,92,40,"B",16,11)=""
^DIST(.404,92,40,"B",17,2)=""
^DIST(.404,92,40,"B",18,1)=""
^DIST(.404,92,40,"C","<< 1 - FULL FEELING >>",16)=""
^DIST(.404,92,40,"C","<< 1 - FULL USEFUL MOVEMENT >>",13)=""
^DIST(.404,92,40,"C","<< 2 - SOME FEELING >>",17)=""
^DIST(.404,92,40,"C","<< 2 - SOME USEFUL MOVEMENT >>",14)=""
^DIST(.404,92,40,"C","<< 3 - NO   FEELING >>",18)=""
^DIST(.404,92,40,"C","<< 3 - NO   USEFUL MOVEMENT >>",15)=""
^DIST(.404,92,40,"C","BOTH ARMS AFFECTED (Y/N)?",6)=""
^DIST(.404,92,40,"C","BOTH LEGS AFFECTED (Y/N)?",8)=""
^DIST(.404,92,40,"C","DESCRIBE OTHER",12)=""
^DIST(.404,92,40,"C","EXTENT OF FEELING",11)=""
^DIST(.404,92,40,"C","EXTENT OF MOVEMENT",10)=""
^DIST(.404,92,40,"C","EYES AFFECTED (Y/N)?",4)=""
^DIST(.404,92,40,"C","HAD AMPUTATION (Y/N)?",2)=""
^DIST(.404,92,40,"C","HAD BRAIN INJURY (Y/N)?",1)=""
^DIST(.404,92,40,"C","MEMORY/THINKING AFFECTED (Y/N)?",3)=""
^DIST(.404,92,40,"C","ONE ARM AFFECTED (Y/N)?",5)=""
^DIST(.404,92,40,"C","ONE LEG AFFECTED (Y/N)?",7)=""
^DIST(.404,92,40,"C","OTHER BODY PART AFFECTED (Y/N)?",9)=""
^DIST(.404,92,40,"D","EXTENT OF MOVEMENT",10)=""
^DIST(.404,92,40,"D","MEMORY/THINKING AFFECTED",3)=""
^DIST(.404,92,40,"D","ONE ARM AFFECTED",5)=""
^DIST(.404,92,40,"D","ONE LEG AFFECTED",7)=""
^DIST(.404,93,0)="SPNFBLK1^154.1"
^DIST(.404,93,40,0)="^.4044I^28^27"
^DIST(.404,93,40,2,0)="8^RESPONDENT TYPE^3"
^DIST(.404,93,40,2,1)=".03"
^DIST(.404,93,40,2,2)="4,66^14^4,49"
^DIST(.404,93,40,2,3)="PATIENT"
^DIST(.404,93,40,2,4)="0"
^DIST(.404,93,40,3,0)="21^EATING^3"
^DIST(.404,93,40,3,1)=".05"
^DIST(.404,93,40,3,2)="14,32^14^14,24"
^DIST(.404,93,40,3,4)="0"
^DIST(.404,93,40,4,0)="22^GROOMING^3"
^DIST(.404,93,40,4,1)=".06"
^DIST(.404,93,40,4,2)="14,66^14^14,56"
^DIST(.404,93,40,4,4)="0"
^DIST(.404,93,40,5,0)="23^BATHING^3"
^DIST(.404,93,40,5,1)=".07"
^DIST(.404,93,40,5,2)="15,32^14^15,23"
^DIST(.404,93,40,5,4)="0"
^DIST(.404,93,40,6,0)="24^DRESSING UPPER^3"
^DIST(.404,93,40,6,1)=".08"
^DIST(.404,93,40,6,2)="15,66^14^15,50"
^DIST(.404,93,40,6,4)="0"
^DIST(.404,93,40,7,0)="25^DRESSING LOWER BODY FROM BATH^3"
^DIST(.404,93,40,7,1)=".09"
^DIST(.404,93,40,7,2)="16,32^14^16,1"
^DIST(.404,93,40,7,4)="0"
^DIST(.404,93,40,8,0)="26^TOILETING^3"
^DIST(.404,93,40,8,1)=".1"
^DIST(.404,93,40,8,2)="16,66^14^16,55"
^DIST(.404,93,40,8,4)="0"
^DIST(.404,93,40,9,0)="27^BLADDER MANAGEMENT^3"
^DIST(.404,93,40,9,1)=".11"
^DIST(.404,93,40,9,2)="17,32^14^17,12"
^DIST(.404,93,40,9,4)="0"
^DIST(.404,93,40,10,0)="28^BOWEL MANAGEMENT^3"
^DIST(.404,93,40,10,1)=".12"
^DIST(.404,93,40,10,2)="17,66^14^17,48"
^DIST(.404,93,40,10,4)="0"
^DIST(.404,93,40,11,0)="17^XFER TO BED/CHAIR/WHEELCHAIR^3"
^DIST(.404,93,40,11,1)=".13"
^DIST(.404,93,40,11,2)="12,32^14^12,2"
^DIST(.404,93,40,11,4)="0"
^DIST(.404,93,40,12,0)="20^XFER TO TOILET^3"
^DIST(.404,93,40,12,1)=".14"
^DIST(.404,93,40,12,2)="13,66^14^13,50"
^DIST(.404,93,40,12,4)="0"
^DIST(.404,93,40,13,0)="19^XFER TO TUB/SHOWER^3"
^DIST(.404,93,40,13,1)=".15"
^DIST(.404,93,40,13,2)="13,32^14^13,12"
^DIST(.404,93,40,13,4)="0"
^DIST(.404,93,40,14,0)="16^MOVE AROUND INSIDE YOUR HOUSE^3"
^DIST(.404,93,40,14,1)=".16"
^DIST(.404,93,40,14,2)="11,32^14^11,1"
^DIST(.404,93,40,14,4)="0"
^DIST(.404,93,40,15,0)="18^STAIRS^3"
^DIST(.404,93,40,15,1)=".17"
^DIST(.404,93,40,15,2)="12,66^14^12,58"
^DIST(.404,93,40,15,4)="0"
^DIST(.404,93,40,16,0)="2^PAGE 1 OF 3^1"
^DIST(.404,93,40,16,2)="^^1,69"
^DIST(.404,93,40,17,0)="6^_______________________________________________________________________________^1"
^DIST(.404,93,40,17,2)="^^3,1"
^DIST(.404,93,40,18,0)="1^FOUR LEVEL FUNCTIONAL MEASURE^1"
^DIST(.404,93,40,18,2)="^^1,26"
^DIST(.404,93,40,19,0)="3^PATIENT^3"
^DIST(.404,93,40,19,1)=".01"
^DIST(.404,93,40,19,2)="2,10^30^2,1"
^DIST(.404,93,40,19,4)="^^^1"
^DIST(.404,93,40,20,0)="4^SSN^4"
^DIST(.404,93,40,20,2)="2,48^10^2,43"
^DIST(.404,93,40,20,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,93,40,21,0)="5^DOB^4"
^DIST(.404,93,40,21,2)="2,66^14^2,61"
^DIST(.404,93,40,21,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,93,40,22,0)="12^<< 1 - Total Help or Never Do     >>^1"
^DIST(.404,93,40,22,2)="^^8,4"
^DIST(.404,93,40,23,0)="13^<< 2 - Some Help              >>^1"
^DIST(.404,93,40,23,2)="^^8,42"
^DIST(.404,93,40,24,0)="14^<< 3 - Extra Time or Special Tool >>^1"
^DIST(.404,93,40,24,2)="^^9,4"
^DIST(.404,93,40,25,0)="15^<< 4 - No Extra Time or Help  >>^1"
^DIST(.404,93,40,25,2)="^^9,42"
^DIST(.404,93,40,26,0)="9^ASSOCIATED ADMISSION DATE^3"
^DIST(.404,93,40,26,1)="1000"
^DIST(.404,93,40,26,2)="5,28^20^5,1"
^DIST(.404,93,40,27,0)="10^SCORE TYPE^3"
^DIST(.404,93,40,27,1)=".021"
^DIST(.404,93,40,27,2)="5,66^10^5,54"
^DIST(.404,93,40,28,0)="7^!M^1"
^DIST(.404,93,40,28,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,93,40,28,2)="^^4,2"
^DIST(.404,93,40,"B",1,18)=""
^DIST(.404,93,40,"B",2,16)=""
^DIST(.404,93,40,"B",3,19)=""
^DIST(.404,93,40,"B",4,20)=""
^DIST(.404,93,40,"B",5,21)=""
^DIST(.404,93,40,"B",6,17)=""
^DIST(.404,93,40,"B",7,28)=""
^DIST(.404,93,40,"B",8,2)=""
^DIST(.404,93,40,"B",9,26)=""
^DIST(.404,93,40,"B",10,27)=""
^DIST(.404,93,40,"B",12,22)=""
^DIST(.404,93,40,"B",13,23)=""
^DIST(.404,93,40,"B",14,24)=""
^DIST(.404,93,40,"B",15,25)=""
^DIST(.404,93,40,"B",16,14)=""
^DIST(.404,93,40,"B",17,11)=""
^DIST(.404,93,40,"B",18,15)=""
^DIST(.404,93,40,"B",19,13)=""
^DIST(.404,93,40,"B",20,12)=""
^DIST(.404,93,40,"B",21,3)=""
^DIST(.404,93,40,"B",22,4)=""
^DIST(.404,93,40,"B",23,5)=""
^DIST(.404,93,40,"B",24,6)=""
^DIST(.404,93,40,"B",25,7)=""
^DIST(.404,93,40,"B",26,8)=""
^DIST(.404,93,40,"B",27,9)=""
^DIST(.404,93,40,"B",28,10)=""
^DIST(.404,93,40,"C","<< 1 - TOTAL HELP OR NEVER DO     >>",22)=""
^DIST(.404,93,40,"C","<< 2 - SOME HELP              >>",23)=""
^DIST(.404,93,40,"C","<< 3 - EXTRA TIME OR SPECIAL TOOL >>",24)=""
^DIST(.404,93,40,"C","<< 4 - NO EXTRA TIME OR HELP  >>",25)=""
^DIST(.404,93,40,"C","ASSOCIATED ADMISSION DATE",26)=""
^DIST(.404,93,40,"C","BATHING",5)=""
^DIST(.404,93,40,"C","BLADDER MANAGEMENT",9)=""
^DIST(.404,93,40,"C","BOWEL MANAGEMENT",10)=""
^DIST(.404,93,40,"C","DOB",21)=""
^DIST(.404,93,40,"C","DRESSING LOWER BODY FROM BATH",7)=""
^DIST(.404,93,40,"C","DRESSING UPPER",6)=""
^DIST(.404,93,40,"C","EATING",3)=""
^DIST(.404,93,40,"C","FOUR LEVEL FUNCTIONAL MEASURE",18)=""
^DIST(.404,93,40,"C","GROOMING",4)=""
^DIST(.404,93,40,"C","MOVE AROUND INSIDE YOUR HOUSE",14)=""
^DIST(.404,93,40,"C","PAGE 1 OF 3",16)=""
^DIST(.404,93,40,"C","PATIENT",19)=""
^DIST(.404,93,40,"C","RESPONDENT TYPE",2)=""
^DIST(.404,93,40,"C","SCORE TYPE",27)=""
^DIST(.404,93,40,"C","SSN",20)=""
^DIST(.404,93,40,"C","STAIRS",15)=""
^DIST(.404,93,40,"C","TOILETING",8)=""
^DIST(.404,93,40,"C","XFER TO BED/CHAIR/WHEELCHAIR",11)=""
^DIST(.404,93,40,"C","XFER TO TOILET",12)=""
^DIST(.404,93,40,"C","XFER TO TUB/SHOWER",13)=""
^DIST(.404,93,40,"C","_______________________________________________________________",17)=""
^DIST(.404,94,0)="SPNFBLK2^154.1"
^DIST(.404,94,40,0)="^.4044I^31^24"
^DIST(.404,94,40,1,0)="10^GET TO PLACES OUTSIDE OF HOME^3^^GET TO PLACES OUTSIDE OF HOME"
^DIST(.404,94,40,1,1)="2.01"
^DIST(.404,94,40,1,2)="7,34^12^7,3"
^DIST(.404,94,40,1,4)="0"
^DIST(.404,94,40,2,0)="11^SHOPPING^3"
^DIST(.404,94,40,2,1)="2.02"
^DIST(.404,94,40,2,2)="7,66^12^7,56"
^DIST(.404,94,40,2,4)="0"
^DIST(.404,94,40,3,0)="12^PLANNING AND COOKING OWN MEALS^3"
^DIST(.404,94,40,3,1)="2.03"
^DIST(.404,94,40,3,2)="8,34^12^8,2"
^DIST(.404,94,40,3,4)="0"
^DIST(.404,94,40,4,0)="13^DOING HOUSEWORK^3"
^DIST(.404,94,40,4,1)="2.04"
^DIST(.404,94,40,4,2)="8,66^12^8,49"
^DIST(.404,94,40,4,4)="0"
^DIST(.404,94,40,5,0)="14^HANDLING MONEY^3"
^DIST(.404,94,40,5,1)="2.05"
^DIST(.404,94,40,5,2)="9,34^12^9,18"
^DIST(.404,94,40,5,4)="0"
^DIST(.404,94,40,10,0)="21^RECEIVED MOST MEDICAL CARE^3^^RECEIVED MOST MEDICAL CARE"
^DIST(.404,94,40,10,1)="2.1"
^DIST(.404,94,40,10,2)="15,34^35^15,6"
^DIST(.404,94,40,10,4)="0"
^DIST(.404,94,40,10,10)="S:X>4 DDSBR=""HELP DURING LAST 2 WEEKS^SPNFBLK3^Page 3"""
^DIST(.404,94,40,10,12)="I X>4 D:$$GET^DDSVAL(154.1,.DA,2.11)]"""" PUT^DDSVAL(154.1,.DA,2.11,""@"") D:$$GET^DDSVAL(154.1,.DA,2.12)]"""" PUT^DDSVAL(154.1,.DA,2.12,""@"")"
^DIST(.404,94,40,11,0)="22^VA MEDICAL CENTER 1^3^^PRIMARY VA MEDICAL CENTER"
^DIST(.404,94,40,11,1)="2.11"
^DIST(.404,94,40,11,2)="16,34^35^16,13"
^DIST(.404,94,40,11,4)="0"
^DIST(.404,94,40,12,0)="2^PAGE 2 OF 3^1"
^DIST(.404,94,40,12,2)="^^1,69"
^DIST(.404,94,40,13,0)="6^_______________________________________________________________________________^1"
^DIST(.404,94,40,13,2)="^^3,1"
^DIST(.404,94,40,14,0)="1^FOUR LEVEL FUNCTIONAL MEASURE^1"
^DIST(.404,94,40,14,2)="^^1,26"
^DIST(.404,94,40,15,0)="3^PATIENT^3"
^DIST(.404,94,40,15,1)=".01"
^DIST(.404,94,40,15,2)="2,10^30^2,1"
^DIST(.404,94,40,15,4)="^^^1"
^DIST(.404,94,40,16,0)="4^SSN^4"
^DIST(.404,94,40,16,2)="2,48^10^2,43"
^DIST(.404,94,40,16,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,94,40,17,0)="5^DOB^4"
^DIST(.404,94,40,17,2)="2,66^12^2,61"
^DIST(.404,94,40,17,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,94,40,18,0)="7^<< 1 - Without Help >>^1"
^DIST(.404,94,40,18,2)="^^6,3"
^DIST(.404,94,40,22,0)="15^<< 1 - VA Only               >>^1"
^DIST(.404,94,40,22,2)="^^11,1"
^DIST(.404,94,40,23,0)="17^<< 2 - Mostly VA/Some Non-VA >>^1"
^DIST(.404,94,40,23,2)="^^11,35"
^DIST(.404,94,40,24,0)="19^<< 3 - Half VA/Half Non-VA   >>^1"
^DIST(.404,94,40,24,2)="^^12,1"
^DIST(.404,94,40,25,0)="16^<< 4 - Some VA/Mostly Non-VA >>^1"
^DIST(.404,94,40,25,2)="^^12,35"
^DIST(.404,94,40,26,0)="18^<< 5 - Non-VA Only           >>^1"
^DIST(.404,94,40,26,2)="^^13,1"
^DIST(.404,94,40,27,0)="20^<< 6 - Did Not See Doctor/Nurse Last 5 Yrs >>^1"
^DIST(.404,94,40,27,2)="^^13,35"
^DIST(.404,94,40,28,0)="8^<< 2 - With Help >>^1"
^DIST(.404,94,40,28,2)="^^6,28"
^DIST(.404,94,40,29,0)="9^<< 3 - Unable >>^1"
^DIST(.404,94,40,29,2)="^^6,50"
^DIST(.404,94,40,30,0)="23^VA MEDICAL CENTER 2^3^^SECONDARY VA MEDICAL CENTER"
^DIST(.404,94,40,30,1)="2.12"
^DIST(.404,94,40,30,2)="17,34^35^17,13"
^DIST(.404,94,40,30,4)="0"
^DIST(.404,94,40,31,0)="24^!M^1"
^DIST(.404,94,40,31,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,94,40,31,2)="^^4,5"
^DIST(.404,94,40,"B",1,14)=""
^DIST(.404,94,40,"B",2,12)=""
^DIST(.404,94,40,"B",3,15)=""
^DIST(.404,94,40,"B",4,16)=""
^DIST(.404,94,40,"B",5,17)=""
^DIST(.404,94,40,"B",6,13)=""
^DIST(.404,94,40,"B",7,18)=""
^DIST(.404,94,40,"B",8,28)=""
^DIST(.404,94,40,"B",9,29)=""
^DIST(.404,94,40,"B",10,1)=""
^DIST(.404,94,40,"B",11,2)=""
^DIST(.404,94,40,"B",12,3)=""
^DIST(.404,94,40,"B",13,4)=""
^DIST(.404,94,40,"B",14,5)=""
^DIST(.404,94,40,"B",15,22)=""
^DIST(.404,94,40,"B",16,25)=""
^DIST(.404,94,40,"B",17,23)=""
^DIST(.404,94,40,"B",18,26)=""
^DIST(.404,94,40,"B",19,24)=""
^DIST(.404,94,40,"B",20,27)=""
^DIST(.404,94,40,"B",21,10)=""
^DIST(.404,94,40,"B",22,11)=""
^DIST(.404,94,40,"B",23,30)=""
^DIST(.404,94,40,"B",24,31)=""
^DIST(.404,94,40,"C","<< 1 - VA ONLY               >>",22)=""
^DIST(.404,94,40,"C","<< 1 - WITHOUT HELP >>",18)=""
^DIST(.404,94,40,"C","<< 2 - MOSTLY VA/SOME NON-VA >>",23)=""
^DIST(.404,94,40,"C","<< 2 - WITH HELP >>",28)=""
^DIST(.404,94,40,"C","<< 3 - HALF VA/HALF NON-VA   >>",24)=""
^DIST(.404,94,40,"C","<< 3 - UNABLE >>",29)=""
^DIST(.404,94,40,"C","<< 4 - SOME VA/MOSTLY NON-VA >>",25)=""
^DIST(.404,94,40,"C","<< 5 - NON-VA ONLY           >>",26)=""
^DIST(.404,94,40,"C","<< 6 - DID NOT SEE DOCTOR/NURSE LAST 5 YRS >>",27)=""
^DIST(.404,94,40,"C","DOB",17)=""
^DIST(.404,94,40,"C","DOING HOUSEWORK",4)=""
^DIST(.404,94,40,"C","FOUR LEVEL FUNCTIONAL MEASURE",14)=""
^DIST(.404,94,40,"C","GET TO PLACES OUTSIDE OF HOME",1)=""
^DIST(.404,94,40,"C","HANDLING MONEY",5)=""
^DIST(.404,94,40,"C","PAGE 2 OF 3",12)=""
^DIST(.404,94,40,"C","PATIENT",15)=""
^DIST(.404,94,40,"C","PLANNING AND COOKING OWN MEALS",3)=""
^DIST(.404,94,40,"C","RECEIVED MOST MEDICAL CARE",10)=""
^DIST(.404,94,40,"C","SHOPPING",2)=""
^DIST(.404,94,40,"C","SSN",16)=""
^DIST(.404,94,40,"C","VA MEDICAL CENTER 1",11)=""
^DIST(.404,94,40,"C","VA MEDICAL CENTER 2",30)=""
^DIST(.404,94,40,"C","_______________________________________________________________",13)=""
^DIST(.404,94,40,"D","GET TO PLACES OUTSIDE OF HOME",1)=""
^DIST(.404,94,40,"D","PRIMARY VA MEDICAL CENTER",11)=""
^DIST(.404,94,40,"D","RECEIVED MOST MEDICAL CARE",10)=""
^DIST(.404,94,40,"D","SECONDARY VA MEDICAL CENTER",30)=""
^DIST(.404,95,0)="SPNFBLKA^154.1"
^DIST(.404,95,40,0)="^.4044I^34^20"
^DIST(.404,95,40,2,0)="10^Select CLINICIAN^3"
^DIST(.404,95,40,2,1)="1.01"
^DIST(.404,95,40,2,2)="7,36^30^7,18"
^DIST(.404,95,40,2,4)="0"
^DIST(.404,95,40,2,7)="^3"
^DIST(.404,95,40,16,0)="2^PAGE 1 OF 3^1"
^DIST(.404,95,40,16,2)="^^1,69"
^DIST(.404,95,40,17,0)="6^_______________________________________________________________________________^1"
^DIST(.404,95,40,17,2)="^^3,1"
^DIST(.404,95,40,18,0)="1^FIM MODULE (CLINICIAN REPORTED)^1"
^DIST(.404,95,40,18,2)="^^1,25"
^DIST(.404,95,40,19,0)="3^PATIENT^3"
^DIST(.404,95,40,19,1)=".01"
^DIST(.404,95,40,19,2)="2,10^30^2,1"
^DIST(.404,95,40,19,4)="^^^1"
^DIST(.404,95,40,20,0)="4^SSN^4"
^DIST(.404,95,40,20,2)="2,48^10^2,43"
^DIST(.404,95,40,20,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,95,40,21,0)="5^DOB^4"
^DIST(.404,95,40,21,2)="2,66^14^2,61"
^DIST(.404,95,40,21,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,95,40,22,0)="15^METHOD OF AMBULATION (WALKING)^3"
^DIST(.404,95,40,22,1)="2.06"
^DIST(.404,95,40,22,2)="12,36^18^12,4"
^DIST(.404,95,40,22,4)="0"
^DIST(.404,95,40,23,0)="20^METHOD OF AMBULATION (WHEELCHAIR)^3"
^DIST(.404,95,40,23,1)="2.07"
^DIST(.404,95,40,23,2)="17,36^18^17,1"
^DIST(.404,95,40,23,4)="0"
^DIST(.404,95,40,24,0)="11^<< 1 - Without Help >>^1"
^DIST(.404,95,40,24,2)="^^9,4"
^DIST(.404,95,40,25,0)="13^<< 2 - With Device  >>^1"
^DIST(.404,95,40,25,2)="^^9,29"
^DIST(.404,95,40,26,0)="12^<< 3 - Cannot Walk  >>^1"
^DIST(.404,95,40,26,2)="^^9,54"
^DIST(.404,95,40,27,0)="14^<< 4 - Bedridden    >>^1"
^DIST(.404,95,40,27,2)="^^10,4"
^DIST(.404,95,40,28,0)="16^<< 1 - Manual    >>^1"
^DIST(.404,95,40,28,2)="^^14,1"
^DIST(.404,95,40,29,0)="18^<< 2 - Motorized  >>^1"
^DIST(.404,95,40,29,2)="^^14,22"
^DIST(.404,95,40,30,0)="17^<< 3 - Does Not Use W/Chr >>^1"
^DIST(.404,95,40,30,2)="^^14,44"
^DIST(.404,95,40,31,0)="19^<< 4 - Bedridden >>^1"
^DIST(.404,95,40,31,2)="^^15,1"
^DIST(.404,95,40,32,0)="8^ASSOCIATED ADMISSION DATE^3"
^DIST(.404,95,40,32,1)="1000"
^DIST(.404,95,40,32,2)="5,28^20^5,1"
^DIST(.404,95,40,33,0)="9^SCORE TYPE^3"
^DIST(.404,95,40,33,1)=".021"
^DIST(.404,95,40,33,2)="5,62^10^5,50"
^DIST(.404,95,40,34,0)="21^!M^1"
^DIST(.404,95,40,34,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,95,40,34,2)="^^4,2"
^DIST(.404,95,40,"B",1,18)=""
^DIST(.404,95,40,"B",2,16)=""
^DIST(.404,95,40,"B",3,19)=""
^DIST(.404,95,40,"B",4,20)=""
^DIST(.404,95,40,"B",5,21)=""
^DIST(.404,95,40,"B",6,17)=""
^DIST(.404,95,40,"B",8,32)=""
^DIST(.404,95,40,"B",9,33)=""
^DIST(.404,95,40,"B",10,2)=""
^DIST(.404,95,40,"B",11,24)=""
^DIST(.404,95,40,"B",12,26)=""
^DIST(.404,95,40,"B",13,25)=""
^DIST(.404,95,40,"B",14,27)=""
^DIST(.404,95,40,"B",15,22)=""
^DIST(.404,95,40,"B",16,28)=""
^DIST(.404,95,40,"B",17,30)=""
^DIST(.404,95,40,"B",18,29)=""
^DIST(.404,95,40,"B",19,31)=""
^DIST(.404,95,40,"B",20,23)=""
^DIST(.404,95,40,"B",21,34)=""
^DIST(.404,95,40,"C","<< 1 - MANUAL    >>",28)=""
^DIST(.404,95,40,"C","<< 1 - WITHOUT HELP >>",24)=""
^DIST(.404,95,40,"C","<< 2 - MOTORIZED  >>",29)=""
^DIST(.404,95,40,"C","<< 2 - WITH DEVICE  >>",25)=""
^DIST(.404,95,40,"C","<< 3 - CANNOT WALK  >>",26)=""
^DIST(.404,95,40,"C","<< 3 - DOES NOT USE W/CHR >>",30)=""
^DIST(.404,95,40,"C","<< 4 - BEDRIDDEN    >>",27)=""
^DIST(.404,95,40,"C","<< 4 - BEDRIDDEN >>",31)=""
^DIST(.404,95,40,"C","ASSOCIATED ADMISSION DATE",32)=""
^DIST(.404,95,40,"C","CLINICIAN",2)=""
^DIST(.404,95,40,"C","DOB",21)=""
^DIST(.404,95,40,"C","FIM MODULE (CLINICIAN REPORTED)",18)=""
^DIST(.404,95,40,"C","METHOD OF AMBULATION (WALKING)",22)=""
^DIST(.404,95,40,"C","METHOD OF AMBULATION (WHEELCHAIR)",23)=""
^DIST(.404,95,40,"C","PAGE 1 OF 3",16)=""
^DIST(.404,95,40,"C","PATIENT",19)=""
^DIST(.404,95,40,"C","SCORE TYPE",33)=""
^DIST(.404,95,40,"C","SSN",20)=""
^DIST(.404,95,40,"C","_______________________________________________________________",17)=""
^DIST(.404,96,0)="SPNFBLKB^154.1"
^DIST(.404,96,40,0)="^.4044I^40^22"
^DIST(.404,96,40,12,0)="2^PAGE 2 OF 3^1"
^DIST(.404,96,40,12,2)="^^1,69"
^DIST(.404,96,40,13,0)="6^_______________________________________________________________________________^1"
^DIST(.404,96,40,13,2)="^^3,1"
^DIST(.404,96,40,14,0)="1^FIM MODULE (CLINICIAN REPORTED)^1"
^DIST(.404,96,40,14,2)="^^1,25"
^DIST(.404,96,40,15,0)="3^PATIENT^3"
^DIST(.404,96,40,15,1)=".01"
^DIST(.404,96,40,15,2)="2,10^30^2,1"
^DIST(.404,96,40,15,4)="^^^1"
^DIST(.404,96,40,16,0)="4^SSN^4"
^DIST(.404,96,40,16,2)="2,48^10^2,43"
^DIST(.404,96,40,16,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,96,40,17,0)="5^DOB^4"
^DIST(.404,96,40,17,2)="2,66^12^2,61"
^DIST(.404,96,40,17,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,96,40,18,0)="18^XFER TO BED/CHAIR/WHEELCHAIR^3"
^DIST(.404,96,40,18,1)=".13"
^DIST(.404,96,40,18,2)="13,32^21^13,2"
^DIST(.404,96,40,18,4)="0"
^DIST(.404,96,40,19,0)="19^XFER TO TOILET^3"
^DIST(.404,96,40,19,1)=".14"
^DIST(.404,96,40,19,2)="14,32^21^14,16"
^DIST(.404,96,40,19,4)="0"
^DIST(.404,96,40,20,0)="20^XFER TO TUB/SHOWER^3"
^DIST(.404,96,40,20,1)=".15"
^DIST(.404,96,40,20,2)="15,32^21^15,12"
^DIST(.404,96,40,20,4)="0"
^DIST(.404,96,40,23,0)="7^<< 1 - Total Assistance    2 - Maximal Assistance   3 - Moderate Assistance  >>^1"
^DIST(.404,96,40,23,2)="^^4,1"
^DIST(.404,96,40,29,0)="8^<< 4 - Minimal Assistance  5 - Supervision          6 - Modified Independence>>^1"
^DIST(.404,96,40,29,2)="^^5,1"
^DIST(.404,96,40,30,0)="9^<< 7 - Complete Independence                                                 >>^1"
^DIST(.404,96,40,30,2)="^^6,1"
^DIST(.404,96,40,31,0)="10^EATING^3^^EATING"
^DIST(.404,96,40,31,1)=".05"
^DIST(.404,96,40,31,2)="7,10^21^7,2"
^DIST(.404,96,40,31,4)="0"
^DIST(.404,96,40,32,0)="11^GROOMING^3"
^DIST(.404,96,40,32,1)=".06"
^DIST(.404,96,40,32,2)="7,58^21^7,48"
^DIST(.404,96,40,32,4)="0"
^DIST(.404,96,40,33,0)="12^BATHING^3"
^DIST(.404,96,40,33,1)=".07"
^DIST(.404,96,40,33,2)="8,10^21^8,1"
^DIST(.404,96,40,33,4)="0"
^DIST(.404,96,40,34,0)="13^DRESSING UPPER BODY^3"
^DIST(.404,96,40,34,1)=".08"
^DIST(.404,96,40,34,2)="8,58^21^8,37"
^DIST(.404,96,40,34,4)="0"
^DIST(.404,96,40,35,0)="14^DRESSING LOWER BODY FROM BATH^3"
^DIST(.404,96,40,35,1)=".09"
^DIST(.404,96,40,35,2)="9,32^21^9,1"
^DIST(.404,96,40,35,4)="0"
^DIST(.404,96,40,36,0)="15^TOILETING^3"
^DIST(.404,96,40,36,1)=".1"
^DIST(.404,96,40,36,2)="10,32^21^10,21"
^DIST(.404,96,40,36,4)="0"
^DIST(.404,96,40,37,0)="16^BLADDER MANAGEMENT^3"
^DIST(.404,96,40,37,1)=".11"
^DIST(.404,96,40,37,2)="11,32^21^11,12"
^DIST(.404,96,40,37,4)="0"
^DIST(.404,96,40,38,0)="17^BOWEL MANAGEMENT^3"
^DIST(.404,96,40,38,1)=".12"
^DIST(.404,96,40,38,2)="12,32^21^12,14"
^DIST(.404,96,40,38,4)="0"
^DIST(.404,96,40,39,0)="21^MOVE AROUND INSIDE YOUR HOUSE^3"
^DIST(.404,96,40,39,1)=".16"
^DIST(.404,96,40,39,2)="16,32^21^16,1"
^DIST(.404,96,40,39,4)="0"
^DIST(.404,96,40,40,0)="22^STAIRS^3"
^DIST(.404,96,40,40,1)=".17"
^DIST(.404,96,40,40,2)="17,32^21^17,24"
^DIST(.404,96,40,40,4)="0"
^DIST(.404,96,40,"B",1,14)=""
^DIST(.404,96,40,"B",2,12)=""
^DIST(.404,96,40,"B",3,15)=""
^DIST(.404,96,40,"B",4,16)=""
^DIST(.404,96,40,"B",5,17)=""
^DIST(.404,96,40,"B",6,13)=""
^DIST(.404,96,40,"B",7,23)=""
^DIST(.404,96,40,"B",8,29)=""
^DIST(.404,96,40,"B",9,30)=""
^DIST(.404,96,40,"B",10,31)=""
^DIST(.404,96,40,"B",11,32)=""
^DIST(.404,96,40,"B",12,33)=""
^DIST(.404,96,40,"B",13,34)=""
^DIST(.404,96,40,"B",14,35)=""
^DIST(.404,96,40,"B",15,36)=""
^DIST(.404,96,40,"B",16,37)=""
^DIST(.404,96,40,"B",17,38)=""
^DIST(.404,96,40,"B",18,18)=""
^DIST(.404,96,40,"B",19,19)=""
^DIST(.404,96,40,"B",20,20)=""
^DIST(.404,96,40,"B",21,39)=""
^DIST(.404,96,40,"B",22,40)=""
^DIST(.404,96,40,"C","<< 1 - TOTAL ASSISTANCE    2 - MAXIMAL ASSISTANCE   3 - MODERAT",23)=""
^DIST(.404,96,40,"C","<< 4 - MINIMAL ASSISTANCE  5 - SUPERVISION          6 - MODIFIE",29)=""
^DIST(.404,96,40,"C","<< 7 - COMPLETE INDEPENDENCE                                   ",30)=""
^DIST(.404,96,40,"C","BATHING",33)=""
^DIST(.404,96,40,"C","BLADDER MANAGEMENT",37)=""
^DIST(.404,96,40,"C","BOWEL MANAGEMENT",38)=""
^DIST(.404,96,40,"C","DOB",17)=""
^DIST(.404,96,40,"C","DRESSING LOWER BODY FROM BATH",35)=""
^DIST(.404,96,40,"C","DRESSING UPPER BODY",34)=""
^DIST(.404,96,40,"C","EATING",31)=""
^DIST(.404,96,40,"C","FIM MODULE (CLINICIAN REPORTED)",14)=""
^DIST(.404,96,40,"C","GROOMING",32)=""
^DIST(.404,96,40,"C","MOVE AROUND INSIDE YOUR HOUSE",39)=""
^DIST(.404,96,40,"C","PAGE 2 OF 3",12)=""
^DIST(.404,96,40,"C","PATIENT",15)=""
^DIST(.404,96,40,"C","SSN",16)=""
^DIST(.404,96,40,"C","STAIRS",40)=""
^DIST(.404,96,40,"C","TOILETING",36)=""
^DIST(.404,96,40,"C","XFER TO BED/CHAIR/WHEELCHAIR",18)=""
^DIST(.404,96,40,"C","XFER TO TOILET",19)=""
^DIST(.404,96,40,"C","XFER TO TUB/SHOWER",20)=""
^DIST(.404,96,40,"C","_______________________________________________________________",13)=""
^DIST(.404,96,40,"D","EATING",31)=""
^DIST(.404,97,0)="SPNFBLKC^154.101"
^DIST(.404,97,40,0)="^.4044I^1^1"
^DIST(.404,97,40,1,0)="1^CLINICIAN^3"
^DIST(.404,97,40,1,1)=".01"
^DIST(.404,97,40,1,2)="2,14^30^2,3"
^DIST(.404,97,40,1,4)="0"
^DIST(.404,97,40,"B",1,1)=""
^DIST(.404,97,40,"C","CLINICIAN",1)=""
^DIST(.404,98,0)="SPNFBLK3^154.1"
^DIST(.404,98,40,0)="^.4044I^21^19"
^DIST(.404,98,40,1,0)="1^FOUR LEVEL FUNCTIONAL MEASURE^1"
^DIST(.404,98,40,1,2)="^^1,26"
^DIST(.404,98,40,2,0)="2^PAGE 3 OF 3^1"
^DIST(.404,98,40,2,2)="^^1,69"
^DIST(.404,98,40,5,0)="3^PATIENT^3"
^DIST(.404,98,40,5,1)=".01"
^DIST(.404,98,40,5,2)="2,10^30^2,1"
^DIST(.404,98,40,5,4)="1^^^1"
^DIST(.404,98,40,6,0)="4^SSN^4"
^DIST(.404,98,40,6,2)="2,48^10^2,43"
^DIST(.404,98,40,6,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,98,40,7,0)="6^_______________________________________________________________________________^1"
^DIST(.404,98,40,7,2)="^^3,1"
^DIST(.404,98,40,8,0)="8^HELP DURING LAST 2 WEEKS (Y/N)?^3^^HELP DURING LAST 2 WEEKS"
^DIST(.404,98,40,8,1)="2.08"
^DIST(.404,98,40,8,2)="6,34^3^6,1"
^DIST(.404,98,40,8,4)="0"
^DIST(.404,98,40,8,10)="S:X'=1 DDSBR=""METHOD OF AMBULATION (WALKING)^SPNFBLK3^Page 3"""
^DIST(.404,98,40,8,12)="I X'>0,$$GET^DDSVAL(154.1,.DA,2.09)]"""" D PUT^DDSVAL(154.1,.DA,2.09,""@"")"
^DIST(.404,98,40,9,0)="9^NUMBER OF HOURS OF HELP^3"
^DIST(.404,98,40,9,1)="2.09"
^DIST(.404,98,40,9,2)="6,66^3^6,41"
^DIST(.404,98,40,9,4)="0^^1"
^DIST(.404,98,40,10,0)="14^METHOD OF AMBULATION (WALKING)^3^^METHOD OF AMBULATION (WALKING)"
^DIST(.404,98,40,10,1)="2.06"
^DIST(.404,98,40,10,2)="11,37^18^11,5"
^DIST(.404,98,40,10,4)="0"
^DIST(.404,98,40,11,0)="19^METHOD OF AMBULATION (WHEELCHAIR)^3"
^DIST(.404,98,40,11,1)="2.07"
^DIST(.404,98,40,11,2)="16,37^18^16,2"
^DIST(.404,98,40,11,4)="0"
^DIST(.404,98,40,12,0)="10^<< 1 - Without Help >>^1"
^DIST(.404,98,40,12,2)="^^8,5"
^DIST(.404,98,40,13,0)="11^<< 2 - With Device  >>^1"
^DIST(.404,98,40,13,2)="^^8,29"
^DIST(.404,98,40,14,0)="12^<< 3 - Cannot Walk  >>^1"
^DIST(.404,98,40,14,2)="^^9,5"
^DIST(.404,98,40,15,0)="13^<< 4 - Bedridden    >>^1"
^DIST(.404,98,40,15,2)="^^9,29"
^DIST(.404,98,40,16,0)="15^<< 1 - Manual             >>^1"
^DIST(.404,98,40,16,2)="^^13,2"
^DIST(.404,98,40,17,0)="16^<< 2 - Motorized          >>^1"
^DIST(.404,98,40,17,2)="^^13,32"
^DIST(.404,98,40,18,0)="17^<< 3 - Does Not Use W/Chr >>^1"
^DIST(.404,98,40,18,2)="^^14,2"
^DIST(.404,98,40,19,0)="18^<< 4 - Bedridden          >>^1"
^DIST(.404,98,40,19,2)="^^14,32"
^DIST(.404,98,40,20,0)="5^DOB^4"
^DIST(.404,98,40,20,2)="2,66^12^2,61"
^DIST(.404,98,40,20,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,98,40,21,0)="7^!M^1"
^DIST(.404,98,40,21,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,98,40,21,2)="^^4,4"
^DIST(.404,98,40,"B",1,1)=""
^DIST(.404,98,40,"B",2,2)=""
^DIST(.404,98,40,"B",3,5)=""
^DIST(.404,98,40,"B",4,6)=""
^DIST(.404,98,40,"B",5,20)=""
^DIST(.404,98,40,"B",6,7)=""
^DIST(.404,98,40,"B",7,21)=""
^DIST(.404,98,40,"B",8,8)=""
^DIST(.404,98,40,"B",9,9)=""
^DIST(.404,98,40,"B",10,12)=""
^DIST(.404,98,40,"B",11,13)=""
^DIST(.404,98,40,"B",12,14)=""
^DIST(.404,98,40,"B",13,15)=""
^DIST(.404,98,40,"B",14,10)=""
^DIST(.404,98,40,"B",15,16)=""
^DIST(.404,98,40,"B",16,17)=""
^DIST(.404,98,40,"B",17,18)=""
^DIST(.404,98,40,"B",18,19)=""
^DIST(.404,98,40,"B",19,11)=""
^DIST(.404,98,40,"C","<< 1 - MANUAL             >>",16)=""
^DIST(.404,98,40,"C","<< 1 - WITHOUT HELP >>",12)=""
^DIST(.404,98,40,"C","<< 2 - MOTORIZED          >>",17)=""
^DIST(.404,98,40,"C","<< 2 - WITH DEVICE  >>",13)=""
^DIST(.404,98,40,"C","<< 3 - CANNOT WALK  >>",14)=""
^DIST(.404,98,40,"C","<< 3 - DOES NOT USE W/CHR >>",18)=""
^DIST(.404,98,40,"C","<< 4 - BEDRIDDEN          >>",19)=""
^DIST(.404,98,40,"C","<< 4 - BEDRIDDEN    >>",15)=""
^DIST(.404,98,40,"C","DOB",20)=""
^DIST(.404,98,40,"C","FOUR LEVEL FUNCTIONAL MEASURE",1)=""
^DIST(.404,98,40,"C","HELP DURING LAST 2 WEEKS (Y/N)?",8)=""
^DIST(.404,98,40,"C","METHOD OF AMBULATION (WALKING)",10)=""
^DIST(.404,98,40,"C","METHOD OF AMBULATION (WHEELCHAIR)",11)=""
^DIST(.404,98,40,"C","NUMBER OF HOURS OF HELP",9)=""
^DIST(.404,98,40,"C","PAGE 3 OF 3",2)=""
^DIST(.404,98,40,"C","PATIENT",5)=""
^DIST(.404,98,40,"C","SSN",6)=""
^DIST(.404,98,40,"C","_______________________________________________________________",7)=""
^DIST(.404,98,40,"D","HELP DURING LAST 2 WEEKS",8)=""
^DIST(.404,98,40,"D","METHOD OF AMBULATION (WALKING)",10)=""
^DIST(.404,99,0)="SPNFBLKD^154.1"
^DIST(.404,99,40,0)="^.4044I^17^17"
^DIST(.404,99,40,1,0)="1^FIM MODULE (CLINICIAN REPORTED)^1"
^DIST(.404,99,40,1,2)="^^1,25"
^DIST(.404,99,40,2,0)="2^PAGE 3 OF 3^1"
^DIST(.404,99,40,2,2)="^^1,69"
^DIST(.404,99,40,3,0)="6^_______________________________________________________________________________^1"
^DIST(.404,99,40,3,2)="^^3,1"
^DIST(.404,99,40,4,0)="3^PATIENT^3"
^DIST(.404,99,40,4,1)=".01"
^DIST(.404,99,40,4,2)="2,10^30^2,1"
^DIST(.404,99,40,4,4)="1^^^1"
^DIST(.404,99,40,5,0)="4^SSN^4"
^DIST(.404,99,40,5,2)="2,48^10^2,43"
^DIST(.404,99,40,5,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.01)"
^DIST(.404,99,40,6,0)="5^DOB^4"
^DIST(.404,99,40,6,2)="2,66^12^2,61"
^DIST(.404,99,40,6,30)="S Y=$$GET1^DIQ(154.1,DA_"","",999.02)"
^DIST(.404,99,40,7,0)="10^COMPREHENSION^3^^COMPREHENSION"
^DIST(.404,99,40,7,1)=".18"
^DIST(.404,99,40,7,2)="8,21^21^8,6"
^DIST(.404,99,40,7,4)="0"
^DIST(.404,99,40,8,0)="11^EXPRESSION^3"
^DIST(.404,99,40,8,1)=".19"
^DIST(.404,99,40,8,2)="9,21^21^9,9"
^DIST(.404,99,40,8,4)="0"
^DIST(.404,99,40,9,0)="16^SOCIAL INTERACTION^3"
^DIST(.404,99,40,9,1)=".2"
^DIST(.404,99,40,9,2)="16,21^21^16,1"
^DIST(.404,99,40,9,4)="0"
^DIST(.404,99,40,10,0)="17^PROBLEM SOLVING^3"
^DIST(.404,99,40,10,1)=".21"
^DIST(.404,99,40,10,2)="17,21^21^17,4"
^DIST(.404,99,40,10,4)="0"
^DIST(.404,99,40,11,0)="12^MEMORY^3"
^DIST(.404,99,40,11,1)=".22"
^DIST(.404,99,40,11,2)="10,21^21^10,13"
^DIST(.404,99,40,11,4)="0"
^DIST(.404,99,40,12,0)="7^<< 1 - Total Assistance       2 - Maximal Prompting                         >>^1"
^DIST(.404,99,40,12,2)="^^4,1"
^DIST(.404,99,40,13,0)="8^<< 3 - Moderate Prompting     4 - Minimal Prompting   5 - Standby Prompting >>^1"
^DIST(.404,99,40,13,2)="^^5,1"
^DIST(.404,99,40,14,0)="9^<< 6 - Modified Independence  7 - Complete Independence                     >>^1"
^DIST(.404,99,40,14,2)="^^6,1"
^DIST(.404,99,40,15,0)="13^<< 1 - Total Assistance       2 - Maximal Direction                         >>^1"
^DIST(.404,99,40,15,2)="^^12,1"
^DIST(.404,99,40,16,0)="14^<< 3 - Moderate Direction     4 - Minimal Direction   5 - Supervision       >>^1"
^DIST(.404,99,40,16,2)="^^13,1"
^DIST(.404,99,40,17,0)="15^<< 6 - Modified Independence  7 - Complete Independence                     >>^1"
^DIST(.404,99,40,17,2)="^^14,1"
^DIST(.404,99,40,"B",1,1)=""
^DIST(.404,99,40,"B",2,2)=""
^DIST(.404,99,40,"B",3,4)=""
^DIST(.404,99,40,"B",4,5)=""
^DIST(.404,99,40,"B",5,6)=""
^DIST(.404,99,40,"B",6,3)=""
^DIST(.404,99,40,"B",7,12)=""
^DIST(.404,99,40,"B",8,13)=""
^DIST(.404,99,40,"B",9,14)=""
^DIST(.404,99,40,"B",10,7)=""
^DIST(.404,99,40,"B",11,8)=""
^DIST(.404,99,40,"B",12,11)=""
^DIST(.404,99,40,"B",13,15)=""
^DIST(.404,99,40,"B",14,16)=""
^DIST(.404,99,40,"B",15,17)=""
^DIST(.404,99,40,"B",16,9)=""
^DIST(.404,99,40,"B",17,10)=""
^DIST(.404,99,40,"C","<< 1 - TOTAL ASSISTANCE       2 - MAXIMAL DIRECTION            ",15)=""
^DIST(.404,99,40,"C","<< 1 - TOTAL ASSISTANCE       2 - MAXIMAL PROMPTING            ",12)=""
^DIST(.404,99,40,"C","<< 3 - MODERATE DIRECTION     4 - MINIMAL DIRECTION   5 - SUPER",16)=""
^DIST(.404,99,40,"C","<< 3 - MODERATE PROMPTING     4 - MINIMAL PROMPTING   5 - STAND",13)=""
^DIST(.404,99,40,"C","<< 6 - MODIFIED INDEPENDENCE  7 - COMPLETE INDEPENDENCE        ",14)=""
^DIST(.404,99,40,"C","<< 6 - MODIFIED INDEPENDENCE  7 - COMPLETE INDEPENDENCE        ",17)=""
^DIST(.404,99,40,"C","COMPREHENSION",7)=""
^DIST(.404,99,40,"C","DOB",6)=""
^DIST(.404,99,40,"C","EXPRESSION",8)=""
^DIST(.404,99,40,"C","FIM MODULE (CLINICIAN REPORTED)",1)=""
^DIST(.404,99,40,"C","MEMORY",11)=""
^DIST(.404,99,40,"C","PAGE 3 OF 3",2)=""
^DIST(.404,99,40,"C","PATIENT",4)=""
^DIST(.404,99,40,"C","PROBLEM SOLVING",10)=""
^DIST(.404,99,40,"C","SOCIAL INTERACTION",9)=""
^DIST(.404,99,40,"C","SSN",5)=""
^DIST(.404,99,40,"C","_______________________________________________________________",3)=""
^DIST(.404,99,40,"D","COMPREHENSION",7)=""
^DIST(.404,100,0)="SPNLPFM2-1^154"
^DIST(.404,100,40,0)="^.4044I^28^15"
^DIST(.404,100,40,7,0)="1^HIGHEST LEVEL OF INJURY^3"
^DIST(.404,100,40,7,1)="2.1"
^DIST(.404,100,40,7,2)="2,27^3^2,2"
^DIST(.404,100,40,7,4)="0"
^DIST(.404,100,40,9,0)="4^ASIA IMPAIRMENT SCALE (Revised Frankel)(A-E)^3"
^DIST(.404,100,40,9,1)="6.01"
^DIST(.404,100,40,9,2)="4,62^1^4,16"
^DIST(.404,100,40,9,4)="0"
^DIST(.404,100,40,10,0)="5^TOTAL MOTOR SCORE (0-100)^3"
^DIST(.404,100,40,10,1)="6.02"
^DIST(.404,100,40,10,2)="6,33^3^6,6"
^DIST(.404,100,40,10,4)="0^^1"
^DIST(.404,100,40,11,0)="6^TOTAL PIN PRICK SCORE (0-112)^3"
^DIST(.404,100,40,11,1)="6.03"
^DIST(.404,100,40,11,2)="6,75^3^6,44"
^DIST(.404,100,40,11,4)="0^^1"
^DIST(.404,100,40,12,0)="7^TOTAL LIGHT TOUCH SCORE (0-112)^3"
^DIST(.404,100,40,12,1)="6.04"
^DIST(.404,100,40,12,2)="7,75^3^7,42"
^DIST(.404,100,40,12,4)="0^^1"
^DIST(.404,100,40,13,0)="8^NEUROLOGICAL LEVEL-SENSORY R^3"
^DIST(.404,100,40,13,1)="6.05"
^DIST(.404,100,40,13,2)="9,33^3^9,3"
^DIST(.404,100,40,13,4)="0"
^DIST(.404,100,40,14,0)="9^NEUROLOGICAL LEVEL-SENSORY L^3"
^DIST(.404,100,40,14,1)="6.06"
^DIST(.404,100,40,14,2)="9,75^3^9,45"
^DIST(.404,100,40,14,4)="0"
^DIST(.404,100,40,15,0)="10^NEUROLOGICAL LEVEL-MOTOR R^3"
^DIST(.404,100,40,15,1)="6.07"
^DIST(.404,100,40,15,2)="10,33^3^10,5"
^DIST(.404,100,40,15,4)="0"
^DIST(.404,100,40,16,0)="11^NEUROLOGICAL LEVEL-MOTOR L^3"
^DIST(.404,100,40,16,1)="6.08"
^DIST(.404,100,40,16,2)="10,75^3^10,47"
^DIST(.404,100,40,16,4)="0"
^DIST(.404,100,40,23,0)="3^ ^1"
^DIST(.404,100,40,23,2)="^^1,67"
^DIST(.404,100,40,24,0)="2^COMPLETENESS^3"
^DIST(.404,100,40,24,1)="6.09"
^DIST(.404,100,40,24,2)="2,62^9^2,48"
^DIST(.404,100,40,25,0)="12^PARTIAL PRESERVATION-SENSORY R^3"
^DIST(.404,100,40,25,1)="6.1"
^DIST(.404,100,40,25,2)="12,33^3^12,1"
^DIST(.404,100,40,26,0)="13^PARTIAL PRESERVATION-SENSORY L^3"
^DIST(.404,100,40,26,1)="6.11"
^DIST(.404,100,40,26,2)="12,75^3^12,43"
^DIST(.404,100,40,27,0)="14^PARTIAL PRESERVATION-MOTOR R^3"
^DIST(.404,100,40,27,1)="6.12"
^DIST(.404,100,40,27,2)="13,33^3^13,3"
^DIST(.404,100,40,28,0)="15^PARTIAL PRESERVATION-MOTOR L^3"
^DIST(.404,100,40,28,1)="6.13"
^DIST(.404,100,40,28,2)="13,75^3^13,45"
^DIST(.404,100,40,"B",1,7)=""
^DIST(.404,100,40,"B",2,24)=""
^DIST(.404,100,40,"B",3,23)=""
^DIST(.404,100,40,"B",4,9)=""
^DIST(.404,100,40,"B",5,10)=""
^DIST(.404,100,40,"B",6,11)=""
^DIST(.404,100,40,"B",7,12)=""
^DIST(.404,100,40,"B",8,13)=""
^DIST(.404,100,40,"B",9,14)=""
^DIST(.404,100,40,"B",10,15)=""
^DIST(.404,100,40,"B",11,16)=""
^DIST(.404,100,40,"B",12,25)=""
^DIST(.404,100,40,"B",13,26)=""
^DIST(.404,100,40,"B",14,27)=""
^DIST(.404,100,40,"B",15,28)=""
^DIST(.404,100,40,"C"," ",23)=""
^DIST(.404,100,40,"C","ASIA IMPAIRMENT SCALE (REVISED FRANKEL)(A-E)",9)=""
^DIST(.404,100,40,"C","COMPLETENESS",24)=""
^DIST(.404,100,40,"C","HIGHEST LEVEL OF INJURY",7)=""
^DIST(.404,100,40,"C","NEUROLOGICAL LEVEL-MOTOR L",16)=""
^DIST(.404,100,40,"C","NEUROLOGICAL LEVEL-MOTOR R",15)=""
^DIST(.404,100,40,"C","NEUROLOGICAL LEVEL-SENSORY L",14)=""
^DIST(.404,100,40,"C","NEUROLOGICAL LEVEL-SENSORY R",13)=""
^DIST(.404,100,40,"C","PARTIAL PRESERVATION-MOTOR L",28)=""
^DIST(.404,100,40,"C","PARTIAL PRESERVATION-MOTOR R",27)=""
^DIST(.404,100,40,"C","PARTIAL PRESERVATION-SENSORY L",26)=""
^DIST(.404,100,40,"C","PARTIAL PRESERVATION-SENSORY R",25)=""
^DIST(.404,100,40,"C","TOTAL LIGHT TOUCH SCORE (0-112)",12)=""
^DIST(.404,100,40,"C","TOTAL MOTOR SCORE (0-100)",10)=""
^DIST(.404,100,40,"C","TOTAL PIN PRICK SCORE (0-112)",11)=""
^DIST(.404,101,0)="XPD EDIT BUILD52^9.611"
^DIST(.404,101,40,0)="^.4044I^2^2"
^DIST(.404,101,40,1,0)="1^^3"
^DIST(.404,101,40,1,1)=".01"
^DIST(.404,101,40,1,2)="1,3^40"
^DIST(.404,101,40,2,0)="2^^3"
^DIST(.404,101,40,2,1)="1"
^DIST(.404,101,40,2,2)="1,49^30"
^DIST(.404,101,40,2,4)="1"
^DIST(.404,101,40,"B",1,1)=""
^DIST(.404,101,40,"B",2,2)=""
^DIST(.404,102,0)="XPD EDIT MP1^9.6"
^DIST(.404,102,40,0)="^.4044I^8^8"
^DIST(.404,102,40,1,0)="1^1 OF 2^1"
^DIST(.404,102,40,1,2)="^^1,71"
^DIST(.404,102,40,2,0)="4^Description^3"
^DIST(.404,102,40,2,1)="3"
^DIST(.404,102,40,2,2)="9,26^1^9,13"
^DIST(.404,102,40,3,0)="6^Packages or Patches^1"
^DIST(.404,102,40,3,2)="^^12,22"
^DIST(.404,102,40,4,0)="5^Install Order^1"
^DIST(.404,102,40,4,2)="^^12,1"
^DIST(.404,102,40,5,0)="2^Name^3"
^DIST(.404,102,40,5,1)=".01"
^DIST(.404,102,40,5,2)="5,26^50^5,20"
^DIST(.404,102,40,6,0)="3^Date Distributed^3"
^DIST(.404,102,40,6,1)=".02"
^DIST(.404,102,40,6,2)="7,26^11^7,8"
^DIST(.404,102,40,7,0)="7^Continue^1"
^DIST(.404,102,40,7,2)="^^12,68"
^DIST(.404,102,40,8,0)="8^Required to^1"
^DIST(.404,102,40,8,2)="^^11,66"
^DIST(.404,102,40,"B",1,1)=""
^DIST(.404,102,40,"B",2,5)=""
^DIST(.404,102,40,"B",3,6)=""
^DIST(.404,102,40,"B",4,2)=""
^DIST(.404,102,40,"B",5,4)=""
^DIST(.404,102,40,"B",6,3)=""
^DIST(.404,102,40,"B",7,7)=""
^DIST(.404,102,40,"B",8,8)=""
^DIST(.404,102,40,"C","1 OF 2",1)=""
^DIST(.404,102,40,"C","CONTINUE",7)=""
^DIST(.404,102,40,"C","DATE DISTRIBUTED",6)=""
^DIST(.404,102,40,"C","DESCRIPTION",2)=""
^DIST(.404,102,40,"C","INSTALL ORDER",4)=""
^DIST(.404,102,40,"C","NAME",5)=""
^DIST(.404,102,40,"C","PACKAGES OR PATCHES",3)=""
^DIST(.404,102,40,"C","REQUIRED TO",8)=""
^DIST(.404,103,0)="XPD EDIT HDR^9.6"
^DIST(.404,103,40,0)="^.4044I^5^5"
^DIST(.404,103,40,1,0)="1^Edit a Build^1"
^DIST(.404,103,40,1,2)="^^1,28"
^DIST(.404,103,40,2,0)="3^Name^3"
^DIST(.404,103,40,2,1)=".01"
^DIST(.404,103,40,2,2)="2,7^30^2,1"
^DIST(.404,103,40,2,4)="^^^1"
^DIST(.404,103,40,3,0)="2^PAGE^1"
^DIST(.404,103,40,3,2)="^^1,66"
^DIST(.404,103,40,4,0)="5^!M^1"
^DIST(.404,103,40,4,.1)="S $P(Y,""-"",80)="""""
^DIST(.404,103,40,4,2)="^^3,1"
^DIST(.404,103,40,5,0)="4^TYPE^3"
^DIST(.404,103,40,5,1)="2"
^DIST(.404,103,40,5,2)="2,51^14^2,45"
^DIST(.404,103,40,5,4)="^^^1"
^DIST(.404,103,40,"B",1,1)=""
^DIST(.404,103,40,"B",2,3)=""
^DIST(.404,103,40,"B",3,2)=""
^DIST(.404,103,40,"B",4,5)=""
^DIST(.404,103,40,"B",5,4)=""
^DIST(.404,103,40,"C","EDIT A BUILD",1)=""
^DIST(.404,103,40,"C","NAME",2)=""
^DIST(.404,103,40,"C","PAGE",3)=""
^DIST(.404,103,40,"C","TYPE",5)=""
^DIST(.404,104,0)="XPD EDIT MP2^9.63"
^DIST(.404,104,40,0)="^.4044I^5^3"
^DIST(.404,104,40,1,0)="1^^3"
^DIST(.404,104,40,1,1)=".001"
^DIST(.404,104,40,1,2)="1,3^6"
^DIST(.404,104,40,1,4)="1^^^1"
^DIST(.404,104,40,2,0)="2^^3"
^DIST(.404,104,40,2,1)=".01"
^DIST(.404,104,40,2,2)="1,22^43"
^DIST(.404,104,40,5,0)="3^^3"
^DIST(.404,104,40,5,1)=".02"
^DIST(.404,104,40,5,2)="1,71^3"
^DIST(.404,104,40,"B",1,1)=""
^DIST(.404,104,40,"B",2,2)=""
^DIST(.404,104,40,"B",3,5)=""
^DIST(.404,105,0)="XPD EDIT GP1^9.6"
^DIST(.404,105,40,0)="^.4044I^8^8"
^DIST(.404,105,40,1,0)="1^1 OF 1^1"
^DIST(.404,105,40,1,2)="^^1,70"
^DIST(.404,105,40,2,0)="2^Name^3"
^DIST(.404,105,40,2,1)=".01"
^DIST(.404,105,40,2,2)="5,25^50^5,19"
^DIST(.404,105,40,2,4)=""
^DIST(.404,105,40,3,0)="3^Date Distributed^3"
^DIST(.404,105,40,3,1)=".02"
^DIST(.404,105,40,3,2)="7,25^11^7,7"
^DIST(.404,105,40,3,4)=""
^DIST(.404,105,40,4,0)="4^Description^3"
^DIST(.404,105,40,4,1)="3"
^DIST(.404,105,40,4,2)="9,25^1^9,12"
^DIST(.404,105,40,5,0)="5^Environment Check Rtn.^3"
^DIST(.404,105,40,5,1)="913"
^DIST(.404,105,40,5,2)="11,25^8^11,1"
^DIST(.404,105,40,6,0)="6^Post-Install Rtn.^3"
^DIST(.404,105,40,6,1)="914"
^DIST(.404,105,40,6,2)="11,61^17^11,42"
^DIST(.404,105,40,7,0)="7^Globals^1"
^DIST(.404,105,40,7,2)="^^13,3^1"
^DIST(.404,105,40,8,0)="8^Kill Global Before Install?^1"
^DIST(.404,105,40,8,2)="^^13,42"
^DIST(.404,105,40,"B",1,1)=""
^DIST(.404,105,40,"B",2,2)=""
^DIST(.404,105,40,"B",3,3)=""
^DIST(.404,105,40,"B",4,4)=""
^DIST(.404,105,40,"B",5,5)=""
^DIST(.404,105,40,"B",6,6)=""
^DIST(.404,105,40,"B",7,7)=""
^DIST(.404,105,40,"B",8,8)=""
^DIST(.404,105,40,"C","1 OF 1",1)=""
^DIST(.404,105,40,"C","DATE DISTRIBUTED",3)=""
^DIST(.404,105,40,"C","DESCRIPTION",4)=""
^DIST(.404,105,40,"C","ENVIRONMENT CHECK RTN.",5)=""
^DIST(.404,105,40,"C","GLOBALS",7)=""
^DIST(.404,105,40,"C","KILL GLOBAL BEFORE INSTALL?",8)=""
^DIST(.404,105,40,"C","NAME",2)=""
^DIST(.404,105,40,"C","POST-INSTALL RTN.",6)=""
^DIST(.404,106,0)="XPD EDIT GP3^9.65"
^DIST(.404,106,40,0)="^.4044I^2^2"
^DIST(.404,106,40,1,0)="1^^3"
^DIST(.404,106,40,1,1)=".01"
^DIST(.404,106,40,1,2)="1,4^30"
^DIST(.404,106,40,2,0)="2^^3"
^DIST(.404,106,40,2,1)="1"
^DIST(.404,106,40,2,2)="1,43^3"
^DIST(.404,106,40,"B",1,1)=""
^DIST(.404,106,40,"B",2,2)=""
^DIST(.404,107,0)="PRCHQH1^444^"
^DIST(.404,107,40,0)="^.4044I^7^7"
^DIST(.404,107,40,1,0)="1^Request for Quotation Enter/Edit^1^^Option name"
^DIST(.404,107,40,1,2)="^^1,21"
^DIST(.404,107,40,2,0)="2^RFQ NBR^3"
^DIST(.404,107,40,2,1)=".01"
^DIST(.404,107,40,2,2)="2,10^20^2,1"
^DIST(.404,107,40,3,0)="3^Requesting Service^3"
^DIST(.404,107,40,3,1)="9"
^DIST(.404,107,40,3,2)="2,55^23^2,35"
^DIST(.404,107,40,4,0)="4^Status^3"
^DIST(.404,107,40,4,1)="7"
^DIST(.404,107,40,4,2)="3,9^22^3,1"
^DIST(.404,107,40,5,0)="5^Requester^3"
^DIST(.404,107,40,5,1)="10"
^DIST(.404,107,40,5,2)="3,46^25^3,35"
^DIST(.404,107,40,6,0)="6^Substation^3"
^DIST(.404,107,40,6,1)="8.1"
^DIST(.404,107,40,6,2)="4,13^5^4,1"
^DIST(.404,107,40,7,0)="7^Requester's Phone #^3"
^DIST(.404,107,40,7,1)="11"
^DIST(.404,107,40,7,2)="4,56^19^4,35"
^DIST(.404,107,40,"B",1,1)=""
^DIST(.404,107,40,"B",2,2)=""
^DIST(.404,107,40,"B",3,3)=""
^DIST(.404,107,40,"B",4,4)=""
^DIST(.404,107,40,"B",5,5)=""
^DIST(.404,107,40,"B",6,6)=""
^DIST(.404,107,40,"B",7,7)=""
^DIST(.404,107,40,"C","REQUEST FOR QUOTATION ENTER/EDIT",1)=""
^DIST(.404,107,40,"C","REQUESTER",5)=""
^DIST(.404,107,40,"C","REQUESTER'S PHONE #",7)=""
^DIST(.404,107,40,"C","REQUESTING SERVICE",3)=""
^DIST(.404,107,40,"C","RFQ NBR",2)=""
^DIST(.404,107,40,"C","STATUS",4)=""
^DIST(.404,107,40,"C","SUBSTATION",6)=""
^DIST(.404,107,40,"D","OPTION NAME",1)=""
^DIST(.404,108,0)="PRCHQ1^444"
^DIST(.404,108,40,0)="^.4044I^13^12"
^DIST(.404,108,40,1,0)="1^RFQ Reference Date^3"
^DIST(.404,108,40,1,1)="1"
^DIST(.404,108,40,1,2)="1,21^11^1,1"
^DIST(.404,108,40,1,3)="TODAY"
^DIST(.404,108,40,1,4)="1"
^DIST(.404,108,40,2,0)="2^Reqd Delivery Date^3"
^DIST(.404,108,40,2,1)="13"
^DIST(.404,108,40,2,2)="1,61^11^1,37"
^DIST(.404,108,40,2,4)="1"
^DIST(.404,108,40,2,14)="I X'>$$GET^DDSVAL(444,DA,2,"""",""I"") D HLP^DDSUTL(""Required Delivery Date must be after Quote Due Date."") S DDSERROR=1"
^DIST(.404,108,40,3,0)="3^Priority of Request^3"
^DIST(.404,108,40,3,1)="5"
^DIST(.404,108,40,3,2)="2,22^9^2,1"
^DIST(.404,108,40,3,4)="1"
^DIST(.404,108,40,4,0)="4^Quote Due Date/Time^3"
^DIST(.404,108,40,4,1)="2"
^DIST(.404,108,40,4,2)="2,58^17^2,37"
^DIST(.404,108,40,4,4)="1"
^DIST(.404,108,40,4,14)="D QUOTEDUE^PRCHQ1"
^DIST(.404,108,40,6,0)="6^Ship To^3"
^DIST(.404,108,40,6,1)="14"
^DIST(.404,108,40,6,2)="3,10^15^3,1"
^DIST(.404,108,40,6,4)="1"
^DIST(.404,108,40,7,0)="7^Deliver To^3"
^DIST(.404,108,40,7,1)="15"
^DIST(.404,108,40,7,2)="3,49^30^3,37"
^DIST(.404,108,40,7,4)="1"
^DIST(.404,108,40,8,0)="9^Special Remarks(W)^3"
^DIST(.404,108,40,8,1)="16"
^DIST(.404,108,40,8,2)="4,57^1^4,37"
^DIST(.404,108,40,9,0)="10^!M^2"
^DIST(.404,108,40,9,.1)="S Y=""Do you wish to add a""_$S($P($G(^PRC(444,DA,4,0)),U,4):"" new"",$$GET^DDSVALF(1,1,2)]"""":"" new"",1:"""")_"" Administrative Certification?"""
^DIST(.404,108,40,9,2)="5,56^3^5,1^1"
^DIST(.404,108,40,9,3)="NO"
^DIST(.404,108,40,9,10)="S:Y=1 DDSBR=""1^1^2"""
^DIST(.404,108,40,9,20)="Y"
^DIST(.404,108,40,10,0)="11^Administrative Certifications(W)^3"
^DIST(.404,108,40,10,1)="17"
^DIST(.404,108,40,10,2)="6,35^1^6,1"
^DIST(.404,108,40,11,0)="8^FOB^3"
^DIST(.404,108,40,11,1)="12"
^DIST(.404,108,40,11,2)="4,6^11^4,1"
^DIST(.404,108,40,11,4)="1"
^DIST(.404,108,40,12,0)="12^Set Aside?^3"
^DIST(.404,108,40,12,1)="17.5"
^DIST(.404,108,40,12,2)="7,13^3^7,1"
^DIST(.404,108,40,13,0)="13^Contracting Officer^3"
^DIST(.404,108,40,13,1)="3"
^DIST(.404,108,40,13,2)="7,49^30^7,28"
^DIST(.404,108,40,13,14)="D PA^PRCHQ1($G(X))"
^DIST(.404,108,40,"B",1,1)=""
^DIST(.404,108,40,"B",2,2)=""
^DIST(.404,108,40,"B",3,3)=""
^DIST(.404,108,40,"B",4,4)=""
^DIST(.404,108,40,"B",6,6)=""
^DIST(.404,108,40,"B",7,7)=""
^DIST(.404,108,40,"B",8,11)=""
^DIST(.404,108,40,"B",9,8)=""
^DIST(.404,108,40,"B",10,9)=""
^DIST(.404,108,40,"B",11,10)=""
^DIST(.404,108,40,"B",12,12)=""
^DIST(.404,108,40,"B",13,13)=""
^DIST(.404,108,40,"C","ADMINISTRATIVE CERTIFICATIONS(W)",10)=""
^DIST(.404,108,40,"C","CONTRACTING OFFICER",13)=""
^DIST(.404,108,40,"C","DELIVER TO",7)=""
^DIST(.404,108,40,"C","FOB",11)=""
^DIST(.404,108,40,"C","PRIORITY OF REQUEST",3)=""
^DIST(.404,108,40,"C","QUOTE DUE DATE/TIME",4)=""
^DIST(.404,108,40,"C","REQD DELIVERY DATE",2)=""
^DIST(.404,108,40,"C","RFQ REFERENCE DATE",1)=""
^DIST(.404,108,40,"C","SET ASIDE?",12)=""
^DIST(.404,108,40,"C","SHIP TO",6)=""
^DIST(.404,108,40,"C","SPECIAL REMARKS(W)",8)=""
^DIST(.404,109,0)="PRCHQP2^444"
^DIST(.404,109,40,0)="^.4044I^1^1"
^DIST(.404,109,40,1,0)="1^Administrative Certification Phrase^2"
^DIST(.404,109,40,1,2)="1,38^4^1,1"
^DIST(.404,109,40,1,10)="S DDSBR=""10^2^1"""
^DIST(.404,109,40,1,12)="D PUT^DDSVALF(10,2,1,""NO"")"
^DIST(.404,109,40,1,13)="I DDSEXT?1.N D PUT^DDSVAL(444,DA,17,""^PRC(442.7,DDSEXT,1)"","""",""A"") S SPACE(1)="" "" D PUT^DDSVAL(444,DA,17,""SPACE"","""",""A"") K SPACE"
^DIST(.404,109,40,1,20)="P^^442.7:EMZ"
^DIST(.404,109,40,"B",1,1)=""
^DIST(.404,109,40,"C","ADMINISTRATIVE CERTIFICATION PHRASE",1)=""
^DIST(.404,110,0)="PRCHQ3^444"
^DIST(.404,110,40,0)="^.4044I^4^4"
^DIST(.404,110,40,1,0)="1^Item Line #^1"
^DIST(.404,110,40,1,2)="^^1,3"
^DIST(.404,110,40,2,0)="2^Short Description^1"
^DIST(.404,110,40,2,2)="^^1,18"
^DIST(.404,110,40,3,0)="3^-----------^1"
^DIST(.404,110,40,3,2)="^^2,3"
^DIST(.404,110,40,4,0)="4^-----------------^1"
^DIST(.404,110,40,4,2)="^^2,18"
^DIST(.404,110,40,"B",1,1)=""
^DIST(.404,110,40,"B",2,2)=""
^DIST(.404,110,40,"B",3,3)=""
^DIST(.404,110,40,"B",4,4)=""
^DIST(.404,110,40,"C","-----------",3)=""
^DIST(.404,110,40,"C","-----------------",4)=""
^DIST(.404,110,40,"C","ITEM LINE #",1)=""
^DIST(.404,110,40,"C","SHORT DESCRIPTION",2)=""
^DIST(.404,111,0)="PRCHQ4^444.019"
^DIST(.404,111,40,0)="^.4044I^2^2"
^DIST(.404,111,40,1,0)="1^^3"
^DIST(.404,111,40,1,1)=".01"
^DIST(.404,111,40,1,2)="1,3^3"
^DIST(.404,111,40,1,7)="^4"
^DIST(.404,111,40,2,0)="2^^3"
^DIST(.404,111,40,2,1)="1.6"
^DIST(.404,111,40,2,2)="1,16^60"
^DIST(.404,111,40,2,4)="^^^1"
^DIST(.404,111,40,"B",1,1)=""
^DIST(.404,111,40,"B",2,2)=""
^DIST(.404,112,0)="PRCHQ5^444.019"
^DIST(.404,112,40,0)="^.4044I^17^16"
^DIST(.404,112,40,1,0)="1^Line Item #^3"
^DIST(.404,112,40,1,1)=".01"
^DIST(.404,112,40,1,2)="1,14^3^1,1"
^DIST(.404,112,40,1,4)="^^^1"
^DIST(.404,112,40,2,0)="2^Item Master File #^3"
^DIST(.404,112,40,2,1)="1"
^DIST(.404,112,40,2,2)="1,65^6^1,45"
^DIST(.404,112,40,2,13)="D STUFFITM^PRCHQ1"
^DIST(.404,112,40,3,0)="3^Descr(W)^3"
^DIST(.404,112,40,3,1)="1.5"
^DIST(.404,112,40,3,2)="2,11^1^2,1"
^DIST(.404,112,40,3,4)="1"
^DIST(.404,112,40,4,0)="4^Short^3"
^DIST(.404,112,40,4,1)="1.6"
^DIST(.404,112,40,4,2)="2,22^55^2,15"
^DIST(.404,112,40,5,0)="5^Unit of Purchase^3"
^DIST(.404,112,40,5,1)="3"
^DIST(.404,112,40,5,2)="3,19^2^3,1"
^DIST(.404,112,40,6,0)="6^Quantity^3"
^DIST(.404,112,40,6,1)="2"
^DIST(.404,112,40,6,2)="3,55^9^3,45"
^DIST(.404,112,40,7,0)="7^SIC Code^3"
^DIST(.404,112,40,7,1)="6"
^DIST(.404,112,40,7,2)="4,11^30^4,1"
^DIST(.404,112,40,7,4)="1"
^DIST(.404,112,40,8,0)="8^Natl Drug Code^3"
^DIST(.404,112,40,8,1)="7"
^DIST(.404,112,40,8,2)="4,61^14^4,45"
^DIST(.404,112,40,9,0)="10^Federal Supply Class^3"
^DIST(.404,112,40,9,1)="4"
^DIST(.404,112,40,9,2)="5,67^4^5,45"
^DIST(.404,112,40,9,4)="1"
^DIST(.404,112,40,10,0)="9^Natl Stock #^3"
^DIST(.404,112,40,10,1)="5"
^DIST(.404,112,40,10,2)="5,15^17^5,1"
^DIST(.404,112,40,10,13)="D:X'="""" PUT^DDSVAL(444.019,.DA,4,$P(X,""-""))"
^DIST(.404,112,40,10,14)="D NSN^PRCHQ1"
^DIST(.404,112,40,11,0)="11^Mfg Part #^3"
^DIST(.404,112,40,11,1)="8"
^DIST(.404,112,40,11,2)="6,13^30^6,1"
^DIST(.404,112,40,12,0)="12^Lot #^3"
^DIST(.404,112,40,12,1)="9"
^DIST(.404,112,40,12,2)="6,52^25^6,45"
^DIST(.404,112,40,13,0)="13^Serial #^3"
^DIST(.404,112,40,13,1)="10"
^DIST(.404,112,40,13,2)="7,11^30^7,1"
^DIST(.404,112,40,14,0)="14^Hazmat Code^3"
^DIST(.404,112,40,14,1)="12"
^DIST(.404,112,40,14,2)="7,58^18^7,45"
^DIST(.404,112,40,16,0)="16^Select Delivery Schedule^3"
^DIST(.404,112,40,16,1)="20"
^DIST(.404,112,40,16,2)="9,27^1^9,1"
^DIST(.404,112,40,16,7)="^5"
^DIST(.404,112,40,17,0)="15^BOC^3"
^DIST(.404,112,40,17,1)="12.5"
^DIST(.404,112,40,17,2)="8,6^60^8,1"
^DIST(.404,112,40,17,4)="1"
^DIST(.404,112,40,"B",1,1)=""
^DIST(.404,112,40,"B",2,2)=""
^DIST(.404,112,40,"B",3,3)=""
^DIST(.404,112,40,"B",4,4)=""
^DIST(.404,112,40,"B",5,5)=""
^DIST(.404,112,40,"B",6,6)=""
^DIST(.404,112,40,"B",7,7)=""
^DIST(.404,112,40,"B",8,8)=""
^DIST(.404,112,40,"B",9,10)=""
^DIST(.404,112,40,"B",10,9)=""
^DIST(.404,112,40,"B",11,11)=""
^DIST(.404,112,40,"B",12,12)=""
^DIST(.404,112,40,"B",13,13)=""
^DIST(.404,112,40,"B",14,14)=""
^DIST(.404,112,40,"B",15,17)=""
^DIST(.404,112,40,"B",16,16)=""
^DIST(.404,112,40,"C","BOC",17)=""
^DIST(.404,112,40,"C","DELIVERY SCHEDULE",16)=""
^DIST(.404,112,40,"C","DESCR(W)",3)=""
^DIST(.404,112,40,"C","FEDERAL SUPPLY CLASS",9)=""
^DIST(.404,112,40,"C","HAZMAT CODE",14)=""
^DIST(.404,112,40,"C","ITEM MASTER FILE #",2)=""
^DIST(.404,112,40,"C","LINE ITEM #",1)=""
^DIST(.404,112,40,"C","LOT #",12)=""
^DIST(.404,112,40,"C","MFG PART #",11)=""
^DIST(.404,112,40,"C","NATL DRUG CODE",8)=""
^DIST(.404,112,40,"C","NATL STOCK #",10)=""
^DIST(.404,112,40,"C","QUANTITY",6)=""
^DIST(.404,112,40,"C","SERIAL #",13)=""
^DIST(.404,112,40,"C","SHORT",4)=""
^DIST(.404,112,40,"C","SIC CODE",7)=""
^DIST(.404,112,40,"C","UNIT OF PURCHASE",5)=""
^DIST(.404,113,0)="PRCHQ6^444.039"
^DIST(.404,113,40,0)="^.4044I^4^4"
^DIST(.404,113,40,1,0)="1^Delivery Schedule^3"
^DIST(.404,113,40,1,1)=".01"
^DIST(.404,113,40,1,2)="1,20^2^1,1"
^DIST(.404,113,40,2,0)="2^Date^3"
^DIST(.404,113,40,2,1)="1"
^DIST(.404,113,40,2,2)="1,42^11^1,36"
^DIST(.404,113,40,3,0)="3^Quantity^3"
^DIST(.404,113,40,3,1)="2"
^DIST(.404,113,40,3,2)="2,11^9^2,1"
^DIST(.404,113,40,4,0)="4^Location^3"
^DIST(.404,113,40,4,1)="3"
^DIST(.404,113,40,4,2)="3,11^30^3,1"
^DIST(.404,113,40,"B",1,1)=""
^DIST(.404,113,40,"B",2,2)=""
^DIST(.404,113,40,"B",3,3)=""
^DIST(.404,113,40,"B",4,4)=""
^DIST(.404,113,40,"C","DATE",2)=""
^DIST(.404,113,40,"C","DELIVERY SCHEDULE",1)=""
^DIST(.404,113,40,"C","LOCATION",4)=""
^DIST(.404,113,40,"C","QUANTITY",3)=""
^DIST(.404,114,0)="PRCHQ7^444"
^DIST(.404,114,40,0)="^.4044I^3^2"
^DIST(.404,114,40,1,0)="1^Select Solicited Vendor^3"
^DIST(.404,114,40,1,1)="20"
^DIST(.404,114,40,1,2)="1,26^36^1,1"
^DIST(.404,114,40,1,7)="^8"
^DIST(.404,114,40,1,11)="S DLAYGO=444.1"
^DIST(.404,114,40,1,12)="K DLAYGO"
^DIST(.404,114,40,3,0)="2^Transmit to 'PUBLIC'^3"
^DIST(.404,114,40,3,1)="20.5"
^DIST(.404,114,40,3,2)="2,23^3^2,1"
^DIST(.404,114,40,3,4)="1"
^DIST(.404,114,40,"B",1,1)=""
^DIST(.404,114,40,"B",2,3)=""
^DIST(.404,114,40,"C","SOLICITED VENDOR",1)=""
^DIST(.404,114,40,"C","TRANSMIT TO 'PUBLIC'",3)=""
^DIST(.404,115,0)="PRCHQ8^444.01"
^DIST(.404,115,40,0)="^.4044I^1^1"
^DIST(.404,115,40,1,0)="1^RFQ Temporary Vendor File Entry^1"
^DIST(.404,115,40,1,2)="^^1,1"
^DIST(.404,115,40,"B",1,1)=""
^DIST(.404,115,40,"C","RFQ TEMPORARY VENDOR FILE ENTRY",1)=""
^DIST(.404,116,0)="PRCHQ10^444.1^"
^DIST(.404,116,40,0)="^.4044I^10^9"
^DIST(.404,116,40,2,0)="1^Vendor's Name^3"
^DIST(.404,116,40,2,1)=".01"
^DIST(.404,116,40,2,2)="1,16^36^1,1"
^DIST(.404,116,40,2,4)="1"
^DIST(.404,116,40,3,0)="2^Dun & Bradstreet #^3"
^DIST(.404,116,40,3,1)="18.3"
^DIST(.404,116,40,3,2)="2,21^12^2,1"
^DIST(.404,116,40,3,4)=""
^DIST(.404,116,40,4,0)="3^Order Addr Line 1^3"
^DIST(.404,116,40,4,1)="1"
^DIST(.404,116,40,4,2)="3,20^33^3,1"
^DIST(.404,116,40,4,4)="1"
^DIST(.404,116,40,5,0)="4^Order Addr Line 2^3"
^DIST(.404,116,40,5,1)="2"
^DIST(.404,116,40,5,2)="4,20^33^4,1"
^DIST(.404,116,40,6,0)="5^Order Addr Line 3^3"
^DIST(.404,116,40,6,1)="3"
^DIST(.404,116,40,6,2)="5,20^25^5,1"
^DIST(.404,116,40,7,0)="6^Order Addr Line 4^3"
^DIST(.404,116,40,7,1)="4"
^DIST(.404,116,40,7,2)="6,20^25^6,1"
^DIST(.404,116,40,8,0)="7^Order Addr City^3"
^DIST(.404,116,40,8,1)="4.2"
^DIST(.404,116,40,8,2)="7,18^20^7,1"
^DIST(.404,116,40,8,4)="1"
^DIST(.404,116,40,9,0)="8^Order Addr State^3"
^DIST(.404,116,40,9,1)="4.4"
^DIST(.404,116,40,9,2)="8,19^30^8,1"
^DIST(.404,116,40,9,4)="1"
^DIST(.404,116,40,10,0)="9^Order Addr Zip Code^3"
^DIST(.404,116,40,10,1)="4.6"
^DIST(.404,116,40,10,2)="9,22^10^9,1"
^DIST(.404,116,40,"B",1,2)=""
^DIST(.404,116,40,"B",2,3)=""
^DIST(.404,116,40,"B",3,4)=""
^DIST(.404,116,40,"B",4,5)=""
^DIST(.404,116,40,"B",5,6)=""
^DIST(.404,116,40,"B",6,7)=""
^DIST(.404,116,40,"B",7,8)=""
^DIST(.404,116,40,"B",8,9)=""
^DIST(.404,116,40,"B",9,10)=""
^DIST(.404,116,40,"C","DUN & BRADSTREET #",3)=""
^DIST(.404,116,40,"C","ORDER ADDR CITY",8)=""
^DIST(.404,116,40,"C","ORDER ADDR LINE 1",4)=""
^DIST(.404,116,40,"C","ORDER ADDR LINE 2",5)=""
^DIST(.404,116,40,"C","ORDER ADDR LINE 3",6)=""
^DIST(.404,116,40,"C","ORDER ADDR LINE 4",7)=""
^DIST(.404,116,40,"C","ORDER ADDR STATE",9)=""
^DIST(.404,116,40,"C","ORDER ADDR ZIP CODE",10)=""
^DIST(.404,116,40,"C","VENDOR'S NAME",2)=""
^DIST(.404,117,0)="PRCHQ11^440^"
^DIST(.404,117,40,0)="^.4044I^10^10"
^DIST(.404,117,40,1,0)="1^Site's Main Vendor File Entry (Edit Dun # Only)^1"
^DIST(.404,117,40,1,2)="^^1,1"
^DIST(.404,117,40,2,0)="2^Vendor's Name^3"
^DIST(.404,117,40,2,1)=".01"
^DIST(.404,117,40,2,2)="2,16^36^2,1"
^DIST(.404,117,40,2,4)="^^^1"
^DIST(.404,117,40,3,0)="3^Dun & Bradstreet #^3"
^DIST(.404,117,40,3,1)="18.3"
^DIST(.404,117,40,3,2)="3,21^12^3,1"
^DIST(.404,117,40,4,0)="4^Order Addr Line 1^3"
^DIST(.404,117,40,4,1)="1"
^DIST(.404,117,40,4,2)="4,20^33^4,1"
^DIST(.404,117,40,4,4)="^^^1"
^DIST(.404,117,40,5,0)="5^Order Addr Line 2^3"
^DIST(.404,117,40,5,1)="2"
^DIST(.404,117,40,5,2)="5,20^33^5,1"
^DIST(.404,117,40,5,4)="^^^1"
^DIST(.404,117,40,6,0)="6^Order Addr Line 3^3"
^DIST(.404,117,40,6,1)="3"
^DIST(.404,117,40,6,2)="6,20^25^6,1"
^DIST(.404,117,40,6,4)="^^^1"
^DIST(.404,117,40,7,0)="7^Order Addr Line 4^3"
^DIST(.404,117,40,7,1)="4"
^DIST(.404,117,40,7,2)="7,20^25^7,1"
^DIST(.404,117,40,7,4)="^^^1"
^DIST(.404,117,40,8,0)="8^Order Addr City^3"
^DIST(.404,117,40,8,1)="4.2"
^DIST(.404,117,40,8,2)="8,18^20^8,1"
^DIST(.404,117,40,8,4)="^^^1"
^DIST(.404,117,40,9,0)="9^Order Addr State^3"
^DIST(.404,117,40,9,1)="4.4"
^DIST(.404,117,40,9,2)="9,19^30^9,1"
^DIST(.404,117,40,9,4)="^^^1"
^DIST(.404,117,40,10,0)="10^Order Addr Zip Code^3"
^DIST(.404,117,40,10,1)="4.6"
^DIST(.404,117,40,10,2)="10,22^10^10,1"
^DIST(.404,117,40,10,4)="^^^1"
^DIST(.404,117,40,"B",1,1)=""
^DIST(.404,117,40,"B",2,2)=""
^DIST(.404,117,40,"B",3,3)=""
^DIST(.404,117,40,"B",4,4)=""
^DIST(.404,117,40,"B",5,5)=""
^DIST(.404,117,40,"B",6,6)=""
^DIST(.404,117,40,"B",7,7)=""
^DIST(.404,117,40,"B",8,8)=""
^DIST(.404,117,40,"B",9,9)=""
^DIST(.404,117,40,"B",10,10)=""
^DIST(.404,117,40,"C","DUN & BRADSTREET #",3)=""
^DIST(.404,117,40,"C","ORDER ADDR CITY",8)=""
^DIST(.404,117,40,"C","ORDER ADDR LINE 1",4)=""
^DIST(.404,117,40,"C","ORDER ADDR LINE 2",5)=""
^DIST(.404,117,40,"C","ORDER ADDR LINE 3",6)=""
^DIST(.404,117,40,"C","ORDER ADDR LINE 4",7)=""
^DIST(.404,117,40,"C","ORDER ADDR STATE",9)=""
^DIST(.404,117,40,"C","ORDER ADDR ZIP CODE",10)=""
^DIST(.404,117,40,"C","SITE'S MAIN VENDOR FILE ENTRY (EDIT DUN # ONLY)",1)=""
^DIST(.404,117,40,"C","VENDOR'S NAME",2)=""
^DIST(.404,118,0)="PRCHQ13^444.01"
^DIST(.404,118,40,0)="^.4044I^2^2"
^DIST(.404,118,40,1,0)="1^Solicited Vendor's Name^3"
^DIST(.404,118,40,1,1)=".01"
^DIST(.404,118,40,1,2)="1,26^36^1,1"
^DIST(.404,118,40,1,10)="S:X'="""" DDSSTACK=$S($P(X,"";"",2)[""444.1"":7,1:9)"
^DIST(.404,118,40,2,0)="2^Solicitation Method^3"
^DIST(.404,118,40,2,1)="1"
^DIST(.404,118,40,2,2)="2,22^27^2,1"
^DIST(.404,118,40,2,4)="1"
^DIST(.404,118,40,2,14)="D:$G(X)]"""" METHOD^PRCHQ1B(X)"
^DIST(.404,118,40,"B",1,1)=""
^DIST(.404,118,40,"B",2,2)=""
^DIST(.404,118,40,"C","SOLICITATION METHOD",2)=""
^DIST(.404,118,40,"C","SOLICITED VENDOR'S NAME",1)=""
^DIST(.404,119,0)="PRCHQ20^444.1"
^DIST(.404,119,15,0)="^^1^1^2960220^"
^DIST(.404,119,15,1,0)="Editing information on vendor in the RFQ Temporary Vendor File."
^DIST(.404,119,40,0)="^.4044I^15^15"
^DIST(.404,119,40,1,0)="1^RFQ Temporary Vendor^1"
^DIST(.404,119,40,1,2)="^^1,28"
^DIST(.404,119,40,2,0)="2^Vendor Name^3"
^DIST(.404,119,40,2,1)=".01"
^DIST(.404,119,40,2,2)="3,15^36^3,2"
^DIST(.404,119,40,2,4)="1"
^DIST(.404,119,40,2,13)="S PRC(0)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.1)="""" PUT^DDSVAL(444.1,DA,17.1,PRC(0))"
^DIST(.404,119,40,2,14)="I $G(DDSEXT)="""" D EN^DDIOL(""Deletion is inhibited."") S DDSERROR=1"
^DIST(.404,119,40,3,0)="3^Dun #^3"
^DIST(.404,119,40,3,1)="18.3"
^DIST(.404,119,40,3,2)="4,9^12^4,2"
^DIST(.404,119,40,4,0)="4^Tax ID/SSN^3"
^DIST(.404,119,40,4,1)="38"
^DIST(.404,119,40,4,2)="4,51^9^4,39"
^DIST(.404,119,40,5,0)="5^Contact^3"
^DIST(.404,119,40,5,1)="4.8"
^DIST(.404,119,40,5,2)="5,11^30^5,2"
^DIST(.404,119,40,6,0)="6^Voice Phone #^3"
^DIST(.404,119,40,6,1)="5"
^DIST(.404,119,40,6,2)="6,17^21^6,2"
^DIST(.404,119,40,7,0)="7^Fax #^3"
^DIST(.404,119,40,7,1)="46"
^DIST(.404,119,40,7,2)="6,46^21^6,39"
^DIST(.404,119,40,8,0)="8^Order Address^1"
^DIST(.404,119,40,8,2)="^^7,2"
^DIST(.404,119,40,9,0)="9^Line #1^3"
^DIST(.404,119,40,9,1)="1"
^DIST(.404,119,40,9,2)="8,15^33^8,6"
^DIST(.404,119,40,9,4)="1"
^DIST(.404,119,40,9,13)="S PRC(1)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.3)=""""&(PRC(1)'="""") PUT^DDSVAL(444.1,DA,17.3,PRC(1))"
^DIST(.404,119,40,10,0)="10^Line #2^3"
^DIST(.404,119,40,10,1)="2"
^DIST(.404,119,40,10,2)="9,15^33^9,6"
^DIST(.404,119,40,10,13)="S PRC(2)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.4)=""""&(PRC(2)'="""") PUT^DDSVAL(444.1,DA,17.4,PRC(2))"
^DIST(.404,119,40,11,0)="11^Line #3^3"
^DIST(.404,119,40,11,1)="3"
^DIST(.404,119,40,11,2)="10,15^25^10,6"
^DIST(.404,119,40,11,13)="S PRC(3)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.5)=""""&(PRC(3)'="""") PUT^DDSVAL(444.1,DA,17.5,PRC(3))"
^DIST(.404,119,40,12,0)="12^Line #4^3"
^DIST(.404,119,40,12,1)="4"
^DIST(.404,119,40,12,2)="11,15^25^11,6"
^DIST(.404,119,40,13,0)="13^City^3"
^DIST(.404,119,40,13,1)="4.2"
^DIST(.404,119,40,13,2)="12,12^20^12,6"
^DIST(.404,119,40,13,4)="1"
^DIST(.404,119,40,13,13)="S PRC(5)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.7)=""""&(PRC(5)'="""") PUT^DDSVAL(444.1,DA,17.7,PRC(5))"
^DIST(.404,119,40,14,0)="14^State^3"
^DIST(.404,119,40,14,1)="4.4"
^DIST(.404,119,40,14,2)="13,13^30^13,6"
^DIST(.404,119,40,14,4)="1"
^DIST(.404,119,40,14,13)="S PRC(6)=$G(X) D:$$GET^DDSVAL(444.1,DA,17.8)=""""&(PRC(6)'="""") PUT^DDSVAL(444.1,DA,17.8,PRC(6),"""",""I"")"
^DIST(.404,119,40,15,0)="15^Zip Code^3"
^DIST(.404,119,40,15,1)="4.6"
^DIST(.404,119,40,15,2)="14,16^10^14,6"
^DIST(.404,119,40,15,13)="S PRC(7)=$G(DDSEXT) D:$$GET^DDSVAL(444.1,DA,17.9)=""""&(PRC(7)'="""") PUT^DDSVAL(444.1,DA,17.9,PRC(7))"
^DIST(.404,119,40,"B",1,1)=""
^DIST(.404,119,40,"B",2,2)=""
^DIST(.404,119,40,"B",3,3)=""
^DIST(.404,119,40,"B",4,4)=""
^DIST(.404,119,40,"B",5,5)=""
^DIST(.404,119,40,"B",6,6)=""
^DIST(.404,119,40,"B",7,7)=""
^DIST(.404,119,40,"B",8,8)=""
^DIST(.404,119,40,"B",9,9)=""
^DIST(.404,119,40,"B",10,10)=""
^DIST(.404,119,40,"B",11,11)=""
^DIST(.404,119,40,"B",12,12)=""
^DIST(.404,119,40,"B",13,13)=""
^DIST(.404,119,40,"B",14,14)=""
^DIST(.404,119,40,"B",15,15)=""
^DIST(.404,119,40,"C","CITY",13)=""
^DIST(.404,119,40,"C","CONTACT",5)=""
^DIST(.404,119,40,"C","DUN #",3)=""
^DIST(.404,119,40,"C","FAX #",7)=""
^DIST(.404,119,40,"C","LINE #1",9)=""
^DIST(.404,119,40,"C","LINE #2",10)=""
^DIST(.404,119,40,"C","LINE #3",11)=""
^DIST(.404,119,40,"C","LINE #4",12)=""
^DIST(.404,119,40,"C","ORDER ADDRESS",8)=""
^DIST(.404,119,40,"C","RFQ TEMPORARY VENDOR",1)=""
^DIST(.404,119,40,"C","STATE",14)=""
^DIST(.404,119,40,"C","TAX ID/SSN",4)=""
^DIST(.404,119,40,"C","VENDOR NAME",2)=""
^DIST(.404,119,40,"C","VOICE PHONE #",6)=""
^DIST(.404,119,40,"C","ZIP CODE",15)=""
^DIST(.404,120,0)="PRCHQ21^444.1"
^DIST(.404,120,15,0)="^^1^1^2960220^"
^DIST(.404,120,15,1,0)="Editing RFQ Temporary Vendor file entry."
^DIST(.404,120,40,0)="^.4044I^15^15"
^DIST(.404,120,40,1,0)="1^RFQ Temporary Vendor^1"
^DIST(.404,120,40,1,2)="^^1,28"
^DIST(.404,120,40,2,0)="2^Vendor^3"
^DIST(.404,120,40,2,1)=".01"
^DIST(.404,120,40,2,2)="2,10^36^2,2"
^DIST(.404,120,40,2,4)="^^^1"
^DIST(.404,120,40,3,0)="3^(Continued)^1"
^DIST(.404,120,40,3,2)="^^2,48"
^DIST(.404,120,40,4,0)="4^Payment Address^1"
^DIST(.404,120,40,4,2)="^^3,2"
^DIST(.404,120,40,5,0)="5^Name 1^3"
^DIST(.404,120,40,5,1)="17.1"
^DIST(.404,120,40,5,2)="4,14^35^4,6"
^DIST(.404,120,40,5,4)=""
^DIST(.404,120,40,6,0)="6^Name 2^3"
^DIST(.404,120,40,6,1)="17.15"
^DIST(.404,120,40,6,2)="5,14^35^5,6"
^DIST(.404,120,40,7,0)="7^Line #1^3"
^DIST(.404,120,40,7,1)="17.3"
^DIST(.404,120,40,7,2)="6,15^35^6,6"
^DIST(.404,120,40,7,4)=""
^DIST(.404,120,40,8,0)="8^Line #2^3"
^DIST(.404,120,40,8,1)="17.4"
^DIST(.404,120,40,8,2)="7,15^35^7,6"
^DIST(.404,120,40,9,0)="9^Line #3^3"
^DIST(.404,120,40,9,1)="17.5"
^DIST(.404,120,40,9,2)="8,15^35^8,6"
^DIST(.404,120,40,10,0)="10^City^3"
^DIST(.404,120,40,10,1)="17.7"
^DIST(.404,120,40,10,2)="9,12^30^9,6"
^DIST(.404,120,40,10,4)=""
^DIST(.404,120,40,11,0)="11^State^3"
^DIST(.404,120,40,11,1)="17.8"
^DIST(.404,120,40,11,2)="10,13^30^10,6"
^DIST(.404,120,40,11,4)=""
^DIST(.404,120,40,12,0)="12^Zip Code^3"
^DIST(.404,120,40,12,1)="17.9"
^DIST(.404,120,40,12,2)="11,16^10^11,6"
^DIST(.404,120,40,13,0)="13^Business Type^3"
^DIST(.404,120,40,13,1)="8.3"
^DIST(.404,120,40,13,2)="12,17^16^12,2"
^DIST(.404,120,40,14,0)="14^Type of Ownership^1"
^DIST(.404,120,40,14,2)="^^13,2"
^DIST(.404,120,40,15,0)="15^Socio-economic Group^1"
^DIST(.404,120,40,15,2)="^^13,39"
^DIST(.404,120,40,"B",1,1)=""
^DIST(.404,120,40,"B",2,2)=""
^DIST(.404,120,40,"B",3,3)=""
^DIST(.404,120,40,"B",4,4)=""
^DIST(.404,120,40,"B",5,5)=""
^DIST(.404,120,40,"B",6,6)=""
^DIST(.404,120,40,"B",7,7)=""
^DIST(.404,120,40,"B",8,8)=""
^DIST(.404,120,40,"B",9,9)=""
^DIST(.404,120,40,"B",10,10)=""
^DIST(.404,120,40,"B",11,11)=""
^DIST(.404,120,40,"B",12,12)=""
^DIST(.404,120,40,"B",13,13)=""
^DIST(.404,120,40,"B",14,14)=""
^DIST(.404,120,40,"B",15,15)=""
^DIST(.404,120,40,"C","(CONTINUED)",3)=""
^DIST(.404,120,40,"C","BUSINESS TYPE",13)=""
^DIST(.404,120,40,"C","CITY",10)=""
^DIST(.404,120,40,"C","LINE #1",7)=""
^DIST(.404,120,40,"C","LINE #2",8)=""
^DIST(.404,120,40,"C","LINE #3",9)=""
^DIST(.404,120,40,"C","NAME 1",5)=""
^DIST(.404,120,40,"C","NAME 2",6)=""
^DIST(.404,120,40,"C","PAYMENT ADDRESS",4)=""
^DIST(.404,120,40,"C","RFQ TEMPORARY VENDOR",1)=""
^DIST(.404,120,40,"C","SOCIO-ECONOMIC GROUP",15)=""
^DIST(.404,120,40,"C","STATE",11)=""
^DIST(.404,120,40,"C","TYPE OF OWNERSHIP",14)=""
^DIST(.404,120,40,"C","VENDOR",2)=""
^DIST(.404,120,40,"C","ZIP CODE",12)=""
^DIST(.404,121,0)="PRCHQ24^444.19"
^DIST(.404,121,15,0)="^^1^1^2960221^^^^"
^DIST(.404,121,15,1,0)="Editing Type of Ownership."
^DIST(.404,121,40,0)="^.4044I^1^1"
^DIST(.404,121,40,1,0)="1^^3"
^DIST(.404,121,40,1,1)=".01"
^DIST(.404,121,40,1,2)="1,4^30"
^DIST(.404,121,40,"B",1,1)=""
^DIST(.404,122,0)="PRCHQ25^444.11"
^DIST(.404,122,15,0)="^^1^1^2960221^^^^"
^DIST(.404,122,15,1,0)="Editing Socio-economic Group."
^DIST(.404,122,40,0)="^.4044I^1^1"
^DIST(.404,122,40,1,0)="1^^3"
^DIST(.404,122,40,1,1)=".01"
^DIST(.404,122,40,1,2)="1,3^30"
^DIST(.404,122,40,"B",1,1)=""
^DIST(.404,123,0)="PRCHQ30^444^"
^DIST(.404,123,15,0)="^^1^1^2960222^"
^DIST(.404,123,15,1,0)="Header for Vendor Quote E/E."
^DIST(.404,123,40,0)="^.4044I^8^7"
^DIST(.404,123,40,2,0)="2^Vendor^4"
^DIST(.404,123,40,2,2)="2,9^36^2,1"
^DIST(.404,123,40,2,30)="S Y=PRCVN"
^DIST(.404,123,40,3,0)="3^Dun #^4"
^DIST(.404,123,40,3,2)="2,56^12^2,49"
^DIST(.404,123,40,3,30)="S Y=PRCVD"
^DIST(.404,123,40,4,0)="4^Contact^4"
^DIST(.404,123,40,4,2)="3,10^30^3,1"
^DIST(.404,123,40,4,30)="S Y=PRCVC"
^DIST(.404,123,40,5,0)="5^Tax ID^4"
^DIST(.404,123,40,5,2)="3,57^9^3,49"
^DIST(.404,123,40,5,30)="S Y=PRCVT"
^DIST(.404,123,40,6,0)="6^Voice Phone #^4"
^DIST(.404,123,40,6,2)="4,16^21^4,1"
^DIST(.404,123,40,6,30)="S Y=PRCVP"
^DIST(.404,123,40,7,0)="7^Fax #^4"
^DIST(.404,123,40,7,2)="4,56^21^4,49"
^DIST(.404,123,40,7,30)="S Y=PRCVF"
^DIST(.404,123,40,8,0)="1^Vendor's Quote for^4"
^DIST(.404,123,40,8,2)="1,39^20^1,19^1"
^DIST(.404,123,40,8,30)="S Y=PRCRFQ"
^DIST(.404,123,40,"B",1,8)=""
^DIST(.404,123,40,"B",2,2)=""
^DIST(.404,123,40,"B",3,3)=""
^DIST(.404,123,40,"B",4,4)=""
^DIST(.404,123,40,"B",5,5)=""
^DIST(.404,123,40,"B",6,6)=""
^DIST(.404,123,40,"B",7,7)=""
^DIST(.404,123,40,"C","CONTACT",4)=""
^DIST(.404,123,40,"C","DUN #",3)=""
^DIST(.404,123,40,"C","FAX #",7)=""
^DIST(.404,123,40,"C","TAX ID",5)=""
^DIST(.404,123,40,"C","VENDOR",2)=""
^DIST(.404,123,40,"C","VENDOR'S QUOTE FOR",8)=""
^DIST(.404,123,40,"C","VOICE PHONE #",6)=""
^DIST(.404,124,0)="PRCHQ31^444.024"
^DIST(.404,124,15,0)="^^1^1^2960222^"
^DIST(.404,124,15,1,0)="Editing Vendor's quote."
^DIST(.404,124,40,0)="^.4044I^14^14"
^DIST(.404,124,40,1,0)="1^Seller's Ref #^3"
^DIST(.404,124,40,1,1)="1"
^DIST(.404,124,40,1,2)="1,17^30^1,1"
^DIST(.404,124,40,1,4)="1"
^DIST(.404,124,40,2,0)="2^Effective Date^3"
^DIST(.404,124,40,2,1)="2"
^DIST(.404,124,40,2,2)="1,66^11^1,50"
^DIST(.404,124,40,2,4)="1"
^DIST(.404,124,40,3,0)="3^Receipt Date/Time^3"
^DIST(.404,124,40,3,1)="3"
^DIST(.404,124,40,3,2)="2,20^20^2,1"
^DIST(.404,124,40,3,4)="1"
^DIST(.404,124,40,4,0)="4^Govt Cont^3"
^DIST(.404,124,40,4,1)="10"
^DIST(.404,124,40,4,2)="2,52^30^2,41"
^DIST(.404,124,40,5,0)="5^Quote Contact^3"
^DIST(.404,124,40,5,1)="4"
^DIST(.404,124,40,5,2)="3,16^30^3,1"
^DIST(.404,124,40,6,0)="6^Phone #^3"
^DIST(.404,124,40,6,1)="5"
^DIST(.404,124,40,6,2)="3,58^16^3,49"
^DIST(.404,124,40,7,0)="7^FOB^3"
^DIST(.404,124,40,7,1)="6"
^DIST(.404,124,40,7,2)="4,6^11^4,1"
^DIST(.404,124,40,7,13)="D:$G(X)=""D"" PUT^DDSVAL(444.024,.DA,7,0)"
^DIST(.404,124,40,8,0)="8^Estimated S/H Charges^3"
^DIST(.404,124,40,8,1)="7"
^DIST(.404,124,40,8,2)="4,64^7^4,41"
^DIST(.404,124,40,8,4)="1"
^DIST(.404,124,40,8,12)="I +$G(X)=0,$$GET^DDSVAL(444.024,.DA,6,"""",""I"")=""O"" D HLP^DDSUTL(""Warning - No Shipping Charges on Origin FOB?"")"
^DIST(.404,124,40,8,14)="I +X>0,$$GET^DDSVAL(444.024,.DA,6,"""",""I"")=""D"" D HLP^DDSUTL(""Warning - Usually there are no shipping charges on FOB Destination."")"
^DIST(.404,124,40,9,0)="9^Prompt Pay Terms^1"
^DIST(.404,124,40,9,2)="^^5,1"
^DIST(.404,124,40,10,0)="10^RFQ Items^1"
^DIST(.404,124,40,10,2)="^^5,25"
^DIST(.404,124,40,11,0)="11^Term^1"
^DIST(.404,124,40,11,2)="^^6,3"
^DIST(.404,124,40,12,0)="12^Days^1"
^DIST(.404,124,40,12,2)="^^6,10"
^DIST(.404,124,40,13,0)="13^Line #^1"
^DIST(.404,124,40,13,2)="^^6,27"
^DIST(.404,124,40,14,0)="14^Description^1"
^DIST(.404,124,40,14,2)="^^6,36"
^DIST(.404,124,40,"B",1,1)=""
^DIST(.404,124,40,"B",2,2)=""
^DIST(.404,124,40,"B",3,3)=""
^DIST(.404,124,40,"B",4,4)=""
^DIST(.404,124,40,"B",5,5)=""
^DIST(.404,124,40,"B",6,6)=""
^DIST(.404,124,40,"B",7,7)=""
^DIST(.404,124,40,"B",8,8)=""
^DIST(.404,124,40,"B",9,9)=""
^DIST(.404,124,40,"B",10,10)=""
^DIST(.404,124,40,"B",11,11)=""
^DIST(.404,124,40,"B",12,12)=""
^DIST(.404,124,40,"B",13,13)=""
^DIST(.404,124,40,"B",14,14)=""
^DIST(.404,124,40,"C","DAYS",12)=""
^DIST(.404,124,40,"C","DESCRIPTION",14)=""
^DIST(.404,124,40,"C","EFFECTIVE DATE",2)=""
^DIST(.404,124,40,"C","ESTIMATED S/H CHARGES",8)=""
^DIST(.404,124,40,"C","FOB",7)=""
^DIST(.404,124,40,"C","GOVT CONT",4)=""
^DIST(.404,124,40,"C","LINE #",13)=""
^DIST(.404,124,40,"C","PHONE #",6)=""
^DIST(.404,124,40,"C","PROMPT PAY TERMS",9)=""
^DIST(.404,124,40,"C","QUOTE CONTACT",5)=""
^DIST(.404,124,40,"C","RECEIPT DATE/TIME",3)=""
^DIST(.404,124,40,"C","RFQ ITEMS",10)=""
^DIST(.404,124,40,"C","SELLER'S REF #",1)=""
^DIST(.404,124,40,"C","TERM",11)=""
^DIST(.404,125,0)="PRCHQ32^444.025"
^DIST(.404,125,15,0)="^^1^1^2960222^"
^DIST(.404,125,15,1,0)="Editing Prompt Pay Terms for Vendor's Quote."
^DIST(.404,125,40,0)="^.4044I^2^2"
^DIST(.404,125,40,1,0)="1^^3"
^DIST(.404,125,40,1,1)=".01"
^DIST(.404,125,40,1,2)="1,3^5"
^DIST(.404,125,40,2,0)="2^^3"
^DIST(.404,125,40,2,1)="1"
^DIST(.404,125,40,2,2)="1,10^4"
^DIST(.404,125,40,2,4)="1"
^DIST(.404,125,40,"B",1,1)=""
^DIST(.404,125,40,"B",2,2)=""
^DIST(.404,126,0)="PRCHQ33^444.026"
^DIST(.404,126,15,0)="^^1^1^2960222^"
^DIST(.404,126,15,1,0)="Editing Items on Vendor's Quote."
^DIST(.404,126,40,0)="^.4044I^2^2"
^DIST(.404,126,40,1,0)="1^^3"
^DIST(.404,126,40,1,1)=".01"
^DIST(.404,126,40,1,2)="1,4^3"
^DIST(.404,126,40,1,7)="^2"
^DIST(.404,126,40,2,0)="2^^4"
^DIST(.404,126,40,2,2)="1,12^40"
^DIST(.404,126,40,2,30)="S Y=$$GET^DDSVAL(444.026,.DA,.01,"""",""E""),Y=$O(^PRC(444,PRCDA,2,""B"",Y,"""")) S Y=$S(Y]"""":$P($G(^PRC(444,PRCDA,2,Y,5)),U),1:""** No such Line # **"")"
^DIST(.404,126,40,"B",1,1)=""
^DIST(.404,126,40,"B",2,2)=""
^DIST(.404,127,0)="PRCHQ34^444.026"
^DIST(.404,127,15,0)="^^1^1^2960223^"
^DIST(.404,127,15,1,0)="Editing item information."
^DIST(.404,127,40,0)="^.4044I^20^20"
^DIST(.404,127,40,1,0)="1^RFQ Line #^3"
^DIST(.404,127,40,1,1)=".01"
^DIST(.404,127,40,1,2)="1,13^3^1,1"
^DIST(.404,127,40,1,4)="^^^1"
^DIST(.404,127,40,2,0)="2^Vendor's Product #^3"
^DIST(.404,127,40,2,1)="1"
^DIST(.404,127,40,2,2)="1,56^22^1,36"
^DIST(.404,127,40,3,0)="3^Description(W)^3"
^DIST(.404,127,40,3,1)="1.5"
^DIST(.404,127,40,3,2)="2,17^1^2,1"
^DIST(.404,127,40,4,0)="4^FOB^3"
^DIST(.404,127,40,4,1)="11"
^DIST(.404,127,40,4,2)="3,6^11^3,1"
^DIST(.404,127,40,5,0)="5^Hazmat Code^3"
^DIST(.404,127,40,5,1)="12"
^DIST(.404,127,40,5,2)="3,51^18^3,38"
^DIST(.404,127,40,6,0)="6^Govt Contract^3"
^DIST(.404,127,40,6,1)="16"
^DIST(.404,127,40,6,2)="4,16^30^4,1"
^DIST(.404,127,40,7,0)="7^Quantity^3"
^DIST(.404,127,40,7,1)="2"
^DIST(.404,127,40,7,2)="4,60^9^4,50"
^DIST(.404,127,40,7,13)="D PUT^DDSVAL(444.026,.DA,18,$$LINENET^PRCHQ1B)"
^DIST(.404,127,40,8,0)="8^Unit of Purchase^3"
^DIST(.404,127,40,8,1)="3"
^DIST(.404,127,40,8,2)="5,19^2^5,1"
^DIST(.404,127,40,8,4)="1"
^DIST(.404,127,40,9,0)="9^Unit Cost^3"
^DIST(.404,127,40,9,1)="13"
^DIST(.404,127,40,9,2)="5,49^11^5,38"
^DIST(.404,127,40,9,4)="1"
^DIST(.404,127,40,9,13)="D PUT^DDSVAL(444.026,.DA,18,$$LINENET^PRCHQ1B)"
^DIST(.404,127,40,10,0)="10^Volume Discount %^3"
^DIST(.404,127,40,10,1)="14"
^DIST(.404,127,40,10,2)="6,20^5^6,1"
^DIST(.404,127,40,10,13)="D PUT^DDSVAL(444.026,.DA,18,$$LINENET^PRCHQ1B)"
^DIST(.404,127,40,10,14)="I X>0,$$GET^DDSVAL(444.026,.DA,15)>0 D HLP^DDSUTL(""Item can not have both Discount Amount and Discount %."") S DDSERROR=1"
^DIST(.404,127,40,11,0)="11^Volume Discount Amount^3"
^DIST(.404,127,40,11,1)="15"
^DIST(.404,127,40,11,2)="6,62^10^6,38"
^DIST(.404,127,40,11,13)="D PUT^DDSVAL(444.026,.DA,18,$$LINENET^PRCHQ1B)"
^DIST(.404,127,40,11,14)="I X>0,$$GET^DDSVAL(444.026,.DA,14)>0 D HLP^DDSUTL(""Item can not have both Discount Amount and Discount %."") S DDSERROR=1"
^DIST(.404,127,40,12,0)="12^Natl Stock #^3"
^DIST(.404,127,40,12,1)="5"
^DIST(.404,127,40,12,2)="7,15^17^7,1"
^DIST(.404,127,40,13,0)="13^Federal Supply Class^3"
^DIST(.404,127,40,13,1)="4"
^DIST(.404,127,40,13,2)="7,60^4^7,38"
^DIST(.404,127,40,14,0)="14^Natl Drug Code^3"
^DIST(.404,127,40,14,1)="7"
^DIST(.404,127,40,14,2)="8,17^14^8,1"
^DIST(.404,127,40,15,0)="15^Mfg Part #^3"
^DIST(.404,127,40,15,1)="8"
^DIST(.404,127,40,15,2)="8,50^28^8,38"
^DIST(.404,127,40,16,0)="16^Lot #^3"
^DIST(.404,127,40,16,1)="9"
^DIST(.404,127,40,16,2)="9,8^30^9,1"
^DIST(.404,127,40,17,0)="17^Serial #^3"
^DIST(.404,127,40,17,1)="10"
^DIST(.404,127,40,17,2)="9,49^25^9,39"
^DIST(.404,127,40,18,0)="18^SIC Code^3"
^DIST(.404,127,40,18,1)="6"
^DIST(.404,127,40,18,2)="10,11^65^10,1"
^DIST(.404,127,40,19,0)="19^Select Delivery Schedule^3"
^DIST(.404,127,40,19,1)="17"
^DIST(.404,127,40,19,2)="11,27^1^11,1"
^DIST(.404,127,40,19,7)="^3"
^DIST(.404,127,40,20,0)="20^Net Line Amt^3"
^DIST(.404,127,40,20,1)="18"
^DIST(.404,127,40,20,2)="11,52^9^11,38"
^DIST(.404,127,40,20,4)="^^^1"
^DIST(.404,127,40,"B",1,1)=""
^DIST(.404,127,40,"B",2,2)=""
^DIST(.404,127,40,"B",3,3)=""
^DIST(.404,127,40,"B",4,4)=""
^DIST(.404,127,40,"B",5,5)=""
^DIST(.404,127,40,"B",6,6)=""
^DIST(.404,127,40,"B",7,7)=""
^DIST(.404,127,40,"B",8,8)=""
^DIST(.404,127,40,"B",9,9)=""
^DIST(.404,127,40,"B",10,10)=""
^DIST(.404,127,40,"B",11,11)=""
^DIST(.404,127,40,"B",12,12)=""
^DIST(.404,127,40,"B",13,13)=""
^DIST(.404,127,40,"B",14,14)=""
^DIST(.404,127,40,"B",15,15)=""
^DIST(.404,127,40,"B",16,16)=""
^DIST(.404,127,40,"B",17,17)=""
^DIST(.404,127,40,"B",18,18)=""
^DIST(.404,127,40,"B",19,19)=""
^DIST(.404,127,40,"B",20,20)=""
^DIST(.404,127,40,"C","DELIVERY SCHEDULE",19)=""
^DIST(.404,127,40,"C","DESCRIPTION(W)",3)=""
^DIST(.404,127,40,"C","FEDERAL SUPPLY CLASS",13)=""
^DIST(.404,127,40,"C","FOB",4)=""
^DIST(.404,127,40,"C","GOVT CONTRACT",6)=""
^DIST(.404,127,40,"C","HAZMAT CODE",5)=""
^DIST(.404,127,40,"C","LOT #",16)=""
^DIST(.404,127,40,"C","MFG PART #",15)=""
^DIST(.404,127,40,"C","NATL DRUG CODE",14)=""
^DIST(.404,127,40,"C","NATL STOCK #",12)=""
^DIST(.404,127,40,"C","NET LINE AMT",20)=""
^DIST(.404,127,40,"C","QUANTITY",7)=""
^DIST(.404,127,40,"C","RFQ LINE #",1)=""
^DIST(.404,127,40,"C","SERIAL #",17)=""
^DIST(.404,127,40,"C","SIC CODE",18)=""
^DIST(.404,127,40,"C","UNIT COST",9)=""
^DIST(.404,127,40,"C","UNIT OF PURCHASE",8)=""
^DIST(.404,127,40,"C","VENDOR'S PRODUCT #",2)=""
^DIST(.404,127,40,"C","VOLUME DISCOUNT %",10)=""
^DIST(.404,127,40,"C","VOLUME DISCOUNT AMOUNT",11)=""
^DIST(.404,128,0)="PRCHQ35^444.027"
^DIST(.404,128,15,0)="^^1^1^2960223^"
^DIST(.404,128,15,1,0)="Editing vendor's proposed delivery schedule for a given item."
^DIST(.404,128,40,0)="^.4044I^4^4"
^DIST(.404,128,40,1,0)="1^Delivery Schedule^3"
^DIST(.404,128,40,1,1)=".01"
^DIST(.404,128,40,1,2)="1,20^2^1,1"
^DIST(.404,128,40,2,0)="2^Date^3"
^DIST(.404,128,40,2,1)="1"
^DIST(.404,128,40,2,2)="1,41^11^1,35"
^DIST(.404,128,40,3,0)="3^Quantity^3"
^DIST(.404,128,40,3,1)="2"
^DIST(.404,128,40,3,2)="2,11^9^2,1"
^DIST(.404,128,40,4,0)="4^Unit of Purchase^3"
^DIST(.404,128,40,4,1)="3"
^DIST(.404,128,40,4,2)="2,53^2^2,35"
^DIST(.404,128,40,"B",1,1)=""
^DIST(.404,128,40,"B",2,2)=""
^DIST(.404,128,40,"B",3,3)=""
^DIST(.404,128,40,"B",4,4)=""
^DIST(.404,128,40,"C","DATE",2)=""
^DIST(.404,128,40,"C","DELIVERY SCHEDULE",1)=""
^DIST(.404,128,40,"C","QUANTITY",3)=""
^DIST(.404,128,40,"C","UNIT OF PURCHASE",4)=""
^DIST(.404,129,0)="PRCHQ40^444^"
^DIST(.404,129,15,0)="^^1^1^2960305^"
^DIST(.404,129,15,1,0)="Heading for 864 Transaction TEXT MESSAGE Enter"
^DIST(.404,129,40,0)="^.4044I^1^1"
^DIST(.404,129,40,1,0)="1^!M^1"
^DIST(.404,129,40,1,.1)="S Y=""Request for Quotation #: ""_$G(PRCRFQ)"
^DIST(.404,129,40,1,2)="^^1,17"
^DIST(.404,129,40,"B",1,1)=""
^DIST(.404,130,0)="PRCHQ41^444.021"
^DIST(.404,130,15,0)="^^1^1^2960305^"
^DIST(.404,130,15,1,0)="Entry of 864 Transaction information"
^DIST(.404,130,40,0)="^.4044I^6^5"
^DIST(.404,130,40,2,0)="1^Message Description^3"
^DIST(.404,130,40,2,1)="9"
^DIST(.404,130,40,2,2)="2,1^79^1,1"
^DIST(.404,130,40,2,4)="1"
^DIST(.404,130,40,3,0)="2^Text(W)^3"
^DIST(.404,130,40,3,1)="10"
^DIST(.404,130,40,3,2)="3,10^1^3,1"
^DIST(.404,130,40,3,4)="1"
^DIST(.404,130,40,4,0)="4^Public Transmission^3"
^DIST(.404,130,40,4,1)="12"
^DIST(.404,130,40,4,2)="4,22^3^4,1"
^DIST(.404,130,40,4,4)="1"
^DIST(.404,130,40,5,0)="5^Explicit Recipients:^1"
^DIST(.404,130,40,5,2)="^^5,1"
^DIST(.404,130,40,6,0)="3^Your Commercial Phone #^3"
^DIST(.404,130,40,6,1)="8"
^DIST(.404,130,40,6,2)="3,53^21^3,28"
^DIST(.404,130,40,6,4)="1"
^DIST(.404,130,40,"B",1,2)=""
^DIST(.404,130,40,"B",2,3)=""
^DIST(.404,130,40,"B",3,6)=""
^DIST(.404,130,40,"B",4,4)=""
^DIST(.404,130,40,"B",5,5)=""
^DIST(.404,130,40,"C","EXPLICIT RECIPIENTS:",5)=""
^DIST(.404,130,40,"C","MESSAGE DESCRIPTION",2)=""
^DIST(.404,130,40,"C","PUBLIC TRANSMISSION",4)=""
^DIST(.404,130,40,"C","TEXT(W)",3)=""
^DIST(.404,130,40,"C","YOUR COMMERCIAL PHONE #",6)=""
^DIST(.404,131,0)="PRCHQ42^444.022"
^DIST(.404,131,15,0)="^^1^1^2960305^"
^DIST(.404,131,15,1,0)="864 Message Recipient List"
^DIST(.404,131,40,0)="^.4044I^1^1"
^DIST(.404,131,40,1,0)="1^^3"
^DIST(.404,131,40,1,1)=".01"
^DIST(.404,131,40,1,2)="1,1^36"
^DIST(.404,131,40,1,10)="S:$P($G(X),"";"",2)[""444.1"" DDSSTACK=2"
^DIST(.404,131,40,"B",1,1)=""
^DIST(.404,132,0)="PRCHQ43^444.1"
^DIST(.404,132,40,0)="^.4044I^3^3"
^DIST(.404,132,40,1,0)="1^RFQ Temporary Vendor File Entry^1"
^DIST(.404,132,40,1,2)="^^1,20"
^DIST(.404,132,40,2,0)="2^Vendor Name^3"
^DIST(.404,132,40,2,1)=".01"
^DIST(.404,132,40,2,2)="3,14^36^3,1"
^DIST(.404,132,40,2,4)="1"
^DIST(.404,132,40,3,0)="3^Dun & Bradstreet #^3"
^DIST(.404,132,40,3,1)="18.3"
^DIST(.404,132,40,3,2)="4,21^12^4,1"
^DIST(.404,132,40,3,4)="1"
^DIST(.404,132,40,"B",1,1)=""
^DIST(.404,132,40,"B",2,2)=""
^DIST(.404,132,40,"B",3,3)=""
^DIST(.404,132,40,"C","DUN & BRADSTREET #",3)=""
^DIST(.404,132,40,"C","RFQ TEMPORARY VENDOR FILE ENTRY",1)=""
^DIST(.404,132,40,"C","VENDOR NAME",2)=""
^DIST(.404,133,0)="PRCHQ50^444^"
^DIST(.404,133,15,0)="^^1^1^2960416^"
^DIST(.404,133,15,1,0)="Heading block for award process."
^DIST(.404,133,40,0)="^.4044I^8^8"
^DIST(.404,133,40,1,0)="1^Evaluation on Request for Quotation^1"
^DIST(.404,133,40,1,2)="^^1,19"
^DIST(.404,133,40,2,0)="2^RFQ NBR^3"
^DIST(.404,133,40,2,1)=".01"
^DIST(.404,133,40,2,2)="2,10^20^2,1"
^DIST(.404,133,40,3,0)="3^Status^3"
^DIST(.404,133,40,3,1)="7"
^DIST(.404,133,40,3,2)="2,48^19^2,40"
^DIST(.404,133,40,4,0)="4^Quote Due Date/Time^3"
^DIST(.404,133,40,4,1)="2"
^DIST(.404,133,40,4,2)="3,22^17^3,1"
^DIST(.404,133,40,5,0)="5^Closed Date/Time^3"
^DIST(.404,133,40,5,1)="7.5"
^DIST(.404,133,40,5,2)="3,58^20^3,40"
^DIST(.404,133,40,6,0)="6^Line #^1"
^DIST(.404,133,40,6,2)="^^4,1"
^DIST(.404,133,40,7,0)="7^Item Description (Short)^1"
^DIST(.404,133,40,7,2)="^^4,9"
^DIST(.404,133,40,8,0)="8^Selected Quote/Vendor^1"
^DIST(.404,133,40,8,2)="^^4,42"
^DIST(.404,133,40,"B",1,1)=""
^DIST(.404,133,40,"B",2,2)=""
^DIST(.404,133,40,"B",3,3)=""
^DIST(.404,133,40,"B",4,4)=""
^DIST(.404,133,40,"B",5,5)=""
^DIST(.404,133,40,"B",6,6)=""
^DIST(.404,133,40,"B",7,7)=""
^DIST(.404,133,40,"B",8,8)=""
^DIST(.404,133,40,"C","CLOSED DATE/TIME",5)=""
^DIST(.404,133,40,"C","EVALUATION ON REQUEST FOR QUOTATION",1)=""
^DIST(.404,133,40,"C","ITEM DESCRIPTION (SHORT)",7)=""
^DIST(.404,133,40,"C","LINE #",6)=""
^DIST(.404,133,40,"C","QUOTE DUE DATE/TIME",4)=""
^DIST(.404,133,40,"C","RFQ NBR",2)=""
^DIST(.404,133,40,"C","SELECTED QUOTE/VENDOR",8)=""
^DIST(.404,133,40,"C","STATUS",3)=""
^DIST(.404,134,0)="PRCHQ51^444.019"
^DIST(.404,134,11)=""
^DIST(.404,134,15,0)="^^1^1^2960416^"
^DIST(.404,134,15,1,0)="This is a repeating block for editing selected quote."
^DIST(.404,134,40,0)="^.4044I^4^4"
^DIST(.404,134,40,1,0)="1^^3"
^DIST(.404,134,40,1,1)=".01"
^DIST(.404,134,40,1,2)="1,2^3"
^DIST(.404,134,40,1,4)="^^^1"
^DIST(.404,134,40,2,0)="2^^3"
^DIST(.404,134,40,2,1)="1.6"
^DIST(.404,134,40,2,2)="1,9^30"
^DIST(.404,134,40,2,4)="^^^1"
^DIST(.404,134,40,3,0)="3^^3"
^DIST(.404,134,40,3,1)="23"
^DIST(.404,134,40,3,2)="1,42^5"
^DIST(.404,134,40,3,12)="D HLP^DDSUTL(""   "")"
^DIST(.404,134,40,3,13)="D PUT^PRCHQ13"
^DIST(.404,134,40,3,14)="I $$GET^DDSVAL(444.019,.DA,21)]"""" S DDSERROR=1 D HLP^DDSUTL(""Item has already been awarded so uneditable."")"
^DIST(.404,134,40,4,0)="4^^3"
^DIST(.404,134,40,4,1)="17"
^DIST(.404,134,40,4,2)="1,49^30"
^DIST(.404,134,40,4,4)="^^^1"
^DIST(.404,134,40,"B",1,1)=""
^DIST(.404,134,40,"B",2,2)=""
^DIST(.404,134,40,"B",3,3)=""
^DIST(.404,134,40,"B",4,4)=""
^DIST(.404,135,0)="PRCHQ52^444"
^DIST(.404,135,40,0)="^.4044I^1^1"
^DIST(.404,135,40,1,0)="1^Justification(W)^3"
^DIST(.404,135,40,1,1)="18"
^DIST(.404,135,40,1,2)="1,19^1^1,1"
^DIST(.404,135,40,"B",1,1)=""
^DIST(.404,135,40,"C","JUSTIFICATION(W)",1)=""
^DIST(.404,136,0)="SPNLPBLK4^154"
^DIST(.404,136,11)="I $$EN2^SPNLUTL1(.DA,""MULTIPLE SCLEROSIS""),$$GET^DDSVAL(154,.DA,2.2,"""",""I"")="""" D PUT^DDSVAL(154,.DA,2.2,""UN"","""",""I"")"
^DIST(.404,136,40,0)="^.4044I^4^4"
^DIST(.404,136,40,1,0)="1^SCI LEVEL^3"
^DIST(.404,136,40,1,1)="2.1"
^DIST(.404,136,40,1,2)="1,12^5^1,1"
^DIST(.404,136,40,1,11)="I '$$EN9^SPNLUTL0(.DA) D PUT^DDSVAL(154,.DA,2.1,""@"") S DDSBR=""2^4^1"""
^DIST(.404,136,40,2,0)="2^EXTENT OF SCI^3"
^DIST(.404,136,40,2,1)="6.09"
^DIST(.404,136,40,2,2)="1,61^10^1,46"
^DIST(.404,136,40,2,11)="I '$$EN9^SPNLUTL0(.DA) D PUT^DDSVAL(154,.DA,6.09,""@"") S DDSBR=""3^4^1"""
^DIST(.404,136,40,3,0)="4^MS Subtype^3"
^DIST(.404,136,40,3,1)="2.2"
^DIST(.404,136,40,3,2)="3,58^21^3,46"
^DIST(.404,136,40,3,11)="D:'$$EN2^SPNLUTL1(.DA,""MULTIPLE SCLEROSIS"") PUT^DDSVAL(154,.DA,2.2,""@"") S:'$$EN2^SPNLUTL1(.DA,""MULTIPLE SCLEROSIS"") DDSBR=""COM"""
^DIST(.404,136,40,4,0)="3^REMARKS^3"
^DIST(.404,136,40,4,1)="11"
^DIST(.404,136,40,4,2)="2,10^65^2,1"
^DIST(.404,136,40,"B",1,1)=""
^DIST(.404,136,40,"B",2,2)=""
^DIST(.404,136,40,"B",3,4)=""
^DIST(.404,136,40,"B",4,3)=""
^DIST(.404,136,40,"C","EXTENT OF SCI",2)=""
^DIST(.404,136,40,"C","MS SUBTYPE",3)=""
^DIST(.404,136,40,"C","REMARKS",4)=""
^DIST(.404,136,40,"C","SCI LEVEL",1)=""
^DIST(.404,137,0)="SPNLPBLK5^154"
^DIST(.404,137,40,0)="^.4044I^16^14"
^DIST(.404,137,40,1,0)="1^AMOUNT VA IS USED^3"
^DIST(.404,137,40,1,1)="3.1"
^DIST(.404,137,40,1,2)="1,20^35^1,1"
^DIST(.404,137,40,1,10)="S:X>4 DDSBR=""5^2^3"" S:X="""" DDSBR=""6^2^3"""
^DIST(.404,137,40,1,12)="D:X=1!(X="""") PUT^DDSVAL(154,.DA,3.5,""@"") I X>4!(X="""") D PUT^DDSVAL(154,.DA,3.2,""@""),PUT^DDSVAL(154,.DA,3.3,""@""),PUT^DDSVAL(154,.DA,3.4,""@"")"
^DIST(.404,137,40,2,0)="2^PRIMARY CARE VA^3"
^DIST(.404,137,40,2,1)="3.2"
^DIST(.404,137,40,2,2)="2,18^19^2,1"
^DIST(.404,137,40,2,11)="I $$GET^DDSVAL(154,.DA,3.1,"""",""I"")>4!($$GET^DDSVAL(154,.DA,3.1,"""",""I"")<1) S DDSBR=""5^2^3"""
^DIST(.404,137,40,3,0)="3^ANNUAL REHAB VA^3"
^DIST(.404,137,40,3,1)="3.3"
^DIST(.404,137,40,3,2)="2,57^19^2,40"
^DIST(.404,137,40,3,11)="I $$GET^DDSVAL(154,.DA,3.1,"""",""I"")>4!($$GET^DDSVAL(154,.DA,3.1,"""",""I"")<1) S DDSBR=""5^2^3"""
^DIST(.404,137,40,4,0)="4^ADDITIONAL CARE RECEIVED AT VAMC^3"
^DIST(.404,137,40,4,1)="3.4"
^DIST(.404,137,40,4,2)="3,35^30^3,1"
^DIST(.404,137,40,4,11)="I $$GET^DDSVAL(154,.DA,3.1,"""",""I"")>4!($$GET^DDSVAL(154,.DA,3.1,"""",""I"")<1) S DDSBR=""5^2^3"""
^DIST(.404,137,40,5,0)="5^NON-VA SOURCE OF CARE^3"
^DIST(.404,137,40,5,1)="3.5"
^DIST(.404,137,40,5,2)="4,24^35^4,1"
^DIST(.404,137,40,5,11)="I $$GET^DDSVAL(154,.DA,3.1,"""",""I"")<2 S DDSBR=""6^2^3"""
^DIST(.404,137,40,6,0)="6^PRI CARE PROV^3"
^DIST(.404,137,40,6,1)="8.1"
^DIST(.404,137,40,6,2)="5,16^25^5,1"
^DIST(.404,137,40,7,0)="7^SCD-R COORD^3"
^DIST(.404,137,40,7,1)="8.2"
^DIST(.404,137,40,7,2)="5,55^25^5,42"
^DIST(.404,137,40,8,0)="8^REFERRAL SOURCE^3"
^DIST(.404,137,40,8,1)="8.3"
^DIST(.404,137,40,8,2)="6,18^19^6,1"
^DIST(.404,137,40,8,12)="D:X'=1 PUT^DDSVAL(154,.DA,8.4,""@"")"
^DIST(.404,137,40,9,0)="11^INITIAL REHAB SITE^3"
^DIST(.404,137,40,9,1)="8.6"
^DIST(.404,137,40,9,2)="7,21^28^7,1"
^DIST(.404,137,40,10,0)="12^DATE OF D/C^3"
^DIST(.404,137,40,10,1)="8.8"
^DIST(.404,137,40,10,2)="7,63^17^7,50"
^DIST(.404,137,40,11,0)="14^ANNUAL REHAB EVAL:   OFFERED^1"
^DIST(.404,137,40,11,2)="^^11,1"
^DIST(.404,137,40,12,0)="15^RECEIVED^1"
^DIST(.404,137,40,12,2)="^^11,45"
^DIST(.404,137,40,13,0)="16^NEXT DUE^1"
^DIST(.404,137,40,13,2)="^^11,68"
^DIST(.404,137,40,16,0)="10^REFERRAL VA^3"
^DIST(.404,137,40,16,1)="8.4"
^DIST(.404,137,40,16,2)="6,51^29^6,38"
^DIST(.404,137,40,16,11)="I $$GET^DDSVAL(154,.DA,8.3,"""",""I"")'=1 S DDSBR=""11^2^3"""
^DIST(.404,137,40,"B",1,1)=""
^DIST(.404,137,40,"B",2,2)=""
^DIST(.404,137,40,"B",3,3)=""
^DIST(.404,137,40,"B",4,4)=""
^DIST(.404,137,40,"B",5,5)=""
^DIST(.404,137,40,"B",6,6)=""
^DIST(.404,137,40,"B",7,7)=""
^DIST(.404,137,40,"B",8,8)=""
^DIST(.404,137,40,"B",10,16)=""
^DIST(.404,137,40,"B",11,9)=""
^DIST(.404,137,40,"B",12,10)=""
^DIST(.404,137,40,"B",14,11)=""
^DIST(.404,137,40,"B",15,12)=""
^DIST(.404,137,40,"B",16,13)=""
^DIST(.404,137,40,"C","ADDITIONAL CARE RECEIVED AT VAMC",4)=""
^DIST(.404,137,40,"C","AMOUNT VA IS USED",1)=""
^DIST(.404,137,40,"C","ANNUAL REHAB EVAL:   OFFERED",11)=""
^DIST(.404,137,40,"C","ANNUAL REHAB VA",3)=""
^DIST(.404,137,40,"C","DATE OF D/C",10)=""
^DIST(.404,137,40,"C","INITIAL REHAB SITE",9)=""
^DIST(.404,137,40,"C","NEXT DUE",13)=""
^DIST(.404,137,40,"C","NON-VA SOURCE OF CARE",5)=""
^DIST(.404,137,40,"C","PRI CARE PROV",6)=""
^DIST(.404,137,40,"C","PRIMARY CARE VA",2)=""
^DIST(.404,137,40,"C","RECEIVED",12)=""
^DIST(.404,137,40,"C","REFERRAL SOURCE",8)=""
^DIST(.404,137,40,"C","REFERRAL VA",16)=""
^DIST(.404,137,40,"C","SCD-R COORD",7)=""
^DIST(.404,138,0)="SPNLPBLK6^154.07"
^DIST(.404,138,40,0)="^.4044I^6^3"
^DIST(.404,138,40,4,0)="1^!M^3"
^DIST(.404,138,40,4,.1)="W """""
^DIST(.404,138,40,4,1)=".01"
^DIST(.404,138,40,4,2)="3,18^17^3,13^1"
^DIST(.404,138,40,5,0)="2^!M^3"
^DIST(.404,138,40,5,.1)="W """""
^DIST(.404,138,40,5,1)="1"
^DIST(.404,138,40,5,2)="3,41^17^3,36^1"
^DIST(.404,138,40,5,12)="N SPN,SPN2 S SPN=$$GET^DDSVAL(154.07,.DA,1,"""",""I"") I SPN S SPN2=$$GET^DDSVAL(154.07,.DA,.01,"""",""I"") D EN7^SPNLUTL0(SPN2,SPN,1) I SPN,'$G(DDSERROR),'$$GET^DDSVAL(154.07,.DA,2,"""",""I"") S Y=$$FMADD^XLFDT(SPN,365) D PUT^DDSVAL(154.07,.DA,2,Y,"""",""I"")"
^DIST(.404,138,40,6,0)="3^!M^3"
^DIST(.404,138,40,6,.1)="W """""
^DIST(.404,138,40,6,1)="2"
^DIST(.404,138,40,6,2)="3,63^17^3,58^1"
^DIST(.404,138,40,6,12)="N SPN,SPN2 S SPN=$$GET^DDSVAL(154.07,.DA,2,"""",""I""),SPN2=$$GET^DDSVAL(154.07,.DA,1,"""",""I"") D EN7^SPNLUTL0(SPN2,SPN,2)"
^DIST(.404,138,40,"B",1,4)=""
^DIST(.404,138,40,"B",2,5)=""
^DIST(.404,138,40,"B",3,6)=""
^DIST(.404,139,0)="SPNLPBLK7^154"
^DIST(.404,139,40,0)="^.4044I^^0"
^DIST(.404,140,0)="SPNLPHDR CM 1^154^"
^DIST(.404,140,40,0)="^.4044I^8^8"
^DIST(.404,140,40,1,0)="1^CLINICAL REGISTRATION MODULE^1"
^DIST(.404,140,40,1,2)="^^1,1"
^DIST(.404,140,40,2,0)="2^NEUROLOGICAL SCREEN^1"
^DIST(.404,140,40,2,2)="^^1,37"
^DIST(.404,140,40,3,0)="3^PAGE 1 OF 3^1"
^DIST(.404,140,40,3,2)="^^1,66"
^DIST(.404,140,40,4,0)="4^PATIENT^3"
^DIST(.404,140,40,4,1)=".01"
^DIST(.404,140,40,4,2)="2,10^30^2,1"
^DIST(.404,140,40,5,0)="5^!M^1"
^DIST(.404,140,40,5,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,.DA,.09,1)"
^DIST(.404,140,40,5,2)="^^2,41"
^DIST(.404,140,40,6,0)="6^!M^1"
^DIST(.404,140,40,6,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,.DA,.03,"""",""I""),1)"
^DIST(.404,140,40,6,2)="^^2,62"
^DIST(.404,140,40,7,0)="8^________________________________________________________________________________^1"
^DIST(.404,140,40,7,2)="^^4,1"
^DIST(.404,140,40,8,0)="7^!M^1"
^DIST(.404,140,40,8,.1)="S Y=""VA SCI FLAG: ""_$$GET^DDSVAL(2,.DA,57.4,"""",""E"")"
^DIST(.404,140,40,8,2)="^^3,37"
^DIST(.404,140,40,"B",1,1)=""
^DIST(.404,140,40,"B",2,2)=""
^DIST(.404,140,40,"B",3,3)=""
^DIST(.404,140,40,"B",4,4)=""
^DIST(.404,140,40,"B",5,5)=""
^DIST(.404,140,40,"B",6,6)=""
^DIST(.404,140,40,"B",7,8)=""
^DIST(.404,140,40,"B",8,7)=""
^DIST(.404,140,40,"C","CLINICAL REGISTRATION MODULE",1)=""
^DIST(.404,140,40,"C","NEUROLOGICAL SCREEN",2)=""
^DIST(.404,140,40,"C","PAGE 1 OF 3",3)=""
^DIST(.404,140,40,"C","PATIENT",4)=""
^DIST(.404,140,40,"C","_______________________________________________________________",7)=""
^DIST(.404,141,0)="SPNLPHDR CM 2^154^"
^DIST(.404,141,40,0)="^.4044I^8^8"
^DIST(.404,141,40,1,0)="1^CLINICAL REGISTRATION MODULE^1"
^DIST(.404,141,40,1,2)="^^1,2"
^DIST(.404,141,40,2,0)="2^PHYSICAL IMPAIRMENT SCREEN^1"
^DIST(.404,141,40,2,2)="^^1,32"
^DIST(.404,141,40,3,0)="3^PAGE 1 OF 2^1"
^DIST(.404,141,40,3,2)="^^1,66"
^DIST(.404,141,40,4,0)="4^PATIENT^3"
^DIST(.404,141,40,4,1)=".01"
^DIST(.404,141,40,4,2)="2,10^30^2,1"
^DIST(.404,141,40,5,0)="5^!M^1"
^DIST(.404,141,40,5,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,.DA,.09,1)"
^DIST(.404,141,40,5,2)="^^2,41"
^DIST(.404,141,40,6,0)="6^!M^1"
^DIST(.404,141,40,6,.1)="S Y=""VA SCI FLAG: ""_$$GET^DDSVAL(2,.DA,57.4,"""",""E"")"
^DIST(.404,141,40,6,2)="^^3,37"
^DIST(.404,141,40,7,0)="7^!M^1"
^DIST(.404,141,40,7,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,.DA,.03,"""",""I""),1)"
^DIST(.404,141,40,7,2)="^^2,63"
^DIST(.404,141,40,8,0)="8^________________________________________________________________________________^1"
^DIST(.404,141,40,8,2)="^^4,1"
^DIST(.404,141,40,"B",1,1)=""
^DIST(.404,141,40,"B",2,2)=""
^DIST(.404,141,40,"B",3,3)=""
^DIST(.404,141,40,"B",4,4)=""
^DIST(.404,141,40,"B",5,5)=""
^DIST(.404,141,40,"B",6,6)=""
^DIST(.404,141,40,"B",7,7)=""
^DIST(.404,141,40,"B",8,8)=""
^DIST(.404,141,40,"C","CLINICAL REGISTRATION MODULE",1)=""
^DIST(.404,141,40,"C","PAGE 1 OF 2",3)=""
^DIST(.404,141,40,"C","PATIENT",4)=""
^DIST(.404,141,40,"C","PHYSICAL IMPAIRMENT SCREEN",2)=""
^DIST(.404,141,40,"C","_______________________________________________________________",8)=""
^DIST(.404,142,0)="SPNLPFM2-2^154"
^DIST(.404,142,40,0)="^.4044I^20^20"
^DIST(.404,142,40,1,0)="1^MEMORY/THINKING AFFECTED (Y/N)^3"
^DIST(.404,142,40,1,1)="5.04"
^DIST(.404,142,40,1,2)="3,34^3^3,2"
^DIST(.404,142,40,2,0)="2^EYES AFFECTED (Y/N)^3"
^DIST(.404,142,40,2,1)="5.05"
^DIST(.404,142,40,2,2)="3,65^3^3,44"
^DIST(.404,142,40,3,0)="3^ONE ARM AFFECTED (Y/N)^3"
^DIST(.404,142,40,3,1)="5.06"
^DIST(.404,142,40,3,2)="4,34^3^4,10"
^DIST(.404,142,40,4,0)="4^ONE LEG AFFECTED (Y/N)^3"
^DIST(.404,142,40,4,1)="5.07"
^DIST(.404,142,40,4,2)="4,65^3^4,41"
^DIST(.404,142,40,5,0)="5^BOTH ARMS AFFECTED (Y/N)^3"
^DIST(.404,142,40,5,1)="5.08"
^DIST(.404,142,40,5,2)="5,34^3^5,8"
^DIST(.404,142,40,6,0)="6^BOTH LEGS AFFECTED (Y/N)^3"
^DIST(.404,142,40,6,1)="5.09"
^DIST(.404,142,40,6,2)="5,65^3^5,39"
^DIST(.404,142,40,7,0)="7^BOWEL AFFECTED (Y/N)^3"
^DIST(.404,142,40,7,1)="5.13"
^DIST(.404,142,40,7,2)="6,34^3^6,12"
^DIST(.404,142,40,8,0)="8^BLADDER AFFECTED (Y/N)^3"
^DIST(.404,142,40,8,1)="5.14"
^DIST(.404,142,40,8,2)="6,65^3^6,41"
^DIST(.404,142,40,9,0)="9^OTHER BODY PART AFFECTED (Y/N)^3"
^DIST(.404,142,40,9,1)="5.1"
^DIST(.404,142,40,9,2)="7,34^3^7,2"
^DIST(.404,142,40,10,0)="10^DESCRIBE OTHER^3"
^DIST(.404,142,40,10,1)="2.5"
^DIST(.404,142,40,10,2)="7,65^15^7,49"
^DIST(.404,142,40,10,11)="I $$GET^DDSVAL(154,.DA,5.1,"""",""E"")=""NO"" D PUT^DDSVAL(154,.DA,2.5,""@"") S DDSBR=""17^2^2"""
^DIST(.404,142,40,11,0)="11^<<1-Full Useful Movement>>^1"
^DIST(.404,142,40,11,2)="^^9,11"
^DIST(.404,142,40,12,0)="12^<<1-Full Feeling>>^1"
^DIST(.404,142,40,12,2)="^^9,53"
^DIST(.404,142,40,13,0)="13^<<2-Some Useful Movement>>^1"
^DIST(.404,142,40,13,2)="^^10,11"
^DIST(.404,142,40,14,0)="14^<<2-Some Feeling>>^1"
^DIST(.404,142,40,14,2)="^^10,53"
^DIST(.404,142,40,15,0)="15^<<3-  No Useful Movement>>^1"
^DIST(.404,142,40,15,2)="^^11,11"
^DIST(.404,142,40,16,0)="16^<<3-  No Feeling>>^1"
^DIST(.404,142,40,16,2)="^^11,53"
^DIST(.404,142,40,17,0)="17^EXTENT OF MOVEMENT^3"
^DIST(.404,142,40,17,1)="5.11"
^DIST(.404,142,40,17,2)="12,24^20^12,4"
^DIST(.404,142,40,18,0)="18^EXTENT OF FEELING^3"
^DIST(.404,142,40,18,1)="5.12"
^DIST(.404,142,40,18,2)="12,66^12^12,47"
^DIST(.404,142,40,19,0)="19^HAD AMPUTATION (Y/N)?^3"
^DIST(.404,142,40,19,1)="5.03"
^DIST(.404,142,40,19,2)="14,24^3^14,1"
^DIST(.404,142,40,20,0)="20^HAD BRAIN INJURY (Y/N)?^3"
^DIST(.404,142,40,20,1)="5.02"
^DIST(.404,142,40,20,2)="14,66^3^14,41"
^DIST(.404,142,40,"B",1,1)=""
^DIST(.404,142,40,"B",2,2)=""
^DIST(.404,142,40,"B",3,3)=""
^DIST(.404,142,40,"B",4,4)=""
^DIST(.404,142,40,"B",5,5)=""
^DIST(.404,142,40,"B",6,6)=""
^DIST(.404,142,40,"B",7,7)=""
^DIST(.404,142,40,"B",8,8)=""
^DIST(.404,142,40,"B",9,9)=""
^DIST(.404,142,40,"B",10,10)=""
^DIST(.404,142,40,"B",11,11)=""
^DIST(.404,142,40,"B",12,12)=""
^DIST(.404,142,40,"B",13,13)=""
^DIST(.404,142,40,"B",14,14)=""
^DIST(.404,142,40,"B",15,15)=""
^DIST(.404,142,40,"B",16,16)=""
^DIST(.404,142,40,"B",17,17)=""
^DIST(.404,142,40,"B",18,18)=""
^DIST(.404,142,40,"B",19,19)=""
^DIST(.404,142,40,"B",20,20)=""
^DIST(.404,142,40,"C","<<1-FULL FEELING>>",12)=""
^DIST(.404,142,40,"C","<<1-FULL USEFUL MOVEMENT>>",11)=""
^DIST(.404,142,40,"C","<<2-SOME FEELING>>",14)=""
^DIST(.404,142,40,"C","<<2-SOME USEFUL MOVEMENT>>",13)=""
^DIST(.404,142,40,"C","<<3-  NO FEELING>>",16)=""
^DIST(.404,142,40,"C","<<3-  NO USEFUL MOVEMENT>>",15)=""
^DIST(.404,142,40,"C","BLADDER AFFECTED (Y/N)",8)=""
^DIST(.404,142,40,"C","BOTH ARMS AFFECTED (Y/N)",5)=""
^DIST(.404,142,40,"C","BOTH LEGS AFFECTED (Y/N)",6)=""
^DIST(.404,142,40,"C","BOWEL AFFECTED (Y/N)",7)=""
^DIST(.404,142,40,"C","DESCRIBE OTHER",10)=""
^DIST(.404,142,40,"C","EXTENT OF FEELING",18)=""
^DIST(.404,142,40,"C","EXTENT OF MOVEMENT",17)=""
^DIST(.404,142,40,"C","EYES AFFECTED (Y/N)",2)=""
^DIST(.404,142,40,"C","HAD AMPUTATION (Y/N)?",19)=""
^DIST(.404,142,40,"C","HAD BRAIN INJURY (Y/N)?",20)=""
^DIST(.404,142,40,"C","MEMORY/THINKING AFFECTED (Y/N)",1)=""
^DIST(.404,142,40,"C","ONE ARM AFFECTED (Y/N)",3)=""
^DIST(.404,142,40,"C","ONE LEG AFFECTED (Y/N)",4)=""
^DIST(.404,142,40,"C","OTHER BODY PART AFFECTED (Y/N)",9)=""
^DIST(.404,143,0)="SPNLPHDR CM 3^154^"
^DIST(.404,143,40,0)="^.4044I^8^8"
^DIST(.404,143,40,1,0)="1^CLINICAL REGISTRATION MODULE^1"
^DIST(.404,143,40,1,2)="^^1,2"
^DIST(.404,143,40,2,0)="2^CLINICAL CARE^1"
^DIST(.404,143,40,2,2)="^^1,37"
^DIST(.404,143,40,3,0)="3^PAGE 2 OF 2^1"
^DIST(.404,143,40,3,2)="^^1,66"
^DIST(.404,143,40,4,0)="4^PATIENT^3"
^DIST(.404,143,40,4,1)=".01"
^DIST(.404,143,40,4,2)="2,10^30^2,1"
^DIST(.404,143,40,5,0)="5^!M^1"
^DIST(.404,143,40,5,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,.DA,.09,1)"
^DIST(.404,143,40,5,2)="^^2,41"
^DIST(.404,143,40,6,0)="6^!M^1"
^DIST(.404,143,40,6,.1)="S Y=""VA SCI FLAG: ""_$$GET^DDSVAL(2,.DA,57.4,"""",""E"")"
^DIST(.404,143,40,6,2)="^^3,36"
^DIST(.404,143,40,7,0)="7^!M^1"
^DIST(.404,143,40,7,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,.DA,.03,"""",""I""),1)"
^DIST(.404,143,40,7,2)="^^2,62"
^DIST(.404,143,40,8,0)="8^________________________________________________________________________________^1"
^DIST(.404,143,40,8,2)="^^4,1"
^DIST(.404,143,40,"B",1,1)=""
^DIST(.404,143,40,"B",2,2)=""
^DIST(.404,143,40,"B",3,3)=""
^DIST(.404,143,40,"B",4,4)=""
^DIST(.404,143,40,"B",5,5)=""
^DIST(.404,143,40,"B",6,6)=""
^DIST(.404,143,40,"B",7,7)=""
^DIST(.404,143,40,"B",8,8)=""
^DIST(.404,143,40,"C","CLINICAL CARE",2)=""
^DIST(.404,143,40,"C","CLINICAL REGISTRATION MODULE",1)=""
^DIST(.404,143,40,"C","PAGE 2 OF 2",3)=""
^DIST(.404,143,40,"C","PATIENT",4)=""
^DIST(.404,143,40,"C","_______________________________________________________________",8)=""
^DIST(.404,144,0)="SPNLPFM2-3^154^"
^DIST(.404,144,40,0)="^.4044I^3^3"
^DIST(.404,144,40,1,0)="1^ANNUAL REHAB EVAL:   OFFERED^1"
^DIST(.404,144,40,1,2)="^^7,1"
^DIST(.404,144,40,2,0)="2^RECEIVED^1"
^DIST(.404,144,40,2,2)="^^7,45"
^DIST(.404,144,40,3,0)="3^NEXT DUE^1"
^DIST(.404,144,40,3,2)="^^7,66"
^DIST(.404,144,40,"B",1,1)=""
^DIST(.404,144,40,"B",2,2)=""
^DIST(.404,144,40,"B",3,3)=""
^DIST(.404,144,40,"C","ANNUAL REHAB EVAL:   OFFERED",1)=""
^DIST(.404,144,40,"C","NEXT DUE",3)=""
^DIST(.404,144,40,"C","RECEIVED",2)=""
^DIST(.404,145,0)="SPNLP FUN MES HD2^154.1^"
^DIST(.404,145,40,0)="^.4044I^4^4"
^DIST(.404,145,40,1,0)="1^PATIENT^3"
^DIST(.404,145,40,1,1)=".01"
^DIST(.404,145,40,1,2)="2,10^30^2,1"
^DIST(.404,145,40,2,0)="2^!M^1"
^DIST(.404,145,40,2,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,145,40,2,2)="^^2,41"
^DIST(.404,145,40,3,0)="3^!M^1"
^DIST(.404,145,40,3,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,145,40,3,2)="^^2,59"
^DIST(.404,145,40,4,0)="4^_______________________________________________________________________________^1"
^DIST(.404,145,40,4,2)="^^3,1"
^DIST(.404,145,40,"B",1,1)=""
^DIST(.404,145,40,"B",2,2)=""
^DIST(.404,145,40,"B",3,3)=""
^DIST(.404,145,40,"B",4,4)=""
^DIST(.404,145,40,"C","PATIENT",1)=""
^DIST(.404,145,40,"C","_______________________________________________________________",4)=""
^DIST(.404,146,0)="SPNLP FUN MES BLK1^154.1"
^DIST(.404,146,40,0)="^.4044I^26^23"
^DIST(.404,146,40,2,0)="6^RESPONDENT TYPE^3"
^DIST(.404,146,40,2,1)=".03"
^DIST(.404,146,40,2,2)="4,28^9^4,11"
^DIST(.404,146,40,2,4)="^^^0"
^DIST(.404,146,40,3,0)="7^<<1-Total Help or Never Do>>^1"
^DIST(.404,146,40,3,2)="^^6,10"
^DIST(.404,146,40,4,0)="9^<<3-Extra Time or Special Tool>>^1"
^DIST(.404,146,40,4,2)="^^7,10"
^DIST(.404,146,40,5,0)="8^<<2-Some Help>>^1"
^DIST(.404,146,40,5,2)="^^6,45"
^DIST(.404,146,40,6,0)="10^<<4-No Extra Time or Help>>^1"
^DIST(.404,146,40,6,2)="^^7,45"
^DIST(.404,146,40,7,0)="11^MOVE AROUND INSIDE HOUSE^3"
^DIST(.404,146,40,7,1)=".16"
^DIST(.404,146,40,7,2)="8,28^13^8,2"
^DIST(.404,146,40,8,0)="12^STAIRS^3"
^DIST(.404,146,40,8,1)=".17"
^DIST(.404,146,40,8,2)="8,64^13^8,56"
^DIST(.404,146,40,9,0)="13^TRANSFER TO BED/CHAIR^3"
^DIST(.404,146,40,9,1)=".13"
^DIST(.404,146,40,9,2)="9,28^13^9,5"
^DIST(.404,146,40,10,0)="14^TRANSFER - TOILET^3"
^DIST(.404,146,40,10,1)=".14"
^DIST(.404,146,40,10,2)="9,64^13^9,45"
^DIST(.404,146,40,11,0)="15^TRANSFER - TUB/SHOWER^3"
^DIST(.404,146,40,11,1)=".15"
^DIST(.404,146,40,11,2)="10,28^13^10,5"
^DIST(.404,146,40,12,0)="16^EATING^3"
^DIST(.404,146,40,12,1)=".05"
^DIST(.404,146,40,12,2)="10,64^13^10,56"
^DIST(.404,146,40,13,0)="17^GROOMING^3"
^DIST(.404,146,40,13,1)=".06"
^DIST(.404,146,40,13,2)="11,28^13^11,18"
^DIST(.404,146,40,14,0)="18^BATHING^3"
^DIST(.404,146,40,14,1)=".07"
^DIST(.404,146,40,14,2)="11,64^13^11,55"
^DIST(.404,146,40,15,0)="19^DRESSING UPPER BODY^3"
^DIST(.404,146,40,15,1)=".08"
^DIST(.404,146,40,15,2)="12,28^13^12,7"
^DIST(.404,146,40,16,0)="20^DRESSING LOWER BODY^3"
^DIST(.404,146,40,16,1)=".09"
^DIST(.404,146,40,16,2)="12,64^13^12,43"
^DIST(.404,146,40,17,0)="21^TOILETING^3"
^DIST(.404,146,40,17,1)=".1"
^DIST(.404,146,40,17,2)="13,28^13^13,17"
^DIST(.404,146,40,18,0)="22^BLADDER MANAGEMENT^3"
^DIST(.404,146,40,18,1)=".11"
^DIST(.404,146,40,18,2)="13,64^13^13,44"
^DIST(.404,146,40,19,0)="23^BOWEL MANAGEMENT^3"
^DIST(.404,146,40,19,1)=".12"
^DIST(.404,146,40,19,2)="14,28^13^14,10"
^DIST(.404,146,40,22,0)="3^!M^1"
^DIST(.404,146,40,22,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,146,40,22,2)="^^2,26"
^DIST(.404,146,40,23,0)="5^DISPOSITION^3"
^DIST(.404,146,40,23,1)=".024"
^DIST(.404,146,40,23,2)="3,50^30^3,37"
^DIST(.404,146,40,24,0)="1^!M^1"
^DIST(.404,146,40,24,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,146,40,24,2)="^^1,10"
^DIST(.404,146,40,25,0)="2^!M^1"
^DIST(.404,146,40,25,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,146,40,25,2)="^^1,41"
^DIST(.404,146,40,26,0)="4^!M^1"
^DIST(.404,146,40,26,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,146,40,26,2)="^^3,1"
^DIST(.404,146,40,"B",1,24)=""
^DIST(.404,146,40,"B",2,25)=""
^DIST(.404,146,40,"B",3,22)=""
^DIST(.404,146,40,"B",4,26)=""
^DIST(.404,146,40,"B",5,23)=""
^DIST(.404,146,40,"B",6,2)=""
^DIST(.404,146,40,"B",7,3)=""
^DIST(.404,146,40,"B",8,5)=""
^DIST(.404,146,40,"B",9,4)=""
^DIST(.404,146,40,"B",10,6)=""
^DIST(.404,146,40,"B",11,7)=""
^DIST(.404,146,40,"B",12,8)=""
^DIST(.404,146,40,"B",13,9)=""
^DIST(.404,146,40,"B",14,10)=""
^DIST(.404,146,40,"B",15,11)=""
^DIST(.404,146,40,"B",16,12)=""
^DIST(.404,146,40,"B",17,13)=""
^DIST(.404,146,40,"B",18,14)=""
^DIST(.404,146,40,"B",19,15)=""
^DIST(.404,146,40,"B",20,16)=""
^DIST(.404,146,40,"B",21,17)=""
^DIST(.404,146,40,"B",22,18)=""
^DIST(.404,146,40,"B",23,19)=""
^DIST(.404,146,40,"C","<<1-TOTAL HELP OR NEVER DO>>",3)=""
^DIST(.404,146,40,"C","<<2-SOME HELP>>",5)=""
^DIST(.404,146,40,"C","<<3-EXTRA TIME OR SPECIAL TOOL>>",4)=""
^DIST(.404,146,40,"C","<<4-NO EXTRA TIME OR HELP>>",6)=""
^DIST(.404,146,40,"C","BATHING",14)=""
^DIST(.404,146,40,"C","BLADDER MANAGEMENT",18)=""
^DIST(.404,146,40,"C","BOWEL MANAGEMENT",19)=""
^DIST(.404,146,40,"C","DISPOSITION",23)=""
^DIST(.404,146,40,"C","DRESSING LOWER BODY",16)=""
^DIST(.404,146,40,"C","DRESSING UPPER BODY",15)=""
^DIST(.404,146,40,"C","EATING",12)=""
^DIST(.404,146,40,"C","GROOMING",13)=""
^DIST(.404,146,40,"C","MOVE AROUND INSIDE HOUSE",7)=""
^DIST(.404,146,40,"C","RESPONDENT TYPE",2)=""
^DIST(.404,146,40,"C","STAIRS",8)=""
^DIST(.404,146,40,"C","TOILETING",17)=""
^DIST(.404,146,40,"C","TRANSFER - TOILET",10)=""
^DIST(.404,146,40,"C","TRANSFER - TUB/SHOWER",11)=""
^DIST(.404,146,40,"C","TRANSFER TO BED/CHAIR",9)=""
^DIST(.404,147,0)="SPNLP FUN MES HD3^154.1^"
^DIST(.404,147,40,0)="^.4044I^2^2"
^DIST(.404,147,40,1,0)="1^Self Report of Function^1"
^DIST(.404,147,40,1,2)="^^1,26"
^DIST(.404,147,40,2,0)="2^PAGE 2 OF 3^1"
^DIST(.404,147,40,2,2)="^^1,69"
^DIST(.404,147,40,"B",1,1)=""
^DIST(.404,147,40,"B",2,2)=""
^DIST(.404,147,40,"C","PAGE 2 OF 3",2)=""
^DIST(.404,147,40,"C","SELF REPORT OF FUNCTION",1)=""
^DIST(.404,148,0)="SPNLP FUM MES BLK2^154.1"
^DIST(.404,148,40,0)="^.4044I^9^9"
^DIST(.404,148,40,1,0)="2^<<1-Without Help>>^1"
^DIST(.404,148,40,1,2)="^^3,4"
^DIST(.404,148,40,2,0)="3^<<2-With Help>>^1"
^DIST(.404,148,40,2,2)="^^3,33"
^DIST(.404,148,40,3,0)="4^<<3-Unable>>^1"
^DIST(.404,148,40,3,2)="^^3,59"
^DIST(.404,148,40,4,0)="5^GET TO PLACES OUTSIDE OF HOME^3"
^DIST(.404,148,40,4,1)="2.01"
^DIST(.404,148,40,4,2)="6,41^12^6,10"
^DIST(.404,148,40,5,0)="6^SHOPPING^3"
^DIST(.404,148,40,5,1)="2.02"
^DIST(.404,148,40,5,2)="7,41^12^7,31"
^DIST(.404,148,40,6,0)="7^PLANNING AND COOKING OWN MEALS^3"
^DIST(.404,148,40,6,1)="2.03"
^DIST(.404,148,40,6,2)="8,41^12^8,9"
^DIST(.404,148,40,7,0)="8^DOING HOUSEWORK^3"
^DIST(.404,148,40,7,1)="2.04"
^DIST(.404,148,40,7,2)="9,41^12^9,24"
^DIST(.404,148,40,8,0)="9^HANDLING MONEY^3"
^DIST(.404,148,40,8,1)="2.05"
^DIST(.404,148,40,8,2)="10,41^12^10,25"
^DIST(.404,148,40,9,0)="1^!M^1"
^DIST(.404,148,40,9,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,148,40,9,2)="^^1,1"
^DIST(.404,148,40,"B",1,9)=""
^DIST(.404,148,40,"B",2,1)=""
^DIST(.404,148,40,"B",3,2)=""
^DIST(.404,148,40,"B",4,3)=""
^DIST(.404,148,40,"B",5,4)=""
^DIST(.404,148,40,"B",6,5)=""
^DIST(.404,148,40,"B",7,6)=""
^DIST(.404,148,40,"B",8,7)=""
^DIST(.404,148,40,"B",9,8)=""
^DIST(.404,148,40,"C","<<1-WITHOUT HELP>>",1)=""
^DIST(.404,148,40,"C","<<2-WITH HELP>>",2)=""
^DIST(.404,148,40,"C","<<3-UNABLE>>",3)=""
^DIST(.404,148,40,"C","DOING HOUSEWORK",7)=""
^DIST(.404,148,40,"C","GET TO PLACES OUTSIDE OF HOME",4)=""
^DIST(.404,148,40,"C","HANDLING MONEY",8)=""
^DIST(.404,148,40,"C","PLANNING AND COOKING OWN MEALS",6)=""
^DIST(.404,148,40,"C","SHOPPING",5)=""
^DIST(.404,149,0)="SPNLP FUN MES HD4^154.1^"
^DIST(.404,149,40,0)="^.4044I^3^2"
^DIST(.404,149,40,2,0)="2^PAGE 3 OF 3^1"
^DIST(.404,149,40,2,2)="^^1,69"
^DIST(.404,149,40,3,0)="1^Self Report of Function^1"
^DIST(.404,149,40,3,2)="^^1,26"
^DIST(.404,149,40,"B",1,3)=""
^DIST(.404,149,40,"B",2,2)=""
^DIST(.404,149,40,"C","PAGE 3 OF 3",2)=""
^DIST(.404,149,40,"C","SELF REPORT OF FUNCTION",3)=""
^DIST(.404,150,0)="SPNLP FUN MES BLK3^154.1"
^DIST(.404,150,40,0)="^.4044I^14^14"
^DIST(.404,150,40,1,0)="2^HELP DURING LAST 2 WEEKS^3"
^DIST(.404,150,40,1,1)="2.08"
^DIST(.404,150,40,1,2)="2,45^3^2,19"
^DIST(.404,150,40,1,12)="I $$GET^DDSVAL(154.1,.DA,2.08,"""",""I"")=0 D PUT^DDSVAL(154.1,.DA,2.09,""@""),PUT^DDSVAL(154.1,.DA,2.13,""@"")"
^DIST(.404,150,40,2,0)="3^NUMBER OF HOURS OF HELP IN LAST 2 WEEKS^3"
^DIST(.404,150,40,2,1)="2.09"
^DIST(.404,150,40,2,2)="3,45^3^3,4"
^DIST(.404,150,40,2,12)="I X>0 D PUT^DDSVAL(154.1,.DA,2.08,""YES"")"
^DIST(.404,150,40,3,0)="4^NUMBER OF HOURS OF HELP IN LAST 24 HOURS^3"
^DIST(.404,150,40,3,1)="2.13"
^DIST(.404,150,40,3,2)="4,45^2^4,3"
^DIST(.404,150,40,3,12)="I X>0 D PUT^DDSVAL(154.1,.DA,2.08,""YES"")"
^DIST(.404,150,40,4,0)="5^<<1-Without Help>>^1"
^DIST(.404,150,40,4,2)="^^6,16"
^DIST(.404,150,40,5,0)="6^<<2-With Device>>^1"
^DIST(.404,150,40,5,2)="^^6,40"
^DIST(.404,150,40,6,0)="7^<<3-Cannot Walk >>^1"
^DIST(.404,150,40,6,2)="^^7,16"
^DIST(.404,150,40,7,0)="8^<<4-Bedridden  >>^1"
^DIST(.404,150,40,7,2)="^^7,40"
^DIST(.404,150,40,8,0)="9^METHOD AMBULATION (WALKING)^3"
^DIST(.404,150,40,8,1)="2.06"
^DIST(.404,150,40,8,2)="9,45^12^9,16"
^DIST(.404,150,40,8,12)="I X=4 D PUT^DDSVAL(154.1,.DA,2.07,4)"
^DIST(.404,150,40,9,0)="10^<<1-Manual            >>^1"
^DIST(.404,150,40,9,2)="^^11,13"
^DIST(.404,150,40,10,0)="11^<<2-Motorized>>^1"
^DIST(.404,150,40,10,2)="^^11,48"
^DIST(.404,150,40,11,0)="12^<<3-Does Not Use W/Chr>>^1"
^DIST(.404,150,40,11,2)="^^12,13"
^DIST(.404,150,40,12,0)="13^<<4-Bedridden>>^1"
^DIST(.404,150,40,12,2)="^^12,48"
^DIST(.404,150,40,13,0)="14^METHOD AMBULATION (WHEELCHAIR)^3"
^DIST(.404,150,40,13,1)="2.07"
^DIST(.404,150,40,13,2)="14,45^18^14,13"
^DIST(.404,150,40,13,12)="I X=4 D PUT^DDSVAL(154.1,.DA,2.06,4)"
^DIST(.404,150,40,14,0)="1^!M^1"
^DIST(.404,150,40,14,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,150,40,14,2)="^^1,1"
^DIST(.404,150,40,"B",1,14)=""
^DIST(.404,150,40,"B",2,1)=""
^DIST(.404,150,40,"B",3,2)=""
^DIST(.404,150,40,"B",4,3)=""
^DIST(.404,150,40,"B",5,4)=""
^DIST(.404,150,40,"B",6,5)=""
^DIST(.404,150,40,"B",7,6)=""
^DIST(.404,150,40,"B",8,7)=""
^DIST(.404,150,40,"B",9,8)=""
^DIST(.404,150,40,"B",10,9)=""
^DIST(.404,150,40,"B",11,10)=""
^DIST(.404,150,40,"B",12,11)=""
^DIST(.404,150,40,"B",13,12)=""
^DIST(.404,150,40,"B",14,13)=""
^DIST(.404,150,40,"C","<<1-MANUAL            >>",9)=""
^DIST(.404,150,40,"C","<<1-WITHOUT HELP>>",4)=""
^DIST(.404,150,40,"C","<<2-MOTORIZED>>",10)=""
^DIST(.404,150,40,"C","<<2-WITH DEVICE>>",5)=""
^DIST(.404,150,40,"C","<<3-CANNOT WALK >>",6)=""
^DIST(.404,150,40,"C","<<3-DOES NOT USE W/CHR>>",11)=""
^DIST(.404,150,40,"C","<<4-BEDRIDDEN  >>",7)=""
^DIST(.404,150,40,"C","<<4-BEDRIDDEN>>",12)=""
^DIST(.404,150,40,"C","HELP DURING LAST 2 WEEKS",1)=""
^DIST(.404,150,40,"C","METHOD AMBULATION (WALKING)",8)=""
^DIST(.404,150,40,"C","METHOD AMBULATION (WHEELCHAIR)",13)=""
^DIST(.404,150,40,"C","NUMBER OF HOURS OF HELP IN LAST 2 WEEKS",2)=""
^DIST(.404,150,40,"C","NUMBER OF HOURS OF HELP IN LAST 24 HOURS",3)=""
^DIST(.404,151,0)="SPNLP FIM HD1^154.1^"
^DIST(.404,151,40,0)="^.4044I^5^5"
^DIST(.404,151,40,1,0)="1^FIM^1"
^DIST(.404,151,40,1,2)="^^1,34"
^DIST(.404,151,40,2,0)="2^PATIENT^3"
^DIST(.404,151,40,2,1)=".01"
^DIST(.404,151,40,2,2)="2,10^30^2,1"
^DIST(.404,151,40,3,0)="3^!M^1"
^DIST(.404,151,40,3,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,151,40,3,2)="^^2,41"
^DIST(.404,151,40,4,0)="4^!M^1"
^DIST(.404,151,40,4,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,151,40,4,2)="^^2,62"
^DIST(.404,151,40,5,0)="5^________________________________________________________________________________^1"
^DIST(.404,151,40,5,2)="^^3,1"
^DIST(.404,151,40,"B",1,1)=""
^DIST(.404,151,40,"B",2,2)=""
^DIST(.404,151,40,"B",3,3)=""
^DIST(.404,151,40,"B",4,4)=""
^DIST(.404,151,40,"B",5,5)=""
^DIST(.404,151,40,"C","FIM",1)=""
^DIST(.404,151,40,"C","PATIENT",2)=""
^DIST(.404,151,40,"C","_______________________________________________________________",5)=""
^DIST(.404,152,0)="SPNLP FIM HD2^154.1^"
^DIST(.404,152,40,0)="^.4044I^1^1"
^DIST(.404,152,40,1,0)="1^PAGE 1 OF 4^1"
^DIST(.404,152,40,1,2)="^^1,69"
^DIST(.404,152,40,"B",1,1)=""
^DIST(.404,152,40,"C","PAGE 1 OF 4",1)=""
^DIST(.404,153,0)="SPNLP FIM BLK1^154.1^"
^DIST(.404,153,40,0)="^.4044I^14^8"
^DIST(.404,153,40,5,0)="7^<<IT IS RECOMMENDED CLINICIANS OBTAINING FIM DATA ARE FIM CREDENTIALED>>^1"
^DIST(.404,153,40,5,2)="^^7,5"
^DIST(.404,153,40,6,0)="8^Select CLINICIAN^3"
^DIST(.404,153,40,6,1)="1.01"
^DIST(.404,153,40,6,2)="9,35^30^9,17"
^DIST(.404,153,40,9,0)="3^!M^1"
^DIST(.404,153,40,9,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,153,40,9,2)="^^2,26"
^DIST(.404,153,40,10,0)="5^DISPOSITION^3"
^DIST(.404,153,40,10,1)=".024"
^DIST(.404,153,40,10,2)="4,50^30^4,37"
^DIST(.404,153,40,11,0)="1^!M^1"
^DIST(.404,153,40,11,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,153,40,11,2)="^^1,10"
^DIST(.404,153,40,12,0)="2^!M^1"
^DIST(.404,153,40,12,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,153,40,12,2)="^^1,41"
^DIST(.404,153,40,13,0)="4^!M^1"
^DIST(.404,153,40,13,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,153,40,13,2)="^^4,1"
^DIST(.404,153,40,14,0)="9^DAYS OF INTERRUPTED CARE^3"
^DIST(.404,153,40,14,1)="1004"
^DIST(.404,153,40,14,2)="11,35^4^11,9"
^DIST(.404,153,40,14,11)="I $$GET1^DIQ(154.1,DA_"","",.021,""I"")'=4 S DDSBR=""COM"""
^DIST(.404,153,40,14,14)="D ^SPNDOCA"
^DIST(.404,153,40,"B",1,11)=""
^DIST(.404,153,40,"B",2,12)=""
^DIST(.404,153,40,"B",3,9)=""
^DIST(.404,153,40,"B",4,13)=""
^DIST(.404,153,40,"B",5,10)=""
^DIST(.404,153,40,"B",7,5)=""
^DIST(.404,153,40,"B",8,6)=""
^DIST(.404,153,40,"B",9,14)=""
^DIST(.404,153,40,"C","<<IT IS RECOMMENDED CLINICIANS OBTAINING FIM DATA ARE FIM CREDE",5)=""
^DIST(.404,153,40,"C","CLINICIAN",6)=""
^DIST(.404,153,40,"C","DAYS OF INTERRUPTED CARE",14)=""
^DIST(.404,153,40,"C","DISPOSITION",10)=""
^DIST(.404,154,0)="SPNLP FIM HD3^154.1^"
^DIST(.404,154,40,0)="^.4044I^1^1"
^DIST(.404,154,40,1,0)="1^PAGE 2 OF 4^1"
^DIST(.404,154,40,1,2)="^^1,69"
^DIST(.404,154,40,"B",1,1)=""
^DIST(.404,154,40,"C","PAGE 2 OF 4",1)=""
^DIST(.404,155,0)="SPNLP FIM BLK2^154.1^"
^DIST(.404,155,40,0)="^.4044I^11^10"
^DIST(.404,155,40,1,0)="8^Independence -- No Helper^1"
^DIST(.404,155,40,1,2)="^^6,25"
^DIST(.404,155,40,2,0)="10^7=Complete Independence (Timely,Safely)^1"
^DIST(.404,155,40,2,2)="^^7,41"
^DIST(.404,155,40,3,0)="9^6=Modified Independence (Device)^1"
^DIST(.404,155,40,3,2)="^^7,3"
^DIST(.404,155,40,4,0)="2^Modified Independence -- Helper^1"
^DIST(.404,155,40,4,2)="^^2,24"
^DIST(.404,155,40,5,0)="7^5=Supervision^1"
^DIST(.404,155,40,5,2)="^^5,3"
^DIST(.404,155,40,6,0)="6^4=Minimal Assist (Subject=75%+)^1"
^DIST(.404,155,40,6,2)="^^4,41"
^DIST(.404,155,40,7,0)="5^3=Moderate Assist (Subject=50%+)^1"
^DIST(.404,155,40,7,2)="^^4,3"
^DIST(.404,155,40,9,0)="4^2=Maximal Assist (Subject=25%+)^1"
^DIST(.404,155,40,9,2)="^^3,41"
^DIST(.404,155,40,10,0)="3^1=Total Assist (Subject 0%+)^1"
^DIST(.404,155,40,10,2)="^^3,3"
^DIST(.404,155,40,11,0)="1^!M^1"
^DIST(.404,155,40,11,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,155,40,11,2)="^^1,1"
^DIST(.404,155,40,"B",1,11)=""
^DIST(.404,155,40,"B",2,4)=""
^DIST(.404,155,40,"B",3,10)=""
^DIST(.404,155,40,"B",4,9)=""
^DIST(.404,155,40,"B",5,7)=""
^DIST(.404,155,40,"B",6,6)=""
^DIST(.404,155,40,"B",7,5)=""
^DIST(.404,155,40,"B",8,1)=""
^DIST(.404,155,40,"B",9,3)=""
^DIST(.404,155,40,"B",10,2)=""
^DIST(.404,155,40,"C","1=TOTAL ASSIST (SUBJECT 0%+)",10)=""
^DIST(.404,155,40,"C","2=MAXIMAL ASSIST (SUBJECT=25%+)",9)=""
^DIST(.404,155,40,"C","3=MODERATE ASSIST (SUBJECT=50%+)",7)=""
^DIST(.404,155,40,"C","4=MINIMAL ASSIST (SUBJECT=75%+)",6)=""
^DIST(.404,155,40,"C","5=SUPERVISION",5)=""
^DIST(.404,155,40,"C","6=MODIFIED INDEPENDENCE (DEVICE)",3)=""
^DIST(.404,155,40,"C","7=COMPLETE INDEPENDENCE (TIMELY,SAFELY)",2)=""
^DIST(.404,155,40,"C","INDEPENDENCE -- NO HELPER",1)=""
^DIST(.404,155,40,"C","MODIFIED INDEPENDENCE -- HELPER",4)=""
^DIST(.404,156,0)="SPNLP FIM BLK3^154.1"
^DIST(.404,156,40,0)="^.4044I^10^10"
^DIST(.404,156,40,1,0)="1^SELF CARE^1"
^DIST(.404,156,40,1,2)="^^2,30"
^DIST(.404,156,40,2,0)="2^EATING^3"
^DIST(.404,156,40,2,1)=".05"
^DIST(.404,156,40,2,2)="3,14^21^3,6"
^DIST(.404,156,40,3,0)="3^GROOMING^3"
^DIST(.404,156,40,3,1)=".06"
^DIST(.404,156,40,3,2)="4,14^21^4,4"
^DIST(.404,156,40,4,0)="4^BATHING^3"
^DIST(.404,156,40,4,1)=".07"
^DIST(.404,156,40,4,2)="5,14^21^5,5"
^DIST(.404,156,40,5,0)="5^DRESSING UPPER BODY^3"
^DIST(.404,156,40,5,1)=".08"
^DIST(.404,156,40,5,2)="3,58^21^3,37"
^DIST(.404,156,40,6,0)="6^DRESSING LOWER BODY^3"
^DIST(.404,156,40,6,1)=".09"
^DIST(.404,156,40,6,2)="4,58^21^4,37"
^DIST(.404,156,40,7,0)="7^TOILETING^3"
^DIST(.404,156,40,7,1)=".1"
^DIST(.404,156,40,7,2)="5,58^21^5,47"
^DIST(.404,156,40,8,0)="8^SPHINCTER CONTROL^1"
^DIST(.404,156,40,8,2)="^^7,27"
^DIST(.404,156,40,9,0)="9^BLADDER CONTROL^3"
^DIST(.404,156,40,9,1)=".11"
^DIST(.404,156,40,9,2)="8,18^21^8,1"
^DIST(.404,156,40,10,0)="10^BOWEL CONTROL^3"
^DIST(.404,156,40,10,1)=".12"
^DIST(.404,156,40,10,2)="8,56^21^8,41"
^DIST(.404,156,40,"B",1,1)=""
^DIST(.404,156,40,"B",2,2)=""
^DIST(.404,156,40,"B",3,3)=""
^DIST(.404,156,40,"B",4,4)=""
^DIST(.404,156,40,"B",5,5)=""
^DIST(.404,156,40,"B",6,6)=""
^DIST(.404,156,40,"B",7,7)=""
^DIST(.404,156,40,"B",8,8)=""
^DIST(.404,156,40,"B",9,9)=""
^DIST(.404,156,40,"B",10,10)=""
^DIST(.404,156,40,"C","BATHING",4)=""
^DIST(.404,156,40,"C","BLADDER CONTROL",9)=""
^DIST(.404,156,40,"C","BOWEL CONTROL",10)=""
^DIST(.404,156,40,"C","DRESSING LOWER BODY",6)=""
^DIST(.404,156,40,"C","DRESSING UPPER BODY",5)=""
^DIST(.404,156,40,"C","EATING",2)=""
^DIST(.404,156,40,"C","GROOMING",3)=""
^DIST(.404,156,40,"C","SELF CARE",1)=""
^DIST(.404,156,40,"C","SPHINCTER CONTROL",8)=""
^DIST(.404,156,40,"C","TOILETING",7)=""
^DIST(.404,157,0)="SPNLP FIM HD4^154.1^"
^DIST(.404,157,40,0)="^.4044I^1^1"
^DIST(.404,157,40,1,0)="1^PAGE 3 OF 4^1"
^DIST(.404,157,40,1,2)="^^1,69"
^DIST(.404,157,40,"B",1,1)=""
^DIST(.404,157,40,"C","PAGE 3 OF 4",1)=""
^DIST(.404,158,0)="SPNLP FIN BLK 4^154.1"
^DIST(.404,158,40,0)="^.4044I^8^8"
^DIST(.404,158,40,1,0)="1^MOBILITY/TRANSFER^1"
^DIST(.404,158,40,1,2)="^^2,31"
^DIST(.404,158,40,2,0)="2^BED,CHAIR,WHEELCHAIR^3"
^DIST(.404,158,40,2,1)=".13"
^DIST(.404,158,40,2,2)="3,23^21^3,1"
^DIST(.404,158,40,3,0)="3^TOILET^3"
^DIST(.404,158,40,3,1)=".14"
^DIST(.404,158,40,3,2)="3,58^21^3,50"
^DIST(.404,158,40,4,0)="4^TUB,SHOWER^3"
^DIST(.404,158,40,4,1)=".15"
^DIST(.404,158,40,4,2)="4,13^21^4,1"
^DIST(.404,158,40,5,0)="5^LOCOMOTION^1"
^DIST(.404,158,40,5,2)="^^6,34"
^DIST(.404,158,40,6,0)="7^WALK/WHLCHAIR LEVEL^3"
^DIST(.404,158,40,6,1)=".16"
^DIST(.404,158,40,6,2)="7,58^21^7,37"
^DIST(.404,158,40,7,0)="6^WALK/WHEELCHAIR METHOD^3"
^DIST(.404,158,40,7,1)=".161"
^DIST(.404,158,40,7,2)="7,25^10^7,1"
^DIST(.404,158,40,8,0)="8^STAIRS^3"
^DIST(.404,158,40,8,1)=".17"
^DIST(.404,158,40,8,2)="8,9^21^8,1"
^DIST(.404,158,40,"B",1,1)=""
^DIST(.404,158,40,"B",2,2)=""
^DIST(.404,158,40,"B",3,3)=""
^DIST(.404,158,40,"B",4,4)=""
^DIST(.404,158,40,"B",5,5)=""
^DIST(.404,158,40,"B",6,7)=""
^DIST(.404,158,40,"B",7,6)=""
^DIST(.404,158,40,"B",8,8)=""
^DIST(.404,158,40,"C","BED,CHAIR,WHEELCHAIR",2)=""
^DIST(.404,158,40,"C","LOCOMOTION",5)=""
^DIST(.404,158,40,"C","MOBILITY/TRANSFER",1)=""
^DIST(.404,158,40,"C","STAIRS",8)=""
^DIST(.404,158,40,"C","TOILET",3)=""
^DIST(.404,158,40,"C","TUB,SHOWER",4)=""
^DIST(.404,158,40,"C","WALK/WHEELCHAIR METHOD",7)=""
^DIST(.404,158,40,"C","WALK/WHLCHAIR LEVEL",6)=""
^DIST(.404,159,0)="SPNLP FIM HD5^154.1^"
^DIST(.404,159,40,0)="^.4044I^1^1"
^DIST(.404,159,40,1,0)="1^PAGE 4 OF 4^1"
^DIST(.404,159,40,1,2)="^^1,69"
^DIST(.404,159,40,"B",1,1)=""
^DIST(.404,159,40,"C","PAGE 4 OF 4",1)=""
^DIST(.404,160,0)="SPNLP FIM BLK5^154.1"
^DIST(.404,160,40,0)="^.4044I^9^9"
^DIST(.404,160,40,1,0)="1^COMMUNICATION^1"
^DIST(.404,160,40,1,2)="^^2,33"
^DIST(.404,160,40,2,0)="2^COMPREHENSION METHOD^3"
^DIST(.404,160,40,2,1)=".181"
^DIST(.404,160,40,2,2)="3,26^9^3,4"
^DIST(.404,160,40,3,0)="3^COMPREHENSION LEVEL^3"
^DIST(.404,160,40,3,1)=".18"
^DIST(.404,160,40,3,2)="3,58^21^3,37"
^DIST(.404,160,40,4,0)="4^EXPRESSION METHOD^3"
^DIST(.404,160,40,4,1)=".191"
^DIST(.404,160,40,4,2)="4,26^9^4,7"
^DIST(.404,160,40,5,0)="5^EXPRESSION LEVEL^3"
^DIST(.404,160,40,5,1)=".19"
^DIST(.404,160,40,5,2)="4,58^21^4,40"
^DIST(.404,160,40,6,0)="6^SOCIAL COGNITION^1"
^DIST(.404,160,40,6,2)="^^6,32"
^DIST(.404,160,40,7,0)="7^SOCIAL INTERACTION^3"
^DIST(.404,160,40,7,1)=".2"
^DIST(.404,160,40,7,2)="7,21^21^7,1"
^DIST(.404,160,40,8,0)="8^PROBLEM SOLVING^3"
^DIST(.404,160,40,8,1)=".21"
^DIST(.404,160,40,8,2)="7,59^21^7,42"
^DIST(.404,160,40,9,0)="9^MEMORY^3"
^DIST(.404,160,40,9,1)=".22"
^DIST(.404,160,40,9,2)="8,21^21^8,13"
^DIST(.404,160,40,"B",1,1)=""
^DIST(.404,160,40,"B",2,2)=""
^DIST(.404,160,40,"B",3,3)=""
^DIST(.404,160,40,"B",4,4)=""
^DIST(.404,160,40,"B",5,5)=""
^DIST(.404,160,40,"B",6,6)=""
^DIST(.404,160,40,"B",7,7)=""
^DIST(.404,160,40,"B",8,8)=""
^DIST(.404,160,40,"B",9,9)=""
^DIST(.404,160,40,"C","COMMUNICATION",1)=""
^DIST(.404,160,40,"C","COMPREHENSION LEVEL",3)=""
^DIST(.404,160,40,"C","COMPREHENSION METHOD",2)=""
^DIST(.404,160,40,"C","EXPRESSION LEVEL",5)=""
^DIST(.404,160,40,"C","EXPRESSION METHOD",4)=""
^DIST(.404,160,40,"C","MEMORY",9)=""
^DIST(.404,160,40,"C","PROBLEM SOLVING",8)=""
^DIST(.404,160,40,"C","SOCIAL COGNITION",6)=""
^DIST(.404,160,40,"C","SOCIAL INTERACTION",7)=""
^DIST(.404,161,0)="SPNLP FUN MES HD1^154.1^"
^DIST(.404,161,40,0)="^.4044I^2^2"
^DIST(.404,161,40,1,0)="1^PAGE 1 OF 3^1"
^DIST(.404,161,40,1,2)="^^1,69"
^DIST(.404,161,40,2,0)="2^Self Report of Function^1"
^DIST(.404,161,40,2,2)="^^1,26"
^DIST(.404,161,40,"B",1,1)=""
^DIST(.404,161,40,"B",2,2)=""
^DIST(.404,161,40,"C","PAGE 1 OF 3",1)=""
^DIST(.404,161,40,"C","SELF REPORT OF FUNCTION",2)=""
^DIST(.404,162,0)="SPNLP CHART HD1^154.1^"
^DIST(.404,162,40,0)="^.4044I^6^5"
^DIST(.404,162,40,1,0)="1^CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)^1"
^DIST(.404,162,40,1,2)="^^1,8"
^DIST(.404,162,40,3,0)="3^PATIENT^3"
^DIST(.404,162,40,3,1)=".01"
^DIST(.404,162,40,3,2)="2,10^30^2,1"
^DIST(.404,162,40,4,0)="4^!M^1"
^DIST(.404,162,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,162,40,4,2)="^^2,45"
^DIST(.404,162,40,5,0)="5^!M^1"
^DIST(.404,162,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,162,40,5,2)="^^2,62"
^DIST(.404,162,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,162,40,6,2)="^^3,1"
^DIST(.404,162,40,"B",1,1)=""
^DIST(.404,162,40,"B",3,3)=""
^DIST(.404,162,40,"B",4,4)=""
^DIST(.404,162,40,"B",5,5)=""
^DIST(.404,162,40,"B",6,6)=""
^DIST(.404,162,40,"C","CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)",1)=""
^DIST(.404,162,40,"C","PATIENT",3)=""
^DIST(.404,162,40,"C","_______________________________________________________________",6)=""
^DIST(.404,163,0)="SPNLP CHART BLK1^154.1"
^DIST(.404,163,40,0)="^.4044I^18^13"
^DIST(.404,163,40,3,0)="9^OCCUPATION (0-100)^3"
^DIST(.404,163,40,3,1)="4.3"
^DIST(.404,163,40,3,2)="11,40^3^11,20"
^DIST(.404,163,40,3,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,4,0)="10^SOCIAL INTERACTION (0-100)^3"
^DIST(.404,163,40,4,1)="4.4"
^DIST(.404,163,40,4,2)="12,40^3^12,12"
^DIST(.404,163,40,4,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,5,0)="11^ECONOMIC SELF SUFFICIENCY (0-100)^3"
^DIST(.404,163,40,5,1)="4.5"
^DIST(.404,163,40,5,2)="13,40^3^13,5"
^DIST(.404,163,40,5,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,7,0)="6^CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)^1"
^DIST(.404,163,40,7,2)="^^7,13"
^DIST(.404,163,40,8,0)="13^CHART TOTAL SCORE^2"
^DIST(.404,163,40,8,2)="14,68^3^14,49"
^DIST(.404,163,40,8,3)="!M"
^DIST(.404,163,40,8,3.1)="S Y=$$EN5^SPNLUTL1(.DA)"
^DIST(.404,163,40,8,4)="^^^1"
^DIST(.404,163,40,8,20)="N"
^DIST(.404,163,40,11,0)="3^!M^1"
^DIST(.404,163,40,11,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,163,40,11,2)="^^2,26"
^DIST(.404,163,40,12,0)="7^PHYSICAL INDEPENDENCE (0-100)^3"
^DIST(.404,163,40,12,1)="4.1"
^DIST(.404,163,40,12,2)="9,40^3^9,9"
^DIST(.404,163,40,12,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,13,0)="8^MOBILITY (0-100)^3"
^DIST(.404,163,40,13,1)="4.2"
^DIST(.404,163,40,13,2)="10,40^3^10,22"
^DIST(.404,163,40,13,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,14,0)="5^DISPOSITION^3"
^DIST(.404,163,40,14,1)=".024"
^DIST(.404,163,40,14,2)="4,50^30^4,37"
^DIST(.404,163,40,15,0)="12^COGNITIVE INDEPENDENCE (0-100)^3"
^DIST(.404,163,40,15,1)="4.6"
^DIST(.404,163,40,15,2)="14,40^3^14,8"
^DIST(.404,163,40,15,13)="D PUT^DDSVALF(13,"""","""",$$EN5^SPNLUTL1(.DA))"
^DIST(.404,163,40,16,0)="4^!M^1"
^DIST(.404,163,40,16,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,163,40,16,2)="^^4,1"
^DIST(.404,163,40,17,0)="1^!M^1"
^DIST(.404,163,40,17,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,163,40,17,2)="^^1,10"
^DIST(.404,163,40,18,0)="2^!M^1"
^DIST(.404,163,40,18,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,163,40,18,2)="^^1,41"
^DIST(.404,163,40,"B",1,17)=""
^DIST(.404,163,40,"B",2,18)=""
^DIST(.404,163,40,"B",3,11)=""
^DIST(.404,163,40,"B",4,16)=""
^DIST(.404,163,40,"B",5,14)=""
^DIST(.404,163,40,"B",6,7)=""
^DIST(.404,163,40,"B",7,12)=""
^DIST(.404,163,40,"B",8,13)=""
^DIST(.404,163,40,"B",9,3)=""
^DIST(.404,163,40,"B",10,4)=""
^DIST(.404,163,40,"B",11,5)=""
^DIST(.404,163,40,"B",12,15)=""
^DIST(.404,163,40,"B",13,8)=""
^DIST(.404,163,40,"C","CHART TOTAL SCORE",8)=""
^DIST(.404,163,40,"C","COGNITIVE INDEPENDENCE (0-100)",15)=""
^DIST(.404,163,40,"C","CRAIG HANDICAP ASSESSMENT AND REPORTING TECHNIQUE (CHART)",7)=""
^DIST(.404,163,40,"C","DISPOSITION",14)=""
^DIST(.404,163,40,"C","ECONOMIC SELF SUFFICIENCY (0-100)",5)=""
^DIST(.404,163,40,"C","MOBILITY (0-100)",13)=""
^DIST(.404,163,40,"C","OCCUPATION (0-100)",3)=""
^DIST(.404,163,40,"C","PHYSICAL INDEPENDENCE (0-100)",12)=""
^DIST(.404,163,40,"C","SOCIAL INTERACTION (0-100)",4)=""
^DIST(.404,164,0)="SPNLP CHART HD2^154.1^"
^DIST(.404,164,40,0)="^.4044I^1^1"
^DIST(.404,164,40,1,0)="1^PAGE 1 OF 1^1"
^DIST(.404,164,40,1,2)="^^1,69"
^DIST(.404,164,40,"B",1,1)=""
^DIST(.404,164,40,"C","PAGE 1 OF 1",1)=""
^DIST(.404,165,0)="SPNLP CHART HD3^154.1^"
^DIST(.404,165,40,0)="^.4044I^1^1"
^DIST(.404,165,40,1,0)="1^PAGE 2 OF 3^1"
^DIST(.404,165,40,1,2)="^^1,65"
^DIST(.404,165,40,"B",1,1)=""
^DIST(.404,165,40,"C","PAGE 2 OF 3",1)=""
^DIST(.404,166,0)="SPNLP CHART BLK2^154.1"
^DIST(.404,166,40,0)="^.4044I^21^21"
^DIST(.404,166,40,1,0)="1^FUNCTIONAL ASSESSMENT MEASURE(FAM)^1"
^DIST(.404,166,40,1,2)="^^1,25"
^DIST(.404,166,40,2,0)="21^SWALLOWING^3"
^DIST(.404,166,40,2,1)="5.01"
^DIST(.404,166,40,2,2)="13,59^21^13,47"
^DIST(.404,166,40,3,0)="11^CAR TRANSFERS^3"
^DIST(.404,166,40,3,1)="5.02"
^DIST(.404,166,40,3,2)="8,59^21^8,44"
^DIST(.404,166,40,4,0)="12^COMMUNITY ACCESS^3"
^DIST(.404,166,40,4,1)="5.03"
^DIST(.404,166,40,4,2)="9,21^21^9,3"
^DIST(.404,166,40,5,0)="13^READING^3"
^DIST(.404,166,40,5,1)="5.04"
^DIST(.404,166,40,5,2)="9,59^21^9,50"
^DIST(.404,166,40,6,0)="15^WRITING^3"
^DIST(.404,166,40,6,1)="5.05"
^DIST(.404,166,40,6,2)="10,59^21^10,50"
^DIST(.404,166,40,7,0)="14^SPEECH CLARITY^3"
^DIST(.404,166,40,7,1)="5.06"
^DIST(.404,166,40,7,2)="10,21^21^10,5"
^DIST(.404,166,40,8,0)="16^EMOTIONAL STATUS^3"
^DIST(.404,166,40,8,1)="5.07"
^DIST(.404,166,40,8,2)="11,21^21^11,3"
^DIST(.404,166,40,9,0)="20^ADJ TO LIMITATION^3"
^DIST(.404,166,40,9,1)="5.08"
^DIST(.404,166,40,9,2)="13,21^21^13,2"
^DIST(.404,166,40,10,0)="10^EMPLOYABILITY^3"
^DIST(.404,166,40,10,1)="5.09"
^DIST(.404,166,40,10,2)="8,21^21^8,6"
^DIST(.404,166,40,11,0)="19^ORIENTATION^3"
^DIST(.404,166,40,11,1)="5.1"
^DIST(.404,166,40,11,2)="12,59^21^12,46"
^DIST(.404,166,40,12,0)="17^ATTENTION^3"
^DIST(.404,166,40,12,1)="5.11"
^DIST(.404,166,40,12,2)="11,59^21^11,48"
^DIST(.404,166,40,13,0)="18^SAFETY JUDGEMENT^3"
^DIST(.404,166,40,13,1)="5.12"
^DIST(.404,166,40,13,2)="12,21^21^12,3"
^DIST(.404,166,40,14,0)="3^1 = Total Assistance^1"
^DIST(.404,166,40,14,2)="^^4,5"
^DIST(.404,166,40,15,0)="4^2 = Maximal Assistance^1"
^DIST(.404,166,40,15,2)="^^4,30"
^DIST(.404,166,40,16,0)="5^3 = Moderate Assistance^1"
^DIST(.404,166,40,16,2)="^^4,55"
^DIST(.404,166,40,17,0)="6^4 = Minimal Assistance^1"
^DIST(.404,166,40,17,2)="^^5,5"
^DIST(.404,166,40,18,0)="7^5 = Supervision^1"
^DIST(.404,166,40,18,2)="^^5,30"
^DIST(.404,166,40,19,0)="8^6 = Modified Independence^1"
^DIST(.404,166,40,19,2)="^^5,55"
^DIST(.404,166,40,20,0)="9^7 = Complete Independence^1"
^DIST(.404,166,40,20,2)="^^6,5"
^DIST(.404,166,40,21,0)="2^!M^1"
^DIST(.404,166,40,21,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,166,40,21,2)="^^2,1"
^DIST(.404,166,40,"B",1,1)=""
^DIST(.404,166,40,"B",2,21)=""
^DIST(.404,166,40,"B",3,14)=""
^DIST(.404,166,40,"B",4,15)=""
^DIST(.404,166,40,"B",5,16)=""
^DIST(.404,166,40,"B",6,17)=""
^DIST(.404,166,40,"B",7,18)=""
^DIST(.404,166,40,"B",8,19)=""
^DIST(.404,166,40,"B",9,20)=""
^DIST(.404,166,40,"B",10,10)=""
^DIST(.404,166,40,"B",11,3)=""
^DIST(.404,166,40,"B",12,4)=""
^DIST(.404,166,40,"B",13,5)=""
^DIST(.404,166,40,"B",14,7)=""
^DIST(.404,166,40,"B",15,6)=""
^DIST(.404,166,40,"B",16,8)=""
^DIST(.404,166,40,"B",17,12)=""
^DIST(.404,166,40,"B",18,13)=""
^DIST(.404,166,40,"B",19,11)=""
^DIST(.404,166,40,"B",20,9)=""
^DIST(.404,166,40,"B",21,2)=""
^DIST(.404,166,40,"C","1 = TOTAL ASSISTANCE",14)=""
^DIST(.404,166,40,"C","2 = MAXIMAL ASSISTANCE",15)=""
^DIST(.404,166,40,"C","3 = MODERATE ASSISTANCE",16)=""
^DIST(.404,166,40,"C","4 = MINIMAL ASSISTANCE",17)=""
^DIST(.404,166,40,"C","5 = SUPERVISION",18)=""
^DIST(.404,166,40,"C","6 = MODIFIED INDEPENDENCE",19)=""
^DIST(.404,166,40,"C","7 = COMPLETE INDEPENDENCE",20)=""
^DIST(.404,166,40,"C","ADJ TO LIMITATION",9)=""
^DIST(.404,166,40,"C","ATTENTION",12)=""
^DIST(.404,166,40,"C","CAR TRANSFERS",3)=""
^DIST(.404,166,40,"C","COMMUNITY ACCESS",4)=""
^DIST(.404,166,40,"C","EMOTIONAL STATUS",8)=""
^DIST(.404,166,40,"C","EMPLOYABILITY",10)=""
^DIST(.404,166,40,"C","FUNCTIONAL ASSESSMENT MEASURE(FAM)",1)=""
^DIST(.404,166,40,"C","ORIENTATION",11)=""
^DIST(.404,166,40,"C","READING",5)=""
^DIST(.404,166,40,"C","SAFETY JUDGEMENT",13)=""
^DIST(.404,166,40,"C","SPEECH CLARITY",7)=""
^DIST(.404,166,40,"C","SWALLOWING",2)=""
^DIST(.404,166,40,"C","WRITING",6)=""
^DIST(.404,167,0)="SPNLP CHART HD4^154.1^"
^DIST(.404,167,40,0)="^.4044I^1^1"
^DIST(.404,167,40,1,0)="1^PAGE 3 OF 3^1"
^DIST(.404,167,40,1,2)="^^1,69"
^DIST(.404,167,40,"B",1,1)=""
^DIST(.404,167,40,"C","PAGE 3 OF 3",1)=""
^DIST(.404,168,0)="SPNLP CHART BLK3^154.1"
^DIST(.404,168,40,0)="^.4044I^5^5"
^DIST(.404,168,40,1,0)="2^DIENER'S (1985) SATISFACTION WITH LIFE SCALE^1"
^DIST(.404,168,40,1,2)="^^4,19"
^DIST(.404,168,40,2,0)="3^DIENER COMPOSITE SCORE (0-35)^3"
^DIST(.404,168,40,2,1)="6.01"
^DIST(.404,168,40,2,2)="6,56^2^6,25"
^DIST(.404,168,40,3,0)="4^DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)^1"
^DIST(.404,168,40,3,2)="^^10,17"
^DIST(.404,168,40,4,0)="5^DUSOI COMPOSITE SCORE (0-100)^3"
^DIST(.404,168,40,4,1)="6.02"
^DIST(.404,168,40,4,2)="12,56^3^12,25"
^DIST(.404,168,40,5,0)="1^!M^1"
^DIST(.404,168,40,5,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,168,40,5,2)="^^2,2"
^DIST(.404,168,40,"B",1,5)=""
^DIST(.404,168,40,"B",2,1)=""
^DIST(.404,168,40,"B",3,2)=""
^DIST(.404,168,40,"B",4,3)=""
^DIST(.404,168,40,"B",5,4)=""
^DIST(.404,168,40,"C","DIENER COMPOSITE SCORE (0-35)",2)=""
^DIST(.404,168,40,"C","DIENER'S (1985) SATISFACTION WITH LIFE SCALE",1)=""
^DIST(.404,168,40,"C","DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)",3)=""
^DIST(.404,168,40,"C","DUSOI COMPOSITE SCORE (0-100)",4)=""
^DIST(.404,169,0)="SPNLP MS FORM BLK1^154.1"
^DIST(.404,169,40,0)="^.4044I^11^9"
^DIST(.404,169,40,1,0)="8^Select the type of record you wish to enter/edit^2"
^DIST(.404,169,40,1,2)="11,66^1^11,16"
^DIST(.404,169,40,1,10)="S:X="""" X=""^"" S:X'=""^"" DDSBR=$S(X=1:""^^2"",X=2:""^^3"",1:""^^1"")"
^DIST(.404,169,40,1,20)="S^M^1:Functional Systems (Kurtzke);2:Expanded Disability Status Scale (EDSS)"
^DIST(.404,169,40,1,22)="K:X<1!(X>2) X"
^DIST(.404,169,40,2,0)="5^Select one of the following:^1"
^DIST(.404,169,40,2,2)="^^6,16"
^DIST(.404,169,40,3,0)="6^1)  Kurtzke Functional Systems Scale (FSS)^1"
^DIST(.404,169,40,3,2)="^^8,19"
^DIST(.404,169,40,4,0)="7^2)  Kurtzke Expanded Disability Status Scale (EDSS)^1"
^DIST(.404,169,40,4,2)="^^9,19"
^DIST(.404,169,40,7,0)="1^!M^1"
^DIST(.404,169,40,7,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,169,40,7,2)="^^2,25"
^DIST(.404,169,40,8,0)="4^DISPOSITION^3"
^DIST(.404,169,40,8,1)=".024"
^DIST(.404,169,40,8,2)="4,50^30^4,37"
^DIST(.404,169,40,9,0)="9^!M^1"
^DIST(.404,169,40,9,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,169,40,9,2)="^^1,10"
^DIST(.404,169,40,10,0)="10^!M^1"
^DIST(.404,169,40,10,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,169,40,10,2)="^^1,41"
^DIST(.404,169,40,11,0)="11^!M^1"
^DIST(.404,169,40,11,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,169,40,11,2)="^^4,1"
^DIST(.404,169,40,"B",1,7)=""
^DIST(.404,169,40,"B",4,8)=""
^DIST(.404,169,40,"B",5,2)=""
^DIST(.404,169,40,"B",6,3)=""
^DIST(.404,169,40,"B",7,4)=""
^DIST(.404,169,40,"B",8,1)=""
^DIST(.404,169,40,"B",9,9)=""
^DIST(.404,169,40,"B",10,10)=""
^DIST(.404,169,40,"B",11,11)=""
^DIST(.404,169,40,"C","1)  KURTZKE FUNCTIONAL SYSTEMS SCALE (FSS)",3)=""
^DIST(.404,169,40,"C","2)  KURTZKE EXPANDED DISABILITY STATUS SCALE (EDSS)",4)=""
^DIST(.404,169,40,"C","DISPOSITION",8)=""
^DIST(.404,169,40,"C","ONE OF THE FOLLOWING:",2)=""
^DIST(.404,169,40,"C","THE TYPE OF RECORD YOU WISH TO ENTER/EDIT",1)=""
^DIST(.404,170,0)="SPNLP MS HD1^154.1^"
^DIST(.404,170,40,0)="^.4044I^6^5"
^DIST(.404,170,40,1,0)="1^Multiple Sclerosis^1"
^DIST(.404,170,40,1,2)="^^1,30"
^DIST(.404,170,40,3,0)="3^PATIENT^3"
^DIST(.404,170,40,3,1)=".01"
^DIST(.404,170,40,3,2)="2,10^30^2,1"
^DIST(.404,170,40,4,0)="4^!M^1"
^DIST(.404,170,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,170,40,4,2)="^^2,44"
^DIST(.404,170,40,5,0)="5^!M^1"
^DIST(.404,170,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,170,40,5,2)="^^2,62"
^DIST(.404,170,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,170,40,6,2)="^^3,1"
^DIST(.404,170,40,"B",1,1)=""
^DIST(.404,170,40,"B",3,3)=""
^DIST(.404,170,40,"B",4,4)=""
^DIST(.404,170,40,"B",5,5)=""
^DIST(.404,170,40,"B",6,6)=""
^DIST(.404,170,40,"C","MULTIPLE SCLEROSIS",1)=""
^DIST(.404,170,40,"C","PATIENT",3)=""
^DIST(.404,170,40,"C","_______________________________________________________________",6)=""
^DIST(.404,171,0)="SPNLP MS HD2^154.1^"
^DIST(.404,171,40,0)="^.4044I^6^6"
^DIST(.404,171,40,1,0)="1^KURTZKE FUNCTIONAL SYSTEM SCALE (FSS)^1"
^DIST(.404,171,40,1,2)="^^1,24"
^DIST(.404,171,40,2,0)="2^PAGE 1 OF 1^1"
^DIST(.404,171,40,2,2)="^^1,69"
^DIST(.404,171,40,3,0)="3^PATIENT^3"
^DIST(.404,171,40,3,1)=".01"
^DIST(.404,171,40,3,2)="2,10^30^2,1"
^DIST(.404,171,40,4,0)="4^!M^1"
^DIST(.404,171,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,171,40,4,2)="^^2,43"
^DIST(.404,171,40,5,0)="5^!M^1"
^DIST(.404,171,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,171,40,5,2)="^^2,63"
^DIST(.404,171,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,171,40,6,2)="^^3,1"
^DIST(.404,171,40,"B",1,1)=""
^DIST(.404,171,40,"B",2,2)=""
^DIST(.404,171,40,"B",3,3)=""
^DIST(.404,171,40,"B",4,4)=""
^DIST(.404,171,40,"B",5,5)=""
^DIST(.404,171,40,"B",6,6)=""
^DIST(.404,171,40,"C","KURTZKE FUNCTIONAL SYSTEM SCALE (FSS)",1)=""
^DIST(.404,171,40,"C","PAGE 1 OF 1",2)=""
^DIST(.404,171,40,"C","PATIENT",3)=""
^DIST(.404,171,40,"C","_______________________________________________________________",6)=""
^DIST(.404,172,0)="SPNLP MS BLK2^154.1"
^DIST(.404,172,40,0)="^.4044I^11^10"
^DIST(.404,172,40,2,0)="2^?? for options^1"
^DIST(.404,172,40,2,2)="^^3,26"
^DIST(.404,172,40,3,0)="3^PYRAMIDAL^3"
^DIST(.404,172,40,3,1)="3.1"
^DIST(.404,172,40,3,2)="5,13^78^5,2"
^DIST(.404,172,40,4,0)="4^BRAINSTEM^3"
^DIST(.404,172,40,4,1)="3.2"
^DIST(.404,172,40,4,2)="6,13^78^6,2"
^DIST(.404,172,40,5,0)="5^SENSORY^3"
^DIST(.404,172,40,5,1)="3.3"
^DIST(.404,172,40,5,2)="7,13^78^7,4"
^DIST(.404,172,40,6,0)="6^CEREBRAL^3"
^DIST(.404,172,40,6,1)="3.4"
^DIST(.404,172,40,6,2)="8,13^78^8,3"
^DIST(.404,172,40,7,0)="7^CEREBELLAR^3"
^DIST(.404,172,40,7,1)="3.5"
^DIST(.404,172,40,7,2)="9,13^78^9,1"
^DIST(.404,172,40,8,0)="8^BWL/BLDDR^3"
^DIST(.404,172,40,8,1)="3.6"
^DIST(.404,172,40,8,2)="10,13^78^10,2"
^DIST(.404,172,40,9,0)="9^VISUAL^3"
^DIST(.404,172,40,9,1)="3.7"
^DIST(.404,172,40,9,2)="11,13^78^11,5"
^DIST(.404,172,40,10,0)="10^OTHER^3"
^DIST(.404,172,40,10,1)="3.8"
^DIST(.404,172,40,10,2)="12,13^78^12,6"
^DIST(.404,172,40,11,0)="11^!M^1"
^DIST(.404,172,40,11,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,172,40,11,2)="^^1,1"
^DIST(.404,172,40,"B",2,2)=""
^DIST(.404,172,40,"B",3,3)=""
^DIST(.404,172,40,"B",4,4)=""
^DIST(.404,172,40,"B",5,5)=""
^DIST(.404,172,40,"B",6,6)=""
^DIST(.404,172,40,"B",7,7)=""
^DIST(.404,172,40,"B",8,8)=""
^DIST(.404,172,40,"B",9,9)=""
^DIST(.404,172,40,"B",10,10)=""
^DIST(.404,172,40,"B",11,11)=""
^DIST(.404,172,40,"C","?? FOR OPTIONS",2)=""
^DIST(.404,172,40,"C","BRAINSTEM",4)=""
^DIST(.404,172,40,"C","BWL/BLDDR",8)=""
^DIST(.404,172,40,"C","CEREBELLAR",7)=""
^DIST(.404,172,40,"C","CEREBRAL",6)=""
^DIST(.404,172,40,"C","OTHER",10)=""
^DIST(.404,172,40,"C","PYRAMIDAL",3)=""
^DIST(.404,172,40,"C","SENSORY",5)=""
^DIST(.404,172,40,"C","VISUAL",9)=""
^DIST(.404,173,0)="SPNLP MS HD3^154.1^"
^DIST(.404,173,40,0)="^.4044I^6^6"
^DIST(.404,173,40,1,0)="1^KURTZKE EXPANDED DISABILITY STATUS SCALE (EDSS)^1"
^DIST(.404,173,40,1,2)="^^1,17"
^DIST(.404,173,40,2,0)="2^PAGE 1 OF 1^1"
^DIST(.404,173,40,2,2)="^^1,69"
^DIST(.404,173,40,3,0)="3^PATIENT^3"
^DIST(.404,173,40,3,1)=".01"
^DIST(.404,173,40,3,2)="2,10^30^2,1"
^DIST(.404,173,40,4,0)="4^!M^1"
^DIST(.404,173,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,173,40,4,2)="^^2,45"
^DIST(.404,173,40,5,0)="5^!M^1"
^DIST(.404,173,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,173,40,5,2)="^^2,64"
^DIST(.404,173,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,173,40,6,2)="^^3,1"
^DIST(.404,173,40,"B",1,1)=""
^DIST(.404,173,40,"B",2,2)=""
^DIST(.404,173,40,"B",3,3)=""
^DIST(.404,173,40,"B",4,4)=""
^DIST(.404,173,40,"B",5,5)=""
^DIST(.404,173,40,"B",6,6)=""
^DIST(.404,173,40,"C","KURTZKE EXPANDED DISABILITY STATUS SCALE (EDSS)",1)=""
^DIST(.404,173,40,"C","PAGE 1 OF 1",2)=""
^DIST(.404,173,40,"C","PATIENT",3)=""
^DIST(.404,173,40,"C","_______________________________________________________________",6)=""
^DIST(.404,174,0)="SPNLP MS BLK3^154.1"
^DIST(.404,174,40,0)="^.4044I^5^4"
^DIST(.404,174,40,2,0)="2^?? for options^1"
^DIST(.404,174,40,2,2)="^^3,31"
^DIST(.404,174,40,3,0)="3^99.9 for Unknown^1"
^DIST(.404,174,40,3,2)="^^5,30"
^DIST(.404,174,40,4,0)="4^EDSS score^3"
^DIST(.404,174,40,4,1)="3.9"
^DIST(.404,174,40,4,2)="10,5^75^9,1"
^DIST(.404,174,40,5,0)="5^!M^1"
^DIST(.404,174,40,5,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,174,40,5,2)="^^1,1"
^DIST(.404,174,40,"B",2,2)=""
^DIST(.404,174,40,"B",3,3)=""
^DIST(.404,174,40,"B",4,4)=""
^DIST(.404,174,40,"B",5,5)=""
^DIST(.404,174,40,"C","99.9 FOR UNKNOWN",3)=""
^DIST(.404,174,40,"C","?? FOR OPTIONS",2)=""
^DIST(.404,174,40,"C","EDSS SCORE",4)=""
^DIST(.404,175,0)="SPNLPFM2-4^154.07"
^DIST(.404,175,40,0)="^.4044I^3^3"
^DIST(.404,175,40,1,0)="1^!M^3"
^DIST(.404,175,40,1,.1)="W """""
^DIST(.404,175,40,1,1)=".01"
^DIST(.404,175,40,1,2)="3,18^17^3,13^1"
^DIST(.404,175,40,2,0)="2^!M^3"
^DIST(.404,175,40,2,.1)="W """""
^DIST(.404,175,40,2,1)="1"
^DIST(.404,175,40,2,2)="3,41^17^3,36^1"
^DIST(.404,175,40,2,12)="N SPN,SPN2 S SPN=$$GET^DDSVAL(154.07,.DA,1,"""",""I"") I SPN S SPN2=$$GET^DDSVAL(154.07,.DA,.01,"""",""I"") D EN7^SPNLUTL0(SPN2,SPN,1) I SPN,'$G(DDSERROR),'$$GET^DDSVAL(154.07,.DA,2,"""",""I"") S Y=$$FMADD^XLFDT(SPN,365) D PUT^DDSVAL(154.07,.DA,2,Y,"""",""I"")"
^DIST(.404,175,40,3,0)="3^!M^3"
^DIST(.404,175,40,3,.1)="W """""
^DIST(.404,175,40,3,1)="2"
^DIST(.404,175,40,3,2)="3,62^18^3,58^1"
^DIST(.404,175,40,3,12)="N SPN,SPN2 S SPN=$$GET^DDSVAL(154.07,.DA,2,"""",""I""),SPN2=$$GET^DDSVAL(154.07,.DA,1,"""",""I"") D EN7^SPNLUTL0(SPN2,SPN,2)"
^DIST(.404,175,40,"B",1,1)=""
^DIST(.404,175,40,"B",2,2)=""
^DIST(.404,175,40,"B",3,3)=""
^DIST(.404,176,0)="SPNE HEAD^154.03^"
^DIST(.404,176,40,0)="^.4044I^4^4"
^DIST(.404,176,40,1,0)="1^ETIOLOGY^3"
^DIST(.404,176,40,1,1)=".01"
^DIST(.404,176,40,1,2)="2,34^30^2,24"
^DIST(.404,176,40,2,0)="2^TYPE OF CAUSE^3"
^DIST(.404,176,40,2,1)=".02"
^DIST(.404,176,40,2,2)="3,39^19^3,24"
^DIST(.404,176,40,3,0)="3^________________________________________________________________________________^1"
^DIST(.404,176,40,3,2)="^^4,1"
^DIST(.404,176,40,4,0)="4^Select Etiology SYNONYM:^1"
^DIST(.404,176,40,4,2)="^^8,5"
^DIST(.404,176,40,"B",1,1)=""
^DIST(.404,176,40,"B",2,2)=""
^DIST(.404,176,40,"B",3,3)=""
^DIST(.404,176,40,"B",4,4)=""
^DIST(.404,176,40,"C","ETIOLOGY",1)=""
^DIST(.404,176,40,"C","ETIOLOGY SYNONYM:",4)=""
^DIST(.404,176,40,"C","TYPE OF CAUSE",2)=""
^DIST(.404,176,40,"C","_______________________________________________________________",3)=""
^DIST(.404,177,0)="SPNE SYNONYM BLOCK^154.31"
^DIST(.404,177,40,0)="^.4044I^1^1"
^DIST(.404,177,40,1,0)="1^!M^3"
^DIST(.404,177,40,1,.1)="W """""
^DIST(.404,177,40,1,1)=".01"
^DIST(.404,177,40,1,2)="1,30^35^1,26^1"
^DIST(.404,177,40,"B",1,1)=""
^DIST(.404,178,0)="LREPIHEAD^69.5^"
^DIST(.404,178,40,0)="^.4044I^6^6"
^DIST(.404,178,40,1,0)="1^LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN^1"
^DIST(.404,178,40,1,2)="^^2,15"
^DIST(.404,178,40,2,0)="2^NAME^3"
^DIST(.404,178,40,2,1)=".01"
^DIST(.404,178,40,2,2)="4,7^50^4,1"
^DIST(.404,178,40,3,0)="3^INACTIVE: ^3"
^DIST(.404,178,40,3,1)="1"
^DIST(.404,178,40,3,2)="4,70^3^4,60^1"
^DIST(.404,178,40,4,0)="4^________________________________________^1"
^DIST(.404,178,40,4,2)="^^5,1"
^DIST(.404,178,40,5,0)="5^________________________________________^1"
^DIST(.404,178,40,5,2)="^^5,41"
^DIST(.404,178,40,6,0)="6^!M^1"
^DIST(.404,178,40,6,.1)="S Y=""Page ""_DDSPG_"" of 5"""
^DIST(.404,178,40,6,2)="^^2,67"
^DIST(.404,178,40,"B",1,1)=""
^DIST(.404,178,40,"B",2,2)=""
^DIST(.404,178,40,"B",3,3)=""
^DIST(.404,178,40,"B",4,4)=""
^DIST(.404,178,40,"B",5,5)=""
^DIST(.404,178,40,"B",6,6)=""
^DIST(.404,178,40,"C","INACTIVE: ",3)=""
^DIST(.404,178,40,"C","LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN",1)=""
^DIST(.404,178,40,"C","NAME",2)=""
^DIST(.404,178,40,"C","________________________________________",4)=""
^DIST(.404,178,40,"C","________________________________________",5)=""
^DIST(.404,179,0)="LREPI2^69.52"
^DIST(.404,179,40,0)="^.4044I^3^3"
^DIST(.404,179,40,1,0)="1^^3"
^DIST(.404,179,40,1,1)=".01"
^DIST(.404,179,40,1,2)="4,1^30"
^DIST(.404,179,40,2,0)="2^^3"
^DIST(.404,179,40,2,1)="1"
^DIST(.404,179,40,2,2)="4,35^20"
^DIST(.404,179,40,3,0)="3^^3"
^DIST(.404,179,40,3,1)="2"
^DIST(.404,179,40,3,2)="4,61^15"
^DIST(.404,179,40,"B",1,1)=""
^DIST(.404,179,40,"B",2,2)=""
^DIST(.404,179,40,"B",3,3)=""
^DIST(.404,180,0)="LREPI3^69.54"
^DIST(.404,180,40,0)="^.4044I^2^2"
^DIST(.404,180,40,1,0)="1^^3"
^DIST(.404,180,40,1,1)=".01"
^DIST(.404,180,40,1,2)="3,2^7"
^DIST(.404,180,40,2,0)="2^^4"
^DIST(.404,180,40,2,2)="3,34^25"
^DIST(.404,180,40,2,30)="S Y={.01:3}"
^DIST(.404,180,40,"B",1,1)=""
^DIST(.404,180,40,"B",2,2)=""
^DIST(.404,181,0)="LREPI1^69.5^"
^DIST(.404,181,40,0)="^.4044I^5^5"
^DIST(.404,181,40,1,0)="1^Laboratory Test(s)^1"
^DIST(.404,181,40,1,2)="^^1,1"
^DIST(.404,181,40,2,0)="2^Indicator^1"
^DIST(.404,181,40,2,2)="^^1,34"
^DIST(.404,181,40,3,0)="3^Value^1"
^DIST(.404,181,40,3,2)="^^1,60"
^DIST(.404,181,40,4,0)="4^ICDM-9^1"
^DIST(.404,181,40,4,2)="^^7,2"
^DIST(.404,181,40,5,0)="5^ICDM-9 Description^1"
^DIST(.404,181,40,5,2)="^^7,34"
^DIST(.404,181,40,"B",1,1)=""
^DIST(.404,181,40,"B",2,2)=""
^DIST(.404,181,40,"B",3,3)=""
^DIST(.404,181,40,"B",4,4)=""
^DIST(.404,181,40,"B",5,5)=""
^DIST(.404,181,40,"C","ICDM-9",4)=""
^DIST(.404,181,40,"C","ICDM-9 DESCRIPTION",5)=""
^DIST(.404,181,40,"C","INDICATOR",2)=""
^DIST(.404,181,40,"C","LABORATORY TEST(S)",1)=""
^DIST(.404,181,40,"C","VALUE",3)=""
^DIST(.404,182,0)="LREPI4^69.53"
^DIST(.404,182,40,0)="^.4044I^1^1"
^DIST(.404,182,40,1,0)="1^^3"
^DIST(.404,182,40,1,1)=".01"
^DIST(.404,182,40,1,2)="1,1^35"
^DIST(.404,182,40,"B",1,1)=""
^DIST(.404,183,0)="LREPI5^69.55"
^DIST(.404,183,40,0)="^.4044I^3^3"
^DIST(.404,183,40,1,0)="1^^3"
^DIST(.404,183,40,1,1)=".01"
^DIST(.404,183,40,1,2)="2,1^30"
^DIST(.404,183,40,2,0)="2^^4"
^DIST(.404,183,40,2,2)="2,49^30"
^DIST(.404,183,40,2,30)="S Y={.01:64}"
^DIST(.404,183,40,3,0)="3^^4"
^DIST(.404,183,40,3,2)="2,34^12"
^DIST(.404,183,40,3,30)="S Y={.01:64:1}"
^DIST(.404,183,40,"B",1,1)=""
^DIST(.404,183,40,"B",2,2)=""
^DIST(.404,183,40,"B",3,3)=""
^DIST(.404,184,0)="LREPI6^69.5^"
^DIST(.404,184,40,0)="^.4044I^5^5"
^DIST(.404,184,40,1,0)="1^Selected Etiology^1"
^DIST(.404,184,40,1,2)="^^1,1"
^DIST(.404,184,40,2,0)="2^Antimicrobial Susceptibility^1"
^DIST(.404,184,40,2,2)="^^7,1"
^DIST(.404,184,40,3,0)="3^NLT Code^1"
^DIST(.404,184,40,3,2)="^^7,34"
^DIST(.404,184,40,4,0)="4^NLT Description^1"
^DIST(.404,184,40,4,2)="^^7,49"
^DIST(.404,184,40,5,0)="5^Selected Snomed Codes^1"
^DIST(.404,184,40,5,2)="^^1,45"
^DIST(.404,184,40,"B",1,1)=""
^DIST(.404,184,40,"B",2,2)=""
^DIST(.404,184,40,"B",3,3)=""
^DIST(.404,184,40,"B",4,4)=""
^DIST(.404,184,40,"B",5,5)=""
^DIST(.404,184,40,"C","ANTIMICROBIAL SUSCEPTIBILITY",2)=""
^DIST(.404,184,40,"C","NLT CODE",3)=""
^DIST(.404,184,40,"C","NLT DESCRIPTION",4)=""
^DIST(.404,184,40,"C","SELECTED ETIOLOGY",1)=""
^DIST(.404,184,40,"C","SELECTED SNOMED CODES",5)=""
^DIST(.404,185,0)="LREPI7^69.55^"
^DIST(.404,185,40,0)="^.4044I^3^3"
^DIST(.404,185,40,1,0)="1^Topography Selection^1"
^DIST(.404,185,40,1,2)="^^1,27"
^DIST(.404,185,40,2,0)="2^Include^1"
^DIST(.404,185,40,2,2)="^^3,1"
^DIST(.404,185,40,3,0)="3^Exclude^1"
^DIST(.404,185,40,3,2)="^^3,40"
^DIST(.404,185,40,"B",1,1)=""
^DIST(.404,185,40,"B",2,2)=""
^DIST(.404,185,40,"B",3,3)=""
^DIST(.404,185,40,"C","EXCLUDE",3)=""
^DIST(.404,185,40,"C","INCLUDE",2)=""
^DIST(.404,185,40,"C","TOPOGRAPHY SELECTION",1)=""
^DIST(.404,186,0)="LREPI8^69.56"
^DIST(.404,186,40,0)="^.4044I^1^1"
^DIST(.404,186,40,1,0)="1^^3"
^DIST(.404,186,40,1,1)=".01"
^DIST(.404,186,40,1,2)="1,1^30"
^DIST(.404,186,40,"B",1,1)=""
^DIST(.404,187,0)="LREPI9^69.57"
^DIST(.404,187,40,0)="^.4044I^1^1"
^DIST(.404,187,40,1,0)="1^^3"
^DIST(.404,187,40,1,1)=".01"
^DIST(.404,187,40,1,2)="1,1^30"
^DIST(.404,187,40,"B",1,1)=""
^DIST(.404,188,0)="LREPI10^69.5"
^DIST(.404,188,40,0)="^.4044I^10^7"
^DIST(.404,188,40,3,0)="1^Run Date^3"
^DIST(.404,188,40,3,1)="9"
^DIST(.404,188,40,3,2)="2,11^20^2,1"
^DIST(.404,188,40,4,0)="2^Protocol^3"
^DIST(.404,188,40,4,1)="12"
^DIST(.404,188,40,4,2)="2,48^25^2,38"
^DIST(.404,188,40,5,0)="3^Run Cycle^3"
^DIST(.404,188,40,5,1)="10"
^DIST(.404,188,40,5,2)="4,12^7^4,1"
^DIST(.404,188,40,7,0)="7^Previous Cycle^3"
^DIST(.404,188,40,7,1)="19"
^DIST(.404,188,40,7,2)="6,16^13^6,1"
^DIST(.404,188,40,8,0)="4^Lag Days^3"
^DIST(.404,188,40,8,1)="10.5"
^DIST(.404,188,40,8,2)="4,48^2^4,38"
^DIST(.404,188,40,9,0)="8^General Description^3"
^DIST(.404,188,40,9,1)="15"
^DIST(.404,188,40,9,2)="8,22^1^8,1"
^DIST(.404,188,40,10,0)="5^Previous Cycle^3"
^DIST(.404,188,40,10,1)="19"
^DIST(.404,188,40,10,2)="6,16^13^6,1"
^DIST(.404,188,40,"B",1,3)=""
^DIST(.404,188,40,"B",2,4)=""
^DIST(.404,188,40,"B",3,5)=""
^DIST(.404,188,40,"B",4,8)=""
^DIST(.404,188,40,"B",5,10)=""
^DIST(.404,188,40,"B",7,7)=""
^DIST(.404,188,40,"B",8,9)=""
^DIST(.404,188,40,"C","GENERAL DESCRIPTION",9)=""
^DIST(.404,188,40,"C","LAG DAYS",8)=""
^DIST(.404,188,40,"C","PREVIOUS CYCLE",7)=""
^DIST(.404,188,40,"C","PREVIOUS CYCLE",10)=""
^DIST(.404,188,40,"C","PROTOCOL",4)=""
^DIST(.404,188,40,"C","RUN CYCLE",5)=""
^DIST(.404,188,40,"C","RUN DATE",3)=""
^DIST(.404,189,0)="LREPI11^69.5"
^DIST(.404,189,40,0)="^.4044I^^0"
^DIST(.404,190,0)="ENPRNHCU^6925"
^DIST(.404,190,40,0)="^.4044I^9^8"
^DIST(.404,190,40,1,0)="2^NHCU BEDS (NEW)^3"
^DIST(.404,190,40,1,1)="158.3"
^DIST(.404,190,40,1,2)="3,26^4^3,3"
^DIST(.404,190,40,1,4)="^^1"
^DIST(.404,190,40,2,0)="3^NHCU BEDS (RENOVATED)^3"
^DIST(.404,190,40,2,1)="158.4"
^DIST(.404,190,40,2,2)="4,26^4^4,3"
^DIST(.404,190,40,2,4)="^^1"
^DIST(.404,190,40,3,0)="5^CONVERTED FROM^1"
^DIST(.404,190,40,3,2)="^^7,10"
^DIST(.404,190,40,4,0)="6^NUMBER^1"
^DIST(.404,190,40,4,2)="^^7,30"
^DIST(.404,190,40,6,0)="7^--------------^1"
^DIST(.404,190,40,6,2)="^^8,10"
^DIST(.404,190,40,7,0)="8^------^1"
^DIST(.404,190,40,7,2)="^^8,30"
^DIST(.404,190,40,8,0)="4^NHCU BEDS (CONVERTED)^3"
^DIST(.404,190,40,8,1)="158.5"
^DIST(.404,190,40,8,2)="5,26^4^5,3"
^DIST(.404,190,40,8,4)="^^1"
^DIST(.404,190,40,9,0)="1^NHCU AUTHORIZED BEDS^3"
^DIST(.404,190,40,9,1)="165.1"
^DIST(.404,190,40,9,2)="1,26^4^1,3"
^DIST(.404,190,40,9,4)="^^1"
^DIST(.404,190,40,"B",1,9)=""
^DIST(.404,190,40,"B",2,1)=""
^DIST(.404,190,40,"B",3,2)=""
^DIST(.404,190,40,"B",4,8)=""
^DIST(.404,190,40,"B",5,3)=""
^DIST(.404,190,40,"B",6,4)=""
^DIST(.404,190,40,"B",7,6)=""
^DIST(.404,190,40,"B",8,7)=""
^DIST(.404,190,40,"C","------",7)=""
^DIST(.404,190,40,"C","--------------",6)=""
^DIST(.404,190,40,"C","CONVERTED FROM",3)=""
^DIST(.404,190,40,"C","NHCU AUTHORIZED BEDS",9)=""
^DIST(.404,190,40,"C","NHCU BEDS (CONVERTED)",8)=""
^DIST(.404,190,40,"C","NHCU BEDS (NEW)",1)=""
^DIST(.404,190,40,"C","NHCU BEDS (RENOVATED)",2)=""
^DIST(.404,190,40,"C","NUMBER",4)=""
^DIST(.404,191,0)="ENPRNHCUCONV^6925.0166"
^DIST(.404,191,40,0)="^.4044I^2^2"
^DIST(.404,191,40,1,0)="1^^3"
^DIST(.404,191,40,1,1)=".01"
^DIST(.404,191,40,1,2)="1,10^14"
^DIST(.404,191,40,2,0)="2^^3^^"
^DIST(.404,191,40,2,1)="1"
^DIST(.404,191,40,2,2)="1,30^4"
^DIST(.404,191,40,2,4)="^^1"
^DIST(.404,191,40,"B",1,1)=""
^DIST(.404,191,40,"B",2,2)=""
^DIST(.404,192,0)="ENPRHD^6925^"
^DIST(.404,192,40,0)="^.4044I^8^6"
^DIST(.404,192,40,2,0)="4^PROJECT #^3"
^DIST(.404,192,40,2,1)=".01"
^DIST(.404,192,40,2,2)="2,12^11^2,1"
^DIST(.404,192,40,3,0)="5^TITLE^3"
^DIST(.404,192,40,3,1)="2"
^DIST(.404,192,40,3,2)="2,31^50^2,24"
^DIST(.404,192,40,4,0)="6^-------------------------------------------------------------------------------^1"
^DIST(.404,192,40,4,2)="^^3,1"
^DIST(.404,192,40,5,0)="3^!M^1^^"
^DIST(.404,192,40,5,.1)="S Y=$G(ENPG(""N""))"
^DIST(.404,192,40,5,2)="^^1,67"
^DIST(.404,192,40,6,0)="2^!M^1"
^DIST(.404,192,40,6,.1)="S Y=$G(ENPG(""T""))"
^DIST(.404,192,40,6,2)="^^1,26"
^DIST(.404,192,40,8,0)="1^PROJECT PROGRESS REPORT:^1"
^DIST(.404,192,40,8,2)="^^1,1"
^DIST(.404,192,40,"B",1,8)=""
^DIST(.404,192,40,"B",2,6)=""
^DIST(.404,192,40,"B",3,5)=""
^DIST(.404,192,40,"B",4,2)=""
^DIST(.404,192,40,"B",5,3)=""
^DIST(.404,192,40,"B",6,4)=""
^DIST(.404,192,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,192,40,"C","PROJECT #",2)=""
^DIST(.404,192,40,"C","PROJECT PROGRESS REPORT:",8)=""
^DIST(.404,192,40,"C","TITLE",3)=""
^DIST(.404,193,0)="ENPRMS2^6925"
^DIST(.404,193,11)="S ENPR=$$GET^DDSVAL(6925,DA,155) D HLP^DDSUTL(""Milestones not applicable to this project are followed by '(NA)' and will not be sent to VACO"")"
^DIST(.404,193,12)="K ENPR"
^DIST(.404,193,40,0)="^.4044I^62^62"
^DIST(.404,193,40,1,0)="1^Milestone^1"
^DIST(.404,193,40,1,2)="^^1,1"
^DIST(.404,193,40,2,0)="6^--------------------^1"
^DIST(.404,193,40,2,2)="^^2,1"
^DIST(.404,193,40,3,0)="7^-----------^1"
^DIST(.404,193,40,3,2)="^^2,27"
^DIST(.404,193,40,4,0)="8^-----------^1"
^DIST(.404,193,40,4,2)="^^2,40"
^DIST(.404,193,40,5,0)="9^-----------^1"
^DIST(.404,193,40,5,2)="^^2,53"
^DIST(.404,193,40,6,0)="10^------^1"
^DIST(.404,193,40,6,2)="^^2,66"
^DIST(.404,193,40,7,0)="2^Planned^1"
^DIST(.404,193,40,7,2)="^^1,27"
^DIST(.404,193,40,8,0)="3^Revised^1"
^DIST(.404,193,40,8,2)="^^1,40"
^DIST(.404,193,40,9,0)="4^Actual^1"
^DIST(.404,193,40,9,2)="^^1,53"
^DIST(.404,193,40,10,0)="5^% Comp^1"
^DIST(.404,193,40,10,2)="^^1,66"
^DIST(.404,193,40,11,0)="11^Start L/T Review^1"
^DIST(.404,193,40,11,2)="^^3,1"
^DIST(.404,193,40,12,0)="13^Start Audit Review^1"
^DIST(.404,193,40,12,2)="^^4,1"
^DIST(.404,193,40,13,0)="15^Issue IFB/SBA^1"
^DIST(.404,193,40,13,2)="^^5,1"
^DIST(.404,193,40,14,0)="17^Compl. L/T Review^1"
^DIST(.404,193,40,14,2)="^^6,1"
^DIST(.404,193,40,15,0)="19^Compl. Audit Review^1"
^DIST(.404,193,40,15,2)="^^7,1"
^DIST(.404,193,40,16,0)="21^Bid Open/Negotiation^1"
^DIST(.404,193,40,16,2)="^^8,1"
^DIST(.404,193,40,17,0)="23^Construction Award^1"
^DIST(.404,193,40,17,2)="^^9,1"
^DIST(.404,193,40,18,0)="25^Construction Start^1"
^DIST(.404,193,40,18,2)="^^10,1"
^DIST(.404,193,40,19,0)="27^Const. Complete^1"
^DIST(.404,193,40,19,2)="^^11,1"
^DIST(.404,193,40,20,0)="29^Activation^1"
^DIST(.404,193,40,20,2)="^^12,1"
^DIST(.404,193,40,21,0)="52^^3"
^DIST(.404,193,40,21,1)="24.4"
^DIST(.404,193,40,21,2)="3,27^11"
^DIST(.404,193,40,22,0)="53^^3"
^DIST(.404,193,40,22,1)="24.6"
^DIST(.404,193,40,22,2)="4,27^11"
^DIST(.404,193,40,23,0)="54^^3"
^DIST(.404,193,40,23,1)="25"
^DIST(.404,193,40,23,2)="5,27^11"
^DIST(.404,193,40,24,0)="55^^3"
^DIST(.404,193,40,24,1)="25.4"
^DIST(.404,193,40,24,2)="6,27^11"
^DIST(.404,193,40,25,0)="56^^3"
^DIST(.404,193,40,25,1)="25.6"
^DIST(.404,193,40,25,2)="7,27^11"
^DIST(.404,193,40,26,0)="57^^3"
^DIST(.404,193,40,26,1)="26"
^DIST(.404,193,40,26,2)="8,27^11"
^DIST(.404,193,40,27,0)="58^^3"
^DIST(.404,193,40,27,1)="27"
^DIST(.404,193,40,27,2)="9,27^11"
^DIST(.404,193,40,28,0)="59^^3"
^DIST(.404,193,40,28,1)="28"
^DIST(.404,193,40,28,2)="10,27^11"
^DIST(.404,193,40,29,0)="60^^3"
^DIST(.404,193,40,29,1)="29"
^DIST(.404,193,40,29,2)="11,27^11"
^DIST(.404,193,40,30,0)="61^^3"
^DIST(.404,193,40,30,1)="30"
^DIST(.404,193,40,30,2)="12,27^11"
^DIST(.404,193,40,31,0)="64^^3"
^DIST(.404,193,40,31,1)="38.4"
^DIST(.404,193,40,31,2)="3,40^11"
^DIST(.404,193,40,32,0)="65^^3"
^DIST(.404,193,40,32,1)="38.6"
^DIST(.404,193,40,32,2)="4,40^11"
^DIST(.404,193,40,33,0)="66^^3"
^DIST(.404,193,40,33,1)="39"
^DIST(.404,193,40,33,2)="5,40^11"
^DIST(.404,193,40,34,0)="67^^3"
^DIST(.404,193,40,34,1)="39.4"
^DIST(.404,193,40,34,2)="6,40^11"
^DIST(.404,193,40,35,0)="68^^3"
^DIST(.404,193,40,35,1)="39.6"
^DIST(.404,193,40,35,2)="7,40^11"
^DIST(.404,193,40,36,0)="69^^3"
^DIST(.404,193,40,36,1)="40"
^DIST(.404,193,40,36,2)="8,40^11"
^DIST(.404,193,40,37,0)="70^^3"
^DIST(.404,193,40,37,1)="41"
^DIST(.404,193,40,37,2)="9,40^11"
^DIST(.404,193,40,38,0)="71^^3"
^DIST(.404,193,40,38,1)="42"
^DIST(.404,193,40,38,2)="10,40^11"
^DIST(.404,193,40,39,0)="72^^3"
^DIST(.404,193,40,39,1)="43"
^DIST(.404,193,40,39,2)="11,40^11"
^DIST(.404,193,40,40,0)="73^^3"
^DIST(.404,193,40,40,1)="44"
^DIST(.404,193,40,40,2)="12,40^11"
^DIST(.404,193,40,41,0)="76^^3"
^DIST(.404,193,40,41,1)="57.4"
^DIST(.404,193,40,41,2)="3,53^11"
^DIST(.404,193,40,42,0)="78^^3"
^DIST(.404,193,40,42,1)="57.6"
^DIST(.404,193,40,42,2)="4,53^11"
^DIST(.404,193,40,43,0)="80^^3"
^DIST(.404,193,40,43,1)="58"
^DIST(.404,193,40,43,2)="5,53^11"
^DIST(.404,193,40,43,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<10) PUT^DDSVAL(6925,DA,6,""13"","""",""I"")"
^DIST(.404,193,40,44,0)="82^^3"
^DIST(.404,193,40,44,1)="58.4"
^DIST(.404,193,40,44,2)="6,53^11"
^DIST(.404,193,40,45,0)="84^^3"
^DIST(.404,193,40,45,1)="58.6"
^DIST(.404,193,40,45,2)="7,53^11"
^DIST(.404,193,40,46,0)="86^^3"
^DIST(.404,193,40,46,1)="59"
^DIST(.404,193,40,46,2)="8,53^11"
^DIST(.404,193,40,46,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<11) PUT^DDSVAL(6925,DA,6,""14"","""",""I"")"
^DIST(.404,193,40,47,0)="88^^3"
^DIST(.404,193,40,47,1)="60"
^DIST(.404,193,40,47,2)="9,53^11"
^DIST(.404,193,40,47,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<12) PUT^DDSVAL(6925,DA,6,""15"","""",""I"")"
^DIST(.404,193,40,48,0)="90^^3"
^DIST(.404,193,40,48,1)="61"
^DIST(.404,193,40,48,2)="10,53^11"
^DIST(.404,193,40,48,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<12) PUT^DDSVAL(6925,DA,6,""15"","""",""I"")"
^DIST(.404,193,40,49,0)="92^^3"
^DIST(.404,193,40,49,1)="62"
^DIST(.404,193,40,49,2)="11,53^11"
^DIST(.404,193,40,49,13)="D:X]"""" PUT^DDSVAL(6925,DA,11,""100"")"
^DIST(.404,193,40,50,0)="94^^3"
^DIST(.404,193,40,50,1)="63"
^DIST(.404,193,40,50,2)="12,53^11"
^DIST(.404,193,40,50,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<13) PUT^DDSVAL(6925,DA,6,""16"","""",""I"")"
^DIST(.404,193,40,51,0)="93^^3"
^DIST(.404,193,40,51,1)="11"
^DIST(.404,193,40,51,2)="11,66^3"
^DIST(.404,193,40,51,4)="^^1"
^DIST(.404,193,40,52,0)="12^!M^1"
^DIST(.404,193,40,52,.1)="S Y=$S('$P($G(ENMSOK),U,13):""(NA)"",1:"""")"
^DIST(.404,193,40,52,2)="^^3,22"
^DIST(.404,193,40,53,0)="14^!M^1"
^DIST(.404,193,40,53,.1)="S Y=$S('$P($G(ENMSOK),U,14):""(NA)"",1:"""")"
^DIST(.404,193,40,53,2)="^^4,22"
^DIST(.404,193,40,54,0)="16^!M^1"
^DIST(.404,193,40,54,.1)="S Y=$S('$P($G(ENMSOK),U,15):""(NA)"",1:"""")"
^DIST(.404,193,40,54,2)="^^5,22"
^DIST(.404,193,40,55,0)="18^!M^1"
^DIST(.404,193,40,55,.1)="S Y=$S('$P($G(ENMSOK),U,16):""(NA)"",1:"""")"
^DIST(.404,193,40,55,2)="^^6,22"
^DIST(.404,193,40,56,0)="20^!M^1"
^DIST(.404,193,40,56,.1)="S Y=$S('$P($G(ENMSOK),U,17):""(NA)"",1:"""")"
^DIST(.404,193,40,56,2)="^^7,22"
^DIST(.404,193,40,57,0)="22^!M^1"
^DIST(.404,193,40,57,.1)="S Y=$S('$P($G(ENMSOK),U,18):""(NA)"",1:"""")"
^DIST(.404,193,40,57,2)="^^8,22"
^DIST(.404,193,40,58,0)="24^!M^1"
^DIST(.404,193,40,58,.1)="S Y=$S('$P($G(ENMSOK),U,19):""(NA)"",1:"""")"
^DIST(.404,193,40,58,2)="^^9,22"
^DIST(.404,193,40,59,0)="26^!M^1"
^DIST(.404,193,40,59,.1)="S Y=$S('$P($G(ENMSOK),U,20):""(NA)"",1:"""")"
^DIST(.404,193,40,59,2)="^^10,22"
^DIST(.404,193,40,60,0)="28^!M^1"
^DIST(.404,193,40,60,.1)="S Y=$S('$P($G(ENMSOK),U,21):""(NA)"",1:"""")"
^DIST(.404,193,40,60,2)="^^11,22"
^DIST(.404,193,40,61,0)="30^!M^1"
^DIST(.404,193,40,61,.1)="S Y=$S('$P($G(ENMSOK),U,22):""(NA)"",1:"""")"
^DIST(.404,193,40,61,2)="^^12,22"
^DIST(.404,193,40,62,0)="99^STATUS^3"
^DIST(.404,193,40,62,1)="6"
^DIST(.404,193,40,62,2)="14,9^30^14,1"
^DIST(.404,193,40,"B",1,1)=""
^DIST(.404,193,40,"B",2,7)=""
^DIST(.404,193,40,"B",3,8)=""
^DIST(.404,193,40,"B",4,9)=""
^DIST(.404,193,40,"B",5,10)=""
^DIST(.404,193,40,"B",6,2)=""
^DIST(.404,193,40,"B",7,3)=""
^DIST(.404,193,40,"B",8,4)=""
^DIST(.404,193,40,"B",9,5)=""
^DIST(.404,193,40,"B",10,6)=""
^DIST(.404,193,40,"B",11,11)=""
^DIST(.404,193,40,"B",12,52)=""
^DIST(.404,193,40,"B",13,12)=""
^DIST(.404,193,40,"B",14,53)=""
^DIST(.404,193,40,"B",15,13)=""
^DIST(.404,193,40,"B",16,54)=""
^DIST(.404,193,40,"B",17,14)=""
^DIST(.404,193,40,"B",18,55)=""
^DIST(.404,193,40,"B",19,15)=""
^DIST(.404,193,40,"B",20,56)=""
^DIST(.404,193,40,"B",21,16)=""
^DIST(.404,193,40,"B",22,57)=""
^DIST(.404,193,40,"B",23,17)=""
^DIST(.404,193,40,"B",24,58)=""
^DIST(.404,193,40,"B",25,18)=""
^DIST(.404,193,40,"B",26,59)=""
^DIST(.404,193,40,"B",27,19)=""
^DIST(.404,193,40,"B",28,60)=""
^DIST(.404,193,40,"B",29,20)=""
^DIST(.404,193,40,"B",30,61)=""
^DIST(.404,193,40,"B",52,21)=""
^DIST(.404,193,40,"B",53,22)=""
^DIST(.404,193,40,"B",54,23)=""
^DIST(.404,193,40,"B",55,24)=""
^DIST(.404,193,40,"B",56,25)=""
^DIST(.404,193,40,"B",57,26)=""
^DIST(.404,193,40,"B",58,27)=""
^DIST(.404,193,40,"B",59,28)=""
^DIST(.404,193,40,"B",60,29)=""
^DIST(.404,193,40,"B",61,30)=""
^DIST(.404,193,40,"B",64,31)=""
^DIST(.404,193,40,"B",65,32)=""
^DIST(.404,193,40,"B",66,33)=""
^DIST(.404,193,40,"B",67,34)=""
^DIST(.404,193,40,"B",68,35)=""
^DIST(.404,193,40,"B",69,36)=""
^DIST(.404,193,40,"B",70,37)=""
^DIST(.404,193,40,"B",71,38)=""
^DIST(.404,193,40,"B",72,39)=""
^DIST(.404,193,40,"B",73,40)=""
^DIST(.404,193,40,"B",76,41)=""
^DIST(.404,193,40,"B",78,42)=""
^DIST(.404,193,40,"B",80,43)=""
^DIST(.404,193,40,"B",82,44)=""
^DIST(.404,193,40,"B",84,45)=""
^DIST(.404,193,40,"B",86,46)=""
^DIST(.404,193,40,"B",88,47)=""
^DIST(.404,193,40,"B",90,48)=""
^DIST(.404,193,40,"B",92,49)=""
^DIST(.404,193,40,"B",93,51)=""
^DIST(.404,193,40,"B",94,50)=""
^DIST(.404,193,40,"B",99,62)=""
^DIST(.404,193,40,"C","% COMP",10)=""
^DIST(.404,193,40,"C","------",6)=""
^DIST(.404,193,40,"C","-----------",3)=""
^DIST(.404,193,40,"C","-----------",4)=""
^DIST(.404,193,40,"C","-----------",5)=""
^DIST(.404,193,40,"C","--------------------",2)=""
^DIST(.404,193,40,"C","ACTIVATION",20)=""
^DIST(.404,193,40,"C","ACTUAL",9)=""
^DIST(.404,193,40,"C","BID OPEN/NEGOTIATION",16)=""
^DIST(.404,193,40,"C","COMPL. AUDIT REVIEW",15)=""
^DIST(.404,193,40,"C","COMPL. L/T REVIEW",14)=""
^DIST(.404,193,40,"C","CONST. COMPLETE",19)=""
^DIST(.404,193,40,"C","CONSTRUCTION AWARD",17)=""
^DIST(.404,193,40,"C","CONSTRUCTION START",18)=""
^DIST(.404,193,40,"C","ISSUE IFB/SBA",13)=""
^DIST(.404,193,40,"C","MILESTONE",1)=""
^DIST(.404,193,40,"C","PLANNED",7)=""
^DIST(.404,193,40,"C","REVISED",8)=""
^DIST(.404,193,40,"C","START AUDIT REVIEW",12)=""
^DIST(.404,193,40,"C","START L/T REVIEW",11)=""
^DIST(.404,193,40,"C","STATUS",62)=""
^DIST(.404,194,0)="ENPRBASE^6925"
^DIST(.404,194,11)="D BASEPR^ENPROJF"
^DIST(.404,194,12)="K ENFT,ENPR,ENCPI"
^DIST(.404,194,40,0)="^.4044I^33^33"
^DIST(.404,194,40,1,0)="1^FACILITY^3"
^DIST(.404,194,40,1,1)="3"
^DIST(.404,194,40,1,2)="1,11^30^1,1"
^DIST(.404,194,40,2,0)="2^DIVISION^3"
^DIST(.404,194,40,2,1)="176"
^DIST(.404,194,40,2,2)="1,54^10^1,44"
^DIST(.404,194,40,3,0)="3^FACILITY TYPE^3"
^DIST(.404,194,40,3,1)="158"
^DIST(.404,194,40,3,2)="2,16^25^2,1"
^DIST(.404,194,40,3,13)="S ENFT=X"
^DIST(.404,194,40,4,0)="4^PROGRAM^3"
^DIST(.404,194,40,4,1)="155"
^DIST(.404,194,40,4,2)="4,10^13^4,1"
^DIST(.404,194,40,4,13)="S ENPR=X D PRPSC^ENPROJF"
^DIST(.404,194,40,5,0)="6^PROJECT CATEGORY^3"
^DIST(.404,194,40,5,1)="158.1"
^DIST(.404,194,40,5,2)="5,19^30^5,1"
^DIST(.404,194,40,5,13)="S ENPCI=X D PCPSC^ENPROJF"
^DIST(.404,194,40,6,0)="7^BONUS CAT^3^^BONUS"
^DIST(.404,194,40,6,1)="158.8"
^DIST(.404,194,40,6,2)="5,62^14^5,51"
^DIST(.404,194,40,7,0)="8^BUDGET CATEGORY^3^"
^DIST(.404,194,40,7,1)="158.2"
^DIST(.404,194,40,7,2)="6,18^30^6,1"
^DIST(.404,194,40,8,0)="9^EPA REPORTABLE^3^^EPAR"
^DIST(.404,194,40,8,1)="158.6"
^DIST(.404,194,40,8,2)="7,17^3^7,1"
^DIST(.404,194,40,8,13)="D:X=""Y"" UNED^DDSUTL(""EPAC"","""","""",0) D:X'=""Y"" PUT^DDSVAL(6925,DA,158.7,""@""),UNED^DDSUTL(""EPAC"","""","""",1)"
^DIST(.404,194,40,9,0)="10^EPA CATEGORY^3^^EPAC"
^DIST(.404,194,40,9,1)="158.7"
^DIST(.404,194,40,9,2)="7,36^44^7,22"
^DIST(.404,194,40,10,0)="11^FY^1"
^DIST(.404,194,40,10,2)="^^9,16"
^DIST(.404,194,40,11,0)="12^METHOD^1^^"
^DIST(.404,194,40,11,2)="^^9,21"
^DIST(.404,194,40,12,0)="13^APPROVED $^1"
^DIST(.404,194,40,12,2)="^^9,36"
^DIST(.404,194,40,13,0)="14^OBLIGATED $^1"
^DIST(.404,194,40,13,2)="^^9,49"
^DIST(.404,194,40,14,0)="15^----^1"
^DIST(.404,194,40,14,2)="^^10,15"
^DIST(.404,194,40,15,0)="16^-------------^1"
^DIST(.404,194,40,15,2)="^^10,21"
^DIST(.404,194,40,16,0)="17^-----------^1"
^DIST(.404,194,40,16,2)="^^10,36"
^DIST(.404,194,40,17,0)="18^-----------^1"
^DIST(.404,194,40,17,2)="^^10,49"
^DIST(.404,194,40,18,0)="19^DESIGN^1"
^DIST(.404,194,40,18,2)="^^11,1"
^DIST(.404,194,40,19,0)="24^CONSTRUCTION^1"
^DIST(.404,194,40,19,2)="^^12,1"
^DIST(.404,194,40,20,0)="20^^3"
^DIST(.404,194,40,20,1)="3.45"
^DIST(.404,194,40,20,2)="11,15^4"
^DIST(.404,194,40,21,0)="25^^3"
^DIST(.404,194,40,21,1)="3.5"
^DIST(.404,194,40,21,2)="12,15^4"
^DIST(.404,194,40,22,0)="21^^3"
^DIST(.404,194,40,22,1)="7"
^DIST(.404,194,40,22,2)="11,21^8"
^DIST(.404,194,40,23,0)="26^^3"
^DIST(.404,194,40,23,1)="8"
^DIST(.404,194,40,23,2)="12,21^13"
^DIST(.404,194,40,24,0)="22^^3^^"
^DIST(.404,194,40,24,1)="5"
^DIST(.404,194,40,24,2)="11,36^11"
^DIST(.404,194,40,24,4)="^^1"
^DIST(.404,194,40,25,0)="27^^3^^"
^DIST(.404,194,40,25,1)="4"
^DIST(.404,194,40,25,2)="12,36^11"
^DIST(.404,194,40,25,4)="^^1"
^DIST(.404,194,40,26,0)="29^-----------^1"
^DIST(.404,194,40,26,2)="^^13,36"
^DIST(.404,194,40,27,0)="32^^4"
^DIST(.404,194,40,27,2)="14,36^11"
^DIST(.404,194,40,27,4)="^^1"
^DIST(.404,194,40,27,30)="S Y={5}+{4}"
^DIST(.404,194,40,28,0)="31^TOTAL^1"
^DIST(.404,194,40,28,2)="^^14,1"
^DIST(.404,194,40,29,0)="23^^4^^OBLIGATED A/E"
^DIST(.404,194,40,29,2)="11,49^11"
^DIST(.404,194,40,29,4)="^^1"
^DIST(.404,194,40,29,30)="S Y={71.6}+{78}-{80}"
^DIST(.404,194,40,30,0)="28^^4^^OBLIGATED CONST"
^DIST(.404,194,40,30,2)="12,49^11"
^DIST(.404,194,40,30,4)="^^1"
^DIST(.404,194,40,30,30)="S Y={106}+{107}+{108}+{126}-{128}"
^DIST(.404,194,40,31,0)="30^-----------^1"
^DIST(.404,194,40,31,2)="^^13,49"
^DIST(.404,194,40,32,0)="33^^4"
^DIST(.404,194,40,32,2)="14,49^11"
^DIST(.404,194,40,32,4)="^^1"
^DIST(.404,194,40,32,30)="S Y={FO(OBLIGATED A/E)}+{FO(OBLIGATED CONST)}"
^DIST(.404,194,40,33,0)="5^STATUS^3"
^DIST(.404,194,40,33,1)="6"
^DIST(.404,194,40,33,2)="4,33^30^4,25"
^DIST(.404,194,40,"B",1,1)=""
^DIST(.404,194,40,"B",2,2)=""
^DIST(.404,194,40,"B",3,3)=""
^DIST(.404,194,40,"B",4,4)=""
^DIST(.404,194,40,"B",5,33)=""
^DIST(.404,194,40,"B",6,5)=""
^DIST(.404,194,40,"B",7,6)=""
^DIST(.404,194,40,"B",8,7)=""
^DIST(.404,194,40,"B",9,8)=""
^DIST(.404,194,40,"B",10,9)=""
^DIST(.404,194,40,"B",11,10)=""
^DIST(.404,194,40,"B",12,11)=""
^DIST(.404,194,40,"B",13,12)=""
^DIST(.404,194,40,"B",14,13)=""
^DIST(.404,194,40,"B",15,14)=""
^DIST(.404,194,40,"B",16,15)=""
^DIST(.404,194,40,"B",17,16)=""
^DIST(.404,194,40,"B",18,17)=""
^DIST(.404,194,40,"B",19,18)=""
^DIST(.404,194,40,"B",20,20)=""
^DIST(.404,194,40,"B",21,22)=""
^DIST(.404,194,40,"B",22,24)=""
^DIST(.404,194,40,"B",23,29)=""
^DIST(.404,194,40,"B",24,19)=""
^DIST(.404,194,40,"B",25,21)=""
^DIST(.404,194,40,"B",26,23)=""
^DIST(.404,194,40,"B",27,25)=""
^DIST(.404,194,40,"B",28,30)=""
^DIST(.404,194,40,"B",29,26)=""
^DIST(.404,194,40,"B",30,31)=""
^DIST(.404,194,40,"B",31,28)=""
^DIST(.404,194,40,"B",32,27)=""
^DIST(.404,194,40,"B",33,32)=""
^DIST(.404,194,40,"C","----",14)=""
^DIST(.404,194,40,"C","-----------",16)=""
^DIST(.404,194,40,"C","-----------",17)=""
^DIST(.404,194,40,"C","-----------",26)=""
^DIST(.404,194,40,"C","-----------",31)=""
^DIST(.404,194,40,"C","-------------",15)=""
^DIST(.404,194,40,"C","APPROVED $",12)=""
^DIST(.404,194,40,"C","BONUS CAT",6)=""
^DIST(.404,194,40,"C","BUDGET CATEGORY",7)=""
^DIST(.404,194,40,"C","CONSTRUCTION",19)=""
^DIST(.404,194,40,"C","DESIGN",18)=""
^DIST(.404,194,40,"C","DIVISION",2)=""
^DIST(.404,194,40,"C","EPA CATEGORY",9)=""
^DIST(.404,194,40,"C","EPA REPORTABLE",8)=""
^DIST(.404,194,40,"C","FACILITY",1)=""
^DIST(.404,194,40,"C","FACILITY TYPE",3)=""
^DIST(.404,194,40,"C","FY",10)=""
^DIST(.404,194,40,"C","METHOD",11)=""
^DIST(.404,194,40,"C","OBLIGATED $",13)=""
^DIST(.404,194,40,"C","PROGRAM",4)=""
^DIST(.404,194,40,"C","PROJECT CATEGORY",5)=""
^DIST(.404,194,40,"C","STATUS",33)=""
^DIST(.404,194,40,"C","TOTAL",28)=""
^DIST(.404,194,40,"D","BONUS",6)=""
^DIST(.404,194,40,"D","EPAC",9)=""
^DIST(.404,194,40,"D","EPAR",8)=""
^DIST(.404,194,40,"D","OBLIGATED A/E",29)=""
^DIST(.404,194,40,"D","OBLIGATED CONST",30)=""
^DIST(.404,195,0)="ENPRAE^6925"
^DIST(.404,195,40,0)="^.4044I^25^22"
^DIST(.404,195,40,1,0)="1^A/E CONTRACT #^3"
^DIST(.404,195,40,1,1)="70"
^DIST(.404,195,40,1,2)="1,17^15^1,1"
^DIST(.404,195,40,2,0)="3^A/E NAME^3"
^DIST(.404,195,40,2,1)="85"
^DIST(.404,195,40,2,2)="1,45^35^1,34"
^DIST(.404,195,40,3,0)="6^A/E STUDY^3"
^DIST(.404,195,40,3,1)="71.7"
^DIST(.404,195,40,3,2)="4,25^7^4,1"
^DIST(.404,195,40,3,4)="^^1"
^DIST(.404,195,40,4,0)="7^A/E SCHEMATICS^3"
^DIST(.404,195,40,4,1)="72"
^DIST(.404,195,40,4,2)="5,25^7^5,1"
^DIST(.404,195,40,4,4)="^^1"
^DIST(.404,195,40,5,0)="8^A/E SITE SURVEY^3"
^DIST(.404,195,40,5,1)="72.3"
^DIST(.404,195,40,5,2)="6,25^7^6,1"
^DIST(.404,195,40,5,4)="^^1"
^DIST(.404,195,40,6,0)="9^A/E DESIGN DEVELOPMENT^3"
^DIST(.404,195,40,6,1)="72.5"
^DIST(.404,195,40,6,2)="7,25^7^7,1"
^DIST(.404,195,40,6,4)="^^1"
^DIST(.404,195,40,7,0)="10^A/E CONST DOCUMENTS^3"
^DIST(.404,195,40,7,1)="73"
^DIST(.404,195,40,7,2)="8,25^7^8,1"
^DIST(.404,195,40,7,4)="^^1"
^DIST(.404,195,40,8,0)="11^A/E SITE VISITS^3"
^DIST(.404,195,40,8,1)="74"
^DIST(.404,195,40,8,2)="9,25^7^9,1"
^DIST(.404,195,40,8,4)="^^1"
^DIST(.404,195,40,9,0)="12^A/E CONST PER SERVCS^3"
^DIST(.404,195,40,9,1)="75"
^DIST(.404,195,40,9,2)="10,25^7^10,1"
^DIST(.404,195,40,9,4)="^^1"
^DIST(.404,195,40,10,0)="13^A/E OTHER SERVICES^3"
^DIST(.404,195,40,10,1)="75.5"
^DIST(.404,195,40,10,2)="11,25^7^11,1"
^DIST(.404,195,40,10,4)="^^1"
^DIST(.404,195,40,11,0)="16^A/E AWARD AMOUNT^3"
^DIST(.404,195,40,11,1)="71.6"
^DIST(.404,195,40,11,2)="3,71^7^3,37"
^DIST(.404,195,40,11,4)="^^1"
^DIST(.404,195,40,12,0)="17^A/E SA ADDITIONS (#)^3"
^DIST(.404,195,40,12,1)="77"
^DIST(.404,195,40,12,2)="5,60^3^5,37"
^DIST(.404,195,40,12,4)="^^1"
^DIST(.404,195,40,13,0)="18^($)^3"
^DIST(.404,195,40,13,1)="78"
^DIST(.404,195,40,13,2)="5,71^7^5,66"
^DIST(.404,195,40,13,4)="^^1"
^DIST(.404,195,40,14,0)="19^A/E SA DEDUCTIONS (#)^3"
^DIST(.404,195,40,14,1)="79"
^DIST(.404,195,40,14,2)="6,60^3^6,37"
^DIST(.404,195,40,14,4)="^^1"
^DIST(.404,195,40,15,0)="20^($)^3"
^DIST(.404,195,40,15,1)="80"
^DIST(.404,195,40,15,2)="6,71^7^6,66"
^DIST(.404,195,40,15,4)="^^1"
^DIST(.404,195,40,19,0)="14^-------^1"
^DIST(.404,195,40,19,2)="^^12,25"
^DIST(.404,195,40,20,0)="21^-------^1"
^DIST(.404,195,40,20,2)="^^7,71"
^DIST(.404,195,40,21,0)="15^A/E SUBTOTAL^4"
^DIST(.404,195,40,21,2)="13,25^7^13,1"
^DIST(.404,195,40,21,4)="^^1"
^DIST(.404,195,40,21,30)="S Y={71.7}+{72}+{72.3}+{72.5}+{73}+{74}+{75}+{75.5}"
^DIST(.404,195,40,22,0)="22^A/E SA NET^4^^AESANET"
^DIST(.404,195,40,22,2)="8,71^7^8,37"
^DIST(.404,195,40,22,4)="^^1"
^DIST(.404,195,40,22,30)="S Y={78}-{80}"
^DIST(.404,195,40,23,0)="23^-------^1"
^DIST(.404,195,40,23,2)="^^10,71"
^DIST(.404,195,40,24,0)="24^A/E OBLIGATED $^4"
^DIST(.404,195,40,24,2)="11,71^7^11,37"
^DIST(.404,195,40,24,4)="^^1"
^DIST(.404,195,40,24,30)="S Y={71.6}+{FO(AESANET)}"
^DIST(.404,195,40,25,0)="25^A/E Award Breakdown^1"
^DIST(.404,195,40,25,2)="^^3,5"
^DIST(.404,195,40,"B",1,1)=""
^DIST(.404,195,40,"B",3,2)=""
^DIST(.404,195,40,"B",6,3)=""
^DIST(.404,195,40,"B",7,4)=""
^DIST(.404,195,40,"B",8,5)=""
^DIST(.404,195,40,"B",9,6)=""
^DIST(.404,195,40,"B",10,7)=""
^DIST(.404,195,40,"B",11,8)=""
^DIST(.404,195,40,"B",12,9)=""
^DIST(.404,195,40,"B",13,10)=""
^DIST(.404,195,40,"B",14,19)=""
^DIST(.404,195,40,"B",15,21)=""
^DIST(.404,195,40,"B",16,11)=""
^DIST(.404,195,40,"B",17,12)=""
^DIST(.404,195,40,"B",18,13)=""
^DIST(.404,195,40,"B",19,14)=""
^DIST(.404,195,40,"B",20,15)=""
^DIST(.404,195,40,"B",21,20)=""
^DIST(.404,195,40,"B",22,22)=""
^DIST(.404,195,40,"B",23,23)=""
^DIST(.404,195,40,"B",24,24)=""
^DIST(.404,195,40,"B",25,25)=""
^DIST(.404,195,40,"C","($)",13)=""
^DIST(.404,195,40,"C","($)",15)=""
^DIST(.404,195,40,"C","-------",19)=""
^DIST(.404,195,40,"C","-------",20)=""
^DIST(.404,195,40,"C","-------",23)=""
^DIST(.404,195,40,"C","A/E AWARD AMOUNT",11)=""
^DIST(.404,195,40,"C","A/E AWARD BREAKDOWN",25)=""
^DIST(.404,195,40,"C","A/E CONST DOCUMENTS",7)=""
^DIST(.404,195,40,"C","A/E CONST PER SERVCS",9)=""
^DIST(.404,195,40,"C","A/E CONTRACT #",1)=""
^DIST(.404,195,40,"C","A/E DESIGN DEVELOPMENT",6)=""
^DIST(.404,195,40,"C","A/E NAME",2)=""
^DIST(.404,195,40,"C","A/E OBLIGATED $",24)=""
^DIST(.404,195,40,"C","A/E OTHER SERVICES",10)=""
^DIST(.404,195,40,"C","A/E SA ADDITIONS (#)",12)=""
^DIST(.404,195,40,"C","A/E SA DEDUCTIONS (#)",14)=""
^DIST(.404,195,40,"C","A/E SA NET",22)=""
^DIST(.404,195,40,"C","A/E SCHEMATICS",4)=""
^DIST(.404,195,40,"C","A/E SITE SURVEY",5)=""
^DIST(.404,195,40,"C","A/E SITE VISITS",8)=""
^DIST(.404,195,40,"C","A/E STUDY",3)=""
^DIST(.404,195,40,"C","A/E SUBTOTAL",21)=""
^DIST(.404,195,40,"D","AESANET",22)=""
^DIST(.404,196,0)="ENPRCO^6925"
^DIST(.404,196,40,0)="^.4044I^18^14"
^DIST(.404,196,40,1,0)="1^CONST. CONTRACT #^3"
^DIST(.404,196,40,1,1)="105"
^DIST(.404,196,40,1,2)="1,20^15^1,1"
^DIST(.404,196,40,3,0)="3^CONTR. NAME^3"
^DIST(.404,196,40,3,1)="115"
^DIST(.404,196,40,3,2)="1,49^30^1,36"
^DIST(.404,196,40,6,0)="6^CONSTRUCTION AWARD^3"
^DIST(.404,196,40,6,1)="106"
^DIST(.404,196,40,6,2)="3,71^8^3,36"
^DIST(.404,196,40,6,4)="^^1"
^DIST(.404,196,40,7,0)="7^CONST SA ADDITIONS (#)^3"
^DIST(.404,196,40,7,1)="125"
^DIST(.404,196,40,7,2)="5,27^3^5,2"
^DIST(.404,196,40,7,4)="^^1"
^DIST(.404,196,40,8,0)="8^CONST SA ADDITIONS ($)^3"
^DIST(.404,196,40,8,1)="126"
^DIST(.404,196,40,8,2)="5,62^7^5,36"
^DIST(.404,196,40,8,4)="^^1"
^DIST(.404,196,40,9,0)="9^CONST SA DEDUCTIONS (#)^3"
^DIST(.404,196,40,9,1)="127"
^DIST(.404,196,40,9,2)="6,27^3^6,2"
^DIST(.404,196,40,9,4)="^^1"
^DIST(.404,196,40,10,0)="10^CONST SA DEDUCTIONS ($)^3"
^DIST(.404,196,40,10,1)="128"
^DIST(.404,196,40,10,2)="6,62^7^6,36"
^DIST(.404,196,40,10,4)="^^1"
^DIST(.404,196,40,12,0)="12^CONST SA NET^4^^COSANET"
^DIST(.404,196,40,12,2)="7,72^7^7,36"
^DIST(.404,196,40,12,4)="^^1"
^DIST(.404,196,40,12,30)="S Y={126}-{128}"
^DIST(.404,196,40,13,0)="16^--------^1"
^DIST(.404,196,40,13,2)="^^13,71"
^DIST(.404,196,40,14,0)="17^TOTAL CONST OBLIGATION^4"
^DIST(.404,196,40,14,2)="14,71^8^14,36"
^DIST(.404,196,40,14,4)="^^1"
^DIST(.404,196,40,14,30)="S Y={106}+{FO(COSANET)}+{FO(P&HNET)}"
^DIST(.404,196,40,15,0)="13^P&H LABOR TO DATE^3"
^DIST(.404,196,40,15,1)="107"
^DIST(.404,196,40,15,2)="9,62^7^9,36"
^DIST(.404,196,40,15,4)="^^1"
^DIST(.404,196,40,16,0)="14^P&H MATERIALS TO DATE^3"
^DIST(.404,196,40,16,1)="108"
^DIST(.404,196,40,16,2)="10,62^7^10,36"
^DIST(.404,196,40,16,4)="^^1"
^DIST(.404,196,40,17,0)="15^TOTAL P&H^4^^P&HNET"
^DIST(.404,196,40,17,2)="11,72^7^11,36"
^DIST(.404,196,40,17,4)="^^1"
^DIST(.404,196,40,17,30)="S Y={107}+{108}"
^DIST(.404,196,40,18,0)="11^TIME EXTENSION (DAYS)^3"
^DIST(.404,196,40,18,1)="129.1"
^DIST(.404,196,40,18,2)="7,25^3^7,2"
^DIST(.404,196,40,"B",1,1)=""
^DIST(.404,196,40,"B",3,3)=""
^DIST(.404,196,40,"B",6,6)=""
^DIST(.404,196,40,"B",7,7)=""
^DIST(.404,196,40,"B",8,8)=""
^DIST(.404,196,40,"B",9,9)=""
^DIST(.404,196,40,"B",10,10)=""
^DIST(.404,196,40,"B",11,18)=""
^DIST(.404,196,40,"B",12,12)=""
^DIST(.404,196,40,"B",13,15)=""
^DIST(.404,196,40,"B",14,16)=""
^DIST(.404,196,40,"B",15,17)=""
^DIST(.404,196,40,"B",16,13)=""
^DIST(.404,196,40,"B",17,14)=""
^DIST(.404,196,40,"C","--------",13)=""
^DIST(.404,196,40,"C","CONST SA ADDITIONS (#)",7)=""
^DIST(.404,196,40,"C","CONST SA ADDITIONS ($)",8)=""
^DIST(.404,196,40,"C","CONST SA DEDUCTIONS (#)",9)=""
^DIST(.404,196,40,"C","CONST SA DEDUCTIONS ($)",10)=""
^DIST(.404,196,40,"C","CONST SA NET",12)=""
^DIST(.404,196,40,"C","CONST. CONTRACT #",1)=""
^DIST(.404,196,40,"C","CONSTRUCTION AWARD",6)=""
^DIST(.404,196,40,"C","CONTR. NAME",3)=""
^DIST(.404,196,40,"C","P&H LABOR TO DATE",15)=""
^DIST(.404,196,40,"C","P&H MATERIALS TO DATE",16)=""
^DIST(.404,196,40,"C","TIME EXTENSION (DAYS)",18)=""
^DIST(.404,196,40,"C","TOTAL CONST OBLIGATION",14)=""
^DIST(.404,196,40,"C","TOTAL P&H",17)=""
^DIST(.404,196,40,"D","COSANET",12)=""
^DIST(.404,196,40,"D","P&HNET",17)=""
^DIST(.404,197,0)="ENPRCH^6925"
^DIST(.404,197,40,0)="^.4044I^5^5"
^DIST(.404,197,40,1,0)="1^REMARKS^3"
^DIST(.404,197,40,1,1)="145"
^DIST(.404,197,40,1,2)="1,10^1^1,1"
^DIST(.404,197,40,2,0)="3^PROGRESS NOTE (Press <PF1>Z for zoom editor)^3"
^DIST(.404,197,40,2,1)="146"
^DIST(.404,197,40,2,2)="6,3^76^5,1"
^DIST(.404,197,40,3,0)="4^REPORTING PERIOD (Month/Year)^3"
^DIST(.404,197,40,3,1)="1"
^DIST(.404,197,40,3,2)="8,32^11^8,1"
^DIST(.404,197,40,4,0)="5^MONTHLY UPDATES^3"
^DIST(.404,197,40,4,1)="2.5"
^DIST(.404,197,40,4,2)="10,18^3^10,1"
^DIST(.404,197,40,5,0)="2^Reload Previous Progress Note^2^^LOADNOTE"
^DIST(.404,197,40,5,2)="3,32^1^3,1"
^DIST(.404,197,40,5,13)="D RPNPSC^ENPROJF"
^DIST(.404,197,40,5,20)="Y"
^DIST(.404,197,40,5,21,0)="^^2^2^2970428^"
^DIST(.404,197,40,5,21,1,0)="Enter YES if you want to reload the previous progress note into the"
^DIST(.404,197,40,5,21,2,0)="PROGRESS NOTE field."
^DIST(.404,197,40,"B",1,1)=""
^DIST(.404,197,40,"B",2,5)=""
^DIST(.404,197,40,"B",3,2)=""
^DIST(.404,197,40,"B",4,3)=""
^DIST(.404,197,40,"B",5,4)=""
^DIST(.404,197,40,"C","MONTHLY UPDATES",4)=""
^DIST(.404,197,40,"C","PROGRESS NOTE (PRESS <PF1>Z FOR ZOOM EDITOR)",2)=""
^DIST(.404,197,40,"C","RELOAD PREVIOUS PROGRESS NOTE",5)=""
^DIST(.404,197,40,"C","REMARKS",1)=""
^DIST(.404,197,40,"C","REPORTING PERIOD (MONTH/YEAR)",3)=""
^DIST(.404,197,40,"D","LOADNOTE",5)=""
^DIST(.404,198,0)="ENPRMS1^6925"
^DIST(.404,198,11)="D HLP^DDSUTL(""Milestones not applicable to this project are followed by '(NA)' and will not be sent to VACO"")"
^DIST(.404,198,12)=""
^DIST(.404,198,40,0)="^.4044I^72^72"
^DIST(.404,198,40,1,0)="52^^3"
^DIST(.404,198,40,1,1)="20"
^DIST(.404,198,40,1,2)="3,27^11"
^DIST(.404,198,40,2,0)="2^Planned^1"
^DIST(.404,198,40,2,2)="^^1,27"
^DIST(.404,198,40,3,0)="1^Milestone^1"
^DIST(.404,198,40,3,2)="^^1,1"
^DIST(.404,198,40,4,0)="6^--------------------^1"
^DIST(.404,198,40,4,2)="^^2,1"
^DIST(.404,198,40,5,0)="7^-----------^1"
^DIST(.404,198,40,5,2)="^^2,27"
^DIST(.404,198,40,6,0)="8^-----------^1"
^DIST(.404,198,40,6,2)="^^2,40"
^DIST(.404,198,40,7,0)="9^-----------^1"
^DIST(.404,198,40,7,2)="^^2,53"
^DIST(.404,198,40,8,0)="3^Revised^1"
^DIST(.404,198,40,8,2)="^^1,40"
^DIST(.404,198,40,9,0)="4^Actual^1"
^DIST(.404,198,40,9,2)="^^1,53"
^DIST(.404,198,40,10,0)="5^% COMP^1"
^DIST(.404,198,40,10,2)="^^1,66"
^DIST(.404,198,40,11,0)="10^------^1"
^DIST(.404,198,40,11,2)="^^2,66"
^DIST(.404,198,40,12,0)="11^DESIGN PROGRAM START^1"
^DIST(.404,198,40,12,2)="^^3,1"
^DIST(.404,198,40,13,0)="13^DESIGN PROGRAM COMPL^1"
^DIST(.404,198,40,13,2)="^^4,1"
^DIST(.404,198,40,14,0)="15^AUTHORIZED^1"
^DIST(.404,198,40,14,2)="^^5,1"
^DIST(.404,198,40,15,0)="17^ADVERTISE FOR A/E^1"
^DIST(.404,198,40,15,2)="^^6,1"
^DIST(.404,198,40,16,0)="19^SELECT A/E^1"
^DIST(.404,198,40,16,2)="^^7,1"
^DIST(.404,198,40,17,0)="21^A/E AWARD^1"
^DIST(.404,198,40,17,2)="^^8,1"
^DIST(.404,198,40,18,0)="23^START SCHEMATICS^1"
^DIST(.404,198,40,18,2)="^^9,1"
^DIST(.404,198,40,19,0)="25^COMPLETE SCHEMATICS^1"
^DIST(.404,198,40,19,2)="^^10,1"
^DIST(.404,198,40,20,0)="27^START DESIGN DEV.^1"
^DIST(.404,198,40,20,2)="^^11,1"
^DIST(.404,198,40,21,0)="29^COMPL. DESIGN DEV.^1"
^DIST(.404,198,40,21,2)="^^12,1"
^DIST(.404,198,40,22,0)="31^START/AWARD CD^1"
^DIST(.404,198,40,22,2)="^^13,1"
^DIST(.404,198,40,23,0)="33^COMPLETE CONST. DOC.^1"
^DIST(.404,198,40,23,2)="^^14,1"
^DIST(.404,198,40,24,0)="64^^3"
^DIST(.404,198,40,24,1)="34"
^DIST(.404,198,40,24,2)="3,40^11"
^DIST(.404,198,40,25,0)="76^^3"
^DIST(.404,198,40,25,1)="49"
^DIST(.404,198,40,25,2)="3,53^11"
^DIST(.404,198,40,25,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<4) PUT^DDSVAL(6925,DA,6,""6"","""",""I"")"
^DIST(.404,198,40,26,0)="53^^3"
^DIST(.404,198,40,26,1)="20.1"
^DIST(.404,198,40,26,2)="4,27^11"
^DIST(.404,198,40,27,0)="55^^3"
^DIST(.404,198,40,27,1)="20.3"
^DIST(.404,198,40,27,2)="6,27^11"
^DIST(.404,198,40,28,0)="56^^3"
^DIST(.404,198,40,28,1)="20.4"
^DIST(.404,198,40,28,2)="7,27^11"
^DIST(.404,198,40,29,0)="57^^3"
^DIST(.404,198,40,29,1)="20.5"
^DIST(.404,198,40,29,2)="8,27^11"
^DIST(.404,198,40,30,0)="58^^3"
^DIST(.404,198,40,30,1)="21"
^DIST(.404,198,40,30,2)="9,27^11"
^DIST(.404,198,40,31,0)="59^^3"
^DIST(.404,198,40,31,1)="22"
^DIST(.404,198,40,31,2)="10,27^11"
^DIST(.404,198,40,32,0)="60^^3"
^DIST(.404,198,40,32,1)="22.5"
^DIST(.404,198,40,32,2)="11,27^11"
^DIST(.404,198,40,33,0)="61^^3"
^DIST(.404,198,40,33,1)="22.6"
^DIST(.404,198,40,33,2)="12,27^11"
^DIST(.404,198,40,34,0)="62^^3"
^DIST(.404,198,40,34,1)="23"
^DIST(.404,198,40,34,2)="13,27^11"
^DIST(.404,198,40,35,0)="63^^3"
^DIST(.404,198,40,35,1)="24"
^DIST(.404,198,40,35,2)="14,27^11"
^DIST(.404,198,40,36,0)="65^^3"
^DIST(.404,198,40,36,1)="34.1"
^DIST(.404,198,40,36,2)="4,40^11"
^DIST(.404,198,40,37,0)="67^^3"
^DIST(.404,198,40,37,1)="34.3"
^DIST(.404,198,40,37,2)="6,40^11"
^DIST(.404,198,40,38,0)="68^^3"
^DIST(.404,198,40,38,1)="34.4"
^DIST(.404,198,40,38,2)="7,40^11"
^DIST(.404,198,40,39,0)="69^^3"
^DIST(.404,198,40,39,1)="34.5"
^DIST(.404,198,40,39,2)="8,40^11"
^DIST(.404,198,40,40,0)="70^^3"
^DIST(.404,198,40,40,1)="35"
^DIST(.404,198,40,40,2)="9,40^11"
^DIST(.404,198,40,41,0)="71^^3"
^DIST(.404,198,40,41,1)="36"
^DIST(.404,198,40,41,2)="10,40^11"
^DIST(.404,198,40,42,0)="72^^3"
^DIST(.404,198,40,42,1)="36.1"
^DIST(.404,198,40,42,2)="11,40^11"
^DIST(.404,198,40,43,0)="73^^3"
^DIST(.404,198,40,43,1)="36.2"
^DIST(.404,198,40,43,2)="12,40^11"
^DIST(.404,198,40,44,0)="74^^3"
^DIST(.404,198,40,44,1)="37"
^DIST(.404,198,40,44,2)="13,40^11"
^DIST(.404,198,40,45,0)="75^^3"
^DIST(.404,198,40,45,1)="38"
^DIST(.404,198,40,45,2)="14,40^11"
^DIST(.404,198,40,46,0)="78^^3"
^DIST(.404,198,40,46,1)="49.1"
^DIST(.404,198,40,46,2)="4,53^11"
^DIST(.404,198,40,46,13)="D:X]"""" PUT^DDSVAL(6925,DA,13,""100"")"
^DIST(.404,198,40,47,0)="82^^3"
^DIST(.404,198,40,47,1)="51"
^DIST(.404,198,40,47,2)="6,53^11"
^DIST(.404,198,40,48,0)="80^^3"
^DIST(.404,198,40,48,1)="50"
^DIST(.404,198,40,48,2)="5,53^11"
^DIST(.404,198,40,48,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<5) PUT^DDSVAL(6925,DA,6,""12"","""",""I"")"
^DIST(.404,198,40,49,0)="84^^3"
^DIST(.404,198,40,49,1)="52"
^DIST(.404,198,40,49,2)="7,53^11"
^DIST(.404,198,40,49,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<6) PUT^DDSVAL(6925,DA,6,""8"","""",""I"")"
^DIST(.404,198,40,50,0)="86^^3"
^DIST(.404,198,40,50,1)="53"
^DIST(.404,198,40,50,2)="8,53^11"
^DIST(.404,198,40,51,0)="88^^3"
^DIST(.404,198,40,51,1)="54"
^DIST(.404,198,40,51,2)="9,53^11"
^DIST(.404,198,40,51,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<7) PUT^DDSVAL(6925,DA,6,""9"","""",""I"")"
^DIST(.404,198,40,52,0)="90^^3"
^DIST(.404,198,40,52,1)="55"
^DIST(.404,198,40,52,2)="10,53^11"
^DIST(.404,198,40,52,13)="D:X]"""" PUT^DDSVAL(6925,DA,9,""100"")"
^DIST(.404,198,40,53,0)="92^^3"
^DIST(.404,198,40,53,1)="55.5"
^DIST(.404,198,40,53,2)="11,53^11"
^DIST(.404,198,40,53,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<8) PUT^DDSVAL(6925,DA,6,""10"","""",""I"")"
^DIST(.404,198,40,54,0)="94^^3"
^DIST(.404,198,40,54,1)="55.6"
^DIST(.404,198,40,54,2)="12,53^11"
^DIST(.404,198,40,54,13)="D:X]"""" PUT^DDSVAL(6925,DA,12,""100"")"
^DIST(.404,198,40,55,0)="96^^3"
^DIST(.404,198,40,55,1)="56"
^DIST(.404,198,40,55,2)="13,53^11"
^DIST(.404,198,40,55,13)="D:X]""""&($$GET^DDSVAL(6925,DA,""6:3"")<9) PUT^DDSVAL(6925,DA,6,""11"","""",""I"")"
^DIST(.404,198,40,56,0)="98^^3"
^DIST(.404,198,40,56,1)="57"
^DIST(.404,198,40,56,2)="14,53^11"
^DIST(.404,198,40,56,13)="D:X]"""" PUT^DDSVAL(6925,DA,10,""100"")"
^DIST(.404,198,40,57,0)="79^^3"
^DIST(.404,198,40,57,1)="13"
^DIST(.404,198,40,57,2)="4,66^3"
^DIST(.404,198,40,57,4)="^^1"
^DIST(.404,198,40,58,0)="91^^3"
^DIST(.404,198,40,58,1)="9"
^DIST(.404,198,40,58,2)="10,66^3"
^DIST(.404,198,40,58,4)="^^1"
^DIST(.404,198,40,59,0)="95^^3"
^DIST(.404,198,40,59,1)="12"
^DIST(.404,198,40,59,2)="12,66^3"
^DIST(.404,198,40,59,4)="^^1"
^DIST(.404,198,40,60,0)="99^^3"
^DIST(.404,198,40,60,1)="10"
^DIST(.404,198,40,60,2)="14,66^3"
^DIST(.404,198,40,60,4)="^^1"
^DIST(.404,198,40,61,0)="12^!M^1"
^DIST(.404,198,40,61,.1)="S Y=$S('$P($G(ENMSOK),U,1):""(NA)"",1:"""")"
^DIST(.404,198,40,61,2)="^^3,22"
^DIST(.404,198,40,62,0)="14^!M^1"
^DIST(.404,198,40,62,.1)="S Y=$S('$P($G(ENMSOK),U,2):""(NA)"",1:"""")"
^DIST(.404,198,40,62,2)="^^4,22"
^DIST(.404,198,40,63,0)="16^!M^1"
^DIST(.404,198,40,63,.1)="S Y=$S('$P($G(ENMSOK),U,3):""(NA)"",1:"""")"
^DIST(.404,198,40,63,2)="^^5,22"
^DIST(.404,198,40,64,0)="18^!M^1"
^DIST(.404,198,40,64,.1)="S Y=$S('$P($G(ENMSOK),U,4):""(NA)"",1:"""")"
^DIST(.404,198,40,64,2)="^^6,22"
^DIST(.404,198,40,65,0)="20^!M^1"
^DIST(.404,198,40,65,.1)="S Y=$S('$P($G(ENMSOK),U,5):""(NA)"",1:"""")"
^DIST(.404,198,40,65,2)="^^7,22"
^DIST(.404,198,40,66,0)="22^!M^1"
^DIST(.404,198,40,66,.1)="S Y=$S('$P($G(ENMSOK),U,6):""(NA)"",1:"""")"
^DIST(.404,198,40,66,2)="^^8,22"
^DIST(.404,198,40,67,0)="24^!M^1"
^DIST(.404,198,40,67,.1)="S Y=$S('$P($G(ENMSOK),U,7):""(NA)"",1:"""")"
^DIST(.404,198,40,67,2)="^^9,22"
^DIST(.404,198,40,68,0)="26^!M^1"
^DIST(.404,198,40,68,.1)="S Y=$S('$P($G(ENMSOK),U,8):""(NA)"",1:"""")"
^DIST(.404,198,40,68,2)="^^10,22"
^DIST(.404,198,40,69,0)="28^!M^1"
^DIST(.404,198,40,69,.1)="S Y=$S('$P($G(ENMSOK),U,9):""(NA)"",1:"""")"
^DIST(.404,198,40,69,2)="^^11,22"
^DIST(.404,198,40,70,0)="30^!M^1"
^DIST(.404,198,40,70,.1)="S Y=$S('$P($G(ENMSOK),U,10):""(NA)"",1:"""")"
^DIST(.404,198,40,70,2)="^^12,22"
^DIST(.404,198,40,71,0)="32^!M^1"
^DIST(.404,198,40,71,.1)="S Y=$S('$P($G(ENMSOK),U,11):""(NA)"",1:"""")"
^DIST(.404,198,40,71,2)="^^13,22"
^DIST(.404,198,40,72,0)="34^!M^1"
^DIST(.404,198,40,72,.1)="S Y=$S('$P($G(ENMSOK),U,12):""(NA)"",1:"""")"
^DIST(.404,198,40,72,2)="^^14,22"
^DIST(.404,198,40,"B",1,3)=""
^DIST(.404,198,40,"B",2,2)=""
^DIST(.404,198,40,"B",3,8)=""
^DIST(.404,198,40,"B",4,9)=""
^DIST(.404,198,40,"B",5,10)=""
^DIST(.404,198,40,"B",6,4)=""
^DIST(.404,198,40,"B",7,5)=""
^DIST(.404,198,40,"B",8,6)=""
^DIST(.404,198,40,"B",9,7)=""
^DIST(.404,198,40,"B",10,11)=""
^DIST(.404,198,40,"B",11,12)=""
^DIST(.404,198,40,"B",12,61)=""
^DIST(.404,198,40,"B",13,13)=""
^DIST(.404,198,40,"B",14,62)=""
^DIST(.404,198,40,"B",15,14)=""
^DIST(.404,198,40,"B",16,63)=""
^DIST(.404,198,40,"B",17,15)=""
^DIST(.404,198,40,"B",18,64)=""
^DIST(.404,198,40,"B",19,16)=""
^DIST(.404,198,40,"B",20,65)=""
^DIST(.404,198,40,"B",21,17)=""
^DIST(.404,198,40,"B",22,66)=""
^DIST(.404,198,40,"B",23,18)=""
^DIST(.404,198,40,"B",24,67)=""
^DIST(.404,198,40,"B",25,19)=""
^DIST(.404,198,40,"B",26,68)=""
^DIST(.404,198,40,"B",27,20)=""
^DIST(.404,198,40,"B",28,69)=""
^DIST(.404,198,40,"B",29,21)=""
^DIST(.404,198,40,"B",30,70)=""
^DIST(.404,198,40,"B",31,22)=""
^DIST(.404,198,40,"B",32,71)=""
^DIST(.404,198,40,"B",33,23)=""
^DIST(.404,198,40,"B",34,72)=""
^DIST(.404,198,40,"B",52,1)=""
^DIST(.404,198,40,"B",53,26)=""
^DIST(.404,198,40,"B",55,27)=""
^DIST(.404,198,40,"B",56,28)=""
^DIST(.404,198,40,"B",57,29)=""
^DIST(.404,198,40,"B",58,30)=""
^DIST(.404,198,40,"B",59,31)=""
^DIST(.404,198,40,"B",60,32)=""
^DIST(.404,198,40,"B",61,33)=""
^DIST(.404,198,40,"B",62,34)=""
^DIST(.404,198,40,"B",63,35)=""
^DIST(.404,198,40,"B",64,24)=""
^DIST(.404,198,40,"B",65,36)=""
^DIST(.404,198,40,"B",67,37)=""
^DIST(.404,198,40,"B",68,38)=""
^DIST(.404,198,40,"B",69,39)=""
^DIST(.404,198,40,"B",70,40)=""
^DIST(.404,198,40,"B",71,41)=""
^DIST(.404,198,40,"B",72,42)=""
^DIST(.404,198,40,"B",73,43)=""
^DIST(.404,198,40,"B",74,44)=""
^DIST(.404,198,40,"B",75,45)=""
^DIST(.404,198,40,"B",76,25)=""
^DIST(.404,198,40,"B",78,46)=""
^DIST(.404,198,40,"B",79,57)=""
^DIST(.404,198,40,"B",80,48)=""
^DIST(.404,198,40,"B",82,47)=""
^DIST(.404,198,40,"B",84,49)=""
^DIST(.404,198,40,"B",86,50)=""
^DIST(.404,198,40,"B",88,51)=""
^DIST(.404,198,40,"B",90,52)=""
^DIST(.404,198,40,"B",91,58)=""
^DIST(.404,198,40,"B",92,53)=""
^DIST(.404,198,40,"B",94,54)=""
^DIST(.404,198,40,"B",95,59)=""
^DIST(.404,198,40,"B",96,55)=""
^DIST(.404,198,40,"B",98,56)=""
^DIST(.404,198,40,"B",99,60)=""
^DIST(.404,198,40,"C","% COMP",10)=""
^DIST(.404,198,40,"C","------",11)=""
^DIST(.404,198,40,"C","-----------",5)=""
^DIST(.404,198,40,"C","-----------",6)=""
^DIST(.404,198,40,"C","-----------",7)=""
^DIST(.404,198,40,"C","--------------------",4)=""
^DIST(.404,198,40,"C","A/E AWARD",17)=""
^DIST(.404,198,40,"C","ACTUAL",9)=""
^DIST(.404,198,40,"C","ADVERTISE FOR A/E",15)=""
^DIST(.404,198,40,"C","AUTHORIZED",14)=""
^DIST(.404,198,40,"C","COMPL. DESIGN DEV.",21)=""
^DIST(.404,198,40,"C","COMPLETE CONST. DOC.",23)=""
^DIST(.404,198,40,"C","COMPLETE SCHEMATICS",19)=""
^DIST(.404,198,40,"C","DESIGN PROGRAM COMPL",13)=""
^DIST(.404,198,40,"C","DESIGN PROGRAM START",12)=""
^DIST(.404,198,40,"C","MILESTONE",3)=""
^DIST(.404,198,40,"C","PLANNED",2)=""
^DIST(.404,198,40,"C","REVISED",8)=""
^DIST(.404,198,40,"C","SELECT A/E",16)=""
^DIST(.404,198,40,"C","START DESIGN DEV.",20)=""
^DIST(.404,198,40,"C","START SCHEMATICS",18)=""
^DIST(.404,198,40,"C","START/AWARD CD",22)=""
^DIST(.404,199,0)="MAIN^19"
^DIST(.404,199,15,0)="^^2^2^2971104^"
^DIST(.404,199,15,1,0)="       This block, ""MAIN"", has the fields that every option may have, no"
^DIST(.404,199,15,2,0)="matter what it's type."
^DIST(.404,199,40,0)="^.4044I^10^10"
^DIST(.404,199,40,1,0)="1^Name^3"
^DIST(.404,199,40,1,1)=".01"
^DIST(.404,199,40,1,2)="2,21^30^2,15"
^DIST(.404,199,40,1,11)="D H^XQOPED(1)"
^DIST(.404,199,40,2,0)="2^Menu Text^3"
^DIST(.404,199,40,2,1)="1"
^DIST(.404,199,40,2,2)="4,13^50^4,2"
^DIST(.404,199,40,2,11)="D H^XQOPED(2)"
^DIST(.404,199,40,3,0)="3^Description^3"
^DIST(.404,199,40,3,1)="3.5"
^DIST(.404,199,40,3,2)="6,15^1^6,2"
^DIST(.404,199,40,3,11)="D H^XQOPED(6)"
^DIST(.404,199,40,4,0)="4^Type^3"
^DIST(.404,199,40,4,1)="4"
^DIST(.404,199,40,4,2)="6,25^15^6,19"
^DIST(.404,199,40,4,11)="D H^XQOPED(11)"
^DIST(.404,199,40,4,13)="S XQTYP=X D CLEAR^XQ5"
^DIST(.404,199,40,5,0)="6^Help Frame^3"
^DIST(.404,199,40,5,1)="3.7"
^DIST(.404,199,40,5,2)="8,14^20^8,2"
^DIST(.404,199,40,5,11)="D H^XQOPED(7)"
^DIST(.404,199,40,6,0)="7^Package^3"
^DIST(.404,199,40,6,1)="12"
^DIST(.404,199,40,6,2)="8,49^20^8,40"
^DIST(.404,199,40,6,11)="D H^XQOPED(74)"
^DIST(.404,199,40,7,0)="5^Is It Delegable^3"
^DIST(.404,199,40,7,1)="13"
^DIST(.404,199,40,7,2)="6,65^3^6,48"
^DIST(.404,199,40,7,3)="Yes"
^DIST(.404,199,40,7,11)="D H^XQOPED(16)"
^DIST(.404,199,40,8,0)="8^Restrictions (Locks, etc.)^2"
^DIST(.404,199,40,8,2)="11,30^3^11,2"
^DIST(.404,199,40,8,3)="NO"
^DIST(.404,199,40,8,10)="S:(X=1) DDSSTACK=2"
^DIST(.404,199,40,8,11)="D H^XQOPED(71)"
^DIST(.404,199,40,8,20)="Y^^"
^DIST(.404,199,40,9,0)="9^Executable Fields (Programmers Only)^2"
^DIST(.404,199,40,9,2)="11,73^3^11,35"
^DIST(.404,199,40,9,3)="NO"
^DIST(.404,199,40,9,10)="I (X=1)&($$CHECK^XQOPED()) S DDSSTACK=3"
^DIST(.404,199,40,9,11)="D H^XQOPED(72)"
^DIST(.404,199,40,9,20)="Y^Y"
^DIST(.404,199,40,10,0)="10^Option-type (Print, Run Routine, etc.) Related Fields^2"
^DIST(.404,199,40,10,2)="13,63^3^13,8"
^DIST(.404,199,40,10,3)="NO"
^DIST(.404,199,40,10,10)="I X=1 S DDSSTACK=$S(""MLOQX""[XQTP:1.1,XQTP=""E"":1.2,XQTP=""P"":1.3,XQTP=""I"":1.5,XQTP=""R"":1.6,XQTP=""S"":1.7,XQTP=""C"":1.8,XQTP=""A"":1.9,XQTP=""B"":12,XQTP=""W"":10.2,XQTP=""Z"":10.3,1:1)"
^DIST(.404,199,40,10,11)="S XQTP=$$GET^DDSVAL(DIE,.DA,4) D H^XQOPED(73)"
^DIST(.404,199,40,10,20)="Y"
^DIST(.404,199,40,"B",1,1)=""
^DIST(.404,199,40,"B",2,2)=""
^DIST(.404,199,40,"B",3,3)=""
^DIST(.404,199,40,"B",4,4)=""
^DIST(.404,199,40,"B",5,7)=""
^DIST(.404,199,40,"B",6,5)=""
^DIST(.404,199,40,"B",7,6)=""
^DIST(.404,199,40,"B",8,8)=""
^DIST(.404,199,40,"B",9,9)=""
^DIST(.404,199,40,"B",10,10)=""
^DIST(.404,199,40,"C","DESCRIPTION",3)=""
^DIST(.404,199,40,"C","EXECUTABLE FIELDS (PROGRAMMERS ONLY)",9)=""
^DIST(.404,199,40,"C","HELP FRAME",5)=""
^DIST(.404,199,40,"C","IS IT DELEGABLE",7)=""
^DIST(.404,199,40,"C","MENU TEXT",2)=""
^DIST(.404,199,40,"C","NAME",1)=""
^DIST(.404,199,40,"C","OPTION-TYPE (PRINT, RUN ROUTINE, ETC.) RELATED FIELDS",10)=""
^DIST(.404,199,40,"C","PACKAGE",6)=""
^DIST(.404,199,40,"C","RESTRICTIONS (LOCKS, ETC.)",8)=""
^DIST(.404,199,40,"C","TYPE",4)=""
^DIST(.404,200,0)="Restrictions^19"
^DIST(.404,200,40,0)="^.4044I^14^9"
^DIST(.404,200,40,1,0)="3^Lock^3"
^DIST(.404,200,40,1,1)="3"
^DIST(.404,200,40,1,2)="5,7^26^5,1"
^DIST(.404,200,40,1,11)="D H^XQOPED(4)"
^DIST(.404,200,40,2,0)="2^Out-Of-Order Message^3"
^DIST(.404,200,40,2,1)="2"
^DIST(.404,200,40,2,2)="3,23^50^3,1"
^DIST(.404,200,40,2,11)="D H^XQOPED(3)"
^DIST(.404,200,40,3,0)="4^Reverse Lock^3"
^DIST(.404,200,40,3,1)="3.01"
^DIST(.404,200,40,3,2)="5,48^25^5,34"
^DIST(.404,200,40,3,11)="D H^XQOPED(5)"
^DIST(.404,200,40,9,0)="5^Protected Variables^3"
^DIST(.404,200,40,9,1)="1840"
^DIST(.404,200,40,9,2)="7,22^51^7,1"
^DIST(.404,200,40,9,11)="D H^XQOPED(75)"
^DIST(.404,200,40,10,0)="6^Restrict days/times option can run?^2"
^DIST(.404,200,40,10,.1)=""
^DIST(.404,200,40,10,2)="11,53^1^11,16"
^DIST(.404,200,40,10,3)="NO"
^DIST(.404,200,40,10,3.1)=""
^DIST(.404,200,40,10,10)="S:(X=1) DDSSTACK=2.1"
^DIST(.404,200,40,10,11)="D H^XQOPED(8)"
^DIST(.404,200,40,10,20)="Y"
^DIST(.404,200,40,10,21,0)="^^2^2^2971118^"
^DIST(.404,200,40,10,21,1,0)="    Answer ""Y"" or ""Yes"" if you want to restrict the times this option can"
^DIST(.404,200,40,10,21,2,0)="be envoked by the user."
^DIST(.404,200,40,11,0)="7^Restrict Option to Selected Devices?^2"
^DIST(.404,200,40,11,.1)=""
^DIST(.404,200,40,11,2)="13,54^1^13,16"
^DIST(.404,200,40,11,3)="NO"
^DIST(.404,200,40,11,3.1)=""
^DIST(.404,200,40,11,10)="S:(X=1) DDSSTACK=2.2"
^DIST(.404,200,40,11,20)="Y"
^DIST(.404,200,40,12,0)="8^Require Output Queuing Certain Days/Times?^2"
^DIST(.404,200,40,12,.1)=""
^DIST(.404,200,40,12,2)="15,60^1^15,16"
^DIST(.404,200,40,12,3)="NO"
^DIST(.404,200,40,12,3.1)=""
^DIST(.404,200,40,12,10)="S:(X=1) DDSSTACK=2.3"
^DIST(.404,200,40,12,20)="Y"
^DIST(.404,200,40,13,0)="1^Restricting Option Dynamics^1"
^DIST(.404,200,40,13,2)="^^1,21^1"
^DIST(.404,200,40,14,0)="9^Prevent Menu Redisplay When Finished^3"
^DIST(.404,200,40,14,1)="11"
^DIST(.404,200,40,14,2)="9,39^3^9,1"
^DIST(.404,200,40,14,11)="D H^XQOPED(76)"
^DIST(.404,200,40,"B",1,13)=""
^DIST(.404,200,40,"B",2,2)=""
^DIST(.404,200,40,"B",3,1)=""
^DIST(.404,200,40,"B",4,3)=""
^DIST(.404,200,40,"B",5,9)=""
^DIST(.404,200,40,"B",6,10)=""
^DIST(.404,200,40,"B",7,11)=""
^DIST(.404,200,40,"B",8,12)=""
^DIST(.404,200,40,"B",9,14)=""
^DIST(.404,200,40,"C","LOCK",1)=""
^DIST(.404,200,40,"C","OUT-OF-ORDER MESSAGE",2)=""
^DIST(.404,200,40,"C","PREVENT MENU REDISPLAY WHEN FINISHED",14)=""
^DIST(.404,200,40,"C","PROTECTED VARIABLES",9)=""
^DIST(.404,200,40,"C","REQUIRE OUTPUT QUEUING CERTAIN DAYS/TIMES?",12)=""
^DIST(.404,200,40,"C","RESTRICT DAYS/TIMES OPTION CAN RUN?",10)=""
^DIST(.404,200,40,"C","RESTRICT OPTION TO SELECTED DEVICES?",11)=""
^DIST(.404,200,40,"C","RESTRICTING OPTION DYNAMICS",13)=""
^DIST(.404,200,40,"C","REVERSE LOCK",3)=""
^DIST(.404,201,0)="Executable 1^19"
^DIST(.404,201,40,0)="^.4044I^5^5"
^DIST(.404,201,40,1,0)="1^Entry Action^3"
^DIST(.404,201,40,1,1)="20"
^DIST(.404,201,40,1,2)="1,18^54^1,4"
^DIST(.404,201,40,1,11)="D H^XQOPED(17)"
^DIST(.404,201,40,2,0)="2^XQUIT Message^3"
^DIST(.404,201,40,2,1)="21"
^DIST(.404,201,40,2,2)="3,21^1^3,6"
^DIST(.404,201,40,2,11)="D H^XQOPED(19)"
^DIST(.404,201,40,3,0)="3^XQUIT Executable^3"
^DIST(.404,201,40,3,1)="22"
^DIST(.404,201,40,3,2)="5,24^48^5,6"
^DIST(.404,201,40,3,11)="D H^XQOPED(20)"
^DIST(.404,201,40,4,0)="4^Header^3"
^DIST(.404,201,40,4,1)="26"
^DIST(.404,201,40,4,2)="7,12^60^7,4"
^DIST(.404,201,40,4,11)="D H^XQOPED(21)"
^DIST(.404,201,40,5,0)="5^Exit Action^3"
^DIST(.404,201,40,5,1)="15"
^DIST(.404,201,40,5,2)="9,17^55^9,4"
^DIST(.404,201,40,5,11)="D H^XQOPED(18)"
^DIST(.404,201,40,"B",1,1)=""
^DIST(.404,201,40,"B",2,2)=""
^DIST(.404,201,40,"B",3,3)=""
^DIST(.404,201,40,"B",4,4)=""
^DIST(.404,201,40,"B",5,5)=""
^DIST(.404,201,40,"C","ENTRY ACTION",1)=""
^DIST(.404,201,40,"C","EXIT ACTION",5)=""
^DIST(.404,201,40,"C","HEADER",4)=""
^DIST(.404,201,40,"C","XQUIT EXECUTABLE",3)=""
^DIST(.404,201,40,"C","XQUIT MESSAGE",2)=""
^DIST(.404,202,0)="Menu Multiple^19.01"
^DIST(.404,202,40,0)="^.4044I^3^3"
^DIST(.404,202,40,1,0)="1^^3"
^DIST(.404,202,40,1,1)=".01"
^DIST(.404,202,40,1,2)="1,1^30"
^DIST(.404,202,40,1,11)="D H^XQOPED(13)"
^DIST(.404,202,40,2,0)="2^^3"
^DIST(.404,202,40,2,1)="2"
^DIST(.404,202,40,2,2)="1,35^4"
^DIST(.404,202,40,2,11)="D H^XQOPED(14)"
^DIST(.404,202,40,3,0)="3^^3"
^DIST(.404,202,40,3,1)="3"
^DIST(.404,202,40,3,2)="1,53^5"
^DIST(.404,202,40,3,11)="D H^XQOPED(15)"
^DIST(.404,202,40,"B",1,1)=""
^DIST(.404,202,40,"B",2,2)=""
^DIST(.404,202,40,"B",3,3)=""
^DIST(.404,203,0)="XQEDTOPT DISP1^19^"
^DIST(.404,203,40,0)="^.4044I^1^1"
^DIST(.404,203,40,1,0)="1^Option Name                     Synonym         Display Order^1"
^DIST(.404,203,40,1,2)="^^2,1"
^DIST(.404,203,40,"B",1,1)=""
^DIST(.404,203,40,"C","OPTION NAME                     SYNONYM         DISPLAY ORDER",1)=""
^DIST(.404,204,0)="MAIN TITLE^19^"
^DIST(.404,204,15,0)="^^2^2^2971113^"
^DIST(.404,204,15,1,0)="    This block ""MAIN TITLE"" is the header block for the first, master,"
^DIST(.404,204,15,2,0)="page of the XQEDTOPT screens."
^DIST(.404,204,40,0)="^.4044I^1^1"
^DIST(.404,204,40,1,0)="1^Welcome to the Screen-Based Option Editor^1"
^DIST(.404,204,40,1,2)="^^2,15^1"
^DIST(.404,204,40,"B",1,1)=""
^DIST(.404,204,40,"C","WELCOME TO THE SCREEN-BASED OPTION EDITOR",1)=""
^DIST(.404,205,0)="EDIT header^19^"
^DIST(.404,205,40,0)="^.4044I^1^1"
^DIST(.404,205,40,1,0)="1^Edit-type Option Related Fields^1"
^DIST(.404,205,40,1,2)="^^2,23^1"
^DIST(.404,205,40,"B",1,1)=""
^DIST(.404,205,40,"C","EDIT-TYPE OPTION RELATED FIELDS",1)=""
^DIST(.404,206,0)="EDIT edit block^19"
^DIST(.404,206,40,0)="^.4044I^11^4"
^DIST(.404,206,40,8,0)="3^Global Reference [DIE]^3"
^DIST(.404,206,40,8,1)="50"
^DIST(.404,206,40,8,2)="4,30^39^4,6"
^DIST(.404,206,40,8,11)="D H^XQOPED(35)"
^DIST(.404,206,40,9,0)="4^Fields or Template [DR{DIE}]^3"
^DIST(.404,206,40,9,1)="51"
^DIST(.404,206,40,9,2)="6,36^42^6,6"
^DIST(.404,206,40,9,11)="D H^XQOPED(36)"
^DIST(.404,206,40,10,0)="5^Up-Arrow Control [NO UP-ARROW]^3"
^DIST(.404,206,40,10,1)="53"
^DIST(.404,206,40,10,2)="8,38^23^8,6"
^DIST(.404,206,40,10,11)="D H^XQOPED(37)"
^DIST(.404,206,40,11,0)="1^Do you want to edit DIC variables ?^2"
^DIST(.404,206,40,11,2)="2,43^1^2,6^1"
^DIST(.404,206,40,11,3)="Y"
^DIST(.404,206,40,11,10)="S:(X=1) DDSSTACK=4"
^DIST(.404,206,40,11,11)="D H^XQOPED(77)"
^DIST(.404,206,40,11,20)="Y"
^DIST(.404,206,40,"B",1,11)=""
^DIST(.404,206,40,"B",3,8)=""
^DIST(.404,206,40,"B",4,9)=""
^DIST(.404,206,40,"B",5,10)=""
^DIST(.404,206,40,"C","DO YOU WANT TO EDIT DIC VARIABLES ?",11)=""
^DIST(.404,206,40,"C","FIELDS OR TEMPLATE [DR{DIE}]",9)=""
^DIST(.404,206,40,"C","GLOBAL REFERENCE [DIE]",8)=""
^DIST(.404,206,40,"C","UP-ARROW CONTROL [NO UP-ARROW]",10)=""
^DIST(.404,207,0)="PRINT header^19^"
^DIST(.404,207,40,0)="^.4044I^2^2"
^DIST(.404,207,40,1,0)="1^Print-type Option Related Fields (Page 1 of 2)^1"
^DIST(.404,207,40,1,2)="^^2,18^1"
^DIST(.404,207,40,2,0)="2^Use the PageDown key or <PF1><down arrow> to see page 2^1"
^DIST(.404,207,40,2,2)="^^3,13^1"
^DIST(.404,207,40,"B",1,1)=""
^DIST(.404,207,40,"B",2,2)=""
^DIST(.404,207,40,"C","PRINT-TYPE OPTION RELATED FIELDS (PAGE 1 OF 2)",1)=""
^DIST(.404,207,40,"C","USE THE PAGEDOWN KEY OR <PF1><DOWN ARROW> TO SEE PAGE 2",2)=""
^DIST(.404,208,0)="PRINT edit^19"
^DIST(.404,208,15,0)="^^2^2^2971113^"
^DIST(.404,208,15,1,0)="   This block, PRINT edit, contains the related fields for Print-type"
^DIST(.404,208,15,2,0)="options."
^DIST(.404,208,40,0)="^.4044I^14^13"
^DIST(.404,208,40,1,0)="1^Global Reference [DIC{DIP}]^3"
^DIST(.404,208,40,1,1)="60"
^DIST(.404,208,40,1,2)="2,30^20^2,1"
^DIST(.404,208,40,1,11)="D H^XQOPED(38)"
^DIST(.404,208,40,2,0)="7^Prompt String [L.]^3"
^DIST(.404,208,40,2,1)="62"
^DIST(.404,208,40,2,2)="9,21^59^9,1"
^DIST(.404,208,40,2,3)="0"
^DIST(.404,208,40,2,11)="D H^XQOPED(40)"
^DIST(.404,208,40,3,0)="3^Print fields [FLDS]^3"
^DIST(.404,208,40,3,1)="63"
^DIST(.404,208,40,3,2)="3,22^58^3,1"
^DIST(.404,208,40,3,11)="D H^XQOPED(41)"
^DIST(.404,208,40,4,0)="4^Sort by Fields [BY]^3"
^DIST(.404,208,40,4,1)="64"
^DIST(.404,208,40,4,2)="5,22^58^5,1"
^DIST(.404,208,40,4,11)="D H^XQOPED(42)"
^DIST(.404,208,40,5,0)="5^Start With Values [FR]^3"
^DIST(.404,208,40,5,1)="65"
^DIST(.404,208,40,5,2)="6,25^55^6,1"
^DIST(.404,208,40,5,11)="D H^XQOPED(43)"
^DIST(.404,208,40,6,0)="6^Go To Values [TO]^3"
^DIST(.404,208,40,6,1)="66"
^DIST(.404,208,40,6,2)="7,20^60^7,1"
^DIST(.404,208,40,6,11)="D H^XQOPED(44)"
^DIST(.404,208,40,7,0)="8^Header [DHD]^3"
^DIST(.404,208,40,7,1)="67"
^DIST(.404,208,40,7,2)="10,15^35^10,1"
^DIST(.404,208,40,7,11)="D H^XQOPED(45)"
^DIST(.404,208,40,8,0)="10^Number of Copies [DCOPIES]^3"
^DIST(.404,208,40,8,1)="68"
^DIST(.404,208,40,8,2)="12,31^3^12,3"
^DIST(.404,208,40,8,3)="1"
^DIST(.404,208,40,8,11)="D H^XQOPED(80)"
^DIST(.404,208,40,10,0)="13^Starting Page Number [PG]^3"
^DIST(.404,208,40,10,1)="61"
^DIST(.404,208,40,10,2)="13,71^4^13,44"
^DIST(.404,208,40,10,3)="1"
^DIST(.404,208,40,10,11)="D H^XQOPED(39)"
^DIST(.404,208,40,11,0)="9^Ask For Header [DIASKHD]^3"
^DIST(.404,208,40,11,1)="79"
^DIST(.404,208,40,11,2)="10,78^2^10,52"
^DIST(.404,208,40,12,0)="12^Supress ""No Records..."" [DISUPNO]^3"
^DIST(.404,208,40,12,1)="77"
^DIST(.404,208,40,12,2)="13,38^4^13,3"
^DIST(.404,208,40,12,11)="D H^XQOPED(52)"
^DIST(.404,208,40,13,0)="11^Sort Criteria in Header [DIPCRIT]^3"
^DIST(.404,208,40,13,1)="78"
^DIST(.404,208,40,13,2)="12,71^4^12,36"
^DIST(.404,208,40,13,11)="D H^XQOPED(53)"
^DIST(.404,208,40,14,0)="2^Device [IOP]^3"
^DIST(.404,208,40,14,1)="70"
^DIST(.404,208,40,14,2)="2,65^15^2,51"
^DIST(.404,208,40,14,11)="D H^XQOPED(48)"
^DIST(.404,208,40,"B",1,1)=""
^DIST(.404,208,40,"B",2,14)=""
^DIST(.404,208,40,"B",3,3)=""
^DIST(.404,208,40,"B",4,4)=""
^DIST(.404,208,40,"B",5,5)=""
^DIST(.404,208,40,"B",6,6)=""
^DIST(.404,208,40,"B",7,2)=""
^DIST(.404,208,40,"B",8,7)=""
^DIST(.404,208,40,"B",9,11)=""
^DIST(.404,208,40,"B",10,8)=""
^DIST(.404,208,40,"B",11,13)=""
^DIST(.404,208,40,"B",12,12)=""
^DIST(.404,208,40,"B",13,10)=""
^DIST(.404,208,40,"C","ASK FOR HEADER [DIASKHD]",11)=""
^DIST(.404,208,40,"C","DEVICE [IOP]",14)=""
^DIST(.404,208,40,"C","GLOBAL REFERENCE [DIC{DIP}]",1)=""
^DIST(.404,208,40,"C","GO TO VALUES [TO]",6)=""
^DIST(.404,208,40,"C","HEADER [DHD]",7)=""
^DIST(.404,208,40,"C","NUMBER OF COPIES [DCOPIES]",8)=""
^DIST(.404,208,40,"C","PRINT FIELDS [FLDS]",3)=""
^DIST(.404,208,40,"C","PROMPT STRING [L.]",2)=""
^DIST(.404,208,40,"C","SORT BY FIELDS [BY]",4)=""
^DIST(.404,208,40,"C","SORT CRITERIA IN HEADER [DIPCRIT]",13)=""
^DIST(.404,208,40,"C","START WITH VALUES [FR]",5)=""
^DIST(.404,208,40,"C","STARTING PAGE NUMBER [PG]",10)=""
^DIST(.404,208,40,"C","SUPRESS ""NO RECORDS..."" [DISUPNO]",12)=""
^DIST(.404,209,0)="PRINT2 header^19^"
^DIST(.404,209,40,0)="^.4044I^4^4"
^DIST(.404,209,40,1,0)="1^Print-type Options Related Fields (Page 2 of 2)^1"
^DIST(.404,209,40,1,2)="^^2,15^1"
^DIST(.404,209,40,2,0)="2^Use the <PageUp> Key or <PF1><Up Cursor Arrow> To See Page 1^1"
^DIST(.404,209,40,2,2)="^^3,9^1"
^DIST(.404,209,40,3,0)="3^All These Fields Must Contain Valid M Code^1"
^DIST(.404,209,40,3,2)="^^4,17^1"
^DIST(.404,209,40,4,0)="4^And Screen DIS(0), If It Is Defined^1"
^DIST(.404,209,40,4,2)="^^14,22^1"
^DIST(.404,209,40,"B",1,1)=""
^DIST(.404,209,40,"B",2,2)=""
^DIST(.404,209,40,"B",3,3)=""
^DIST(.404,209,40,"B",4,4)=""
^DIST(.404,209,40,"C","ALL THESE FIELDS MUST CONTAIN VALID M CODE",3)=""
^DIST(.404,209,40,"C","AND SCREEN DIS(0), IF IT IS DEFINED",4)=""
^DIST(.404,209,40,"C","PRINT-TYPE OPTIONS RELATED FIELDS (PAGE 2 OF 2)",1)=""
^DIST(.404,209,40,"C","USE THE <PAGEUP> KEY OR <PF1><UP CURSOR ARROW> TO SEE PAGE 1",2)=""
^DIST(.404,210,0)="PRINT2 edit^19"
^DIST(.404,210,40,0)="^.4044I^19^9"
^DIST(.404,210,40,2,0)="1^Executed After Each Entry [DHIT]^3"
^DIST(.404,210,40,2,1)="71"
^DIST(.404,210,40,2,2)="3,35^45^3,1"
^DIST(.404,210,40,2,11)="D H^XQOPED(49)"
^DIST(.404,210,40,3,0)="2^Before the Print Starts [DIOBEG]^3"
^DIST(.404,210,40,3,1)="72"
^DIST(.404,210,40,3,2)="4,35^45^4,1"
^DIST(.404,210,40,3,11)="D H^XQOPED(50)"
^DIST(.404,210,40,4,0)="3^After Print Finishes [DIOEND]^3"
^DIST(.404,210,40,4,1)="73"
^DIST(.404,210,40,4,2)="5,32^48^5,1"
^DIST(.404,210,40,4,11)="D H^XQOPED(51)"
^DIST(.404,210,40,13,0)="7^Dis(1) ^3"
^DIST(.404,210,40,13,1)="69.1"
^DIST(.404,210,40,13,2)="12,12^68^12,1"
^DIST(.404,210,40,13,11)="D H^XQOPED(47)"
^DIST(.404,210,40,14,0)="8^Or Dis(2)^3"
^DIST(.404,210,40,14,1)="69.2"
^DIST(.404,210,40,14,2)="13,12^68^13,1"
^DIST(.404,210,40,14,11)="D H^XQOPED(47)"
^DIST(.404,210,40,15,0)="9^Or DIS(3)^3"
^DIST(.404,210,40,15,1)="69.3"
^DIST(.404,210,40,15,2)="14,12^68^14,1"
^DIST(.404,210,40,15,11)="D H^XQOPED(47)"
^DIST(.404,210,40,16,0)="5^Screen [DIS(0)]^3"
^DIST(.404,210,40,16,1)="69"
^DIST(.404,210,40,16,2)="8,18^62^8,1"
^DIST(.404,210,40,16,11)="D H^XQOPED(46)"
^DIST(.404,210,40,18,0)="4^Screens: A Selection Must Pass DIS(0), If Defined, To Be Printed^1"
^DIST(.404,210,40,18,2)="^^7,7^1"
^DIST(.404,210,40,19,0)="6^A Selection Will Be Printed If It Passes Any One Of These Screens^1"
^DIST(.404,210,40,19,2)="^^10,7^1"
^DIST(.404,210,40,"B",1,2)=""
^DIST(.404,210,40,"B",2,3)=""
^DIST(.404,210,40,"B",3,4)=""
^DIST(.404,210,40,"B",4,18)=""
^DIST(.404,210,40,"B",5,16)=""
^DIST(.404,210,40,"B",6,19)=""
^DIST(.404,210,40,"B",7,13)=""
^DIST(.404,210,40,"B",8,14)=""
^DIST(.404,210,40,"B",9,15)=""
^DIST(.404,210,40,"C","A SELECTION WILL BE PRINTED IF IT PASSES ANY ONE OF THESE SCREE",19)=""
^DIST(.404,210,40,"C","AFTER PRINT FINISHES [DIOEND]",4)=""
^DIST(.404,210,40,"C","BEFORE THE PRINT STARTS [DIOBEG]",3)=""
^DIST(.404,210,40,"C","DIS(1) ",13)=""
^DIST(.404,210,40,"C","EXECUTED AFTER EACH ENTRY [DHIT]",2)=""
^DIST(.404,210,40,"C","OR DIS(2)",14)=""
^DIST(.404,210,40,"C","OR DIS(3)",15)=""
^DIST(.404,210,40,"C","SCREEN [DIS(0)]",16)=""
^DIST(.404,210,40,"C","SCREENS: A SELECTION MUST PASS DIS(0), IF DEFINED, TO BE PRINTE",18)=""
^DIST(.404,211,0)="EXECUTABLES header^19^"
^DIST(.404,211,40,0)="^.4044I^1^1"
^DIST(.404,211,40,1,0)="1^Executables^1"
^DIST(.404,211,40,1,2)="^^2,34^1"
^DIST(.404,211,40,"B",1,1)=""
^DIST(.404,211,40,"C","EXECUTABLES",1)=""
^DIST(.404,212,0)="INQUIRE header^19^"
^DIST(.404,212,40,0)="^.4044I^1^1"
^DIST(.404,212,40,1,0)="1^Inquire-type Option Related Fields^1"
^DIST(.404,212,40,1,2)="^^2,20^1"
^DIST(.404,212,40,"B",1,1)=""
^DIST(.404,212,40,"C","INQUIRE-TYPE OPTION RELATED FIELDS",1)=""
^DIST(.404,213,0)="INQUIRE edit^19"
^DIST(.404,213,40,0)="^.4044I^14^7"
^DIST(.404,213,40,3,0)="2^Global Reference [DIC{DIQ}]^3"
^DIST(.404,213,40,3,1)="80"
^DIST(.404,213,40,3,2)="5,35^41^5,6"
^DIST(.404,213,40,3,11)="D H^XQOPED(55)"
^DIST(.404,213,40,5,0)="7^Display Computed Fields? [DIQ(0)]^3"
^DIST(.404,213,40,5,1)="82"
^DIST(.404,213,40,5,2)="11,74^2^11,39"
^DIST(.404,213,40,5,11)="D H^XQOPED(56)"
^DIST(.404,213,40,6,0)="4^Fields or Template [FLDS]^3"
^DIST(.404,213,40,6,1)="63"
^DIST(.404,213,40,6,2)="7,33^43^7,6"
^DIST(.404,213,40,6,3)="[CAPTIONED]"
^DIST(.404,213,40,6,11)="D H^XQOPED(41)"
^DIST(.404,213,40,11,0)="1^Do You Want To Edit the DIC Look Up Variables?^2"
^DIST(.404,213,40,11,.1)=""
^DIST(.404,213,40,11,2)="3,54^4^3,6^1"
^DIST(.404,213,40,11,3)="!M"
^DIST(.404,213,40,11,3.1)="S Y=$S('$D(^DIC(19,DA,30)):""YES"",1:""NO"")"
^DIST(.404,213,40,11,10)="S:(X=1) DDSSTACK=4"
^DIST(.404,213,40,11,11)="D H^XQOPED(78)"
^DIST(.404,213,40,11,20)="Y"
^DIST(.404,213,40,12,0)="5^Header [DHD]^3"
^DIST(.404,213,40,12,1)="67"
^DIST(.404,213,40,12,2)="9,20^56^9,6"
^DIST(.404,213,40,12,11)="D H^XQOPED(45)"
^DIST(.404,213,40,13,0)="6^Supress Device Prompt^3"
^DIST(.404,213,40,13,1)="83"
^DIST(.404,213,40,13,2)="11,29^3^11,6"
^DIST(.404,213,40,13,3)="YES"
^DIST(.404,213,40,13,11)="D H^XQOPED(57)"
^DIST(.404,213,40,14,0)="8^Device [IOP]^3"
^DIST(.404,213,40,14,1)="70"
^DIST(.404,213,40,14,2)="13,37^24^13,23"
^DIST(.404,213,40,14,3)="HOME"
^DIST(.404,213,40,14,11)="D H^XQOPED(48)"
^DIST(.404,213,40,"B",1,11)=""
^DIST(.404,213,40,"B",2,3)=""
^DIST(.404,213,40,"B",4,6)=""
^DIST(.404,213,40,"B",5,12)=""
^DIST(.404,213,40,"B",6,13)=""
^DIST(.404,213,40,"B",7,5)=""
^DIST(.404,213,40,"B",8,14)=""
^DIST(.404,213,40,"C","DEVICE [IOP]",14)=""
^DIST(.404,213,40,"C","DISPLAY COMPUTED FIELDS? [DIQ(0)]",5)=""
^DIST(.404,213,40,"C","DO YOU WANT TO EDIT THE DIC LOOK UP VARIABLES?",11)=""
^DIST(.404,213,40,"C","FIELDS OR TEMPLATE [FLDS]",6)=""
^DIST(.404,213,40,"C","GLOBAL REFERENCE [DIC{DIQ}]",3)=""
^DIST(.404,213,40,"C","HEADER [DHD]",12)=""
^DIST(.404,213,40,"C","SUPRESS DEVICE PROMPT",13)=""
^DIST(.404,214,0)="ROUTINE header^19^"
^DIST(.404,214,40,0)="^.4044I^1^1"
^DIST(.404,214,40,1,0)="1^Routine-type Option^1"
^DIST(.404,214,40,1,2)="^^2,27^1"
^DIST(.404,214,40,"B",1,1)=""
^DIST(.404,214,40,"C","ROUTINE-TYPE OPTION",1)=""
^DIST(.404,215,0)="ROUTINE edit^19"
^DIST(.404,215,40,0)="^.4044I^1^1"
^DIST(.404,215,40,1,0)="1^Routine Entry Point^3"
^DIST(.404,215,40,1,1)="25"
^DIST(.404,215,40,1,2)="2,29^25^2,8"
^DIST(.404,215,40,1,4)="1"
^DIST(.404,215,40,1,11)="D H^XQOPED(22)"
^DIST(.404,215,40,"B",1,1)=""
^DIST(.404,215,40,"C","ROUTINE ENTRY POINT",1)=""
^DIST(.404,216,0)="SERVER header^19^"
^DIST(.404,216,40,0)="^.4044I^1^1"
^DIST(.404,216,40,1,0)="1^Server-type Option Fields^1"
^DIST(.404,216,40,1,2)="^^2,23^1"
^DIST(.404,216,40,"B",1,1)=""
^DIST(.404,216,40,"C","SERVER-TYPE OPTION FIELDS",1)=""
^DIST(.404,217,0)="SERVER edit^19"
^DIST(.404,217,40,0)="^.4044I^10^10"
^DIST(.404,217,40,1,0)="1^Routine Entry Point^3"
^DIST(.404,217,40,1,1)="25"
^DIST(.404,217,40,1,2)="2,22^15^2,1"
^DIST(.404,217,40,1,11)="D H^XQOPED(22)"
^DIST(.404,217,40,2,0)="3^Bulletin^3"
^DIST(.404,217,40,2,1)="220"
^DIST(.404,217,40,2,2)="4,11^26^4,1"
^DIST(.404,217,40,2,11)="D H^XQOPED(59)"
^DIST(.404,217,40,3,0)="2^Server Action^3"
^DIST(.404,217,40,3,1)="221"
^DIST(.404,217,40,3,2)="2,56^15^2,41"
^DIST(.404,217,40,3,11)="D H^XQOPED(60)"
^DIST(.404,217,40,4,0)="4^Mail Group^3"
^DIST(.404,217,40,4,1)="222"
^DIST(.404,217,40,4,2)="4,53^18^4,41"
^DIST(.404,217,40,4,11)="D H^XQOPED(61)"
^DIST(.404,217,40,5,0)="5^Server Audit^3"
^DIST(.404,217,40,5,1)="223"
^DIST(.404,217,40,5,2)="9,15^3^9,1"
^DIST(.404,217,40,5,3)="N"
^DIST(.404,217,40,5,11)="D H^XQOPED(62)"
^DIST(.404,217,40,6,0)="6^Supress Bulletin?^3"
^DIST(.404,217,40,6,1)="224"
^DIST(.404,217,40,6,2)="9,40^5^9,21"
^DIST(.404,217,40,6,3)="Y"
^DIST(.404,217,40,6,11)="D H^XQOPED(63)"
^DIST(.404,217,40,7,0)="7^Server Reply^3"
^DIST(.404,217,40,7,1)="225"
^DIST(.404,217,40,7,2)="9,62^5^9,48"
^DIST(.404,217,40,7,3)="N"
^DIST(.404,217,40,7,11)="D H^XQOPED(64)"
^DIST(.404,217,40,8,0)="8^Save Request^3"
^DIST(.404,217,40,8,1)="226"
^DIST(.404,217,40,8,2)="6,56^15^6,42"
^DIST(.404,217,40,8,11)="D H^XQOPED(65)"
^DIST(.404,217,40,9,0)="9^Server Device^3"
^DIST(.404,217,40,9,1)="227"
^DIST(.404,217,40,9,2)="6,16^20^6,1"
^DIST(.404,217,40,9,11)="D H^XQOPED(66)"
^DIST(.404,217,40,10,0)="10^TaskMan Retention in Days^3"
^DIST(.404,217,40,10,1)="228"
^DIST(.404,217,40,10,2)="11,50^3^11,23"
^DIST(.404,217,40,10,3)="7"
^DIST(.404,217,40,10,11)="D H^XQOPED(67)"
^DIST(.404,217,40,"B",1,1)=""
^DIST(.404,217,40,"B",2,3)=""
^DIST(.404,217,40,"B",3,2)=""
^DIST(.404,217,40,"B",4,4)=""
^DIST(.404,217,40,"B",5,5)=""
^DIST(.404,217,40,"B",6,6)=""
^DIST(.404,217,40,"B",7,7)=""
^DIST(.404,217,40,"B",8,8)=""
^DIST(.404,217,40,"B",9,9)=""
^DIST(.404,217,40,"B",10,10)=""
^DIST(.404,217,40,"C","BULLETIN",2)=""
^DIST(.404,217,40,"C","MAIL GROUP",4)=""
^DIST(.404,217,40,"C","ROUTINE ENTRY POINT",1)=""
^DIST(.404,217,40,"C","SAVE REQUEST",8)=""
^DIST(.404,217,40,"C","SERVER ACTION",3)=""
^DIST(.404,217,40,"C","SERVER AUDIT",5)=""
^DIST(.404,217,40,"C","SERVER DEVICE",9)=""
^DIST(.404,217,40,"C","SERVER REPLY",7)=""
^DIST(.404,217,40,"C","SUPRESS BULLETIN?",6)=""
^DIST(.404,217,40,"C","TASKMAN RETENTION IN DAYS",10)=""
^DIST(.404,218,0)="SCREEN header^19^"
^DIST(.404,218,40,0)="^.4044I^1^1"
^DIST(.404,218,40,1,0)="1^ScreenMan-type Option Fields^1"
^DIST(.404,218,40,1,2)="^^2,27^1"
^DIST(.404,218,40,"B",1,1)=""
^DIST(.404,218,40,"C","SCREENMAN-TYPE OPTION FIELDS",1)=""
^DIST(.404,219,0)="SCREEN edit^19"
^DIST(.404,219,40,0)="^.4044I^9^6"
^DIST(.404,219,40,4,0)="4^Form Name [DR{DDS}]^3"
^DIST(.404,219,40,4,1)="40"
^DIST(.404,219,40,4,2)="8,28^24^8,7"
^DIST(.404,219,40,4,11)="D H^XQOPED(30)"
^DIST(.404,219,40,5,0)="2^File [DDSFILE]^3"
^DIST(.404,219,40,5,1)="41"
^DIST(.404,219,40,5,2)="4,23^29^4,7"
^DIST(.404,219,40,5,11)="D H^XQOPED(31)"
^DIST(.404,219,40,6,0)="3^Subfile [DDSFILE(1)]^3"
^DIST(.404,219,40,6,1)="42"
^DIST(.404,219,40,6,2)="6,29^23^6,7"
^DIST(.404,219,40,6,11)="D H^XQOPED(32)"
^DIST(.404,219,40,7,0)="5^Start with Page [DDSPAGE]^3"
^DIST(.404,219,40,7,1)="43"
^DIST(.404,219,40,7,2)="10,34^8^10,7"
^DIST(.404,219,40,7,3)="1"
^DIST(.404,219,40,7,11)="D H^XQOPED(33)"
^DIST(.404,219,40,8,0)="6^Parameters [DDSPARM]^3"
^DIST(.404,219,40,8,1)="44"
^DIST(.404,219,40,8,2)="12,29^9^12,7"
^DIST(.404,219,40,8,11)="D H^XQOPED(34)"
^DIST(.404,219,40,9,0)="1^Do You Want to Edit DIC Look Up Variables?^2"
^DIST(.404,219,40,9,.1)=""
^DIST(.404,219,40,9,2)="2,51^1^2,7^1"
^DIST(.404,219,40,9,3)="!M"
^DIST(.404,219,40,9,3.1)="S Y=$S('$D(^DIC(19,DA,30)):""YES"",1:""NO"")"
^DIST(.404,219,40,9,10)="S:(X=1) DDSSTACK=4"
^DIST(.404,219,40,9,11)="D H^XQOPED(79)"
^DIST(.404,219,40,9,20)="Y"
^DIST(.404,219,40,9,21,0)="^^4^4^2980203^"
^DIST(.404,219,40,9,21,1,0)="     This option type first makes an initial call to ^DIC to loo up the"
^DIST(.404,219,40,9,21,2,0)="file and field that are to be used.  Some of these variables are required"
^DIST(.404,219,40,9,21,3,0)="to make the option work.  Answer YES if you wish to define or redefine"
^DIST(.404,219,40,9,21,4,0)="DIC, DIC(0), etc.  Answer NO if they are already defined satisfactoraly."
^DIST(.404,219,40,"B",1,9)=""
^DIST(.404,219,40,"B",2,5)=""
^DIST(.404,219,40,"B",3,6)=""
^DIST(.404,219,40,"B",4,4)=""
^DIST(.404,219,40,"B",5,7)=""
^DIST(.404,219,40,"B",6,8)=""
^DIST(.404,219,40,"C","DO YOU WANT TO EDIT DIC LOOK UP VARIABLES?",9)=""
^DIST(.404,219,40,"C","FILE [DDSFILE]",5)=""
^DIST(.404,219,40,"C","FORM NAME [DR{DDS}]",4)=""
^DIST(.404,219,40,"C","PARAMETERS [DDSPARM]",8)=""
^DIST(.404,219,40,"C","START WITH PAGE [DDSPAGE]",7)=""
^DIST(.404,219,40,"C","SUBFILE [DDSFILE(1)]",6)=""
^DIST(.404,220,0)="BROKER header^19^"
^DIST(.404,220,40,0)="^.4044I^2^2"
^DIST(.404,220,40,1,0)="1^Broker-type Option^1"
^DIST(.404,220,40,1,2)="^^1,28^1"
^DIST(.404,220,40,2,0)="2^  Remote Procedure         RPC Key                Rules^1"
^DIST(.404,220,40,2,2)="^^3,2"
^DIST(.404,220,40,"B",1,1)=""
^DIST(.404,220,40,"B",2,2)=""
^DIST(.404,220,40,"C","  REMOTE PROCEDURE         RPC KEY                RULES",2)=""
^DIST(.404,220,40,"C","BROKER-TYPE OPTION",1)=""
^DIST(.404,221,0)="BROKER edit^19.05"
^DIST(.404,221,15,0)="^^1^1^2971118^"
^DIST(.404,221,15,1,0)="   This block edits the subfiles of the RPC (19.05) subfile."
^DIST(.404,221,40,0)="^.4044I^3^3"
^DIST(.404,221,40,1,0)="1^^3"
^DIST(.404,221,40,1,1)=".01"
^DIST(.404,221,40,1,2)="3,2^21"
^DIST(.404,221,40,1,11)="D H^XQOPED(68)"
^DIST(.404,221,40,2,0)="2^^3"
^DIST(.404,221,40,2,1)="1"
^DIST(.404,221,40,2,2)="3,26^15"
^DIST(.404,221,40,2,11)="D H^XQOPED(69)"
^DIST(.404,221,40,3,0)="3^^3"
^DIST(.404,221,40,3,1)="2"
^DIST(.404,221,40,3,2)="3,44^30"
^DIST(.404,221,40,3,11)="D H^XQOPED(70)"
^DIST(.404,221,40,"B",1,1)=""
^DIST(.404,221,40,"B",2,2)=""
^DIST(.404,221,40,"B",3,3)=""
^DIST(.404,222,0)="WINDOW header^19^"
^DIST(.404,222,40,0)="^.4044I^1^1"
^DIST(.404,222,40,1,0)="1^Window-type Option^1"
^DIST(.404,222,40,1,2)="^^2,28^1"
^DIST(.404,222,40,"B",1,1)=""
^DIST(.404,222,40,"C","WINDOW-TYPE OPTION",1)=""
^DIST(.404,223,0)="WINDOW edit^19"
^DIST(.404,223,40,0)="^.4044I^4^4"
^DIST(.404,223,40,1,0)="1^Window^3"
^DIST(.404,223,40,1,1)="24"
^DIST(.404,223,40,1,2)="1,9^23^1,1"
^DIST(.404,223,40,2,0)="2^Routine^3"
^DIST(.404,223,40,2,1)="25"
^DIST(.404,223,40,2,2)="1,45^25^1,36"
^DIST(.404,223,40,3,0)="3^Icon^3"
^DIST(.404,223,40,3,1)="300"
^DIST(.404,223,40,3,2)="3,7^25^3,1"
^DIST(.404,223,40,4,0)="4^Icon Title^3"
^DIST(.404,223,40,4,1)="301"
^DIST(.404,223,40,4,2)="3,48^22^3,36"
^DIST(.404,223,40,"B",1,1)=""
^DIST(.404,223,40,"B",2,2)=""
^DIST(.404,223,40,"B",3,3)=""
^DIST(.404,223,40,"B",4,4)=""
^DIST(.404,223,40,"C","ICON",3)=""
^DIST(.404,223,40,"C","ICON TITLE",4)=""
^DIST(.404,223,40,"C","ROUTINE",2)=""
^DIST(.404,223,40,"C","WINDOW",1)=""
^DIST(.404,224,0)="SUITE header^19^"
^DIST(.404,224,40,0)="^.4044I^1^1"
^DIST(.404,224,40,1,0)="1^Suite-type Option^1"
^DIST(.404,224,40,1,2)="^^1,30^1"
^DIST(.404,224,40,"B",1,1)=""
^DIST(.404,224,40,"C","SUITE-TYPE OPTION",1)=""
^DIST(.404,225,0)="SUITE menu^19.01"
^DIST(.404,225,15,0)="^^1^1^2971118^"
^DIST(.404,225,15,1,0)="   This block contains the names of the windows in a suite."
^DIST(.404,225,40,0)="^.4044I^3^3"
^DIST(.404,225,40,1,0)="1^  Window                Display Order^1"
^DIST(.404,225,40,1,2)="^^1,21^1"
^DIST(.404,225,40,2,0)="2^^3"
^DIST(.404,225,40,2,1)=".01"
^DIST(.404,225,40,2,2)="3,12^30"
^DIST(.404,225,40,3,0)="3^^3"
^DIST(.404,225,40,3,1)="3"
^DIST(.404,225,40,3,2)="3,49^5"
^DIST(.404,225,40,"B",1,1)=""
^DIST(.404,225,40,"B",2,2)=""
^DIST(.404,225,40,"B",3,3)=""
^DIST(.404,225,40,"C","  WINDOW                DISPLAY ORDER",1)=""
^DIST(.404,226,0)="DAYS/TIMES header^19^"
^DIST(.404,226,40,0)="^.4044I^2^2"
^DIST(.404,226,40,1,0)="1^Restricting Days and Times An Option Can Be Envoked^1"
^DIST(.404,226,40,1,2)="^^1,11^1"
^DIST(.404,226,40,2,0)="2^Time Range (Example: 0800-1630)    On What Days (MO-FR or MO,WE etc.)^1"
^DIST(.404,226,40,2,2)="^^3,1^1"
^DIST(.404,226,40,"B",1,1)=""
^DIST(.404,226,40,"B",2,2)=""
^DIST(.404,226,40,"C","RESTRICTING DAYS AND TIMES AN OPTION CAN BE ENVOKED",1)=""
^DIST(.404,226,40,"C","TIME RANGE (EXAMPLE: 0800-1630)    ON WHAT DAYS (MO-FR OR MO,WE",2)=""
^DIST(.404,227,0)="DAYS/TIMES edit^19.391"
^DIST(.404,227,40,0)="^.4044I^2^2"
^DIST(.404,227,40,1,0)="1^^3"
^DIST(.404,227,40,1,1)=".01"
^DIST(.404,227,40,1,2)="1,11^14"
^DIST(.404,227,40,1,11)="D H^XQOPED(9)"
^DIST(.404,227,40,2,0)="2^^3"
^DIST(.404,227,40,2,1)=".02"
^DIST(.404,227,40,2,2)="1,42^23"
^DIST(.404,227,40,2,11)="D H^XQOPED(10)"
^DIST(.404,227,40,"B",1,1)=""
^DIST(.404,227,40,"B",2,2)=""
^DIST(.404,228,0)="DEVICE header^19^"
^DIST(.404,228,40,0)="^.4044I^1^1"
^DIST(.404,228,40,1,0)="1^Enter the Devices Upon Which This Option Is Allowed To Run^1"
^DIST(.404,228,40,1,2)="^^1,8^1"
^DIST(.404,228,40,"B",1,1)=""
^DIST(.404,228,40,"C","ENTER THE DEVICES UPON WHICH THIS OPTION IS ALLOWED TO RUN",1)=""
^DIST(.404,229,0)="DEVICES edit^19.396"
^DIST(.404,229,15,0)="^^2^2^2971118^"
^DIST(.404,229,15,1,0)="   This block allows the user to enter the devices upon which an option is"
^DIST(.404,229,15,2,0)="allowed to run."
^DIST(.404,229,40,0)="^.4044I^1^1"
^DIST(.404,229,40,1,0)="1^Permitted Device^3"
^DIST(.404,229,40,1,1)=".01"
^DIST(.404,229,40,1,2)="2,19^30^2,1"
^DIST(.404,229,40,"B",1,1)=""
^DIST(.404,229,40,"C","PERMITTED DEVICE",1)=""
^DIST(.404,230,0)="QUEUING header^19^"
^DIST(.404,230,40,0)="^.4044I^2^2"
^DIST(.404,230,40,1,0)="1^Time Periods and Days When Output Must Be Queued^1"
^DIST(.404,230,40,1,2)="^^1,11^1"
^DIST(.404,230,40,2,0)="2^Time Period (e.g. 0800-1645)     Days (e.g. MO or MO,WE or MO-FR)^1"
^DIST(.404,230,40,2,2)="^^3,2^1"
^DIST(.404,230,40,"B",1,1)=""
^DIST(.404,230,40,"B",2,2)=""
^DIST(.404,230,40,"C","TIME PERIOD (E.G. 0800-1645)     DAYS (E.G. MO OR MO,WE OR MO-F",2)=""
^DIST(.404,230,40,"C","TIME PERIODS AND DAYS WHEN OUTPUT MUST BE QUEUED",1)=""
^DIST(.404,231,0)="QUEUING edit^19.392"
^DIST(.404,231,15,0)="^^2^2^2971118^"
^DIST(.404,231,15,1,0)="    This block allows the user to enter times and days when the output"
^DIST(.404,231,15,2,0)="from this option must be queued."
^DIST(.404,231,40,0)="^.4044I^2^2"
^DIST(.404,231,40,1,0)="1^^3"
^DIST(.404,231,40,1,1)=".01"
^DIST(.404,231,40,1,2)="1,11^9"
^DIST(.404,231,40,1,11)="D H^XQOPED(9)"
^DIST(.404,231,40,2,0)="2^^3"
^DIST(.404,231,40,2,1)=".02"
^DIST(.404,231,40,2,2)="1,43^15"
^DIST(.404,231,40,2,11)="D H^XQOPED(10)"
^DIST(.404,231,40,"B",1,1)=""
^DIST(.404,231,40,"B",2,2)=""
^DIST(.404,232,0)="ACTION header^19^"
^DIST(.404,232,15,0)="^^1^1^2971124^"
^DIST(.404,232,15,1,0)="     This is the header block for page 1.9, Action-type options."
^DIST(.404,232,40,0)="^.4044I^1^1"
^DIST(.404,232,40,1,0)="1^Action-type option^1"
^DIST(.404,232,40,1,2)="^^2,29^1"
^DIST(.404,232,40,"B",1,1)=""
^DIST(.404,232,40,"C","ACTION-TYPE OPTION",1)=""
^DIST(.404,233,0)="ACTION edit^19"
^DIST(.404,233,40,0)="^.4044I^1^1"
^DIST(.404,233,40,1,0)="1^Entry Action to Execute^3"
^DIST(.404,233,40,1,1)="20"
^DIST(.404,233,40,1,2)="1,26^41^1,1"
^DIST(.404,233,40,1,11)="D H^XQOPED(81)"
^DIST(.404,233,40,"B",1,1)=""
^DIST(.404,233,40,"C","ENTRY ACTION TO EXECUTE",1)=""
^DIST(.404,234,0)="PRINT3 edit 2^19.02"
^DIST(.404,234,40,0)="^.4044I^2^2"
^DIST(.404,234,40,1,0)="1^^3"
^DIST(.404,234,40,1,1)=".01"
^DIST(.404,234,40,1,2)="1,9^1"
^DIST(.404,234,40,2,0)="2^^3"
^DIST(.404,234,40,2,1)="1"
^DIST(.404,234,40,2,2)="1,26^45"
^DIST(.404,234,40,"B",1,1)=""
^DIST(.404,234,40,"B",2,2)=""
^DIST(.404,235,0)="PRINT3 header 1^19^"
^DIST(.404,235,40,0)="^.4044I^2^2"
^DIST(.404,235,40,1,0)="1^Print-type Option Programmer Fields^1"
^DIST(.404,235,40,1,2)="^^2,22^1"
^DIST(.404,235,40,2,0)="2^FROM Subscript Level                    FROM Value^1"
^DIST(.404,235,40,2,2)="^^5,1^1"
^DIST(.404,235,40,"B",1,1)=""
^DIST(.404,235,40,"B",2,2)=""
^DIST(.404,235,40,"C","FROM SUBSCRIPT LEVEL                    FROM VALUE",2)=""
^DIST(.404,235,40,"C","PRINT-TYPE OPTION PROGRAMMER FIELDS",1)=""
^DIST(.404,236,0)="PRINT3 edit 1^19.02"
^DIST(.404,236,40,0)="^.4044I^2^2"
^DIST(.404,236,40,1,0)="1^^3"
^DIST(.404,236,40,1,1)=".01"
^DIST(.404,236,40,1,2)="1,9^1"
^DIST(.404,236,40,2,0)="2^^3"
^DIST(.404,236,40,2,1)="1"
^DIST(.404,236,40,2,2)="1,26^45"
^DIST(.404,236,40,"B",1,1)=""
^DIST(.404,236,40,"B",2,2)=""
^DIST(.404,237,0)="PRINT3 header 2^19^"
^DIST(.404,237,40,0)="^.4044I^1^1"
^DIST(.404,237,40,1,0)="1^TO Subscript Level                       TO Value^1"
^DIST(.404,237,40,1,2)="^^3,1^1"
^DIST(.404,237,40,"B",1,1)=""
^DIST(.404,237,40,"C","TO SUBSCRIPT LEVEL                       TO VALUE",1)=""
^DIST(.404,238,0)="PRINT3 header 3^19^"
^DIST(.404,238,40,0)="^.4044I^^0"
^DIST(.404,239,0)="SELECTION edit^19"
^DIST(.404,239,40,0)="^.4044I^1^1"
^DIST(.404,239,40,1,0)="1^Select Option to Edit^2"
^DIST(.404,239,40,1,.1)=""
^DIST(.404,239,40,1,2)="6,37^20^6,14"
^DIST(.404,239,40,1,4)="1"
^DIST(.404,239,40,1,20)="P^^19:QEALM"
^DIST(.404,239,40,1,21,0)="^^2^2^2971203^"
^DIST(.404,239,40,1,21,1,0)="    Select an option to edit.  You may add a new option to the Option File"
^DIST(.404,239,40,1,21,2,0)="if you wish."
^DIST(.404,239,40,"B",1,1)=""
^DIST(.404,239,40,"C","OPTION TO EDIT",1)=""
^DIST(.404,240,0)="DIC Edit^19"
^DIST(.404,240,40,0)="^.4044I^7^7"
^DIST(.404,240,40,1,0)="1^Global Reference [DIC{DIC}]^3"
^DIST(.404,240,40,1,1)="30"
^DIST(.404,240,40,1,2)="2,30^30^2,1"
^DIST(.404,240,40,1,11)="D H^XQOPED(23)"
^DIST(.404,240,40,2,0)="2^Look Up Codes [DIC(0)]^3"
^DIST(.404,240,40,2,1)="31"
^DIST(.404,240,40,2,2)="4,25^9^4,1"
^DIST(.404,240,40,2,11)="D H^XQOPED(24)"
^DIST(.404,240,40,3,0)="3^Preferred X-Reference [D.]^3"
^DIST(.404,240,40,3,1)="36"
^DIST(.404,240,40,3,2)="4,63^10^4,35"
^DIST(.404,240,40,3,11)="D H^XQOPED(29)"
^DIST(.404,240,40,4,0)="4^Prompt [DIC(A)]^3"
^DIST(.404,240,40,4,1)="32"
^DIST(.404,240,40,4,2)="6,18^55^6,1"
^DIST(.404,240,40,4,11)="D H^XQOPED(25)"
^DIST(.404,240,40,5,0)="5^Default Response [DIC(B)]^3"
^DIST(.404,240,40,5,1)="33"
^DIST(.404,240,40,5,2)="8,28^45^8,1"
^DIST(.404,240,40,5,11)="D H^XQOPED(26)"
^DIST(.404,240,40,6,0)="6^Screen [DIC(S)]^3"
^DIST(.404,240,40,6,1)="34"
^DIST(.404,240,40,6,2)="10,18^55^10,1"
^DIST(.404,240,40,6,11)="D H^XQOPED(27)"
^DIST(.404,240,40,7,0)="7^Input Match [DIC(W)]^3"
^DIST(.404,240,40,7,1)="35"
^DIST(.404,240,40,7,2)="12,23^50^12,1"
^DIST(.404,240,40,7,11)="D H^XQOPED(28)"
^DIST(.404,240,40,"B",1,1)=""
^DIST(.404,240,40,"B",2,2)=""
^DIST(.404,240,40,"B",3,3)=""
^DIST(.404,240,40,"B",4,4)=""
^DIST(.404,240,40,"B",5,5)=""
^DIST(.404,240,40,"B",6,6)=""
^DIST(.404,240,40,"B",7,7)=""
^DIST(.404,240,40,"C","DEFAULT RESPONSE [DIC(B)]",5)=""
^DIST(.404,240,40,"C","GLOBAL REFERENCE [DIC{DIC}]",1)=""
^DIST(.404,240,40,"C","INPUT MATCH [DIC(W)]",7)=""
^DIST(.404,240,40,"C","LOOK UP CODES [DIC(0)]",2)=""
^DIST(.404,240,40,"C","PREFERRED X-REFERENCE [D.]",3)=""
^DIST(.404,240,40,"C","PROMPT [DIC(A)]",4)=""
^DIST(.404,240,40,"C","SCREEN [DIC(S)]",6)=""
^DIST(.404,241,0)="DIC Header^19^"
^DIST(.404,241,40,0)="^.4044I^2^2"
^DIST(.404,241,40,1,0)="1^Initial DIC Look Up Parameters^1"
^DIST(.404,241,40,1,2)="^^1,22^1"
^DIST(.404,241,40,2,0)="2^Used By Edit, Inquire, and ScreenMan Options^1"
^DIST(.404,241,40,2,2)="^^2,15^1"
^DIST(.404,241,40,"B",1,1)=""
^DIST(.404,241,40,"B",2,2)=""
^DIST(.404,241,40,"C","INITIAL DIC LOOK UP PARAMETERS",1)=""
^DIST(.404,241,40,"C","USED BY EDIT, INQUIRE, AND SCREENMAN OPTIONS",2)=""
^DIST(.404,242,0)="XU-INST-E1^4"
^DIST(.404,242,40,0)="^.4044I^9^9"
^DIST(.404,242,40,1,0)="1^NAME^3"
^DIST(.404,242,40,1,1)=".01"
^DIST(.404,242,40,1,2)="1,8^30^1,2"
^DIST(.404,242,40,2,0)="99^STATION NUMBER^3"
^DIST(.404,242,40,2,1)="99"
^DIST(.404,242,40,2,2)="1,62^7^1,46"
^DIST(.404,242,40,3,0)="2^STATE^3"
^DIST(.404,242,40,3,1)=".02"
^DIST(.404,242,40,3,2)="3,18^23^3,11"
^DIST(.404,242,40,4,0)="3^FACILITY TYPE^3"
^DIST(.404,242,40,4,1)="13"
^DIST(.404,242,40,4,2)="4,18^11^4,3"
^DIST(.404,242,40,5,0)="4^AGENCY CODE^3"
^DIST(.404,242,40,5,1)="95"
^DIST(.404,242,40,5,2)="5,18^9^5,5"
^DIST(.404,242,40,6,0)="5^STATUS^3"
^DIST(.404,242,40,6,1)="11"
^DIST(.404,242,40,6,2)="6,18^8^6,10"
^DIST(.404,242,40,7,0)="10^ACOS HOSPITAL ID^3"
^DIST(.404,242,40,7,1)="51"
^DIST(.404,242,40,7,2)="3,62^6^3,44"
^DIST(.404,242,40,8,0)="11^DOMAIN^3"
^DIST(.404,242,40,8,1)="60"
^DIST(.404,242,40,8,2)="4,62^16^4,54"
^DIST(.404,242,40,9,0)="12^OFFICAL VA NAME^3"
^DIST(.404,242,40,9,1)="100"
^DIST(.404,242,40,9,2)="5,62^16^5,45"
^DIST(.404,242,40,"B",1,1)=""
^DIST(.404,242,40,"B",2,3)=""
^DIST(.404,242,40,"B",3,4)=""
^DIST(.404,242,40,"B",4,5)=""
^DIST(.404,242,40,"B",5,6)=""
^DIST(.404,242,40,"B",10,7)=""
^DIST(.404,242,40,"B",11,8)=""
^DIST(.404,242,40,"B",12,9)=""
^DIST(.404,242,40,"B",99,2)=""
^DIST(.404,242,40,"C","ACOS HOSPITAL ID",7)=""
^DIST(.404,242,40,"C","AGENCY CODE",5)=""
^DIST(.404,242,40,"C","DOMAIN",8)=""
^DIST(.404,242,40,"C","FACILITY TYPE",4)=""
^DIST(.404,242,40,"C","NAME",1)=""
^DIST(.404,242,40,"C","OFFICAL VA NAME",9)=""
^DIST(.404,242,40,"C","STATE",3)=""
^DIST(.404,242,40,"C","STATION NUMBER",2)=""
^DIST(.404,242,40,"C","STATUS",6)=""
^DIST(.404,243,0)="XU-INST-E2^4.014"
^DIST(.404,243,40,0)="^.4044I^4^4"
^DIST(.404,243,40,1,0)="1^^3"
^DIST(.404,243,40,1,1)=".01"
^DIST(.404,243,40,1,2)="2,1^27"
^DIST(.404,243,40,2,0)="2^^3"
^DIST(.404,243,40,2,1)="1"
^DIST(.404,243,40,2,2)="2,42^30"
^DIST(.404,243,40,3,0)="3^Association^1"
^DIST(.404,243,40,3,2)="^^1,1"
^DIST(.404,243,40,4,0)="4^Parent^1"
^DIST(.404,243,40,4,2)="^^1,42"
^DIST(.404,243,40,"B",1,1)=""
^DIST(.404,243,40,"B",2,2)=""
^DIST(.404,243,40,"B",3,3)=""
^DIST(.404,243,40,"B",4,4)=""
^DIST(.404,243,40,"C","ASSOCIATION",3)=""
^DIST(.404,243,40,"C","PARENT",4)=""
^DIST(.404,244,0)="LREPI12^69.58"
^DIST(.404,244,40,0)="^.4044I^1^1"
^DIST(.404,244,40,1,0)="1^^3"
^DIST(.404,244,40,1,1)=".01"
^DIST(.404,244,40,1,2)="1,2^15"
^DIST(.404,244,40,"B",1,1)=""
^DIST(.404,245,0)="LRPROTHEAD^69.4"
^DIST(.404,245,40,0)="^.4044I^3^3"
^DIST(.404,245,40,1,0)="1^Protocol Parameters Setup Definition^1"
^DIST(.404,245,40,1,2)="^^2,20"
^DIST(.404,245,40,2,0)="2^________________________________________^1"
^DIST(.404,245,40,2,2)="^^3,1"
^DIST(.404,245,40,3,0)="3^_______________________________________^1"
^DIST(.404,245,40,3,2)="^^3,41"
^DIST(.404,245,40,"B",1,1)=""
^DIST(.404,245,40,"B",2,2)=""
^DIST(.404,245,40,"B",3,3)=""
^DIST(.404,245,40,"C","PROTOCOL PARAMETERS SETUP DEFINITION",1)=""
^DIST(.404,245,40,"C","_______________________________________",3)=""
^DIST(.404,245,40,"C","________________________________________",2)=""
^DIST(.404,246,0)="LRPROT1^69.4"
^DIST(.404,246,40,0)="^.4044I^6^6"
^DIST(.404,246,40,1,0)="1^PROTOCOL^3"
^DIST(.404,246,40,1,1)=".01"
^DIST(.404,246,40,1,2)="1,11^63^1,1"
^DIST(.404,246,40,2,0)="4^Report Mail Group^3"
^DIST(.404,246,40,2,1)="1"
^DIST(.404,246,40,2,2)="5,20^30^5,1"
^DIST(.404,246,40,3,0)="3^Message Size^3"
^DIST(.404,246,40,3,1)="2"
^DIST(.404,246,40,3,2)="3,66^6^3,52"
^DIST(.404,246,40,4,0)="5^Send Alert^3"
^DIST(.404,246,40,4,1)="3"
^DIST(.404,246,40,4,2)="7,13^3^7,1"
^DIST(.404,246,40,5,0)="2^Title^3"
^DIST(.404,246,40,5,1)="4"
^DIST(.404,246,40,5,2)="3,8^40^3,1"
^DIST(.404,246,40,6,0)="6^Send Alert To^1"
^DIST(.404,246,40,6,2)="^^9,1"
^DIST(.404,246,40,"B",1,1)=""
^DIST(.404,246,40,"B",2,5)=""
^DIST(.404,246,40,"B",3,3)=""
^DIST(.404,246,40,"B",4,2)=""
^DIST(.404,246,40,"B",5,4)=""
^DIST(.404,246,40,"B",6,6)=""
^DIST(.404,246,40,"C","MESSAGE SIZE",3)=""
^DIST(.404,246,40,"C","PROTOCOL",1)=""
^DIST(.404,246,40,"C","REPORT MAIL GROUP",2)=""
^DIST(.404,246,40,"C","SEND ALERT",4)=""
^DIST(.404,246,40,"C","SEND ALERT TO",6)=""
^DIST(.404,246,40,"C","TITLE",5)=""
^DIST(.404,247,0)="LRPROT2^69.45"
^DIST(.404,247,40,0)="^.4044I^1^1"
^DIST(.404,247,40,1,0)="1^^3"
^DIST(.404,247,40,1,1)=".01"
^DIST(.404,247,40,1,2)="4,1^35"
^DIST(.404,247,40,"B",1,1)=""
^DIST(.404,248,0)="LREPI13^69.5"
^DIST(.404,248,40,0)="^.4044I^5^5"
^DIST(.404,248,40,1,0)="1^FIRST ENCOUNTER^3"
^DIST(.404,248,40,1,1)="11"
^DIST(.404,248,40,1,2)="1,18^3^1,1"
^DIST(.404,248,40,2,0)="2^FOLLOW PTF^3"
^DIST(.404,248,40,2,1)="13"
^DIST(.404,248,40,2,2)="1,55^3^1,43"
^DIST(.404,248,40,3,0)="3^BEFORE DATE OF BIRTH^3"
^DIST(.404,248,40,3,1)="17"
^DIST(.404,248,40,3,2)="3,23^11^3,1"
^DIST(.404,248,40,4,0)="4^AFTER DATE OF BIRTH^3"
^DIST(.404,248,40,4,1)="18"
^DIST(.404,248,40,4,2)="3,64^11^3,43"
^DIST(.404,248,40,5,0)="5^Select SEX^3"
^DIST(.404,248,40,5,1)="16"
^DIST(.404,248,40,5,2)="5,13^1^5,1"
^DIST(.404,248,40,"B",1,1)=""
^DIST(.404,248,40,"B",2,2)=""
^DIST(.404,248,40,"B",3,3)=""
^DIST(.404,248,40,"B",4,4)=""
^DIST(.404,248,40,"B",5,5)=""
^DIST(.404,248,40,"C","AFTER DATE OF BIRTH",4)=""
^DIST(.404,248,40,"C","BEFORE DATE OF BIRTH",3)=""
^DIST(.404,248,40,"C","FIRST ENCOUNTER",1)=""
^DIST(.404,248,40,"C","FOLLOW PTF",2)=""
^DIST(.404,248,40,"C","SEX",5)=""
^DIST(.404,249,0)="XUTMKE1^3.076"
^DIST(.404,249,40,0)="^.4044I^6^6"
^DIST(.404,249,40,1,0)="1^NAME^3"
^DIST(.404,249,40,1,1)=".01"
^DIST(.404,249,40,1,2)="1,7^30^1,1"
^DIST(.404,249,40,1,11)="D NAME^XUTMKE2"
^DIST(.404,249,40,2,0)="2^National^3"
^DIST(.404,249,40,2,1)=".05"
^DIST(.404,249,40,2,2)="1,58^3^1,48"
^DIST(.404,249,40,2,4)="^^^1"
^DIST(.404,249,40,3,0)="3^Screen in XTER^3"
^DIST(.404,249,40,3,1)=".03"
^DIST(.404,249,40,3,2)="3,20^12^3,4"
^DIST(.404,249,40,4,0)="4^Count Screened Errors^3"
^DIST(.404,249,40,4,1)=".04"
^DIST(.404,249,40,4,2)="5,27^3^5,4"
^DIST(.404,249,40,5,0)="5^Current Count^3"
^DIST(.404,249,40,5,1)="3"
^DIST(.404,249,40,5,2)="5,58^5^5,43"
^DIST(.404,249,40,6,0)="6^Alternative Screening Text^3"
^DIST(.404,249,40,6,1)="2"
^DIST(.404,249,40,6,2)="8,14^48^7,4"
^DIST(.404,249,40,"B",1,1)=""
^DIST(.404,249,40,"B",2,2)=""
^DIST(.404,249,40,"B",3,3)=""
^DIST(.404,249,40,"B",4,4)=""
^DIST(.404,249,40,"B",5,5)=""
^DIST(.404,249,40,"B",6,6)=""
^DIST(.404,249,40,"C","ALTERNATIVE SCREENING TEXT",6)=""
^DIST(.404,249,40,"C","COUNT SCREENED ERRORS",4)=""
^DIST(.404,249,40,"C","CURRENT COUNT",5)=""
^DIST(.404,249,40,"C","NAME",1)=""
^DIST(.404,249,40,"C","NATIONAL",2)=""
^DIST(.404,249,40,"C","SCREEN IN XTER",3)=""
^DIST(.404,250,0)="WV PROC-EDITBLK-1^790.1"
^DIST(.404,250,11)="D:$$COLP^WVUTL4(DA) HLP^DDSUTL("" * Move to PAGE 2 to edit clinical and pathology findings. "")"
^DIST(.404,250,12)=""
^DIST(.404,250,15,0)="^^1^1^2980605^"
^DIST(.404,250,15,1,0)="WV PROCEDURE-EDIT-BLOCK-1"
^DIST(.404,250,40,0)="^.4044I^18^15"
^DIST(.404,250,40,1,0)="1^Date of Procedure^3"
^DIST(.404,250,40,1,1)=".12"
^DIST(.404,250,40,1,2)="2,25^18^2,6"
^DIST(.404,250,40,1,3)="T"
^DIST(.404,250,40,1,4)="1"
^DIST(.404,250,40,1,13)="N WVX S WVX=$$PDELQ1^WVUTL4(DA,X,DUZ(2)) D PUT^DDSVAL(DIE,DA,.13,WVX)"
^DIST(.404,250,40,3,0)="2^Clinician/Provider^3"
^DIST(.404,250,40,3,1)=".07"
^DIST(.404,250,40,3,2)="3,25^25^3,5"
^DIST(.404,250,40,3,4)="0"
^DIST(.404,250,40,4,0)="3^Ward/Clinic/Location^3"
^DIST(.404,250,40,4,1)=".11"
^DIST(.404,250,40,4,2)="4,25^30^4,3"
^DIST(.404,250,40,4,4)="0"
^DIST(.404,250,40,4,13)="D PUT^DDSVAL(790.1,.DA,.1,$$INSTIT^WVUTL6)"
^DIST(.404,250,40,5,0)="4^Health Care Facility^3"
^DIST(.404,250,40,5,1)=".1"
^DIST(.404,250,40,5,2)="5,25^30^5,3"
^DIST(.404,250,40,5,4)="1^^^"
^DIST(.404,250,40,6,0)="9^Results/Diagnosis^3"
^DIST(.404,250,40,6,1)=".05"
^DIST(.404,250,40,6,2)="8,25^30^8,6"
^DIST(.404,250,40,6,10)="S DDSBR=$S(X:12,1:13)"
^DIST(.404,250,40,6,11)="S WVPN=$$GET^DDSVAL(DIE,DA,.04)"
^DIST(.404,250,40,6,12)="K WVPN I X,$P(^WV(790.31,X,0),U,22) D PUT^DDSVAL(DIE,DA,.08,1)"
^DIST(.404,250,40,7,0)="10^Notes (WP)^3"
^DIST(.404,250,40,7,1)="1.01"
^DIST(.404,250,40,7,2)="5,77^1^5,65"
^DIST(.404,250,40,7,4)="^^^0"
^DIST(.404,250,40,7,10)="S DDSBR=5"
^DIST(.404,250,40,9,0)="6^Complete by (Date)^3"
^DIST(.404,250,40,9,1)=".13"
^DIST(.404,250,40,9,2)="7,25^12^7,5"
^DIST(.404,250,40,9,3)="!M"
^DIST(.404,250,40,9,3.1)="S Y=$$PDELQ^WVUTL4(DA,DUZ(2))"
^DIST(.404,250,40,9,10)="S DDSBR=9"
^DIST(.404,250,40,10,0)="14^Status^3"
^DIST(.404,250,40,10,1)=".14"
^DIST(.404,250,40,10,2)="8,65^6^8,57"
^DIST(.404,250,40,10,3)="o"
^DIST(.404,250,40,11,0)="15^!M^1^"
^DIST(.404,250,40,11,.1)="I $$COLP^WVUTL4(DA) S Y=""(PAGE 1 OF 2)"""
^DIST(.404,250,40,11,2)="^^9,60"
^DIST(.404,250,40,12,0)="12^Sec Results/Diagnosis^3^"
^DIST(.404,250,40,12,1)=".06"
^DIST(.404,250,40,12,2)="9,25^30^9,2"
^DIST(.404,250,40,12,10)="S:$$PNOCX^WVUTL6($P(^WV(790.1,DA,0),U,4)) DDSBR=13"
^DIST(.404,250,40,12,11)="S WVPN=$$GET^DDSVAL(DIE,DA,.04)"
^DIST(.404,250,40,12,12)="K WVPN I X,$P(^WV(790.31,X,0),U,22) D PUT^DDSVAL(DIE,DA,.08,1)"
^DIST(.404,250,40,13,0)="13^HPV^3"
^DIST(.404,250,40,13,1)=".08"
^DIST(.404,250,40,13,2)="7,65^3^7,60"
^DIST(.404,250,40,14,0)="11^!M^1^"
^DIST(.404,250,40,14,.1)="N WVROOT S WVROOT=$$GET^DDSVAL(DIE,DA,1.01) I WVROOT]"""",$O(@WVROOT@(0)) S Y=""+"""
^DIST(.404,250,40,14,2)="^^5,77"
^DIST(.404,250,40,15,0)="5^Comments^3"
^DIST(.404,250,40,15,1)="3.01"
^DIST(.404,250,40,15,2)="6,25^53^6,15"
^DIST(.404,250,40,17,0)="7^!M^1"
^DIST(.404,250,40,17,.1)="S:$O(^WV(790.1,DA,9,0)) Y=""+"""
^DIST(.404,250,40,17,2)="^^4,77"
^DIST(.404,250,40,18,0)="8^Reports (WP)^3"
^DIST(.404,250,40,18,1)="9"
^DIST(.404,250,40,18,2)="4,78^1^4,63"
^DIST(.404,250,40,18,4)="^^^1"
^DIST(.404,250,40,18,10)="S DDSBR=4"
^DIST(.404,250,40,"B",1,1)=""
^DIST(.404,250,40,"B",2,3)=""
^DIST(.404,250,40,"B",3,4)=""
^DIST(.404,250,40,"B",4,5)=""
^DIST(.404,250,40,"B",5,15)=""
^DIST(.404,250,40,"B",6,9)=""
^DIST(.404,250,40,"B",7,17)=""
^DIST(.404,250,40,"B",8,18)=""
^DIST(.404,250,40,"B",9,6)=""
^DIST(.404,250,40,"B",10,7)=""
^DIST(.404,250,40,"B",11,14)=""
^DIST(.404,250,40,"B",12,12)=""
^DIST(.404,250,40,"B",13,13)=""
^DIST(.404,250,40,"B",14,10)=""
^DIST(.404,250,40,"B",15,11)=""
^DIST(.404,250,40,"C","CLINICIAN/PROVIDER",3)=""
^DIST(.404,250,40,"C","COMMENTS",15)=""
^DIST(.404,250,40,"C","COMPLETE BY (DATE)",9)=""
^DIST(.404,250,40,"C","DATE OF PROCEDURE",1)=""
^DIST(.404,250,40,"C","HEALTH CARE FACILITY",5)=""
^DIST(.404,250,40,"C","HPV",13)=""
^DIST(.404,250,40,"C","NOTES (WP)",7)=""
^DIST(.404,250,40,"C","REPORTS (WP)",18)=""
^DIST(.404,250,40,"C","RESULTS/DIAGNOSIS",6)=""
^DIST(.404,250,40,"C","SEC RESULTS/DIAGNOSIS",12)=""
^DIST(.404,250,40,"C","STATUS",10)=""
^DIST(.404,250,40,"C","WARD/CLINIC/LOCATION",4)=""
^DIST(.404,251,0)="WV NOTIF-HEADER-1^790.4^"
^DIST(.404,251,40,0)="^.4044I^23^22"
^DIST(.404,251,40,1,0)="1^* * *  EDIT A NOTIFICATION  * * *^1^"
^DIST(.404,251,40,1,2)="^^1,23^"
^DIST(.404,251,40,2,0)="2^!M^1^"
^DIST(.404,251,40,2,.1)="S Y=IOINORM_""Patient Name: ""_IOINHI_$$NAME^WVUTL1(WVDFN)_"" (""_$$AGE^WVUTL1(WVDFN)_"")""_IOINORM"
^DIST(.404,251,40,2,2)="^^2,1"
^DIST(.404,251,40,3,0)="3^!M^1^"
^DIST(.404,251,40,3,.1)="S Y=IOINORM_$$PNLAB^WVUTL5()_IOINHI_$$SSN^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,251,40,3,2)="^^2,55"
^DIST(.404,251,40,4,0)="10^--------------------------------------------------------------------------------^1^"
^DIST(.404,251,40,4,2)="^^9,1"
^DIST(.404,251,40,5,0)="5^!M^1^"
^DIST(.404,251,40,5,.1)="S Y=IOINORM_""Patient Phone: ""_IOINHI_$$HPHONE^WVUTL1(WVDFN)"
^DIST(.404,251,40,5,2)="^^3,48"
^DIST(.404,251,40,6,0)="4^!M^1^"
^DIST(.404,251,40,6,.1)="S Y=IOINORM_""Case Manager: ""_IOINHI_$$CMGR^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,251,40,6,2)="^^3,1"
^DIST(.404,251,40,7,0)="6^!M^1^"
^DIST(.404,251,40,7,.1)="S Y=IOINORM_""Cx Tx Need  : ""_IOINHI_$$CNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,251,40,7,2)="^^4,1"
^DIST(.404,251,40,8,0)="7^!M^1^"
^DIST(.404,251,40,8,.1)="S Y=IOINORM_""PAP Regimen : ""_IOINHI_$$PAPRG^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,251,40,8,2)="^^6,1"
^DIST(.404,251,40,9,0)="11^!M^1^"
^DIST(.404,251,40,9,.1)="S Y=IOINHI_$$EDC^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,251,40,9,2)="^^9,51"
^DIST(.404,251,40,10,0)="8^!M^1^"
^DIST(.404,251,40,10,.1)="S Y=IOINORM_""Br Tx Need  : ""_IOINHI_$$BNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,251,40,10,2)="^^5,1"
^DIST(.404,251,40,11,0)="9^!M^1^"
^DIST(.404,251,40,11,.1)="S Y=IOINHI_$S($$DES^WVUTL1(WVDFN)=""YES"":""*DES DAUGHTER*"",1:"""")_IOINORM"
^DIST(.404,251,40,11,2)="^^6,63"
^DIST(.404,251,40,12,0)="12^Cx Tx Fac:^1"
^DIST(.404,251,40,12,2)="^^4,52"
^DIST(.404,251,40,13,0)="13^Br Tx Fac:^1"
^DIST(.404,251,40,13,2)="^^5,52"
^DIST(.404,251,40,14,0)="14^!M^1"
^DIST(.404,251,40,14,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""C"")_IOINORM"
^DIST(.404,251,40,14,2)="^^4,63"
^DIST(.404,251,40,15,0)="15^!M^1"
^DIST(.404,251,40,15,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""B"")_IOINORM"
^DIST(.404,251,40,15,2)="^^5,63"
^DIST(.404,251,40,17,0)="17^MST         :^1"
^DIST(.404,251,40,17,2)="^^8,1"
^DIST(.404,251,40,18,0)="18^!M^1"
^DIST(.404,251,40,18,.1)="S Y=IOINHI_$$MST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,251,40,18,2)="^^8,15"
^DIST(.404,251,40,19,0)="19^Veteran:^1"
^DIST(.404,251,40,19,2)="^^7,54"
^DIST(.404,251,40,20,0)="20^!M^1"
^DIST(.404,251,40,20,.1)="S Y=IOINHI_$$VET^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,251,40,20,2)="^^7,63"
^DIST(.404,251,40,21,0)="21^!M^1"
^DIST(.404,251,40,21,.1)="S Y=IOINORM_""Elig Code   : ""_IOINHI_$P($$ELIG^WVUTL9(WVDFN),U,2)_IOINORM"
^DIST(.404,251,40,21,2)="^^7,1"
^DIST(.404,251,40,22,0)="22^CST:^1"
^DIST(.404,251,40,22,2)="^^8,58"
^DIST(.404,251,40,23,0)="23^!M^1"
^DIST(.404,251,40,23,.1)="S Y=IOINHI_$$CST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,251,40,23,2)="^^8,63"
^DIST(.404,251,40,"B",1,1)=""
^DIST(.404,251,40,"B",2,2)=""
^DIST(.404,251,40,"B",3,3)=""
^DIST(.404,251,40,"B",4,6)=""
^DIST(.404,251,40,"B",5,5)=""
^DIST(.404,251,40,"B",6,7)=""
^DIST(.404,251,40,"B",7,8)=""
^DIST(.404,251,40,"B",8,10)=""
^DIST(.404,251,40,"B",9,11)=""
^DIST(.404,251,40,"B",10,4)=""
^DIST(.404,251,40,"B",11,9)=""
^DIST(.404,251,40,"B",12,12)=""
^DIST(.404,251,40,"B",13,13)=""
^DIST(.404,251,40,"B",14,14)=""
^DIST(.404,251,40,"B",15,15)=""
^DIST(.404,251,40,"B",17,17)=""
^DIST(.404,251,40,"B",18,18)=""
^DIST(.404,251,40,"B",19,19)=""
^DIST(.404,251,40,"B",20,20)=""
^DIST(.404,251,40,"B",21,21)=""
^DIST(.404,251,40,"B",22,22)=""
^DIST(.404,251,40,"B",23,23)=""
^DIST(.404,251,40,"C","* * *  EDIT A NOTIFICATION  * * *",1)=""
^DIST(.404,251,40,"C","---------------------------------------------------------------",4)=""
^DIST(.404,251,40,"C","BR TX FAC:",13)=""
^DIST(.404,251,40,"C","CST:",22)=""
^DIST(.404,251,40,"C","CX TX FAC:",12)=""
^DIST(.404,251,40,"C","MST         :",17)=""
^DIST(.404,251,40,"C","VETERAN:",19)=""
^DIST(.404,252,0)="WV NOTIF-EDITBLK-1^790.4"
^DIST(.404,252,11)=""
^DIST(.404,252,12)=""
^DIST(.404,252,40,0)="^.4044I^13^13"
^DIST(.404,252,40,1,0)="3^Date Notification Opened^3"
^DIST(.404,252,40,1,1)=".02"
^DIST(.404,252,40,1,2)="3,29^12^3,3"
^DIST(.404,252,40,1,3)="T"
^DIST(.404,252,40,2,0)="1^Accession#^3"
^DIST(.404,252,40,2,1)=".06"
^DIST(.404,252,40,2,2)="2,15^12^2,3"
^DIST(.404,252,40,2,11)="S DIC(""S"")=""I $P(^WV(790.1,Y,0),U,2)=WVDFN"""
^DIST(.404,252,40,2,12)="I X]"""" W IOINORM,""  Procedure: "",$$PROC^WVUTL1A,IOELEOL"
^DIST(.404,252,40,3,0)="6^Type of Notification^3"
^DIST(.404,252,40,3,1)=".03"
^DIST(.404,252,40,3,2)="6,29^26^6,7"
^DIST(.404,252,40,3,10)="S:'X DDSBR=7 I X S:'$P(^WV(790.403,X,0),U,2) DDSBR=7"
^DIST(.404,252,40,3,13)="D PRTDATE^WVUTL6"
^DIST(.404,252,40,4,0)="4^Purpose of Notification^3"
^DIST(.404,252,40,4,1)=".04"
^DIST(.404,252,40,4,2)="4,29^50^4,4"
^DIST(.404,252,40,4,4)="1"
^DIST(.404,252,40,4,13)="S Y=X W !?18,""PRIORITY: "",$$PRIOR1^WVUTL1A,""               "" D PRTDATE^WVUTL6"
^DIST(.404,252,40,5,0)="8^Outcome^3"
^DIST(.404,252,40,5,1)=".05"
^DIST(.404,252,40,5,2)="8,29^30^8,20"
^DIST(.404,252,40,5,12)="S X=$S(X:""c"",1:""o"") D PUT^DDSVAL(790.4,DA,.14,X)"
^DIST(.404,252,40,6,0)="9^Status^3"
^DIST(.404,252,40,6,1)=".14"
^DIST(.404,252,40,6,2)="9,29^6^9,21"
^DIST(.404,252,40,7,0)="5^!M^1^"
^DIST(.404,252,40,7,.1)="S Y=""Priority: ""_IOINHI_$$PRIOR^WVUTL1A_IOINORM"
^DIST(.404,252,40,7,2)="^^5,19"
^DIST(.404,252,40,8,0)="2^!M^1^"
^DIST(.404,252,40,8,.1)="S Y=IOINORM_""  Procedure: ""_IOINHI_$$NTPROC^WVUTL1A_IOINORM"
^DIST(.404,252,40,8,2)="^^2,27"
^DIST(.404,252,40,9,0)="10^Patient Ed^3"
^DIST(.404,252,40,9,1)=".09"
^DIST(.404,252,40,9,2)="9,69^7^9,57"
^DIST(.404,252,40,10,0)="7^Complete by (Date)^3"
^DIST(.404,252,40,10,1)=".13"
^DIST(.404,252,40,10,2)="7,29^12^7,9"
^DIST(.404,252,40,10,3)="!M"
^DIST(.404,252,40,10,3.1)="S Y=$$NDELQ^WVUTL4"
^DIST(.404,252,40,11,0)="6.5^Print Date^3"
^DIST(.404,252,40,11,1)=".11"
^DIST(.404,252,40,11,2)="6,69^11^6,57"
^DIST(.404,252,40,11,3)="!M"
^DIST(.404,252,40,11,3.1)="D PRTDATE^WVUTL6 S Y=$$GET^DDSVAL(DIE,DA,.11)"
^DIST(.404,252,40,11,13)="S:'X X=$$GET^DDSVAL(DIE,DA,.02) S X=$$NDELQ1^WVUTL4 D PUT^DDSVAL(DIE,DA,.13,X)"
^DIST(.404,252,40,12,0)="7.5^Printed^3"
^DIST(.404,252,40,12,1)=".1"
^DIST(.404,252,40,12,2)="7,69^12^7,60"
^DIST(.404,252,40,12,4)="^^^1"
^DIST(.404,252,40,12,11)="W IOINHI"
^DIST(.404,252,40,12,12)="W IOINORM"
^DIST(.404,252,40,13,0)="3.5^Facility^3"
^DIST(.404,252,40,13,1)=".07"
^DIST(.404,252,40,13,2)="3,56^23^3,46"
^DIST(.404,252,40,13,4)="1"
^DIST(.404,252,40,"B",1,2)=""
^DIST(.404,252,40,"B",2,8)=""
^DIST(.404,252,40,"B",3,1)=""
^DIST(.404,252,40,"B",3.5,13)=""
^DIST(.404,252,40,"B",4,4)=""
^DIST(.404,252,40,"B",5,7)=""
^DIST(.404,252,40,"B",6,3)=""
^DIST(.404,252,40,"B",6.5,11)=""
^DIST(.404,252,40,"B",7,10)=""
^DIST(.404,252,40,"B",7.5,12)=""
^DIST(.404,252,40,"B",8,5)=""
^DIST(.404,252,40,"B",9,6)=""
^DIST(.404,252,40,"B",10,9)=""
^DIST(.404,252,40,"C","ACCESSION#",2)=""
^DIST(.404,252,40,"C","COMPLETE BY (DATE)",10)=""
^DIST(.404,252,40,"C","DATE NOTIFICATION OPENED",1)=""
^DIST(.404,252,40,"C","FACILITY",13)=""
^DIST(.404,252,40,"C","OUTCOME",5)=""
^DIST(.404,252,40,"C","PATIENT ED",9)=""
^DIST(.404,252,40,"C","PRINT DATE",11)=""
^DIST(.404,252,40,"C","PRINTED",12)=""
^DIST(.404,252,40,"C","PURPOSE OF NOTIFICATION",4)=""
^DIST(.404,252,40,"C","STATUS",6)=""
^DIST(.404,252,40,"C","TYPE OF NOTIFICATION",3)=""
^DIST(.404,253,0)="WV PATIENT-EDITBLK-1^790"
^DIST(.404,253,40,0)="^.4044I^23^20"
^DIST(.404,253,40,1,0)="1^Case Manager^3"
^DIST(.404,253,40,1,1)=".1"
^DIST(.404,253,40,1,2)="2,21^28^2,7"
^DIST(.404,253,40,1,3)="!M"
^DIST(.404,253,40,1,3.1)="S:$D(DUZ(2)) Y=IOINHI_""`""_$P(^WV(790.02,DUZ(2),0),U,2)_IOINORM"
^DIST(.404,253,40,2,0)="4^Cervical Tx Need^3"
^DIST(.404,253,40,2,1)=".11"
^DIST(.404,253,40,2,2)="3,65^16^3,47"
^DIST(.404,253,40,3,0)="5^Cervical Tx Due Date^3"
^DIST(.404,253,40,3,1)=".12"
^DIST(.404,253,40,3,2)="4,65^11^4,43"
^DIST(.404,253,40,4,0)="7^Currently Pregnant^3"
^DIST(.404,253,40,4,1)=".13"
^DIST(.404,253,40,4,2)="9,25^3^9,5"
^DIST(.404,253,40,4,10)="S:'X DDSBR=9"
^DIST(.404,253,40,4,12)="D:'X PUT^DDSVAL(DIE,DA,.14,"""")"
^DIST(.404,253,40,5,0)="8^EDC^3"
^DIST(.404,253,40,5,1)=".14"
^DIST(.404,253,40,5,2)="9,37^12^9,32"
^DIST(.404,253,40,6,0)="9^DES Daughter^3"
^DIST(.404,253,40,6,1)=".15"
^DIST(.404,253,40,6,2)="9,68^7^9,54"
^DIST(.404,253,40,7,0)="2^Breast Tx Need^3"
^DIST(.404,253,40,7,1)=".18"
^DIST(.404,253,40,7,2)="3,21^20^3,5"
^DIST(.404,253,40,8,0)="5.5^PAP Regimen Start Date^3"
^DIST(.404,253,40,8,1)=".17"
^DIST(.404,253,40,8,2)="7,25^11^7,1"
^DIST(.404,253,40,9,0)="6^Notes (WP)^3"
^DIST(.404,253,40,9,1)="1.01"
^DIST(.404,253,40,9,2)="8,68^1^8,56"
^DIST(.404,253,40,9,4)="^^^0"
^DIST(.404,253,40,9,10)="S DDSBR=7"
^DIST(.404,253,40,10,0)="3^Breast Tx Due Date^3"
^DIST(.404,253,40,10,1)=".19"
^DIST(.404,253,40,10,2)="4,21^11^4,1"
^DIST(.404,253,40,11,0)="5.3^PAP Regimen^3"
^DIST(.404,253,40,11,1)=".16"
^DIST(.404,253,40,11,2)="6,21^25^6,8"
^DIST(.404,253,40,12,0)="10^Date of 1st Encounter^3"
^DIST(.404,253,40,12,1)=".21"
^DIST(.404,253,40,12,2)="10,25^11^10,2"
^DIST(.404,253,40,12,3)="!M"
^DIST(.404,253,40,12,3.1)="S Y=""T"""
^DIST(.404,253,40,13,0)="6.1^!M^1^"
^DIST(.404,253,40,13,.1)="N WVROOT S WVROOT=$$GET^DDSVAL(DIE,DA,1.01) I WVROOT]"""",$O(@WVROOT@(0)) S Y=""+"""
^DIST(.404,253,40,13,2)="^^8,69"
^DIST(.404,253,40,14,0)="11^Referral Source^3"
^DIST(.404,253,40,14,1)=".22"
^DIST(.404,253,40,14,2)="10,68^8^10,51"
^DIST(.404,253,40,15,0)="6.5^Family Hx of Breast CA^3"
^DIST(.404,253,40,15,1)=".23"
^DIST(.404,253,40,15,2)="8,25^23^8,1"
^DIST(.404,253,40,16,0)="1.2^Inactive Date^3"
^DIST(.404,253,40,16,1)=".24"
^DIST(.404,253,40,16,2)="2,65^11^2,50"
^DIST(.404,253,40,16,10)="S:X DDSBR=99"
^DIST(.404,253,40,17,0)="99^ ^1"
^DIST(.404,253,40,17,2)="^^10,78"
^DIST(.404,253,40,18,0)="3.5^Breast Tx Facility^3"
^DIST(.404,253,40,18,1)=".25"
^DIST(.404,253,40,18,2)="5,21^20^5,1"
^DIST(.404,253,40,19,0)="5.2^Cervical Tx Facility^3"
^DIST(.404,253,40,19,1)=".26"
^DIST(.404,253,40,19,2)="5,65^15^5,43"
^DIST(.404,253,40,23,0)="5.8^CST^3"
^DIST(.404,253,40,23,1)=".28"
^DIST(.404,253,40,23,2)="7,68^12^7,63"
^DIST(.404,253,40,23,10)="S DDSBR=6.5"
^DIST(.404,253,40,"B",1,1)=""
^DIST(.404,253,40,"B",1.2,16)=""
^DIST(.404,253,40,"B",2,7)=""
^DIST(.404,253,40,"B",3,10)=""
^DIST(.404,253,40,"B",3.5,18)=""
^DIST(.404,253,40,"B",4,2)=""
^DIST(.404,253,40,"B",5,3)=""
^DIST(.404,253,40,"B",5.2,19)=""
^DIST(.404,253,40,"B",5.3,11)=""
^DIST(.404,253,40,"B",5.5,8)=""
^DIST(.404,253,40,"B",5.8,23)=""
^DIST(.404,253,40,"B",6,9)=""
^DIST(.404,253,40,"B",6.1,13)=""
^DIST(.404,253,40,"B",6.5,15)=""
^DIST(.404,253,40,"B",7,4)=""
^DIST(.404,253,40,"B",8,5)=""
^DIST(.404,253,40,"B",9,6)=""
^DIST(.404,253,40,"B",10,12)=""
^DIST(.404,253,40,"B",11,14)=""
^DIST(.404,253,40,"B",99,17)=""
^DIST(.404,253,40,"C"," ",17)=""
^DIST(.404,253,40,"C","BREAST TX DUE DATE",10)=""
^DIST(.404,253,40,"C","BREAST TX FACILITY",18)=""
^DIST(.404,253,40,"C","BREAST TX NEED",7)=""
^DIST(.404,253,40,"C","CASE MANAGER",1)=""
^DIST(.404,253,40,"C","CERVICAL TX DUE DATE",3)=""
^DIST(.404,253,40,"C","CERVICAL TX FACILITY",19)=""
^DIST(.404,253,40,"C","CERVICAL TX NEED",2)=""
^DIST(.404,253,40,"C","CST",23)=""
^DIST(.404,253,40,"C","CURRENTLY PREGNANT",4)=""
^DIST(.404,253,40,"C","DATE OF 1ST ENCOUNTER",12)=""
^DIST(.404,253,40,"C","DES DAUGHTER",6)=""
^DIST(.404,253,40,"C","EDC",5)=""
^DIST(.404,253,40,"C","FAMILY HX OF BREAST CA",15)=""
^DIST(.404,253,40,"C","INACTIVE DATE",16)=""
^DIST(.404,253,40,"C","NOTES (WP)",9)=""
^DIST(.404,253,40,"C","PAP REGIMEN",11)=""
^DIST(.404,253,40,"C","PAP REGIMEN START DATE",8)=""
^DIST(.404,253,40,"C","REFERRAL SOURCE",14)=""
^DIST(.404,254,0)="WV PROC-EDITBLK-2-COLP^790.1"
^DIST(.404,254,11)=""
^DIST(.404,254,40,0)="^.4044I^16^14"
^DIST(.404,254,40,2,0)="2^T-Zone Seen Entirely^3"
^DIST(.404,254,40,2,1)=".21"
^DIST(.404,254,40,2,2)="3,25^3^3,3"
^DIST(.404,254,40,3,0)="3^Lesion Outside Canal^3"
^DIST(.404,254,40,3,1)=".22"
^DIST(.404,254,40,3,2)="4,25^3^4,3"
^DIST(.404,254,40,4,0)="4^Satisfactory Exam^3"
^DIST(.404,254,40,4,1)=".2"
^DIST(.404,254,40,4,2)="5,25^3^5,6"
^DIST(.404,254,40,5,0)="5^Multifocal^3"
^DIST(.404,254,40,5,1)=".23"
^DIST(.404,254,40,5,2)="3,67^3^3,55"
^DIST(.404,254,40,6,0)="6^Number of Quadrants^3"
^DIST(.404,254,40,6,1)=".24"
^DIST(.404,254,40,6,2)="4,67^3^4,46"
^DIST(.404,254,40,8,0)="8^ECC Dysplasia^3"
^DIST(.404,254,40,8,1)=".25"
^DIST(.404,254,40,8,2)="7,25^20^7,10"
^DIST(.404,254,40,8,12)="S:'$$MARGIN^WVUTL4(DA) DDSBR=9"
^DIST(.404,254,40,9,0)="9^Ectocervical Biopsy^3"
^DIST(.404,254,40,9,1)=".26"
^DIST(.404,254,40,9,2)="8,25^30^8,4"
^DIST(.404,254,40,9,11)="S WVPN=$O(^WV(790.2,""B"",""ECTOCERVICAL BIOPSY"",0))"
^DIST(.404,254,40,9,12)="K WVPN"
^DIST(.404,254,40,10,0)="12^!M^1^"
^DIST(.404,254,40,10,.1)="S Y=""(PAGE 2 OF 2)"""
^DIST(.404,254,40,10,2)="^^9,58^"
^DIST(.404,254,40,11,0)="11^STD Evaluation^3"
^DIST(.404,254,40,11,1)=".28"
^DIST(.404,254,40,11,2)="9,25^30^9,9^0"
^DIST(.404,254,40,11,11)="S WVPN=$O(^WV(790.2,""B"",""STD EVALUATION"",0))"
^DIST(.404,254,40,11,12)="K WVPN"
^DIST(.404,254,40,12,0)="8.5^Margins Clear^3"
^DIST(.404,254,40,12,1)=".27"
^DIST(.404,254,40,12,2)="7,73^3^7,58^0"
^DIST(.404,254,40,13,0)="6.5^IMPRESSION^3"
^DIST(.404,254,40,13,1)=".29"
^DIST(.404,254,40,13,2)="6,25^30^6,13"
^DIST(.404,254,40,13,11)="S WVPN=$$GET^DDSVAL(DIE,DA,.04)"
^DIST(.404,254,40,13,12)="K WVPN"
^DIST(.404,254,40,14,0)=".5^Screening PAP^3"
^DIST(.404,254,40,14,1)=".3"
^DIST(.404,254,40,14,2)="2,25^10^2,10"
^DIST(.404,254,40,15,0)="10^Stage^3"
^DIST(.404,254,40,15,1)=".31"
^DIST(.404,254,40,15,2)="8,65^10^8,58^0"
^DIST(.404,254,40,16,0)="6.4^Quadrant Locations^3"
^DIST(.404,254,40,16,1)=".245"
^DIST(.404,254,40,16,2)="5,67^11^5,47"
^DIST(.404,254,40,"B",.5,14)=""
^DIST(.404,254,40,"B",2,2)=""
^DIST(.404,254,40,"B",3,3)=""
^DIST(.404,254,40,"B",4,4)=""
^DIST(.404,254,40,"B",5,5)=""
^DIST(.404,254,40,"B",6,6)=""
^DIST(.404,254,40,"B",6.4,16)=""
^DIST(.404,254,40,"B",6.5,13)=""
^DIST(.404,254,40,"B",8,8)=""
^DIST(.404,254,40,"B",8.5,12)=""
^DIST(.404,254,40,"B",9,9)=""
^DIST(.404,254,40,"B",10,15)=""
^DIST(.404,254,40,"B",11,11)=""
^DIST(.404,254,40,"B",12,10)=""
^DIST(.404,254,40,"C","ECC DYSPLASIA",8)=""
^DIST(.404,254,40,"C","ECTOCERVICAL BIOPSY",9)=""
^DIST(.404,254,40,"C","IMPRESSION",13)=""
^DIST(.404,254,40,"C","LESION OUTSIDE CANAL",3)=""
^DIST(.404,254,40,"C","MARGINS CLEAR",12)=""
^DIST(.404,254,40,"C","MULTIFOCAL",5)=""
^DIST(.404,254,40,"C","NUMBER OF QUADRANTS",6)=""
^DIST(.404,254,40,"C","QUADRANT LOCATIONS",16)=""
^DIST(.404,254,40,"C","SATISFACTORY EXAM",4)=""
^DIST(.404,254,40,"C","SCREENING PAP",14)=""
^DIST(.404,254,40,"C","STAGE",15)=""
^DIST(.404,254,40,"C","STD EVALUATION",11)=""
^DIST(.404,254,40,"C","T-ZONE SEEN ENTIRELY",2)=""
^DIST(.404,255,0)="WV NOTIF-EDITBLK-2^790.4"
^DIST(.404,255,11)="D HLP^DDSUTL(""*** NOTE: Most fields cannot be edited because the letter has been printed. ***"")"
^DIST(.404,255,40,0)="^.4044I^13^13"
^DIST(.404,255,40,1,0)="3^Date of Notification^3"
^DIST(.404,255,40,1,1)=".02"
^DIST(.404,255,40,1,2)="3,25^12^3,3"
^DIST(.404,255,40,1,3)="T"
^DIST(.404,255,40,1,4)="^^^1"
^DIST(.404,255,40,2,0)="1^Accession#^3"
^DIST(.404,255,40,2,1)=".06"
^DIST(.404,255,40,2,2)="2,15^12^2,3"
^DIST(.404,255,40,2,4)="^^^1"
^DIST(.404,255,40,2,11)="S DIC(""S"")=""I $P(^WV(790.1,Y,0),U,2)=WVDFN"""
^DIST(.404,255,40,2,12)="I X]"""" W ?46,IOINORM,""PROCEDURE: "",$$NTPROC^WVUTL1A,IOELEOL"
^DIST(.404,255,40,3,0)="6^Type of Notification^3"
^DIST(.404,255,40,3,1)=".03"
^DIST(.404,255,40,3,2)="6,29^26^6,7"
^DIST(.404,255,40,3,4)="^^^1"
^DIST(.404,255,40,3,10)="I X S:'$P(^WV(790.403,X,0),U,2) DDSBR=7"
^DIST(.404,255,40,3,13)="D PRTDATE^WVUTL2"
^DIST(.404,255,40,4,0)="4^Purpose of Notification^3"
^DIST(.404,255,40,4,1)=".04"
^DIST(.404,255,40,4,2)="4,29^50^4,4"
^DIST(.404,255,40,4,4)="^^^1"
^DIST(.404,255,40,4,13)="S Y=X W !?18,""PRIORITY: "",$$PRIOR1^WVUTL1A,""     "" S X=$$NDELQ1^WVUTL4 D PUT^DDSVAL(DIE,DA,.13,X)"
^DIST(.404,255,40,5,0)="8^Outcome^3"
^DIST(.404,255,40,5,1)=".05"
^DIST(.404,255,40,5,2)="8,29^30^8,20"
^DIST(.404,255,40,5,12)="S X=$S(X:""c"",1:""o"") D PUT^DDSVAL(790.4,DA,.14,X)"
^DIST(.404,255,40,6,0)="9^Status^3"
^DIST(.404,255,40,6,1)=".14"
^DIST(.404,255,40,6,2)="9,29^6^9,21"
^DIST(.404,255,40,7,0)="5^!M^1^"
^DIST(.404,255,40,7,.1)="S Y=""Priority: ""_IOINHI_$$PRIOR^WVUTL1A_IOINORM"
^DIST(.404,255,40,7,2)="^^5,19"
^DIST(.404,255,40,8,0)="2^!M^1^"
^DIST(.404,255,40,8,.1)="S Y=IOINORM_""Procedure: ""_IOINHI_$$NTPROC^WVUTL1A_IOINORM"
^DIST(.404,255,40,8,2)="^^2,38"
^DIST(.404,255,40,9,0)="10^Patient Ed^3"
^DIST(.404,255,40,9,1)=".09"
^DIST(.404,255,40,9,2)="9,69^7^9,57"
^DIST(.404,255,40,10,0)="7^Complete by (Date)^3"
^DIST(.404,255,40,10,1)=".13"
^DIST(.404,255,40,10,2)="7,29^12^7,9"
^DIST(.404,255,40,10,4)="^^^1"
^DIST(.404,255,40,11,0)="6.5^Print Date^3"
^DIST(.404,255,40,11,1)=".11"
^DIST(.404,255,40,11,2)="6,69^11^6,57"
^DIST(.404,255,40,11,4)="^^^1"
^DIST(.404,255,40,12,0)="7.5^Printed^3"
^DIST(.404,255,40,12,1)=".1"
^DIST(.404,255,40,12,2)="7,69^12^7,60"
^DIST(.404,255,40,12,4)="^^^1"
^DIST(.404,255,40,12,11)="W IOINHI"
^DIST(.404,255,40,12,12)="W IOINORM"
^DIST(.404,255,40,13,0)="3.5^Facility^3"
^DIST(.404,255,40,13,1)=".07"
^DIST(.404,255,40,13,2)="3,56^23^3,46"
^DIST(.404,255,40,13,4)="^^^1"
^DIST(.404,255,40,"B",1,2)=""
^DIST(.404,255,40,"B",2,8)=""
^DIST(.404,255,40,"B",3,1)=""
^DIST(.404,255,40,"B",3.5,13)=""
^DIST(.404,255,40,"B",4,4)=""
^DIST(.404,255,40,"B",5,7)=""
^DIST(.404,255,40,"B",6,3)=""
^DIST(.404,255,40,"B",6.5,11)=""
^DIST(.404,255,40,"B",7,10)=""
^DIST(.404,255,40,"B",7.5,12)=""
^DIST(.404,255,40,"B",8,5)=""
^DIST(.404,255,40,"B",9,6)=""
^DIST(.404,255,40,"B",10,9)=""
^DIST(.404,255,40,"C","ACCESSION#",2)=""
^DIST(.404,255,40,"C","COMPLETE BY (DATE)",10)=""
^DIST(.404,255,40,"C","DATE OF NOTIFICATION",1)=""
^DIST(.404,255,40,"C","FACILITY",13)=""
^DIST(.404,255,40,"C","OUTCOME",5)=""
^DIST(.404,255,40,"C","PATIENT ED",9)=""
^DIST(.404,255,40,"C","PRINT DATE",11)=""
^DIST(.404,255,40,"C","PRINTED",12)=""
^DIST(.404,255,40,"C","PURPOSE OF NOTIFICATION",4)=""
^DIST(.404,255,40,"C","STATUS",6)=""
^DIST(.404,255,40,"C","TYPE OF NOTIFICATION",3)=""
^DIST(.404,256,0)="WV NOTIFPURPOSE-EDITBLK-1^790.404"
^DIST(.404,256,40,0)="^.4044I^14^14"
^DIST(.404,256,40,1,0)="1^* * *  EDIT NOTIFICATION PURPOSE & LETTER  * * *^1^"
^DIST(.404,256,40,1,2)="^^3,16^"
^DIST(.404,256,40,2,0)="2^Purpose of Notification^3"
^DIST(.404,256,40,2,1)=".01"
^DIST(.404,256,40,2,2)="6,30^48^6,5^0"
^DIST(.404,256,40,2,4)="^^^1"
^DIST(.404,256,40,3,0)="4^Synonym^3"
^DIST(.404,256,40,3,1)=".03"
^DIST(.404,256,40,3,2)="8,30^6^8,21"
^DIST(.404,256,40,4,0)="5^Priority^3"
^DIST(.404,256,40,4,1)=".02"
^DIST(.404,256,40,4,2)="9,30^10^9,20"
^DIST(.404,256,40,4,10)="S DDSBR=7"
^DIST(.404,256,40,5,0)="6^FORM LETTER (WP)^3"
^DIST(.404,256,40,5,1)="1.01"
^DIST(.404,256,40,5,2)="9,68^1^9,50"
^DIST(.404,256,40,6,0)="3^Active^3"
^DIST(.404,256,40,6,1)=".04"
^DIST(.404,256,40,6,2)="7,30^3^7,22"
^DIST(.404,256,40,6,3)="YES"
^DIST(.404,256,40,6,10)="S:'X DDSBR=8"
^DIST(.404,256,40,7,0)="1.5^________________________________________________________________________________^1^"
^DIST(.404,256,40,7,2)="^^4,1^"
^DIST(.404,256,40,8,0)="7^Result or Reminder Letter^3"
^DIST(.404,256,40,8,1)=".06"
^DIST(.404,256,40,8,2)="11,30^9^11,3"
^DIST(.404,256,40,9,0)="8^Associate with BR or CX Tx^3"
^DIST(.404,256,40,9,1)=".05"
^DIST(.404,256,40,9,2)="12,30^9^12,2"
^DIST(.404,256,40,10,0)="6.1^!M^1"
^DIST(.404,256,40,10,.1)="N WVROOT S WVROOT=$$GET^DDSVAL(DIE,DA,1.01) I WVROOT]"""",$O(@WVROOT@(0)) S Y=""+"""
^DIST(.404,256,40,10,2)="^^9,68"
^DIST(.404,256,40,11,0)="9^Breast Treatment Need^3"
^DIST(.404,256,40,11,1)=".07"
^DIST(.404,256,40,11,2)="14,30^20^14,7"
^DIST(.404,256,40,12,0)="10^Breast Treatment Due Date^3"
^DIST(.404,256,40,12,1)=".08"
^DIST(.404,256,40,12,2)="15,30^5^15,3"
^DIST(.404,256,40,13,0)="11^Cervical Treatment Need^3"
^DIST(.404,256,40,13,1)=".09"
^DIST(.404,256,40,13,2)="16,30^20^16,5"
^DIST(.404,256,40,14,0)="12^Cervical Treatment Due Date^3"
^DIST(.404,256,40,14,1)=".1"
^DIST(.404,256,40,14,2)="17,30^5^17,1"
^DIST(.404,256,40,"B",1,1)=""
^DIST(.404,256,40,"B",1.5,7)=""
^DIST(.404,256,40,"B",2,2)=""
^DIST(.404,256,40,"B",3,6)=""
^DIST(.404,256,40,"B",4,3)=""
^DIST(.404,256,40,"B",5,4)=""
^DIST(.404,256,40,"B",6,5)=""
^DIST(.404,256,40,"B",6.1,10)=""
^DIST(.404,256,40,"B",7,8)=""
^DIST(.404,256,40,"B",8,9)=""
^DIST(.404,256,40,"B",9,11)=""
^DIST(.404,256,40,"B",10,12)=""
^DIST(.404,256,40,"B",11,13)=""
^DIST(.404,256,40,"B",12,14)=""
^DIST(.404,256,40,"C","* * *  EDIT NOTIFICATION PURPOSE & LETTER  * * *",1)=""
^DIST(.404,256,40,"C","ACTIVE",6)=""
^DIST(.404,256,40,"C","ASSOCIATE WITH BR OR CX TX",9)=""
^DIST(.404,256,40,"C","BREAST TREATMENT DUE DATE",12)=""
^DIST(.404,256,40,"C","BREAST TREATMENT NEED",11)=""
^DIST(.404,256,40,"C","CERVICAL TREATMENT DUE DATE",14)=""
^DIST(.404,256,40,"C","CERVICAL TREATMENT NEED",13)=""
^DIST(.404,256,40,"C","FORM LETTER (WP)",5)=""
^DIST(.404,256,40,"C","PRIORITY",4)=""
^DIST(.404,256,40,"C","PURPOSE OF NOTIFICATION",2)=""
^DIST(.404,256,40,"C","RESULT OR REMINDER LETTER",8)=""
^DIST(.404,256,40,"C","SYNONYM",3)=""
^DIST(.404,256,40,"C","_______________________________________________________________",7)=""
^DIST(.404,257,0)="WV SITE PARAMS-EDITBLK-1^790.02"
^DIST(.404,257,40,0)="^.4044I^14^12"
^DIST(.404,257,40,1,0)="1^!M^1^"
^DIST(.404,257,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,257,40,1,2)="^^3,12^"
^DIST(.404,257,40,2,0)="2^________________________________________________________________________________^1^"
^DIST(.404,257,40,2,2)="^^4,1^"
^DIST(.404,257,40,4,0)="4^Default Case Manager^3"
^DIST(.404,257,40,4,1)=".02"
^DIST(.404,257,40,4,2)="5,33^30^5,11"
^DIST(.404,257,40,5,0)="5^Ask Case Manager^3"
^DIST(.404,257,40,5,1)=".05"
^DIST(.404,257,40,5,2)="6,33^3^6,15"
^DIST(.404,257,40,6,0)="6^Autoqueue Normal PAP Letters^3"
^DIST(.404,257,40,6,1)=".03"
^DIST(.404,257,40,6,2)="8,33^3^8,3"
^DIST(.404,257,40,7,0)="7^PAP Result Normal Letter^3"
^DIST(.404,257,40,7,1)=".04"
^DIST(.404,257,40,7,2)="9,33^47^9,7"
^DIST(.404,257,40,8,0)="8^Autoqueue Normal MAM Letters^3"
^DIST(.404,257,40,8,1)=".07"
^DIST(.404,257,40,8,2)="10,33^3^10,3"
^DIST(.404,257,40,9,0)="9^MAM Result Normal Letter^3"
^DIST(.404,257,40,9,1)=".08"
^DIST(.404,257,40,9,2)="11,33^47^11,7"
^DIST(.404,257,40,10,0)="10^Default #days to print letter^3"
^DIST(.404,257,40,10,1)=".06"
^DIST(.404,257,40,10,2)="13,33^3^13,2"
^DIST(.404,257,40,12,0)="12^!M^1^"
^DIST(.404,257,40,12,.1)="S Y=""(PAGE 1 OF 6)"""
^DIST(.404,257,40,12,2)="^^17,58"
^DIST(.404,257,40,13,0)="13^Update Result/Dx Field?^3"
^DIST(.404,257,40,13,1)=".11"
^DIST(.404,257,40,13,2)="15,33^3^15,8"
^DIST(.404,257,40,14,0)="14^Update Treatment Needs?^3"
^DIST(.404,257,40,14,1)=".12"
^DIST(.404,257,40,14,2)="16,33^3^16,8"
^DIST(.404,257,40,"B",1,1)=""
^DIST(.404,257,40,"B",2,2)=""
^DIST(.404,257,40,"B",4,4)=""
^DIST(.404,257,40,"B",5,5)=""
^DIST(.404,257,40,"B",6,6)=""
^DIST(.404,257,40,"B",7,7)=""
^DIST(.404,257,40,"B",8,8)=""
^DIST(.404,257,40,"B",9,9)=""
^DIST(.404,257,40,"B",10,10)=""
^DIST(.404,257,40,"B",12,12)=""
^DIST(.404,257,40,"B",13,13)=""
^DIST(.404,257,40,"B",14,14)=""
^DIST(.404,257,40,"C","ASK CASE MANAGER",5)=""
^DIST(.404,257,40,"C","AUTOQUEUE NORMAL MAM LETTERS",8)=""
^DIST(.404,257,40,"C","AUTOQUEUE NORMAL PAP LETTERS",6)=""
^DIST(.404,257,40,"C","DEFAULT #DAYS TO PRINT LETTER",10)=""
^DIST(.404,257,40,"C","DEFAULT CASE MANAGER",4)=""
^DIST(.404,257,40,"C","MAM RESULT NORMAL LETTER",9)=""
^DIST(.404,257,40,"C","PAP RESULT NORMAL LETTER",7)=""
^DIST(.404,257,40,"C","UPDATE RESULT/DX FIELD?",13)=""
^DIST(.404,257,40,"C","UPDATE TREATMENT NEEDS?",14)=""
^DIST(.404,257,40,"C","_______________________________________________________________",2)=""
^DIST(.404,258,0)="WV SITE PARAMS-EDITBLK-2^790.02"
^DIST(.404,258,40,0)="^.4044I^22^8"
^DIST(.404,258,40,1,0)="1^!M^1^"
^DIST(.404,258,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,258,40,1,2)="^^3,12"
^DIST(.404,258,40,2,0)="2^________________________________________________________________________________^1^"
^DIST(.404,258,40,2,2)="^^4,1"
^DIST(.404,258,40,10,0)="6.1^Import Mammograms from Radiology^3"
^DIST(.404,258,40,10,1)=".1"
^DIST(.404,258,40,10,2)="5,51^3^5,17"
^DIST(.404,258,40,10,10)="S:X'=1 DDSBR=""2^WV SITE PARAMS-EDITBLK-2.2"""
^DIST(.404,258,40,10,12)="I X'=1 D PUT^DDSVAL(DIE,DA,.23,""@""),PUT^DDSVAL(DIE,DA,.25,""@""),HELP^WVUTL9(DA,5,""RADIOLOGY"")"
^DIST(.404,258,40,11,0)="11^!M^1^"
^DIST(.404,258,40,11,.1)="S Y=""(PAGE 2 OF 6)"""
^DIST(.404,258,40,11,2)="^^17,58"
^DIST(.404,258,40,14,0)="6.2^Status Given to Imported Mammograms^3"
^DIST(.404,258,40,14,1)=".23"
^DIST(.404,258,40,14,2)="6,54^6^6,17"
^DIST(.404,258,40,17,0)="6^RADIOLOGY:^1"
^DIST(.404,258,40,17,2)="^^5,5"
^DIST(.404,258,40,20,0)="6.3^Include ALL Non-Veterans(Y/N)?^3"
^DIST(.404,258,40,20,1)=".25"
^DIST(.404,258,40,20,2)="7,49^3^7,17"
^DIST(.404,258,40,20,10)="S:X=1 DDSBR=""2^WV SITE PARAMS-EDITBLK-2.2"""
^DIST(.404,258,40,20,12)="I X=1 D HELP^WVUTL9(DA,5,""RADIOLOGY"")"
^DIST(.404,258,40,22,0)="6.4^ELIGIBILITY CODE(S):^1"
^DIST(.404,258,40,22,2)="^^8,5"
^DIST(.404,258,40,"B",1,1)=""
^DIST(.404,258,40,"B",2,2)=""
^DIST(.404,258,40,"B",6,17)=""
^DIST(.404,258,40,"B",6.1,10)=""
^DIST(.404,258,40,"B",6.2,14)=""
^DIST(.404,258,40,"B",6.3,20)=""
^DIST(.404,258,40,"B",6.4,22)=""
^DIST(.404,258,40,"B",11,11)=""
^DIST(.404,258,40,"C","ELIGIBILITY CODE(S):",22)=""
^DIST(.404,258,40,"C","IMPORT MAMMOGRAMS FROM RADIOLOGY",10)=""
^DIST(.404,258,40,"C","INCLUDE ALL NON-VETERANS(Y/N)?",20)=""
^DIST(.404,258,40,"C","RADIOLOGY:",17)=""
^DIST(.404,258,40,"C","STATUS GIVEN TO IMPORTED MAMMOGRAMS",14)=""
^DIST(.404,258,40,"C","_______________________________________________________________",2)=""
^DIST(.404,259,0)="WV SITE PATAMS-EDITBLK-3^790.02"
^DIST(.404,259,40,0)="^.4044I^36^36"
^DIST(.404,259,40,1,0)="1^!M^1"
^DIST(.404,259,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,259,40,1,2)="^^3,12"
^DIST(.404,259,40,2,0)="2^________________________________________________________________________________^1"
^DIST(.404,259,40,2,2)="^^4,1"
^DIST(.404,259,40,3,0)="3^Procedure Type^1"
^DIST(.404,259,40,3,2)="^^6,5"
^DIST(.404,259,40,4,0)="3.1^Active^1"
^DIST(.404,259,40,4,2)="^^6,31"
^DIST(.404,259,40,5,0)="3.3^DAYS DELINQUENT^1"
^DIST(.404,259,40,5,2)="^^6,43"
^DIST(.404,259,40,6,0)="4^--------------------^1"
^DIST(.404,259,40,6,2)="^^7,5"
^DIST(.404,259,40,7,0)="4.1^------^1"
^DIST(.404,259,40,7,2)="^^7,31"
^DIST(.404,259,40,8,0)="5^---------------^1"
^DIST(.404,259,40,8,2)="^^7,43"
^DIST(.404,259,40,9,0)="4.5^Breast Ultrasound^1"
^DIST(.404,259,40,9,2)="^^8,5"
^DIST(.404,259,40,10,0)="6^Clinical Breast Exam^1"
^DIST(.404,259,40,10,2)="^^9,5"
^DIST(.404,259,40,11,0)="7^Colposcopy Impr (No Bx)^1"
^DIST(.404,259,40,11,2)="^^10,5"
^DIST(.404,259,40,12,0)="8^Colposcopy w/Biopsy^1"
^DIST(.404,259,40,12,2)="^^11,5"
^DIST(.404,259,40,13,0)="8.1^Cone Biopsy^1"
^DIST(.404,259,40,13,2)="^^12,5"
^DIST(.404,259,40,14,0)="9^Cryotherapy^1"
^DIST(.404,259,40,14,2)="^^13,5"
^DIST(.404,259,40,15,0)="10^Ectocervical Biopsy^1"
^DIST(.404,259,40,15,2)="^^14,5"
^DIST(.404,259,40,16,0)="11^Endocervical Currettage^1"
^DIST(.404,259,40,16,2)="^^15,5"
^DIST(.404,259,40,17,0)="12^Endometrial Biopsy^1"
^DIST(.404,259,40,17,2)="^^16,5"
^DIST(.404,259,40,18,0)="4.6^^3"
^DIST(.404,259,40,18,1)="38.01"
^DIST(.404,259,40,18,2)="8,32^3"
^DIST(.404,259,40,19,0)="6.1^^3"
^DIST(.404,259,40,19,1)="27.01"
^DIST(.404,259,40,19,2)="9,32^3"
^DIST(.404,259,40,20,0)="6.6^^3"
^DIST(.404,259,40,20,1)="37.01"
^DIST(.404,259,40,20,2)="10,32^3"
^DIST(.404,259,40,21,0)="7.1^^3"
^DIST(.404,259,40,21,1)="2.01"
^DIST(.404,259,40,21,2)="11,32^3"
^DIST(.404,259,40,22,0)="8.2^^3"
^DIST(.404,259,40,22,1)="19.01"
^DIST(.404,259,40,22,2)="12,32^3"
^DIST(.404,259,40,23,0)="9.1^^3"
^DIST(.404,259,40,23,1)="4.01"
^DIST(.404,259,40,23,2)="13,32^3"
^DIST(.404,259,40,24,0)="10.1^^3"
^DIST(.404,259,40,24,1)="17.01"
^DIST(.404,259,40,24,2)="14,32^3"
^DIST(.404,259,40,25,0)="11.1^^3"
^DIST(.404,259,40,25,1)="18.01"
^DIST(.404,259,40,25,2)="15,32^3"
^DIST(.404,259,40,26,0)="12.1^^3"
^DIST(.404,259,40,26,1)="8.01"
^DIST(.404,259,40,26,2)="16,32^3"
^DIST(.404,259,40,27,0)="4.8^^3"
^DIST(.404,259,40,27,1)="38.03"
^DIST(.404,259,40,27,2)="8,48^4"
^DIST(.404,259,40,28,0)="6.3^^3"
^DIST(.404,259,40,28,1)="27.03"
^DIST(.404,259,40,28,2)="9,48^4"
^DIST(.404,259,40,29,0)="6.8^^3"
^DIST(.404,259,40,29,1)="37.03"
^DIST(.404,259,40,29,2)="10,48^4"
^DIST(.404,259,40,30,0)="7.3^^3"
^DIST(.404,259,40,30,1)="2.03"
^DIST(.404,259,40,30,2)="11,48^4"
^DIST(.404,259,40,31,0)="8.3^^3"
^DIST(.404,259,40,31,1)="19.03"
^DIST(.404,259,40,31,2)="12,48^4"
^DIST(.404,259,40,32,0)="9.3^^3"
^DIST(.404,259,40,32,1)="4.03"
^DIST(.404,259,40,32,2)="13,48^4"
^DIST(.404,259,40,33,0)="10.3^^3"
^DIST(.404,259,40,33,1)="7.03"
^DIST(.404,259,40,33,2)="14,48^4"
^DIST(.404,259,40,34,0)="11.3^^3"
^DIST(.404,259,40,34,1)="18.03"
^DIST(.404,259,40,34,2)="15,48^4"
^DIST(.404,259,40,35,0)="12.3^^3"
^DIST(.404,259,40,35,1)="8.03"
^DIST(.404,259,40,35,2)="16,48^4"
^DIST(.404,259,40,36,0)="20^!M^1"
^DIST(.404,259,40,36,.1)="S Y=""(PAGE 3 OF 6)"""
^DIST(.404,259,40,36,2)="^^17,57"
^DIST(.404,259,40,"B",1,1)=""
^DIST(.404,259,40,"B",2,2)=""
^DIST(.404,259,40,"B",3,3)=""
^DIST(.404,259,40,"B",3.1,4)=""
^DIST(.404,259,40,"B",3.3,5)=""
^DIST(.404,259,40,"B",4,6)=""
^DIST(.404,259,40,"B",4.1,7)=""
^DIST(.404,259,40,"B",4.5,9)=""
^DIST(.404,259,40,"B",4.6,18)=""
^DIST(.404,259,40,"B",4.8,27)=""
^DIST(.404,259,40,"B",5,8)=""
^DIST(.404,259,40,"B",6,10)=""
^DIST(.404,259,40,"B",6.1,19)=""
^DIST(.404,259,40,"B",6.3,28)=""
^DIST(.404,259,40,"B",6.6,20)=""
^DIST(.404,259,40,"B",6.8,29)=""
^DIST(.404,259,40,"B",7,11)=""
^DIST(.404,259,40,"B",7.1,21)=""
^DIST(.404,259,40,"B",7.3,30)=""
^DIST(.404,259,40,"B",8,12)=""
^DIST(.404,259,40,"B",8.1,13)=""
^DIST(.404,259,40,"B",8.2,22)=""
^DIST(.404,259,40,"B",8.3,31)=""
^DIST(.404,259,40,"B",9,14)=""
^DIST(.404,259,40,"B",9.1,23)=""
^DIST(.404,259,40,"B",9.3,32)=""
^DIST(.404,259,40,"B",10,15)=""
^DIST(.404,259,40,"B",10.1,24)=""
^DIST(.404,259,40,"B",10.3,33)=""
^DIST(.404,259,40,"B",11,16)=""
^DIST(.404,259,40,"B",11.1,25)=""
^DIST(.404,259,40,"B",11.3,34)=""
^DIST(.404,259,40,"B",12,17)=""
^DIST(.404,259,40,"B",12.1,26)=""
^DIST(.404,259,40,"B",12.3,35)=""
^DIST(.404,259,40,"B",20,36)=""
^DIST(.404,259,40,"C","------",7)=""
^DIST(.404,259,40,"C","---------------",8)=""
^DIST(.404,259,40,"C","--------------------",6)=""
^DIST(.404,259,40,"C","ACTIVE",4)=""
^DIST(.404,259,40,"C","BREAST ULTRASOUND",9)=""
^DIST(.404,259,40,"C","CLINICAL BREAST EXAM",10)=""
^DIST(.404,259,40,"C","COLPOSCOPY IMPR (NO BX)",11)=""
^DIST(.404,259,40,"C","COLPOSCOPY W/BIOPSY",12)=""
^DIST(.404,259,40,"C","CONE BIOPSY",13)=""
^DIST(.404,259,40,"C","CRYOTHERAPY",14)=""
^DIST(.404,259,40,"C","DAYS DELINQUENT",5)=""
^DIST(.404,259,40,"C","ECTOCERVICAL BIOPSY",15)=""
^DIST(.404,259,40,"C","ENDOCERVICAL CURRETTAGE",16)=""
^DIST(.404,259,40,"C","ENDOMETRIAL BIOPSY",17)=""
^DIST(.404,259,40,"C","PROCEDURE TYPE",3)=""
^DIST(.404,259,40,"C","_______________________________________________________________",2)=""
^DIST(.404,260,0)="WV SITE PARAMS-EDITBLK-4^790.02"
^DIST(.404,260,40,0)="^.4044I^36^36"
^DIST(.404,260,40,1,0)="1^!M^1"
^DIST(.404,260,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,260,40,1,2)="^^3,12"
^DIST(.404,260,40,2,0)="2^________________________________________________________________________________^1"
^DIST(.404,260,40,2,2)="^^4,1"
^DIST(.404,260,40,3,0)="3^Procedure Type^1"
^DIST(.404,260,40,3,2)="^^6,5"
^DIST(.404,260,40,4,0)="3.1^Active^1"
^DIST(.404,260,40,4,2)="^^6,31"
^DIST(.404,260,40,5,0)="3.2^DAYS DELINQUENT^1"
^DIST(.404,260,40,5,2)="^^6,43"
^DIST(.404,260,40,6,0)="4^--------------------^1"
^DIST(.404,260,40,6,2)="^^7,5"
^DIST(.404,260,40,7,0)="4.1^------^1"
^DIST(.404,260,40,7,2)="^^7,31"
^DIST(.404,260,40,8,0)="4.2^---------------^1"
^DIST(.404,260,40,8,2)="^^7,43"
^DIST(.404,260,40,9,0)="4.5^Fine Needle Aspiration^1"
^DIST(.404,260,40,9,2)="^^8,5"
^DIST(.404,260,40,10,0)="4.6^^3"
^DIST(.404,260,40,10,1)="34.01"
^DIST(.404,260,40,10,2)="8,32^3"
^DIST(.404,260,40,11,0)="4.8^^3"
^DIST(.404,260,40,11,1)="34.03"
^DIST(.404,260,40,11,2)="8,48^4"
^DIST(.404,260,40,12,0)="5^General Surgery Consult^1"
^DIST(.404,260,40,12,2)="^^9,5"
^DIST(.404,260,40,13,0)="5.1^^3"
^DIST(.404,260,40,13,1)="29.01"
^DIST(.404,260,40,13,2)="9,32^3"
^DIST(.404,260,40,14,0)="5.3^^3"
^DIST(.404,260,40,14,1)="29.03"
^DIST(.404,260,40,14,2)="9,48^4"
^DIST(.404,260,40,15,0)="6^Gyn Onc Consult^1"
^DIST(.404,260,40,15,2)="^^10,5"
^DIST(.404,260,40,16,0)="6.1^^3"
^DIST(.404,260,40,16,1)="24.01"
^DIST(.404,260,40,16,2)="10,32^3"
^DIST(.404,260,40,17,0)="6.3^^3"
^DIST(.404,260,40,17,1)="24.03"
^DIST(.404,260,40,17,2)="10,48^4"
^DIST(.404,260,40,18,0)="7^Hysterectomy^1"
^DIST(.404,260,40,18,2)="^^11,5"
^DIST(.404,260,40,19,0)="7.1^^3"
^DIST(.404,260,40,19,1)="3.01"
^DIST(.404,260,40,19,2)="11,32^3"
^DIST(.404,260,40,20,0)="7.3^^3"
^DIST(.404,260,40,20,1)="3.03"
^DIST(.404,260,40,20,2)="11,48^4"
^DIST(.404,260,40,21,0)="8^Laser Abilation^1"
^DIST(.404,260,40,21,2)="^^12,5"
^DIST(.404,260,40,22,0)="8.1^^3"
^DIST(.404,260,40,22,1)="22.01"
^DIST(.404,260,40,22,2)="12,32^3"
^DIST(.404,260,40,23,0)="8.3^^3"
^DIST(.404,260,40,23,1)="22.03"
^DIST(.404,260,40,23,2)="12,48^4"
^DIST(.404,260,40,24,0)="9^Laser Cone^1"
^DIST(.404,260,40,24,2)="^^13,5"
^DIST(.404,260,40,25,0)="9.1^^3"
^DIST(.404,260,40,25,1)="23.01"
^DIST(.404,260,40,25,2)="13,32^3"
^DIST(.404,260,40,26,0)="9.3^^3"
^DIST(.404,260,40,26,1)="23.03"
^DIST(.404,260,40,26,2)="13,48^4"
^DIST(.404,260,40,27,0)="10^LEEP^1"
^DIST(.404,260,40,27,2)="^^14,5"
^DIST(.404,260,40,28,0)="10.1^^3"
^DIST(.404,260,40,28,1)="17.01"
^DIST(.404,260,40,28,2)="14,32^3"
^DIST(.404,260,40,29,0)="10.3^^3"
^DIST(.404,260,40,29,1)="17.03"
^DIST(.404,260,40,29,2)="14,48^4"
^DIST(.404,260,40,30,0)="11^Lumpectomy^1"
^DIST(.404,260,40,30,2)="^^15,5"
^DIST(.404,260,40,31,0)="11.1^^3"
^DIST(.404,260,40,31,1)="32.01"
^DIST(.404,260,40,31,2)="15,32^3"
^DIST(.404,260,40,32,0)="11.3^^3"
^DIST(.404,260,40,32,1)="32.03"
^DIST(.404,260,40,32,2)="15,48^4"
^DIST(.404,260,40,33,0)="12^Mammogram Dx Bilat^1"
^DIST(.404,260,40,33,2)="^^16,5"
^DIST(.404,260,40,34,0)="12.1^^3"
^DIST(.404,260,40,34,1)="25.01"
^DIST(.404,260,40,34,2)="16,32^3"
^DIST(.404,260,40,35,0)="12.3^^3"
^DIST(.404,260,40,35,1)="25.03"
^DIST(.404,260,40,35,2)="16,48^4"
^DIST(.404,260,40,36,0)="20^!M^1"
^DIST(.404,260,40,36,.1)="S Y=""(PAGE 4 OF 6)"""
^DIST(.404,260,40,36,2)="^^17,58"
^DIST(.404,260,40,"B",1,1)=""
^DIST(.404,260,40,"B",2,2)=""
^DIST(.404,260,40,"B",3,3)=""
^DIST(.404,260,40,"B",3.1,4)=""
^DIST(.404,260,40,"B",3.2,5)=""
^DIST(.404,260,40,"B",4,6)=""
^DIST(.404,260,40,"B",4.1,7)=""
^DIST(.404,260,40,"B",4.2,8)=""
^DIST(.404,260,40,"B",4.5,9)=""
^DIST(.404,260,40,"B",4.6,10)=""
^DIST(.404,260,40,"B",4.8,11)=""
^DIST(.404,260,40,"B",5,12)=""
^DIST(.404,260,40,"B",5.1,13)=""
^DIST(.404,260,40,"B",5.3,14)=""
^DIST(.404,260,40,"B",6,15)=""
^DIST(.404,260,40,"B",6.1,16)=""
^DIST(.404,260,40,"B",6.3,17)=""
^DIST(.404,260,40,"B",7,18)=""
^DIST(.404,260,40,"B",7.1,19)=""
^DIST(.404,260,40,"B",7.3,20)=""
^DIST(.404,260,40,"B",8,21)=""
^DIST(.404,260,40,"B",8.1,22)=""
^DIST(.404,260,40,"B",8.3,23)=""
^DIST(.404,260,40,"B",9,24)=""
^DIST(.404,260,40,"B",9.1,25)=""
^DIST(.404,260,40,"B",9.3,26)=""
^DIST(.404,260,40,"B",10,27)=""
^DIST(.404,260,40,"B",10.1,28)=""
^DIST(.404,260,40,"B",10.3,29)=""
^DIST(.404,260,40,"B",11,30)=""
^DIST(.404,260,40,"B",11.1,31)=""
^DIST(.404,260,40,"B",11.3,32)=""
^DIST(.404,260,40,"B",12,33)=""
^DIST(.404,260,40,"B",12.1,34)=""
^DIST(.404,260,40,"B",12.3,35)=""
^DIST(.404,260,40,"B",20,36)=""
^DIST(.404,260,40,"C","------",7)=""
^DIST(.404,260,40,"C","---------------",8)=""
^DIST(.404,260,40,"C","--------------------",6)=""
^DIST(.404,260,40,"C","ACTIVE",4)=""
^DIST(.404,260,40,"C","DAYS DELINQUENT",5)=""
^DIST(.404,260,40,"C","FINE NEEDLE ASPIRATION",9)=""
^DIST(.404,260,40,"C","GENERAL SURGERY CONSULT",12)=""
^DIST(.404,260,40,"C","GYN ONC CONSULT",15)=""
^DIST(.404,260,40,"C","HYSTERECTOMY",18)=""
^DIST(.404,260,40,"C","LASER ABILATION",21)=""
^DIST(.404,260,40,"C","LASER CONE",24)=""
^DIST(.404,260,40,"C","LEEP",27)=""
^DIST(.404,260,40,"C","LUMPECTOMY",30)=""
^DIST(.404,260,40,"C","MAMMOGRAM DX BILAT",33)=""
^DIST(.404,260,40,"C","PROCEDURE TYPE",3)=""
^DIST(.404,260,40,"C","_______________________________________________________________",2)=""
^DIST(.404,261,0)="WV SITE PARAMS-EDITBLK-5^790.02"
^DIST(.404,261,40,0)="^.4044I^36^36"
^DIST(.404,261,40,1,0)="1^!M^1"
^DIST(.404,261,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,261,40,1,2)="^^3,12"
^DIST(.404,261,40,2,0)="2^________________________________________________________________________________^1"
^DIST(.404,261,40,2,2)="^^4,1"
^DIST(.404,261,40,3,0)="3^Procedure Type^1"
^DIST(.404,261,40,3,2)="^^6,5"
^DIST(.404,261,40,4,0)="3.1^Active^1"
^DIST(.404,261,40,4,2)="^^6,31"
^DIST(.404,261,40,5,0)="3.3^DAYS DELINQUENT^1"
^DIST(.404,261,40,5,2)="^^6,43"
^DIST(.404,261,40,6,0)="4^--------------------^1"
^DIST(.404,261,40,6,2)="^^7,5"
^DIST(.404,261,40,7,0)="4.1^------^1"
^DIST(.404,261,40,7,2)="^^7,31"
^DIST(.404,261,40,8,0)="4.3^---------------^1"
^DIST(.404,261,40,8,2)="^^7,43"
^DIST(.404,261,40,9,0)="5^Mamogram Dx Unilat^1"
^DIST(.404,261,40,9,2)="^^8,5"
^DIST(.404,261,40,10,0)="5.1^^3"
^DIST(.404,261,40,10,1)="26.01"
^DIST(.404,261,40,10,2)="8,32^3"
^DIST(.404,261,40,11,0)="5.3^^3"
^DIST(.404,261,40,11,1)="26.03"
^DIST(.404,261,40,11,2)="8,48^4"
^DIST(.404,261,40,12,0)="6^Mammogram Screening^1"
^DIST(.404,261,40,12,2)="^^9,5"
^DIST(.404,261,40,13,0)="6.1^^3"
^DIST(.404,261,40,13,1)="28.01"
^DIST(.404,261,40,13,2)="9,32^3"
^DIST(.404,261,40,14,0)="6.2^^3"
^DIST(.404,261,40,14,1)="28.03"
^DIST(.404,261,40,14,2)="9,48^4"
^DIST(.404,261,40,15,0)="7^Mastectomy^1"
^DIST(.404,261,40,15,2)="^^10,5"
^DIST(.404,261,40,16,0)="7.1^^3"
^DIST(.404,261,40,16,1)="33.01"
^DIST(.404,261,40,16,2)="10,32^3"
^DIST(.404,261,40,17,0)="7.3^^3"
^DIST(.404,261,40,17,1)="33.03"
^DIST(.404,261,40,17,2)="10,48^4"
^DIST(.404,261,40,18,0)="8^Needle Biopsy^1"
^DIST(.404,261,40,18,2)="^^11,5"
^DIST(.404,261,40,19,0)="8.1^^3"
^DIST(.404,261,40,19,1)="30.01"
^DIST(.404,261,40,19,2)="11,32^3"
^DIST(.404,261,40,20,0)="8.3^^3"
^DIST(.404,261,40,20,1)="30.03"
^DIST(.404,261,40,20,2)="11,48^4"
^DIST(.404,261,40,21,0)="9^Open Biopsy^1"
^DIST(.404,261,40,21,2)="^^12,5"
^DIST(.404,261,40,22,0)="9.1^^3"
^DIST(.404,261,40,22,1)="31.01"
^DIST(.404,261,40,22,2)="12,32^3"
^DIST(.404,261,40,23,0)="9.3^^3"
^DIST(.404,261,40,23,1)="31.03"
^DIST(.404,261,40,23,2)="12,48^4"
^DIST(.404,261,40,24,0)="10^PAP Smear^1"
^DIST(.404,261,40,24,2)="^^13,5"
^DIST(.404,261,40,25,0)="10.1^^3"
^DIST(.404,261,40,25,1)="1.01"
^DIST(.404,261,40,25,2)="13,32^3"
^DIST(.404,261,40,26,0)="10.3^^3"
^DIST(.404,261,40,26,1)="1.03"
^DIST(.404,261,40,26,2)="13,48^4"
^DIST(.404,261,40,27,0)="11^Pelvic Ultrasound^1"
^DIST(.404,261,40,27,2)="^^14,5"
^DIST(.404,261,40,28,0)="11.1^^3"
^DIST(.404,261,40,28,1)="40.01"
^DIST(.404,261,40,28,2)="14,32^3"
^DIST(.404,261,40,29,0)="11.3^^3"
^DIST(.404,261,40,29,1)="40.03"
^DIST(.404,261,40,29,2)="14,48^4"
^DIST(.404,261,40,30,0)="12^Pregnancy Test^1"
^DIST(.404,261,40,30,2)="^^15,5"
^DIST(.404,261,40,31,0)="12.1^^3"
^DIST(.404,261,40,31,1)="20.01"
^DIST(.404,261,40,31,2)="15,32^3"
^DIST(.404,261,40,32,0)="12.3^^3"
^DIST(.404,261,40,32,1)="20.03"
^DIST(.404,261,40,32,2)="15,48^4"
^DIST(.404,261,40,33,0)="13^STD Evaluation^1"
^DIST(.404,261,40,33,2)="^^16,5"
^DIST(.404,261,40,34,0)="13.1^^3"
^DIST(.404,261,40,34,1)="21.01"
^DIST(.404,261,40,34,2)="16,32^3"
^DIST(.404,261,40,35,0)="13.3^^3"
^DIST(.404,261,40,35,1)="21.03"
^DIST(.404,261,40,35,2)="16,48^4"
^DIST(.404,261,40,36,0)="20^!M^1"
^DIST(.404,261,40,36,.1)="S Y=""(PAGE 5 OF 6)"""
^DIST(.404,261,40,36,2)="^^17,57"
^DIST(.404,261,40,"B",1,1)=""
^DIST(.404,261,40,"B",2,2)=""
^DIST(.404,261,40,"B",3,3)=""
^DIST(.404,261,40,"B",3.1,4)=""
^DIST(.404,261,40,"B",3.3,5)=""
^DIST(.404,261,40,"B",4,6)=""
^DIST(.404,261,40,"B",4.1,7)=""
^DIST(.404,261,40,"B",4.3,8)=""
^DIST(.404,261,40,"B",5,9)=""
^DIST(.404,261,40,"B",5.1,10)=""
^DIST(.404,261,40,"B",5.3,11)=""
^DIST(.404,261,40,"B",6,12)=""
^DIST(.404,261,40,"B",6.1,13)=""
^DIST(.404,261,40,"B",6.2,14)=""
^DIST(.404,261,40,"B",7,15)=""
^DIST(.404,261,40,"B",7.1,16)=""
^DIST(.404,261,40,"B",7.3,17)=""
^DIST(.404,261,40,"B",8,18)=""
^DIST(.404,261,40,"B",8.1,19)=""
^DIST(.404,261,40,"B",8.3,20)=""
^DIST(.404,261,40,"B",9,21)=""
^DIST(.404,261,40,"B",9.1,22)=""
^DIST(.404,261,40,"B",9.3,23)=""
^DIST(.404,261,40,"B",10,24)=""
^DIST(.404,261,40,"B",10.1,25)=""
^DIST(.404,261,40,"B",10.3,26)=""
^DIST(.404,261,40,"B",11,27)=""
^DIST(.404,261,40,"B",11.1,28)=""
^DIST(.404,261,40,"B",11.3,29)=""
^DIST(.404,261,40,"B",12,30)=""
^DIST(.404,261,40,"B",12.1,31)=""
^DIST(.404,261,40,"B",12.3,32)=""
^DIST(.404,261,40,"B",13,33)=""
^DIST(.404,261,40,"B",13.1,34)=""
^DIST(.404,261,40,"B",13.3,35)=""
^DIST(.404,261,40,"B",20,36)=""
^DIST(.404,261,40,"C","------",7)=""
^DIST(.404,261,40,"C","---------------",8)=""
^DIST(.404,261,40,"C","--------------------",6)=""
^DIST(.404,261,40,"C","ACTIVE",4)=""
^DIST(.404,261,40,"C","DAYS DELINQUENT",5)=""
^DIST(.404,261,40,"C","MAMMOGRAM SCREENING",12)=""
^DIST(.404,261,40,"C","MAMOGRAM DX UNILAT",9)=""
^DIST(.404,261,40,"C","MASTECTOMY",15)=""
^DIST(.404,261,40,"C","NEEDLE BIOPSY",18)=""
^DIST(.404,261,40,"C","OPEN BIOPSY",21)=""
^DIST(.404,261,40,"C","PAP SMEAR",24)=""
^DIST(.404,261,40,"C","PELVIC ULTRASOUND",27)=""
^DIST(.404,261,40,"C","PREGNANCY TEST",30)=""
^DIST(.404,261,40,"C","PROCEDURE TYPE",3)=""
^DIST(.404,261,40,"C","STD EVALUATION",33)=""
^DIST(.404,261,40,"C","_______________________________________________________________",2)=""
^DIST(.404,262,0)="WV PROC-DISPLAY-1^790.1^"
^DIST(.404,262,40,0)="^.4044I^37^34"
^DIST(.404,262,40,1,0)="1^* * *  EDIT A PROCEDURE  * * *^1"
^DIST(.404,262,40,1,2)="^^1,19"
^DIST(.404,262,40,2,0)="2^Patient Name:^1"
^DIST(.404,262,40,2,2)="^^2,1"
^DIST(.404,262,40,3,0)="3^Case Manager:^1"
^DIST(.404,262,40,3,2)="^^3,1"
^DIST(.404,262,40,5,0)="5^!M^1"
^DIST(.404,262,40,5,.1)="S Y=""PAP Regimen :"""
^DIST(.404,262,40,5,2)="^^4,1"
^DIST(.404,262,40,6,0)="6^Br Tx Need  :^1"
^DIST(.404,262,40,6,2)="^^6,1"
^DIST(.404,262,40,7,0)="2.5^SSN:^1"
^DIST(.404,262,40,7,2)="^^2,56"
^DIST(.404,262,40,8,0)="3.5^Procedure:^1"
^DIST(.404,262,40,8,2)="^^3,50"
^DIST(.404,262,40,9,0)="4.5^Cx Facility:^1"
^DIST(.404,262,40,9,2)="^^5,48"
^DIST(.404,262,40,10,0)="6.5^Br Facility:^1"
^DIST(.404,262,40,10,2)="^^6,48"
^DIST(.404,262,40,11,0)="5.5^Acc#:^1"
^DIST(.404,262,40,11,2)="^^4,55"
^DIST(.404,262,40,12,0)="2.2^!M^1"
^DIST(.404,262,40,12,.1)="S Y=IOINHI_$$NAME^WVUTL1(WVDFN)_""(""_$$AGE^WVUTL1(WVDFN)_"")""_IOINORM"
^DIST(.404,262,40,12,2)="^^2,15"
^DIST(.404,262,40,13,0)="3.2^!M^1"
^DIST(.404,262,40,13,.1)="S Y=IOINHI_$$CMGR^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,262,40,13,2)="^^3,15"
^DIST(.404,262,40,14,0)="4.2^!M^1"
^DIST(.404,262,40,14,.1)="S Y=IOINHI_$E($$PROC1^WVUTL1A,1,19)_IOINORM"
^DIST(.404,262,40,14,2)="^^3,61"
^DIST(.404,262,40,16,0)="5.3^Cx Tx Need  :^1"
^DIST(.404,262,40,16,2)="^^5,1"
^DIST(.404,262,40,17,0)="5.4^!M^1"
^DIST(.404,262,40,17,.1)="S Y=IOINHI_$$CNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,262,40,17,2)="^^5,15"
^DIST(.404,262,40,18,0)="4.3^!M^1"
^DIST(.404,262,40,18,.1)="S Y=IOINHI_$$PAPRG^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,262,40,18,2)="^^4,15"
^DIST(.404,262,40,19,0)="6.2^ ^1"
^DIST(.404,262,40,19,2)="^^4,11"
^DIST(.404,262,40,20,0)="2.8^!M^1"
^DIST(.404,262,40,20,.1)="S Y=IOINHI_$$SSN^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,262,40,20,2)="^^2,61"
^DIST(.404,262,40,21,0)="4.8^!M^1"
^DIST(.404,262,40,21,.1)="S Y=IOINHI_$$ACC^WVUTL1(DA)_IOINORM"
^DIST(.404,262,40,21,2)="^^4,61"
^DIST(.404,262,40,23,0)="6.4^!M^1"
^DIST(.404,262,40,23,.1)="S Y=IOINHI_$$BNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,262,40,23,2)="^^6,15"
^DIST(.404,262,40,24,0)="20^--------------------------------------------------------------------------------^1"
^DIST(.404,262,40,24,2)="^^9,1"
^DIST(.404,262,40,25,0)="32^!M^1"
^DIST(.404,262,40,25,.1)="S Y=IOINHI_$$EDC^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,262,40,25,2)="^^9,53"
^DIST(.404,262,40,26,0)="31^!M^1"
^DIST(.404,262,40,26,.1)="S Y=IOINHI_$S($$DES^WVUTL1(WVDFN)=""YES"":""*DES DAUGHTER*"",1:"""")"
^DIST(.404,262,40,26,2)="^^9,25"
^DIST(.404,262,40,27,0)="21^!M^1"
^DIST(.404,262,40,27,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""C"")_IOINORM"
^DIST(.404,262,40,27,2)="^^5,61"
^DIST(.404,262,40,28,0)="22^!M^1"
^DIST(.404,262,40,28,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""B"")_IOINORM"
^DIST(.404,262,40,28,2)="^^6,61"
^DIST(.404,262,40,29,0)="23^MST         :^1"
^DIST(.404,262,40,29,2)="^^8,1"
^DIST(.404,262,40,30,0)="24^!M^1"
^DIST(.404,262,40,30,.1)="S Y=IOINHI_$$MST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,262,40,30,2)="^^8,15"
^DIST(.404,262,40,32,0)="25^Veteran:^1"
^DIST(.404,262,40,32,2)="^^7,52"
^DIST(.404,262,40,33,0)="26^!M^1"
^DIST(.404,262,40,33,.1)="S Y=IOINHI_$$VET^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,262,40,33,2)="^^7,61"
^DIST(.404,262,40,34,0)="27^Elig Code   :^1"
^DIST(.404,262,40,34,2)="^^7,1"
^DIST(.404,262,40,35,0)="28^!M^1"
^DIST(.404,262,40,35,.1)="S Y=IOINHI_$P($$ELIG^WVUTL9(WVDFN),U,2)_IOINORM"
^DIST(.404,262,40,35,2)="^^7,15"
^DIST(.404,262,40,36,0)="29^CST:^1"
^DIST(.404,262,40,36,2)="^^8,56"
^DIST(.404,262,40,37,0)="30^!M^1"
^DIST(.404,262,40,37,.1)="S Y=IOINHI_$$CST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,262,40,37,2)="^^8,61"
^DIST(.404,262,40,"B",1,1)=""
^DIST(.404,262,40,"B",2,2)=""
^DIST(.404,262,40,"B",2.2,12)=""
^DIST(.404,262,40,"B",2.5,7)=""
^DIST(.404,262,40,"B",2.8,20)=""
^DIST(.404,262,40,"B",3,3)=""
^DIST(.404,262,40,"B",3.2,13)=""
^DIST(.404,262,40,"B",3.5,8)=""
^DIST(.404,262,40,"B",4.2,14)=""
^DIST(.404,262,40,"B",4.3,18)=""
^DIST(.404,262,40,"B",4.5,9)=""
^DIST(.404,262,40,"B",4.8,21)=""
^DIST(.404,262,40,"B",5,5)=""
^DIST(.404,262,40,"B",5.3,16)=""
^DIST(.404,262,40,"B",5.4,17)=""
^DIST(.404,262,40,"B",5.5,11)=""
^DIST(.404,262,40,"B",6,6)=""
^DIST(.404,262,40,"B",6.2,19)=""
^DIST(.404,262,40,"B",6.4,23)=""
^DIST(.404,262,40,"B",6.5,10)=""
^DIST(.404,262,40,"B",20,24)=""
^DIST(.404,262,40,"B",21,27)=""
^DIST(.404,262,40,"B",22,28)=""
^DIST(.404,262,40,"B",23,29)=""
^DIST(.404,262,40,"B",24,30)=""
^DIST(.404,262,40,"B",25,32)=""
^DIST(.404,262,40,"B",26,33)=""
^DIST(.404,262,40,"B",27,34)=""
^DIST(.404,262,40,"B",28,35)=""
^DIST(.404,262,40,"B",29,36)=""
^DIST(.404,262,40,"B",30,37)=""
^DIST(.404,262,40,"B",31,26)=""
^DIST(.404,262,40,"B",32,25)=""
^DIST(.404,262,40,"C"," ",19)=""
^DIST(.404,262,40,"C","* * *  EDIT A PROCEDURE  * * *",1)=""
^DIST(.404,262,40,"C","---------------------------------------------------------------",24)=""
^DIST(.404,262,40,"C","ACC#:",11)=""
^DIST(.404,262,40,"C","BR FACILITY:",10)=""
^DIST(.404,262,40,"C","BR TX NEED  :",6)=""
^DIST(.404,262,40,"C","CASE MANAGER:",3)=""
^DIST(.404,262,40,"C","CST:",36)=""
^DIST(.404,262,40,"C","CX FACILITY:",9)=""
^DIST(.404,262,40,"C","CX TX NEED  :",16)=""
^DIST(.404,262,40,"C","ELIG CODE   :",34)=""
^DIST(.404,262,40,"C","MST         :",29)=""
^DIST(.404,262,40,"C","PATIENT NAME:",2)=""
^DIST(.404,262,40,"C","PROCEDURE:",8)=""
^DIST(.404,262,40,"C","SSN:",7)=""
^DIST(.404,262,40,"C","VETERAN:",32)=""
^DIST(.404,263,0)="WV REFUSAL-DISPLAY-1^790.1^"
^DIST(.404,263,40,0)="^.4044I^36^28"
^DIST(.404,263,40,1,0)="1^* * *  ADD/EDIT A REFUSAL  * * *^1"
^DIST(.404,263,40,1,2)="^^1,22"
^DIST(.404,263,40,2,0)="2^Patient Name:^1"
^DIST(.404,263,40,2,2)="^^3,1"
^DIST(.404,263,40,3,0)="3^Case Manager:^1"
^DIST(.404,263,40,3,2)="^^4,1"
^DIST(.404,263,40,5,0)="5^!M^1"
^DIST(.404,263,40,5,.1)="S Y=""PAP Regimen:"""
^DIST(.404,263,40,5,2)="^^4,48"
^DIST(.404,263,40,6,0)="6^Br Tx Need  :^1"
^DIST(.404,263,40,6,2)="^^6,1"
^DIST(.404,263,40,7,0)="2.5^SSN:^1"
^DIST(.404,263,40,7,2)="^^3,56"
^DIST(.404,263,40,9,0)="4.5^Cx Tx Fac:^1"
^DIST(.404,263,40,9,2)="^^5,50"
^DIST(.404,263,40,10,0)="6.5^Br Tx Fac:^1"
^DIST(.404,263,40,10,2)="^^6,50"
^DIST(.404,263,40,12,0)="2.2^!M^1"
^DIST(.404,263,40,12,.1)="S Y=IOINHI_$$NAME^WVUTL1(WVDFN)_""(""_$$AGE^WVUTL1(WVDFN)_"")""_IOINORM"
^DIST(.404,263,40,12,2)="^^3,15"
^DIST(.404,263,40,13,0)="3.2^!M^1"
^DIST(.404,263,40,13,.1)="S Y=IOINHI_$$CMGR^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,263,40,13,2)="^^4,15"
^DIST(.404,263,40,16,0)="5.3^Cx Tx Need  :^1"
^DIST(.404,263,40,16,2)="^^5,1"
^DIST(.404,263,40,17,0)="5.4^!M^1"
^DIST(.404,263,40,17,.1)="S Y=IOINHI_$$CNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,263,40,17,2)="^^5,15"
^DIST(.404,263,40,18,0)="4.3^!M^1"
^DIST(.404,263,40,18,.1)="S Y=IOINHI_$$PAPRG^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,263,40,18,2)="^^4,61"
^DIST(.404,263,40,20,0)="2.8^!M^1"
^DIST(.404,263,40,20,.1)="S Y=IOINHI_$$SSN^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,263,40,20,2)="^^3,61"
^DIST(.404,263,40,23,0)="6.4^!M^1"
^DIST(.404,263,40,23,.1)="S Y=IOINHI_$$BNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,263,40,23,2)="^^6,15"
^DIST(.404,263,40,24,0)="20^--------------------------------------------------------------------------------^1"
^DIST(.404,263,40,24,2)="^^10,1"
^DIST(.404,263,40,25,0)="19^!M^1"
^DIST(.404,263,40,25,.1)="S Y=$$EDC^WVUTL1(WVDFN)"
^DIST(.404,263,40,25,2)="^^9,1"
^DIST(.404,263,40,26,0)="17^!M^1"
^DIST(.404,263,40,26,.1)="S Y=IOINHI_$S($$DES^WVUTL1(WVDFN)=""YES"":""*DES DAUGHTER*"",1:"""")"
^DIST(.404,263,40,26,2)="^^9,61"
^DIST(.404,263,40,27,0)="21^!M^1"
^DIST(.404,263,40,27,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""C"")_IOINORM"
^DIST(.404,263,40,27,2)="^^5,61"
^DIST(.404,263,40,28,0)="22^!M^1"
^DIST(.404,263,40,28,.1)="S Y=IOINHI_$$FACIL^WVUTL1A(WVDFN,""B"")_IOINORM"
^DIST(.404,263,40,28,2)="^^6,61"
^DIST(.404,263,40,29,0)="23^MST         :^1"
^DIST(.404,263,40,29,2)="^^8,1"
^DIST(.404,263,40,30,0)="24^!M^1"
^DIST(.404,263,40,30,.1)="S Y=IOINHI_$$MST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,263,40,30,2)="^^8,15"
^DIST(.404,263,40,31,0)="25^Veteran:^1"
^DIST(.404,263,40,31,2)="^^7,52"
^DIST(.404,263,40,32,0)="26^!M^1"
^DIST(.404,263,40,32,.1)="S Y=IOINHI_$$VET^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,263,40,32,2)="^^7,61"
^DIST(.404,263,40,33,0)="27^Elig Code   :^1"
^DIST(.404,263,40,33,2)="^^7,1"
^DIST(.404,263,40,34,0)="28^!M^1"
^DIST(.404,263,40,34,.1)="S Y=IOINHI_$P($$ELIG^WVUTL9(WVDFN),U,2)_IOINORM"
^DIST(.404,263,40,34,2)="^^7,15"
^DIST(.404,263,40,35,0)="23.1^CST:^1"
^DIST(.404,263,40,35,2)="^^8,56"
^DIST(.404,263,40,36,0)="23.2^!M^1"
^DIST(.404,263,40,36,.1)="S Y=IOINHI_$$CST^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,263,40,36,2)="^^8,61"
^DIST(.404,263,40,"B",1,1)=""
^DIST(.404,263,40,"B",2,2)=""
^DIST(.404,263,40,"B",2.2,12)=""
^DIST(.404,263,40,"B",2.5,7)=""
^DIST(.404,263,40,"B",2.8,20)=""
^DIST(.404,263,40,"B",3,3)=""
^DIST(.404,263,40,"B",3.2,13)=""
^DIST(.404,263,40,"B",4.3,18)=""
^DIST(.404,263,40,"B",4.5,9)=""
^DIST(.404,263,40,"B",5,5)=""
^DIST(.404,263,40,"B",5.3,16)=""
^DIST(.404,263,40,"B",5.4,17)=""
^DIST(.404,263,40,"B",6,6)=""
^DIST(.404,263,40,"B",6.4,23)=""
^DIST(.404,263,40,"B",6.5,10)=""
^DIST(.404,263,40,"B",17,26)=""
^DIST(.404,263,40,"B",19,25)=""
^DIST(.404,263,40,"B",20,24)=""
^DIST(.404,263,40,"B",21,27)=""
^DIST(.404,263,40,"B",22,28)=""
^DIST(.404,263,40,"B",23,29)=""
^DIST(.404,263,40,"B",23.1,35)=""
^DIST(.404,263,40,"B",23.2,36)=""
^DIST(.404,263,40,"B",24,30)=""
^DIST(.404,263,40,"B",25,31)=""
^DIST(.404,263,40,"B",26,32)=""
^DIST(.404,263,40,"B",27,33)=""
^DIST(.404,263,40,"B",28,34)=""
^DIST(.404,263,40,"C","* * *  ADD/EDIT A REFUSAL  * * *",1)=""
^DIST(.404,263,40,"C","---------------------------------------------------------------",24)=""
^DIST(.404,263,40,"C","BR TX FAC:",10)=""
^DIST(.404,263,40,"C","BR TX NEED  :",6)=""
^DIST(.404,263,40,"C","CASE MANAGER:",3)=""
^DIST(.404,263,40,"C","CST:",35)=""
^DIST(.404,263,40,"C","CX TX FAC:",9)=""
^DIST(.404,263,40,"C","CX TX NEED  :",16)=""
^DIST(.404,263,40,"C","ELIG CODE   :",33)=""
^DIST(.404,263,40,"C","MST         :",29)=""
^DIST(.404,263,40,"C","PATIENT NAME:",2)=""
^DIST(.404,263,40,"C","SSN:",7)=""
^DIST(.404,263,40,"C","VETERAN:",31)=""
^DIST(.404,264,0)="WV REFUSAL-EDIT-1^790.3"
^DIST(.404,264,40,0)="^.4044I^5^4"
^DIST(.404,264,40,1,0)="1^Date Refused^3"
^DIST(.404,264,40,1,1)=".01"
^DIST(.404,264,40,1,2)="2,15^11^2,1"
^DIST(.404,264,40,1,11)="W IOINHI"
^DIST(.404,264,40,1,12)="W IOINORM"
^DIST(.404,264,40,2,0)="4^Reason^3"
^DIST(.404,264,40,2,1)="3"
^DIST(.404,264,40,2,2)="6,15^17^6,7"
^DIST(.404,264,40,3,0)="5^Comments^3"
^DIST(.404,264,40,3,1)="4"
^DIST(.404,264,40,3,2)="8,15^63^8,5"
^DIST(.404,264,40,5,0)="3^Procedure^3"
^DIST(.404,264,40,5,1)="2"
^DIST(.404,264,40,5,2)="4,15^30^4,4"
^DIST(.404,264,40,"B",1,1)=""
^DIST(.404,264,40,"B",3,5)=""
^DIST(.404,264,40,"B",4,2)=""
^DIST(.404,264,40,"B",5,3)=""
^DIST(.404,264,40,"C","COMMENTS",3)=""
^DIST(.404,264,40,"C","DATE REFUSED",1)=""
^DIST(.404,264,40,"C","PROCEDURE",5)=""
^DIST(.404,264,40,"C","REASON",2)=""
^DIST(.404,265,0)="WV PROC-EDITBLK-LAB^790.1"
^DIST(.404,265,11)=""
^DIST(.404,265,15,0)="1^^1^1^2960118^^^^"
^DIST(.404,265,15,1,0)="WV PROCEDURE-EDIT-BLOCK-1"
^DIST(.404,265,40,0)="^.4044I^5^4"
^DIST(.404,265,40,1,0)="1^Date of Procedure^3"
^DIST(.404,265,40,1,1)=".12"
^DIST(.404,265,40,1,2)="3,25^18^3,6"
^DIST(.404,265,40,1,3)="T"
^DIST(.404,265,40,1,4)="1"
^DIST(.404,265,40,1,13)="N WVX S WVX=$$PDELQ1^WVUTL4(DA,X,DUZ(2)) D PUT^DDSVAL(DIE,DA,.13,WVX)"
^DIST(.404,265,40,3,0)="3^Clinician/Provider^3"
^DIST(.404,265,40,3,1)=".07"
^DIST(.404,265,40,3,2)="4,25^25^4,5"
^DIST(.404,265,40,3,4)="0"
^DIST(.404,265,40,4,0)="4^Ward/Clinic/Location^3"
^DIST(.404,265,40,4,1)=".11"
^DIST(.404,265,40,4,2)="5,25^30^5,3"
^DIST(.404,265,40,4,4)="0"
^DIST(.404,265,40,4,12)=""
^DIST(.404,265,40,4,13)="D PUT^DDSVAL(790.1,.DA,.1,$$INSTIT^WVUTL6)"
^DIST(.404,265,40,5,0)="5^Health Care Facility^3"
^DIST(.404,265,40,5,1)=".1"
^DIST(.404,265,40,5,2)="6,25^30^6,3"
^DIST(.404,265,40,5,4)="1"
^DIST(.404,265,40,"B",1,1)=""
^DIST(.404,265,40,"B",3,3)=""
^DIST(.404,265,40,"B",4,4)=""
^DIST(.404,265,40,"B",5,5)=""
^DIST(.404,265,40,"C","CLINICIAN/PROVIDER",3)=""
^DIST(.404,265,40,"C","DATE OF PROCEDURE",1)=""
^DIST(.404,265,40,"C","HEALTH CARE FACILITY",5)=""
^DIST(.404,265,40,"C","WARD/CLINIC/LOCATION",4)=""
^DIST(.404,266,0)="WV PATIENT-HEADER-2^790^"
^DIST(.404,266,40,0)="^.4044I^11^11"
^DIST(.404,266,40,1,0)="1^* * *  EDIT PATIENT CASE DATA  * * *^1"
^DIST(.404,266,40,1,2)="^^1,22"
^DIST(.404,266,40,2,0)="2^!M^1"
^DIST(.404,266,40,2,.1)="S Y=IOINORM_""Patient Name: ""_IOINHI_$$NAME^WVUTL1(WVDFN)_""(""_$$AGE^WVUTL1(WVDFN)_"")""_IOINORM"
^DIST(.404,266,40,2,2)="^^3,1"
^DIST(.404,266,40,3,0)="3^!M^1"
^DIST(.404,266,40,3,.1)="S Y=IOINORM_$$PNLAB^WVUTL5()_IOINHI_$$SSN^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,266,40,3,2)="^^3,52"
^DIST(.404,266,40,4,0)="4^!M^1"
^DIST(.404,266,40,4,.1)="S Y=IOINORM_""Street: ""_IOINHI_$$STREET^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,266,40,4,2)="^^4,7"
^DIST(.404,266,40,5,0)="5^!M^1"
^DIST(.404,266,40,5,.1)="S Y=IOINORM_""Patient Phone: ""_IOINHI_$$HPHONE^WVUTL1(WVDFN)"
^DIST(.404,266,40,5,2)="^^4,45"
^DIST(.404,266,40,6,0)="6^!M^1"
^DIST(.404,266,40,6,.1)="S Y=IOINORM_""Cty/St/Zip: ""_IOINHI_$$CTYSTZ^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,266,40,6,2)="^^5,3"
^DIST(.404,266,40,7,0)="7^!M^1"
^DIST(.404,266,40,7,.1)="S Y=IOINORM_""Pr Provider: ""_IOINHI_$E($$PROVI^WVUTL1A(WVDFN),1,20)"
^DIST(.404,266,40,7,2)="^^5,47"
^DIST(.404,266,40,8,0)="8^!M^1"
^DIST(.404,266,40,8,.1)="S Y=IOINORM_""Veteran: ""_IOINHI_$$VET^WVUTL1A(WVDFN)"
^DIST(.404,266,40,8,2)="^^6,51"
^DIST(.404,266,40,9,0)="9^________________________________________________________________________________^1"
^DIST(.404,266,40,9,2)="^^8,1"
^DIST(.404,266,40,10,0)="10^!M^1"
^DIST(.404,266,40,10,.1)="S Y=IOINORM_""Elig Code: ""_IOINHI_$P($$ELIG^WVUTL9(WVDFN),U,2)"
^DIST(.404,266,40,10,2)="^^6,4"
^DIST(.404,266,40,11,0)="11^!M^1"
^DIST(.404,266,40,11,.1)="S Y=IOINORM_""MST: ""_IOINHI_$$MST^WVUTL1A(WVDFN)"
^DIST(.404,266,40,11,2)="^^7,10"
^DIST(.404,266,40,"B",1,1)=""
^DIST(.404,266,40,"B",2,2)=""
^DIST(.404,266,40,"B",3,3)=""
^DIST(.404,266,40,"B",4,4)=""
^DIST(.404,266,40,"B",5,5)=""
^DIST(.404,266,40,"B",6,6)=""
^DIST(.404,266,40,"B",7,7)=""
^DIST(.404,266,40,"B",8,8)=""
^DIST(.404,266,40,"B",9,9)=""
^DIST(.404,266,40,"B",10,10)=""
^DIST(.404,266,40,"B",11,11)=""
^DIST(.404,266,40,"C","* * *  EDIT PATIENT CASE DATA  * * *",1)=""
^DIST(.404,266,40,"C","_______________________________________________________________",9)=""
^DIST(.404,267,0)="WV PROC-HEADER-1^790.1^"
^DIST(.404,267,40,0)="^.4044I^14^14"
^DIST(.404,267,40,1,0)="1^* * *  EDIT A PROCEDURE  * * *^1"
^DIST(.404,267,40,1,2)="^^1,24"
^DIST(.404,267,40,2,0)="2^!M^1"
^DIST(.404,267,40,2,.1)="S Y=IOINORM_""Patient Name: ""_IOINHI_$$NAME^WVUTL1(WVDFN)_""(""_$$AGE^WVUTL1(WVDFN)_"")""_IOINORM"
^DIST(.404,267,40,2,2)="^^3,1"
^DIST(.404,267,40,3,0)="3^!M^1"
^DIST(.404,267,40,3,.1)="S Y=IOINORM_$$PNLAB^WVUTL5()_IOINHI_$$SSN^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,267,40,3,2)="^^3,53"
^DIST(.404,267,40,4,0)="4^!M^1"
^DIST(.404,267,40,4,.1)="S Y=IOINORM_""Case Manager: ""_IOINHI_$$CMGR^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,267,40,4,2)="^^4,1"
^DIST(.404,267,40,5,0)="5^!M^1"
^DIST(.404,267,40,5,.1)="S Y=IOINORM_""Procedure: ""_IOINHI_$E($$PROC1^WVUTL1A,1,19)_IOINORM"
^DIST(.404,267,40,5,2)="^^4,50"
^DIST(.404,267,40,6,0)="6^!M^1"
^DIST(.404,267,40,6,.1)="S Y=IOINORM_""Cx Tx Need  : ""_IOINHI_$$CNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,267,40,6,2)="^^5,1"
^DIST(.404,267,40,7,0)="7^!M^1"
^DIST(.404,267,40,7,.1)="S Y=IOINORM_""Acc#: ""_IOINHI_$$ACC^WVUTL1(DA)_IOINORM"
^DIST(.404,267,40,7,2)="^^5,55"
^DIST(.404,267,40,8,0)="8^!M^1"
^DIST(.404,267,40,8,.1)="S Y=IOINORM_""PAP Regimen : ""_IOINHI_$$PAPRG^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,267,40,8,2)="^^6,1"
^DIST(.404,267,40,9,0)="10^!M^1"
^DIST(.404,267,40,9,.1)="S Y=IOINORM_""Br Tx Need  : ""_IOINHI_$$BNEED^WVUTL1(WVDFN,1)_IOINORM"
^DIST(.404,267,40,9,2)="^^7,1"
^DIST(.404,267,40,10,0)="11^!M^1"
^DIST(.404,267,40,10,.1)="S Y=IOINHI_$S($$DES^WVUTL1(WVDFN)=""YES"":""*DES DAUGHTER*"",1:"""")_IOINORM"
^DIST(.404,267,40,10,2)="^^6,61"
^DIST(.404,267,40,11,0)="12^!M^1"
^DIST(.404,267,40,11,.1)="S Y=IOINORM_""Veteran: ""_IOINHI_$$VET^WVUTL1A(WVDFN)_IOINORM"
^DIST(.404,267,40,11,2)="^^8,52"
^DIST(.404,267,40,12,0)="13^!M^1"
^DIST(.404,267,40,12,.1)="S Y=IOINHI_$$EDC^WVUTL1(WVDFN)_IOINORM"
^DIST(.404,267,40,12,2)="^^7,53"
^DIST(.404,267,40,13,0)="14^--------------------------------------------------------------------------------^1"
^DIST(.404,267,40,13,2)="^^9,1"
^DIST(.404,267,40,14,0)="15^!M^1"
^DIST(.404,267,40,14,.1)="S Y=IOINORM_""Elig Code   : ""_IOINHI_$P($$ELIG^WVUTL9(WVDFN),U,2)_IOINORM"
^DIST(.404,267,40,14,2)="^^8,1"
^DIST(.404,267,40,"B",1,1)=""
^DIST(.404,267,40,"B",2,2)=""
^DIST(.404,267,40,"B",3,3)=""
^DIST(.404,267,40,"B",4,4)=""
^DIST(.404,267,40,"B",5,5)=""
^DIST(.404,267,40,"B",6,6)=""
^DIST(.404,267,40,"B",7,7)=""
^DIST(.404,267,40,"B",8,8)=""
^DIST(.404,267,40,"B",10,9)=""
^DIST(.404,267,40,"B",11,10)=""
^DIST(.404,267,40,"B",12,11)=""
^DIST(.404,267,40,"B",13,12)=""
^DIST(.404,267,40,"B",14,13)=""
^DIST(.404,267,40,"B",15,14)=""
^DIST(.404,267,40,"C","* * *  EDIT A PROCEDURE  * * *",1)=""
^DIST(.404,267,40,"C","---------------------------------------------------------------",13)=""
^DIST(.404,268,0)="XDR RESFILE HEADER^15.1^"
^DIST(.404,268,15,0)="^^1^1^2960306^"
^DIST(.404,268,15,1,0)="This is a header block for the main data entry page (page 1)."
^DIST(.404,268,40,0)="^.4044I^3^3"
^DIST(.404,268,40,1,0)="1^DUPLICATE RESOLUTION FILE^1"
^DIST(.404,268,40,1,2)="^^1,28^1"
^DIST(.404,268,40,2,0)="2^_______________________________________________________________________________^1"
^DIST(.404,268,40,2,2)="^^3,1^1"
^DIST(.404,268,40,3,0)="3^FILE TO BE CHECKED^3"
^DIST(.404,268,40,3,1)=".01"
^DIST(.404,268,40,3,2)="2,21^20^2,1"
^DIST(.404,268,40,3,4)="1^^^1"
^DIST(.404,268,40,"B",1,1)=""
^DIST(.404,268,40,"B",2,2)=""
^DIST(.404,268,40,"B",3,3)=""
^DIST(.404,268,40,"C","DUPLICATE RESOLUTION FILE",1)=""
^DIST(.404,268,40,"C","FILE TO BE CHECKED",3)=""
^DIST(.404,268,40,"C","_______________________________________________________________",2)=""
^DIST(.404,269,0)="XDR RESFILE DATA^15.1"
^DIST(.404,269,15,0)="^^1^1^2960305^"
^DIST(.404,269,15,1,0)="This is a data block for the main page (page 1)."
^DIST(.404,269,40,0)="^.4044I^20^9"
^DIST(.404,269,40,2,0)="4^DUPLICATE MANAGER MAIL GROUP^3"
^DIST(.404,269,40,2,1)=".11"
^DIST(.404,269,40,2,2)="5,37^30^5,7"
^DIST(.404,269,40,3,0)="6^POTENTIAL DUPLICATE THRESHOLD%^3"
^DIST(.404,269,40,3,1)=".15"
^DIST(.404,269,40,3,2)="6,37^3^6,5"
^DIST(.404,269,40,13,0)="8^DAYS BEFORE FINAL VERIFY^3"
^DIST(.404,269,40,13,1)=".13"
^DIST(.404,269,40,13,2)="7,37^2^7,11"
^DIST(.404,269,40,14,0)="10^DAYS BETWEEN VERIFY AND MERGE^3"
^DIST(.404,269,40,14,1)=".14"
^DIST(.404,269,40,14,2)="8,37^2^8,6"
^DIST(.404,269,40,15,0)="12^NUMBER OF THREADS^3"
^DIST(.404,269,40,15,1)="1.01"
^DIST(.404,269,40,15,2)="9,37^1^9,18"
^DIST(.404,269,40,17,0)="18^^1"
^DIST(.404,269,40,18,0)="19^ANCILLARY SERVICE^1"
^DIST(.404,269,40,18,2)="^^11,26^1"
^DIST(.404,269,40,19,0)="20^-----------------^1"
^DIST(.404,269,40,19,2)="^^12,26^1"
^DIST(.404,269,40,20,0)="2^MERGE MAIL GROUP^3"
^DIST(.404,269,40,20,1)=".29"
^DIST(.404,269,40,20,2)="4,37^30^4,19"
^DIST(.404,269,40,"B",2,20)=""
^DIST(.404,269,40,"B",4,2)=""
^DIST(.404,269,40,"B",6,3)=""
^DIST(.404,269,40,"B",8,13)=""
^DIST(.404,269,40,"B",10,14)=""
^DIST(.404,269,40,"B",12,15)=""
^DIST(.404,269,40,"B",18,17)=""
^DIST(.404,269,40,"B",19,18)=""
^DIST(.404,269,40,"B",20,19)=""
^DIST(.404,269,40,"C","-----------------",19)=""
^DIST(.404,269,40,"C","ANCILLARY SERVICE",18)=""
^DIST(.404,269,40,"C","DAYS BEFORE FINAL VERIFY",13)=""
^DIST(.404,269,40,"C","DAYS BETWEEN VERIFY AND MERGE",14)=""
^DIST(.404,269,40,"C","DUPLICATE MANAGER MAIL GROUP",2)=""
^DIST(.404,269,40,"C","MERGE MAIL GROUP",20)=""
^DIST(.404,269,40,"C","NUMBER OF THREADS",15)=""
^DIST(.404,269,40,"C","POTENTIAL DUPLICATE THRESHOLD%",3)=""
^DIST(.404,270,0)="XDR RESFILE SUB-BLK1^15.111"
^DIST(.404,270,15,0)="^^1^1^2960305^"
^DIST(.404,270,15,1,0)="This is a block in the pop-up page used for the multiple Duplicate Test."
^DIST(.404,270,40,0)="^.4044I^8^7"
^DIST(.404,270,40,1,0)="1^DUPLICATE RESOLUTION TESTS^1"
^DIST(.404,270,40,1,2)="^^2,3^1"
^DIST(.404,270,40,2,0)="2^DUPLICATE TEST^3"
^DIST(.404,270,40,2,1)=".01"
^DIST(.404,270,40,2,2)="4,30^25^4,14"
^DIST(.404,270,40,4,0)="4^DUPLICATE TEST ROUTINE^3"
^DIST(.404,270,40,4,1)=".03"
^DIST(.404,270,40,4,2)="5,30^17^5,6"
^DIST(.404,270,40,5,0)="5^FILE FOR INFORMATION^3"
^DIST(.404,270,40,5,1)=".04"
^DIST(.404,270,40,5,2)="6,30^26^6,8"
^DIST(.404,270,40,6,0)="6^FIELD TO BE CHECKED^3"
^DIST(.404,270,40,6,1)=".05"
^DIST(.404,270,40,6,2)="7,30^18^7,9"
^DIST(.404,270,40,7,0)="7^SUCCESSFUL MATCH WEIGHT^3"
^DIST(.404,270,40,7,1)=".06"
^DIST(.404,270,40,7,2)="8,30^5^8,5"
^DIST(.404,270,40,8,0)="8^UNSUCCESSFUL MATCH WEIGHT^3"
^DIST(.404,270,40,8,1)=".07"
^DIST(.404,270,40,8,2)="9,30^4^9,3"
^DIST(.404,270,40,"B",1,1)=""
^DIST(.404,270,40,"B",2,2)=""
^DIST(.404,270,40,"B",4,4)=""
^DIST(.404,270,40,"B",5,5)=""
^DIST(.404,270,40,"B",6,6)=""
^DIST(.404,270,40,"B",7,7)=""
^DIST(.404,270,40,"B",8,8)=""
^DIST(.404,270,40,"C","DUPLICATE RESOLUTION TESTS",1)=""
^DIST(.404,270,40,"C","DUPLICATE TEST",2)=""
^DIST(.404,270,40,"C","DUPLICATE TEST ROUTINE",4)=""
^DIST(.404,270,40,"C","FIELD TO BE CHECKED",6)=""
^DIST(.404,270,40,"C","FILE FOR INFORMATION",5)=""
^DIST(.404,270,40,"C","SUCCESSFUL MATCH WEIGHT",7)=""
^DIST(.404,270,40,"C","UNSUCCESSFUL MATCH WEIGHT",8)=""
^DIST(.404,271,0)="XDR RESFILE SUB-BLK2^15.12"
^DIST(.404,271,15,0)="^^1^1^2960209^"
^DIST(.404,271,15,1,0)="This is the data block the pop-up page."
^DIST(.404,271,40,0)="^.4044I^8^7"
^DIST(.404,271,40,1,0)="2^ANCILLARY SERVICE INFORMATION^1"
^DIST(.404,271,40,1,2)="^^2,3^1"
^DIST(.404,271,40,2,0)="4^ANCILLARY SERVICE^3"
^DIST(.404,271,40,2,1)=".01"
^DIST(.404,271,40,2,2)="4,31^25^4,12"
^DIST(.404,271,40,3,0)="12^MAIL GROUP NAME^3"
^DIST(.404,271,40,3,1)=".02"
^DIST(.404,271,40,3,2)="8,31^25^8,14"
^DIST(.404,271,40,4,0)="6^PRIMARY FILE NUMBER^3"
^DIST(.404,271,40,4,1)=".03"
^DIST(.404,271,40,4,2)="5,31^12^5,10"
^DIST(.404,271,40,6,0)="8^SUBFILES (FIELD NUMBERS)^3"
^DIST(.404,271,40,6,1)="2.01"
^DIST(.404,271,40,6,2)="6,31^15^6,5"
^DIST(.404,271,40,7,0)="10^DISPLAY NAMES FOR SUBFILES^3"
^DIST(.404,271,40,7,1)="2.02"
^DIST(.404,271,40,7,2)="7,31^35^7,3"
^DIST(.404,271,40,8,0)="14^INDIVIDUALS FOR ALERTS:^1"
^DIST(.404,271,40,8,2)="^^9,7"
^DIST(.404,271,40,"B",2,1)=""
^DIST(.404,271,40,"B",4,2)=""
^DIST(.404,271,40,"B",6,4)=""
^DIST(.404,271,40,"B",8,6)=""
^DIST(.404,271,40,"B",10,7)=""
^DIST(.404,271,40,"B",12,3)=""
^DIST(.404,271,40,"B",14,8)=""
^DIST(.404,271,40,"C","ANCILLARY SERVICE",2)=""
^DIST(.404,271,40,"C","ANCILLARY SERVICE INFORMATION",1)=""
^DIST(.404,271,40,"C","DISPLAY NAMES FOR SUBFILES",7)=""
^DIST(.404,271,40,"C","INDIVIDUALS FOR ALERTS:",8)=""
^DIST(.404,271,40,"C","MAIL GROUP NAME",3)=""
^DIST(.404,271,40,"C","PRIMARY FILE NUMBER",4)=""
^DIST(.404,271,40,"C","SUBFILES (FIELD NUMBERS)",6)=""
^DIST(.404,272,0)="XDR RESFILE SUB-BLK3^15.121"
^DIST(.404,272,15,0)="^^1^1^2960306^"
^DIST(.404,272,15,1,0)="This block is a repeating block for the multiple Individual."
^DIST(.404,272,40,0)="^.4044I^1^1"
^DIST(.404,272,40,1,0)="1^^3"
^DIST(.404,272,40,1,1)=".01"
^DIST(.404,272,40,1,2)="1,2^29"
^DIST(.404,272,40,1,7)="^"
^DIST(.404,272,40,"B",1,1)=""
^DIST(.404,273,0)="XDR RESFILE RPT-BLK1^15.12"
^DIST(.404,273,15,0)="^^4^4^2960918^"
^DIST(.404,273,15,1,0)=" "
^DIST(.404,273,15,2,0)=" "
^DIST(.404,273,15,3,0)=" "
^DIST(.404,273,15,4,0)="This is a repeating block for the multiple Ancillary services."
^DIST(.404,273,40,0)="^.4044I^1^1"
^DIST(.404,273,40,1,0)="1^^3"
^DIST(.404,273,40,1,1)=".01"
^DIST(.404,273,40,1,2)="3,26^25"
^DIST(.404,273,40,1,7)="^1.2"
^DIST(.404,273,40,"B",1,1)=""
^DIST(.404,274,0)="HL SITE PARAM HEADER^869.3^"
^DIST(.404,274,15,0)="^^1^1^2980430^"
^DIST(.404,274,15,1,0)="A header block"
^DIST(.404,274,40,0)="^.4044I^1^1"
^DIST(.404,274,40,1,0)="1^Edit HL7 Site Parameters^1"
^DIST(.404,274,40,1,2)="^^1,26"
^DIST(.404,274,40,"B",1,1)=""
^DIST(.404,274,40,"C","EDIT HL7 SITE PARAMETERS",1)=""
^DIST(.404,275,0)="HL SITE PARAM UPDATE^869.3"
^DIST(.404,275,40,0)="^.4044I^6^6"
^DIST(.404,275,40,1,0)="1^Current Domain^3"
^DIST(.404,275,40,1,1)=".02"
^DIST(.404,275,40,1,2)="4,39^30^4,23"
^DIST(.404,275,40,1,4)="1"
^DIST(.404,275,40,2,0)="2^Current Institution^3"
^DIST(.404,275,40,2,1)=".04"
^DIST(.404,275,40,2,2)="6,39^30^6,18"
^DIST(.404,275,40,2,4)="1"
^DIST(.404,275,40,3,0)="3^Is this a Production or Test Account?^3"
^DIST(.404,275,40,3,1)=".03"
^DIST(.404,275,40,3,2)="8,39^10^8,1^1"
^DIST(.404,275,40,3,4)="1"
^DIST(.404,275,40,4,0)="4^Default Number of Incoming Filers^3"
^DIST(.404,275,40,4,1)="11"
^DIST(.404,275,40,4,2)="10,39^2^10,4"
^DIST(.404,275,40,4,4)="1"
^DIST(.404,275,40,5,0)="5^Default Number of Outgoing Filers^3"
^DIST(.404,275,40,5,1)="12"
^DIST(.404,275,40,5,2)="12,39^2^12,4"
^DIST(.404,275,40,5,4)="1"
^DIST(.404,275,40,6,0)="6^Mail Group for Alerts^3"
^DIST(.404,275,40,6,1)=".05"
^DIST(.404,275,40,6,2)="14,39^30^14,16"
^DIST(.404,275,40,"B",1,1)=""
^DIST(.404,275,40,"B",2,2)=""
^DIST(.404,275,40,"B",3,3)=""
^DIST(.404,275,40,"B",4,4)=""
^DIST(.404,275,40,"B",5,5)=""
^DIST(.404,275,40,"B",6,6)=""
^DIST(.404,275,40,"C","CURRENT DOMAIN",1)=""
^DIST(.404,275,40,"C","CURRENT INSTITUTION",2)=""
^DIST(.404,275,40,"C","DEFAULT NUMBER OF INCOMING FILERS",4)=""
^DIST(.404,275,40,"C","DEFAULT NUMBER OF OUTGOING FILERS",5)=""
^DIST(.404,275,40,"C","IS THIS A PRODUCTION OR TEST ACCOUNT?",3)=""
^DIST(.404,275,40,"C","MAIL GROUP FOR ALERTS",6)=""
^DIST(.404,276,0)="XPD EDIT MP3^9.6"
^DIST(.404,276,40,0)="^.4044I^9^9"
^DIST(.404,276,40,1,0)="1^2 of 2^1"
^DIST(.404,276,40,1,2)="^^1,71"
^DIST(.404,276,40,2,0)="2^Environment Check Routine^3"
^DIST(.404,276,40,2,1)="913"
^DIST(.404,276,40,2,2)="11,29^8^11,2"
^DIST(.404,276,40,3,0)="3^Pre-Install Routine^3"
^DIST(.404,276,40,3,1)="916"
^DIST(.404,276,40,3,2)="13,29^17^13,8"
^DIST(.404,276,40,4,0)="4^Post-Install Routine^3"
^DIST(.404,276,40,4,1)="914"
^DIST(.404,276,40,4,2)="15,29^17^15,7"
^DIST(.404,276,40,5,0)="10^Y/N^3"
^DIST(.404,276,40,5,1)="913.1"
^DIST(.404,276,40,5,2)="11,58^3^11,53"
^DIST(.404,276,40,5,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,276,40,6,0)="20^Delete Routine^1"
^DIST(.404,276,40,6,2)="^^9,51"
^DIST(.404,276,40,7,0)="21^after install^1"
^DIST(.404,276,40,7,2)="^^10,52"
^DIST(.404,276,40,8,0)="11^Y/N^3"
^DIST(.404,276,40,8,1)="916.1"
^DIST(.404,276,40,8,2)="13,58^3^13,53"
^DIST(.404,276,40,8,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,276,40,9,0)="12^Y/N^3"
^DIST(.404,276,40,9,1)="914.1"
^DIST(.404,276,40,9,2)="15,58^3^15,53"
^DIST(.404,276,40,9,11)="N % S %(1)=""Be VERY careful setting this to yes"" D HLP^DDSUTL(.%)"
^DIST(.404,276,40,"B",1,1)=""
^DIST(.404,276,40,"B",2,2)=""
^DIST(.404,276,40,"B",3,3)=""
^DIST(.404,276,40,"B",4,4)=""
^DIST(.404,276,40,"B",10,5)=""
^DIST(.404,276,40,"B",11,8)=""
^DIST(.404,276,40,"B",12,9)=""
^DIST(.404,276,40,"B",20,6)=""
^DIST(.404,276,40,"B",21,7)=""
^DIST(.404,276,40,"C","2 OF 2",1)=""
^DIST(.404,276,40,"C","AFTER INSTALL",7)=""
^DIST(.404,276,40,"C","DELETE ROUTINE",6)=""
^DIST(.404,276,40,"C","ENVIRONMENT CHECK ROUTINE",2)=""
^DIST(.404,276,40,"C","POST-INSTALL ROUTINE",4)=""
^DIST(.404,276,40,"C","PRE-INSTALL ROUTINE",3)=""
^DIST(.404,276,40,"C","Y/N",5)=""
^DIST(.404,276,40,"C","Y/N",8)=""
^DIST(.404,276,40,"C","Y/N",9)=""
^DIST(.404,277,0)="HL SITE PARAM HEAD^869.3^"
^DIST(.404,277,40,0)="^.4044I^2^2"
^DIST(.404,277,40,1,0)="1^Edit HL7 Site Parameters^1"
^DIST(.404,277,40,1,2)="^^1,26"
^DIST(.404,277,40,2,0)="2^Page 1 of 2^1"
^DIST(.404,277,40,2,2)="^^1,68"
^DIST(.404,277,40,"B",1,1)=""
^DIST(.404,277,40,"B",2,2)=""
^DIST(.404,277,40,"C","EDIT HL7 SITE PARAMETERS",1)=""
^DIST(.404,277,40,"C","PAGE 1 OF 2",2)=""
^DIST(.404,278,0)="HL SITE PARAM DATA^869.3"
^DIST(.404,278,40,0)="^.4044I^16^9"
^DIST(.404,278,40,1,0)="1^Current Domain^3"
^DIST(.404,278,40,1,1)=".02"
^DIST(.404,278,40,1,2)="3,39^30^3,23"
^DIST(.404,278,40,1,4)="1"
^DIST(.404,278,40,2,0)="2^Current Institution^3"
^DIST(.404,278,40,2,1)=".04"
^DIST(.404,278,40,2,2)="4,39^30^4,18"
^DIST(.404,278,40,2,4)="1"
^DIST(.404,278,40,3,0)="3^Is this a Production or Test Account?^3"
^DIST(.404,278,40,3,1)=".03"
^DIST(.404,278,40,3,2)="5,39^10^5,1^1"
^DIST(.404,278,40,3,4)="1"
^DIST(.404,278,40,6,0)="4^Mail Group for Alerts^3"
^DIST(.404,278,40,6,1)=".05"
^DIST(.404,278,40,6,2)="7,39^30^7,16"
^DIST(.404,278,40,12,0)="12^Page 1 of 2^1"
^DIST(.404,278,40,12,2)="^^1,1"
^DIST(.404,278,40,13,0)="13^------------------------------------------------------------------------------^1"
^DIST(.404,278,40,13,2)="^^1,1"
^DIST(.404,278,40,14,0)="14^System Link Monitor VIEWS^1"
^DIST(.404,278,40,14,2)="^^10,1"
^DIST(.404,278,40,15,0)="15^-------------------------^1"
^DIST(.404,278,40,15,2)="^^11,1"
^DIST(.404,278,40,16,0)="16^[Goto next page to edit Background Process Parameters]^1"
^DIST(.404,278,40,16,2)="^^16,13"
^DIST(.404,278,40,"B",1,1)=""
^DIST(.404,278,40,"B",2,2)=""
^DIST(.404,278,40,"B",3,3)=""
^DIST(.404,278,40,"B",4,6)=""
^DIST(.404,278,40,"B",12,12)=""
^DIST(.404,278,40,"B",13,13)=""
^DIST(.404,278,40,"B",14,14)=""
^DIST(.404,278,40,"B",15,15)=""
^DIST(.404,278,40,"B",16,16)=""
^DIST(.404,278,40,"C","-------------------------",15)=""
^DIST(.404,278,40,"C","---------------------------------------------------------------",13)=""
^DIST(.404,278,40,"C","CURRENT DOMAIN",1)=""
^DIST(.404,278,40,"C","CURRENT INSTITUTION",2)=""
^DIST(.404,278,40,"C","IS THIS A PRODUCTION OR TEST ACCOUNT?",3)=""
^DIST(.404,278,40,"C","MAIL GROUP FOR ALERTS",6)=""
^DIST(.404,278,40,"C","PAGE 1 OF 2",12)=""
^DIST(.404,278,40,"C","SYSTEM LINK MONITOR VIEWS",14)=""
^DIST(.404,278,40,"C","[GOTO NEXT PAGE TO EDIT BACKGROUND PROCESS PARAMETERS]",16)=""
^DIST(.404,279,0)="PSBO HDR^53.69^"
^DIST(.404,279,40,0)="^.4044I^4^3"
^DIST(.404,279,40,1,0)="1^!M^1"
^DIST(.404,279,40,1,.1)="S Y=""Request #: ""_$P(^PSB(53.69,DA,0),U)"
^DIST(.404,279,40,1,2)="^^1,1"
^DIST(.404,279,40,3,0)="3^!M^1"
^DIST(.404,279,40,3,.1)="S Y=$TR($J("""",80),"" "",""-"")"
^DIST(.404,279,40,3,2)="^^2,1"
^DIST(.404,279,40,4,0)="2^!M^1"
^DIST(.404,279,40,4,.1)="S Y=$J($$GET1^DIQ(53.69,DA_"","",.05),40)"
^DIST(.404,279,40,4,2)="^^1,41"
^DIST(.404,279,40,"B",1,1)=""
^DIST(.404,279,40,"B",2,4)=""
^DIST(.404,279,40,"B",3,3)=""
^DIST(.404,280,0)="PSBO DL^53.69"
^DIST(.404,280,40,0)="^.4044I^14^7"
^DIST(.404,280,40,7,0)="8^Include Schedule - Continuous^3"
^DIST(.404,280,40,7,1)=".21"
^DIST(.404,280,40,7,2)="1,33^3^1,2"
^DIST(.404,280,40,7,3)="!M"
^DIST(.404,280,40,7,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL CONT"")"
^DIST(.404,280,40,7,13)="D EN^XPAR(""USR"",""PSB VDL INCL CONT"",1,DDSEXT)"
^DIST(.404,280,40,8,0)="9^PRN^3"
^DIST(.404,280,40,8,1)=".22"
^DIST(.404,280,40,8,2)="2,33^3^2,28"
^DIST(.404,280,40,8,3)="!M"
^DIST(.404,280,40,8,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL PRN"")"
^DIST(.404,280,40,8,13)="D EN^XPAR(""USR"",""PSB VDL INCL PRN"",1,DDSEXT)"
^DIST(.404,280,40,9,0)="10^On Call^3"
^DIST(.404,280,40,9,1)=".23"
^DIST(.404,280,40,9,2)="3,33^3^3,24"
^DIST(.404,280,40,9,3)="!M"
^DIST(.404,280,40,9,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL ON-CALL"")"
^DIST(.404,280,40,9,13)="D EN^XPAR(""USR"",""PSB VDL INCL ON-CALL"",1,DDSEXT)"
^DIST(.404,280,40,10,0)="11^One-Time^3"
^DIST(.404,280,40,10,1)=".24"
^DIST(.404,280,40,10,2)="4,33^3^4,23"
^DIST(.404,280,40,10,3)="!M"
^DIST(.404,280,40,10,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL ONE-TIME"")"
^DIST(.404,280,40,10,13)="D EN^XPAR(""USR"",""PSB VDL INCL ONE-TIME"",1,DDSEXT)"
^DIST(.404,280,40,12,0)="15^Include Addendums^3"
^DIST(.404,280,40,12,1)=".25"
^DIST(.404,280,40,12,2)="4,64^3^4,45"
^DIST(.404,280,40,12,3)="!M"
^DIST(.404,280,40,12,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL BLANKS"")"
^DIST(.404,280,40,12,13)="D EN^XPAR(""USR"",""PSB VDL INCL BLANKS"",1,DDSEXT)"
^DIST(.404,280,40,13,0)="12^Include Order Types - IV^3"
^DIST(.404,280,40,13,1)=".26"
^DIST(.404,280,40,13,2)="1,64^3^1,38"
^DIST(.404,280,40,13,3)="!M"
^DIST(.404,280,40,13,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL IV MEDS"")"
^DIST(.404,280,40,13,13)="D EN^XPAR(""USR"",""PSB VDL INCL IV MEDS"",1,DDSEXT)"
^DIST(.404,280,40,14,0)="13^Unit Dose^3"
^DIST(.404,280,40,14,1)=".27"
^DIST(.404,280,40,14,2)="2,64^3^2,53"
^DIST(.404,280,40,14,3)="!M"
^DIST(.404,280,40,14,3.1)="S Y=+$$GET^XPAR(""ALL"",""PSB VDL INCL UD MEDS"")"
^DIST(.404,280,40,14,13)="D EN^XPAR(""USR"",""PSB VDL INCL UD MEDS"",1,DDSEXT)"
^DIST(.404,280,40,"B",8,7)=""
^DIST(.404,280,40,"B",9,8)=""
^DIST(.404,280,40,"B",10,9)=""
^DIST(.404,280,40,"B",11,10)=""
^DIST(.404,280,40,"B",12,13)=""
^DIST(.404,280,40,"B",13,14)=""
^DIST(.404,280,40,"B",15,12)=""
^DIST(.404,280,40,"C","INCLUDE ADDENDUMS",12)=""
^DIST(.404,280,40,"C","INCLUDE ORDER TYPES - IV",13)=""
^DIST(.404,280,40,"C","INCLUDE SCHEDULE - CONTINUOUS",7)=""
^DIST(.404,280,40,"C","ON CALL",9)=""
^DIST(.404,280,40,"C","ONE-TIME",10)=""
^DIST(.404,280,40,"C","PRN",8)=""
^DIST(.404,280,40,"C","UNIT DOSE",14)=""
^DIST(.404,281,0)="PSBO FTR^53.69"
^DIST(.404,281,40,0)="^.4044I^3^3"
^DIST(.404,281,40,1,0)="1^Print to DEVICE^3"
^DIST(.404,281,40,1,1)=".06"
^DIST(.404,281,40,1,2)="1,59^22^1,42"
^DIST(.404,281,40,1,3)="!M"
^DIST(.404,281,40,1,3.1)="S Y=$$GET^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""E"")"
^DIST(.404,281,40,1,13)="D EN^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""`""_X)"
^DIST(.404,281,40,2,0)="2^Queue To Run At^3"
^DIST(.404,281,40,2,1)=".07"
^DIST(.404,281,40,2,2)="2,59^17^2,42"
^DIST(.404,281,40,2,3)="NOW"
^DIST(.404,281,40,3,0)="3^Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit^2"
^DIST(.404,281,40,3,2)="3,76^1^3,1"
^DIST(.404,281,40,3,10)="S DDSBR=""1^2^1"" ; Return to field 1 block 2"
^DIST(.404,281,40,3,20)="F^^1:1"
^DIST(.404,281,40,"B",1,1)=""
^DIST(.404,281,40,"B",2,2)=""
^DIST(.404,281,40,"B",3,3)=""
^DIST(.404,281,40,"C","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCEL   PF1-R REFRESH   <RE",3)=""
^DIST(.404,281,40,"C","PRINT TO DEVICE",1)=""
^DIST(.404,281,40,"C","QUEUE TO RUN AT",2)=""
^DIST(.404,282,0)="PSBO WA^53.69"
^DIST(.404,282,40,0)="^.4044I^1^1"
^DIST(.404,282,40,1,0)="1^Date for Report^3"
^DIST(.404,282,40,1,1)=".16"
^DIST(.404,282,40,1,2)="2,19^11^2,2"
^DIST(.404,282,40,1,3)="TODAY"
^DIST(.404,282,40,"B",1,1)=""
^DIST(.404,282,40,"C","DATE FOR REPORT",1)=""
^DIST(.404,283,0)="PSBO MM^53.69"
^DIST(.404,283,40,0)="^.4044I^1^3"
^DIST(.404,283,40,1,0)="1^Date for Report^3"
^DIST(.404,283,40,1,1)=".16"
^DIST(.404,283,40,1,2)="2,19^11^2,2"
^DIST(.404,283,40,2,0)="2^Start Time^3"
^DIST(.404,283,40,2,1)=".17"
^DIST(.404,283,40,2,2)="2,44^6^2,32"
^DIST(.404,283,40,3,0)="3^Stop Time^3"
^DIST(.404,283,40,3,1)=".19"
^DIST(.404,283,40,3,2)="2,63^6^2,52"
^DIST(.404,283,40,"B",1,1)=""
^DIST(.404,283,40,"B",2,2)=""
^DIST(.404,283,40,"B",3,3)=""
^DIST(.404,283,40,"C","DATE FOR REPORT",1)=""
^DIST(.404,283,40,"C","START TIME",2)=""
^DIST(.404,283,40,"C","STOP TIME",3)=""
^DIST(.404,284,0)="PSBO PE^53.69"
^DIST(.404,284,40,0)="^.4044I^4^4"
^DIST(.404,284,40,1,0)="1^Start Date^3"
^DIST(.404,284,40,1,1)=".16"
^DIST(.404,284,40,1,2)="2,14^11^2,2"
^DIST(.404,284,40,2,0)="2^Time^3"
^DIST(.404,284,40,2,1)=".17"
^DIST(.404,284,40,2,2)="2,33^6^2,27"
^DIST(.404,284,40,3,0)="4^Time^3"
^DIST(.404,284,40,3,1)=".19"
^DIST(.404,284,40,3,2)="2,71^6^2,65"
^DIST(.404,284,40,4,0)="3^Stop Date^3"
^DIST(.404,284,40,4,1)=".18"
^DIST(.404,284,40,4,2)="2,52^11^2,41"
^DIST(.404,284,40,"B",1,1)=""
^DIST(.404,284,40,"B",2,2)=""
^DIST(.404,284,40,"B",3,4)=""
^DIST(.404,284,40,"B",4,3)=""
^DIST(.404,284,40,"C","START DATE",1)=""
^DIST(.404,284,40,"C","STOP DATE",4)=""
^DIST(.404,284,40,"C","TIME",2)=""
^DIST(.404,284,40,"C","TIME",3)=""
^DIST(.404,285,0)="PSB MISSING DOSE HDR^53.68^"
^DIST(.404,285,40,0)="^.4044I^6^6"
^DIST(.404,285,40,1,0)="1^!M^1"
^DIST(.404,285,40,1,.1)="S Y=""Request #: ""_$$GET1^DIQ(53.68,DA_"","",.01)"
^DIST(.404,285,40,1,2)="^^1,1"
^DIST(.404,285,40,2,0)="2^Missing Dose Request^1"
^DIST(.404,285,40,2,2)="^^1,60"
^DIST(.404,285,40,3,0)="3^!M^1"
^DIST(.404,285,40,3,.1)="S Y=$TR($J("""",80),"" "",""-"")"
^DIST(.404,285,40,3,2)="^^2,1"
^DIST(.404,285,40,4,0)="4^Requesting User^3"
^DIST(.404,285,40,4,1)=".03"
^DIST(.404,285,40,4,2)="3,20^30^3,1"
^DIST(.404,285,40,5,0)="5^Division^3"
^DIST(.404,285,40,5,1)=".04"
^DIST(.404,285,40,5,2)="3,62^18^3,52"
^DIST(.404,285,40,6,0)="6^Request Date/Time^3"
^DIST(.404,285,40,6,1)=".02"
^DIST(.404,285,40,6,2)="4,20^17^4,1"
^DIST(.404,285,40,"B",1,1)=""
^DIST(.404,285,40,"B",2,2)=""
^DIST(.404,285,40,"B",3,3)=""
^DIST(.404,285,40,"B",4,4)=""
^DIST(.404,285,40,"B",5,5)=""
^DIST(.404,285,40,"B",6,6)=""
^DIST(.404,285,40,"C","DIVISION",5)=""
^DIST(.404,285,40,"C","MISSING DOSE REQUEST",2)=""
^DIST(.404,285,40,"C","REQUEST DATE/TIME",6)=""
^DIST(.404,285,40,"C","REQUESTING USER",4)=""
^DIST(.404,286,0)="PSBO MH^53.69"
^DIST(.404,286,40,0)="^.4044I^1^2"
^DIST(.404,286,40,1,0)="1^Start Date^3"
^DIST(.404,286,40,1,1)=".16"
^DIST(.404,286,40,1,2)="2,14^11^2,2"
^DIST(.404,286,40,2,0)="2^Stop Date^3"
^DIST(.404,286,40,2,1)=".18"
^DIST(.404,286,40,2,2)="2,38^11^2,27"
^DIST(.404,286,40,"B",1,1)=""
^DIST(.404,286,40,"B",2,2)=""
^DIST(.404,286,40,"C","START DATE",1)=""
^DIST(.404,286,40,"C","STOP DATE",2)=""
^DIST(.404,287,0)="PSB MISSING DOSE REQUEST^53.68"
^DIST(.404,287,40,0)="^.4044I^9^9"
^DIST(.404,287,40,1,0)="1^Patient Name^3"
^DIST(.404,287,40,1,1)=".11"
^DIST(.404,287,40,1,2)="2,18^30^2,3"
^DIST(.404,287,40,1,13)="D REFRESH^DDSUTL"
^DIST(.404,287,40,2,0)="2^Ward Location^3"
^DIST(.404,287,40,2,1)=".12"
^DIST(.404,287,40,2,2)="3,18^30^3,3"
^DIST(.404,287,40,3,0)="4^Missing Drug^3"
^DIST(.404,287,40,3,1)=".13"
^DIST(.404,287,40,3,2)="6,18^30^6,3"
^DIST(.404,287,40,4,0)="5^Dosage Needed^3"
^DIST(.404,287,40,4,1)=".14"
^DIST(.404,287,40,4,2)="7,18^30^7,3"
^DIST(.404,287,40,5,0)="6^Reason Needed^3"
^DIST(.404,287,40,5,1)=".15"
^DIST(.404,287,40,5,2)="8,18^25^8,3"
^DIST(.404,287,40,6,0)="8^Administration Date/Time^3"
^DIST(.404,287,40,6,1)=".16"
^DIST(.404,287,40,6,2)="11,29^17^11,3"
^DIST(.404,287,40,7,0)="9^Needed by Date/Time^3"
^DIST(.404,287,40,7,1)=".17"
^DIST(.404,287,40,7,2)="12,29^17^12,3"
^DIST(.404,287,40,8,0)="3^Room/Bed^3"
^DIST(.404,287,40,8,1)=".18"
^DIST(.404,287,40,8,2)="4,13^30^4,3"
^DIST(.404,287,40,9,0)="7^Schedule^3"
^DIST(.404,287,40,9,1)=".19"
^DIST(.404,287,40,9,2)="10,13^25^10,3"
^DIST(.404,287,40,9,4)="1"
^DIST(.404,287,40,"B",1,1)=""
^DIST(.404,287,40,"B",2,2)=""
^DIST(.404,287,40,"B",3,8)=""
^DIST(.404,287,40,"B",4,3)=""
^DIST(.404,287,40,"B",5,4)=""
^DIST(.404,287,40,"B",6,5)=""
^DIST(.404,287,40,"B",7,9)=""
^DIST(.404,287,40,"B",8,6)=""
^DIST(.404,287,40,"B",9,7)=""
^DIST(.404,287,40,"C","ADMINISTRATION DATE/TIME",6)=""
^DIST(.404,287,40,"C","DOSAGE NEEDED",4)=""
^DIST(.404,287,40,"C","MISSING DRUG",3)=""
^DIST(.404,287,40,"C","NEEDED BY DATE/TIME",7)=""
^DIST(.404,287,40,"C","PATIENT NAME",1)=""
^DIST(.404,287,40,"C","REASON NEEDED",5)=""
^DIST(.404,287,40,"C","ROOM/BED",8)=""
^DIST(.404,287,40,"C","SCHEDULE",9)=""
^DIST(.404,287,40,"C","WARD LOCATION",2)=""
^DIST(.404,288,0)="PSBO MV^53.69^"
^DIST(.404,288,40,0)="^.4044I^2^4"
^DIST(.404,288,40,1,0)="1^Start Date^3"
^DIST(.404,288,40,1,1)=".16"
^DIST(.404,288,40,1,2)="2,14^11^2,2"
^DIST(.404,288,40,2,0)="2^Time^3"
^DIST(.404,288,40,2,1)=".17"
^DIST(.404,288,40,2,2)="2,33^6^2,27"
^DIST(.404,288,40,3,0)="3^Stop Date^3"
^DIST(.404,288,40,3,1)=".18"
^DIST(.404,288,40,3,2)="2,52^11^2,41"
^DIST(.404,288,40,4,0)="4^Time^3"
^DIST(.404,288,40,4,1)=".19"
^DIST(.404,288,40,4,2)="2,71^6^2,65"
^DIST(.404,288,40,"B",1,1)=""
^DIST(.404,288,40,"B",2,2)=""
^DIST(.404,288,40,"B",3,3)=""
^DIST(.404,288,40,"B",4,4)=""
^DIST(.404,288,40,"C","START DATE",1)=""
^DIST(.404,288,40,"C","STOP DATE",3)=""
^DIST(.404,288,40,"C","TIME",2)=""
^DIST(.404,288,40,"C","TIME",4)=""
^DIST(.404,289,0)="PSB MISSING DOSE FOLLOWUP^53.68"
^DIST(.404,289,40,0)="^.4044I^9^9"
^DIST(.404,289,40,1,0)="1^Patient Name^3"
^DIST(.404,289,40,1,1)=".11"
^DIST(.404,289,40,1,2)="2,17^30^2,1"
^DIST(.404,289,40,1,4)="^^^1"
^DIST(.404,289,40,2,0)="2^Ward^3"
^DIST(.404,289,40,2,1)=".12"
^DIST(.404,289,40,2,2)="2,55^18^2,49"
^DIST(.404,289,40,2,4)="^^^1"
^DIST(.404,289,40,3,0)="3^Drug Requested^3"
^DIST(.404,289,40,3,1)=".13"
^DIST(.404,289,40,3,2)="3,17^30^3,1"
^DIST(.404,289,40,3,4)="^^^1"
^DIST(.404,289,40,4,0)="6^Dose Delivered^3"
^DIST(.404,289,40,4,1)=".21"
^DIST(.404,289,40,4,2)="7,27^3^7,3"
^DIST(.404,289,40,5,0)="7^Delivered By^3"
^DIST(.404,289,40,5,1)=".22"
^DIST(.404,289,40,5,2)="8,27^35^8,3"
^DIST(.404,289,40,5,3)="!M"
^DIST(.404,289,40,5,3.1)="S Y=""`""_DUZ"
^DIST(.404,289,40,6,0)="8^Delivery Date/Time^3"
^DIST(.404,289,40,6,1)=".23"
^DIST(.404,289,40,6,2)="9,27^17^9,3"
^DIST(.404,289,40,7,0)="9^Pharmacy Reason Needed^3"
^DIST(.404,289,40,7,1)=".24"
^DIST(.404,289,40,7,2)="10,27^25^10,3"
^DIST(.404,289,40,8,0)="5^***** Pharmacy Followup Information *****^1"
^DIST(.404,289,40,8,2)="^^5,17"
^DIST(.404,289,40,9,0)="4^Room/Bed^3"
^DIST(.404,289,40,9,1)=".18"
^DIST(.404,289,40,9,2)="3,59^15^3,49"
^DIST(.404,289,40,9,4)="^^^1"
^DIST(.404,289,40,"B",1,1)=""
^DIST(.404,289,40,"B",2,2)=""
^DIST(.404,289,40,"B",3,3)=""
^DIST(.404,289,40,"B",4,9)=""
^DIST(.404,289,40,"B",5,8)=""
^DIST(.404,289,40,"B",6,4)=""
^DIST(.404,289,40,"B",7,5)=""
^DIST(.404,289,40,"B",8,6)=""
^DIST(.404,289,40,"B",9,7)=""
^DIST(.404,289,40,"C","***** PHARMACY FOLLOWUP INFORMATION *****",8)=""
^DIST(.404,289,40,"C","DELIVERED BY",5)=""
^DIST(.404,289,40,"C","DELIVERY DATE/TIME",6)=""
^DIST(.404,289,40,"C","DOSE DELIVERED",4)=""
^DIST(.404,289,40,"C","DRUG REQUESTED",3)=""
^DIST(.404,289,40,"C","PATIENT NAME",1)=""
^DIST(.404,289,40,"C","PHARMACY REASON NEEDED",7)=""
^DIST(.404,289,40,"C","ROOM/BED",9)=""
^DIST(.404,289,40,"C","WARD",2)=""
^DIST(.404,290,0)="PSBO BL^53.69"
^DIST(.404,290,40,0)="^.4044I^10^10"
^DIST(.404,290,40,1,0)="1^Drug Name^3"
^DIST(.404,290,40,1,1)=".31"
^DIST(.404,290,40,1,2)="2,13^40^2,2"
^DIST(.404,290,40,2,0)="2^Lot #^3"
^DIST(.404,290,40,2,1)=".32"
^DIST(.404,290,40,2,2)="3,19^15^3,12"
^DIST(.404,290,40,3,0)="3^Expiration Date^3"
^DIST(.404,290,40,3,1)=".33"
^DIST(.404,290,40,3,2)="4,19^11^4,2"
^DIST(.404,290,40,4,0)="4^Manufacturer^3"
^DIST(.404,290,40,4,1)=".34"
^DIST(.404,290,40,4,2)="5,19^30^5,5"
^DIST(.404,290,40,5,0)="5^Quantity^3"
^DIST(.404,290,40,5,1)=".35"
^DIST(.404,290,40,5,2)="7,19^7^7,9"
^DIST(.404,290,40,6,0)="6^Filled By^3"
^DIST(.404,290,40,6,1)=".36"
^DIST(.404,290,40,6,2)="8,19^5^8,8"
^DIST(.404,290,40,7,0)="7^Checked By^3"
^DIST(.404,290,40,7,1)=".37"
^DIST(.404,290,40,7,2)="9,19^5^9,7"
^DIST(.404,290,40,8,0)="8^# Labels^3"
^DIST(.404,290,40,8,1)=".38"
^DIST(.404,290,40,8,2)="10,19^7^10,9"
^DIST(.404,290,40,8,3)="1"
^DIST(.404,290,40,9,0)="9^Patient Name^3"
^DIST(.404,290,40,9,1)=".12"
^DIST(.404,290,40,9,2)="11,19^30^11,5"
^DIST(.404,290,40,10,0)="10^Dosage^3"
^DIST(.404,290,40,10,1)=".39"
^DIST(.404,290,40,10,2)="12,19^30^12,11"
^DIST(.404,290,40,"B",1,1)=""
^DIST(.404,290,40,"B",2,2)=""
^DIST(.404,290,40,"B",3,3)=""
^DIST(.404,290,40,"B",4,4)=""
^DIST(.404,290,40,"B",5,5)=""
^DIST(.404,290,40,"B",6,6)=""
^DIST(.404,290,40,"B",7,7)=""
^DIST(.404,290,40,"B",8,8)=""
^DIST(.404,290,40,"B",9,9)=""
^DIST(.404,290,40,"B",10,10)=""
^DIST(.404,290,40,"C","# LABELS",8)=""
^DIST(.404,290,40,"C","CHECKED BY",7)=""
^DIST(.404,290,40,"C","DOSAGE",10)=""
^DIST(.404,290,40,"C","DRUG NAME",1)=""
^DIST(.404,290,40,"C","EXPIRATION DATE",3)=""
^DIST(.404,290,40,"C","FILLED BY",6)=""
^DIST(.404,290,40,"C","LOT #",2)=""
^DIST(.404,290,40,"C","MANUFACTURER",4)=""
^DIST(.404,290,40,"C","PATIENT NAME",9)=""
^DIST(.404,290,40,"C","QUANTITY",5)=""
^DIST(.404,291,0)="PSBO MD^53.69"
^DIST(.404,291,40,0)="^.4044I^5^5"
^DIST(.404,291,40,1,0)="1^Start Date^3"
^DIST(.404,291,40,1,1)=".16"
^DIST(.404,291,40,1,2)="2,14^11^2,2"
^DIST(.404,291,40,2,0)="2^At^3"
^DIST(.404,291,40,2,1)=".17"
^DIST(.404,291,40,2,2)="2,31^6^2,27"
^DIST(.404,291,40,3,0)="3^Stop Date^3"
^DIST(.404,291,40,3,1)=".18"
^DIST(.404,291,40,3,2)="4,14^11^4,3"
^DIST(.404,291,40,4,0)="4^At^3"
^DIST(.404,291,40,4,1)=".19"
^DIST(.404,291,40,4,2)="4,31^6^4,27"
^DIST(.404,291,40,5,0)="5^Ward (Return for All)^3"
^DIST(.404,291,40,5,1)=".13"
^DIST(.404,291,40,5,2)="6,31^30^6,8"
^DIST(.404,291,40,"B",1,1)=""
^DIST(.404,291,40,"B",2,2)=""
^DIST(.404,291,40,"B",3,3)=""
^DIST(.404,291,40,"B",4,4)=""
^DIST(.404,291,40,"B",5,5)=""
^DIST(.404,291,40,"C","AT",2)=""
^DIST(.404,291,40,"C","AT",4)=""
^DIST(.404,291,40,"C","START DATE",1)=""
^DIST(.404,291,40,"C","STOP DATE",3)=""
^DIST(.404,291,40,"C","WARD (RETURN FOR ALL)",5)=""
^DIST(.404,292,0)="PSBO DATES^53.69"
^DIST(.404,292,40,0)="^.4044I^4^4"
^DIST(.404,292,40,1,0)="1^Start Date^3"
^DIST(.404,292,40,1,1)=".16"
^DIST(.404,292,40,1,2)="2,14^11^2,2"
^DIST(.404,292,40,2,0)="2^At^3"
^DIST(.404,292,40,2,1)=".17"
^DIST(.404,292,40,2,2)="2,31^6^2,27"
^DIST(.404,292,40,3,0)="3^Stop Date^3"
^DIST(.404,292,40,3,1)=".18"
^DIST(.404,292,40,3,2)="2,50^11^2,39"
^DIST(.404,292,40,4,0)="4^At^3"
^DIST(.404,292,40,4,1)=".19"
^DIST(.404,292,40,4,2)="2,67^6^2,63"
^DIST(.404,292,40,"B",1,1)=""
^DIST(.404,292,40,"B",2,2)=""
^DIST(.404,292,40,"B",3,3)=""
^DIST(.404,292,40,"B",4,4)=""
^DIST(.404,292,40,"C","AT",2)=""
^DIST(.404,292,40,"C","AT",4)=""
^DIST(.404,292,40,"C","START DATE",1)=""
^DIST(.404,292,40,"C","STOP DATE",3)=""
^DIST(.404,293,0)="PSBO PT OR WARD^53.69"
^DIST(.404,293,40,0)="^.4044I^4^4"
^DIST(.404,293,40,1,0)="1^Run by Patient or Ward^3"
^DIST(.404,293,40,1,1)=".11"
^DIST(.404,293,40,1,2)="1,26^7^1,2"
^DIST(.404,293,40,1,10)="S DDSBR=$S(X=""P"":2,1:3)"
^DIST(.404,293,40,1,13)="D UNED^DDSUTL(2,,,X'=""P""),UNED^DDSUTL(3,,,X'=""W""),UNED^DDSUTL(4,,,X'=""W"") D:X=""P"" PUT^DDSVAL(53.69,.DA,.13,""""),PUT^DDSVAL(53.69,.DA,.15,"""") D:X=""W"" PUT^DDSVAL(53.69,.DA,.12,"""")"
^DIST(.404,293,40,2,0)="2^Patient Name^3"
^DIST(.404,293,40,2,1)=".12"
^DIST(.404,293,40,2,2)="2,26^30^2,12"
^DIST(.404,293,40,2,12)="D REFRESH^DDSUTL"
^DIST(.404,293,40,3,0)="3^Ward Location^3"
^DIST(.404,293,40,3,1)=".13"
^DIST(.404,293,40,3,2)="3,26^20^3,11"
^DIST(.404,293,40,4,0)="4^Sort by Pt or Room-Bed^3"
^DIST(.404,293,40,4,1)=".15"
^DIST(.404,293,40,4,2)="3,72^8^3,48"
^DIST(.404,293,40,"B",1,1)=""
^DIST(.404,293,40,"B",2,2)=""
^DIST(.404,293,40,"B",3,3)=""
^DIST(.404,293,40,"B",4,4)=""
^DIST(.404,293,40,"C","PATIENT NAME",2)=""
^DIST(.404,293,40,"C","RUN BY PATIENT OR WARD",1)=""
^DIST(.404,293,40,"C","SORT BY PT OR ROOM-BED",4)=""
^DIST(.404,293,40,"C","WARD LOCATION",3)=""
^DIST(.404,294,0)="PSB PRN EFFECTIVENESS^53.79"
^DIST(.404,294,40,0)="^.4044I^10^10"
^DIST(.404,294,40,1,0)="1^Patient^3"
^DIST(.404,294,40,1,1)=".01"
^DIST(.404,294,40,1,2)="4,10^30^4,1"
^DIST(.404,294,40,1,4)="^^^1"
^DIST(.404,294,40,2,0)="2^Location^3"
^DIST(.404,294,40,2,1)=".02"
^DIST(.404,294,40,2,2)="5,11^20^5,1"
^DIST(.404,294,40,2,4)="^^^1"
^DIST(.404,294,40,3,0)="3^Division^3"
^DIST(.404,294,40,3,1)=".03"
^DIST(.404,294,40,3,2)="5,43^30^5,33"
^DIST(.404,294,40,3,4)="^^^1"
^DIST(.404,294,40,4,0)="4^Administration Date/Time^3"
^DIST(.404,294,40,4,1)=".06"
^DIST(.404,294,40,4,2)="8,27^20^8,1"
^DIST(.404,294,40,4,4)="^^^1"
^DIST(.404,294,40,5,0)="5^Administration By^3"
^DIST(.404,294,40,5,1)=".07"
^DIST(.404,294,40,5,2)="9,27^35^9,8"
^DIST(.404,294,40,5,4)="^^^1"
^DIST(.404,294,40,6,0)="6^PRN Reason^3"
^DIST(.404,294,40,6,1)=".21"
^DIST(.404,294,40,6,2)="12,2^78^11,1"
^DIST(.404,294,40,6,4)="^^^1"
^DIST(.404,294,40,7,0)="7^PRN Effectiveness^3"
^DIST(.404,294,40,7,1)=".22"
^DIST(.404,294,40,7,2)="15,2^78^14,1"
^DIST(.404,294,40,8,0)="8^PRN Effectiveness Entry^1"
^DIST(.404,294,40,8,2)="^^1,1"
^DIST(.404,294,40,9,0)="9^!M^1"
^DIST(.404,294,40,9,.1)="S Y=$TR($J("""",IOM),"" "",""-"")"
^DIST(.404,294,40,9,2)="^^2,1"
^DIST(.404,294,40,10,0)="10^Medication^3"
^DIST(.404,294,40,10,1)=".08"
^DIST(.404,294,40,10,2)="7,27^40^7,15"
^DIST(.404,294,40,10,4)="^^^1"
^DIST(.404,294,40,"B",1,1)=""
^DIST(.404,294,40,"B",2,2)=""
^DIST(.404,294,40,"B",3,3)=""
^DIST(.404,294,40,"B",4,4)=""
^DIST(.404,294,40,"B",5,5)=""
^DIST(.404,294,40,"B",6,6)=""
^DIST(.404,294,40,"B",7,7)=""
^DIST(.404,294,40,"B",8,8)=""
^DIST(.404,294,40,"B",9,9)=""
^DIST(.404,294,40,"B",10,10)=""
^DIST(.404,294,40,"C","ADMINISTRATION BY",5)=""
^DIST(.404,294,40,"C","ADMINISTRATION DATE/TIME",4)=""
^DIST(.404,294,40,"C","DIVISION",3)=""
^DIST(.404,294,40,"C","LOCATION",2)=""
^DIST(.404,294,40,"C","MEDICATION",10)=""
^DIST(.404,294,40,"C","PATIENT",1)=""
^DIST(.404,294,40,"C","PRN EFFECTIVENESS",7)=""
^DIST(.404,294,40,"C","PRN EFFECTIVENESS ENTRY",8)=""
^DIST(.404,294,40,"C","PRN REASON",6)=""
^DIST(.404,295,0)="PSB MED LOG EDIT^53.79"
^DIST(.404,295,40,0)="^.4044I^13^13"
^DIST(.404,295,40,1,0)="4^^3"
^DIST(.404,295,40,1,1)=".01"
^DIST(.404,295,40,1,2)="4,16^30"
^DIST(.404,295,40,1,4)="0^^^1"
^DIST(.404,295,40,2,0)="1^Medication Log Edit UD/PB^1"
^DIST(.404,295,40,2,2)="^^1,1"
^DIST(.404,295,40,3,0)="2^!M^1"
^DIST(.404,295,40,3,.1)="S Y=$TR($J("""",IOM),"" "",""-"")"
^DIST(.404,295,40,3,2)="^^2,1"
^DIST(.404,295,40,4,0)="5^!M^1"
^DIST(.404,295,40,4,.1)="S Y=""SSN: ""_$$GET1^DIQ(2,$P(^PSB(53.79,DA,0),U)_"","",.09)"
^DIST(.404,295,40,4,2)="^^4,47"
^DIST(.404,295,40,5,0)="7^Admin Status^3"
^DIST(.404,295,40,5,1)=".09"
^DIST(.404,295,40,5,2)="7,18^7^7,2"
^DIST(.404,295,40,5,14)="D VALID^PSBMLEN"
^DIST(.404,295,40,6,0)="8^Admin Date/Time^3"
^DIST(.404,295,40,6,1)=".06"
^DIST(.404,295,40,6,2)="7,44^20^7,27"
^DIST(.404,295,40,7,0)="10^PRN Reason^3"
^DIST(.404,295,40,7,1)=".21"
^DIST(.404,295,40,7,2)="10,22^58^10,2"
^DIST(.404,295,40,8,0)="11^PRN Effectiveness^3"
^DIST(.404,295,40,8,1)=".22"
^DIST(.404,295,40,8,2)="11,22^58^11,2"
^DIST(.404,295,40,9,0)="13^Comment (Required)^2"
^DIST(.404,295,40,9,2)="16,2^78^15,2"
^DIST(.404,295,40,9,4)="1"
^DIST(.404,295,40,9,20)="F^^1:150"
^DIST(.404,295,40,9,23)="D COMMENT^PSBML(DA,X)"
^DIST(.404,295,40,10,0)="6^Medication^3"
^DIST(.404,295,40,10,1)=".08"
^DIST(.404,295,40,10,2)="5,16^40^5,2"
^DIST(.404,295,40,10,4)="^^^1"
^DIST(.404,295,40,11,0)="3^Patient:^1"
^DIST(.404,295,40,11,2)="^^4,2"
^DIST(.404,295,40,12,0)="9^Injection Site^3"
^DIST(.404,295,40,12,1)=".16"
^DIST(.404,295,40,12,2)="8,18^30^8,2"
^DIST(.404,295,40,13,0)="12^Dispense Drugs...^2"
^DIST(.404,295,40,13,2)="13,22^1^13,2^1"
^DIST(.404,295,40,13,7)="^2"
^DIST(.404,295,40,13,20)="F^^1:1"
^DIST(.404,295,40,"B",1,2)=""
^DIST(.404,295,40,"B",2,3)=""
^DIST(.404,295,40,"B",3,11)=""
^DIST(.404,295,40,"B",4,1)=""
^DIST(.404,295,40,"B",5,4)=""
^DIST(.404,295,40,"B",6,10)=""
^DIST(.404,295,40,"B",7,5)=""
^DIST(.404,295,40,"B",8,6)=""
^DIST(.404,295,40,"B",9,12)=""
^DIST(.404,295,40,"B",10,7)=""
^DIST(.404,295,40,"B",11,8)=""
^DIST(.404,295,40,"B",12,13)=""
^DIST(.404,295,40,"B",13,9)=""
^DIST(.404,295,40,"C","ADMIN DATE/TIME",6)=""
^DIST(.404,295,40,"C","ADMIN STATUS",5)=""
^DIST(.404,295,40,"C","COMMENT (REQUIRED)",9)=""
^DIST(.404,295,40,"C","DISPENSE DRUGS...",13)=""
^DIST(.404,295,40,"C","INJECTION SITE",12)=""
^DIST(.404,295,40,"C","MEDICATION",10)=""
^DIST(.404,295,40,"C","MEDICATION LOG EDIT UD/PB",2)=""
^DIST(.404,295,40,"C","PATIENT:",11)=""
^DIST(.404,295,40,"C","PRN EFFECTIVENESS",8)=""
^DIST(.404,295,40,"C","PRN REASON",7)=""
^DIST(.404,296,0)="PSB MED LOG EDIT DD HDR^53.79^"
^DIST(.404,296,40,0)="^.4044I^3^3"
^DIST(.404,296,40,1,0)="1^ Dispense Drugs ^1"
^DIST(.404,296,40,1,2)="^^1,2"
^DIST(.404,296,40,2,0)="2^Drug Name                        Order   Given  Units^1"
^DIST(.404,296,40,2,2)="^^3,3"
^DIST(.404,296,40,3,0)="3^Units   Units^1"
^DIST(.404,296,40,3,2)="^^2,36"
^DIST(.404,296,40,"B",1,1)=""
^DIST(.404,296,40,"B",2,2)=""
^DIST(.404,296,40,"B",3,3)=""
^DIST(.404,296,40,"C"," DISPENSE DRUGS ",1)=""
^DIST(.404,296,40,"C","DRUG NAME                        ORDER   GIVEN  UNITS",2)=""
^DIST(.404,296,40,"C","UNITS   UNITS",3)=""
^DIST(.404,297,0)="PSB MED LOG EDIT DD^53.795"
^DIST(.404,297,40,0)="^.4044I^4^4"
^DIST(.404,297,40,1,0)="1^^3"
^DIST(.404,297,40,1,1)=".01"
^DIST(.404,297,40,1,2)="1,1^30"
^DIST(.404,297,40,1,4)="^^^0"
^DIST(.404,297,40,2,0)="2^^3"
^DIST(.404,297,40,2,1)=".02"
^DIST(.404,297,40,2,2)="1,33^6"
^DIST(.404,297,40,2,4)="^^1^1"
^DIST(.404,297,40,3,0)="3^^3"
^DIST(.404,297,40,3,1)=".03"
^DIST(.404,297,40,3,2)="1,41^6"
^DIST(.404,297,40,3,4)="1^^1"
^DIST(.404,297,40,4,0)="4^^3"
^DIST(.404,297,40,4,1)=".04"
^DIST(.404,297,40,4,2)="1,49^10"
^DIST(.404,297,40,4,4)="1"
^DIST(.404,297,40,"B",1,1)=""
^DIST(.404,297,40,"B",2,2)=""
^DIST(.404,297,40,"B",3,3)=""
^DIST(.404,297,40,"B",4,4)=""
^DIST(.404,298,0)="PSB NEW UD ENTRY^53.79"
^DIST(.404,298,40,0)="^.4044I^13^13"
^DIST(.404,298,40,1,0)="4^^3"
^DIST(.404,298,40,1,1)=".01"
^DIST(.404,298,40,1,2)="4,16^30"
^DIST(.404,298,40,1,4)="0^^^1"
^DIST(.404,298,40,2,0)="1^Medication Log Manual Entry - Unit Dose Order^1"
^DIST(.404,298,40,2,2)="^^1,1"
^DIST(.404,298,40,3,0)="2^!M^1"
^DIST(.404,298,40,3,.1)="S Y=$TR($J("""",IOM),"" "",""-"")"
^DIST(.404,298,40,3,2)="^^2,1"
^DIST(.404,298,40,4,0)="5^!M^1"
^DIST(.404,298,40,4,.1)="S Y=""SSN: ""_$$GET1^DIQ(2,$P(^PSB(53.79,DA,0),U)_"","",.09)"
^DIST(.404,298,40,4,2)="^^4,47"
^DIST(.404,298,40,5,0)="7^Admin Status^3"
^DIST(.404,298,40,5,1)=".09"
^DIST(.404,298,40,5,2)="7,18^7^7,2"
^DIST(.404,298,40,5,14)="D VALID^PSBMLEN"
^DIST(.404,298,40,6,0)="8^Admin Date/Time^3"
^DIST(.404,298,40,6,1)=".06"
^DIST(.404,298,40,6,2)="7,44^20^7,27"
^DIST(.404,298,40,6,4)="1^^^0"
^DIST(.404,298,40,6,14)="D FDATE^PSBMLEN1"
^DIST(.404,298,40,7,0)="10^PRN Reason^3"
^DIST(.404,298,40,7,1)=".21"
^DIST(.404,298,40,7,2)="10,22^58^10,2"
^DIST(.404,298,40,8,0)="11^PRN Effectiveness^3"
^DIST(.404,298,40,8,1)=".22"
^DIST(.404,298,40,8,2)="11,22^58^11,2"
^DIST(.404,298,40,9,0)="13^Comment (Required)^2"
^DIST(.404,298,40,9,2)="16,2^78^15,2"
^DIST(.404,298,40,9,4)="1"
^DIST(.404,298,40,9,20)="F^^1:150"
^DIST(.404,298,40,9,23)="D COMMENT^PSBML(DA,X)"
^DIST(.404,298,40,10,0)="6^Medication^3"
^DIST(.404,298,40,10,1)=".08"
^DIST(.404,298,40,10,2)="5,16^40^5,2"
^DIST(.404,298,40,10,4)="^^^1"
^DIST(.404,298,40,11,0)="3^Patient:^1"
^DIST(.404,298,40,11,2)="^^4,2"
^DIST(.404,298,40,12,0)="9^Injection Site^3"
^DIST(.404,298,40,12,1)=".16"
^DIST(.404,298,40,12,2)="8,18^30^8,2"
^DIST(.404,298,40,13,0)="12^Dispense Drugs...^2"
^DIST(.404,298,40,13,2)="13,22^1^13,2^1"
^DIST(.404,298,40,13,7)="^2"
^DIST(.404,298,40,13,20)="F^^1:1"
^DIST(.404,298,40,"B",1,2)=""
^DIST(.404,298,40,"B",2,3)=""
^DIST(.404,298,40,"B",3,11)=""
^DIST(.404,298,40,"B",4,1)=""
^DIST(.404,298,40,"B",5,4)=""
^DIST(.404,298,40,"B",6,10)=""
^DIST(.404,298,40,"B",7,5)=""
^DIST(.404,298,40,"B",8,6)=""
^DIST(.404,298,40,"B",9,12)=""
^DIST(.404,298,40,"B",10,7)=""
^DIST(.404,298,40,"B",11,8)=""
^DIST(.404,298,40,"B",12,13)=""
^DIST(.404,298,40,"B",13,9)=""
^DIST(.404,298,40,"C","ADMIN DATE/TIME",6)=""
^DIST(.404,298,40,"C","ADMIN STATUS",5)=""
^DIST(.404,298,40,"C","COMMENT (REQUIRED)",9)=""
^DIST(.404,298,40,"C","DISPENSE DRUGS...",13)=""
^DIST(.404,298,40,"C","INJECTION SITE",12)=""
^DIST(.404,298,40,"C","MEDICATION",10)=""
^DIST(.404,298,40,"C","MEDICATION LOG MANUAL ENTRY - UNIT DOSE ORDER",2)=""
^DIST(.404,298,40,"C","PATIENT:",11)=""
^DIST(.404,298,40,"C","PRN EFFECTIVENESS",8)=""
^DIST(.404,298,40,"C","PRN REASON",7)=""
^DIST(.404,299,0)="PSB NEW UD ENTRY DD HDR^53.79^"
^DIST(.404,299,40,0)="^.4044I^3^3"
^DIST(.404,299,40,1,0)="1^ Dispense Drugs ^1"
^DIST(.404,299,40,1,2)="^^1,2"
^DIST(.404,299,40,2,0)="2^Drug Name                        Order   Given  Units^1"
^DIST(.404,299,40,2,2)="^^3,3"
^DIST(.404,299,40,3,0)="3^Units   Units^1"
^DIST(.404,299,40,3,2)="^^2,36"
^DIST(.404,299,40,"B",1,1)=""
^DIST(.404,299,40,"B",2,2)=""
^DIST(.404,299,40,"B",3,3)=""
^DIST(.404,299,40,"C"," DISPENSE DRUGS ",1)=""
^DIST(.404,299,40,"C","DRUG NAME                        ORDER   GIVEN  UNITS",2)=""
^DIST(.404,299,40,"C","UNITS   UNITS",3)=""
^DIST(.404,300,0)="PSB NEW UD ENTRY DD^53.795"
^DIST(.404,300,11)=""
^DIST(.404,300,12)=""
^DIST(.404,300,40,0)="^.4044I^4^4"
^DIST(.404,300,40,1,0)="1^^3"
^DIST(.404,300,40,1,1)=".01"
^DIST(.404,300,40,1,2)="1,1^30"
^DIST(.404,300,40,1,4)="^^^1"
^DIST(.404,300,40,2,0)="2^^3"
^DIST(.404,300,40,2,1)=".02"
^DIST(.404,300,40,2,2)="1,33^6"
^DIST(.404,300,40,2,4)="^^1^1"
^DIST(.404,300,40,3,0)="3^^3"
^DIST(.404,300,40,3,1)=".03"
^DIST(.404,300,40,3,2)="1,41^6"
^DIST(.404,300,40,3,4)="1^^1"
^DIST(.404,300,40,4,0)="4^^3"
^DIST(.404,300,40,4,1)=".04"
^DIST(.404,300,40,4,2)="1,49^10"
^DIST(.404,300,40,4,4)="1^^^0"
^DIST(.404,300,40,4,13)="D UNITS^PSBMLEN"
^DIST(.404,300,40,"B",1,1)=""
^DIST(.404,300,40,"B",2,2)=""
^DIST(.404,300,40,"B",3,3)=""
^DIST(.404,300,40,"B",4,4)=""
^DIST(.404,301,0)="PSB NEW IV ENTRY^53.79"
^DIST(.404,301,40,0)="^.4044I^13^13"
^DIST(.404,301,40,1,0)="4^^3"
^DIST(.404,301,40,1,1)=".01"
^DIST(.404,301,40,1,2)="4,16^30"
^DIST(.404,301,40,1,4)="0^^^1"
^DIST(.404,301,40,2,0)="1^Medication Log Manual Entry - IV Order^1"
^DIST(.404,301,40,2,2)="^^1,1"
^DIST(.404,301,40,3,0)="2^!M^1"
^DIST(.404,301,40,3,.1)="S Y=$TR($J("""",IOM),"" "",""-"")"
^DIST(.404,301,40,3,2)="^^2,1"
^DIST(.404,301,40,4,0)="5^!M^1"
^DIST(.404,301,40,4,.1)="S Y=""SSN: ""_$$GET1^DIQ(2,$P(^PSB(53.79,DA,0),U)_"","",.09)"
^DIST(.404,301,40,4,2)="^^4,47"
^DIST(.404,301,40,5,0)="7^Admin Status^3"
^DIST(.404,301,40,5,1)=".09"
^DIST(.404,301,40,5,2)="7,18^7^7,2"
^DIST(.404,301,40,5,3)=" "
^DIST(.404,301,40,5,3.1)=" "
^DIST(.404,301,40,5,4)="^^^0"
^DIST(.404,301,40,5,14)="D:$G(PSBMMEN) VALID^PSBMLEN"
^DIST(.404,301,40,6,0)="8^Admin Date/Time^3"
^DIST(.404,301,40,6,1)=".06"
^DIST(.404,301,40,6,2)="7,44^20^7,27"
^DIST(.404,301,40,6,4)="1"
^DIST(.404,301,40,6,14)="D FDATE^PSBMLEN1"
^DIST(.404,301,40,7,0)="10^PRN Reason^3"
^DIST(.404,301,40,7,1)=".21"
^DIST(.404,301,40,7,2)="10,22^58^10,2"
^DIST(.404,301,40,8,0)="11^PRN Effectiveness^3"
^DIST(.404,301,40,8,1)=".22"
^DIST(.404,301,40,8,2)="11,22^58^11,2"
^DIST(.404,301,40,9,0)="13^Comment (Required)^2"
^DIST(.404,301,40,9,2)="16,2^78^15,2"
^DIST(.404,301,40,9,4)="1"
^DIST(.404,301,40,9,20)="F^^1:150"
^DIST(.404,301,40,9,23)="D COMMENT^PSBML(DA,X)"
^DIST(.404,301,40,10,0)="6^Medication^3"
^DIST(.404,301,40,10,1)=".08"
^DIST(.404,301,40,10,2)="5,16^40^5,2"
^DIST(.404,301,40,10,4)="^^^1"
^DIST(.404,301,40,11,0)="3^Patient:^1"
^DIST(.404,301,40,11,2)="^^4,2"
^DIST(.404,301,40,12,0)="9^Injection Site^3"
^DIST(.404,301,40,12,1)=".16"
^DIST(.404,301,40,12,2)="8,18^30^8,2"
^DIST(.404,301,40,13,0)="12^Additives...^2"
^DIST(.404,301,40,13,2)="13,17^1^13,2^1"
^DIST(.404,301,40,13,7)="^2"
^DIST(.404,301,40,13,20)="F^^1:1"
^DIST(.404,301,40,"B",1,2)=""
^DIST(.404,301,40,"B",2,3)=""
^DIST(.404,301,40,"B",3,11)=""
^DIST(.404,301,40,"B",4,1)=""
^DIST(.404,301,40,"B",5,4)=""
^DIST(.404,301,40,"B",6,10)=""
^DIST(.404,301,40,"B",7,5)=""
^DIST(.404,301,40,"B",8,6)=""
^DIST(.404,301,40,"B",9,12)=""
^DIST(.404,301,40,"B",10,7)=""
^DIST(.404,301,40,"B",11,8)=""
^DIST(.404,301,40,"B",12,13)=""
^DIST(.404,301,40,"B",13,9)=""
^DIST(.404,301,40,"C","ADDITIVES...",13)=""
^DIST(.404,301,40,"C","ADMIN DATE/TIME",6)=""
^DIST(.404,301,40,"C","ADMIN STATUS",5)=""
^DIST(.404,301,40,"C","COMMENT (REQUIRED)",9)=""
^DIST(.404,301,40,"C","INJECTION SITE",12)=""
^DIST(.404,301,40,"C","MEDICATION",10)=""
^DIST(.404,301,40,"C","MEDICATION LOG MANUAL ENTRY - IV ORDER",2)=""
^DIST(.404,301,40,"C","PATIENT:",11)=""
^DIST(.404,301,40,"C","PRN EFFECTIVENESS",8)=""
^DIST(.404,301,40,"C","PRN REASON",7)=""
^DIST(.404,302,0)="PSB NEW IV ENTRY ADD HDR^53.79^"
^DIST(.404,302,40,0)="^.4044I^3^3"
^DIST(.404,302,40,1,0)="1^ Additives ^1"
^DIST(.404,302,40,1,2)="^^1,2"
^DIST(.404,302,40,2,0)="2^Additives                        Order   Given  Units^1"
^DIST(.404,302,40,2,2)="^^3,3"
^DIST(.404,302,40,3,0)="3^Units   Units^1"
^DIST(.404,302,40,3,2)="^^2,36"
^DIST(.404,302,40,"B",1,1)=""
^DIST(.404,302,40,"B",2,2)=""
^DIST(.404,302,40,"B",3,3)=""
^DIST(.404,302,40,"C"," ADDITIVES ",1)=""
^DIST(.404,302,40,"C","ADDITIVES                        ORDER   GIVEN  UNITS",2)=""
^DIST(.404,302,40,"C","UNITS   UNITS",3)=""
^DIST(.404,303,0)="PSB NEW IV ENTRY ADD^53.796"
^DIST(.404,303,40,0)="^.4044I^4^4"
^DIST(.404,303,40,1,0)="1^^3"
^DIST(.404,303,40,1,1)=".01"
^DIST(.404,303,40,1,2)="1,1^30"
^DIST(.404,303,40,1,4)="^^^1"
^DIST(.404,303,40,2,0)="2^^3"
^DIST(.404,303,40,2,1)=".02"
^DIST(.404,303,40,2,2)="1,33^6"
^DIST(.404,303,40,2,4)="^^1^1"
^DIST(.404,303,40,3,0)="3^^3"
^DIST(.404,303,40,3,1)=".03"
^DIST(.404,303,40,3,2)="1,41^6"
^DIST(.404,303,40,3,4)="1^^1"
^DIST(.404,303,40,4,0)="4^^3"
^DIST(.404,303,40,4,1)=".04"
^DIST(.404,303,40,4,2)="1,49^10"
^DIST(.404,303,40,4,4)="1"
^DIST(.404,303,40,"B",1,1)=""
^DIST(.404,303,40,"B",2,2)=""
^DIST(.404,303,40,"B",3,3)=""
^DIST(.404,303,40,"B",4,4)=""
^DIST(.404,304,0)="PSBO ML^53.69"
^DIST(.404,304,40,0)="^.4044I^2^2"
^DIST(.404,304,40,1,0)="1^Include Comments^3"
^DIST(.404,304,40,1,1)=".28"
^DIST(.404,304,40,1,2)="1,66^3^1,48"
^DIST(.404,304,40,2,0)="2^Include Audits^3"
^DIST(.404,304,40,2,1)=".29"
^DIST(.404,304,40,2,2)="2,66^3^2,48"
^DIST(.404,304,40,"B",1,1)=""
^DIST(.404,304,40,"B",2,2)=""
^DIST(.404,304,40,"C","INCLUDE AUDITS",2)=""
^DIST(.404,304,40,"C","INCLUDE COMMENTS",1)=""
^DIST(.404,305,0)="WV SITE PARAMS-EDITBLK-6^790.02"
^DIST(.404,305,40,0)="^.4044I^18^18"
^DIST(.404,305,40,1,0)="1^!M^1"
^DIST(.404,305,40,1,.1)="S Y=""* * *  EDIT SITE PARAMETERS FOR ""_IOINHI_$P(^DIC(4,DA,0),U)_IOINORM_""  * * *"""
^DIST(.404,305,40,1,2)="^^3,12"
^DIST(.404,305,40,2,0)="2^-------------------------------------------------------------------------------^1"
^DIST(.404,305,40,2,2)="^^4,1"
^DIST(.404,305,40,3,0)="3^Procedure Type^1"
^DIST(.404,305,40,3,2)="^^6,5"
^DIST(.404,305,40,4,0)="3.1^Active^1"
^DIST(.404,305,40,4,2)="^^6,31"
^DIST(.404,305,40,5,0)="3.3^DAYS DELINQUENT^1"
^DIST(.404,305,40,5,2)="^^6,43"
^DIST(.404,305,40,6,0)="4^--------------------^1"
^DIST(.404,305,40,6,2)="^^7,5"
^DIST(.404,305,40,7,0)="4.1^------^1"
^DIST(.404,305,40,7,2)="^^7,31"
^DIST(.404,305,40,8,0)="4.3^---------------^1"
^DIST(.404,305,40,8,2)="^^7,43"
^DIST(.404,305,40,9,0)="5^Stereotactic Biopsy^1"
^DIST(.404,305,40,9,2)="^^8,5"
^DIST(.404,305,40,10,0)="5.1^^3"
^DIST(.404,305,40,10,1)="35.01"
^DIST(.404,305,40,10,2)="8,32^3"
^DIST(.404,305,40,11,0)="5.3^^3"
^DIST(.404,305,40,11,1)="35.03"
^DIST(.404,305,40,11,2)="8,48^4"
^DIST(.404,305,40,12,0)="6^Tubal Ligation^1"
^DIST(.404,305,40,12,2)="^^9,5"
^DIST(.404,305,40,13,0)="6.1^^3"
^DIST(.404,305,40,13,1)="39.01"
^DIST(.404,305,40,13,2)="9,32^3"
^DIST(.404,305,40,14,0)="6.3^^3"
^DIST(.404,305,40,14,1)="39.03"
^DIST(.404,305,40,14,2)="9,48^4"
^DIST(.404,305,40,15,0)="7^Vaginal Ultrasound^1"
^DIST(.404,305,40,15,2)="^^10,5"
^DIST(.404,305,40,16,0)="7.1^^3"
^DIST(.404,305,40,16,1)="41.01"
^DIST(.404,305,40,16,2)="10,32^3"
^DIST(.404,305,40,17,0)="7.3^^3"
^DIST(.404,305,40,17,1)="41.03"
^DIST(.404,305,40,17,2)="10,48^4"
^DIST(.404,305,40,18,0)="20^!M^1"
^DIST(.404,305,40,18,.1)="S Y=""(PAGE 6 OF 6)"""
^DIST(.404,305,40,18,2)="^^17,57"
^DIST(.404,305,40,"B",1,1)=""
^DIST(.404,305,40,"B",2,2)=""
^DIST(.404,305,40,"B",3,3)=""
^DIST(.404,305,40,"B",3.1,4)=""
^DIST(.404,305,40,"B",3.3,5)=""
^DIST(.404,305,40,"B",4,6)=""
^DIST(.404,305,40,"B",4.1,7)=""
^DIST(.404,305,40,"B",4.3,8)=""
^DIST(.404,305,40,"B",5,9)=""
^DIST(.404,305,40,"B",5.1,10)=""
^DIST(.404,305,40,"B",5.3,11)=""
^DIST(.404,305,40,"B",6,12)=""
^DIST(.404,305,40,"B",6.1,13)=""
^DIST(.404,305,40,"B",6.3,14)=""
^DIST(.404,305,40,"B",7,15)=""
^DIST(.404,305,40,"B",7.1,16)=""
^DIST(.404,305,40,"B",7.3,17)=""
^DIST(.404,305,40,"B",20,18)=""
^DIST(.404,305,40,"C","------",7)=""
^DIST(.404,305,40,"C","---------------",8)=""
^DIST(.404,305,40,"C","--------------------",6)=""
^DIST(.404,305,40,"C","---------------------------------------------------------------",2)=""
^DIST(.404,305,40,"C","ACTIVE",4)=""
^DIST(.404,305,40,"C","DAYS DELINQUENT",5)=""
^DIST(.404,305,40,"C","PROCEDURE TYPE",3)=""
^DIST(.404,305,40,"C","STEREOTACTIC BIOPSY",9)=""
^DIST(.404,305,40,"C","TUBAL LIGATION",12)=""
^DIST(.404,305,40,"C","VAGINAL ULTRASOUND",15)=""
^DIST(.404,306,0)="HL7 APP BLK1^771"
^DIST(.404,306,40,0)="^.4044I^10^9"
^DIST(.404,306,40,1,0)="1^HL7 APPLICATION EDIT^1"
^DIST(.404,306,40,1,2)="^^1,28"
^DIST(.404,306,40,2,0)="4^NAME^3"
^DIST(.404,306,40,2,1)=".01"
^DIST(.404,306,40,2,2)="4,22^15^4,16"
^DIST(.404,306,40,3,0)="5^ACTIVE/INACTIVE^3"
^DIST(.404,306,40,3,1)="2"
^DIST(.404,306,40,3,2)="4,69^8^4,52"
^DIST(.404,306,40,4,0)="6^FACILITY NAME^3"
^DIST(.404,306,40,4,1)="3"
^DIST(.404,306,40,4,2)="7,22^20^7,7"
^DIST(.404,306,40,5,0)="7^COUNTRY CODE^3"
^DIST(.404,306,40,5,1)="7"
^DIST(.404,306,40,5,2)="7,69^3^7,55"
^DIST(.404,306,40,5,3)="US"
^DIST(.404,306,40,6,0)="9^HL7 ENCODING CHARACTERS^3"
^DIST(.404,306,40,6,1)="101"
^DIST(.404,306,40,6,2)="10,69^4^10,44"
^DIST(.404,306,40,7,0)="8^HL7 FIELD SEPARATOR^3"
^DIST(.404,306,40,7,1)="100"
^DIST(.404,306,40,7,2)="10,22^1^10,1"
^DIST(.404,306,40,8,0)="10^MAIL GROUP^3"
^DIST(.404,306,40,8,1)="4"
^DIST(.404,306,40,8,2)="13,22^30^13,10"
^DIST(.404,306,40,10,0)="3^--------------------------------------------------------------------------------^1"
^DIST(.404,306,40,10,2)="^^2,1"
^DIST(.404,306,40,"B",1,1)=""
^DIST(.404,306,40,"B",3,10)=""
^DIST(.404,306,40,"B",4,2)=""
^DIST(.404,306,40,"B",5,3)=""
^DIST(.404,306,40,"B",6,4)=""
^DIST(.404,306,40,"B",7,5)=""
^DIST(.404,306,40,"B",8,7)=""
^DIST(.404,306,40,"B",9,6)=""
^DIST(.404,306,40,"B",10,8)=""
^DIST(.404,306,40,"C","---------------------------------------------------------------",10)=""
^DIST(.404,306,40,"C","ACTIVE/INACTIVE",3)=""
^DIST(.404,306,40,"C","COUNTRY CODE",5)=""
^DIST(.404,306,40,"C","FACILITY NAME",4)=""
^DIST(.404,306,40,"C","HL7 APPLICATION EDIT",1)=""
^DIST(.404,306,40,"C","HL7 ENCODING CHARACTERS",6)=""
^DIST(.404,306,40,"C","HL7 FIELD SEPARATOR",7)=""
^DIST(.404,306,40,"C","MAIL GROUP",8)=""
^DIST(.404,306,40,"C","NAME",2)=""
^DIST(.404,307,0)="HL7 LL HEADER1^870^"
^DIST(.404,307,40,0)="^.4044I^3^2"
^DIST(.404,307,40,1,0)="1^HL7 LOGICAL LINK^1"
^DIST(.404,307,40,1,2)="^^1,27"
^DIST(.404,307,40,3,0)="3^--------------------------------------------------------------------------------^1"
^DIST(.404,307,40,3,2)="^^2,1"
^DIST(.404,307,40,"B",1,1)=""
^DIST(.404,307,40,"B",3,3)=""
^DIST(.404,307,40,"C","---------------------------------------------------------------",3)=""
^DIST(.404,307,40,"C","HL7 LOGICAL LINK",1)=""
^DIST(.404,308,0)="HL7 LL BLK1^870"
^DIST(.404,308,40,0)="^.4044I^8^8"
^DIST(.404,308,40,1,0)="1^NODE^3"
^DIST(.404,308,40,1,1)=".01"
^DIST(.404,308,40,1,2)="4,23^10^4,17"
^DIST(.404,308,40,1,4)="1"
^DIST(.404,308,40,2,0)="2^INSTITUTION^3"
^DIST(.404,308,40,2,1)=".02"
^DIST(.404,308,40,2,2)="6,23^30^6,10"
^DIST(.404,308,40,3,0)="3^MAILMAN DOMAIN^3"
^DIST(.404,308,40,3,1)=".03"
^DIST(.404,308,40,3,2)="8,23^30^8,7"
^DIST(.404,308,40,4,0)="6^LLP TYPE^3"
^DIST(.404,308,40,4,1)="2"
^DIST(.404,308,40,4,2)="14,23^30^14,13"
^DIST(.404,308,40,4,4)="1"
^DIST(.404,308,40,4,10)="S DDSSTACK=""PAGE ""_(1+X)"
^DIST(.404,308,40,5,0)="4^AUTOSTART^3"
^DIST(.404,308,40,5,1)="4.5"
^DIST(.404,308,40,5,2)="10,23^8^10,12"
^DIST(.404,308,40,6,0)="5^QUEUE SIZE^3"
^DIST(.404,308,40,6,1)="21"
^DIST(.404,308,40,6,2)="12,23^6^12,11"
^DIST(.404,308,40,6,3)="10"
^DIST(.404,308,40,7,0)="7^DNS DOMAIN^3"
^DIST(.404,308,40,7,1)=".08"
^DIST(.404,308,40,7,2)="16,23^30^16,11"
^DIST(.404,308,40,8,0)="8^DESCRIPTION^3"
^DIST(.404,308,40,8,1)="1"
^DIST(.404,308,40,8,2)="4,67^1^4,54"
^DIST(.404,308,40,"B",1,1)=""
^DIST(.404,308,40,"B",2,2)=""
^DIST(.404,308,40,"B",3,3)=""
^DIST(.404,308,40,"B",4,5)=""
^DIST(.404,308,40,"B",5,6)=""
^DIST(.404,308,40,"B",6,4)=""
^DIST(.404,308,40,"B",7,7)=""
^DIST(.404,308,40,"B",8,8)=""
^DIST(.404,308,40,"C","AUTOSTART",5)=""
^DIST(.404,308,40,"C","DESCRIPTION",8)=""
^DIST(.404,308,40,"C","DNS DOMAIN",7)=""
^DIST(.404,308,40,"C","INSTITUTION",2)=""
^DIST(.404,308,40,"C","LLP TYPE",4)=""
^DIST(.404,308,40,"C","MAILMAN DOMAIN",3)=""
^DIST(.404,308,40,"C","NODE",1)=""
^DIST(.404,308,40,"C","QUEUE SIZE",6)=""
^DIST(.404,309,0)="HL7 LLP HLLP^870"
^DIST(.404,309,40,0)="^.4044I^11^10"
^DIST(.404,309,40,1,0)="1^HLLP LOWER LEVEL PARAMETERS^1"
^DIST(.404,309,40,1,2)="^^1,24"
^DIST(.404,309,40,2,0)="2^^3"
^DIST(.404,309,40,2,1)=".01"
^DIST(.404,309,40,2,2)="2,24^30"
^DIST(.404,309,40,2,4)="^^^1"
^DIST(.404,309,40,4,0)="9^BLOCK SIZE^3"
^DIST(.404,309,40,4,1)="200.03"
^DIST(.404,309,40,4,2)="11,15^3^11,3"
^DIST(.404,309,40,5,0)="3^HLLP DEVICE^3"
^DIST(.404,309,40,5,1)="200.01"
^DIST(.404,309,40,5,2)="5,15^30^5,2"
^DIST(.404,309,40,6,0)="6^RE-TRANSMISION ATTEMPTS^3"
^DIST(.404,309,40,6,1)="200.02"
^DIST(.404,309,40,6,2)="7,70^2^7,45"
^DIST(.404,309,40,7,0)="5^READ TIMEOUT^3"
^DIST(.404,309,40,7,1)="200.04"
^DIST(.404,309,40,7,2)="7,15^3^7,1"
^DIST(.404,309,40,8,0)="7^ACK TIMEOUT^3"
^DIST(.404,309,40,8,1)="200.05"
^DIST(.404,309,40,8,2)="9,15^3^9,2"
^DIST(.404,309,40,9,0)="8^LLP START BLOCK^3"
^DIST(.404,309,40,9,1)="200.06"
^DIST(.404,309,40,9,2)="9,70^2^9,53"
^DIST(.404,309,40,10,0)="10^LLP END BLOCK^3"
^DIST(.404,309,40,10,1)="200.07"
^DIST(.404,309,40,10,2)="11,70^2^11,55"
^DIST(.404,309,40,11,0)="4^PROTOCOL ID VERSION^3"
^DIST(.404,309,40,11,1)="200.08"
^DIST(.404,309,40,11,2)="5,70^3^5,49"
^DIST(.404,309,40,"B",1,1)=""
^DIST(.404,309,40,"B",2,2)=""
^DIST(.404,309,40,"B",3,5)=""
^DIST(.404,309,40,"B",4,11)=""
^DIST(.404,309,40,"B",5,7)=""
^DIST(.404,309,40,"B",6,6)=""
^DIST(.404,309,40,"B",7,8)=""
^DIST(.404,309,40,"B",8,9)=""
^DIST(.404,309,40,"B",9,4)=""
^DIST(.404,309,40,"B",10,10)=""
^DIST(.404,309,40,"C","ACK TIMEOUT",8)=""
^DIST(.404,309,40,"C","BLOCK SIZE",4)=""
^DIST(.404,309,40,"C","HLLP DEVICE",5)=""
^DIST(.404,309,40,"C","HLLP LOWER LEVEL PARAMETERS",1)=""
^DIST(.404,309,40,"C","LLP END BLOCK",10)=""
^DIST(.404,309,40,"C","LLP START BLOCK",9)=""
^DIST(.404,309,40,"C","PROTOCOL ID VERSION",11)=""
^DIST(.404,309,40,"C","RE-TRANSMISION ATTEMPTS",6)=""
^DIST(.404,309,40,"C","READ TIMEOUT",7)=""
^DIST(.404,310,0)="HL7 LLP TCP^870"
^DIST(.404,310,40,0)="^.4044I^18^16"
^DIST(.404,310,40,1,0)="1^TCP LOWER LEVEL PARAMETERS^1"
^DIST(.404,310,40,1,2)="^^1,23"
^DIST(.404,310,40,2,0)="2^^3"
^DIST(.404,310,40,2,1)=".01"
^DIST(.404,310,40,2,2)="2,23^30"
^DIST(.404,310,40,2,4)="^^^1"
^DIST(.404,310,40,4,0)="7^RE-TRANSMISION ATTEMPTS^3"
^DIST(.404,310,40,4,1)="200.02"
^DIST(.404,310,40,4,2)="9,64^2^9,39"
^DIST(.404,310,40,5,0)="10^BLOCK SIZE^3"
^DIST(.404,310,40,5,1)="200.03"
^DIST(.404,310,40,5,2)="11,17^3^11,5"
^DIST(.404,310,40,6,0)="8^READ TIMEOUT^3"
^DIST(.404,310,40,6,1)="200.04"
^DIST(.404,310,40,6,2)="10,17^3^10,3"
^DIST(.404,310,40,7,0)="6^ACK TIMEOUT^3"
^DIST(.404,310,40,7,1)="200.05"
^DIST(.404,310,40,7,2)="9,17^3^9,4"
^DIST(.404,310,40,8,0)="15^UNI-DIRECTIONAL WAIT^3"
^DIST(.404,310,40,8,1)="200.09"
^DIST(.404,310,40,8,2)="14,64^2^14,42"
^DIST(.404,310,40,9,0)="4^TCP/IP ADDRESS^3"
^DIST(.404,310,40,9,1)="400.01"
^DIST(.404,310,40,9,2)="5,24^40^5,8"
^DIST(.404,310,40,10,0)="5^TCP/IP PORT^3"
^DIST(.404,310,40,10,1)="400.02"
^DIST(.404,310,40,10,2)="6,24^5^6,11"
^DIST(.404,310,40,11,0)="3^TCP/IP SERVICE TYPE^3"
^DIST(.404,310,40,11,1)="400.03"
^DIST(.404,310,40,11,2)="4,24^15^4,3"
^DIST(.404,310,40,11,13)="I X'=""C"" F HLI=200.02,200.09,400.04,400.05 D UNED^DDSUTL(HLI,"""","""",1)"
^DIST(.404,310,40,12,0)="13^PERSISTENT^3"
^DIST(.404,310,40,12,1)="400.04"
^DIST(.404,310,40,12,2)="13,64^3^13,52"
^DIST(.404,310,40,13,0)="14^RETENTION^3"
^DIST(.404,310,40,13,1)="400.05"
^DIST(.404,310,40,13,2)="14,15^6^14,4"
^DIST(.404,310,40,14,0)="12^STARTUP NODE^3"
^DIST(.404,310,40,14,1)="400.06"
^DIST(.404,310,40,14,2)="13,15^20^13,1"
^DIST(.404,310,40,15,0)="9^EXCEED RE-TRANSMIT ACTION^3"
^DIST(.404,310,40,15,1)="200.021"
^DIST(.404,310,40,15,2)="10,64^10^10,37"
^DIST(.404,310,40,15,4)="0"
^DIST(.404,310,40,16,0)="11^SAY HELO^3"
^DIST(.404,310,40,16,1)="400.07"
^DIST(.404,310,40,16,2)="11,64^3^11,54"
^DIST(.404,310,40,17,0)="5.1^TCP/IP PORT (OPTIMIZED)^3"
^DIST(.404,310,40,17,1)="400.08"
^DIST(.404,310,40,17,2)="7,36^5^7,11"
^DIST(.404,310,40,18,0)="16^DIRECT CONNECT OPEN TIMEOUT^3"
^DIST(.404,310,40,18,1)=".09"
^DIST(.404,310,40,18,2)="12,64^2^12,35"
^DIST(.404,310,40,"B",1,1)=""
^DIST(.404,310,40,"B",2,2)=""
^DIST(.404,310,40,"B",3,11)=""
^DIST(.404,310,40,"B",4,9)=""
^DIST(.404,310,40,"B",5,10)=""
^DIST(.404,310,40,"B",5.1,17)=""
^DIST(.404,310,40,"B",6,7)=""
^DIST(.404,310,40,"B",7,4)=""
^DIST(.404,310,40,"B",8,6)=""
^DIST(.404,310,40,"B",9,15)=""
^DIST(.404,310,40,"B",10,5)=""
^DIST(.404,310,40,"B",11,16)=""
^DIST(.404,310,40,"B",12,14)=""
^DIST(.404,310,40,"B",13,12)=""
^DIST(.404,310,40,"B",14,13)=""
^DIST(.404,310,40,"B",15,8)=""
^DIST(.404,310,40,"B",16,18)=""
^DIST(.404,310,40,"C","ACK TIMEOUT",7)=""
^DIST(.404,310,40,"C","BLOCK SIZE",5)=""
^DIST(.404,310,40,"C","DIRECT CONNECT OPEN TIMEOUT",18)=""
^DIST(.404,310,40,"C","EXCEED RE-TRANSMIT ACTION",15)=""
^DIST(.404,310,40,"C","PERSISTENT",12)=""
^DIST(.404,310,40,"C","RE-TRANSMISION ATTEMPTS",4)=""
^DIST(.404,310,40,"C","READ TIMEOUT",6)=""
^DIST(.404,310,40,"C","RETENTION",13)=""
^DIST(.404,310,40,"C","SAY HELO",16)=""
^DIST(.404,310,40,"C","STARTUP NODE",14)=""
^DIST(.404,310,40,"C","TCP LOWER LEVEL PARAMETERS",1)=""
^DIST(.404,310,40,"C","TCP/IP ADDRESS",9)=""
^DIST(.404,310,40,"C","TCP/IP PORT",10)=""
^DIST(.404,310,40,"C","TCP/IP PORT (OPTIMIZED)",17)=""
^DIST(.404,310,40,"C","TCP/IP SERVICE TYPE",11)=""
^DIST(.404,310,40,"C","UNI-DIRECTIONAL WAIT",8)=""
^DIST(.404,311,0)="HL7 LLP MAIL^870"
^DIST(.404,311,40,0)="^.4044I^5^3"
^DIST(.404,311,40,1,0)="1^MAILMAN LOWER LEVEL PARAMETERS^1"
^DIST(.404,311,40,1,2)="^^1,23"
^DIST(.404,311,40,4,0)="2^MAIL GROUP^3"
^DIST(.404,311,40,4,1)="100.01"
^DIST(.404,311,40,4,2)="4,23^30^4,11"
^DIST(.404,311,40,4,4)="0"
^DIST(.404,311,40,5,0)="3^^3"
^DIST(.404,311,40,5,1)=".01"
^DIST(.404,311,40,5,2)="2,23^30"
^DIST(.404,311,40,5,4)="^^^1"
^DIST(.404,311,40,"B",1,1)=""
^DIST(.404,311,40,"B",2,4)=""
^DIST(.404,311,40,"B",3,5)=""
^DIST(.404,311,40,"C","MAIL GROUP",4)=""
^DIST(.404,311,40,"C","MAILMAN LOWER LEVEL PARAMETERS",1)=""
^DIST(.404,312,0)="HL7 LLP X3.28^870"
^DIST(.404,312,40,0)="^.4044I^10^9"
^DIST(.404,312,40,1,0)="1^X3.28 LOWER LEVEL PARAMETERS^1"
^DIST(.404,312,40,1,2)="^^1,23"
^DIST(.404,312,40,2,0)="2^^3"
^DIST(.404,312,40,2,1)=".01"
^DIST(.404,312,40,2,2)="2,23^30"
^DIST(.404,312,40,2,4)="^^^1"
^DIST(.404,312,40,4,0)="3^X3.28 DEVICE^3"
^DIST(.404,312,40,4,1)="300.01"
^DIST(.404,312,40,4,2)="5,24^30^5,10"
^DIST(.404,312,40,5,0)="4^MAXIMUM MESSAGE SIZE^3"
^DIST(.404,312,40,5,1)="300.02"
^DIST(.404,312,40,5,2)="7,24^5^7,2"
^DIST(.404,312,40,6,0)="5^MAXIMUM BLOCK SIZE^3"
^DIST(.404,312,40,6,1)="300.03"
^DIST(.404,312,40,6,2)="7,69^3^7,49"
^DIST(.404,312,40,7,0)="6^TIMER A^3"
^DIST(.404,312,40,7,1)="300.04"
^DIST(.404,312,40,7,2)="9,24^2^9,15"
^DIST(.404,312,40,8,0)="8^TIMER B^3"
^DIST(.404,312,40,8,1)="300.05"
^DIST(.404,312,40,8,2)="11,24^2^11,15"
^DIST(.404,312,40,9,0)="7^TIMER D^3"
^DIST(.404,312,40,9,1)="300.06"
^DIST(.404,312,40,9,2)="9,69^2^9,60"
^DIST(.404,312,40,10,0)="9^TIMER E^3"
^DIST(.404,312,40,10,1)="300.07"
^DIST(.404,312,40,10,2)="11,69^3^11,60"
^DIST(.404,312,40,"B",1,1)=""
^DIST(.404,312,40,"B",2,2)=""
^DIST(.404,312,40,"B",3,4)=""
^DIST(.404,312,40,"B",4,5)=""
^DIST(.404,312,40,"B",5,6)=""
^DIST(.404,312,40,"B",6,7)=""
^DIST(.404,312,40,"B",7,9)=""
^DIST(.404,312,40,"B",8,8)=""
^DIST(.404,312,40,"B",9,10)=""
^DIST(.404,312,40,"C","MAXIMUM BLOCK SIZE",6)=""
^DIST(.404,312,40,"C","MAXIMUM MESSAGE SIZE",5)=""
^DIST(.404,312,40,"C","TIMER A",7)=""
^DIST(.404,312,40,"C","TIMER B",8)=""
^DIST(.404,312,40,"C","TIMER D",9)=""
^DIST(.404,312,40,"C","TIMER E",10)=""
^DIST(.404,312,40,"C","X3.28 DEVICE",4)=""
^DIST(.404,312,40,"C","X3.28 LOWER LEVEL PARAMETERS",1)=""
^DIST(.404,313,0)="HL7 INTERFACE HDR1^101^"
^DIST(.404,313,40,0)="^.4044I^4^3"
^DIST(.404,313,40,1,0)="1^HL7 INTERFACE SETUP^1"
^DIST(.404,313,40,1,2)="^^1,24"
^DIST(.404,313,40,3,0)="3^--------------------------------------------------------------------------------^1"
^DIST(.404,313,40,3,2)="^^2,1"
^DIST(.404,313,40,4,0)="2^PAGE 1 OF 2^1"
^DIST(.404,313,40,4,2)="^^1,68"
^DIST(.404,313,40,"B",1,1)=""
^DIST(.404,313,40,"B",2,4)=""
^DIST(.404,313,40,"B",3,3)=""
^DIST(.404,313,40,"C","---------------------------------------------------------------",3)=""
^DIST(.404,313,40,"C","HL7 INTERFACE SETUP",1)=""
^DIST(.404,313,40,"C","PAGE 1 OF 2",4)=""
^DIST(.404,314,0)="HL7 INTERFACE BLK1^101"
^DIST(.404,314,40,0)="^.4044I^7^6"
^DIST(.404,314,40,1,0)="1^NAME^3"
^DIST(.404,314,40,1,1)=".01"
^DIST(.404,314,40,1,2)="2,19^55^2,13"
^DIST(.404,314,40,2,0)="2^DESCRIPTION (wp)^3"
^DIST(.404,314,40,2,1)="3.5"
^DIST(.404,314,40,2,2)="4,19^1^4,1"
^DIST(.404,314,40,3,0)="4^ENTRY ACTION^3"
^DIST(.404,314,40,3,1)="20"
^DIST(.404,314,40,3,2)="7,15^64^7,1"
^DIST(.404,314,40,4,0)="5^EXIT ACTION^3"
^DIST(.404,314,40,4,1)="15"
^DIST(.404,314,40,4,2)="9,15^64^9,2"
^DIST(.404,314,40,6,0)="6^TYPE^2^^TYPE"
^DIST(.404,314,40,6,2)="12,15^15^12,9"
^DIST(.404,314,40,6,3)="!M"
^DIST(.404,314,40,6,3.1)="S Y=$$GET^DDSVAL(""^ORD(101,"",.DA,4)"
^DIST(.404,314,40,6,4)="1"
^DIST(.404,314,40,6,10)="S DDSBR=""^^""_$S(X=""E"":""PAGE 2"",1:""PAGE 3"")"
^DIST(.404,314,40,6,20)="S^M^E:event driver;S:subscriber"
^DIST(.404,314,40,6,23)="D PUT^DDSVAL(""^ORD(101,"",.DA,4,X,"""",""I"")"
^DIST(.404,314,40,7,0)="3^!M^1"
^DIST(.404,314,40,7,.1)="N WP S WP=$$GET^DDSVAL(DIE,.DA,3.5),Y=$S(WP]"""":$G(@WP@(1,0)),1:""""),Y=$S(Y]"""":""[""_$E(Y,1,47)_""]"",1:""(empty)"")"
^DIST(.404,314,40,7,2)="^^4,21"
^DIST(.404,314,40,"B",1,1)=""
^DIST(.404,314,40,"B",2,2)=""
^DIST(.404,314,40,"B",3,7)=""
^DIST(.404,314,40,"B",4,3)=""
^DIST(.404,314,40,"B",5,4)=""
^DIST(.404,314,40,"B",6,6)=""
^DIST(.404,314,40,"C","DESCRIPTION (WP)",2)=""
^DIST(.404,314,40,"C","ENTRY ACTION",3)=""
^DIST(.404,314,40,"C","EXIT ACTION",4)=""
^DIST(.404,314,40,"C","NAME",1)=""
^DIST(.404,314,40,"C","TYPE",6)=""
^DIST(.404,314,40,"D","TYPE",6)=""
^DIST(.404,315,0)="HL7 EVENT DRV^101"
^DIST(.404,315,40,0)="^.4044I^15^14"
^DIST(.404,315,40,1,0)="5^SENDING APPLICATION^3"
^DIST(.404,315,40,1,1)="770.1"
^DIST(.404,315,40,1,2)="4,27^15^4,6"
^DIST(.404,315,40,1,4)="1"
^DIST(.404,315,40,1,10)="S DDSSTACK=""PAGE 5"""
^DIST(.404,315,40,2,0)="6^TRANSACTION MESSAGE TYPE^3"
^DIST(.404,315,40,2,1)="770.3"
^DIST(.404,315,40,2,2)="5,27^3^5,1"
^DIST(.404,315,40,2,4)="1"
^DIST(.404,315,40,3,0)="7^EVENT TYPE^3"
^DIST(.404,315,40,3,1)="770.4"
^DIST(.404,315,40,3,2)="5,66^3^5,54"
^DIST(.404,315,40,4,0)="9^PROCESSING ID^3"
^DIST(.404,315,40,4,1)="770.6"
^DIST(.404,315,40,4,2)="7,27^10^7,12"
^DIST(.404,315,40,4,3)=""
^DIST(.404,315,40,4,4)="0"
^DIST(.404,315,40,5,0)="11^ACCEPT ACK CODE^3"
^DIST(.404,315,40,5,1)="770.8"
^DIST(.404,315,40,5,2)="8,27^2^8,10"
^DIST(.404,315,40,6,0)="12^APPLICATION ACK TYPE^3"
^DIST(.404,315,40,6,1)="770.9"
^DIST(.404,315,40,6,2)="8,66^2^8,44"
^DIST(.404,315,40,7,0)="10^VERSION ID^3"
^DIST(.404,315,40,7,1)="770.95"
^DIST(.404,315,40,7,2)="7,66^8^7,54"
^DIST(.404,315,40,7,4)="1"
^DIST(.404,315,40,7,11)="D UNED^DDSUTL(""ACCEPT ACK CODE"","""","""",(DDSEXT<2.2),""""),UNED^DDSUTL(""APPLICATION ACK TYPE"","""","""",(DDSEXT<2.2))"
^DIST(.404,315,40,7,13)="D UNED^DDSUTL(""ACCEPT ACK CODE"","""","""",(DDSEXT<2.2),""""),UNED^DDSUTL(""APPLICATION ACK TYPE"","""","""",(DDSEXT<2.2),"""")"
^DIST(.404,315,40,8,0)="13^RESPONSE PROCESSING RTN^3"
^DIST(.404,315,40,8,1)="772"
^DIST(.404,315,40,8,2)="10,26^53^10,1"
^DIST(.404,315,40,10,0)="1^HL7 EVENT DRIVER^1"
^DIST(.404,315,40,10,2)="^^1,26"
^DIST(.404,315,40,11,0)="14^SUBSCRIBERS^1"
^DIST(.404,315,40,11,2)="^^11,27"
^DIST(.404,315,40,12,0)="2^PAGE 2 OF 2^1"
^DIST(.404,315,40,12,2)="^^1,67"
^DIST(.404,315,40,13,0)="4^--------------------------------------------------------------------------------^1"
^DIST(.404,315,40,13,2)="^^3,0"
^DIST(.404,315,40,14,0)="3^^3"
^DIST(.404,315,40,14,1)=".01"
^DIST(.404,315,40,14,2)="2,25^30"
^DIST(.404,315,40,14,4)="0^^^1"
^DIST(.404,315,40,15,0)="8^MESSAGE STRUCTURE^3"
^DIST(.404,315,40,15,1)="770.5"
^DIST(.404,315,40,15,2)="6,27^10^6,8"
^DIST(.404,315,40,"B",1,10)=""
^DIST(.404,315,40,"B",2,12)=""
^DIST(.404,315,40,"B",3,14)=""
^DIST(.404,315,40,"B",4,13)=""
^DIST(.404,315,40,"B",5,1)=""
^DIST(.404,315,40,"B",6,2)=""
^DIST(.404,315,40,"B",7,3)=""
^DIST(.404,315,40,"B",8,15)=""
^DIST(.404,315,40,"B",9,4)=""
^DIST(.404,315,40,"B",10,7)=""
^DIST(.404,315,40,"B",11,5)=""
^DIST(.404,315,40,"B",12,6)=""
^DIST(.404,315,40,"B",13,8)=""
^DIST(.404,315,40,"B",14,11)=""
^DIST(.404,315,40,"C","---------------------------------------------------------------",13)=""
^DIST(.404,315,40,"C","ACCEPT ACK CODE",5)=""
^DIST(.404,315,40,"C","APPLICATION ACK TYPE",6)=""
^DIST(.404,315,40,"C","EVENT TYPE",3)=""
^DIST(.404,315,40,"C","HL7 EVENT DRIVER",10)=""
^DIST(.404,315,40,"C","MESSAGE STRUCTURE",15)=""
^DIST(.404,315,40,"C","PAGE 2 OF 2",12)=""
^DIST(.404,315,40,"C","PROCESSING ID",4)=""
^DIST(.404,315,40,"C","RESPONSE PROCESSING RTN",8)=""
^DIST(.404,315,40,"C","SENDING APPLICATION",1)=""
^DIST(.404,315,40,"C","SUBSCRIBERS",11)=""
^DIST(.404,315,40,"C","TRANSACTION MESSAGE TYPE",2)=""
^DIST(.404,315,40,"C","VERSION ID",7)=""
^DIST(.404,316,0)="HL7 SUBSCRIBER^101"
^DIST(.404,316,40,0)="^.4044I^14^13"
^DIST(.404,316,40,1,0)="6^RESPONSE MESSAGE TYPE^3"
^DIST(.404,316,40,1,1)="770.11"
^DIST(.404,316,40,1,2)="7,29^3^7,6"
^DIST(.404,316,40,1,4)="1"
^DIST(.404,316,40,2,0)="5^RECEIVING APPLICATION^3"
^DIST(.404,316,40,2,1)="770.2"
^DIST(.404,316,40,2,2)="5,29^15^5,6"
^DIST(.404,316,40,2,4)="1"
^DIST(.404,316,40,2,10)="S DDSSTACK=""PAGE 6"""
^DIST(.404,316,40,3,0)="7^EVENT TYPE^3"
^DIST(.404,316,40,3,1)="770.4"
^DIST(.404,316,40,3,2)="7,72^3^7,60"
^DIST(.404,316,40,4,0)="12^LOGICAL LINK^3"
^DIST(.404,316,40,4,1)="770.7"
^DIST(.404,316,40,4,2)="13,29^10^13,15"
^DIST(.404,316,40,5,0)="13^PROCESSING RTN^3"
^DIST(.404,316,40,5,1)="771"
^DIST(.404,316,40,5,2)="15,17^61^15,1"
^DIST(.404,316,40,6,0)="1^HL7 SUBSCRIBER^1"
^DIST(.404,316,40,6,2)="^^1,28"
^DIST(.404,316,40,7,0)="2^PAGE 2 OF 2^1"
^DIST(.404,316,40,7,2)="^^1,67"
^DIST(.404,316,40,8,0)="4^--------------------------------------------------------------------------------^1"
^DIST(.404,316,40,8,2)="^^3,0"
^DIST(.404,316,40,9,0)="3^^3"
^DIST(.404,316,40,9,1)=".01"
^DIST(.404,316,40,9,2)="2,27^30"
^DIST(.404,316,40,9,4)="0^^^1"
^DIST(.404,316,40,10,0)="14^ROUTING LOGIC^3"
^DIST(.404,316,40,10,1)="774"
^DIST(.404,316,40,10,2)="17,17^61^17,2"
^DIST(.404,316,40,11,0)="8^SENDING FACILITY REQUIRED?^3"
^DIST(.404,316,40,11,1)="773.1"
^DIST(.404,316,40,11,2)="9,29^3^9,1"
^DIST(.404,316,40,12,0)="9^RECEIVING FACILITY REQUIRED?^3"
^DIST(.404,316,40,12,1)="773.2"
^DIST(.404,316,40,12,2)="9,72^3^9,42"
^DIST(.404,316,40,14,0)="10^SECURITY REQUIRED?^3"
^DIST(.404,316,40,14,1)="773.3"
^DIST(.404,316,40,14,2)="11,29^3^11,9"
^DIST(.404,316,40,"B",1,6)=""
^DIST(.404,316,40,"B",2,7)=""
^DIST(.404,316,40,"B",3,9)=""
^DIST(.404,316,40,"B",4,8)=""
^DIST(.404,316,40,"B",5,2)=""
^DIST(.404,316,40,"B",6,1)=""
^DIST(.404,316,40,"B",7,3)=""
^DIST(.404,316,40,"B",8,11)=""
^DIST(.404,316,40,"B",9,12)=""
^DIST(.404,316,40,"B",10,14)=""
^DIST(.404,316,40,"B",12,4)=""
^DIST(.404,316,40,"B",13,5)=""
^DIST(.404,316,40,"B",14,10)=""
^DIST(.404,316,40,"C","---------------------------------------------------------------",8)=""
^DIST(.404,316,40,"C","EVENT TYPE",3)=""
^DIST(.404,316,40,"C","HL7 SUBSCRIBER",6)=""
^DIST(.404,316,40,"C","LOGICAL LINK",4)=""
^DIST(.404,316,40,"C","PAGE 2 OF 2",7)=""
^DIST(.404,316,40,"C","PROCESSING RTN",5)=""
^DIST(.404,316,40,"C","RECEIVING APPLICATION",2)=""
^DIST(.404,316,40,"C","RECEIVING FACILITY REQUIRED?",12)=""
^DIST(.404,316,40,"C","RESPONSE MESSAGE TYPE",1)=""
^DIST(.404,316,40,"C","ROUTING LOGIC",10)=""
^DIST(.404,316,40,"C","SECURITY REQUIRED?",14)=""
^DIST(.404,316,40,"C","SENDING FACILITY REQUIRED?",11)=""
^DIST(.404,317,0)="HL7 EVENT DRV ITEM^101.0775"
^DIST(.404,317,40,0)="^.4044I^1^1"
^DIST(.404,317,40,1,0)="1^^3"
^DIST(.404,317,40,1,1)=".01"
^DIST(.404,317,40,1,2)="1,2^63"
^DIST(.404,317,40,1,4)="0"
^DIST(.404,317,40,1,10)="S DDSSTACK=""PAGE 4"""
^DIST(.404,317,40,"B",1,1)=""
^DIST(.404,318,0)="HL SUBSCRIBER2^101"
^DIST(.404,318,40,0)="^.4044I^12^12"
^DIST(.404,318,40,1,0)="1^HL7 SUBSCRIBER^1"
^DIST(.404,318,40,1,2)="^^1,28"
^DIST(.404,318,40,2,0)="4^RECEIVING APPLICATION^3"
^DIST(.404,318,40,2,1)="770.2"
^DIST(.404,318,40,2,2)="4,30^15^4,7"
^DIST(.404,318,40,2,10)="S DDSSTACK=""PAGE 6"""
^DIST(.404,318,40,3,0)="5^RESPONSE MESSAGE TYPE^3"
^DIST(.404,318,40,3,1)="770.11"
^DIST(.404,318,40,3,2)="6,30^3^6,7"
^DIST(.404,318,40,4,0)="6^EVENT TYPE^3"
^DIST(.404,318,40,4,1)="770.4"
^DIST(.404,318,40,4,2)="6,70^3^6,58"
^DIST(.404,318,40,5,0)="11^LOGICAL LINK^3"
^DIST(.404,318,40,5,1)="770.7"
^DIST(.404,318,40,5,2)="12,30^10^12,16"
^DIST(.404,318,40,6,0)="12^PROCESSING RTN^3"
^DIST(.404,318,40,6,1)="771"
^DIST(.404,318,40,6,2)="14,19^54^14,3"
^DIST(.404,318,40,7,0)="2^^3"
^DIST(.404,318,40,7,1)=".01"
^DIST(.404,318,40,7,2)="2,25^30"
^DIST(.404,318,40,7,4)="0^^^1"
^DIST(.404,318,40,8,0)="3^------------------------------------------------------------------------^1"
^DIST(.404,318,40,8,2)="^^3,2"
^DIST(.404,318,40,9,0)="13^ROUTING LOGIC^3"
^DIST(.404,318,40,9,1)="774"
^DIST(.404,318,40,9,2)="15,19^54^15,4"
^DIST(.404,318,40,10,0)="7^SENDING FACILITY REQUIRED?^3"
^DIST(.404,318,40,10,1)="773.1"
^DIST(.404,318,40,10,2)="8,30^3^8,2"
^DIST(.404,318,40,11,0)="8^RECEIVING FACILITY REQUIRED?^3"
^DIST(.404,318,40,11,1)="773.2"
^DIST(.404,318,40,11,2)="8,70^3^8,40"
^DIST(.404,318,40,12,0)="9^SECURITY REQUIRED?^3"
^DIST(.404,318,40,12,1)="773.3"
^DIST(.404,318,40,12,2)="10,30^3^10,10"
^DIST(.404,318,40,"B",1,1)=""
^DIST(.404,318,40,"B",2,7)=""
^DIST(.404,318,40,"B",3,8)=""
^DIST(.404,318,40,"B",4,2)=""
^DIST(.404,318,40,"B",5,3)=""
^DIST(.404,318,40,"B",6,4)=""
^DIST(.404,318,40,"B",7,10)=""
^DIST(.404,318,40,"B",8,11)=""
^DIST(.404,318,40,"B",9,12)=""
^DIST(.404,318,40,"B",11,5)=""
^DIST(.404,318,40,"B",12,6)=""
^DIST(.404,318,40,"B",13,9)=""
^DIST(.404,318,40,"C","---------------------------------------------------------------",8)=""
^DIST(.404,318,40,"C","EVENT TYPE",4)=""
^DIST(.404,318,40,"C","HL7 SUBSCRIBER",1)=""
^DIST(.404,318,40,"C","LOGICAL LINK",5)=""
^DIST(.404,318,40,"C","PROCESSING RTN",6)=""
^DIST(.404,318,40,"C","RECEIVING APPLICATION",2)=""
^DIST(.404,318,40,"C","RECEIVING FACILITY REQUIRED?",11)=""
^DIST(.404,318,40,"C","RESPONSE MESSAGE TYPE",3)=""
^DIST(.404,318,40,"C","ROUTING LOGIC",9)=""
^DIST(.404,318,40,"C","SECURITY REQUIRED?",12)=""
^DIST(.404,318,40,"C","SENDING FACILITY REQUIRED?",10)=""
^DIST(.404,319,0)="HL7 APP BLK2^771"
^DIST(.404,319,40,0)="^.4044I^8^8"
^DIST(.404,319,40,1,0)="1^Sending Application Edit^1"
^DIST(.404,319,40,1,2)="^^1,24"
^DIST(.404,319,40,2,0)="2^NAME^3"
^DIST(.404,319,40,2,1)=".01"
^DIST(.404,319,40,2,2)="3,23^15^3,17"
^DIST(.404,319,40,3,0)="3^ACTIVE/INACTIVE^3"
^DIST(.404,319,40,3,1)="2"
^DIST(.404,319,40,3,2)="3,67^8^3,50"
^DIST(.404,319,40,4,0)="4^FACILITY NAME^3"
^DIST(.404,319,40,4,1)="3"
^DIST(.404,319,40,4,2)="5,23^20^5,8"
^DIST(.404,319,40,5,0)="5^COUNTRY CODE^3"
^DIST(.404,319,40,5,1)="7"
^DIST(.404,319,40,5,2)="5,67^3^5,53"
^DIST(.404,319,40,6,0)="6^HL7 FIELD SEPARATOR^3"
^DIST(.404,319,40,6,1)="100"
^DIST(.404,319,40,6,2)="7,23^1^7,2"
^DIST(.404,319,40,7,0)="7^HL7 ENCODING CHARACTERS^3"
^DIST(.404,319,40,7,1)="101"
^DIST(.404,319,40,7,2)="7,67^4^7,42"
^DIST(.404,319,40,8,0)="8^MAIL GROUP^3"
^DIST(.404,319,40,8,1)="4"
^DIST(.404,319,40,8,2)="10,23^30^10,11"
^DIST(.404,319,40,"B",1,1)=""
^DIST(.404,319,40,"B",2,2)=""
^DIST(.404,319,40,"B",3,3)=""
^DIST(.404,319,40,"B",4,4)=""
^DIST(.404,319,40,"B",5,5)=""
^DIST(.404,319,40,"B",6,6)=""
^DIST(.404,319,40,"B",7,7)=""
^DIST(.404,319,40,"B",8,8)=""
^DIST(.404,319,40,"C","ACTIVE/INACTIVE",3)=""
^DIST(.404,319,40,"C","COUNTRY CODE",5)=""
^DIST(.404,319,40,"C","FACILITY NAME",4)=""
^DIST(.404,319,40,"C","HL7 ENCODING CHARACTERS",7)=""
^DIST(.404,319,40,"C","HL7 FIELD SEPARATOR",6)=""
^DIST(.404,319,40,"C","MAIL GROUP",8)=""
^DIST(.404,319,40,"C","NAME",2)=""
^DIST(.404,319,40,"C","SENDING APPLICATION EDIT",1)=""
^DIST(.404,320,0)="HL7 APP BLK3^771"
^DIST(.404,320,40,0)="^.4044I^8^6"
^DIST(.404,320,40,1,0)="1^Receiving Application Edit^1"
^DIST(.404,320,40,1,2)="^^1,22"
^DIST(.404,320,40,2,0)="2^NAME^3"
^DIST(.404,320,40,2,1)=".01"
^DIST(.404,320,40,2,2)="3,17^15^3,11"
^DIST(.404,320,40,3,0)="3^ACTIVE/INACTIVE^3"
^DIST(.404,320,40,3,1)="2"
^DIST(.404,320,40,3,2)="3,66^8^3,49"
^DIST(.404,320,40,4,0)="4^FACILITY NAME^3"
^DIST(.404,320,40,4,1)="3"
^DIST(.404,320,40,4,2)="5,17^20^5,2"
^DIST(.404,320,40,5,0)="5^COUNTRY CODE^3"
^DIST(.404,320,40,5,1)="7"
^DIST(.404,320,40,5,2)="5,66^3^5,52"
^DIST(.404,320,40,8,0)="8^MAIL GROUP^3"
^DIST(.404,320,40,8,1)="4"
^DIST(.404,320,40,8,2)="7,17^30^7,5"
^DIST(.404,320,40,"B",1,1)=""
^DIST(.404,320,40,"B",2,2)=""
^DIST(.404,320,40,"B",3,3)=""
^DIST(.404,320,40,"B",4,4)=""
^DIST(.404,320,40,"B",5,5)=""
^DIST(.404,320,40,"B",8,8)=""
^DIST(.404,320,40,"C","ACTIVE/INACTIVE",3)=""
^DIST(.404,320,40,"C","COUNTRY CODE",5)=""
^DIST(.404,320,40,"C","FACILITY NAME",4)=""
^DIST(.404,320,40,"C","MAIL GROUP",8)=""
^DIST(.404,320,40,"C","NAME",2)=""
^DIST(.404,320,40,"C","RECEIVING APPLICATION EDIT",1)=""
^DIST(.404,321,0)="XUEXISTING USER NAME COMPONENT^20"
^DIST(.404,321,11)="I $G(XLFNCHG),$D(XLFNC) N FLD,NC,SUB M NC=XLFNC K XLFNC S (XLFNAME,XLFNEW)=NC K XLFNCHG S FLD=0 F SUB=""FAMILY"",""GIVEN"",""MIDDLE"","""",""SUFFIX"" S FLD=FLD+1 D:SUB]"""" PUT^DDSVAL(DIE,DA,FLD,$G(NC(SUB)),"""",""I"")"
^DIST(.404,321,40,0)="^.4044I^8^7"
^DIST(.404,321,40,1,0)="1^NAME COMPONENTS^1"
^DIST(.404,321,40,1,2)="^^2,38"
^DIST(.404,321,40,2,0)="5^Family (Last)^3"
^DIST(.404,321,40,2,1)="1"
^DIST(.404,321,40,2,2)="6,18^35^6,3"
^DIST(.404,321,40,3,0)="3^Given (First)^3^^GIVEN"
^DIST(.404,321,40,3,1)="2"
^DIST(.404,321,40,3,2)="4,18^25^4,3"
^DIST(.404,321,40,4,0)="4^Middle^3"
^DIST(.404,321,40,4,1)="3"
^DIST(.404,321,40,4,2)="5,18^25^5,10"
^DIST(.404,321,40,5,0)="2^Prefix^3"
^DIST(.404,321,40,5,1)="4"
^DIST(.404,321,40,5,2)="3,18^10^3,10"
^DIST(.404,321,40,6,0)="6^Suffix^3"
^DIST(.404,321,40,6,1)="5"
^DIST(.404,321,40,6,2)="7,18^10^7,10"
^DIST(.404,321,40,8,0)="8^^4"
^DIST(.404,321,40,8,2)="9,3^35"
^DIST(.404,321,40,8,30)="N NC S NC(""FAMILY"")={1},NC(""GIVEN"")={2},NC(""MIDDLE"")={3},NC(""SUFFIX"")={5},(XLFNEW,Y)=$$BLDNAME^XLFNAME8(.NC,35)"
^DIST(.404,321,40,"B",1,1)=""
^DIST(.404,321,40,"B",2,5)=""
^DIST(.404,321,40,"B",3,3)=""
^DIST(.404,321,40,"B",4,4)=""
^DIST(.404,321,40,"B",5,2)=""
^DIST(.404,321,40,"B",6,6)=""
^DIST(.404,321,40,"B",8,8)=""
^DIST(.404,321,40,"C","FAMILY (LAST)",2)=""
^DIST(.404,321,40,"C","GIVEN (FIRST)",3)=""
^DIST(.404,321,40,"C","MIDDLE",4)=""
^DIST(.404,321,40,"C","NAME COMPONENTS",1)=""
^DIST(.404,321,40,"C","PREFIX",5)=""
^DIST(.404,321,40,"C","SUFFIX",6)=""
^DIST(.404,321,40,"D","GIVEN",3)=""
^DIST(.404,322,0)="PSBO DATE DL^53.69"
^DIST(.404,322,40,0)="^.4044I^4^3"
^DIST(.404,322,40,1,0)="1^Start Date^3"
^DIST(.404,322,40,1,1)=".16"
^DIST(.404,322,40,1,2)="2,14^11^2,2"
^DIST(.404,322,40,2,0)="2^Start Time^3"
^DIST(.404,322,40,2,1)=".17"
^DIST(.404,322,40,2,2)="2,39^6^2,27"
^DIST(.404,322,40,4,0)="4^Stop Time^3"
^DIST(.404,322,40,4,1)=".19"
^DIST(.404,322,40,4,2)="2,57^6^2,46"
^DIST(.404,322,40,"B",1,1)=""
^DIST(.404,322,40,"B",2,2)=""
^DIST(.404,322,40,"B",4,4)=""
^DIST(.404,322,40,"C","START DATE",1)=""
^DIST(.404,322,40,"C","START TIME",2)=""
^DIST(.404,322,40,"C","STOP TIME",4)=""
^DIST(.404,323,0)="WV SITE PARAMS-EDITBLK-2.1^790.13"
^DIST(.404,323,40,0)="^.4044I^1^1"
^DIST(.404,323,40,1,0)="1^^3^^EC (RAD)"
^DIST(.404,323,40,1,1)=".01"
^DIST(.404,323,40,1,2)="1,1^30"
^DIST(.404,323,40,"B",1,1)=""
^DIST(.404,323,40,"D","EC (RAD)",1)=""
^DIST(.404,324,0)="WV SITE PARAMS-EDITBLK-2.2^790.02"
^DIST(.404,324,40,0)="^.4044I^4^4"
^DIST(.404,324,40,1,0)="1^LABORATORY:^1"
^DIST(.404,324,40,1,2)="^^1,1"
^DIST(.404,324,40,2,0)="2^Import Tests from Laboratory^3"
^DIST(.404,324,40,2,1)=".24"
^DIST(.404,324,40,2,2)="1,43^3^1,13"
^DIST(.404,324,40,2,10)="S:X'=1 DDSBR=""COM"""
^DIST(.404,324,40,2,12)="I X'=1 D PUT^DDSVAL(DIE,DA,.26,""@""),HELP^WVUTL9(DA,6,""LABORATORY"")"
^DIST(.404,324,40,3,0)="3^Include ALL Non-Veterans(Y/N)?^3"
^DIST(.404,324,40,3,1)=".26"
^DIST(.404,324,40,3,2)="2,45^3^2,13"
^DIST(.404,324,40,3,10)="S:X=1 DDSBR=""COM"""
^DIST(.404,324,40,3,12)="I X=1 D HELP^WVUTL9(DA,6,""LABORATORY"")"
^DIST(.404,324,40,4,0)="4^ELIGIBILITY CODE(S):^1"
^DIST(.404,324,40,4,2)="^^3,1"
^DIST(.404,324,40,"B",1,1)=""
^DIST(.404,324,40,"B",2,2)=""
^DIST(.404,324,40,"B",3,3)=""
^DIST(.404,324,40,"B",4,4)=""
^DIST(.404,324,40,"C","ELIGIBILITY CODE(S):",4)=""
^DIST(.404,324,40,"C","IMPORT TESTS FROM LABORATORY",2)=""
^DIST(.404,324,40,"C","INCLUDE ALL NON-VETERANS(Y/N)?",3)=""
^DIST(.404,324,40,"C","LABORATORY:",1)=""
^DIST(.404,325,0)="WV SITE PARAMS-EDITBLK-2.3^790.14"
^DIST(.404,325,40,0)="^.4044I^1^1"
^DIST(.404,325,40,1,0)="1^^3^^EC (LAB)"
^DIST(.404,325,40,1,1)=".01"
^DIST(.404,325,40,1,2)="1,1^30"
^DIST(.404,325,40,"B",1,1)=""
^DIST(.404,325,40,"D","EC (LAB)",1)=""
^DIST(.404,326,0)="HL VIEW POPUP^869.31"
^DIST(.404,326,40,0)="^.4044I^6^6"
^DIST(.404,326,40,1,0)="1^System Link Monitor View^1"
^DIST(.404,326,40,1,2)="^^1,22"
^DIST(.404,326,40,2,0)="2^NAME^3"
^DIST(.404,326,40,2,1)=".01"
^DIST(.404,326,40,2,2)="2,27^20^2,21"
^DIST(.404,326,40,3,0)="3^LOGICAL LINK^1"
^DIST(.404,326,40,3,2)="^^4,2"
^DIST(.404,326,40,4,0)="4^DISPLAY ORDER^1"
^DIST(.404,326,40,4,2)="^^4,23"
^DIST(.404,326,40,5,0)="5^------------^1"
^DIST(.404,326,40,5,2)="^^5,2"
^DIST(.404,326,40,6,0)="6^-------------^1"
^DIST(.404,326,40,6,2)="^^5,23"
^DIST(.404,326,40,"B",1,1)=""
^DIST(.404,326,40,"B",2,2)=""
^DIST(.404,326,40,"B",3,3)=""
^DIST(.404,326,40,"B",4,4)=""
^DIST(.404,326,40,"B",5,5)=""
^DIST(.404,326,40,"B",6,6)=""
^DIST(.404,326,40,"C","------------",5)=""
^DIST(.404,326,40,"C","-------------",6)=""
^DIST(.404,326,40,"C","DISPLAY ORDER",4)=""
^DIST(.404,326,40,"C","LOGICAL LINK",3)=""
^DIST(.404,326,40,"C","NAME",2)=""
^DIST(.404,326,40,"C","SYSTEM LINK MONITOR VIEW",1)=""
^DIST(.404,327,0)="HL VIEW MULTIPLE^869.311"
^DIST(.404,327,40,0)="^.4044I^2^2"
^DIST(.404,327,40,1,0)="1^^3"
^DIST(.404,327,40,1,1)=".01"
^DIST(.404,327,40,1,2)="2,2^10"
^DIST(.404,327,40,2,0)="2^^3"
^DIST(.404,327,40,2,1)="1"
^DIST(.404,327,40,2,2)="2,25^4"
^DIST(.404,327,40,"B",1,1)=""
^DIST(.404,327,40,"B",2,2)=""
^DIST(.404,328,0)="HL SITE PARAM VIEWS^869.31"
^DIST(.404,328,40,0)="^.4044I^1^1"
^DIST(.404,328,40,1,0)="1^^3"
^DIST(.404,328,40,1,1)=".01"
^DIST(.404,328,40,1,2)="1,1^20"
^DIST(.404,328,40,1,10)="S DDSSTACK=1.1"
^DIST(.404,328,40,"B",1,1)=""
^DIST(.404,329,0)="HL SITE PARAM PAGE 2^869.3"
^DIST(.404,329,40,0)="^.4044I^11^11"
^DIST(.404,329,40,1,0)="1^Edit HL7 Site Parameters ^1"
^DIST(.404,329,40,1,2)="^^1,26"
^DIST(.404,329,40,2,0)="2^Page 2 of 2^1"
^DIST(.404,329,40,2,2)="^^1,68"
^DIST(.404,329,40,3,0)="4^------------------------------------------------------------------------------^1"
^DIST(.404,329,40,3,2)="^^3,1"
^DIST(.404,329,40,4,0)="3^Background Processes Parameters^1"
^DIST(.404,329,40,4,2)="^^2,23"
^DIST(.404,329,40,5,0)="5^Default Number of Incoming Filers^3"
^DIST(.404,329,40,5,1)="11"
^DIST(.404,329,40,5,2)="5,39^2^5,4"
^DIST(.404,329,40,6,0)="6^Default Number of Outgoing Filers^3"
^DIST(.404,329,40,6,1)="12"
^DIST(.404,329,40,6,2)="6,39^2^6,4"
^DIST(.404,329,40,7,0)="7^Days to Keep Completed Messages^3"
^DIST(.404,329,40,7,1)="41"
^DIST(.404,329,40,7,2)="9,39^3^9,6"
^DIST(.404,329,40,8,0)="8^Days Before Purging All Messages^3"
^DIST(.404,329,40,8,1)="43"
^DIST(.404,329,40,8,2)="10,39^3^10,5"
^DIST(.404,329,40,9,0)="9^Days to Keep Awaiting ACK Messages^3"
^DIST(.404,329,40,9,1)="42"
^DIST(.404,329,40,9,2)="11,39^3^11,3"
^DIST(.404,329,40,10,0)="11^Default Retention Time^3"
^DIST(.404,329,40,10,1)="51"
^DIST(.404,329,40,10,2)="15,39^6^15,15"
^DIST(.404,329,40,11,0)="10^Days to Keep Error Status Messages^3^^"
^DIST(.404,329,40,11,1)="44"
^DIST(.404,329,40,11,2)="12,39^3^12,3"
^DIST(.404,329,40,"B",1,1)=""
^DIST(.404,329,40,"B",2,2)=""
^DIST(.404,329,40,"B",3,4)=""
^DIST(.404,329,40,"B",4,3)=""
^DIST(.404,329,40,"B",5,5)=""
^DIST(.404,329,40,"B",6,6)=""
^DIST(.404,329,40,"B",7,7)=""
^DIST(.404,329,40,"B",8,8)=""
^DIST(.404,329,40,"B",9,9)=""
^DIST(.404,329,40,"B",10,11)=""
^DIST(.404,329,40,"B",11,10)=""
^DIST(.404,329,40,"C","---------------------------------------------------------------",3)=""
^DIST(.404,329,40,"C","BACKGROUND PROCESSES PARAMETERS",4)=""
^DIST(.404,329,40,"C","DAYS BEFORE PURGING ALL MESSAGES",8)=""
^DIST(.404,329,40,"C","DAYS TO KEEP AWAITING ACK MESSAGES",9)=""
^DIST(.404,329,40,"C","DAYS TO KEEP COMPLETED MESSAGES",7)=""
^DIST(.404,329,40,"C","DAYS TO KEEP ERROR STATUS MESSAGES",11)=""
^DIST(.404,329,40,"C","DEFAULT NUMBER OF INCOMING FILERS",5)=""
^DIST(.404,329,40,"C","DEFAULT NUMBER OF OUTGOING FILERS",6)=""
^DIST(.404,329,40,"C","DEFAULT RETENTION TIME",10)=""
^DIST(.404,329,40,"C","EDIT HL7 SITE PARAMETERS ",1)=""
^DIST(.404,329,40,"C","PAGE 2 OF 2",2)=""
^DIST(.404,330,0)="SPNLP ASIA MES HD2^154.1^"
^DIST(.404,330,40,0)="^.4044I^4^4"
^DIST(.404,330,40,1,0)="1^PATIENT^3"
^DIST(.404,330,40,1,1)=".01"
^DIST(.404,330,40,1,2)="2,10^30^2,1"
^DIST(.404,330,40,2,0)="2^!M^1"
^DIST(.404,330,40,2,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,330,40,2,2)="^^2,41"
^DIST(.404,330,40,3,0)="3^!M^1"
^DIST(.404,330,40,3,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,330,40,3,2)="^^2,59"
^DIST(.404,330,40,4,0)="4^_______________________________________________________________________________^1"
^DIST(.404,330,40,4,2)="^^3,1"
^DIST(.404,330,40,"B",1,1)=""
^DIST(.404,330,40,"B",2,2)=""
^DIST(.404,330,40,"B",3,3)=""
^DIST(.404,330,40,"B",4,4)=""
^DIST(.404,330,40,"C","PATIENT",1)=""
^DIST(.404,330,40,"C","_______________________________________________________________",4)=""
^DIST(.404,331,0)="SPNLP ASIA MES BLK1^154.1"
^DIST(.404,331,11)=""
^DIST(.404,331,12)=""
^DIST(.404,331,40,0)="^.4044I^18^11"
^DIST(.404,331,40,2,0)="3^ASIA IMPAIRMENT SCALE^3"
^DIST(.404,331,40,2,1)="7.01"
^DIST(.404,331,40,2,2)="7,26^1^7,3"
^DIST(.404,331,40,2,4)="1"
^DIST(.404,331,40,5,0)="5^TOTAL MOTOR SCORE^3"
^DIST(.404,331,40,5,1)="7.02"
^DIST(.404,331,40,5,2)="9,26^3^9,7"
^DIST(.404,331,40,6,0)="6^TOTAL PIN PRICK SCORE^3"
^DIST(.404,331,40,6,1)="7.03"
^DIST(.404,331,40,6,2)="9,64^3^9,41"
^DIST(.404,331,40,7,0)="7^TOTAL LIGHT TOUCH SCORE^3"
^DIST(.404,331,40,7,1)="7.04"
^DIST(.404,331,40,7,2)="11,26^3^11,1"
^DIST(.404,331,40,9,0)="8^ASIA HIGHEST NEURO LEVEL^3"
^DIST(.404,331,40,9,1)="7.14"
^DIST(.404,331,40,9,2)="11,64^3^11,38"
^DIST(.404,331,40,9,4)="1"
^DIST(.404,331,40,10,0)="4^ASIA COMPLETE/INCOMPLETE^3"
^DIST(.404,331,40,10,1)="7.09"
^DIST(.404,331,40,10,2)="7,64^10^7,38"
^DIST(.404,331,40,14,0)="1^!M^1"
^DIST(.404,331,40,14,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,331,40,14,2)="^^2,26"
^DIST(.404,331,40,15,0)="2^DISPOSITION^3"
^DIST(.404,331,40,15,1)=".024"
^DIST(.404,331,40,15,2)="4,50^30^4,37"
^DIST(.404,331,40,16,0)="9^!M^1"
^DIST(.404,331,40,16,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,331,40,16,2)="^^1,10"
^DIST(.404,331,40,17,0)="10^!M^1"
^DIST(.404,331,40,17,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,331,40,17,2)="^^1,41"
^DIST(.404,331,40,18,0)="11^!M^1"
^DIST(.404,331,40,18,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,331,40,18,2)="^^4,1"
^DIST(.404,331,40,"B",1,14)=""
^DIST(.404,331,40,"B",2,15)=""
^DIST(.404,331,40,"B",3,2)=""
^DIST(.404,331,40,"B",4,10)=""
^DIST(.404,331,40,"B",5,5)=""
^DIST(.404,331,40,"B",6,6)=""
^DIST(.404,331,40,"B",7,7)=""
^DIST(.404,331,40,"B",8,9)=""
^DIST(.404,331,40,"B",9,16)=""
^DIST(.404,331,40,"B",10,17)=""
^DIST(.404,331,40,"B",11,18)=""
^DIST(.404,331,40,"C","ASIA COMPLETE/INCOMPLETE",10)=""
^DIST(.404,331,40,"C","ASIA HIGHEST NEURO LEVEL",9)=""
^DIST(.404,331,40,"C","ASIA IMPAIRMENT SCALE",2)=""
^DIST(.404,331,40,"C","DISPOSITION",15)=""
^DIST(.404,331,40,"C","TOTAL LIGHT TOUCH SCORE",7)=""
^DIST(.404,331,40,"C","TOTAL MOTOR SCORE",5)=""
^DIST(.404,331,40,"C","TOTAL PIN PRICK SCORE",6)=""
^DIST(.404,332,0)="SPNLP ASIA MES HD3^154.1^"
^DIST(.404,332,40,0)="^.4044I^2^2"
^DIST(.404,332,40,1,0)="1^ASIA^1"
^DIST(.404,332,40,1,2)="^^1,35"
^DIST(.404,332,40,2,0)="2^PAGE 2 OF 2^1"
^DIST(.404,332,40,2,2)="^^1,69"
^DIST(.404,332,40,"B",1,1)=""
^DIST(.404,332,40,"B",2,2)=""
^DIST(.404,332,40,"C","ASIA",1)=""
^DIST(.404,332,40,"C","PAGE 2 OF 2",2)=""
^DIST(.404,333,0)="SPNLP ASIA MES BLK2^154.1"
^DIST(.404,333,40,0)="^.4044I^10^9"
^DIST(.404,333,40,1,0)="1^NEUROLEVEL-SENSORY RIGHT^3"
^DIST(.404,333,40,1,1)="7.05"
^DIST(.404,333,40,1,2)="4,33^3^4,7"
^DIST(.404,333,40,2,0)="2^NEUROLEVEL-SENSORY LEFT^3"
^DIST(.404,333,40,2,1)="7.06"
^DIST(.404,333,40,2,2)="4,70^3^4,45"
^DIST(.404,333,40,3,0)="3^NEUROLEVEL-MOTOR RIGHT^3"
^DIST(.404,333,40,3,1)="7.07"
^DIST(.404,333,40,3,2)="6,33^3^6,9"
^DIST(.404,333,40,4,0)="4^NEUROLEVEL-MOTOR LEFT^3"
^DIST(.404,333,40,4,1)="7.08"
^DIST(.404,333,40,4,2)="6,70^3^6,47"
^DIST(.404,333,40,6,0)="6^PARTIAL PRESERVATION-SENSORY R^3"
^DIST(.404,333,40,6,1)="7.1"
^DIST(.404,333,40,6,2)="10,33^3^10,1"
^DIST(.404,333,40,7,0)="7^PARTIAL PRESERVATION-SENSORY L^3"
^DIST(.404,333,40,7,1)="7.11"
^DIST(.404,333,40,7,2)="10,70^3^10,38"
^DIST(.404,333,40,8,0)="8^PARTIAL PRESERVATION-MOTOR R^3"
^DIST(.404,333,40,8,1)="7.12"
^DIST(.404,333,40,8,2)="12,33^3^12,3"
^DIST(.404,333,40,9,0)="9^PARTIAL PRESERVATION-MOTOR L^3"
^DIST(.404,333,40,9,1)="7.13"
^DIST(.404,333,40,9,2)="12,70^3^12,40"
^DIST(.404,333,40,10,0)="10^!M^1"
^DIST(.404,333,40,10,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) X ^DD(""DD"") S Y=""Record Date: ""_Y"
^DIST(.404,333,40,10,2)="^^2,1"
^DIST(.404,333,40,"B",1,1)=""
^DIST(.404,333,40,"B",2,2)=""
^DIST(.404,333,40,"B",3,3)=""
^DIST(.404,333,40,"B",4,4)=""
^DIST(.404,333,40,"B",6,6)=""
^DIST(.404,333,40,"B",7,7)=""
^DIST(.404,333,40,"B",8,8)=""
^DIST(.404,333,40,"B",9,9)=""
^DIST(.404,333,40,"B",10,10)=""
^DIST(.404,333,40,"C","NEUROLEVEL-MOTOR LEFT",4)=""
^DIST(.404,333,40,"C","NEUROLEVEL-MOTOR RIGHT",3)=""
^DIST(.404,333,40,"C","NEUROLEVEL-SENSORY LEFT",2)=""
^DIST(.404,333,40,"C","NEUROLEVEL-SENSORY RIGHT",1)=""
^DIST(.404,333,40,"C","PARTIAL PRESERVATION-MOTOR L",9)=""
^DIST(.404,333,40,"C","PARTIAL PRESERVATION-MOTOR R",8)=""
^DIST(.404,333,40,"C","PARTIAL PRESERVATION-SENSORY L",7)=""
^DIST(.404,333,40,"C","PARTIAL PRESERVATION-SENSORY R",6)=""
^DIST(.404,334,0)="SPNLP ASIA MES HD1^154.1^"
^DIST(.404,334,40,0)="^.4044I^2^2"
^DIST(.404,334,40,1,0)="1^PAGE 1 OF 2^1"
^DIST(.404,334,40,1,2)="^^1,69"
^DIST(.404,334,40,2,0)="2^ASIA^1"
^DIST(.404,334,40,2,2)="^^1,38"
^DIST(.404,334,40,"B",1,1)=""
^DIST(.404,334,40,"B",2,2)=""
^DIST(.404,334,40,"C","ASIA",2)=""
^DIST(.404,334,40,"C","PAGE 1 OF 2",1)=""
^DIST(.404,335,0)="choice^19^"
^DIST(.404,335,40,0)="^.4044I^1^1"
^DIST(.404,335,40,1,0)="1^Broker-type Option Choices^1"
^DIST(.404,335,40,1,2)="^^1,24"
^DIST(.404,335,40,"B",1,1)=""
^DIST(.404,335,40,"C","BROKER-TYPE OPTION CHOICES",1)=""
^DIST(.404,336,0)="choice2^19"
^DIST(.404,336,40,0)="^.4044I^2^2"
^DIST(.404,336,40,1,0)="1^Do you want to add RPC's to this option?^2"
^DIST(.404,336,40,1,2)="2,53^3^2,11^1"
^DIST(.404,336,40,1,3)="NO"
^DIST(.404,336,40,1,10)="I X=1 S DDSSTACK=10.1"
^DIST(.404,336,40,1,20)="Y"
^DIST(.404,336,40,2,0)="2^Do you Want to add contexts (broker options)?^2"
^DIST(.404,336,40,2,2)="4,58^3^4,11^1"
^DIST(.404,336,40,2,3)="no"
^DIST(.404,336,40,2,10)="I X=1 S DDSSTACK=13"
^DIST(.404,336,40,2,11)="D H^XQOPED(83)"
^DIST(.404,336,40,2,20)="Y"
^DIST(.404,336,40,"B",1,1)=""
^DIST(.404,336,40,"B",2,2)=""
^DIST(.404,336,40,"C","DO YOU WANT TO ADD CONTEXTS (BROKER OPTIONS)?",2)=""
^DIST(.404,336,40,"C","DO YOU WANT TO ADD RPC'S TO THIS OPTION?",1)=""
^DIST(.404,337,0)="BROKER OPTIONS^19^"
^DIST(.404,337,40,0)="^.4044I^2^1"
^DIST(.404,337,40,2,0)="1^Broker-type option (context) name^1"
^DIST(.404,337,40,2,2)="^^1,8"
^DIST(.404,337,40,"B",1,2)=""
^DIST(.404,337,40,"C","BROKER-TYPE OPTION (CONTEXT) NAME",2)=""
^DIST(.404,338,0)="CONTEXT^19.01"
^DIST(.404,338,40,0)="^.4044I^1^1"
^DIST(.404,338,40,1,0)="1^^3"
^DIST(.404,338,40,1,1)=".01"
^DIST(.404,338,40,1,2)="2,8^30"
^DIST(.404,338,40,"B",1,1)=""
^DIST(.404,339,0)="SPNLPBLK8^154.012"
^DIST(.404,339,40,0)="^.4044I^2^2"
^DIST(.404,339,40,1,0)="2^!M^3"
^DIST(.404,339,40,1,.1)="W """""
^DIST(.404,339,40,1,1)=".01"
^DIST(.404,339,40,1,2)="2,16^35^2,13^1"
^DIST(.404,339,40,2,0)="1^DIVISION^1"
^DIST(.404,339,40,2,2)="^^1,16"
^DIST(.404,339,40,"B",1,2)=""
^DIST(.404,339,40,"B",2,1)=""
^DIST(.404,339,40,"C","DIVISION",2)=""
^DIST(.404,340,0)="SPNLPFM2-5^154"
^DIST(.404,340,40,0)="^.4044I^3^3"
^DIST(.404,340,40,1,0)="1^BWL CARE REMB^3"
^DIST(.404,340,40,1,1)="10.1"
^DIST(.404,340,40,1,2)="1,16^3^1,1"
^DIST(.404,340,40,1,13)="I $$GET^DDSVAL(154,.DA,10.1,"""",""I"")'=1 D PUT^DDSVAL(154,.DA,10.2,""@""),PUT^DDSVAL(154,.DA,10.3,""@"") S DDSBR=""^5^2"""
^DIST(.404,340,40,2,0)="2^DATE CERT.^3"
^DIST(.404,340,40,2,1)="10.2"
^DIST(.404,340,40,2,2)="1,32^11^1,20"
^DIST(.404,340,40,2,11)="I $$GET^DDSVAL(154,.DA,10.1,"""",""I"")'=1 D PUT^DDSVAL(154,.DA,10.2,""@"") S DDSBR=""^5^2"""
^DIST(.404,340,40,3,0)="3^PROVIDER^3"
^DIST(.404,340,40,3,1)="10.3"
^DIST(.404,340,40,3,2)="1,55^21^1,45"
^DIST(.404,340,40,3,11)="I $$GET^DDSVAL(154,.DA,10.1,"""",""I"")'=1 D PUT^DDSVAL(154,.DA,10.3,""@"") S DDSBR=""^5^2"""
^DIST(.404,340,40,"B",1,1)=""
^DIST(.404,340,40,"B",2,2)=""
^DIST(.404,340,40,"B",3,3)=""
^DIST(.404,340,40,"C","BWL CARE REMB",1)=""
^DIST(.404,340,40,"C","DATE CERT.",2)=""
^DIST(.404,340,40,"C","PROVIDER",3)=""
^DIST(.404,341,0)="XUEXISTING USER CPRS^200"
^DIST(.404,341,40,0)="^.4044I^8^8"
^DIST(.404,341,40,1,0)="1^4^1"
^DIST(.404,341,40,1,2)="^^1,74"
^DIST(.404,341,40,2,0)="2^RESTRICT PATIENT SELECTION^3"
^DIST(.404,341,40,2,1)="101.01"
^DIST(.404,341,40,2,2)="3,29^3^3,1"
^DIST(.404,341,40,3,0)="3^OE/RR LIST^3"
^DIST(.404,341,40,3,1)="101.02"
^DIST(.404,341,40,3,2)="3,48^30^3,36"
^DIST(.404,341,40,4,0)="4^CPRS TAB ACCESS:^1"
^DIST(.404,341,40,4,2)="^^5,1"
^DIST(.404,341,40,5,0)="5^Effective Date^1"
^DIST(.404,341,40,5,2)="^^6,46"
^DIST(.404,341,40,6,0)="6^Expiration Date^1"
^DIST(.404,341,40,6,2)="^^6,62"
^DIST(.404,341,40,7,0)="7^Name^1"
^DIST(.404,341,40,7,2)="^^6,3"
^DIST(.404,341,40,8,0)="8^Description^1"
^DIST(.404,341,40,8,2)="^^6,9"
^DIST(.404,341,40,"B",1,1)=""
^DIST(.404,341,40,"B",2,2)=""
^DIST(.404,341,40,"B",3,3)=""
^DIST(.404,341,40,"B",4,4)=""
^DIST(.404,341,40,"B",5,5)=""
^DIST(.404,341,40,"B",6,6)=""
^DIST(.404,341,40,"B",7,7)=""
^DIST(.404,341,40,"B",8,8)=""
^DIST(.404,341,40,"C",4,1)=""
^DIST(.404,341,40,"C","CPRS TAB ACCESS:",4)=""
^DIST(.404,341,40,"C","DESCRIPTION",8)=""
^DIST(.404,341,40,"C","EFFECTIVE DATE",5)=""
^DIST(.404,341,40,"C","EXPIRATION DATE",6)=""
^DIST(.404,341,40,"C","NAME",7)=""
^DIST(.404,341,40,"C","OE/RR LIST",3)=""
^DIST(.404,341,40,"C","RESTRICT PATIENT SELECTION",2)=""
^DIST(.404,342,0)="XUEXISTING USER CPRS TAB^200.010113"
^DIST(.404,342,40,0)="^.4044I^4^4"
^DIST(.404,342,40,1,0)="1^^3"
^DIST(.404,342,40,1,1)=".01"
^DIST(.404,342,40,1,2)="1,3^3"
^DIST(.404,342,40,2,0)="2^^3"
^DIST(.404,342,40,2,1)=".02"
^DIST(.404,342,40,2,2)="1,47^11"
^DIST(.404,342,40,3,0)="3^^3"
^DIST(.404,342,40,3,1)=".03"
^DIST(.404,342,40,3,2)="1,64^11"
^DIST(.404,342,40,3,14)="I X]"""" N XUD,XUM S XUD=$$GET^DDSVAL(DIE,.DA,.02,"""",""I"") S XUM=$S(XUD="""":""You must first enter an EFFECTIVE DATE."",X<XUD:""The EXPIRATION DATE must not precede the EFFECTIVE DATE."",1:"""") I $G(XUM)]"""" S DDSERROR=1 D HLP^DDSUTL(XUM)"
^DIST(.404,342,40,4,0)="4^^4"
^DIST(.404,342,40,4,2)="1,9^35"
^DIST(.404,342,40,4,30)="=$S($D(^DD(101.13,1,0))#2:$$GET^DDSVAL(101.13,{.01;I},1),1:"""")"
^DIST(.404,342,40,"B",1,1)=""
^DIST(.404,342,40,"B",2,2)=""
^DIST(.404,342,40,"B",3,3)=""
^DIST(.404,342,40,"B",4,4)=""
^DIST(.404,343,0)="PSB MED LOG EDIT IV^53.79"
^DIST(.404,343,40,0)="^.4044I^14^14"
^DIST(.404,343,40,1,0)="4^^3"
^DIST(.404,343,40,1,1)=".01"
^DIST(.404,343,40,1,2)="4,16^30"
^DIST(.404,343,40,1,4)="0^^^1"
^DIST(.404,343,40,2,0)="1^Medication Log Edit IV^1"
^DIST(.404,343,40,2,2)="^^1,1"
^DIST(.404,343,40,3,0)="2^!M^1"
^DIST(.404,343,40,3,.1)="S Y=$TR($J("""",IOM),"" "",""-"")"
^DIST(.404,343,40,3,2)="^^2,1"
^DIST(.404,343,40,4,0)="5^!M^1"
^DIST(.404,343,40,4,.1)="S Y=""SSN: ""_$$GET1^DIQ(2,$P(^PSB(53.79,DA,0),U)_"","",.09)"
^DIST(.404,343,40,4,2)="^^4,47"
^DIST(.404,343,40,5,0)="7^Admin Status^3"
^DIST(.404,343,40,5,1)=".09"
^DIST(.404,343,40,5,2)="7,18^7^7,2"
^DIST(.404,343,40,5,14)="I ""^I^S^C^H^R^""'[(""^""_X_""^"") W $C(7) S DDSERROR=1 D HLP^DDSUTL(""Allowed status codes are Infusing, Stopped, Completed, Held, and Refused."")"
^DIST(.404,343,40,6,0)="8^Admin Date/Time^3"
^DIST(.404,343,40,6,1)=".06"
^DIST(.404,343,40,6,2)="7,44^20^7,27"
^DIST(.404,343,40,7,0)="10^PRN Reason^3"
^DIST(.404,343,40,7,1)=".21"
^DIST(.404,343,40,7,2)="10,22^58^10,2"
^DIST(.404,343,40,8,0)="11^PRN Effectiveness^3"
^DIST(.404,343,40,8,1)=".22"
^DIST(.404,343,40,8,2)="11,22^58^11,2"
^DIST(.404,343,40,9,0)="13^Comment (Required)^2"
^DIST(.404,343,40,9,2)="16,2^78^15,2"
^DIST(.404,343,40,9,4)="1"
^DIST(.404,343,40,9,20)="F^^1:150"
^DIST(.404,343,40,9,23)="D COMMENT^PSBML(DA,X)"
^DIST(.404,343,40,10,0)="6^Medication^3"
^DIST(.404,343,40,10,1)=".08"
^DIST(.404,343,40,10,2)="5,16^40^5,2"
^DIST(.404,343,40,10,4)="^^^1"
^DIST(.404,343,40,11,0)="3^Patient:^1"
^DIST(.404,343,40,11,2)="^^4,2"
^DIST(.404,343,40,12,0)="9^Injection Site^3"
^DIST(.404,343,40,12,1)=".16"
^DIST(.404,343,40,12,2)="8,18^30^8,2"
^DIST(.404,343,40,13,0)="12^Dispense Drugs...^2"
^DIST(.404,343,40,13,2)="13,22^1^13,2^1"
^DIST(.404,343,40,13,7)="^2"
^DIST(.404,343,40,13,20)="F^^1:1"
^DIST(.404,343,40,14,0)="14^!M^1"
^DIST(.404,343,40,14,.1)="S Y=""Bag ID: ""_$$GET1^DIQ(53.79,DA_"","",.26)"
^DIST(.404,343,40,14,2)="^^5,59"
^DIST(.404,343,40,"B",1,2)=""
^DIST(.404,343,40,"B",2,3)=""
^DIST(.404,343,40,"B",3,11)=""
^DIST(.404,343,40,"B",4,1)=""
^DIST(.404,343,40,"B",5,4)=""
^DIST(.404,343,40,"B",6,10)=""
^DIST(.404,343,40,"B",7,5)=""
^DIST(.404,343,40,"B",8,6)=""
^DIST(.404,343,40,"B",9,12)=""
^DIST(.404,343,40,"B",10,7)=""
^DIST(.404,343,40,"B",11,8)=""
^DIST(.404,343,40,"B",12,13)=""
^DIST(.404,343,40,"B",13,9)=""
^DIST(.404,343,40,"B",14,14)=""
^DIST(.404,343,40,"C","ADMIN DATE/TIME",6)=""
^DIST(.404,343,40,"C","ADMIN STATUS",5)=""
^DIST(.404,343,40,"C","COMMENT (REQUIRED)",9)=""
^DIST(.404,343,40,"C","DISPENSE DRUGS...",13)=""
^DIST(.404,343,40,"C","INJECTION SITE",12)=""
^DIST(.404,343,40,"C","MEDICATION",10)=""
^DIST(.404,343,40,"C","MEDICATION LOG EDIT IV",2)=""
^DIST(.404,343,40,"C","PATIENT:",11)=""
^DIST(.404,343,40,"C","PRN EFFECTIVENESS",8)=""
^DIST(.404,343,40,"C","PRN REASON",7)=""
^DIST(.404,344,0)="PSB MED LOG EDIT IV HDR^53.79^"
^DIST(.404,344,40,0)="^.4044I^3^3"
^DIST(.404,344,40,1,0)="1^ Dispense Drugs ^1"
^DIST(.404,344,40,1,2)="^^1,2"
^DIST(.404,344,40,2,0)="2^Drug Name                        Order   Given  Units^1"
^DIST(.404,344,40,2,2)="^^3,3"
^DIST(.404,344,40,3,0)="3^Units   Units^1"
^DIST(.404,344,40,3,2)="^^2,36"
^DIST(.404,344,40,"B",1,1)=""
^DIST(.404,344,40,"B",2,2)=""
^DIST(.404,344,40,"B",3,3)=""
^DIST(.404,344,40,"C"," DISPENSE DRUGS ",1)=""
^DIST(.404,344,40,"C","DRUG NAME                        ORDER   GIVEN  UNITS",2)=""
^DIST(.404,344,40,"C","UNITS   UNITS",3)=""
^DIST(.404,345,0)="PSB MED LOG EDIT DD IV^53.795"
^DIST(.404,345,40,0)="^.4044I^4^4"
^DIST(.404,345,40,1,0)="1^^3"
^DIST(.404,345,40,1,1)=".01"
^DIST(.404,345,40,1,2)="1,1^30"
^DIST(.404,345,40,1,4)="^^^0"
^DIST(.404,345,40,2,0)="2^^3"
^DIST(.404,345,40,2,1)=".02"
^DIST(.404,345,40,2,2)="1,33^6"
^DIST(.404,345,40,2,4)="^^1^1"
^DIST(.404,345,40,3,0)="3^^3"
^DIST(.404,345,40,3,1)=".03"
^DIST(.404,345,40,3,2)="1,41^6"
^DIST(.404,345,40,3,4)="1^^1"
^DIST(.404,345,40,4,0)="4^^3"
^DIST(.404,345,40,4,1)=".04"
^DIST(.404,345,40,4,2)="1,49^10"
^DIST(.404,345,40,4,4)="1"
^DIST(.404,345,40,"B",1,1)=""
^DIST(.404,345,40,"B",2,2)=""
^DIST(.404,345,40,"B",3,3)=""
^DIST(.404,345,40,"B",4,4)=""
^DIST(.404,346,0)="SPNLP FAM HD1^154.1^"
^DIST(.404,346,40,0)="^.4044I^6^5"
^DIST(.404,346,40,1,0)="1^FUNCTIONAL ASSESSMENT MEASURE(FAM)^1"
^DIST(.404,346,40,1,2)="^^1,22"
^DIST(.404,346,40,3,0)="3^PATIENT^3"
^DIST(.404,346,40,3,1)=".01"
^DIST(.404,346,40,3,2)="2,10^30^2,1"
^DIST(.404,346,40,4,0)="4^!M^1"
^DIST(.404,346,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,346,40,4,2)="^^2,45"
^DIST(.404,346,40,5,0)="5^!M^1"
^DIST(.404,346,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,346,40,5,2)="^^2,62"
^DIST(.404,346,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,346,40,6,2)="^^3,1"
^DIST(.404,346,40,"B",1,1)=""
^DIST(.404,346,40,"B",3,3)=""
^DIST(.404,346,40,"B",4,4)=""
^DIST(.404,346,40,"B",5,5)=""
^DIST(.404,346,40,"B",6,6)=""
^DIST(.404,346,40,"C","FUNCTIONAL ASSESSMENT MEASURE(FAM)",1)=""
^DIST(.404,346,40,"C","PATIENT",3)=""
^DIST(.404,346,40,"C","_______________________________________________________________",6)=""
^DIST(.404,347,0)="SPNLP FAM HD3^154.1^"
^DIST(.404,347,40,0)="^.4044I^1^1"
^DIST(.404,347,40,1,0)="1^PAGE 1 OF 1^1"
^DIST(.404,347,40,1,2)="^^1,65"
^DIST(.404,347,40,"B",1,1)=""
^DIST(.404,347,40,"C","PAGE 1 OF 1",1)=""
^DIST(.404,348,0)="SPNLP FAM BLK2^154.1"
^DIST(.404,348,40,0)="^.4044I^25^24"
^DIST(.404,348,40,2,0)="24^SWALLOWING^3"
^DIST(.404,348,40,2,1)="5.01"
^DIST(.404,348,40,2,2)="14,59^21^14,47"
^DIST(.404,348,40,3,0)="14^CAR TRANSFERS^3"
^DIST(.404,348,40,3,1)="5.02"
^DIST(.404,348,40,3,2)="9,59^21^9,44"
^DIST(.404,348,40,4,0)="15^COMMUNITY ACCESS^3"
^DIST(.404,348,40,4,1)="5.03"
^DIST(.404,348,40,4,2)="10,21^21^10,3"
^DIST(.404,348,40,5,0)="16^READING^3"
^DIST(.404,348,40,5,1)="5.04"
^DIST(.404,348,40,5,2)="10,59^21^10,50"
^DIST(.404,348,40,6,0)="18^WRITING^3"
^DIST(.404,348,40,6,1)="5.05"
^DIST(.404,348,40,6,2)="11,59^21^11,50"
^DIST(.404,348,40,7,0)="17^SPEECH CLARITY^3"
^DIST(.404,348,40,7,1)="5.06"
^DIST(.404,348,40,7,2)="11,21^21^11,5"
^DIST(.404,348,40,8,0)="19^EMOTIONAL STATUS^3"
^DIST(.404,348,40,8,1)="5.07"
^DIST(.404,348,40,8,2)="12,21^21^12,3"
^DIST(.404,348,40,9,0)="23^ADJ TO LIMITATION^3"
^DIST(.404,348,40,9,1)="5.08"
^DIST(.404,348,40,9,2)="14,21^21^14,2"
^DIST(.404,348,40,10,0)="13^EMPLOYABILITY^3"
^DIST(.404,348,40,10,1)="5.09"
^DIST(.404,348,40,10,2)="9,21^21^9,6"
^DIST(.404,348,40,11,0)="22^ORIENTATION^3"
^DIST(.404,348,40,11,1)="5.1"
^DIST(.404,348,40,11,2)="13,59^21^13,46"
^DIST(.404,348,40,12,0)="20^ATTENTION^3"
^DIST(.404,348,40,12,1)="5.11"
^DIST(.404,348,40,12,2)="12,59^21^12,48"
^DIST(.404,348,40,13,0)="21^SAFETY JUDGEMENT^3"
^DIST(.404,348,40,13,1)="5.12"
^DIST(.404,348,40,13,2)="13,21^21^13,3"
^DIST(.404,348,40,14,0)="6^1 = Total Assistance^1"
^DIST(.404,348,40,14,2)="^^5,5"
^DIST(.404,348,40,15,0)="7^2 = Maximal Assistance^1"
^DIST(.404,348,40,15,2)="^^5,30"
^DIST(.404,348,40,16,0)="8^3 = Moderate Assistance^1"
^DIST(.404,348,40,16,2)="^^5,55"
^DIST(.404,348,40,17,0)="9^4 = Minimal Assistance^1"
^DIST(.404,348,40,17,2)="^^6,5"
^DIST(.404,348,40,18,0)="10^5 = Supervision^1"
^DIST(.404,348,40,18,2)="^^6,30"
^DIST(.404,348,40,19,0)="11^6 = Modified Independence^1"
^DIST(.404,348,40,19,2)="^^6,55"
^DIST(.404,348,40,20,0)="12^7 = Complete Independence^1"
^DIST(.404,348,40,20,2)="^^7,5"
^DIST(.404,348,40,21,0)="1^!M^1"
^DIST(.404,348,40,21,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,348,40,21,2)="^^1,10"
^DIST(.404,348,40,22,0)="2^!M^1"
^DIST(.404,348,40,22,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,348,40,22,2)="^^1,41"
^DIST(.404,348,40,23,0)="3^!M^1"
^DIST(.404,348,40,23,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,348,40,23,2)="^^2,26"
^DIST(.404,348,40,24,0)="4^!M^1"
^DIST(.404,348,40,24,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,348,40,24,2)="^^3,2"
^DIST(.404,348,40,25,0)="5^DISPOSITION^3"
^DIST(.404,348,40,25,1)=".024"
^DIST(.404,348,40,25,2)="3,59^25^3,46"
^DIST(.404,348,40,"B",1,21)=""
^DIST(.404,348,40,"B",2,22)=""
^DIST(.404,348,40,"B",3,23)=""
^DIST(.404,348,40,"B",4,24)=""
^DIST(.404,348,40,"B",5,25)=""
^DIST(.404,348,40,"B",6,14)=""
^DIST(.404,348,40,"B",7,15)=""
^DIST(.404,348,40,"B",8,16)=""
^DIST(.404,348,40,"B",9,17)=""
^DIST(.404,348,40,"B",10,18)=""
^DIST(.404,348,40,"B",11,19)=""
^DIST(.404,348,40,"B",12,20)=""
^DIST(.404,348,40,"B",13,10)=""
^DIST(.404,348,40,"B",14,3)=""
^DIST(.404,348,40,"B",15,4)=""
^DIST(.404,348,40,"B",16,5)=""
^DIST(.404,348,40,"B",17,7)=""
^DIST(.404,348,40,"B",18,6)=""
^DIST(.404,348,40,"B",19,8)=""
^DIST(.404,348,40,"B",20,12)=""
^DIST(.404,348,40,"B",21,13)=""
^DIST(.404,348,40,"B",22,11)=""
^DIST(.404,348,40,"B",23,9)=""
^DIST(.404,348,40,"B",24,2)=""
^DIST(.404,348,40,"C","1 = TOTAL ASSISTANCE",14)=""
^DIST(.404,348,40,"C","2 = MAXIMAL ASSISTANCE",15)=""
^DIST(.404,348,40,"C","3 = MODERATE ASSISTANCE",16)=""
^DIST(.404,348,40,"C","4 = MINIMAL ASSISTANCE",17)=""
^DIST(.404,348,40,"C","5 = SUPERVISION",18)=""
^DIST(.404,348,40,"C","6 = MODIFIED INDEPENDENCE",19)=""
^DIST(.404,348,40,"C","7 = COMPLETE INDEPENDENCE",20)=""
^DIST(.404,348,40,"C","ADJ TO LIMITATION",9)=""
^DIST(.404,348,40,"C","ATTENTION",12)=""
^DIST(.404,348,40,"C","CAR TRANSFERS",3)=""
^DIST(.404,348,40,"C","COMMUNITY ACCESS",4)=""
^DIST(.404,348,40,"C","DISPOSITION",25)=""
^DIST(.404,348,40,"C","EMOTIONAL STATUS",8)=""
^DIST(.404,348,40,"C","EMPLOYABILITY",10)=""
^DIST(.404,348,40,"C","ORIENTATION",11)=""
^DIST(.404,348,40,"C","READING",5)=""
^DIST(.404,348,40,"C","SAFETY JUDGEMENT",13)=""
^DIST(.404,348,40,"C","SPEECH CLARITY",7)=""
^DIST(.404,348,40,"C","SWALLOWING",2)=""
^DIST(.404,348,40,"C","WRITING",6)=""
^DIST(.404,349,0)="SPNLP DIENER HD1^154.1^"
^DIST(.404,349,40,0)="^.4044I^6^5"
^DIST(.404,349,40,1,0)="1^DIENER'S (1985) SATISFACTION WITH LIFE SCALE^1"
^DIST(.404,349,40,1,2)="^^1,18"
^DIST(.404,349,40,3,0)="3^PATIENT^3"
^DIST(.404,349,40,3,1)=".01"
^DIST(.404,349,40,3,2)="2,10^30^2,1"
^DIST(.404,349,40,4,0)="4^!M^1"
^DIST(.404,349,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,349,40,4,2)="^^2,45"
^DIST(.404,349,40,5,0)="5^!M^1"
^DIST(.404,349,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,349,40,5,2)="^^2,62"
^DIST(.404,349,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,349,40,6,2)="^^3,1"
^DIST(.404,349,40,"B",1,1)=""
^DIST(.404,349,40,"B",3,3)=""
^DIST(.404,349,40,"B",4,4)=""
^DIST(.404,349,40,"B",5,5)=""
^DIST(.404,349,40,"B",6,6)=""
^DIST(.404,349,40,"C","DIENER'S (1985) SATISFACTION WITH LIFE SCALE",1)=""
^DIST(.404,349,40,"C","PATIENT",3)=""
^DIST(.404,349,40,"C","_______________________________________________________________",6)=""
^DIST(.404,350,0)="SPNLP DIENER HD4^154.1^"
^DIST(.404,350,40,0)="^.4044I^1^1"
^DIST(.404,350,40,1,0)="1^PAGE 1 OF 1^1"
^DIST(.404,350,40,1,2)="^^1,69"
^DIST(.404,350,40,"B",1,1)=""
^DIST(.404,350,40,"C","PAGE 1 OF 1",1)=""
^DIST(.404,351,0)="SPNLP DIENER BLK3^154.1"
^DIST(.404,351,40,0)="^.4044I^7^7"
^DIST(.404,351,40,1,0)="6^DIENER'S (1985) SATISFACTION WITH LIFE SCALE^1"
^DIST(.404,351,40,1,2)="^^7,19"
^DIST(.404,351,40,2,0)="7^DIENER COMPOSITE SCORE (0-35)^3"
^DIST(.404,351,40,2,1)="6.01"
^DIST(.404,351,40,2,2)="9,56^2^9,25"
^DIST(.404,351,40,3,0)="1^!M^1"
^DIST(.404,351,40,3,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,351,40,3,2)="^^1,10"
^DIST(.404,351,40,4,0)="2^!M^1"
^DIST(.404,351,40,4,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,351,40,4,2)="^^1,41"
^DIST(.404,351,40,5,0)="3^!M^1"
^DIST(.404,351,40,5,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,351,40,5,2)="^^2,26"
^DIST(.404,351,40,6,0)="4^!M^1"
^DIST(.404,351,40,6,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,351,40,6,2)="^^4,1"
^DIST(.404,351,40,7,0)="5^DISPOSITION^3"
^DIST(.404,351,40,7,1)=".024"
^DIST(.404,351,40,7,2)="4,55^25^4,42"
^DIST(.404,351,40,"B",1,3)=""
^DIST(.404,351,40,"B",2,4)=""
^DIST(.404,351,40,"B",3,5)=""
^DIST(.404,351,40,"B",4,6)=""
^DIST(.404,351,40,"B",5,7)=""
^DIST(.404,351,40,"B",6,1)=""
^DIST(.404,351,40,"B",7,2)=""
^DIST(.404,351,40,"C","DIENER COMPOSITE SCORE (0-35)",2)=""
^DIST(.404,351,40,"C","DIENER'S (1985) SATISFACTION WITH LIFE SCALE",1)=""
^DIST(.404,351,40,"C","DISPOSITION",7)=""
^DIST(.404,352,0)="SPNLP DUSOI HD1^154.1^"
^DIST(.404,352,40,0)="^.4044I^6^5"
^DIST(.404,352,40,1,0)="1^DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)^1"
^DIST(.404,352,40,1,2)="^^1,14"
^DIST(.404,352,40,3,0)="3^PATIENT^3"
^DIST(.404,352,40,3,1)=".01"
^DIST(.404,352,40,3,2)="2,10^30^2,1"
^DIST(.404,352,40,4,0)="4^!M^1"
^DIST(.404,352,40,4,.1)="S Y=""SSN: ""_$$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.09,1)"
^DIST(.404,352,40,4,2)="^^2,45"
^DIST(.404,352,40,5,0)="5^!M^1"
^DIST(.404,352,40,5,.1)="S Y=""DOB: ""_$$FMTE^XLFDT($$GET^DDSVAL(2,$P(^SPNL(154.1,DA,0),U),.03,1),1)"
^DIST(.404,352,40,5,2)="^^2,62"
^DIST(.404,352,40,6,0)="6^________________________________________________________________________________^1"
^DIST(.404,352,40,6,2)="^^3,1"
^DIST(.404,352,40,"B",1,1)=""
^DIST(.404,352,40,"B",3,3)=""
^DIST(.404,352,40,"B",4,4)=""
^DIST(.404,352,40,"B",5,5)=""
^DIST(.404,352,40,"B",6,6)=""
^DIST(.404,352,40,"C","DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)",1)=""
^DIST(.404,352,40,"C","PATIENT",3)=""
^DIST(.404,352,40,"C","_______________________________________________________________",6)=""
^DIST(.404,353,0)="SPNLP DUSOI HD4^154.1^"
^DIST(.404,353,40,0)="^.4044I^1^1"
^DIST(.404,353,40,1,0)="1^PAGE 1 OF 1^1"
^DIST(.404,353,40,1,2)="^^1,69"
^DIST(.404,353,40,"B",1,1)=""
^DIST(.404,353,40,"C","PAGE 1 OF 1",1)=""
^DIST(.404,354,0)="SPNLP DUSOI BLK3^154.1"
^DIST(.404,354,40,0)="^.4044I^9^7"
^DIST(.404,354,40,3,0)="6^DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)^1"
^DIST(.404,354,40,3,2)="^^7,17"
^DIST(.404,354,40,4,0)="7^DUSOI COMPOSITE SCORE (0-100)^3"
^DIST(.404,354,40,4,1)="6.02"
^DIST(.404,354,40,4,2)="9,56^3^9,25"
^DIST(.404,354,40,5,0)="1^!M^1"
^DIST(.404,354,40,5,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,1) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care Start Date: ""_Y"
^DIST(.404,354,40,5,2)="^^1,10"
^DIST(.404,354,40,6,0)="2^!M^1"
^DIST(.404,354,40,6,.1)="S Y=$P($G(^SPNL(154.1,DA,8)),U,2) I Y'="""" S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Care End Date: ""_Y"
^DIST(.404,354,40,6,2)="^^1,41"
^DIST(.404,354,40,7,0)="3^!M^1"
^DIST(.404,354,40,7,.1)="S Y=$P(^SPNL(154.1,DA,0),U,4) S Y=$$FMTE^XLFDT(Y,""5DZ"") S Y=""Record Date: ""_Y"
^DIST(.404,354,40,7,2)="^^2,26"
^DIST(.404,354,40,8,0)="4^!M^1"
^DIST(.404,354,40,8,.1)="S Y=$$GET1^DIQ(154.1,DA_"","",.021) I Y'="""" S Y=""Score Type: ""_Y"
^DIST(.404,354,40,8,2)="^^4,1"
^DIST(.404,354,40,9,0)="5^DISPOSITION^3"
^DIST(.404,354,40,9,1)=".024"
^DIST(.404,354,40,9,2)="4,62^25^4,49"
^DIST(.404,354,40,"B",1,5)=""
^DIST(.404,354,40,"B",2,6)=""
^DIST(.404,354,40,"B",3,7)=""
^DIST(.404,354,40,"B",4,8)=""
^DIST(.404,354,40,"B",5,9)=""
^DIST(.404,354,40,"B",6,3)=""
^DIST(.404,354,40,"B",7,4)=""
^DIST(.404,354,40,"C","DISPOSITION",9)=""
^DIST(.404,354,40,"C","DUKE UNIVERSITY SEVERITY OF ILLNESS INDEX (DUSOI)",3)=""
^DIST(.404,354,40,"C","DUSOI COMPOSITE SCORE (0-100)",4)=""
^DIST(.404,355,0)="XUSITEPARM 5^8989.3"
^DIST(.404,355,40,0)="^.4044I^3^3"
^DIST(.404,355,40,1,0)="1^IRM MAIL GROUP^3"
^DIST(.404,355,40,1,1)=".02"
^DIST(.404,355,40,1,2)="1,27^50^1,11"
^DIST(.404,355,40,2,0)="2^AFTER HOURS MAIL GROUP^3"
^DIST(.404,355,40,2,1)=".03"
^DIST(.404,355,40,2,2)="3,27^50^3,3"
^DIST(.404,355,40,3,0)="3^LOG RESOURCE USAGE?^3"
^DIST(.404,355,40,3,1)="300"
^DIST(.404,355,40,3,2)="5,27^3^5,6"
^DIST(.404,355,40,"B",1,1)=""
^DIST(.404,355,40,"B",2,2)=""
^DIST(.404,355,40,"B",3,3)=""
^DIST(.404,355,40,"C","AFTER HOURS MAIL GROUP",2)=""
^DIST(.404,355,40,"C","IRM MAIL GROUP",1)=""
^DIST(.404,355,40,"C","LOG RESOURCE USAGE?",3)=""
^DIST(.404,356,0)="XU-CLINICAL TRAINEE HDR^200^"
^DIST(.404,356,40,0)="^.4044I^4^4"
^DIST(.404,356,40,1,0)="1^Edit Trainee Registration Data^1"
^DIST(.404,356,40,1,2)="^^1,26"
^DIST(.404,356,40,2,0)="2^NAME^3"
^DIST(.404,356,40,2,1)=".01"
^DIST(.404,356,40,2,2)="2,7^35^2,1"
^DIST(.404,356,40,2,4)="^^^1"
^DIST(.404,356,40,3,0)="3^Page 1 of^1"
^DIST(.404,356,40,3,2)="^^2,69"
^DIST(.404,356,40,4,0)="4^_______________________________________________________________________________^1"
^DIST(.404,356,40,4,2)="^^3,1"
^DIST(.404,356,40,"B",1,1)=""
^DIST(.404,356,40,"B",2,2)=""
^DIST(.404,356,40,"B",3,3)=""
^DIST(.404,356,40,"B",4,4)=""
^DIST(.404,356,40,"C","EDIT TRAINEE REGISTRATION DATA",1)=""
^DIST(.404,356,40,"C","NAME",2)=""
^DIST(.404,356,40,"C","PAGE 1 OF",3)=""
^DIST(.404,356,40,"C","_______________________________________________________________",4)=""
^DIST(.404,357,0)="XU-CLINICAL TRAINEE 1^200"
^DIST(.404,357,40,0)="^.4044I^22^20"
^DIST(.404,357,40,1,0)="11^Title^3"
^DIST(.404,357,40,1,1)="8"
^DIST(.404,357,40,1,2)="9,28^30^9,21"
^DIST(.404,357,40,2,0)="10^Degree^3"
^DIST(.404,357,40,2,1)="10.6"
^DIST(.404,357,40,2,2)="9,9^10^9,1"
^DIST(.404,357,40,3,0)="12^Service/Section^3"
^DIST(.404,357,40,3,1)="29"
^DIST(.404,357,40,3,2)="10,18^30^10,1"
^DIST(.404,357,40,4,0)="1^SSN^3^^F1"
^DIST(.404,357,40,4,1)="9"
^DIST(.404,357,40,4,2)="1,49^9^1,44"
^DIST(.404,357,40,4,4)="^^^1"
^DIST(.404,357,40,5,0)="14^Permanent Street 1^3^^F3"
^DIST(.404,357,40,5,1)=".111"
^DIST(.404,357,40,5,2)="11,21^50^11,1"
^DIST(.404,357,40,6,0)="15^Permanent Street 2^3^^F4"
^DIST(.404,357,40,6,1)=".112"
^DIST(.404,357,40,6,2)="12,21^50^12,1"
^DIST(.404,357,40,7,0)="16^Permanent Street 3^3^^F5"
^DIST(.404,357,40,7,1)=".113"
^DIST(.404,357,40,7,2)="13,21^50^13,1"
^DIST(.404,357,40,8,0)="17^City^3^^F6"
^DIST(.404,357,40,8,1)=".114"
^DIST(.404,357,40,8,2)="14,7^30^14,1"
^DIST(.404,357,40,9,0)="18^State^3^^F7"
^DIST(.404,357,40,9,1)=".115"
^DIST(.404,357,40,9,2)="15,8^30^15,1"
^DIST(.404,357,40,10,0)="19^Zip Code^3^^F8"
^DIST(.404,357,40,10,1)=".116"
^DIST(.404,357,40,10,2)="15,50^10^15,40"
^DIST(.404,357,40,11,0)="20^E-Mail Address^3^^F9"
^DIST(.404,357,40,11,1)=".151"
^DIST(.404,357,40,11,2)="16,17^50^16,1"
^DIST(.404,357,40,12,0)="2^1^1"
^DIST(.404,357,40,12,2)="^^1,79"
^DIST(.404,357,40,15,0)="9^Current Degree Lvl^3^^12.1F"
^DIST(.404,357,40,15,1)="12.1"
^DIST(.404,357,40,15,2)="8,21^59^8,1"
^DIST(.404,357,40,16,0)="8^Program of Study^3^^12.2F"
^DIST(.404,357,40,16,1)="12.2"
^DIST(.404,357,40,16,2)="7,19^59^7,1"
^DIST(.404,357,40,17,0)="6^Last Training Month & Year^3^^12.3F"
^DIST(.404,357,40,17,1)="12.3"
^DIST(.404,357,40,17,2)="5,66^8^5,38"
^DIST(.404,357,40,18,0)="13^Date of Birth^3^^F2"
^DIST(.404,357,40,18,1)="5"
^DIST(.404,357,40,18,2)="10,65^11^10,50"
^DIST(.404,357,40,19,0)="4^VHA Training Fac.^3^^12.4F"
^DIST(.404,357,40,19,1)="12.4"
^DIST(.404,357,40,19,2)="4,20^27^4,1"
^DIST(.404,357,40,19,4)="0"
^DIST(.404,357,40,20,0)="3^Is this person an active Trainee?^3^^12.6F"
^DIST(.404,357,40,20,1)="12.6"
^DIST(.404,357,40,20,2)="3,36^3^3,1"
^DIST(.404,357,40,20,12)="D REQ^XUSER2("""",1)"
^DIST(.404,357,40,21,0)="7^Trainee Inactive (Date)^3^^12.7F"
^DIST(.404,357,40,21,1)="12.7"
^DIST(.404,357,40,21,2)="6,63^11^6,38"
^DIST(.404,357,40,22,0)="5^Start Date of Training^3^^12.8F"
^DIST(.404,357,40,22,1)="12.8"
^DIST(.404,357,40,22,2)="5,25^11^5,1"
^DIST(.404,357,40,"B",1,4)=""
^DIST(.404,357,40,"B",2,12)=""
^DIST(.404,357,40,"B",3,20)=""
^DIST(.404,357,40,"B",4,19)=""
^DIST(.404,357,40,"B",5,22)=""
^DIST(.404,357,40,"B",6,17)=""
^DIST(.404,357,40,"B",7,21)=""
^DIST(.404,357,40,"B",8,16)=""
^DIST(.404,357,40,"B",9,15)=""
^DIST(.404,357,40,"B",10,2)=""
^DIST(.404,357,40,"B",11,1)=""
^DIST(.404,357,40,"B",12,3)=""
^DIST(.404,357,40,"B",13,18)=""
^DIST(.404,357,40,"B",14,5)=""
^DIST(.404,357,40,"B",15,6)=""
^DIST(.404,357,40,"B",16,7)=""
^DIST(.404,357,40,"B",17,8)=""
^DIST(.404,357,40,"B",18,9)=""
^DIST(.404,357,40,"B",19,10)=""
^DIST(.404,357,40,"B",20,11)=""
^DIST(.404,357,40,"C",1,12)=""
^DIST(.404,357,40,"C","CITY",8)=""
^DIST(.404,357,40,"C","CURRENT DEGREE LVL",15)=""
^DIST(.404,357,40,"C","DATE OF BIRTH",18)=""
^DIST(.404,357,40,"C","DEGREE",2)=""
^DIST(.404,357,40,"C","E-MAIL ADDRESS",11)=""
^DIST(.404,357,40,"C","IS THIS PERSON AN ACTIVE TRAINEE?",20)=""
^DIST(.404,357,40,"C","LAST TRAINING MONTH & YEAR",17)=""
^DIST(.404,357,40,"C","PERMANENT STREET 1",5)=""
^DIST(.404,357,40,"C","PERMANENT STREET 2",6)=""
^DIST(.404,357,40,"C","PERMANENT STREET 3",7)=""
^DIST(.404,357,40,"C","PROGRAM OF STUDY",16)=""
^DIST(.404,357,40,"C","SERVICE/SECTION",3)=""
^DIST(.404,357,40,"C","SSN",4)=""
^DIST(.404,357,40,"C","START DATE OF TRAINING",22)=""
^DIST(.404,357,40,"C","STATE",9)=""
^DIST(.404,357,40,"C","TITLE",1)=""
^DIST(.404,357,40,"C","TRAINEE INACTIVE (DATE)",21)=""
^DIST(.404,357,40,"C","VHA TRAINING FAC.",19)=""
^DIST(.404,357,40,"C","ZIP CODE",10)=""
^DIST(.404,357,40,"D","12.1F",15)=""
^DIST(.404,357,40,"D","12.2F",16)=""
^DIST(.404,357,40,"D","12.3F",17)=""
^DIST(.404,357,40,"D","12.4F",19)=""
^DIST(.404,357,40,"D","12.6F",20)=""
^DIST(.404,357,40,"D","12.7F",21)=""
^DIST(.404,357,40,"D","12.8F",22)=""
^DIST(.404,357,40,"D","F1",4)=""
^DIST(.404,357,40,"D","F2",18)=""
^DIST(.404,357,40,"D","F3",5)=""
^DIST(.404,357,40,"D","F4",6)=""
^DIST(.404,357,40,"D","F5",7)=""
^DIST(.404,357,40,"D","F6",8)=""
^DIST(.404,357,40,"D","F7",9)=""
^DIST(.404,357,40,"D","F8",10)=""
^DIST(.404,357,40,"D","F9",11)=""
^DIST(.404,358,0)="XUEXISTING USER TRAINEE^200"
^DIST(.404,358,40,0)="^.4044I^17^16"
^DIST(.404,358,40,1,0)="1^5^1"
^DIST(.404,358,40,1,2)="^^1,74"
^DIST(.404,358,40,2,0)="2^PERMANENT ADDRESS:^1"
^DIST(.404,358,40,2,2)="^^3,1"
^DIST(.404,358,40,3,0)="3^Street 1^3^^F3"
^DIST(.404,358,40,3,1)=".111"
^DIST(.404,358,40,3,2)="4,21^50^4,11"
^DIST(.404,358,40,4,0)="4^Street 2^3^^F4"
^DIST(.404,358,40,4,1)=".112"
^DIST(.404,358,40,4,2)="5,21^50^5,11"
^DIST(.404,358,40,5,0)="5^Street 3^3^^F5"
^DIST(.404,358,40,5,1)=".113"
^DIST(.404,358,40,5,2)="6,21^50^6,11"
^DIST(.404,358,40,6,0)="6^City^3^^F6"
^DIST(.404,358,40,6,1)=".114"
^DIST(.404,358,40,6,2)="7,21^30^7,15"
^DIST(.404,358,40,7,0)="7^State^3^^F7"
^DIST(.404,358,40,7,1)=".115"
^DIST(.404,358,40,7,2)="8,21^30^8,14"
^DIST(.404,358,40,8,0)="8^Zip Code^3^^F8"
^DIST(.404,358,40,8,1)=".116"
^DIST(.404,358,40,8,2)="9,21^10^9,11"
^DIST(.404,358,40,9,0)="9^E-Mail Address^3^^F9"
^DIST(.404,358,40,9,1)=".151"
^DIST(.404,358,40,9,2)="10,21^50^10,5"
^DIST(.404,358,40,11,0)="16^Target Degree Lvl^3^^12.1F"
^DIST(.404,358,40,11,1)="12.1"
^DIST(.404,358,40,11,2)="16,20^59^16,1"
^DIST(.404,358,40,11,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,12,0)="15^Program of Study^3^^12.2F"
^DIST(.404,358,40,12,1)="12.2"
^DIST(.404,358,40,12,2)="15,19^59^15,1"
^DIST(.404,358,40,12,11)="D:X]"""" HLP^DDSUTL($P($G(^USC(8932.2,+$G(X),0)),U))"
^DIST(.404,358,40,12,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,13,0)="13^Last Training Month & Year^3^^12.3F"
^DIST(.404,358,40,13,1)="12.3"
^DIST(.404,358,40,13,2)="13,66^8^13,38"
^DIST(.404,358,40,13,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,14,0)="11^VHA Training Fac.^3^^12.4F"
^DIST(.404,358,40,14,1)="12.4"
^DIST(.404,358,40,14,2)="12,20^27^12,1"
^DIST(.404,358,40,14,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,15,0)="10^Is this person an active Trainee?^3^^12.6F"
^DIST(.404,358,40,15,1)="12.6"
^DIST(.404,358,40,15,2)="11,36^3^11,1"
^DIST(.404,358,40,15,12)="D REQ^XUSER2("""")"
^DIST(.404,358,40,15,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,16,0)="14^Trainee Inactive (Date)^3^^12.7F"
^DIST(.404,358,40,16,1)="12.7"
^DIST(.404,358,40,16,2)="14,63^11^14,38"
^DIST(.404,358,40,16,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,17,0)="12^Start Date of Training^3^^12.8F"
^DIST(.404,358,40,17,1)="12.8"
^DIST(.404,358,40,17,2)="13,25^11^13,1"
^DIST(.404,358,40,17,14)="I X="""" D EN^DDIOL($C(7)_""Deletions are not allowed!"") S DDSERROR=1"
^DIST(.404,358,40,"B",1,1)=""
^DIST(.404,358,40,"B",2,2)=""
^DIST(.404,358,40,"B",3,3)=""
^DIST(.404,358,40,"B",4,4)=""
^DIST(.404,358,40,"B",5,5)=""
^DIST(.404,358,40,"B",6,6)=""
^DIST(.404,358,40,"B",7,7)=""
^DIST(.404,358,40,"B",8,8)=""
^DIST(.404,358,40,"B",9,9)=""
^DIST(.404,358,40,"B",10,15)=""
^DIST(.404,358,40,"B",11,14)=""
^DIST(.404,358,40,"B",12,17)=""
^DIST(.404,358,40,"B",13,13)=""
^DIST(.404,358,40,"B",14,16)=""
^DIST(.404,358,40,"B",15,12)=""
^DIST(.404,358,40,"B",16,11)=""
^DIST(.404,358,40,"C",5,1)=""
^DIST(.404,358,40,"C","CITY",6)=""
^DIST(.404,358,40,"C","E-MAIL ADDRESS",9)=""
^DIST(.404,358,40,"C","IS THIS PERSON AN ACTIVE TRAINEE?",15)=""
^DIST(.404,358,40,"C","LAST TRAINING MONTH & YEAR",13)=""
^DIST(.404,358,40,"C","PERMANENT ADDRESS:",2)=""
^DIST(.404,358,40,"C","PROGRAM OF STUDY",12)=""
^DIST(.404,358,40,"C","START DATE OF TRAINING",17)=""
^DIST(.404,358,40,"C","STATE",7)=""
^DIST(.404,358,40,"C","STREET 1",3)=""
^DIST(.404,358,40,"C","STREET 2",4)=""
^DIST(.404,358,40,"C","STREET 3",5)=""
^DIST(.404,358,40,"C","TARGET DEGREE LVL",11)=""
^DIST(.404,358,40,"C","TRAINEE INACTIVE (DATE)",16)=""
^DIST(.404,358,40,"C","VHA TRAINING FAC.",14)=""
^DIST(.404,358,40,"C","ZIP CODE",8)=""
^DIST(.404,358,40,"D","12.1F",11)=""
^DIST(.404,358,40,"D","12.2F",12)=""
^DIST(.404,358,40,"D","12.3F",13)=""
^DIST(.404,358,40,"D","12.4F",14)=""
^DIST(.404,358,40,"D","12.6F",15)=""
^DIST(.404,358,40,"D","12.7F",16)=""
^DIST(.404,358,40,"D","12.8F",17)=""
^DIST(.404,358,40,"D","F3",3)=""
^DIST(.404,358,40,"D","F4",4)=""
^DIST(.404,358,40,"D","F5",5)=""
^DIST(.404,358,40,"D","F6",6)=""
^DIST(.404,358,40,"D","F7",7)=""
^DIST(.404,358,40,"D","F8",8)=""
^DIST(.404,358,40,"D","F9",9)=""
^DIST(.404,359,0)="XUSSPKI 1^8989.3"
^DIST(.404,359,40,0)="^.4044I^3^3"
^DIST(.404,359,40,1,0)="1^Kernel PKI edit^1"
^DIST(.404,359,40,1,2)="^^1,28"
^DIST(.404,359,40,2,0)="2^DOMAIN^3"
^DIST(.404,359,40,2,1)=".01"
^DIST(.404,359,40,2,2)="2,16^52^2,8"
^DIST(.404,359,40,2,4)="^^^1"
^DIST(.404,359,40,3,0)="3^PKI Server^3"
^DIST(.404,359,40,3,1)="53.1"
^DIST(.404,359,40,3,2)="4,20^46^4,8"
^DIST(.404,359,40,"B",1,1)=""
^DIST(.404,359,40,"B",2,2)=""
^DIST(.404,359,40,"B",3,3)=""
^DIST(.404,359,40,"C","DOMAIN",2)=""
^DIST(.404,359,40,"C","KERNEL PKI EDIT",1)=""
^DIST(.404,359,40,"C","PKI SERVER",3)=""
^DIST(.404,360,0)="EDIT INSTITUTION^52.92"
^DIST(.404,360,15,0)="^^1^1^3030725^"
^DIST(.404,360,15,1,0)="This form is used to edit the TRANSITIONAL RX INSTITUTION LETTERS file."
^DIST(.404,360,40,0)="^.4044I^28^27"
^DIST(.404,360,40,1,0)="2^INSTITUTION^3"
^DIST(.404,360,40,1,1)=".01"
^DIST(.404,360,40,1,2)="2,19^30^2,1"
^DIST(.404,360,40,2,0)="5^PARENT^3"
^DIST(.404,360,40,2,1)=".02"
^DIST(.404,360,40,2,2)="3,19^30^3,1"
^DIST(.404,360,40,2,14)="N ZZ S ZZ=0 S:(X=DA) ZZ=1 S:(+$P(^(0),U,2)) ZZ=1 I ZZ S DDSERROR=1 D HLP^DDSUTL("">>>  Must Pick A Different Parent Institution    <<<"")"
^DIST(.404,360,40,3,0)="9^Line 1^3"
^DIST(.404,360,40,3,1)=".05"
^DIST(.404,360,40,3,2)="6,12^30^6,2"
^DIST(.404,360,40,4,0)="10^Line 2^3"
^DIST(.404,360,40,4,1)=".06"
^DIST(.404,360,40,4,2)="7,12^30^7,2"
^DIST(.404,360,40,6,0)="31^TPB CONTACT PHONE NUMBER(S)^1"
^DIST(.404,360,40,6,2)="^^12,2"
^DIST(.404,360,40,7,0)="19^#1^3"
^DIST(.404,360,40,7,1)=".03"
^DIST(.404,360,40,7,2)="12,37^25^12,33"
^DIST(.404,360,40,8,0)="20^#2^3"
^DIST(.404,360,40,8,1)=".04"
^DIST(.404,360,40,8,2)="13,37^25^13,33"
^DIST(.404,360,40,9,0)="21^DIRECTORS^1"
^DIST(.404,360,40,9,2)="^^15,2"
^DIST(.404,360,40,10,0)="22^Line 1^3"
^DIST(.404,360,40,10,1)="2.01"
^DIST(.404,360,40,10,2)="15,21^40^15,13"
^DIST(.404,360,40,11,0)="24^Line 2^3"
^DIST(.404,360,40,11,1)="2.02"
^DIST(.404,360,40,11,2)="16,21^40^16,13"
^DIST(.404,360,40,12,0)="26^Line 3^3"
^DIST(.404,360,40,12,1)="2.03"
^DIST(.404,360,40,12,2)="17,21^40^17,13"
^DIST(.404,360,40,13,0)="11^CITY^3"
^DIST(.404,360,40,13,1)=".07"
^DIST(.404,360,40,13,2)="8,12^30^8,2"
^DIST(.404,360,40,14,0)="12^State^3"
^DIST(.404,360,40,14,1)=".09"
^DIST(.404,360,40,14,2)="9,12^30^9,2"
^DIST(.404,360,40,15,0)="13^Zip Code^3"
^DIST(.404,360,40,15,1)=".08"
^DIST(.404,360,40,15,2)="10,12^14^10,2"
^DIST(.404,360,40,16,0)="1^TPB Institution Letter Edit^1"
^DIST(.404,360,40,16,2)="^^1,19"
^DIST(.404,360,40,17,0)="4^^4"
^DIST(.404,360,40,17,2)="2,64^6"
^DIST(.404,360,40,17,30)="S Y={.01:99}"
^DIST(.404,360,40,18,0)="23^SIGNATURE^1"
^DIST(.404,360,40,18,2)="^^16,2"
^DIST(.404,360,40,19,0)="25^BLOCK^1"
^DIST(.404,360,40,19,2)="^^17,2"
^DIST(.404,360,40,20,0)="6^ADDRESS:^1"
^DIST(.404,360,40,20,2)="^^5,2"
^DIST(.404,360,40,21,0)="7^PHYSICAL - Letter Heading^1"
^DIST(.404,360,40,21,2)="^^5,12"
^DIST(.404,360,40,22,0)="8^MAILING - TPB Forms Return Address^1"
^DIST(.404,360,40,22,2)="^^5,44"
^DIST(.404,360,40,23,0)="14^^3"
^DIST(.404,360,40,23,1)="1.01"
^DIST(.404,360,40,23,2)="6,44^30"
^DIST(.404,360,40,24,0)="15^^3"
^DIST(.404,360,40,24,1)="1.02"
^DIST(.404,360,40,24,2)="7,44^30"
^DIST(.404,360,40,25,0)="16^^3"
^DIST(.404,360,40,25,1)="1.03"
^DIST(.404,360,40,25,2)="8,44^30"
^DIST(.404,360,40,26,0)="18^^3"
^DIST(.404,360,40,26,1)="1.05"
^DIST(.404,360,40,26,2)="10,44^15"
^DIST(.404,360,40,27,0)="3^Station #^1"
^DIST(.404,360,40,27,2)="^^2,54"
^DIST(.404,360,40,28,0)="17^^3"
^DIST(.404,360,40,28,1)="1.04"
^DIST(.404,360,40,28,2)="9,44^30"
^DIST(.404,360,40,"B",1,16)=""
^DIST(.404,360,40,"B",2,1)=""
^DIST(.404,360,40,"B",3,27)=""
^DIST(.404,360,40,"B",4,17)=""
^DIST(.404,360,40,"B",5,2)=""
^DIST(.404,360,40,"B",6,20)=""
^DIST(.404,360,40,"B",7,21)=""
^DIST(.404,360,40,"B",8,22)=""
^DIST(.404,360,40,"B",9,3)=""
^DIST(.404,360,40,"B",10,4)=""
^DIST(.404,360,40,"B",11,13)=""
^DIST(.404,360,40,"B",12,14)=""
^DIST(.404,360,40,"B",13,15)=""
^DIST(.404,360,40,"B",14,23)=""
^DIST(.404,360,40,"B",15,24)=""
^DIST(.404,360,40,"B",16,25)=""
^DIST(.404,360,40,"B",17,28)=""
^DIST(.404,360,40,"B",18,26)=""
^DIST(.404,360,40,"B",19,7)=""
^DIST(.404,360,40,"B",20,8)=""
^DIST(.404,360,40,"B",21,9)=""
^DIST(.404,360,40,"B",22,10)=""
^DIST(.404,360,40,"B",23,18)=""
^DIST(.404,360,40,"B",24,11)=""
^DIST(.404,360,40,"B",25,19)=""
^DIST(.404,360,40,"B",26,12)=""
^DIST(.404,360,40,"B",31,6)=""
^DIST(.404,360,40,"C","#1",7)=""
^DIST(.404,360,40,"C","#2",8)=""
^DIST(.404,360,40,"C","ADDRESS:",20)=""
^DIST(.404,360,40,"C","BLOCK",19)=""
^DIST(.404,360,40,"C","CITY",13)=""
^DIST(.404,360,40,"C","DIRECTORS",9)=""
^DIST(.404,360,40,"C","INSTITUTION",1)=""
^DIST(.404,360,40,"C","LINE 1",3)=""
^DIST(.404,360,40,"C","LINE 1",10)=""
^DIST(.404,360,40,"C","LINE 2",4)=""
^DIST(.404,360,40,"C","LINE 2",11)=""
^DIST(.404,360,40,"C","LINE 3",12)=""
^DIST(.404,360,40,"C","MAILING - TPB FORMS RETURN ADDRESS",22)=""
^DIST(.404,360,40,"C","PARENT",2)=""
^DIST(.404,360,40,"C","PHYSICAL - LETTER HEADING",21)=""
^DIST(.404,360,40,"C","SIGNATURE",18)=""
^DIST(.404,360,40,"C","STATE",14)=""
^DIST(.404,360,40,"C","STATION #",27)=""
^DIST(.404,360,40,"C","TPB CONTACT PHONE NUMBER(S)",6)=""
^DIST(.404,360,40,"C","TPB INSTITUTION LETTER EDIT",16)=""
^DIST(.404,360,40,"C","ZIP CODE",15)=""
^DIST(.404,361,0)="SELECT INSTITUTION^52.92"
^DIST(.404,361,40,0)="^.4044I^2^2"
^DIST(.404,361,40,1,0)="1^Institution^2"
^DIST(.404,361,40,1,.1)=""
^DIST(.404,361,40,1,2)="4,18^37^4,5"
^DIST(.404,361,40,1,20)="P^^52.92"
^DIST(.404,361,40,2,0)="2^TPB INSTITUTION LETTER^1"
^DIST(.404,361,40,2,2)="^^1,12"
^DIST(.404,361,40,"B",1,1)=""
^DIST(.404,361,40,"B",2,2)=""
^DIST(.404,361,40,"C","INSTITUTION",1)=""
^DIST(.404,361,40,"C","TPB INSTITUTION LETTER",2)=""
^DIST(.404,362,0)="PRSA LD EMP^450^"
^DIST(.404,362,40,0)="^.4044I^9^9"
^DIST(.404,362,40,1,0)="1^!M^1"
^DIST(.404,362,40,1,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",1)"
^DIST(.404,362,40,1,2)="^^1,1"
^DIST(.404,362,40,2,0)="2^VA TIME & ATTENDANCE SYSTEM^1"
^DIST(.404,362,40,2,2)="^^1,27"
^DIST(.404,362,40,3,0)="3^!M^1"
^DIST(.404,362,40,3,.1)="S Y=$P($G(^PRSPC(DFN,0)),""^"",9) S:Y'="""" Y=$S(PRSTLV=2:$E(Y)_""XX-XX-""_$E(Y,6,9),PRSTLV=7:$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9),1:""XXX-XX-""_$E(Y,6,9))"
^DIST(.404,362,40,3,2)="^^1,69"
^DIST(.404,362,40,4,0)="4^!M^1"
^DIST(.404,362,40,4,.1)="S Y=""Station: ""_$P($G(^PRSPC(DFN,0)),""^"",8)"
^DIST(.404,362,40,4,2)="^^2,1"
^DIST(.404,362,40,5,0)="5^Labor Distribution Codes^1"
^DIST(.404,362,40,5,2)="^^2,29"
^DIST(.404,362,40,6,0)="6^!M^1"
^DIST(.404,362,40,6,.1)="S Y=""T&L: ""_$P($G(^PRSPC(DFN,0)),""^"",8)"
^DIST(.404,362,40,6,2)="^^2,72"
^DIST(.404,362,40,7,0)="7^!M^1"
^DIST(.404,362,40,7,.1)="S Y=$G(PPE)"
^DIST(.404,362,40,7,2)="^^3,20"
^DIST(.404,362,40,8,0)="8^CODE        PERCENT         COST CENTER        FUND CTRL PT^1"
^DIST(.404,362,40,8,2)="^^5,13"
^DIST(.404,362,40,9,0)="9^-------------------------------------------------------------------------------^1"
^DIST(.404,362,40,9,2)="^^6,1"
^DIST(.404,362,40,"B",1,1)=""
^DIST(.404,362,40,"B",2,2)=""
^DIST(.404,362,40,"B",3,3)=""
^DIST(.404,362,40,"B",4,4)=""
^DIST(.404,362,40,"B",5,5)=""
^DIST(.404,362,40,"B",6,6)=""
^DIST(.404,362,40,"B",7,7)=""
^DIST(.404,362,40,"B",8,8)=""
^DIST(.404,362,40,"B",9,9)=""
^DIST(.404,362,40,"C","---------------------------------------------------------------",9)=""
^DIST(.404,362,40,"C","CODE        PERCENT         COST CENTER        FUND CTRL PT",8)=""
^DIST(.404,362,40,"C","LABOR DISTRIBUTION CODES",5)=""
^DIST(.404,362,40,"C","VA TIME & ATTENDANCE SYSTEM",2)=""
^DIST(.404,363,0)="PRSA LD POST^450.0757^"
^DIST(.404,363,40,0)="^.4044I^6^6"
^DIST(.404,363,40,1,0)="1^LD CODE^1"
^DIST(.404,363,40,1,2)="^^1,1"
^DIST(.404,363,40,2,0)="3^^3"
^DIST(.404,363,40,2,1)="1"
^DIST(.404,363,40,2,2)="1,13^4"
^DIST(.404,363,40,3,0)="4^^3"
^DIST(.404,363,40,3,1)="2"
^DIST(.404,363,40,3,2)="1,26^4"
^DIST(.404,363,40,4,0)="5^^3"
^DIST(.404,363,40,4,1)="3"
^DIST(.404,363,40,4,2)="1,44^4"
^DIST(.404,363,40,5,0)="6^^3"
^DIST(.404,363,40,5,1)="4"
^DIST(.404,363,40,5,2)="1,65^3"
^DIST(.404,363,40,6,0)="2^^3"
^DIST(.404,363,40,6,1)=".01"
^DIST(.404,363,40,6,2)="1,9^1"
^DIST(.404,363,40,"B",1,1)=""
^DIST(.404,363,40,"B",2,6)=""
^DIST(.404,363,40,"B",3,2)=""
^DIST(.404,363,40,"B",4,3)=""
^DIST(.404,363,40,"B",5,4)=""
^DIST(.404,363,40,"B",6,5)=""
^DIST(.404,363,40,"C","LD CODE",1)=""
^DIST(.404,364,0)="PRSA LD COST^450.0757^"
^DIST(.404,364,40,0)="^.4044I^4^4"
^DIST(.404,364,40,1,0)="1^COST CENTER^1"
^DIST(.404,364,40,1,2)="^^1,1"
^DIST(.404,364,40,2,0)="2^^3"
^DIST(.404,364,40,2,1)=".01"
^DIST(.404,364,40,2,2)="1,13^1"
^DIST(.404,364,40,3,0)="3^^3"
^DIST(.404,364,40,3,1)="3"
^DIST(.404,364,40,3,2)="1,16^4"
^DIST(.404,364,40,4,0)="4^!M^1"
^DIST(.404,364,40,4,.1)="S Y=$P($G(^PRSPC(DFN,""LD"",DDSSN,0)),""^"",4),SUB454=""CC"" D OT^PRSDUTIL K SUB454 S X=Y"
^DIST(.404,364,40,4,2)="^^1,22"
^DIST(.404,364,40,"B",1,1)=""
^DIST(.404,364,40,"B",2,2)=""
^DIST(.404,364,40,"B",3,3)=""
^DIST(.404,364,40,"B",4,4)=""
^DIST(.404,364,40,"C","COST CENTER",1)=""
^DIST(.404,365,0)="XUDEVICE LPD^3.5"
^DIST(.404,365,40,0)="^.4044I^15^13"
^DIST(.404,365,40,1,0)="1^EDIT A LDP DEVICE^1"
^DIST(.404,365,40,1,2)="^^1,26"
^DIST(.404,365,40,2,0)="2^NAME^3"
^DIST(.404,365,40,2,1)=".01"
^DIST(.404,365,40,2,2)="2,7^30^2,1"
^DIST(.404,365,40,3,0)="3^PAGE 1 OF 1^1"
^DIST(.404,365,40,3,2)="^^2,64"
^DIST(.404,365,40,4,0)="4^$I^3"
^DIST(.404,365,40,4,1)="1"
^DIST(.404,365,40,4,2)="4,7^32^4,3"
^DIST(.404,365,40,4,3)="_TNA"
^DIST(.404,365,40,4,11)="D HLP^DDSUTL(""To work this must be a _TNA device."")"
^DIST(.404,365,40,5,0)="5^LOCATION OF TERMINAL^3"
^DIST(.404,365,40,5,1)=".02"
^DIST(.404,365,40,5,2)="4,64^16^4,42"
^DIST(.404,365,40,6,0)="6^TYPE^3"
^DIST(.404,365,40,6,1)="2"
^DIST(.404,365,40,6,2)="5,7^20^5,1"
^DIST(.404,365,40,7,0)="9^SUBTYPE^3"
^DIST(.404,365,40,7,1)="3"
^DIST(.404,365,40,7,2)="7,10^29^7,1"
^DIST(.404,365,40,10,0)="12^TELNET PORT^3"
^DIST(.404,365,40,10,1)="66"
^DIST(.404,365,40,10,2)="11,32^4^11,19"
^DIST(.404,365,40,11,0)="13^REMOTE PRINTER NAME^3"
^DIST(.404,365,40,11,1)="67"
^DIST(.404,365,40,11,2)="12,32^45^12,11"
^DIST(.404,365,40,12,0)="8^MARGIN WIDTH^3"
^DIST(.404,365,40,12,1)="9"
^DIST(.404,365,40,12,2)="6,64^3^6,50"
^DIST(.404,365,40,12,11)="D HLP^DDSUTL(""Only fill this in if you wish to override the subtype."")"
^DIST(.404,365,40,13,0)="10^PAGE LENGTH^3"
^DIST(.404,365,40,13,1)="11"
^DIST(.404,365,40,13,2)="7,64^5^7,51"
^DIST(.404,365,40,13,11)="D HLP^DDSUTL(""Only fill this in if you wish to override the subtype."")"
^DIST(.404,365,40,14,0)="7^VOLUME SET(CPU)^3"
^DIST(.404,365,40,14,1)="1.9"
^DIST(.404,365,40,14,2)="5,64^16^5,47"
^DIST(.404,365,40,15,0)="11^PRINT SERVER NAME OR ADDRESS^3"
^DIST(.404,365,40,15,1)="65"
^DIST(.404,365,40,15,2)="10,32^39^10,2"
^DIST(.404,365,40,"B",1,1)=""
^DIST(.404,365,40,"B",2,2)=""
^DIST(.404,365,40,"B",3,3)=""
^DIST(.404,365,40,"B",4,4)=""
^DIST(.404,365,40,"B",5,5)=""
^DIST(.404,365,40,"B",6,6)=""
^DIST(.404,365,40,"B",7,14)=""
^DIST(.404,365,40,"B",8,12)=""
^DIST(.404,365,40,"B",9,7)=""
^DIST(.404,365,40,"B",10,13)=""
^DIST(.404,365,40,"B",11,15)=""
^DIST(.404,365,40,"B",12,10)=""
^DIST(.404,365,40,"B",13,11)=""
^DIST(.404,365,40,"C","$I",4)=""
^DIST(.404,365,40,"C","EDIT A LDP DEVICE",1)=""
^DIST(.404,365,40,"C","LOCATION OF TERMINAL",5)=""
^DIST(.404,365,40,"C","MARGIN WIDTH",12)=""
^DIST(.404,365,40,"C","NAME",2)=""
^DIST(.404,365,40,"C","PAGE 1 OF 1",3)=""
^DIST(.404,365,40,"C","PAGE LENGTH",13)=""
^DIST(.404,365,40,"C","PRINT SERVER NAME OR ADDRESS",15)=""
^DIST(.404,365,40,"C","REMOTE PRINTER NAME",11)=""
^DIST(.404,365,40,"C","SUBTYPE",7)=""
^DIST(.404,365,40,"C","TELNET PORT",10)=""
^DIST(.404,365,40,"C","TYPE",6)=""
^DIST(.404,365,40,"C","VOLUME SET(CPU)",14)=""
^DIST(.404,366,0)="XUDEVICE TRM^3.5"
^DIST(.404,366,11)="D UNED^DDSUTL(""Alt $I"",,,'$P(^XTV(8989.3,1,0),U,5))"
^DIST(.404,366,40,0)="^.4044I^15^15"
^DIST(.404,366,40,1,0)="1^Edit a TRM or VTRM device^1"
^DIST(.404,366,40,1,2)="^^1,22"
^DIST(.404,366,40,2,0)="2^NAME^3"
^DIST(.404,366,40,2,1)=".01"
^DIST(.404,366,40,2,2)="3,7^30^3,1"
^DIST(.404,366,40,3,0)="3^LOCATION^3"
^DIST(.404,366,40,3,1)=".02"
^DIST(.404,366,40,3,2)="3,59^20^3,49"
^DIST(.404,366,40,4,0)="4^$I^3"
^DIST(.404,366,40,4,1)="1"
^DIST(.404,366,40,4,2)="5,10^40^5,6"
^DIST(.404,366,40,5,0)="9^VOLUME SET(CPU)^3"
^DIST(.404,366,40,5,1)="1.9"
^DIST(.404,366,40,5,2)="11,60^15^11,43"
^DIST(.404,366,40,6,0)="6^TYPE^3"
^DIST(.404,366,40,6,1)="2"
^DIST(.404,366,40,6,2)="7,10^20^7,4"
^DIST(.404,366,40,7,0)="8^SIGN-ON/SYSTEM DEVICE^3"
^DIST(.404,366,40,7,1)="1.95"
^DIST(.404,366,40,7,2)="10,60^3^10,37"
^DIST(.404,366,40,7,3)="No"
^DIST(.404,366,40,8,0)="7^SUBTYPE^3"
^DIST(.404,366,40,8,1)="3"
^DIST(.404,366,40,8,2)="8,10^30^8,1"
^DIST(.404,366,40,9,0)="11^MARGIN WIDTH^3"
^DIST(.404,366,40,9,1)="9"
^DIST(.404,366,40,9,2)="13,60^3^13,46"
^DIST(.404,366,40,9,11)="D HLP^DDSUTL(""Only fill this in if you wish to override the subtype."")"
^DIST(.404,366,40,10,0)="13^PAGE LENGTH^3"
^DIST(.404,366,40,10,1)="11"
^DIST(.404,366,40,10,2)="14,60^5^14,47"
^DIST(.404,366,40,10,11)="D HLP^DDSUTL(""Only fill this in if you wish to override the subtype."")"
^DIST(.404,366,40,11,0)="10^ASK DEVICE^3"
^DIST(.404,366,40,11,1)="4"
^DIST(.404,366,40,11,2)="13,17^3^13,5"
^DIST(.404,366,40,12,0)="12^ASK PARAMETERS^3"
^DIST(.404,366,40,12,1)="5"
^DIST(.404,366,40,12,2)="14,17^3^14,1"
^DIST(.404,366,40,12,3)="No"
^DIST(.404,366,40,13,0)="5^Alt $I^3"
^DIST(.404,366,40,13,1)="52"
^DIST(.404,366,40,13,2)="6,10^40^6,2"
^DIST(.404,366,40,14,0)="14^QUEUING^3"
^DIST(.404,366,40,14,1)="5.5"
^DIST(.404,366,40,14,2)="16,17^11^16,8"
^DIST(.404,366,40,15,0)="15^SUPPRESS FORM FEED^3"
^DIST(.404,366,40,15,1)="11.2"
^DIST(.404,366,40,15,2)="16,60^3^16,40"
^DIST(.404,366,40,"B",1,1)=""
^DIST(.404,366,40,"B",2,2)=""
^DIST(.404,366,40,"B",3,3)=""
^DIST(.404,366,40,"B",4,4)=""
^DIST(.404,366,40,"B",5,13)=""
^DIST(.404,366,40,"B",6,6)=""
^DIST(.404,366,40,"B",7,8)=""
^DIST(.404,366,40,"B",8,7)=""
^DIST(.404,366,40,"B",9,5)=""
^DIST(.404,366,40,"B",10,11)=""
^DIST(.404,366,40,"B",11,9)=""
^DIST(.404,366,40,"B",12,12)=""
^DIST(.404,366,40,"B",13,10)=""
^DIST(.404,366,40,"B",14,14)=""
^DIST(.404,366,40,"B",15,15)=""
^DIST(.404,366,40,"C","$I",4)=""
^DIST(.404,366,40,"C","ALT $I",13)=""
^DIST(.404,366,40,"C","ASK DEVICE",11)=""
^DIST(.404,366,40,"C","ASK PARAMETERS",12)=""
^DIST(.404,366,40,"C","EDIT A TRM OR VTRM DEVICE",1)=""
^DIST(.404,366,40,"C","LOCATION",3)=""
^DIST(.404,366,40,"C","MARGIN WIDTH",9)=""
^DIST(.404,366,40,"C","NAME",2)=""
^DIST(.404,366,40,"C","PAGE LENGTH",10)=""
^DIST(.404,366,40,"C","QUEUING",14)=""
^DIST(.404,366,40,"C","SIGN-ON/SYSTEM DEVICE",7)=""
^DIST(.404,366,40,"C","SUBTYPE",8)=""
^DIST(.404,366,40,"C","SUPPRESS FORM FEED",15)=""
^DIST(.404,366,40,"C","TYPE",6)=""
^DIST(.404,366,40,"C","VOLUME SET(CPU)",5)=""
^DIST(.404,367,0)="KMPD PARAMETERS HDR^8973^"
^DIST(.404,367,40,0)="^.4044I^3^3"
^DIST(.404,367,40,1,0)="1^CM Tools Parameters Edit^1"
^DIST(.404,367,40,1,2)="^^1,26"
^DIST(.404,367,40,2,0)="2^Page 1^1"
^DIST(.404,367,40,2,2)="^^1,72"
^DIST(.404,367,40,3,0)="3^!M^1"
^DIST(.404,367,40,3,.1)="S Y=$P($G(^DIC(4,+$P($G(^KMPD(8973,1,0)),U),0)),U),Y=$P($G(DDGLVID),$G(DDGLDEL))_$J("" "",(30-$L(Y))\2)_Y_$P($G(DDGLVID),$G(DDGLDEL),3)"
^DIST(.404,367,40,3,2)="^^2,24"
^DIST(.404,367,40,"B",1,1)=""
^DIST(.404,367,40,"B",2,2)=""
^DIST(.404,367,40,"B",3,3)=""
^DIST(.404,367,40,"C","CM TOOLS PARAMETERS EDIT",1)=""
^DIST(.404,367,40,"C","PAGE 1",2)=""
^DIST(.404,368,0)="KMPD PARAMETERS PAGE 1^8973"
^DIST(.404,368,40,0)="^.4044I^15^15"
^DIST(.404,368,40,1,0)="1^Current Version^3"
^DIST(.404,368,40,1,1)=".02"
^DIST(.404,368,40,1,2)="1,18^13^1,1"
^DIST(.404,368,40,1,4)="^^^1"
^DIST(.404,368,40,2,0)="2^Version Installed^3"
^DIST(.404,368,40,2,1)=".03"
^DIST(.404,368,40,2,2)="1,53^17^1,34"
^DIST(.404,368,40,2,4)="^^^1"
^DIST(.404,368,40,3,0)="3^Current Patch^3"
^DIST(.404,368,40,3,1)=".04"
^DIST(.404,368,40,3,2)="2,18^13^2,3"
^DIST(.404,368,40,3,4)="^^^1"
^DIST(.404,368,40,4,0)="4^Patch Installed^3"
^DIST(.404,368,40,4,1)=".05"
^DIST(.404,368,40,4,2)="2,53^17^2,36"
^DIST(.404,368,40,4,4)="^^^1"
^DIST(.404,368,40,5,0)="5^Purge HL7 Data After^3"
^DIST(.404,368,40,5,1)="3.11"
^DIST(.404,368,40,5,2)="5,26^3^5,4"
^DIST(.404,368,40,5,11)="D HLP^DDSUTL($G(^DD(8973,3.11,3)))"
^DIST(.404,368,40,6,0)="6^Weeks^1"
^DIST(.404,368,40,6,2)="^^5,30"
^DIST(.404,368,40,7,0)="7^Purge Timing Data after^3"
^DIST(.404,368,40,7,1)="4.11"
^DIST(.404,368,40,7,2)="6,26^3^6,1"
^DIST(.404,368,40,7,11)="D HLP^DDSUTL($G(^DD(8973,4.11,3)))"
^DIST(.404,368,40,8,0)="8^Weeks^1"
^DIST(.404,368,40,8,2)="^^6,30"
^DIST(.404,368,40,9,0)="9^Purge RUM Data After^3"
^DIST(.404,368,40,9,1)="2.11"
^DIST(.404,368,40,9,2)="7,26^3^7,4"
^DIST(.404,368,40,9,11)="D HLP^DDSUTL($G(^DD(8973,2.11,3)))"
^DIST(.404,368,40,10,0)="10^Weeks^1"
^DIST(.404,368,40,10,2)="^^7,30"
^DIST(.404,368,40,11,0)="11^Timing Monitor Update Rate - Min^3"
^DIST(.404,368,40,11,1)="19.01"
^DIST(.404,368,40,11,2)="5,72^2^5,38"
^DIST(.404,368,40,11,11)="D HLP^DDSUTL($G(^DD(8973,19.01,3)))"
^DIST(.404,368,40,12,0)="12^Timing Monitor Alert - Seconds^3"
^DIST(.404,368,40,12,1)="19.02"
^DIST(.404,368,40,12,2)="6,72^3^6,40"
^DIST(.404,368,40,12,11)="D HLP^DDSUTL($G(^DD(8973,19.02,3)))"
^DIST(.404,368,40,13,0)="13^Scheduled Down Time Start^3"
^DIST(.404,368,40,13,1)="5.01"
^DIST(.404,368,40,13,2)="10,29^20^10,2"
^DIST(.404,368,40,13,11)="D HLP^DDSUTL($G(^DD(8973,5.01,3)))"
^DIST(.404,368,40,13,12)="D:X="""" UNED^DDSUTL(14,,,1),UNED^DDSUTL(15,,,1) D:X'="""" UNED^DDSUTL(14,,,0),UNED^DDSUTL(15,,,0)"
^DIST(.404,368,40,13,13)="D PUT^DDSVAL(8973,.DA,5.02,""""),PUT^DDSVAL(8973,.DA,5.03,"""")"
^DIST(.404,368,40,14,0)="14^Scheduled Down Time Stop^3"
^DIST(.404,368,40,14,1)="5.02"
^DIST(.404,368,40,14,2)="11,29^20^11,3"
^DIST(.404,368,40,14,11)="D:$$GET^DDSVAL(8973,.DA,5.01)'="""" HLP^DDSUTL($G(^DD(8973,5.02,3)))"
^DIST(.404,368,40,14,12)="I X'="""" I X'>$$GET^DDSVAL(8973,.DA,5.01,,""I"") W $C(7) D HLP^DDSUTL(""This must be greater than the 'Scheduled Down Time Start' entry."") S X="""",DDSBR=""14"" D PUT^DDSVAL(8973,.DA,5.02,X)"
^DIST(.404,368,40,15,0)="15^Reason for Down Time^3"
^DIST(.404,368,40,15,1)="5.03"
^DIST(.404,368,40,15,2)="12,29^50^12,7"
^DIST(.404,368,40,15,11)="D HLP^DDSUTL($G(^DD(8973,5.03,3)))"
^DIST(.404,368,40,"B",1,1)=""
^DIST(.404,368,40,"B",2,2)=""
^DIST(.404,368,40,"B",3,3)=""
^DIST(.404,368,40,"B",4,4)=""
^DIST(.404,368,40,"B",5,5)=""
^DIST(.404,368,40,"B",6,6)=""
^DIST(.404,368,40,"B",7,7)=""
^DIST(.404,368,40,"B",8,8)=""
^DIST(.404,368,40,"B",9,9)=""
^DIST(.404,368,40,"B",10,10)=""
^DIST(.404,368,40,"B",11,11)=""
^DIST(.404,368,40,"B",12,12)=""
^DIST(.404,368,40,"B",13,13)=""
^DIST(.404,368,40,"B",14,14)=""
^DIST(.404,368,40,"B",15,15)=""
^DIST(.404,368,40,"C","CURRENT PATCH",3)=""
^DIST(.404,368,40,"C","CURRENT VERSION",1)=""
^DIST(.404,368,40,"C","PATCH INSTALLED",4)=""
^DIST(.404,368,40,"C","PURGE HL7 DATA AFTER",5)=""
^DIST(.404,368,40,"C","PURGE RUM DATA AFTER",9)=""
^DIST(.404,368,40,"C","PURGE TIMING DATA AFTER",7)=""
^DIST(.404,368,40,"C","REASON FOR DOWN TIME",15)=""
^DIST(.404,368,40,"C","SCHEDULED DOWN TIME START",13)=""
^DIST(.404,368,40,"C","SCHEDULED DOWN TIME STOP",14)=""
^DIST(.404,368,40,"C","TIMING MONITOR ALERT - SECONDS",12)=""
^DIST(.404,368,40,"C","TIMING MONITOR UPDATE RATE - MIN",11)=""
^DIST(.404,368,40,"C","VERSION INSTALLED",2)=""
^DIST(.404,368,40,"C","WEEKS",6)=""
^DIST(.404,368,40,"C","WEEKS",8)=""
^DIST(.404,368,40,"C","WEEKS",10)=""
^DIST(.404,369,0)="LREPI95^69.55"
^DIST(.404,369,40,0)="^.4044I^3^3"
^DIST(.404,369,40,1,0)="1^^3"
^DIST(.404,369,40,1,1)=".01"
^DIST(.404,369,40,1,2)="2,1^30"
^DIST(.404,369,40,1,7)="^6"
^DIST(.404,369,40,2,0)="2^^4"
^DIST(.404,369,40,2,2)="2,49^30"
^DIST(.404,369,40,2,30)="S Y={.01:64}"
^DIST(.404,369,40,3,0)="3^^4"
^DIST(.404,369,40,3,2)="2,34^12"
^DIST(.404,369,40,3,30)="S Y={.01:64:1}"
^DIST(.404,369,40,"B",1,1)=""
^DIST(.404,369,40,"B",2,2)=""
^DIST(.404,369,40,"B",3,3)=""
^DIST(.404,370,0)="LREPI9HEAD^69.5^"
^DIST(.404,370,40,0)="^.4044I^6^6"
^DIST(.404,370,40,1,0)="1^LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN^1"
^DIST(.404,370,40,1,2)="^^2,15"
^DIST(.404,370,40,2,0)="2^NAME^3"
^DIST(.404,370,40,2,1)=".01"
^DIST(.404,370,40,2,2)="4,7^50^4,1"
^DIST(.404,370,40,3,0)="3^INACTIVE: ^3"
^DIST(.404,370,40,3,1)="1"
^DIST(.404,370,40,3,2)="4,70^3^4,60^1"
^DIST(.404,370,40,4,0)="4^________________________________________^1"
^DIST(.404,370,40,4,2)="^^5,1"
^DIST(.404,370,40,5,0)="5^________________________________________^1"
^DIST(.404,370,40,5,2)="^^5,41"
^DIST(.404,370,40,6,0)="6^!M^1"
^DIST(.404,370,40,6,.1)="S Y=""Page ""_DDSPG_"" of 5"""
^DIST(.404,370,40,6,2)="^^2,67"
^DIST(.404,370,40,"B",1,1)=""
^DIST(.404,370,40,"B",2,2)=""
^DIST(.404,370,40,"B",3,3)=""
^DIST(.404,370,40,"B",4,4)=""
^DIST(.404,370,40,"B",5,5)=""
^DIST(.404,370,40,"B",6,6)=""
^DIST(.404,370,40,"C","INACTIVE: ",3)=""
^DIST(.404,370,40,"C","LABORATORY SEARCH/EXTRACT PARAMETERS INPUT SCREEN",1)=""
^DIST(.404,370,40,"C","NAME",2)=""
^DIST(.404,370,40,"C","________________________________________",4)=""
^DIST(.404,370,40,"C","________________________________________",5)=""
^DIST(.404,371,0)="LREPI92^69.52"
^DIST(.404,371,40,0)="^.4044I^3^3"
^DIST(.404,371,40,1,0)="1^^3"
^DIST(.404,371,40,1,1)=".01"
^DIST(.404,371,40,1,2)="4,1^30"
^DIST(.404,371,40,2,0)="2^^3"
^DIST(.404,371,40,2,1)="1"
^DIST(.404,371,40,2,2)="4,35^20"
^DIST(.404,371,40,3,0)="3^^3"
^DIST(.404,371,40,3,1)="2"
^DIST(.404,371,40,3,2)="4,61^15"
^DIST(.404,371,40,"B",1,1)=""
^DIST(.404,371,40,"B",2,2)=""
^DIST(.404,371,40,"B",3,3)=""
^DIST(.404,372,0)="LREPI93^69.54"
^DIST(.404,372,40,0)="^.4044I^2^2"
^DIST(.404,372,40,1,0)="1^^3"
^DIST(.404,372,40,1,1)=".01"
^DIST(.404,372,40,1,2)="3,2^7"
^DIST(.404,372,40,2,0)="2^^4"
^DIST(.404,372,40,2,2)="3,34^25"
^DIST(.404,372,40,2,30)="S Y={.01:3}"
^DIST(.404,372,40,"B",1,1)=""
^DIST(.404,372,40,"B",2,2)=""
^DIST(.404,373,0)="LREPI91^69.5^"
^DIST(.404,373,40,0)="^.4044I^5^5"
^DIST(.404,373,40,1,0)="1^Laboratory Test(s)^1"
^DIST(.404,373,40,1,2)="^^1,1"
^DIST(.404,373,40,2,0)="2^Indicator^1"
^DIST(.404,373,40,2,2)="^^1,34"
^DIST(.404,373,40,3,0)="3^Value^1"
^DIST(.404,373,40,3,2)="^^1,60"
^DIST(.404,373,40,4,0)="4^ICDM-9^1"
^DIST(.404,373,40,4,2)="^^7,2"
^DIST(.404,373,40,5,0)="5^ICDM-9 Description^1"
^DIST(.404,373,40,5,2)="^^7,34"
^DIST(.404,373,40,"B",1,1)=""
^DIST(.404,373,40,"B",2,2)=""
^DIST(.404,373,40,"B",3,3)=""
^DIST(.404,373,40,"B",4,4)=""
^DIST(.404,373,40,"B",5,5)=""
^DIST(.404,373,40,"C","ICDM-9",4)=""
^DIST(.404,373,40,"C","ICDM-9 DESCRIPTION",5)=""
^DIST(.404,373,40,"C","INDICATOR",2)=""
^DIST(.404,373,40,"C","LABORATORY TEST(S)",1)=""
^DIST(.404,373,40,"C","VALUE",3)=""
^DIST(.404,374,0)="LREPI94^69.53"
^DIST(.404,374,40,0)="^.4044I^1^1"
^DIST(.404,374,40,1,0)="1^^3"
^DIST(.404,374,40,1,1)=".01"
^DIST(.404,374,40,1,2)="1,1^35"
^DIST(.404,374,40,"B",1,1)=""
^DIST(.404,375,0)="LREPI96^69.5^"
^DIST(.404,375,40,0)="^.4044I^5^5"
^DIST(.404,375,40,1,0)="1^Selected Etiology^1"
^DIST(.404,375,40,1,2)="^^1,1"
^DIST(.404,375,40,2,0)="2^Antimicrobial Susceptibility^1"
^DIST(.404,375,40,2,2)="^^7,1"
^DIST(.404,375,40,3,0)="3^NLT Code^1"
^DIST(.404,375,40,3,2)="^^7,34"
^DIST(.404,375,40,4,0)="4^NLT Description^1"
^DIST(.404,375,40,4,2)="^^7,49"
^DIST(.404,375,40,5,0)="5^Selected Snomed Codes^1"
^DIST(.404,375,40,5,2)="^^1,45"
^DIST(.404,375,40,"B",1,1)=""
^DIST(.404,375,40,"B",2,2)=""
^DIST(.404,375,40,"B",3,3)=""
^DIST(.404,375,40,"B",4,4)=""
^DIST(.404,375,40,"B",5,5)=""
^DIST(.404,375,40,"C","ANTIMICROBIAL SUSCEPTIBILITY",2)=""
^DIST(.404,375,40,"C","NLT CODE",3)=""
^DIST(.404,375,40,"C","NLT DESCRIPTION",4)=""
^DIST(.404,375,40,"C","SELECTED ETIOLOGY",1)=""
^DIST(.404,375,40,"C","SELECTED SNOMED CODES",5)=""
^DIST(.404,376,0)="LREPI97^69.5^"
^DIST(.404,376,40,0)="^.4044I^3^3"
^DIST(.404,376,40,1,0)="1^Topography Selection^1"
^DIST(.404,376,40,1,2)="^^1,27"
^DIST(.404,376,40,2,0)="2^Include^1"
^DIST(.404,376,40,2,2)="^^3,1"
^DIST(.404,376,40,3,0)="3^Exclude^1"
^DIST(.404,376,40,3,2)="^^3,40"
^DIST(.404,376,40,"B",1,1)=""
^DIST(.404,376,40,"B",2,2)=""
^DIST(.404,376,40,"B",3,3)=""
^DIST(.404,376,40,"C","EXCLUDE",3)=""
^DIST(.404,376,40,"C","INCLUDE",2)=""
^DIST(.404,376,40,"C","TOPOGRAPHY SELECTION",1)=""
^DIST(.404,377,0)="LREPI98^69.56"
^DIST(.404,377,40,0)="^.4044I^1^1"
^DIST(.404,377,40,1,0)="1^^3"
^DIST(.404,377,40,1,1)=".01"
^DIST(.404,377,40,1,2)="1,1^30"
^DIST(.404,377,40,"B",1,1)=""
^DIST(.404,378,0)="LREPI99^69.57"
^DIST(.404,378,40,0)="^.4044I^1^1"
^DIST(.404,378,40,1,0)="1^^3"
^DIST(.404,378,40,1,1)=".01"
^DIST(.404,378,40,1,2)="1,1^30"
^DIST(.404,378,40,"B",1,1)=""
^DIST(.404,379,0)="LREPI910^69.5"
^DIST(.404,379,40,0)="^.4044I^9^6"
^DIST(.404,379,40,3,0)="1^Run Date^3"
^DIST(.404,379,40,3,1)="9"
^DIST(.404,379,40,3,2)="2,11^20^2,1"
^DIST(.404,379,40,4,0)="2^Protocol^3"
^DIST(.404,379,40,4,1)="12"
^DIST(.404,379,40,4,2)="2,48^25^2,38"
^DIST(.404,379,40,5,0)="3^Run Cycle^3"
^DIST(.404,379,40,5,1)="10"
^DIST(.404,379,40,5,2)="4,12^7^4,1"
^DIST(.404,379,40,7,0)="7^General Description^3"
^DIST(.404,379,40,7,1)="15"
^DIST(.404,379,40,7,2)="8,22^1^8,1"
^DIST(.404,379,40,8,0)="4^Lag Days^3"
^DIST(.404,379,40,8,1)="10.5"
^DIST(.404,379,40,8,2)="4,48^2^4,38"
^DIST(.404,379,40,9,0)="8^Previous Cycle^3"
^DIST(.404,379,40,9,1)="19"
^DIST(.404,379,40,9,2)="6,16^13^6,1"
^DIST(.404,379,40,"B",1,3)=""
^DIST(.404,379,40,"B",2,4)=""
^DIST(.404,379,40,"B",3,5)=""
^DIST(.404,379,40,"B",4,8)=""
^DIST(.404,379,40,"B",7,7)=""
^DIST(.404,379,40,"B",8,9)=""
^DIST(.404,379,40,"C","GENERAL DESCRIPTION",7)=""
^DIST(.404,379,40,"C","LAG DAYS",8)=""
^DIST(.404,379,40,"C","PREVIOUS CYCLE",9)=""
^DIST(.404,379,40,"C","PROTOCOL",4)=""
^DIST(.404,379,40,"C","RUN CYCLE",5)=""
^DIST(.404,379,40,"C","RUN DATE",3)=""
^DIST(.404,380,0)="LREPI911^69.5"
^DIST(.404,380,40,0)="^.4044I^^0"
^DIST(.404,381,0)="LREPI912^69.58"
^DIST(.404,381,40,0)="^.4044I^1^1"
^DIST(.404,381,40,1,0)="1^^3"
^DIST(.404,381,40,1,1)=".01"
^DIST(.404,381,40,1,2)="1,2^15"
^DIST(.404,381,40,"B",1,1)=""
^DIST(.404,382,0)="LREPI913^69.5"
^DIST(.404,382,40,0)="^.4044I^5^5"
^DIST(.404,382,40,1,0)="1^FIRST ENCOUNTER^3"
^DIST(.404,382,40,1,1)="11"
^DIST(.404,382,40,1,2)="1,18^3^1,1"
^DIST(.404,382,40,2,0)="2^FOLLOW PTF^3"
^DIST(.404,382,40,2,1)="13"
^DIST(.404,382,40,2,2)="1,55^3^1,43"
^DIST(.404,382,40,3,0)="3^BEFORE DATE OF BIRTH^3"
^DIST(.404,382,40,3,1)="17"
^DIST(.404,382,40,3,2)="3,23^11^3,1"
^DIST(.404,382,40,4,0)="4^AFTER DATE OF BIRTH^3"
^DIST(.404,382,40,4,1)="18"
^DIST(.404,382,40,4,2)="3,64^11^3,43"
^DIST(.404,382,40,5,0)="5^Select SEX^3"
^DIST(.404,382,40,5,1)="16"
^DIST(.404,382,40,5,2)="5,13^1^5,1"
^DIST(.404,382,40,"B",1,1)=""
^DIST(.404,382,40,"B",2,2)=""
^DIST(.404,382,40,"B",3,3)=""
^DIST(.404,382,40,"B",4,4)=""
^DIST(.404,382,40,"B",5,5)=""
^DIST(.404,382,40,"C","AFTER DATE OF BIRTH",4)=""
^DIST(.404,382,40,"C","BEFORE DATE OF BIRTH",3)=""
^DIST(.404,382,40,"C","FIRST ENCOUNTER",1)=""
^DIST(.404,382,40,"C","FOLLOW PTF",2)=""
^DIST(.404,382,40,"C","SEX",5)=""
^DIST(.404,383,0)="LREPI15^69.55"
^DIST(.404,383,40,0)="^.4044I^4^4"
^DIST(.404,383,40,1,0)="1^Indicator^1"
^DIST(.404,383,40,1,2)="^^3,1"
^DIST(.404,383,40,2,0)="2^Indicated Value^1"
^DIST(.404,383,40,2,2)="^^3,23"
^DIST(.404,383,40,3,0)="3^^3"
^DIST(.404,383,40,3,1)="1"
^DIST(.404,383,40,3,2)="6,2^12"
^DIST(.404,383,40,4,0)="4^^3"
^DIST(.404,383,40,4,1)="2"
^DIST(.404,383,40,4,2)="6,24^30"
^DIST(.404,383,40,"B",1,1)=""
^DIST(.404,383,40,"B",2,2)=""
^DIST(.404,383,40,"B",3,3)=""
^DIST(.404,383,40,"B",4,4)=""
^DIST(.404,383,40,"C","INDICATED VALUE",2)=""
^DIST(.404,383,40,"C","INDICATOR",1)=""
^DIST(.404,403,0)="Termination^200"
^DIST(.404,403,40,0)="^.4044I^2^2"
^DIST(.404,403,40,1,0)="1^DELETE ALL MAIL ACCESS^3"
^DIST(.404,403,40,1,1)="9.21"
^DIST(.404,403,40,1,2)="2,27^3^2,3"
^DIST(.404,403,40,1,3)="YES"
^DIST(.404,403,40,2,0)="2^DELETE KEYS AT TERMINATION^3"
^DIST(.404,403,40,2,1)="9.22"
^DIST(.404,403,40,2,2)="4,31^3^4,3"
^DIST(.404,403,40,2,3)="YES"
^DIST(.404,403,40,"B",1,1)=""
^DIST(.404,403,40,"B",2,2)=""
^DIST(.404,403,40,"C","DELETE ALL MAIL ACCESS",1)=""
^DIST(.404,403,40,"C","DELETE KEYS AT TERMINATION",2)=""
^DIST(.404,404,0)="XUSITEIP 1^8989.3"
^DIST(.404,404,40,0)="^.4044I^11^11"
^DIST(.404,404,40,1,0)="1^IP SECURITY ON/OFF^3"
^DIST(.404,404,40,1,1)="405.1"
^DIST(.404,404,40,1,2)="1,23^3^1,3"
^DIST(.404,404,40,2,0)="6^Terminal Servers IP^1"
^DIST(.404,404,40,2,2)="^^7,3"
^DIST(.404,404,40,3,0)="7^Sign-on Slack^1"
^DIST(.404,404,40,3,2)="^^7,46"
^DIST(.404,404,40,4,0)="2^USER LOCKING^3"
^DIST(.404,404,40,4,1)="405.14"
^DIST(.404,404,40,4,2)="1,44^3^1,30"
^DIST(.404,404,40,5,0)="4^FAILED ATTEMPTS LIMIT - IRM^3"
^DIST(.404,404,40,5,1)="405.12"
^DIST(.404,404,40,5,2)="3,32^4^3,3"
^DIST(.404,404,40,6,0)="5^FAILED ATTEMPTS LIMIT - AOD^3"
^DIST(.404,404,40,6,1)="405.13"
^DIST(.404,404,40,6,2)="3,72^4^3,43"
^DIST(.404,404,40,7,0)="3^TERMINAL SERVER LIMIT^3"
^DIST(.404,404,40,7,1)="405.16"
^DIST(.404,404,40,7,2)="1,72^2^1,49"
^DIST(.404,404,40,8,0)="8^Last Reset^1"
^DIST(.404,404,40,8,2)="^^7,61"
^DIST(.404,404,40,9,0)="9^KEEP THRESHOLD^3"
^DIST(.404,404,40,9,1)="405.17"
^DIST(.404,404,40,9,2)="5,19^4^5,3"
^DIST(.404,404,40,10,0)="10^TOTAL COUNT INCREASE^3"
^DIST(.404,404,40,10,1)="405.18"
^DIST(.404,404,40,10,2)="5,72^2^5,50"
^DIST(.404,404,40,11,0)="11^LAST FAILED ATTEMPTS CHECK^3"
^DIST(.404,404,40,11,1)="405.15"
^DIST(.404,404,40,11,2)="6,31^20^6,3"
^DIST(.404,404,40,"B",1,1)=""
^DIST(.404,404,40,"B",2,4)=""
^DIST(.404,404,40,"B",3,7)=""
^DIST(.404,404,40,"B",4,5)=""
^DIST(.404,404,40,"B",5,6)=""
^DIST(.404,404,40,"B",6,2)=""
^DIST(.404,404,40,"B",7,3)=""
^DIST(.404,404,40,"B",8,8)=""
^DIST(.404,404,40,"B",9,9)=""
^DIST(.404,404,40,"B",10,10)=""
^DIST(.404,404,40,"B",11,11)=""
^DIST(.404,404,40,"C","FAILED ATTEMPTS LIMIT - AOD",6)=""
^DIST(.404,404,40,"C","FAILED ATTEMPTS LIMIT - IRM",5)=""
^DIST(.404,404,40,"C","IP SECURITY ON/OFF",1)=""
^DIST(.404,404,40,"C","KEEP THRESHOLD",9)=""
^DIST(.404,404,40,"C","LAST FAILED ATTEMPTS CHECK",11)=""
^DIST(.404,404,40,"C","LAST RESET",8)=""
^DIST(.404,404,40,"C","SIGN-ON SLACK",3)=""
^DIST(.404,404,40,"C","TERMINAL SERVER LIMIT",7)=""
^DIST(.404,404,40,"C","TERMINAL SERVERS IP",2)=""
^DIST(.404,404,40,"C","TOTAL COUNT INCREASE",10)=""
^DIST(.404,404,40,"C","USER LOCKING",4)=""
^DIST(.404,405,0)="XUSITEIP 1.1^8989.305"
^DIST(.404,405,40,0)="^.4044I^3^3"
^DIST(.404,405,40,1,0)="1^^3"
^DIST(.404,405,40,1,1)=".01"
^DIST(.404,405,40,1,2)="1,3^40"
^DIST(.404,405,40,2,0)="2^^3"
^DIST(.404,405,40,2,1)="1"
^DIST(.404,405,40,2,2)="1,47^3"
^DIST(.404,405,40,3,0)="3^^3"
^DIST(.404,405,40,3,1)="2"
^DIST(.404,405,40,3,2)="1,61^12"
^DIST(.404,405,40,"B",1,1)=""
^DIST(.404,405,40,"B",2,2)=""
^DIST(.404,405,40,"B",3,3)=""
^DIST(.404,406,0)="PSB BCBU HEADER^53.71^"
^DIST(.404,406,40,0)="^.4044I^3^3"
^DIST(.404,406,40,1,0)="1^BCBU Workstation Parameter Setup^1"
^DIST(.404,406,40,1,2)="^^1,22"
^DIST(.404,406,40,2,0)="4^--------------------------------------------------^1"
^DIST(.404,406,40,2,2)="^^3,1"
^DIST(.404,406,40,3,0)="5^--------------------------------^1"
^DIST(.404,406,40,3,2)="^^3,51"
^DIST(.404,406,40,"B",1,1)=""
^DIST(.404,406,40,"B",4,2)=""
^DIST(.404,406,40,"B",5,3)=""
^DIST(.404,406,40,"C","--------------------------------",3)=""
^DIST(.404,406,40,"C","--------------------------------------------------",2)=""
^DIST(.404,406,40,"C","BCBU WORKSTATION PARAMETER SETUP",1)=""
^DIST(.404,407,0)="PSB BCBU EDIT SCREEN^53.71"
^DIST(.404,407,40,0)="^.4044I^5^5"
^DIST(.404,407,40,1,0)="1^DEFAULT DAYS FOR MAR^3"
^DIST(.404,407,40,1,1)="1"
^DIST(.404,407,40,1,2)="2,23^10^2,1"
^DIST(.404,407,40,2,0)="2^DEFAULT MAR PRINTER^3"
^DIST(.404,407,40,2,1)="2"
^DIST(.404,407,40,2,2)="4,22^30^4,1"
^DIST(.404,407,40,3,0)="3^PURGE ORDER DAYS^3"
^DIST(.404,407,40,3,1)="5"
^DIST(.404,407,40,3,2)="6,19^3^6,1"
^DIST(.404,407,40,4,0)="4^PURGE PATIENT^3"
^DIST(.404,407,40,4,1)="6"
^DIST(.404,407,40,4,2)="8,16^2^8,1"
^DIST(.404,407,40,5,0)="5^MED-LOG NUMBER^3"
^DIST(.404,407,40,5,1)="7"
^DIST(.404,407,40,5,2)="10,17^2^10,1"
^DIST(.404,407,40,"B",1,1)=""
^DIST(.404,407,40,"B",2,2)=""
^DIST(.404,407,40,"B",3,3)=""
^DIST(.404,407,40,"B",4,4)=""
^DIST(.404,407,40,"B",5,5)=""
^DIST(.404,407,40,"C","DEFAULT DAYS FOR MAR",1)=""
^DIST(.404,407,40,"C","DEFAULT MAR PRINTER",2)=""
^DIST(.404,407,40,"C","MED-LOG NUMBER",5)=""
^DIST(.404,407,40,"C","PURGE ORDER DAYS",3)=""
^DIST(.404,407,40,"C","PURGE PATIENT",4)=""
^DIST(.404,408,0)="PSBO XHDR^53.69^"
^DIST(.404,408,40,0)="^.4044I^4^3"
^DIST(.404,408,40,1,0)="1^!M^1"
^DIST(.404,408,40,1,.1)="S Y=""Request #: ""_$P(^PSB(53.69,DA,0),U)"
^DIST(.404,408,40,1,2)="^^1,1"
^DIST(.404,408,40,3,0)="3^!M^1"
^DIST(.404,408,40,3,.1)="S Y=$TR($J("""",80),"" "",""-"")"
^DIST(.404,408,40,3,2)="^^2,1"
^DIST(.404,408,40,4,0)="2^!M^1"
^DIST(.404,408,40,4,.1)="S Y=$J($$GET1^DIQ(53.69,DA_"","",.05),40)"
^DIST(.404,408,40,4,2)="^^1,41"
^DIST(.404,408,40,"B",1,1)=""
^DIST(.404,408,40,"B",2,4)=""
^DIST(.404,408,40,"B",3,3)=""
^DIST(.404,409,0)="PSBO XFTR^53.69"
^DIST(.404,409,40,0)="^.4044I^3^3"
^DIST(.404,409,40,1,0)="1^Print to DEVICE^3"
^DIST(.404,409,40,1,1)=".06"
^DIST(.404,409,40,1,2)="2,58^22^2,41"
^DIST(.404,409,40,1,3)="!M"
^DIST(.404,409,40,1,3.1)="S Y=$$GET^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""E"")"
^DIST(.404,409,40,1,13)="D EN^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""`""_X)"
^DIST(.404,409,40,2,0)="2^Queue To Run At^3"
^DIST(.404,409,40,2,1)=".07"
^DIST(.404,409,40,2,2)="3,58^17^3,41"
^DIST(.404,409,40,2,3)="NOW"
^DIST(.404,409,40,3,0)="3^Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit^2"
^DIST(.404,409,40,3,2)="8,76^1^8,1"
^DIST(.404,409,40,3,10)="S DDSBR=""1^2^1"" ; Return to field 1 block 2"
^DIST(.404,409,40,3,20)="F^^1:1"
^DIST(.404,409,40,"B",1,1)=""
^DIST(.404,409,40,"B",2,2)=""
^DIST(.404,409,40,"B",3,3)=""
^DIST(.404,409,40,"C","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCEL   PF1-R REFRESH   <RE",3)=""
^DIST(.404,409,40,"C","PRINT TO DEVICE",1)=""
^DIST(.404,409,40,"C","QUEUE TO RUN AT",2)=""
^DIST(.404,410,0)="PSBO XDATE XA^53.69"
^DIST(.404,410,40,0)="^.4044I^3^3"
^DIST(.404,410,40,1,0)="1^Start Date^3"
^DIST(.404,410,40,1,1)=".16"
^DIST(.404,410,40,1,2)="4,14^11^4,2"
^DIST(.404,410,40,1,3)="Today-7"
^DIST(.404,410,40,2,0)="2^Stop Date^3"
^DIST(.404,410,40,2,1)=".18"
^DIST(.404,410,40,2,2)="4,40^11^4,29"
^DIST(.404,410,40,2,3)="Today"
^DIST(.404,410,40,3,0)="3^Select Division^3"
^DIST(.404,410,40,3,1)=".04"
^DIST(.404,410,40,3,2)="6,19^30^6,2"
^DIST(.404,410,40,3,3)="DUZ(2)"
^DIST(.404,410,40,3,3.1)=" "
^DIST(.404,410,40,3,4)="1"
^DIST(.404,410,40,"B",1,1)=""
^DIST(.404,410,40,"B",2,2)=""
^DIST(.404,410,40,"B",3,3)=""
^DIST(.404,410,40,"C","DIVISION",3)=""
^DIST(.404,410,40,"C","START DATE",1)=""
^DIST(.404,410,40,"C","STOP DATE",2)=""
^DIST(.404,411,0)="MD HDR^703.9"
^DIST(.404,411,40,0)="^.4044I^2^2"
^DIST(.404,411,40,1,0)="1^MEDICINE FILE CONVERSION PARAMETERS^1"
^DIST(.404,411,40,1,2)="^^1,24"
^DIST(.404,411,40,2,0)="2^!M^1"
^DIST(.404,411,40,2,.1)="S Y=$TR($J("""",79),"" "",""-"")"
^DIST(.404,411,40,2,2)="^^2,1"
^DIST(.404,411,40,"B",1,1)=""
^DIST(.404,411,40,"B",2,2)=""
^DIST(.404,411,40,"C","MEDICINE FILE CONVERSION PARAMETERS",1)=""
^DIST(.404,412,0)="MD SETTINGS^703.9"
^DIST(.404,412,40,0)="^.4044I^8^7"
^DIST(.404,412,40,1,0)="2^Scratch HFS Directory^3"
^DIST(.404,412,40,1,1)=".1"
^DIST(.404,412,40,1,2)="3,32^45^3,3"
^DIST(.404,412,40,1,4)="0"
^DIST(.404,412,40,2,0)="4^Files to be converted^1"
^DIST(.404,412,40,2,2)="^^6,3"
^DIST(.404,412,40,3,0)="5^Medicine Package Procedure^1"
^DIST(.404,412,40,3,2)="^^7,3"
^DIST(.404,412,40,4,0)="6^(Y/N)^1"
^DIST(.404,412,40,4,2)="^^7,53"
^DIST(.404,412,40,6,0)="3^Administrative Closure User^3"
^DIST(.404,412,40,6,1)=".03"
^DIST(.404,412,40,6,2)="4,32^35^4,3"
^DIST(.404,412,40,7,0)="1^Conversion Mode^3"
^DIST(.404,412,40,7,1)=".02"
^DIST(.404,412,40,7,2)="2,32^4^2,3"
^DIST(.404,412,40,7,3)="0"
^DIST(.404,412,40,8,0)="7^Convert^1"
^DIST(.404,412,40,8,2)="^^6,51"
^DIST(.404,412,40,"B",1,7)=""
^DIST(.404,412,40,"B",2,1)=""
^DIST(.404,412,40,"B",3,6)=""
^DIST(.404,412,40,"B",4,2)=""
^DIST(.404,412,40,"B",5,3)=""
^DIST(.404,412,40,"B",6,4)=""
^DIST(.404,412,40,"B",7,8)=""
^DIST(.404,412,40,"C","(Y/N)",4)=""
^DIST(.404,412,40,"C","ADMINISTRATIVE CLOSURE USER",6)=""
^DIST(.404,412,40,"C","CONVERSION MODE",7)=""
^DIST(.404,412,40,"C","CONVERT",8)=""
^DIST(.404,412,40,"C","FILES TO BE CONVERTED",2)=""
^DIST(.404,412,40,"C","MEDICINE PACKAGE PROCEDURE",3)=""
^DIST(.404,412,40,"C","SCRATCH HFS DIRECTORY",1)=""
^DIST(.404,413,0)="MD FILES^703.91"
^DIST(.404,413,40,0)="^.4044I^3^2"
^DIST(.404,413,40,1,0)="1^^3"
^DIST(.404,413,40,1,1)=".01"
^DIST(.404,413,40,1,2)="1,3^35"
^DIST(.404,413,40,1,4)="^^^1"
^DIST(.404,413,40,3,0)="2^^3"
^DIST(.404,413,40,3,1)=".03"
^DIST(.404,413,40,3,2)="1,55^3"
^DIST(.404,413,40,3,3)="N"
^DIST(.404,413,40,3,4)="0^^1"
^DIST(.404,413,40,3,10)="S:X=1 DDSSTACK=2"
^DIST(.404,413,40,"B",1,1)=""
^DIST(.404,413,40,"B",2,3)=""
^DIST(.404,414,0)="MD PROCEDURE UPDATE^703.91"
^DIST(.404,414,40,0)="^.4044I^6^5"
^DIST(.404,414,40,1,0)="1^ Medicine Procedure Conversion Settings ^1"
^DIST(.404,414,40,1,2)="^^1,2"
^DIST(.404,414,40,2,0)="2^Medicine Procedure^3^^MEDPROC"
^DIST(.404,414,40,2,1)=".01"
^DIST(.404,414,40,2,2)="3,25^37^3,3"
^DIST(.404,414,40,2,4)="^^^1"
^DIST(.404,414,40,3,0)="3^CP Procedure^3^^CPPROC"
^DIST(.404,414,40,3,1)=".02"
^DIST(.404,414,40,3,2)="5,25^30^5,3"
^DIST(.404,414,40,5,0)="5^Convert if no status^3"
^DIST(.404,414,40,5,1)=".04"
^DIST(.404,414,40,5,2)="6,25^3^6,3"
^DIST(.404,414,40,6,0)="6^Use TIU Note Title^3"
^DIST(.404,414,40,6,1)=".05"
^DIST(.404,414,40,6,2)="7,25^40^7,3"
^DIST(.404,414,40,"B",1,1)=""
^DIST(.404,414,40,"B",2,2)=""
^DIST(.404,414,40,"B",3,3)=""
^DIST(.404,414,40,"B",5,5)=""
^DIST(.404,414,40,"B",6,6)=""
^DIST(.404,414,40,"C"," MEDICINE PROCEDURE CONVERSION SETTINGS ",1)=""
^DIST(.404,414,40,"C","CONVERT IF NO STATUS",5)=""
^DIST(.404,414,40,"C","CP PROCEDURE",3)=""
^DIST(.404,414,40,"C","MEDICINE PROCEDURE",2)=""
^DIST(.404,414,40,"C","USE TIU NOTE TITLE",6)=""
^DIST(.404,414,40,"D","CPPROC",3)=""
^DIST(.404,414,40,"D","MEDPROC",2)=""
^DIST(.404,415,0)="PRSP ESR POST SEGMENTS^458.02^0"
^DIST(.404,415,12)=""
^DIST(.404,415,40,0)="^.4044I^46^44"
^DIST(.404,415,40,3,0)="3^START     STOP    TYPE OF TIME        REMARKS CODE       MEAL     HRS^1^"
^DIST(.404,415,40,3,2)="^^1,5"
^DIST(.404,415,40,4,0)="4^1^3^^ST1"
^DIST(.404,415,40,4,1)="110"
^DIST(.404,415,40,4,2)="3,4^7^3,2^1"
^DIST(.404,415,40,4,13)="S $P(Z,""^"",1)=X"
^DIST(.404,415,40,5,0)="5^^3^^END1"
^DIST(.404,415,40,5,1)="111"
^DIST(.404,415,40,5,2)="3,14^7"
^DIST(.404,415,40,5,13)="S $P(Z,""^"",2)=X"
^DIST(.404,415,40,6,0)="6^^3"
^DIST(.404,415,40,6,1)="112"
^DIST(.404,415,40,6,2)="3,24^10"
^DIST(.404,415,40,6,11)="D PSTML^PRSPESR2(1)"
^DIST(.404,415,40,6,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,6,13)="S $P(Z,""^"",3)=X,$P(Z,""^"",4)="""" D PUT^DDSVAL(DIE,.DA,113,""@"","""",""E"")"
^DIST(.404,415,40,6,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,7,0)="7^^3"
^DIST(.404,415,40,7,1)="113"
^DIST(.404,415,40,7,2)="3,37^23"
^DIST(.404,415,40,7,11)="S TT=$$GET^DDSVAL(DIE,.DA,112) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,7,13)="S $P(Z,""^"",4)=X"
^DIST(.404,415,40,8,0)="10^2^3^^ST2"
^DIST(.404,415,40,8,1)="115"
^DIST(.404,415,40,8,2)="4,4^7^4,2^1"
^DIST(.404,415,40,8,13)="S $P(Z,""^"",6)=X"
^DIST(.404,415,40,9,0)="11^^3^^END2"
^DIST(.404,415,40,9,1)="116"
^DIST(.404,415,40,9,2)="4,14^7"
^DIST(.404,415,40,9,13)="S $P(Z,""^"",7)=X"
^DIST(.404,415,40,10,0)="12^^3"
^DIST(.404,415,40,10,1)="117"
^DIST(.404,415,40,10,2)="4,24^10"
^DIST(.404,415,40,10,11)="D PSTML^PRSPESR2(2)"
^DIST(.404,415,40,10,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,10,13)="S $P(Z,""^"",8)=X,$P(Z,""^"",9)="""" D PUT^DDSVAL(DIE,.DA,118,""@"","""",""E"")"
^DIST(.404,415,40,10,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,11,0)="13^^3"
^DIST(.404,415,40,11,1)="118"
^DIST(.404,415,40,11,2)="4,37^23"
^DIST(.404,415,40,11,11)="S TT=$$GET^DDSVAL(DIE,.DA,117) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,11,13)="S $P(Z,""^"",9)=X"
^DIST(.404,415,40,12,0)="16^3^3^^ST3"
^DIST(.404,415,40,12,1)="120"
^DIST(.404,415,40,12,2)="5,4^7^5,2^1"
^DIST(.404,415,40,12,13)="S $P(Z,""^"",11)=X"
^DIST(.404,415,40,13,0)="17^^3^^END3"
^DIST(.404,415,40,13,1)="121"
^DIST(.404,415,40,13,2)="5,14^7"
^DIST(.404,415,40,13,13)="S $P(Z,""^"",12)=X"
^DIST(.404,415,40,14,0)="18^^3"
^DIST(.404,415,40,14,1)="122"
^DIST(.404,415,40,14,2)="5,24^10"
^DIST(.404,415,40,14,11)="D PSTML^PRSPESR2(3)"
^DIST(.404,415,40,14,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,14,13)="S $P(Z,""^"",13)=X,$P(Z,""^"",14)="""" D PUT^DDSVAL(DIE,.DA,123,""@"","""",""E"")"
^DIST(.404,415,40,14,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,15,0)="19^^3"
^DIST(.404,415,40,15,1)="123"
^DIST(.404,415,40,15,2)="5,37^23"
^DIST(.404,415,40,15,11)="S TT=$$GET^DDSVAL(DIE,.DA,122) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,15,13)="S $P(Z,""^"",14)=X"
^DIST(.404,415,40,16,0)="22^4^3^^ST4"
^DIST(.404,415,40,16,1)="125"
^DIST(.404,415,40,16,2)="6,4^7^6,2^1"
^DIST(.404,415,40,16,13)="S $P(Z,""^"",16)=X"
^DIST(.404,415,40,17,0)="23^^3^^END4"
^DIST(.404,415,40,17,1)="126"
^DIST(.404,415,40,17,2)="6,14^7"
^DIST(.404,415,40,17,13)="S $P(Z,""^"",17)=X"
^DIST(.404,415,40,18,0)="24^^3"
^DIST(.404,415,40,18,1)="127"
^DIST(.404,415,40,18,2)="6,24^10"
^DIST(.404,415,40,18,11)="D PSTML^PRSPESR2(4)"
^DIST(.404,415,40,18,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,18,13)="S $P(Z,""^"",18)=X,$P(Z,""^"",19)="""" D PUT^DDSVAL(DIE,.DA,128,""@"","""",""E"")"
^DIST(.404,415,40,18,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,19,0)="25^^3"
^DIST(.404,415,40,19,1)="128"
^DIST(.404,415,40,19,2)="6,37^23"
^DIST(.404,415,40,19,11)="S TT=$$GET^DDSVAL(DIE,.DA,127) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,19,13)="S $P(Z,""^"",19)=X"
^DIST(.404,415,40,20,0)="28^5^3^^ST5"
^DIST(.404,415,40,20,1)="130"
^DIST(.404,415,40,20,2)="7,4^7^7,2^1"
^DIST(.404,415,40,20,13)="S $P(Z,""^"",21)=X"
^DIST(.404,415,40,21,0)="29^^3^^END5"
^DIST(.404,415,40,21,1)="131"
^DIST(.404,415,40,21,2)="7,14^7"
^DIST(.404,415,40,21,13)="S $P(Z,""^"",22)=X"
^DIST(.404,415,40,22,0)="30^^3"
^DIST(.404,415,40,22,1)="132"
^DIST(.404,415,40,22,2)="7,24^10"
^DIST(.404,415,40,22,11)="D PSTML^PRSPESR2(5)"
^DIST(.404,415,40,22,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,22,13)="S $P(Z,""^"",23)=X,$P(Z,""^"",24)="""" D PUT^DDSVAL(DIE,.DA,133,""@"","""",""E"")"
^DIST(.404,415,40,22,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,23,0)="31^^3"
^DIST(.404,415,40,23,1)="133"
^DIST(.404,415,40,23,2)="7,37^23"
^DIST(.404,415,40,23,11)="S TT=$$GET^DDSVAL(DIE,.DA,132) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,23,13)="S $P(Z,""^"",24)=X"
^DIST(.404,415,40,24,0)="34^6^3^^ST6"
^DIST(.404,415,40,24,1)="135"
^DIST(.404,415,40,24,2)="8,4^7^8,2^1"
^DIST(.404,415,40,24,13)="S $P(Z,""^"",26)=X"
^DIST(.404,415,40,25,0)="35^^3^^END6"
^DIST(.404,415,40,25,1)="136"
^DIST(.404,415,40,25,2)="8,14^7"
^DIST(.404,415,40,25,13)="S $P(Z,""^"",27)=X"
^DIST(.404,415,40,26,0)="36^^3"
^DIST(.404,415,40,26,1)="137"
^DIST(.404,415,40,26,2)="8,24^10"
^DIST(.404,415,40,26,11)="D PSTML^PRSPESR2(6)"
^DIST(.404,415,40,26,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,26,13)="S $P(Z,""^"",28)=X,$P(Z,""^"",29)="""" D PUT^DDSVAL(DIE,.DA,138,""@"","""",""E"")"
^DIST(.404,415,40,26,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,27,0)="37^^3"
^DIST(.404,415,40,27,1)="138"
^DIST(.404,415,40,27,2)="8,37^23"
^DIST(.404,415,40,27,11)="S TT=$$GET^DDSVAL(DIE,.DA,137) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,27,13)="S $P(Z,""^"",29)=X"
^DIST(.404,415,40,28,0)="40^7^3^^ST7"
^DIST(.404,415,40,28,1)="140"
^DIST(.404,415,40,28,2)="9,4^7^9,2^1"
^DIST(.404,415,40,28,13)="S $P(Z,""^"",31)=X"
^DIST(.404,415,40,29,0)="41^^3^^END7"
^DIST(.404,415,40,29,1)="141"
^DIST(.404,415,40,29,2)="9,14^7"
^DIST(.404,415,40,29,13)="S $P(Z,""^"",32)=X"
^DIST(.404,415,40,30,0)="42^^3"
^DIST(.404,415,40,30,1)="142"
^DIST(.404,415,40,30,2)="9,24^10"
^DIST(.404,415,40,30,11)="D PSTML^PRSPESR2(7)"
^DIST(.404,415,40,30,12)="I X=""ML"" D HLP^DDSUTL(""Please verify that at least one hour of Military Leave has been requested."")"
^DIST(.404,415,40,30,13)="S $P(Z,""^"",33)=X,$P(Z,""^"",34)="""" D PUT^DDSVAL(DIE,.DA,143,""@"","""",""E"")"
^DIST(.404,415,40,30,14)="D VALIDTT^PRSPESR2"
^DIST(.404,415,40,31,0)="43^^3"
^DIST(.404,415,40,31,1)="143"
^DIST(.404,415,40,31,2)="9,37^23"
^DIST(.404,415,40,31,11)="S TT=$$GET^DDSVAL(DIE,.DA,142) S:TT=""""!(TT=""RG"") TT=""*"" S:TT=""WP"" TT=""AL"""
^DIST(.404,415,40,31,13)="S $P(Z,""^"",34)=X"
^DIST(.404,415,40,32,0)="46^REMARKS^3"
^DIST(.404,415,40,32,1)="145"
^DIST(.404,415,40,32,2)="11,11^60^11,1"
^DIST(.404,415,40,32,13)="S $P(Z,""^"",36)=X"
^DIST(.404,415,40,33,0)="44^^3"
^DIST(.404,415,40,33,1)="144"
^DIST(.404,415,40,33,2)="9,63^2"
^DIST(.404,415,40,33,13)="S $P(Z,""^"",35)=X"
^DIST(.404,415,40,33,14)="D OVEREAT^PRSPESR2(7)"
^DIST(.404,415,40,34,0)="45^^4"
^DIST(.404,415,40,34,2)="9,69^5"
^DIST(.404,415,40,34,4)="^^1"
^DIST(.404,415,40,34,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-7},{ESR START TIME-7},{ESR STOP TIME-7})"
^DIST(.404,415,40,35,0)="38^^3"
^DIST(.404,415,40,35,1)="139"
^DIST(.404,415,40,35,2)="8,63^2"
^DIST(.404,415,40,35,13)="S $P(Z,""^"",30)=X"
^DIST(.404,415,40,35,14)="D OVEREAT^PRSPESR2(6)"
^DIST(.404,415,40,36,0)="39^^4^^HR6"
^DIST(.404,415,40,36,2)="8,69^5"
^DIST(.404,415,40,36,4)="^^1"
^DIST(.404,415,40,36,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-6},{ESR START TIME-6},{ESR STOP TIME-6})"
^DIST(.404,415,40,37,0)="33^^4^^HR5"
^DIST(.404,415,40,37,2)="7,69^5"
^DIST(.404,415,40,37,4)="^^1"
^DIST(.404,415,40,37,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-5},{ESR START TIME-5},{ESR STOP TIME-5})"
^DIST(.404,415,40,38,0)="32^^3"
^DIST(.404,415,40,38,1)="134"
^DIST(.404,415,40,38,2)="7,63^2"
^DIST(.404,415,40,38,13)="S $P(Z,""^"",25)=X"
^DIST(.404,415,40,38,14)="D OVEREAT^PRSPESR2(5)"
^DIST(.404,415,40,39,0)="27^^4"
^DIST(.404,415,40,39,2)="6,69^5"
^DIST(.404,415,40,39,4)="^^1"
^DIST(.404,415,40,39,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-4},{ESR START TIME-4},{ESR STOP TIME-4})"
^DIST(.404,415,40,40,0)="26^^3"
^DIST(.404,415,40,40,1)="129"
^DIST(.404,415,40,40,2)="6,63^2"
^DIST(.404,415,40,40,13)="S $P(Z,""^"",20)=X"
^DIST(.404,415,40,40,14)="D OVEREAT^PRSPESR2(4)"
^DIST(.404,415,40,41,0)="21^^4"
^DIST(.404,415,40,41,2)="5,69^5"
^DIST(.404,415,40,41,4)="^^1"
^DIST(.404,415,40,41,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-3},{ESR START TIME-3},{ESR STOP TIME-3})"
^DIST(.404,415,40,42,0)="20^^3"
^DIST(.404,415,40,42,1)="124"
^DIST(.404,415,40,42,2)="5,63^2"
^DIST(.404,415,40,42,13)="S $P(Z,""^"",15)=X"
^DIST(.404,415,40,42,14)="D OVEREAT^PRSPESR2(3)"
^DIST(.404,415,40,43,0)="15^^4"
^DIST(.404,415,40,43,2)="4,69^5"
^DIST(.404,415,40,43,4)="^^1"
^DIST(.404,415,40,43,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-2},{ESR START TIME-2},{ESR STOP TIME-2})"
^DIST(.404,415,40,44,0)="14^^3"
^DIST(.404,415,40,44,1)="119"
^DIST(.404,415,40,44,2)="4,63^2"
^DIST(.404,415,40,44,13)="S $P(Z,""^"",10)=X"
^DIST(.404,415,40,44,14)="D OVEREAT^PRSPESR2(2)"
^DIST(.404,415,40,45,0)="9^^4"
^DIST(.404,415,40,45,2)="3,69^5"
^DIST(.404,415,40,45,4)="^^1"
^DIST(.404,415,40,45,30)="S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-1},{ESR START TIME-1},{ESR STOP TIME-1})"
^DIST(.404,415,40,46,0)="8^^3"
^DIST(.404,415,40,46,1)="114"
^DIST(.404,415,40,46,2)="3,63^2"
^DIST(.404,415,40,46,13)="S $P(Z,U,5)=X"
^DIST(.404,415,40,46,14)="D OVEREAT^PRSPESR2(1)"
^DIST(.404,415,40,"B",3,3)=""
^DIST(.404,415,40,"B",4,4)=""
^DIST(.404,415,40,"B",5,5)=""
^DIST(.404,415,40,"B",6,6)=""
^DIST(.404,415,40,"B",7,7)=""
^DIST(.404,415,40,"B",8,46)=""
^DIST(.404,415,40,"B",9,45)=""
^DIST(.404,415,40,"B",10,8)=""
^DIST(.404,415,40,"B",11,9)=""
^DIST(.404,415,40,"B",12,10)=""
^DIST(.404,415,40,"B",13,11)=""
^DIST(.404,415,40,"B",14,44)=""
^DIST(.404,415,40,"B",15,43)=""
^DIST(.404,415,40,"B",16,12)=""
^DIST(.404,415,40,"B",17,13)=""
^DIST(.404,415,40,"B",18,14)=""
^DIST(.404,415,40,"B",19,15)=""
^DIST(.404,415,40,"B",20,42)=""
^DIST(.404,415,40,"B",21,41)=""
^DIST(.404,415,40,"B",22,16)=""
^DIST(.404,415,40,"B",23,17)=""
^DIST(.404,415,40,"B",24,18)=""
^DIST(.404,415,40,"B",25,19)=""
^DIST(.404,415,40,"B",26,40)=""
^DIST(.404,415,40,"B",27,39)=""
^DIST(.404,415,40,"B",28,20)=""
^DIST(.404,415,40,"B",29,21)=""
^DIST(.404,415,40,"B",30,22)=""
^DIST(.404,415,40,"B",31,23)=""
^DIST(.404,415,40,"B",32,38)=""
^DIST(.404,415,40,"B",33,37)=""
^DIST(.404,415,40,"B",34,24)=""
^DIST(.404,415,40,"B",35,25)=""
^DIST(.404,415,40,"B",36,26)=""
^DIST(.404,415,40,"B",37,27)=""
^DIST(.404,415,40,"B",38,35)=""
^DIST(.404,415,40,"B",39,36)=""
^DIST(.404,415,40,"B",40,28)=""
^DIST(.404,415,40,"B",41,29)=""
^DIST(.404,415,40,"B",42,30)=""
^DIST(.404,415,40,"B",43,31)=""
^DIST(.404,415,40,"B",44,33)=""
^DIST(.404,415,40,"B",45,34)=""
^DIST(.404,415,40,"B",46,32)=""
^DIST(.404,415,40,"C",1,4)=""
^DIST(.404,415,40,"C",2,8)=""
^DIST(.404,415,40,"C",3,12)=""
^DIST(.404,415,40,"C",4,16)=""
^DIST(.404,415,40,"C",5,20)=""
^DIST(.404,415,40,"C",6,24)=""
^DIST(.404,415,40,"C",7,28)=""
^DIST(.404,415,40,"C","REMARKS",32)=""
^DIST(.404,415,40,"C","START     STOP    TYPE OF TIME        REMARKS CODE       MEAL  ",3)=""
^DIST(.404,415,40,"D","END1",5)=""
^DIST(.404,415,40,"D","END2",9)=""
^DIST(.404,415,40,"D","END3",13)=""
^DIST(.404,415,40,"D","END4",17)=""
^DIST(.404,415,40,"D","END5",21)=""
^DIST(.404,415,40,"D","END6",25)=""
^DIST(.404,415,40,"D","END7",29)=""
^DIST(.404,415,40,"D","HR5",37)=""
^DIST(.404,415,40,"D","HR6",36)=""
^DIST(.404,415,40,"D","ST1",4)=""
^DIST(.404,415,40,"D","ST2",8)=""
^DIST(.404,415,40,"D","ST3",12)=""
^DIST(.404,415,40,"D","ST4",16)=""
^DIST(.404,415,40,"D","ST5",20)=""
^DIST(.404,415,40,"D","ST6",24)=""
^DIST(.404,415,40,"D","ST7",28)=""
^DIST(.404,416,0)="PRSP PTP EMP^458.02"
^DIST(.404,416,40,0)="^.4044I^8^8"
^DIST(.404,416,40,1,0)="2^VA TIME & ATTENDANCE SYSTEM^1^"
^DIST(.404,416,40,1,2)="^^1,27^"
^DIST(.404,416,40,2,0)="1^!M^1^"
^DIST(.404,416,40,2,.1)="S Y=$P($G(^PRSPC(PRSIEN,0)),""^"",1)"
^DIST(.404,416,40,2,2)="^^1,1"
^DIST(.404,416,40,3,0)="3^!M^1^"
^DIST(.404,416,40,3,.1)="S Y=$P($G(^PRSPC(PRSIEN,0)),""^"",9) S:Y'="""" Y=""XXX-XX-""_$E(Y,6,9)"
^DIST(.404,416,40,3,2)="^^1,69"
^DIST(.404,416,40,4,0)="4^!M^1^"
^DIST(.404,416,40,4,.1)="S Y=""Station: ""_$P($G(^PRSPC(PRSIEN,0)),""^"",7)"
^DIST(.404,416,40,4,2)="^^2,1"
^DIST(.404,416,40,5,0)="7^!M^1^"
^DIST(.404,416,40,5,.1)="S Y=$G(PRSDTE)"
^DIST(.404,416,40,5,2)="^^3,34"
^DIST(.404,416,40,6,0)="6^!M^1^"
^DIST(.404,416,40,6,.1)="S Y=""T&L: ""_$P($G(^PRSPC(PRSIEN,0)),""^"",8)"
^DIST(.404,416,40,6,2)="^^2,72"
^DIST(.404,416,40,7,0)="5^Tour Beginning^1^"
^DIST(.404,416,40,7,2)="^^2,34^"
^DIST(.404,416,40,8,0)="8^!M^1^"
^DIST(.404,416,40,8,.1)="S Y=""Tour: ""_Y31_""  Meal: ""_PRSML"
^DIST(.404,416,40,8,2)="^^5,1"
^DIST(.404,416,40,"B",1,2)=""
^DIST(.404,416,40,"B",2,1)=""
^DIST(.404,416,40,"B",3,3)=""
^DIST(.404,416,40,"B",4,4)=""
^DIST(.404,416,40,"B",5,7)=""
^DIST(.404,416,40,"B",6,6)=""
^DIST(.404,416,40,"B",7,5)=""
^DIST(.404,416,40,"B",8,8)=""
^DIST(.404,416,40,"C","TOUR BEGINNING",7)=""
^DIST(.404,416,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,417,0)="PRSP EXT ABSENCE^458.4^0"
^DIST(.404,417,15,0)="^^1^1^3041006^"
^DIST(.404,417,15,1,0)="This form is used to enter or edit an extended absence."
^DIST(.404,417,40,0)="^.4044I^6^6"
^DIST(.404,417,40,1,0)="1^VA TIME & ATTENDANCE SYSTEM^1"
^DIST(.404,417,40,1,2)="^^1,27"
^DIST(.404,417,40,2,0)="2^!M^1"
^DIST(.404,417,40,2,.1)="S Y=$S($G(PRSEANEW):""ENTER"",1:""EDIT"")_"" EXTENDED ABSENCE"""
^DIST(.404,417,40,2,2)="^^2,29"
^DIST(.404,417,40,3,0)="3^!M^1"
^DIST(.404,417,40,3,.1)="S Y=$P(^PRSPC(PRSIEN,0),""^"",1)"
^DIST(.404,417,40,3,2)="^^4,1"
^DIST(.404,417,40,4,0)="4^FROM DATE^3"
^DIST(.404,417,40,4,1)=".01"
^DIST(.404,417,40,4,2)="6,12^11^6,1"
^DIST(.404,417,40,4,14)="D FVAL01^PRSPEAF"
^DIST(.404,417,40,5,0)="5^TO DATE^3"
^DIST(.404,417,40,5,1)="1"
^DIST(.404,417,40,5,2)="8,10^11^8,1"
^DIST(.404,417,40,5,14)="D FVAL1^PRSPEAF"
^DIST(.404,417,40,6,0)="6^REMARKS^3"
^DIST(.404,417,40,6,1)="6"
^DIST(.404,417,40,6,2)="16,10^60^16,1"
^DIST(.404,417,40,"B",1,1)=""
^DIST(.404,417,40,"B",2,2)=""
^DIST(.404,417,40,"B",3,3)=""
^DIST(.404,417,40,"B",4,4)=""
^DIST(.404,417,40,"B",5,5)=""
^DIST(.404,417,40,"B",6,6)=""
^DIST(.404,417,40,"C","FROM DATE",4)=""
^DIST(.404,417,40,"C","REMARKS",6)=""
^DIST(.404,417,40,"C","TO DATE",5)=""
^DIST(.404,417,40,"C","VA TIME & ATTENDANCE SYSTEM",1)=""
^DIST(.404,418,0)="XPD EDIT BUILD5D^9.6"
^DIST(.404,418,40,0)="^.4044I^5^5"
^DIST(.404,418,40,1,0)="1^Rebuild Menu Tree Upon Completion^3^^XPO1"
^DIST(.404,418,40,1,1)="51.09"
^DIST(.404,418,40,1,2)="6,36^3^6,1"
^DIST(.404,418,40,2,0)="2^Want KIDS to INHIBIT LOGONs^3^^XPI1"
^DIST(.404,418,40,2,1)="51.05"
^DIST(.404,418,40,2,2)="8,36^3^8,7"
^DIST(.404,418,40,3,0)="3^Want to DISABLE Scheduled Options^3^^XPZ1"
^DIST(.404,418,40,3,1)="51.11"
^DIST(.404,418,40,3,2)="10,36^3^10,1"
^DIST(.404,418,40,4,0)="4^Change the 'NO' defaults the sites will see when KIDS asks these questions!^1"
^DIST(.404,418,40,4,2)="^^4,3"
^DIST(.404,418,40,5,0)="5^5^1"
^DIST(.404,418,40,5,2)="^^1,71"
^DIST(.404,418,40,"B",1,1)=""
^DIST(.404,418,40,"B",2,2)=""
^DIST(.404,418,40,"B",3,3)=""
^DIST(.404,418,40,"B",4,4)=""
^DIST(.404,418,40,"B",5,5)=""
^DIST(.404,418,40,"C",5,5)=""
^DIST(.404,418,40,"C","CHANGE THE 'NO' DEFAULTS THE SITES WILL SEE WHEN KIDS ASKS THES",4)=""
^DIST(.404,418,40,"C","REBUILD MENU TREE UPON COMPLETION",1)=""
^DIST(.404,418,40,"C","WANT KIDS TO INHIBIT LOGONS",2)=""
^DIST(.404,418,40,"C","WANT TO DISABLE SCHEDULED OPTIONS",3)=""
^DIST(.404,418,40,"D","XPI1",2)=""
^DIST(.404,418,40,"D","XPO1",1)=""
^DIST(.404,418,40,"D","XPZ1",3)=""
^DIST(.404,419,0)="XUDEVICE RES^3.5"
^DIST(.404,419,40,0)="^.4044I^5^5"
^DIST(.404,419,40,1,0)="1^Edit a Resource Device^1"
^DIST(.404,419,40,1,2)="^^1,25"
^DIST(.404,419,40,2,0)="2^Device Name^3"
^DIST(.404,419,40,2,1)=".01"
^DIST(.404,419,40,2,2)="3,19^30^3,6"
^DIST(.404,419,40,3,0)="5^Resource Slots^3"
^DIST(.404,419,40,3,1)="35"
^DIST(.404,419,40,3,2)="6,19^3^6,3"
^DIST(.404,419,40,4,0)="4^$I^3"
^DIST(.404,419,40,4,1)="1"
^DIST(.404,419,40,4,2)="5,19^40^5,15"
^DIST(.404,419,40,5,0)="3^Location^3"
^DIST(.404,419,40,5,1)=".02"
^DIST(.404,419,40,5,2)="4,19^35^4,9"
^DIST(.404,419,40,"B",1,1)=""
^DIST(.404,419,40,"B",2,2)=""
^DIST(.404,419,40,"B",3,5)=""
^DIST(.404,419,40,"B",4,4)=""
^DIST(.404,419,40,"B",5,3)=""
^DIST(.404,419,40,"C","$I",4)=""
^DIST(.404,419,40,"C","DEVICE NAME",2)=""
^DIST(.404,419,40,"C","EDIT A RESOURCE DEVICE",1)=""
^DIST(.404,419,40,"C","LOCATION",5)=""
^DIST(.404,419,40,"C","RESOURCE SLOTS",3)=""
^DIST(.404,420,0)="XUDEVICE SLOTS^3.54"
^DIST(.404,420,40,0)="^.4044I^3^3"
^DIST(.404,420,40,1,0)="1^Resource Name^3"
^DIST(.404,420,40,1,1)=".01"
^DIST(.404,420,40,1,2)="3,19^30^3,4"
^DIST(.404,420,40,2,0)="2^Available Slots^3"
^DIST(.404,420,40,2,1)="1"
^DIST(.404,420,40,2,2)="4,19^3^4,2"
^DIST(.404,420,40,3,0)="3^Slots Used^4"
^DIST(.404,420,40,3,2)="5,19^2^5,7"
^DIST(.404,420,40,3,30)="N I S Y=0 F I=0:0 S I=$O(^%ZISL(3.54,DA,1,I)) Q:'I  S Y=Y+1"
^DIST(.404,420,40,"B",1,1)=""
^DIST(.404,420,40,"B",2,2)=""
^DIST(.404,420,40,"B",3,3)=""
^DIST(.404,420,40,"C","AVAILABLE SLOTS",2)=""
^DIST(.404,420,40,"C","RESOURCE NAME",1)=""
^DIST(.404,420,40,"C","SLOTS USED",3)=""
^DIST(.404,421,0)="PSBO HDRBZ^53.69^"
^DIST(.404,421,40,0)="^.4044I^4^3"
^DIST(.404,421,40,1,0)="1^!M^1"
^DIST(.404,421,40,1,.1)="S Y=""Request #: ""_$P(^PSB(53.69,DA,0),U)"
^DIST(.404,421,40,1,2)="^^1,1"
^DIST(.404,421,40,3,0)="3^!M^1"
^DIST(.404,421,40,3,.1)="S Y=$TR($J("""",80),"" "",""-"")"
^DIST(.404,421,40,3,2)="^^2,1"
^DIST(.404,421,40,4,0)="2^!M^1"
^DIST(.404,421,40,4,.1)="S Y=$J($$GET1^DIQ(53.69,DA_"","",.05),40)"
^DIST(.404,421,40,4,2)="^^1,41"
^DIST(.404,421,40,"B",1,1)=""
^DIST(.404,421,40,"B",2,4)=""
^DIST(.404,421,40,"B",3,3)=""
^DIST(.404,422,0)="PSBO FTRBZ^53.69"
^DIST(.404,422,40,0)="^.4044I^3^3"
^DIST(.404,422,40,1,0)="1^Print to DEVICE^3"
^DIST(.404,422,40,1,1)=".06"
^DIST(.404,422,40,1,2)="1,59^22^1,42"
^DIST(.404,422,40,1,3)="!M"
^DIST(.404,422,40,1,3.1)="S Y=$$GET^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""E"")"
^DIST(.404,422,40,1,13)="D EN^XPAR(""USR"",""PSB PRINTER USER DEFAULT"",1,""`""_X)"
^DIST(.404,422,40,2,0)="2^Queue To Run At^3"
^DIST(.404,422,40,2,1)=".07"
^DIST(.404,422,40,2,2)="2,59^17^2,42"
^DIST(.404,422,40,2,3)="NOW"
^DIST(.404,422,40,3,0)="3^Instructions: PF1-E Submit   PF1-Q Cancel   PF1-R Refresh   <Ret> Re-Edit^2"
^DIST(.404,422,40,3,2)="3,76^1^3,1"
^DIST(.404,422,40,3,10)="S DDSBR=""1^2^1"" ; Return to field 1 block 2"
^DIST(.404,422,40,3,20)="F^^1:1"
^DIST(.404,422,40,"B",1,1)=""
^DIST(.404,422,40,"B",2,2)=""
^DIST(.404,422,40,"B",3,3)=""
^DIST(.404,422,40,"C","INSTRUCTIONS: PF1-E SUBMIT   PF1-Q CANCEL   PF1-R REFRESH   <RE",3)=""
^DIST(.404,422,40,"C","PRINT TO DEVICE",1)=""
^DIST(.404,422,40,"C","QUEUE TO RUN AT",2)=""
^DIST(.404,423,0)="PSBO BLBZ^53.69"
^DIST(.404,423,40,0)="^.4044I^10^10"
^DIST(.404,423,40,1,0)="1^Drug Name^3"
^DIST(.404,423,40,1,1)=".31"
^DIST(.404,423,40,1,2)="2,13^40^2,2"
^DIST(.404,423,40,1,4)="0"
^DIST(.404,423,40,2,0)="2^Lot #^3"
^DIST(.404,423,40,2,1)=".32"
^DIST(.404,423,40,2,2)="3,19^25^3,12"
^DIST(.404,423,40,3,0)="3^Expiration Date^3"
^DIST(.404,423,40,3,1)=".33"
^DIST(.404,423,40,3,2)="4,19^11^4,2"
^DIST(.404,423,40,4,0)="4^Manufacturer^3"
^DIST(.404,423,40,4,1)=".34"
^DIST(.404,423,40,4,2)="5,19^10^5,5"
^DIST(.404,423,40,4,4)="0"
^DIST(.404,423,40,5,0)="5^Quantity^3"
^DIST(.404,423,40,5,1)=".35"
^DIST(.404,423,40,5,2)="7,19^7^7,9"
^DIST(.404,423,40,6,0)="6^Filled By^3"
^DIST(.404,423,40,6,1)=".36"
^DIST(.404,423,40,6,2)="8,19^5^8,8"
^DIST(.404,423,40,6,4)="0"
^DIST(.404,423,40,6,12)="I '$D(X) S X=""  """
^DIST(.404,423,40,7,0)="7^Checked By^3"
^DIST(.404,423,40,7,1)=".37"
^DIST(.404,423,40,7,2)="9,19^5^9,7"
^DIST(.404,423,40,7,4)="0"
^DIST(.404,423,40,7,12)="I '$D(X) S X=""  """
^DIST(.404,423,40,8,0)="8^# Labels^3"
^DIST(.404,423,40,8,1)=".38"
^DIST(.404,423,40,8,2)="10,19^7^10,9"
^DIST(.404,423,40,8,3)="1"
^DIST(.404,423,40,9,0)="9^Patient Name^3"
^DIST(.404,423,40,9,1)=".12"
^DIST(.404,423,40,9,2)="11,19^30^11,5"
^DIST(.404,423,40,9,10)="S:X=""Y"" DDSBR=""FIELD .39^BLOCK 2^PAGE 1"""
^DIST(.404,423,40,9,11)="S DIC(0)=""AEMQAI"""
^DIST(.404,423,40,9,12)="D REFRESH^DDSUTL"
^DIST(.404,423,40,9,14)="I $$GETACT^DGPFAPI(X) S PSBPAT=X"
^DIST(.404,423,40,10,0)="10^Dosage^3"
^DIST(.404,423,40,10,1)=".39"
^DIST(.404,423,40,10,2)="12,19^22^12,11"
^DIST(.404,423,40,"B",1,1)=""
^DIST(.404,423,40,"B",2,2)=""
^DIST(.404,423,40,"B",3,3)=""
^DIST(.404,423,40,"B",4,4)=""
^DIST(.404,423,40,"B",5,5)=""
^DIST(.404,423,40,"B",6,6)=""
^DIST(.404,423,40,"B",7,7)=""
^DIST(.404,423,40,"B",8,8)=""
^DIST(.404,423,40,"B",9,9)=""
^DIST(.404,423,40,"B",10,10)=""
^DIST(.404,423,40,"C","# LABELS",8)=""
^DIST(.404,423,40,"C","CHECKED BY",7)=""
^DIST(.404,423,40,"C","DOSAGE",10)=""
^DIST(.404,423,40,"C","DRUG NAME",1)=""
^DIST(.404,423,40,"C","EXPIRATION DATE",3)=""
^DIST(.404,423,40,"C","FILLED BY",6)=""
^DIST(.404,423,40,"C","LOT #",2)=""
^DIST(.404,423,40,"C","MANUFACTURER",4)=""
^DIST(.404,423,40,"C","PATIENT NAME",9)=""
^DIST(.404,423,40,"C","QUANTITY",5)=""
^DIST(.404,424,0)="ENIT EQHD^6914^"
^DIST(.404,424,40,0)="^.4044I^7^7"
^DIST(.404,424,40,1,0)="1^Inventory Edit (IT)^1"
^DIST(.404,424,40,1,2)="^^1,30"
^DIST(.404,424,40,2,0)="2^Entry #^3"
^DIST(.404,424,40,2,1)=".01"
^DIST(.404,424,40,2,2)="2,10^10^2,1"
^DIST(.404,424,40,3,0)="3^Mfgr^3"
^DIST(.404,424,40,3,1)="1"
^DIST(.404,424,40,3,2)="3,7^60^3,1"
^DIST(.404,424,40,4,0)="4^Model^3"
^DIST(.404,424,40,4,1)="4"
^DIST(.404,424,40,4,2)="4,8^30^4,1"
^DIST(.404,424,40,5,0)="5^Serial #^3"
^DIST(.404,424,40,5,1)="5"
^DIST(.404,424,40,5,2)="4,50^30^4,40"
^DIST(.404,424,40,6,0)="6^^3"
^DIST(.404,424,40,6,1)="3"
^DIST(.404,424,40,6,2)="5,1^57"
^DIST(.404,424,40,7,0)="7^--------------------------------------------------------------------------------^1"
^DIST(.404,424,40,7,2)="^^6,1"
^DIST(.404,424,40,"B",1,1)=""
^DIST(.404,424,40,"B",2,2)=""
^DIST(.404,424,40,"B",3,3)=""
^DIST(.404,424,40,"B",4,4)=""
^DIST(.404,424,40,"B",5,5)=""
^DIST(.404,424,40,"B",6,6)=""
^DIST(.404,424,40,"B",7,7)=""
^DIST(.404,424,40,"C","---------------------------------------------------------------",7)=""
^DIST(.404,424,40,"C","ENTRY #",2)=""
^DIST(.404,424,40,"C","INVENTORY EDIT (IT)",1)=""
^DIST(.404,424,40,"C","MFGR",3)=""
^DIST(.404,424,40,"C","MODEL",4)=""
^DIST(.404,424,40,"C","SERIAL #",5)=""
^DIST(.404,425,0)="ENIT EQED^6914"
^DIST(.404,425,40,0)="^.4044I^9^9"
^DIST(.404,425,40,1,0)="1^LOCATION^3"
^DIST(.404,425,40,1,1)="24"
^DIST(.404,425,40,1,2)="2,11^20^2,1"
^DIST(.404,425,40,1,13)="D PUT^DDSVAL(6914,DA,90,""@"")"
^DIST(.404,425,40,2,0)="2^NON-SPACE FILE LOCATION^3"
^DIST(.404,425,40,2,1)="90"
^DIST(.404,425,40,2,2)="2,58^20^2,33"
^DIST(.404,425,40,3,0)="3^IT REMOTE LOCATION (Press <PF1>Z for zoom editor)^3"
^DIST(.404,425,40,3,1)="91"
^DIST(.404,425,40,3,2)="5,3^75^4,1"
^DIST(.404,425,40,4,0)="4^CMR^3"
^DIST(.404,425,40,4,1)="19"
^DIST(.404,425,40,4,2)="7,6^5^7,1"
^DIST(.404,425,40,4,14)="I X'=DDSOLD S:'X DDSERROR=1 D:'X HLP^DDSUTL(""Can't delete CMR."") Q:'X  I '$D(^ENG(6914.1,""AIT"",1,X)) S DDSERROR=1 D HLP^DDSUTL(""New CMR must have IT TRACKING = YES"")"
^DIST(.404,425,40,5,0)="5^USING SERVICE^3"
^DIST(.404,425,40,5,1)="21"
^DIST(.404,425,40,5,2)="7,28^30^7,13"
^DIST(.404,425,40,6,0)="6^UPDATE INVENTORY DATE?^2^^UPDINVDT"
^DIST(.404,425,40,6,2)="9,25^1^9,1"
^DIST(.404,425,40,6,13)="I X D PUT^DDSVAL(6914,DA,23,DT,"""",""I""),PUT^DDSVALF(""UPDINVDT"","""","""","""")"
^DIST(.404,425,40,6,20)="Y"
^DIST(.404,425,40,6,21,0)="^^1^1^3071029^"
^DIST(.404,425,40,6,21,1,0)="Enter YES if you want to update Last Inventoried value to today."
^DIST(.404,425,40,7,0)="7^LAST INVENTORIED(R)^3"
^DIST(.404,425,40,7,1)="23"
^DIST(.404,425,40,7,2)="9,50^12^9,29"
^DIST(.404,425,40,7,4)="^^^1"
^DIST(.404,425,40,8,0)="8^IT COMMENTS (wp)^3"
^DIST(.404,425,40,8,1)="92"
^DIST(.404,425,40,8,2)="11,19^1^11,1"
^DIST(.404,425,40,9,0)="9^!M^1"
^DIST(.404,425,40,9,.1)="N ENWP S ENWP=$$GET^DDSVAL(6914,.DA,92),Y=$S(ENWP]"""":$G(@ENWP@(1,0)),1:""""),Y=$S(Y]"""":""[""_$E(Y,1,56)_""]"",1:""(empty)"")"
^DIST(.404,425,40,9,2)="^^11,22"
^DIST(.404,425,40,"B",1,1)=""
^DIST(.404,425,40,"B",2,2)=""
^DIST(.404,425,40,"B",3,3)=""
^DIST(.404,425,40,"B",4,4)=""
^DIST(.404,425,40,"B",5,5)=""
^DIST(.404,425,40,"B",6,6)=""
^DIST(.404,425,40,"B",7,7)=""
^DIST(.404,425,40,"B",8,8)=""
^DIST(.404,425,40,"B",9,9)=""
^DIST(.404,425,40,"C","CMR",4)=""
^DIST(.404,425,40,"C","IT COMMENTS (WP)",8)=""
^DIST(.404,425,40,"C","IT REMOTE LOCATION (PRESS <PF1>Z FOR ZOOM EDITOR)",3)=""
^DIST(.404,425,40,"C","LAST INVENTORIED(R)",7)=""
^DIST(.404,425,40,"C","LOCATION",1)=""
^DIST(.404,425,40,"C","NON-SPACE FILE LOCATION",2)=""
^DIST(.404,425,40,"C","UPDATE INVENTORY DATE?",6)=""
^DIST(.404,425,40,"C","USING SERVICE",5)=""
^DIST(.404,425,40,"D","UPDINVDT",6)=""
^DIST(.404,"B","ACTION edit",233)=""
^DIST(.404,"B","ACTION header",232)=""
^DIST(.404,"B","BROKER OPTIONS",337)=""
^DIST(.404,"B","BROKER edit",221)=""
^DIST(.404,"B","BROKER header",220)=""
^DIST(.404,"B","CONTEXT",338)=""
^DIST(.404,"B","DAYS/TIMES edit",227)=""
^DIST(.404,"B","DAYS/TIMES header",226)=""
^DIST(.404,"B","DDGF BLOCK ADD",.404061)=""
^DIST(.404,"B","DDGF BLOCK ADD DUPLICATE",.404063)=""
^DIST(.404,"B","DDGF BLOCK ADD NEW",.404062)=""
^DIST(.404,"B","DDGF BLOCK DELETE",.404071)=""
^DIST(.404,"B","DDGF BLOCK EDIT 1",.403011)=""
^DIST(.404,"B","DDGF BLOCK EDIT 2",.403012)=""
^DIST(.404,"B","DDGF BLOCK EDIT OTHER",.403013)=""
^DIST(.404,"B","DDGF FIELD ADD",.404011)=""
^DIST(.404,"B","DDGF FIELD CAPTION ONLY",.404021)=""
^DIST(.404,"B","DDGF FIELD COMPUTED",.404051)=""
^DIST(.404,"B","DDGF FIELD COMPUTED OTHER",.404052)=""
^DIST(.404,"B","DDGF FIELD DD",.404031)=""
^DIST(.404,"B","DDGF FIELD DD OTHER MULTIPLE",.404033)=""
^DIST(.404,"B","DDGF FIELD DD OTHER SINGLE",.404032)=""
^DIST(.404,"B","DDGF FIELD DD OTHER WP",.404034)=""
^DIST(.404,"B","DDGF FIELD FORM ONLY",.404041)=""
^DIST(.404,"B","DDGF FIELD FORM ONLY PARAMS",.404042)=""
^DIST(.404,"B","DDGF FORM EDIT",.403051)=""
^DIST(.404,"B","DDGF HEADER BLOCK EDIT",.403061)=""
^DIST(.404,"B","DDGF HEADER BLOCK SELECT",.404081)=""
^DIST(.404,"B","DDGF PAGE ADD",.403021)=""
^DIST(.404,"B","DDGF PAGE ADD ARE YOU SURE",.403022)=""
^DIST(.404,"B","DDGF PAGE EDIT",.403031)=""
^DIST(.404,"B","DDGF PAGE SELECT",.403041)=""
^DIST(.404,"B","DDMP FIELD SELECTION",.4612)=""
^DIST(.404,"B","DDMP FILE CHANGE",.4613)=""
^DIST(.404,"B","DDMP REQUIRED LENGTH",.4614)=""
^DIST(.404,"B","DDMP SPECS 1",.4611)=""
^DIST(.404,"B","DDXP FF BLK1",.441)=""
^DIST(.404,"B","DDXP FF BLK2",.442)=""
^DIST(.404,"B","DDXP FF BLK3",.443)=""
^DIST(.404,"B","DEVICE header",228)=""
^DIST(.404,"B","DEVICES edit",229)=""
^DIST(.404,"B","DIBTED",.400011)=""
^DIST(.404,"B","DIBTED2",.400012)=""
^DIST(.404,"B","DIC Edit",240)=""
^DIST(.404,"B","DIC Header",241)=""
^DIST(.404,"B","DICATT",.00101)=""
^DIST(.404,"B","DICATT MUL",.00116)=""
^DIST(.404,"B","DICATT SCREEN",.00118)=""
^DIST(.404,"B","DICATT1",.00102)=""
^DIST(.404,"B","DICATT2",.00103)=""
^DIST(.404,"B","DICATT3",.00109)=""
^DIST(.404,"B","DICATT4",.00104)=""
^DIST(.404,"B","DICATT5",.00105)=""
^DIST(.404,"B","DICATT6",.00106)=""
^DIST(.404,"B","DICATT7",.00107)=""
^DIST(.404,"B","DICATT8",.00108)=""
^DIST(.404,"B","DICATT9",.00113)=""
^DIST(.404,"B","DICATTM",.00112)=""
^DIST(.404,"B","DICATTMUL",.00117)=""
^DIST(.404,"B","DICATTS",.00114)=""
^DIST(.404,"B","DICATTVP",.00115)=""
^DIST(.404,"B","DICATTW1",.0011)=""
^DIST(.404,"B","DICATTW2",.00111)=""
^DIST(.404,"B","DIEDIT",.402011)=""
^DIST(.404,"B","DIETED",.401011)=""
^DIST(.404,"B","DIETED2",.401012)=""
^DIST(.404,"B","DIKC EDIT COMPUTED CRV",.110108)=""
^DIST(.404,"B","DIKC EDIT CRV",.110104)=""
^DIST(.404,"B","DIKC EDIT CRV HDR",.110105)=""
^DIST(.404,"B","DIKC EDIT FIELD CRV",.110107)=""
^DIST(.404,"B","DIKC EDIT HDR 1",.110102)=""
^DIST(.404,"B","DIKC EDIT HDR 2",.110106)=""
^DIST(.404,"B","DIKC EDIT LOGIC",.110103)=""
^DIST(.404,"B","DIKC EDIT MAIN",.110101)=""
^DIST(.404,"B","DIKC EDIT UI CRV",.11023)=""
^DIST(.404,"B","DIKC EDIT UI CRV HDR",.11024)=""
^DIST(.404,"B","DIKC EDIT UI FIELD CRV",.11025)=""
^DIST(.404,"B","DIKC EDIT UI HDR",.11022)=""
^DIST(.404,"B","DIKC EDIT UI MAIN",.11021)=""
^DIST(.404,"B","DIKK EDIT FIELD",.310104)=""
^DIST(.404,"B","DIKK EDIT FIELD HDR",.310103)=""
^DIST(.404,"B","DIKK EDIT HDR",.310101)=""
^DIST(.404,"B","DIKK EDIT MAIN",.310102)=""
^DIST(.404,"B","DIKK EDIT UI",.310108)=""
^DIST(.404,"B","DIKK EDIT UI FIELD COLUMN HDR",.310109)=""
^DIST(.404,"B","DIKK EDIT UI FIELD CRV",.310111)=""
^DIST(.404,"B","DIKK EDIT UI FIELD REP",.31011)=""
^DIST(.404,"B","DIKK EDIT UI HDR",.310107)=""
^DIST(.404,"B","DIKK EDIT UI IDENTIFIER",.310105)=""
^DIST(.404,"B","DIKK EDIT UNIQUENESS INDEX",.310106)=""
^DIST(.404,"B","DIPTED",.10011)=""
^DIST(.404,"B","DIPTED2",.10012)=""
^DIST(.404,"B","EDIT INSTITUTION",360)=""
^DIST(.404,"B","EDIT edit block",206)=""
^DIST(.404,"B","EDIT header",205)=""
^DIST(.404,"B","ENIT EQED",425)=""
^DIST(.404,"B","ENIT EQHD",424)=""
^DIST(.404,"B","ENPRAE",195)=""
^DIST(.404,"B","ENPRBASE",194)=""
^DIST(.404,"B","ENPRCH",197)=""
^DIST(.404,"B","ENPRCO",196)=""
^DIST(.404,"B","ENPRHD",192)=""
^DIST(.404,"B","ENPRMS1",198)=""
^DIST(.404,"B","ENPRMS2",193)=""
^DIST(.404,"B","ENPRNHCU",190)=""
^DIST(.404,"B","ENPRNHCUCONV",191)=""
^DIST(.404,"B","EXECUTABLES header",211)=""
^DIST(.404,"B","Executable 1",201)=""
^DIST(.404,"B","HL SITE PARAM DATA",278)=""
^DIST(.404,"B","HL SITE PARAM HEAD",277)=""
^DIST(.404,"B","HL SITE PARAM HEADER",274)=""
^DIST(.404,"B","HL SITE PARAM PAGE 2",329)=""
^DIST(.404,"B","HL SITE PARAM UPDATE",275)=""
^DIST(.404,"B","HL SITE PARAM VIEWS",328)=""
^DIST(.404,"B","HL SUBSCRIBER2",318)=""
^DIST(.404,"B","HL VIEW MULTIPLE",327)=""
^DIST(.404,"B","HL VIEW POPUP",326)=""
^DIST(.404,"B","HL7 APP BLK1",306)=""
^DIST(.404,"B","HL7 APP BLK2",319)=""
^DIST(.404,"B","HL7 APP BLK3",320)=""
^DIST(.404,"B","HL7 EVENT DRV",315)=""
^DIST(.404,"B","HL7 EVENT DRV ITEM",317)=""
^DIST(.404,"B","HL7 INTERFACE BLK1",314)=""
^DIST(.404,"B","HL7 INTERFACE HDR1",313)=""
^DIST(.404,"B","HL7 LL BLK1",308)=""
^DIST(.404,"B","HL7 LL HEADER1",307)=""
^DIST(.404,"B","HL7 LLP HLLP",309)=""
^DIST(.404,"B","HL7 LLP MAIL",311)=""
^DIST(.404,"B","HL7 LLP TCP",310)=""
^DIST(.404,"B","HL7 LLP X3.28",312)=""
^DIST(.404,"B","HL7 SUBSCRIBER",316)=""
^DIST(.404,"B","INQUIRE edit",213)=""
^DIST(.404,"B","INQUIRE header",212)=""
^DIST(.404,"B","KMPD PARAMETERS HDR",367)=""
^DIST(.404,"B","KMPD PARAMETERS PAGE 1",368)=""
^DIST(.404,"B","LREPI1",181)=""
^DIST(.404,"B","LREPI10",188)=""
^DIST(.404,"B","LREPI11",189)=""
^DIST(.404,"B","LREPI12",244)=""
^DIST(.404,"B","LREPI13",248)=""
^DIST(.404,"B","LREPI15",383)=""
^DIST(.404,"B","LREPI2",179)=""
^DIST(.404,"B","LREPI3",180)=""
^DIST(.404,"B","LREPI4",182)=""
^DIST(.404,"B","LREPI5",183)=""
^DIST(.404,"B","LREPI6",184)=""
^DIST(.404,"B","LREPI7",185)=""
^DIST(.404,"B","LREPI8",186)=""
^DIST(.404,"B","LREPI9",187)=""
^DIST(.404,"B","LREPI91",373)=""
^DIST(.404,"B","LREPI910",379)=""
^DIST(.404,"B","LREPI911",380)=""
^DIST(.404,"B","LREPI912",381)=""
^DIST(.404,"B","LREPI913",382)=""
^DIST(.404,"B","LREPI92",371)=""
^DIST(.404,"B","LREPI93",372)=""
^DIST(.404,"B","LREPI94",374)=""
^DIST(.404,"B","LREPI95",369)=""
^DIST(.404,"B","LREPI96",375)=""
^DIST(.404,"B","LREPI97",376)=""
^DIST(.404,"B","LREPI98",377)=""
^DIST(.404,"B","LREPI99",378)=""
^DIST(.404,"B","LREPI9HEAD",370)=""
^DIST(.404,"B","LREPIHEAD",178)=""
^DIST(.404,"B","LRPROT1",246)=""
^DIST(.404,"B","LRPROT2",247)=""
^DIST(.404,"B","LRPROTHEAD",245)=""
^DIST(.404,"B","MAIN",199)=""
^DIST(.404,"B","MAIN TITLE",204)=""
^DIST(.404,"B","MD FILES",413)=""
^DIST(.404,"B","MD HDR",411)=""
^DIST(.404,"B","MD PROCEDURE UPDATE",414)=""
^DIST(.404,"B","MD SETTINGS",412)=""
^DIST(.404,"B","Menu Multiple",202)=""
^DIST(.404,"B","NURA AMIS POSITION",84)=""
^DIST(.404,"B","NURA OTHER SC",83)=""
^DIST(.404,"B","NURA SERVICE POS ENTER/EDIT",82)=""
^DIST(.404,"B","PRCHQ1",108)=""
^DIST(.404,"B","PRCHQ10",116)=""
^DIST(.404,"B","PRCHQ11",117)=""
^DIST(.404,"B","PRCHQ13",118)=""
^DIST(.404,"B","PRCHQ20",119)=""
^DIST(.404,"B","PRCHQ21",120)=""
^DIST(.404,"B","PRCHQ24",121)=""
^DIST(.404,"B","PRCHQ25",122)=""
^DIST(.404,"B","PRCHQ3",110)=""
^DIST(.404,"B","PRCHQ30",123)=""
^DIST(.404,"B","PRCHQ31",124)=""
^DIST(.404,"B","PRCHQ32",125)=""
^DIST(.404,"B","PRCHQ33",126)=""
^DIST(.404,"B","PRCHQ34",127)=""
^DIST(.404,"B","PRCHQ35",128)=""
^DIST(.404,"B","PRCHQ4",111)=""
^DIST(.404,"B","PRCHQ40",129)=""
^DIST(.404,"B","PRCHQ41",130)=""
^DIST(.404,"B","PRCHQ42",131)=""
^DIST(.404,"B","PRCHQ43",132)=""
^DIST(.404,"B","PRCHQ5",112)=""
^DIST(.404,"B","PRCHQ50",133)=""
^DIST(.404,"B","PRCHQ51",134)=""
^DIST(.404,"B","PRCHQ52",135)=""
^DIST(.404,"B","PRCHQ6",113)=""
^DIST(.404,"B","PRCHQ7",114)=""
^DIST(.404,"B","PRCHQ8",115)=""
^DIST(.404,"B","PRCHQH1",107)=""
^DIST(.404,"B","PRCHQP2",109)=""
^DIST(.404,"B","PRINT edit",208)=""
^DIST(.404,"B","PRINT header",207)=""
^DIST(.404,"B","PRINT2 edit",210)=""
^DIST(.404,"B","PRINT2 header",209)=""
^DIST(.404,"B","PRINT3 edit 1",236)=""
^DIST(.404,"B","PRINT3 edit 2",234)=""
^DIST(.404,"B","PRINT3 header 1",235)=""
^DIST(.404,"B","PRINT3 header 2",237)=""
^DIST(.404,"B","PRINT3 header 3",238)=""
^DIST(.404,"B","PRSA ED REQ",70)=""
^DIST(.404,"B","PRSA EMP HDR",69)=""
^DIST(.404,"B","PRSA FEE HDR",80)=""
^DIST(.404,"B","PRSA FEE POST",81)=""
^DIST(.404,"B","PRSA LD COST",364)=""
^DIST(.404,"B","PRSA LD EMP",362)=""
^DIST(.404,"B","PRSA LD POST",363)=""
^DIST(.404,"B","PRSA LV REQ",68)=""
^DIST(.404,"B","PRSA OT REQ1",64)=""
^DIST(.404,"B","PRSA PM HDR",73)=""
^DIST(.404,"B","PRSA PM POST",74)=""
^DIST(.404,"B","PRSA TD 1",62)=""
^DIST(.404,"B","PRSA TD 2",75)=""
^DIST(.404,"B","PRSA TD 3",76)=""
^DIST(.404,"B","PRSA TE EDIT",79)=""
^DIST(.404,"B","PRSA TL DISP",65)=""
^DIST(.404,"B","PRSA TL ED1",66)=""
^DIST(.404,"B","PRSA TL ED2",67)=""
^DIST(.404,"B","PRSA TL ED3",78)=""
^DIST(.404,"B","PRSA TP EMP",77)=""
^DIST(.404,"B","PRSA TP POST",63)=""
^DIST(.404,"B","PRSA VC HDR",71)=""
^DIST(.404,"B","PRSA VC POST",72)=""
^DIST(.404,"B","PRSP ESR POST SEGMENTS",415)=""
^DIST(.404,"B","PRSP EXT ABSENCE",417)=""
^DIST(.404,"B","PRSP PTP EMP",416)=""
^DIST(.404,"B","PSB BCBU EDIT SCREEN",407)=""
^DIST(.404,"B","PSB BCBU HEADER",406)=""
^DIST(.404,"B","PSB MED LOG EDIT",295)=""
^DIST(.404,"B","PSB MED LOG EDIT DD",297)=""
^DIST(.404,"B","PSB MED LOG EDIT DD HDR",296)=""
^DIST(.404,"B","PSB MED LOG EDIT DD IV",345)=""
^DIST(.404,"B","PSB MED LOG EDIT IV",343)=""
^DIST(.404,"B","PSB MED LOG EDIT IV HDR",344)=""
^DIST(.404,"B","PSB MISSING DOSE FOLLOWUP",289)=""
^DIST(.404,"B","PSB MISSING DOSE HDR",285)=""
^DIST(.404,"B","PSB MISSING DOSE REQUEST",287)=""
^DIST(.404,"B","PSB NEW IV ENTRY",301)=""
^DIST(.404,"B","PSB NEW IV ENTRY ADD",303)=""
^DIST(.404,"B","PSB NEW IV ENTRY ADD HDR",302)=""
^DIST(.404,"B","PSB NEW UD ENTRY",298)=""
^DIST(.404,"B","PSB NEW UD ENTRY DD",300)=""
^DIST(.404,"B","PSB NEW UD ENTRY DD HDR",299)=""
^DIST(.404,"B","PSB PRN EFFECTIVENESS",294)=""
^DIST(.404,"B","PSBO BL",290)=""
^DIST(.404,"B","PSBO BLBZ",423)=""
^DIST(.404,"B","PSBO DATE DL",322)=""
^DIST(.404,"B","PSBO DATES",292)=""
^DIST(.404,"B","PSBO DL",280)=""
^DIST(.404,"B","PSBO FTR",281)=""
^DIST(.404,"B","PSBO FTRBZ",422)=""
^DIST(.404,"B","PSBO HDR",279)=""
^DIST(.404,"B","PSBO HDRBZ",421)=""
^DIST(.404,"B","PSBO MD",291)=""
^DIST(.404,"B","PSBO MH",286)=""
^DIST(.404,"B","PSBO ML",304)=""
^DIST(.404,"B","PSBO MM",283)=""
^DIST(.404,"B","PSBO MV",288)=""
^DIST(.404,"B","PSBO PE",284)=""
^DIST(.404,"B","PSBO PT OR WARD",293)=""
^DIST(.404,"B","PSBO WA",282)=""
^DIST(.404,"B","PSBO XDATE XA",410)=""
^DIST(.404,"B","PSBO XFTR",409)=""
^DIST(.404,"B","PSBO XHDR",408)=""
^DIST(.404,"B","QUEUING edit",231)=""
^DIST(.404,"B","QUEUING header",230)=""
^DIST(.404,"B","ROUTINE edit",215)=""
^DIST(.404,"B","ROUTINE header",214)=""
^DIST(.404,"B","Restrictions",200)=""
^DIST(.404,"B","SCREEN edit",219)=""
^DIST(.404,"B","SCREEN header",218)=""
^DIST(.404,"B","SELECT INSTITUTION",361)=""
^DIST(.404,"B","SELECTION edit",239)=""
^DIST(.404,"B","SERVER edit",217)=""
^DIST(.404,"B","SERVER header",216)=""
^DIST(.404,"B","SPNE HEAD",176)=""
^DIST(.404,"B","SPNE SYNONYM BLOCK",177)=""
^DIST(.404,"B","SPNFBLK1",93)=""
^DIST(.404,"B","SPNFBLK2",94)=""
^DIST(.404,"B","SPNFBLK3",98)=""
^DIST(.404,"B","SPNFBLKA",95)=""
^DIST(.404,"B","SPNFBLKB",96)=""
^DIST(.404,"B","SPNFBLKC",97)=""
^DIST(.404,"B","SPNFBLKD",99)=""
^DIST(.404,"B","SPNLP ASIA MES BLK1",331)=""
^DIST(.404,"B","SPNLP ASIA MES BLK2",333)=""
^DIST(.404,"B","SPNLP ASIA MES HD1",334)=""
^DIST(.404,"B","SPNLP ASIA MES HD2",330)=""
^DIST(.404,"B","SPNLP ASIA MES HD3",332)=""
^DIST(.404,"B","SPNLP CHART BLK1",163)=""
^DIST(.404,"B","SPNLP CHART BLK2",166)=""
^DIST(.404,"B","SPNLP CHART BLK3",168)=""
^DIST(.404,"B","SPNLP CHART HD1",162)=""
^DIST(.404,"B","SPNLP CHART HD2",164)=""
^DIST(.404,"B","SPNLP CHART HD3",165)=""
^DIST(.404,"B","SPNLP CHART HD4",167)=""
^DIST(.404,"B","SPNLP DIENER BLK3",351)=""
^DIST(.404,"B","SPNLP DIENER HD1",349)=""
^DIST(.404,"B","SPNLP DIENER HD4",350)=""
^DIST(.404,"B","SPNLP DUSOI BLK3",354)=""
^DIST(.404,"B","SPNLP DUSOI HD1",352)=""
^DIST(.404,"B","SPNLP DUSOI HD4",353)=""
^DIST(.404,"B","SPNLP FAM BLK2",348)=""
^DIST(.404,"B","SPNLP FAM HD1",346)=""
^DIST(.404,"B","SPNLP FAM HD3",347)=""
^DIST(.404,"B","SPNLP FIM BLK1",153)=""
^DIST(.404,"B","SPNLP FIM BLK2",155)=""
^DIST(.404,"B","SPNLP FIM BLK3",156)=""
^DIST(.404,"B","SPNLP FIM BLK5",160)=""
^DIST(.404,"B","SPNLP FIM HD1",151)=""
^DIST(.404,"B","SPNLP FIM HD2",152)=""
^DIST(.404,"B","SPNLP FIM HD3",154)=""
^DIST(.404,"B","SPNLP FIM HD4",157)=""
^DIST(.404,"B","SPNLP FIM HD5",159)=""
^DIST(.404,"B","SPNLP FIN BLK 4",158)=""
^DIST(.404,"B","SPNLP FUM MES BLK2",148)=""
^DIST(.404,"B","SPNLP FUN MES BLK1",146)=""
^DIST(.404,"B","SPNLP FUN MES BLK3",150)=""
^DIST(.404,"B","SPNLP FUN MES HD1",161)=""
^DIST(.404,"B","SPNLP FUN MES HD2",145)=""
^DIST(.404,"B","SPNLP FUN MES HD3",147)=""
^DIST(.404,"B","SPNLP FUN MES HD4",149)=""
^DIST(.404,"B","SPNLP MS BLK2",172)=""
^DIST(.404,"B","SPNLP MS BLK3",174)=""
^DIST(.404,"B","SPNLP MS FORM BLK1",169)=""
^DIST(.404,"B","SPNLP MS HD1",170)=""
^DIST(.404,"B","SPNLP MS HD2",171)=""
^DIST(.404,"B","SPNLP MS HD3",173)=""
^DIST(.404,"B","SPNLPBLK1",89)=""
^DIST(.404,"B","SPNLPBLK2",90)=""
^DIST(.404,"B","SPNLPBLK3",92)=""
^DIST(.404,"B","SPNLPBLK4",136)=""
^DIST(.404,"B","SPNLPBLK5",137)=""
^DIST(.404,"B","SPNLPBLK6",138)=""
^DIST(.404,"B","SPNLPBLK7",139)=""
^DIST(.404,"B","SPNLPBLK8",339)=""
^DIST(.404,"B","SPNLPFM2-1",100)=""
^DIST(.404,"B","SPNLPFM2-2",142)=""
^DIST(.404,"B","SPNLPFM2-3",144)=""
^DIST(.404,"B","SPNLPFM2-4",175)=""
^DIST(.404,"B","SPNLPFM2-5",340)=""
^DIST(.404,"B","SPNLPHDR CM 1",140)=""
^DIST(.404,"B","SPNLPHDR CM 2",141)=""
^DIST(.404,"B","SPNLPHDR CM 3",143)=""
^DIST(.404,"B","SPNLPHDR1",88)=""
^DIST(.404,"B","SPNLPHDR2",91)=""
^DIST(.404,"B","SUITE header",224)=""
^DIST(.404,"B","SUITE menu",225)=""
^DIST(.404,"B","Termination",403)=""
^DIST(.404,"B","WINDOW edit",223)=""
^DIST(.404,"B","WINDOW header",222)=""
^DIST(.404,"B","WV NOTIF-EDITBLK-1",252)=""
^DIST(.404,"B","WV NOTIF-EDITBLK-2",255)=""
^DIST(.404,"B","WV NOTIF-HEADER-1",251)=""
^DIST(.404,"B","WV NOTIFPURPOSE-EDITBLK-1",256)=""
^DIST(.404,"B","WV PATIENT-EDITBLK-1",253)=""
^DIST(.404,"B","WV PATIENT-HEADER-2",266)=""
^DIST(.404,"B","WV PROC-DISPLAY-1",262)=""
^DIST(.404,"B","WV PROC-EDITBLK-1",250)=""
^DIST(.404,"B","WV PROC-EDITBLK-2-COLP",254)=""
^DIST(.404,"B","WV PROC-EDITBLK-LAB",265)=""
^DIST(.404,"B","WV PROC-HEADER-1",267)=""
^DIST(.404,"B","WV REFUSAL-DISPLAY-1",263)=""
^DIST(.404,"B","WV REFUSAL-EDIT-1",264)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-1",257)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-2",258)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-2.1",323)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-2.2",324)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-2.3",325)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-4",260)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-5",261)=""
^DIST(.404,"B","WV SITE PARAMS-EDITBLK-6",305)=""
^DIST(.404,"B","WV SITE PATAMS-EDITBLK-3",259)=""
^DIST(.404,"B","XDR RESFILE DATA",269)=""
^DIST(.404,"B","XDR RESFILE HEADER",268)=""
^DIST(.404,"B","XDR RESFILE RPT-BLK1",273)=""
^DIST(.404,"B","XDR RESFILE SUB-BLK1",270)=""
^DIST(.404,"B","XDR RESFILE SUB-BLK2",271)=""
^DIST(.404,"B","XDR RESFILE SUB-BLK3",272)=""
^DIST(.404,"B","XPD EDIT BUILD HDR",1)=""
^DIST(.404,"B","XPD EDIT BUILD1",2)=""
^DIST(.404,"B","XPD EDIT BUILD10",12)=""
^DIST(.404,"B","XPD EDIT BUILD10A",25)=""
^DIST(.404,"B","XPD EDIT BUILD11",21)=""
^DIST(.404,"B","XPD EDIT BUILD12",22)=""
^DIST(.404,"B","XPD EDIT BUILD2",3)=""
^DIST(.404,"B","XPD EDIT BUILD3",4)=""
^DIST(.404,"B","XPD EDIT BUILD30",13)=""
^DIST(.404,"B","XPD EDIT BUILD31",9)=""
^DIST(.404,"B","XPD EDIT BUILD4",5)=""
^DIST(.404,"B","XPD EDIT BUILD40",14)=""
^DIST(.404,"B","XPD EDIT BUILD41",15)=""
^DIST(.404,"B","XPD EDIT BUILD42",16)=""
^DIST(.404,"B","XPD EDIT BUILD43",17)=""
^DIST(.404,"B","XPD EDIT BUILD44",18)=""
^DIST(.404,"B","XPD EDIT BUILD45",19)=""
^DIST(.404,"B","XPD EDIT BUILD46",20)=""
^DIST(.404,"B","XPD EDIT BUILD5",6)=""
^DIST(.404,"B","XPD EDIT BUILD52",101)=""
^DIST(.404,"B","XPD EDIT BUILD5D",418)=""
^DIST(.404,"B","XPD EDIT BUILD6",7)=""
^DIST(.404,"B","XPD EDIT BUILD60",23)=""
^DIST(.404,"B","XPD EDIT BUILD7",8)=""
^DIST(.404,"B","XPD EDIT BUILD8",10)=""
^DIST(.404,"B","XPD EDIT BUILD9",11)=""
^DIST(.404,"B","XPD EDIT BUILD9A",24)=""
^DIST(.404,"B","XPD EDIT GP1",105)=""
^DIST(.404,"B","XPD EDIT GP3",106)=""
^DIST(.404,"B","XPD EDIT HDR",103)=""
^DIST(.404,"B","XPD EDIT MP1",102)=""
^DIST(.404,"B","XPD EDIT MP2",104)=""
^DIST(.404,"B","XPD EDIT MP3",276)=""
^DIST(.404,"B","XQEDTOPT DISP1",203)=""
^DIST(.404,"B","XU OPTION SCHEDULE",43)=""
^DIST(.404,"B","XU-CLINICAL TRAINEE 1",357)=""
^DIST(.404,"B","XU-CLINICAL TRAINEE HDR",356)=""
^DIST(.404,"B","XU-INST-E1",242)=""
^DIST(.404,"B","XU-INST-E2",243)=""
^DIST(.404,"B","XU-PERSON CLASS 1",85)=""
^DIST(.404,"B","XU-PERSON CLASS 2",86)=""
^DIST(.404,"B","XUDEVICE CHAN",41)=""
^DIST(.404,"B","XUDEVICE CHAN HDR",42)=""
^DIST(.404,"B","XUDEVICE HFS",37)=""
^DIST(.404,"B","XUDEVICE HFS HDR",40)=""
^DIST(.404,"B","XUDEVICE LPD",365)=""
^DIST(.404,"B","XUDEVICE MT",33)=""
^DIST(.404,"B","XUDEVICE MT HDR",32)=""
^DIST(.404,"B","XUDEVICE RES",419)=""
^DIST(.404,"B","XUDEVICE SDP",34)=""
^DIST(.404,"B","XUDEVICE SDP HDR",38)=""
^DIST(.404,"B","XUDEVICE SLOTS",420)=""
^DIST(.404,"B","XUDEVICE SPL",35)=""
^DIST(.404,"B","XUDEVICE SPL HDR",39)=""
^DIST(.404,"B","XUDEVICE SPL2",36)=""
^DIST(.404,"B","XUDEVICE TRM",366)=""
^DIST(.404,"B","XUEDIT CHARACTERISTICS",27)=""
^DIST(.404,"B","XUEDIT CHARACTERISTICS HDR",26)=""
^DIST(.404,"B","XUEXISTING USER 0",47)=""
^DIST(.404,"B","XUEXISTING USER 1",28)=""
^DIST(.404,"B","XUEXISTING USER 2",29)=""
^DIST(.404,"B","XUEXISTING USER 3",30)=""
^DIST(.404,"B","XUEXISTING USER 4",31)=""
^DIST(.404,"B","XUEXISTING USER 5",50)=""
^DIST(.404,"B","XUEXISTING USER CPRS",341)=""
^DIST(.404,"B","XUEXISTING USER CPRS TAB",342)=""
^DIST(.404,"B","XUEXISTING USER NAME COMPONENT",321)=""
^DIST(.404,"B","XUEXISTING USER TRAINEE",358)=""
^DIST(.404,"B","XUNEW USER",87)=""
^DIST(.404,"B","XUOPTION SCHEDULE 2",48)=""
^DIST(.404,"B","XUOPTION SCHEDULE 3",49)=""
^DIST(.404,"B","XUSERDEACT",44)=""
^DIST(.404,"B","XUSERDEACT HDR",46)=""
^DIST(.404,"B","XUSITEIP 1",404)=""
^DIST(.404,"B","XUSITEIP 1.1",405)=""
^DIST(.404,"B","XUSITEPARM 0",51)=""
^DIST(.404,"B","XUSITEPARM 1",52)=""
^DIST(.404,"B","XUSITEPARM 2",54)=""
^DIST(.404,"B","XUSITEPARM 2.1",55)=""
^DIST(.404,"B","XUSITEPARM 2.2",56)=""
^DIST(.404,"B","XUSITEPARM 3",53)=""
^DIST(.404,"B","XUSITEPARM 4",57)=""
^DIST(.404,"B","XUSITEPARM 4.1",58)=""
^DIST(.404,"B","XUSITEPARM 4.2",59)=""
^DIST(.404,"B","XUSITEPARM 4.3",61)=""
^DIST(.404,"B","XUSITEPARM 4.4",60)=""
^DIST(.404,"B","XUSITEPARM 5",355)=""
^DIST(.404,"B","XUSSPKI 1",359)=""
^DIST(.404,"B","XUTM UCI ASSOC1",45)=""
^DIST(.404,"B","XUTMKE1",249)=""
^DIST(.404,"B","choice",335)=""
^DIST(.404,"B","choice2",336)=""
^DIST(.44,0)="FOREIGN FORMAT^.44I^.999^11"
^DIST(.44,.001,0)="1-2-3 DATA PARSE^^^^^1^^240^1^^1^1"
^DIST(.44,.001,1)="W $$DP123^DDXPLIB(DDXPXTNO)"
^DIST(.44,.001,3,0)="^^4^4^2921106^"
^DIST(.44,.001,3,1,0)="This format produces fixed length records designed for import into Lotus"
^DIST(.44,.001,3,2,0)="1-2-3.  The user is prompted for data types.  A special header is created"
^DIST(.44,.001,3,3,0)="that is used by 1-2-3's Data Parser.  The maximum record length is 240"
^DIST(.44,.001,3,4,0)="characters."
^DIST(.44,.001,4,0)="^^10^10^2921120^"
^DIST(.44,.001,4,1,0)="To import data into 1-2-3 from a file created with this format: 1) Use"
^DIST(.44,.001,4,2,0)="File->Import->Text and select the file.  2) The first line of the file"
^DIST(.44,.001,4,3,0)="contains the information for the data parser.  You must change this from a"
^DIST(.44,.001,4,4,0)="label, preceded by ', to a format, preceded by ||.  Edit the line to make"
^DIST(.44,.001,4,5,0)="this change.  3) Use Data->Parse.  The Input Column range should include"
^DIST(.44,.001,4,6,0)="all the imported data, including the format line.  Select a desired Output"
^DIST(.44,.001,4,7,0)="Range. Finally, select Go to format the data in the output range. Be sure"
^DIST(.44,.001,4,8,0)="your columns are wide enough to hold the data.  NOTE: dates will be"
^DIST(.44,.001,4,9,0)="changed into numbers, 1-2-3's internal representation of a date. You can"
^DIST(.44,.001,4,10,0)="make the date readable by using Range->Format->Date."
^DIST(.44,.001,5,0)="^.441^1^1"
^DIST(.44,.001,5,1,0)="Lotus 1-2-3 Data Parse"
^DIST(.44,.001,5,"B","Lotus 1-2-3 Data Parse",1)=""
^DIST(.44,.001,6)="S Y=$E(X,6,7)_""-""_$P(""JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"",U,+$E(X,4,5))_""-""_$E(X,2,3) S:$E(X)'=2 Y=""NOT 1900s"""
^DIST(.44,.002,0)="1-2-3 IMPORT NUMBERS^032^^^^^^0^1^1^1^1^0"
^DIST(.44,.002,3,0)="^^9^9^2930107^"
^DIST(.44,.002,3,1,0)="This format exports data for use with LOTUS 1-2-3 spreadsheets."
^DIST(.44,.002,3,2,0)="Non-numeric fields will be in quotes.  Each field will be separated by"
^DIST(.44,.002,3,3,0)="a space.  Null-valued numeric fields in the primary file will be converted"
^DIST(.44,.002,3,4,0)="to a zero ('0'). WARNING: If the value of a field that is not in the"
^DIST(.44,.002,3,5,0)="primary file or that is not defined in the VA FILEMAN data dictionary as"
^DIST(.44,.002,3,6,0)="numeric is null or zero, nothing is output. That is, a zero (0) is NOT"
^DIST(.44,.002,3,7,0)="output.  This will destroy the positional results of the data and will"
^DIST(.44,.002,3,8,0)="install data in incorrect columns!!  If this situation is possible, do NOT"
^DIST(.44,.002,3,9,0)="use this format; consider the 123 DATA PARSE format."
^DIST(.44,.002,4,0)="^^4^4^2930107^"
^DIST(.44,.002,4,1,0)="To import into 1-2-3, choose FILE->IMPORT->NUMBERS."
^DIST(.44,.002,4,2,0)="Field values will automatically be placed into columns."
^DIST(.44,.002,4,3,0)="Lotus 1-2-3 will automatically recognize your file for import if it has an"
^DIST(.44,.002,4,4,0)="extension of '.PRN'."
^DIST(.44,.002,5,0)="^.441^1^1"
^DIST(.44,.002,5,1,0)="LOTUS 123 (NUMBERS)"
^DIST(.44,.002,5,"B","LOTUS 123 (NUMBERS)",1)=""
^DIST(.44,.003,0)="EXCEL (COMMA)^,^^^^^^1000^1^1^1^1"
^DIST(.44,.003,3,0)="^^6^6^2921120^"
^DIST(.44,.003,3,1,0)="Use this format to export data to the EXCEL spreadsheet running"
^DIST(.44,.003,3,2,0)="on the Macintosh or under Windows.  The exported data will have a comma"
^DIST(.44,.003,3,3,0)="between each field's value.  The user will be asked to specify the data"
^DIST(.44,.003,3,4,0)="type of each exported field.  Those fields that are not numeric will be"
^DIST(.44,.003,3,5,0)="surrounded by quotes ("").  Commas are allowed in the non-numeric data, but"
^DIST(.44,.003,3,6,0)="quotes ("") are not."
^DIST(.44,.003,4,0)="^^3^3^2921120^^^^"
^DIST(.44,.003,4,1,0)="Select the Open command on Excel's File menu.  Press the TEXT button and"
^DIST(.44,.003,4,2,0)="make sure that the Column Delimiter is set to ""comma.""  Select the file."
^DIST(.44,.003,4,3,0)="Each field's values will be imported into columns."
^DIST(.44,.003,5,0)="^.441^2^2"
^DIST(.44,.003,5,1,0)="COMMA DELIMITED"
^DIST(.44,.003,5,1,1,0)="^^2^2^2921015^"
^DIST(.44,.003,5,1,1,1,0)="Exported data is delimited by commas.  Non-numeric data is surrounded by"
^DIST(.44,.003,5,1,1,2,0)="quotes."
^DIST(.44,.003,5,2,0)="CSV"
^DIST(.44,.003,5,2,1,0)="^^1^1^2921120^^"
^DIST(.44,.003,5,2,1,1,0)="Comma Separated Values."
^DIST(.44,.003,5,"B","COMMA DELIMITED",1)=""
^DIST(.44,.003,5,"B","CSV",2)=""
^DIST(.44,.004,0)="EXCEL (DATA PARSE)^^^^^1^^255^1^^^1"
^DIST(.44,.004,1)="W $$DPXCEL^DDXPLIB(DDXPXTNO)"
^DIST(.44,.004,3,0)="^^4^4^2921120^"
^DIST(.44,.004,3,1,0)="Use the EXCEL-DATA PARSE format to export data to the EXCEL spreadsheet"
^DIST(.44,.004,3,2,0)="program running on the Macintosh or under windows.  Exported data is fixed"
^DIST(.44,.004,3,3,0)="length.  The first line output is a guide for use by EXCEL's Data Parser"
^DIST(.44,.004,3,4,0)="to place data into columns.  Maximum record length is 255 characters."
^DIST(.44,.004,4,0)="^^7^7^2921120^"
^DIST(.44,.004,4,1,0)="To import a file created in this format into Excel, choose the Open"
^DIST(.44,.004,4,2,0)="command on the File menu and select the file.  Each record will be put"
^DIST(.44,.004,4,3,0)="into a single cell.  Select the column that has the data, including the"
^DIST(.44,.004,4,4,0)="first record which will contain the guide for data parsing.  Then, choose"
^DIST(.44,.004,4,5,0)="Parse from the Data menu.  Press the GUESS button and then press OK.  The"
^DIST(.44,.004,4,6,0)="data will be put into correct columns.  You may need to adjust column"
^DIST(.44,.004,4,7,0)="widths."
^DIST(.44,.005,0)="EXCEL (TAB)^009^^^^^^^1^^^1"
^DIST(.44,.005,3,0)="^^2^2^2921120^"
^DIST(.44,.005,3,1,0)="Format used to export data to EXCEL spreadsheet running on the Macintosh"
^DIST(.44,.005,3,2,0)="or under Windows.  A <TAB> is placed between each field's value."
^DIST(.44,.005,4,0)="^^6^6^2921120^^^"
^DIST(.44,.005,4,1,0)="Select the Open command on Excel's File menu.  Press the TEXT button and"
^DIST(.44,.005,4,2,0)="make sure that the Column Delimiter is set to ""TAB.""  Select the file."
^DIST(.44,.005,4,3,0)="Each field's values will be imported into columns."
^DIST(.44,.005,4,4,0)="If you are capturing data to make your export file, be sure that the <TAB>"
^DIST(.44,.005,4,5,0)="(ASCII value 009) is not converted to spaces by your communications"
^DIST(.44,.005,4,6,0)="software."
^DIST(.44,.005,5,0)="^.441^1^1"
^DIST(.44,.005,5,1,0)="Tab Delimited"
^DIST(.44,.005,5,1,1,0)="^^1^1^2921120^^"
^DIST(.44,.005,5,1,1,1,0)="A <TAB> is placed between each field's value."
^DIST(.44,.005,5,"B","Tab Delimited",1)=""
^DIST(.44,.006,0)="WORD DATA FILE (COMMA)^,^^^^^1^250^1^1^^0"
^DIST(.44,.006,1)="W $$FLDNM^DDXPLIB(DDXPXTNO)"
^DIST(.44,.006,3,0)="^^5^5^2921106^"
^DIST(.44,.006,3,1,0)="The format creates records with comma delimited fields.  Non-numeric"
^DIST(.44,.006,3,2,0)="fields are in quotes.  The user is prompted for field names that are"
^DIST(.44,.006,3,3,0)="output as the first line of the exported file."
^DIST(.44,.006,3,4,0)="This format was designed to be used to create a Data File for use with"
^DIST(.44,.006,3,5,0)="Microsoft Word's Print Merge utility."
^DIST(.44,.006,4,0)="^^6^6^2921106^"
^DIST(.44,.006,4,1,0)="Use the exported file as the Data File for Microsoft Word's Print Merge"
^DIST(.44,.006,4,2,0)="utility.  The Merge Field names are contained in the first line of exported"
^DIST(.44,.006,4,3,0)="data.  See the Word documentation and Descriptions of Other Names for"
^DIST(.44,.006,4,4,0)="instructions for importing into various versions of Word."
^DIST(.44,.006,4,5,0)="(Note: Word does not allow spaces and some other punctuation in the Merge"
^DIST(.44,.006,4,6,0)="Field names.)"
^DIST(.44,.006,5,0)="^.441^3^3"
^DIST(.44,.006,5,1,0)="WORD 5.0 (MACINTOSH)"
^DIST(.44,.006,5,1,1,0)="^^7^7^2921106^"
^DIST(.44,.006,5,1,1,1,0)="To use the exported file as a Data File:"
^DIST(.44,.006,5,1,1,2,0)="1) With Main Document open, select Print Merge Helper on the View menu and"
^DIST(.44,.006,5,1,1,3,0)="choose the exported file as the Data File."
^DIST(.44,.006,5,1,1,4,0)="2)From the Insert Field Names box on the Print Merge Helper bar, insert"
^DIST(.44,.006,5,1,1,5,0)="the field names into the Main Document."
^DIST(.44,.006,5,1,1,6,0)="3)Select Print Merge from the File menu to merge the exported data into"
^DIST(.44,.006,5,1,1,7,0)="the Main Document."
^DIST(.44,.006,5,2,0)="WORD 4.0 (MACINTOSH)"
^DIST(.44,.006,5,2,1,0)="^^8^8^2921106^"
^DIST(.44,.006,5,2,1,1,0)="To use the exported file as a Data file:"
^DIST(.44,.006,5,2,1,2,0)="1)Into the main document enter the Merge Instruction 'DATA' followed by"
^DIST(.44,.006,5,2,1,3,0)="the file name of your exported file surrounded by Merge Quotes."
^DIST(.44,.006,5,2,1,4,0)="2)Enter your field names in the Main Document.  The names must match"
^DIST(.44,.006,5,2,1,5,0)="exactly those on the first line of the Data (exported) file and be"
^DIST(.44,.006,5,2,1,6,0)="surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>)."
^DIST(.44,.006,5,2,1,7,0)="3)Select Print Merge from the File menu to merge the data into the Main"
^DIST(.44,.006,5,2,1,8,0)="Document."
^DIST(.44,.006,5,3,0)="WINWORD 2.0"
^DIST(.44,.006,5,3,1,0)="^^7^7^2921106^"
^DIST(.44,.006,5,3,1,1,0)="To use the exported file as the Data file:"
^DIST(.44,.006,5,3,1,2,0)="1) With the Main Document open, select Print Merge from the File menu and"
^DIST(.44,.006,5,3,1,3,0)="press Attach Data File button.  Select your exported file as the Data"
^DIST(.44,.006,5,3,1,4,0)="file."
^DIST(.44,.006,5,3,1,5,0)="2) Use the Insert Merge Fields box to place Merge Fields in the Main"
^DIST(.44,.006,5,3,1,6,0)="Document."
^DIST(.44,.006,5,3,1,7,0)="3) Again select Print Merge from the File menu and press the Merge button."
^DIST(.44,.006,5,"B","WINWORD 2.0",3)=""
^DIST(.44,.006,5,"B","WORD 4.0 (MACINTOSH)",2)=""
^DIST(.44,.006,5,"B","WORD 5.0 (MACINTOSH)",1)=""
^DIST(.44,.007,0)="WORD DATA FILE (TAB)^009^^^^^1^250^1^1^^0"
^DIST(.44,.007,1)="W $$FLDNM^DDXPLIB(DDXPXTNO)"
^DIST(.44,.007,3,0)="^^5^5^2921106^"
^DIST(.44,.007,3,1,0)="The format creates records with <TAB> delimited fields.  Non-numeric"
^DIST(.44,.007,3,2,0)="fields are in quotes.  The user is prompted for field names that are"
^DIST(.44,.007,3,3,0)="output as the first line of the exported file."
^DIST(.44,.007,3,4,0)="This format was designed to be used to create a Data File for use with"
^DIST(.44,.007,3,5,0)="Microsoft Word's Print Merge utility."
^DIST(.44,.007,4,0)="^^6^6^2921106^"
^DIST(.44,.007,4,1,0)="Use the exported file as the Data File for Microsoft Word's Print Merge"
^DIST(.44,.007,4,2,0)="utility.  The Merge Field names are contained in the first line of exported"
^DIST(.44,.007,4,3,0)="data.  See the Word documentation and Descriptions of Other Names for"
^DIST(.44,.007,4,4,0)="instructions for importing into various versions of Word."
^DIST(.44,.007,4,5,0)="(Note: Word does not allow spaces and some other punctuation in the Merge"
^DIST(.44,.007,4,6,0)="Field names.)"
^DIST(.44,.007,5,0)="^.441^3^3"
^DIST(.44,.007,5,1,0)="WORD 5.0 (MACINTOSH)"
^DIST(.44,.007,5,1,1,0)="^^7^7^2921106^"
^DIST(.44,.007,5,1,1,1,0)="To use the exported file as a Data File:"
^DIST(.44,.007,5,1,1,2,0)="1) With Main Document open, select Print Merge Helper on the View menu and"
^DIST(.44,.007,5,1,1,3,0)="choose the exported file as the Data File."
^DIST(.44,.007,5,1,1,4,0)="2)From the Insert Field Names box on the Print Merge Helper bar, insert"
^DIST(.44,.007,5,1,1,5,0)="the field names into the Main Document."
^DIST(.44,.007,5,1,1,6,0)="3)Select Print Merge from the File menu to merge the exported data into"
^DIST(.44,.007,5,1,1,7,0)="the Main Document."
^DIST(.44,.007,5,2,0)="WORD 4.0 (MACINTOSH)"
^DIST(.44,.007,5,2,1,0)="^^8^8^2921106^"
^DIST(.44,.007,5,2,1,1,0)="To use the exported file as a Data file:"
^DIST(.44,.007,5,2,1,2,0)="1)Into the main document enter the Merge Instruction 'DATA' followed by"
^DIST(.44,.007,5,2,1,3,0)="the file name of your exported file surrounded by Merge Quotes."
^DIST(.44,.007,5,2,1,4,0)="2)Enter your field names in the Main Document.  The names must match"
^DIST(.44,.007,5,2,1,5,0)="exactly those on the first line of the Data (exported) file and be"
^DIST(.44,.007,5,2,1,6,0)="surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>)."
^DIST(.44,.007,5,2,1,7,0)="3)Select Print Merge from the File menu to merge the data into the Main"
^DIST(.44,.007,5,2,1,8,0)="Document."
^DIST(.44,.007,5,3,0)="WINWORD 2.0"
^DIST(.44,.007,5,3,1,0)="^^7^7^2921106^"
^DIST(.44,.007,5,3,1,1,0)="To use the exported file as the Data file:"
^DIST(.44,.007,5,3,1,2,0)="1) With the Main Document open, select Print Merge from the File menu and"
^DIST(.44,.007,5,3,1,3,0)="press Attach Data File button.  Select your exported file as the Data"
^DIST(.44,.007,5,3,1,4,0)="file."
^DIST(.44,.007,5,3,1,5,0)="2) Use the Insert Merge Fields box to place Merge Fields in the Main"
^DIST(.44,.007,5,3,1,6,0)="Document."
^DIST(.44,.007,5,3,1,7,0)="3) Again select Print Merge from the File menu and press the Merge button."
^DIST(.44,.007,5,"B","WINWORD 2.0",3)=""
^DIST(.44,.007,5,"B","WORD 4.0 (MACINTOSH)",2)=""
^DIST(.44,.007,5,"B","WORD 5.0 (MACINTOSH)",1)=""
^DIST(.44,.008,0)="ORACLE (FIXED FORMAT)^^^^^1^1^255^1^^^1"
^DIST(.44,.008,1)="D ORACTL^DDXPLIB"
^DIST(.44,.008,3,0)="^^5^5^2930125^"
^DIST(.44,.008,3,1,0)="Use this format to export data to an Oracle table.  Data will be exported"
^DIST(.44,.008,3,2,0)="in fixed format.  The user will be prompted for the length of each field"
^DIST(.44,.008,3,3,0)="and the field name.  By default, the data will be imported into an Oracle"
^DIST(.44,.008,3,4,0)="table with the same name as the export template used to export the data."
^DIST(.44,.008,3,5,0)="The field names should be the column_names in the Oracle table."
^DIST(.44,.008,4,0)="^^14^14^2930125^"
^DIST(.44,.008,4,1,0)="This format produces a control file to be used with Oracle's SQL*LOADER"
^DIST(.44,.008,4,2,0)="utility to load data into a preexisting Oracle table.  The control file is"
^DIST(.44,.008,4,3,0)="complete as created, but you may edit the file to modify the import.  By"
^DIST(.44,.008,4,4,0)="default, the data will be imported into a table with the same name as that"
^DIST(.44,.008,4,5,0)="of the export template.  Spaces in the export template name will be"
^DIST(.44,.008,4,6,0)="converted to underscores (_). So, either that table must exist in your"
^DIST(.44,.008,4,7,0)="Oracle table_space with the columns specified when the export template was"
^DIST(.44,.008,4,8,0)="built or the exported file will need to be modified to show the correct"
^DIST(.44,.008,4,9,0)="table_name.  A minimum syntax for loading an export file named"
^DIST(.44,.008,4,10,0)="INTO_ORACLE.CTL would be:"
^DIST(.44,.008,4,11,0)="|TAB|"
^DIST(.44,.008,4,12,0)="       SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|"
^DIST(.44,.008,4,13,0)=" "
^DIST(.44,.008,4,14,0)="Of course, other options are available.  Consult your Oracle documentation."
^DIST(.44,.008,5,0)="^.441^^"
^DIST(.44,.009,0)="ORACLE (DELIMITED)^,^^^^0^1^0^1^1^^1"
^DIST(.44,.009,1)="D ORACTL^DDXPLIB"
^DIST(.44,.009,3,0)="^^7^7^2930125^"
^DIST(.44,.009,3,1,0)="Use this format to export data to an Oracle table.  Data will be exported"
^DIST(.44,.009,3,2,0)="in comma-delimited format and non-numeric fields will be surrounded by"
^DIST(.44,.009,3,3,0)="quotes.  The user will be prompted for field names.  The field names"
^DIST(.44,.009,3,4,0)="should be the column_names in the Oracle table.  Also, the user will need"
^DIST(.44,.009,3,5,0)="to supply the maximum length of a record to be exported.  By default, data"
^DIST(.44,.009,3,6,0)="will be imported into a table with the same name as that of the export"
^DIST(.44,.009,3,7,0)="template."
^DIST(.44,.009,4,0)="^^13^13^2930125^"
^DIST(.44,.009,4,1,0)="This format produces a control file to be used with Oracle's SQL*LOADER"
^DIST(.44,.009,4,2,0)="utility to load data into a preexisting Oracle table.  The control file is"
^DIST(.44,.009,4,3,0)="complete as created, but you may edit the file to modify the import.  By"
^DIST(.44,.009,4,4,0)="default, the data will be imported into a table with the same name as that"
^DIST(.44,.009,4,5,0)="of the export template.  So, either that table must exist in your Oracle"
^DIST(.44,.009,4,6,0)="table_space with the columns specified when the export template was built"
^DIST(.44,.009,4,7,0)="or the exported file will need to be modified to show the correct"
^DIST(.44,.009,4,8,0)="table_name.  A minimum syntax for loading an export file named"
^DIST(.44,.009,4,9,0)="INTO_ORACLE.CTL would be:"
^DIST(.44,.009,4,10,0)=" |TAB|"
^DIST(.44,.009,4,11,0)="       SQLLOAD USERID=username/password, CONTROL=INTO_ORACLE.CTL|TAB|"
^DIST(.44,.009,4,12,0)=" "
^DIST(.44,.009,4,13,0)="Of course, other options are available.  Consult your Oracle documentation."
^DIST(.44,.009,5,0)="^.441^^"
^DIST(.44,.998,0)="USER DEFINED (DELIMITED)^ASK^ask^^^^^0^1^^^1"
^DIST(.44,.998,3,0)="^^3^3^2921120^"
^DIST(.44,.998,3,1,0)="User will be prompted for field and record delimiters and for the maximum"
^DIST(.44,.998,3,2,0)="length of an exported record.  A field delimiter is mandatory; a record"
^DIST(.44,.998,3,3,0)="delimiter is optional."
^DIST(.44,.999,0)="USER DEFINED (FIXED LENGTH)^^^^^1^^0^1^^^1"
^DIST(.44,.999,3,0)="^^2^2^2921120^"
^DIST(.44,.999,3,1,0)="The export will consist of fixed length records.  User will be prompted"
^DIST(.44,.999,3,2,0)="for the length of each field and for the maximum record length."
^DIST(.44,.999,4,0)="^^4^4^2921120^"
^DIST(.44,.999,4,1,0)="The user-supplied maximum record length must be greater than the sum of"
^DIST(.44,.999,4,2,0)="the lengths of all the exported fields.  Date values will not be"
^DIST(.44,.999,4,3,0)="truncated; the record length must be at least 11 characters to hold the VA"
^DIST(.44,.999,4,4,0)="FileMan external form of the date."
^DIST(.44,.999,5,0)="^.441^^"
^DIST(.44,"B","1-2-3 DATA PARSE",.001)=""
^DIST(.44,"B","1-2-3 IMPORT NUMBERS",.002)=""
^DIST(.44,"B","EXCEL (COMMA)",.003)=""
^DIST(.44,"B","EXCEL (DATA PARSE)",.004)=""
^DIST(.44,"B","EXCEL (TAB)",.005)=""
^DIST(.44,"B","ORACLE (DELIMITED)",.009)=""
^DIST(.44,"B","ORACLE (FIXED FORMAT)",.008)=""
^DIST(.44,"B","USER DEFINED (DELIMITED)",.998)=""
^DIST(.44,"B","USER DEFINED (FIXED LENGTH)",.999)=""
^DIST(.44,"B","WORD DATA FILE (COMMA)",.006)=""
^DIST(.44,"B","WORD DATA FILE (TAB)",.007)=""
^DIST(.44,"C","COMMA DELIMITED",.003,1)=""
^DIST(.44,"C","CSV",.003,2)=""
^DIST(.44,"C","LOTUS 123 (NUMBERS)",.002,1)=""
^DIST(.44,"C","Lotus 1-2-3 Data Parse",.001,1)=""
^DIST(.44,"C","Tab Delimited",.005,1)=""
^DIST(.44,"C","WINWORD 2.0",.006,3)=""
^DIST(.44,"C","WINWORD 2.0",.007,3)=""
^DIST(.44,"C","WORD 4.0 (MACINTOSH)",.006,2)=""
^DIST(.44,"C","WORD 4.0 (MACINTOSH)",.007,2)=""
^DIST(.44,"C","WORD 5.0 (MACINTOSH)",.006,1)=""
^DIST(.44,"C","WORD 5.0 (MACINTOSH)",.007,1)=""
^DIST(.46,0)="IMPORT TEMPLATE^.46IA^^0"
^DIST(1.2,0)="ALTERNATE EDITOR^1.2^9^4"
^DIST(1.2,1,0)="LINE EDITOR - VA FILEMAN"
^DIST(1.2,1,1)="G GO^DIWE"
^DIST(1.2,2,0)="SCREEN EDITOR - VA FILEMAN"
^DIST(1.2,2,1)="D ^DDW"
^DIST(1.2,2,7,0)="^^2^2^2901212^^^"
^DIST(1.2,2,7,1,0)=""
^DIST(1.2,2,7,2,0)="The standard VA FileMan full-screen text editor."
^DIST(1.2,3,0)="KERMIT LOAD"
^DIST(1.2,3,1)="S XTKDIC=DIC D RECEIVE^XTKERMIT"
^DIST(1.2,3,3)="K XTKDIC"
^DIST(1.2,3,7,0)="^^2^2^2960604^"
^DIST(1.2,3,7,1,0)="This option uses the KERMIT protocol to load the word-processing field"
^DIST(1.2,3,7,2,0)="from another system."
^DIST(1.2,4,0)="XTENSIBLE EDITOR"
^DIST(1.2,4,1)="D ENTRY^RGED(DIC,$G(DIWETXT),$G(DIWESUB))"
^DIST(1.2,"B","KERMIT LOAD",3)=""
^DIST(1.2,"B","LINE EDITOR - VA FILEMAN",1)=""
^DIST(1.2,"B","SCREEN EDITOR - VA FILEMAN",2)=""
^DIST(1.2,"B","XTENSIBLE EDITOR",4)=""