PK.CODESET
@CODESET.OPEN.PREFIXES,
@CODESET.HDR,
@CODESET.FIN.CLASS,
@CODESET.SVC,
@CODESET.LOC,
@CODESET.STATUS,
@CODESET.PROBLEMS,
@CODESET.LABS,
@CODESET.MEDS,
@CODESET.TRLR,
END;

CODESET.OPEN.PREFIXES
@misdir,
O(\,@misdict),
@pkdir

CODESET.HDR
"<?xml version="_D(34)_1.0_D(34)_" ?>"^!,
"<ReplyMessage>"^!,
"<TransactionId>0</TransactionId>"^!,
"<Status>Success</Status>"^!,
"<StatusDescription>Step returned a Success status.</StatusDescription>"^!,
"<Payload>"^!,
"<CodeSets>"^!

CODESET.FIN.CLASS
""^Q,
"<CodeSet>"^!,
"<CodeSetNumber>1</CodeSetNumber>"^!,
"<Codes>"^!,
DO{+(\GGK[Q],QQ)^Q IF{"Y"'=QQ|0;
QQ|1^Q1,"FC."_Q^Q3^Q2,@CODESET.SEND}},
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!

CODESET.SVC
""^Q,
"<CodeSet>"^!,
"<CodeSetNumber>6</CodeSetNumber>"^!,
"<Codes>"^!,
DO{+(\GGS[Q],QQ)^Q IF{"Y"'=QQ|0;
QQ|1^Q1,"SVC."_Q^Q3^Q2,@CODESET.SEND}},
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!

CODESET.LOC
""^Q,
"<CodeSet>"^!,
"<CodeSetNumber>4</CodeSetNumber>"^!,
"<Codes>"^!,
DO{+(\GGN[Q],QQ)^Q IF{"Y"'=QQ|0;
Q^Q2,
QQ|1_" ("_Q_")"^Q1,
"FACILITY"^Q3,
"LOC."_Q2^Q2,@CODESET.SEND}},
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!

CODESET.SEND
"<Code>"^!,
"<Display><![CDATA["_Q1_"]]></Display>"^!,
"<Mnemonic><![CDATA["_Q2_"]]></Mnemonic>"^!,
"<Meaning><![CDATA["_Q3_"]]></Meaning>"^!,
"</Code>"^!

CODESET.STATUS
"<CodeSet>"^!,
"<CodeSetNumber>9</CodeSetNumber>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>ADM IN</Display>"^!,
"<Meaning>PTST.ADM IN</Meaning>"^!,
"<Mnemonic>PTST.ADM IN</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>DEP ER</Display>"^!,
"<Meaning>PTST.DEP ER</Meaning>"^!,
"<Mnemonic>PTST.DEP ER</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>DIS IN</Display>"^!,
"<Meaning>PTST.DIS IN</Meaning>"^!,
"<Mnemonic>PTST.DIS IN</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>DIS RCR</Display>"^!,
"<Meaning>PTST.DIS RCR</Meaning>"^!,
"<Mnemonic>PTST.DIS RCR</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE CLI</Display>"^!,
"<Meaning>PTST.PRE CLI</Meaning>"^!,
"<Mnemonic>PTST.PRE CLI</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE ER</Display>"^!,
"<Meaning>PTST.PRE ER</Meaning>"^!,
"<Mnemonic>PTST.PRE ER</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE IN</Display>"^!,
"<Meaning>PTST.PRE IN</Meaning>"^!,
"<Mnemonic>PTST.PRE IN</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE POV</Display>"^!,
"<Meaning>PTST.PRE POV</Meaning>"^!,
"<Mnemonic>PTST.PRE POV</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE RCR</Display>"^!,
"<Meaning>PTST.PRE RCR</Meaning>"^!,
"<Mnemonic>PTST.PRE RCR</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE REF</Display>"^!,
"<Meaning>PTST.PRE REF</Meaning>"^!,
"<Mnemonic>PTST.PRE REF</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PRE SDC</Display>"^!,
"<Meaning>PTST.PRE SDC</Meaning>"^!,
"<Mnemonic>PTST.PRE SDC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG CLI</Display>"^!,
"<Meaning>PTST.REG CLI</Meaning>"^!,
"<Mnemonic>PTST.REG CLI</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG ER</Display>"^!,
"<Meaning>PTST.REG ER</Meaning>"^!,
"<Mnemonic>PTST.REG ER</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG POV</Display>"^!,
"<Meaning>PTST.REG POV</Meaning>"^!,
"<Mnemonic>PTST.REG POV</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG RCR</Display>"^!,
"<Meaning>PTST.REG RCR</Meaning>"^!,
"<Mnemonic>PTST.REG RCR</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG REF</Display>"^!,
"<Meaning>PTST.REG REF</Meaning>"^!,
"<Mnemonic>PTST.REG REF</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REG SDC</Display>"^!,
"<Meaning>PTST.REG SDC</Meaning>"^!,
"<Mnemonic>PTST.REG SDC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH CLI</Display>"^!,
"<Meaning>PTST.SCH CLI</Meaning>"^!,
"<Mnemonic>PTST.SCH CLI</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH ER</Display>"^!,
"<Meaning>PTST.SCH ER</Meaning>"^!,
"<Mnemonic>PTST.SCH ER</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH IN</Display>"^!,
"<Meaning>PTST.SCH IN</Meaning>"^!,
"<Mnemonic>PTST.SCH IN</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH POV</Display>"^!,
"<Meaning>PTST.SCH POV</Meaning>"^!,
"<Mnemonic>PTST.SCH POV</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH RCR</Display>"^!,
"<Meaning>PTST.SCH RCR</Meaning>"^!,
"<Mnemonic>PTST.SCH RCR</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH REF</Display>"^!,
"<Meaning>PTST.SCH REF</Meaning>"^!,
"<Mnemonic>PTST.SCH REF</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SCH SDC</Display>"^!,
"<Meaning>PTST.SCH SDC</Meaning>"^!,
"<Mnemonic>PTST.SCH SDC</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>2</CodeSetNumber>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>IN</Display>"^!,
"<Meaning>PTTY.IN</Meaning>"^!,
"<Mnemonic>PTTY.IN</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>ER</Display>"^!,
"<Meaning>PTTY.ER</Meaning>"^!,
"<Mnemonic>PTTY.ER</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>RCR</Display>"^!,
"<Meaning>PTTY.RCR</Meaning>"^!,
"<Mnemonic>PTTY.RCR</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>CLI</Display>"^!,
"<Meaning>PTTY.CLI</Meaning>"^!,
"<Mnemonic>PTTY.CLI</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>POV</Display>"^!,
"<Meaning>PTTY.POV</Meaning>"^!,
"<Mnemonic>PTTY.POV</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>REF</Display>"^!,
"<Meaning>PTTY.REF</Meaning>"^!,
"<Mnemonic>PTTY.REF</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>SDC</Display>"^!,
"<Meaning>PTTY.SDC</Meaning>"^!,
"<Mnemonic>PTTY.SDC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>OBSV</Display>"^!,
"<Meaning>PTTY.OBSV</Meaning>"^!,
"<Mnemonic>PTTY.OBSV</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>3</CodeSetNumber>"^!,
"<CodeSetName>Relationship Types</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Admitting Physician</Display>"^!,
"<Meaning>ADMITDOC</Meaning>"^!,
"<Mnemonic>ADMITDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Attending Physician</Display>"^!,
"<Meaning>ATTENDDOC</Meaning>"^!,
"<Mnemonic>ATTENDDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Consulting Physician</Display>"^!,
"<Meaning>CONSULTDOC</Meaning>"^!,
"<Mnemonic>CONSULTDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Other Physician</Display>"^!,
"<Meaning>OTHERDOC</Meaning>"^!,
"<Mnemonic>OTHERDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Ordering Physician</Display>"^!,
"<Meaning>ORDERDOC</Meaning>"^!,
"<Mnemonic>ORDERDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Primary Care Physician</Display>"^!,
"<Meaning>PRIMCAREDOC</Meaning>"^!,
"<Mnemonic>PRIMCAREDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Referring Physician</Display>"^!,
"<Meaning>ERDOC</Meaning>"^!,
"<Mnemonic>ERDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Meditech List</Display>"^!,
"<Meaning>MEDITECHLIST</Meaning>"^!,
"<Mnemonic>MEDITECHLIST</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Meditech Group List</Display>"^!,
"<Meaning>MEDITECHLIST.GROUP</Meaning>"^!,
"<Mnemonic>MEDITECHLIST.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Surgeon</Display>"^!,
"<Meaning>SURGEON</Meaning>"^!,
"<Mnemonic>SURGEON</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Asst. Surgeon</Display>"^!,
"<Meaning>ASSTSURGEON</Meaning>"^!,
"<Mnemonic>ASSTSURGEON</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Appt. Resource</Display>"^!,
"<Meaning>APPTRESOURCE</Meaning>"^!,
"<Mnemonic>APPTRESOURCE</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Family Physician</Display>"^!,
"<Meaning>FAMILYDOC</Meaning>"^!,
"<Mnemonic>FAMILYDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Admitting</Display>"^!,
"<Meaning>ADMITDOC.GROUP</Meaning>"^!,
"<Mnemonic>ADMITDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Attending</Display>"^!,
"<Meaning>ATTENDDOC.GROUP</Meaning>"^!,
"<Mnemonic>ATTENDDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Consulting</Display>"^!,
"<Meaning>CONSULTDOC.GROUP</Meaning>"^!,
"<Mnemonic>CONSULTDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Other</Display>"^!,
"<Meaning>OTHERDOC.GROUP</Meaning>"^!,
"<Mnemonic>OTHERDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Ordering</Display>"^!,
"<Meaning>ORDERDOC.GROUP</Meaning>"^!,
"<Mnemonic>ORDERDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Primary Care</Display>"^!,
"<Meaning>PRIMCAREDOC.GROUP</Meaning>"^!,
"<Mnemonic>PRIMCAREDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Referring</Display>"^!,
"<Meaning>ERDOC.GROUP</Meaning>"^!,
"<Mnemonic>ERDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group Family</Display>"^!,
"<Meaning>FAMILYDOC.GROUP</Meaning>"^!,
"<Mnemonic>FAMILYDOC.GROUP</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>PatientKeeper</Display>"^!,
"<Meaning>PATIENTKEEPERDOC</Meaning>"^!,
"<Mnemonic>PATIENTKEEPERDOC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Location</Display>"^!,
"<Meaning>LOCATION</Meaning>"^!,
"<Mnemonic>LOCATION</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>999999999</CodeSetNumber>"^!,
"<CodeSetName>Address</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>Street1</Meaning>"^!,
"<Mnemonic>Street1</Mnemonic>"^!,
"<Value>41</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>Street2</Meaning>"^!,
"<Mnemonic>Street2</Mnemonic>"^!,
"<Value>42</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>City</Display>"^!,
"<Meaning>City</Meaning>"^!,
"<Mnemonic>City</Mnemonic>"^!,
"<Value>43</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>State</Display>"^!,
"<Meaning>State</Meaning>"^!,
"<Mnemonic>State</Mnemonic>"^!,
"<Value>44</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>ZipCode</Display>"^!,
"<Meaning>ZipCode</Meaning>"^!,
"<Mnemonic>ZipCode</Mnemonic>"^!,
"<Value>45</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Home Phone</Display>"^!,
"<Meaning>HomePhone</Meaning>"^!,
"<Mnemonic>HomePhone</Mnemonic>"^!,
"<Value>46</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Work Phone</Display>"^!,
"<Meaning>WorkPhone</Meaning>"^!,
"<Mnemonic>WorkPhone</Mnemonic>"^!,
"<Value>47</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Other Phone</Display>"^!,
"<Meaning>OtherPhone</Meaning>"^!,
"<Mnemonic>OtherPhone</Mnemonic>"^!,
"<Value>48</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>12</CodeSetNumber>"^!,
"<CodeSetName>AccountProperties</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>LastEncounterDateTime</Display>"^!,
"<Meaning>LastEncounterDateTime</Meaning>"^!,
"<Mnemonic>LastEncounterDateTime</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>22</CodeSetNumber>"^!,
"<CodeSetName>PrimaryInsurance</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Company</Display>"^!,
"<Meaning>PrimaryInsurance.Company</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Company</Mnemonic>"^!,
"<Value>50</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>PrimaryInsurance.Street1</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Street1</Mnemonic>"^!,
"<Value>51</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>PrimaryInsurance.Street2</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Street2</Mnemonic>"^!,
"<Value>52</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>City</Display>"^!,
"<Meaning>PrimaryInsurance.City</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.City</Mnemonic>"^!,
"<Value>53</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>State</Display>"^!,
"<Meaning>PrimaryInsurance.State</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.State</Mnemonic>"^!,
"<Value>54</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>ZipCode</Display>"^!,
"<Meaning>PrimaryInsurance.ZipCode</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.ZipCode</Mnemonic>"^!,
"<Value>55</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Phone</Display>"^!,
"<Meaning>PrimaryInsurance.Phone</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Phone</Mnemonic>"^!,
"<Value>56</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Type</Display>"^!,
"<Meaning>PrimaryInsurance.Type</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Type</Mnemonic>"^!,
"<Value>57</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Policy</Display>"^!,
"<Meaning>PrimaryInsurance.Policy</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Policy</Mnemonic>"^!,
"<Value>58</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Guarantor</Display>"^!,
"<Meaning>PrimaryInsurance.Guarantor</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.Guarantor</Mnemonic>"^!,
"<Value>59</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>GroupAuthorization</Display>"^!,
"<Meaning>PrimaryInsurance.GroupAuthorization</Meaning>"^!,
"<Mnemonic>PrimaryInsurance.GroupAuthorization</Mnemonic>"^!,
"<Value>60</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>23</CodeSetNumber>"^!,
"<CodeSetName>SecondaryInsurance</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Company</Display>"^!,
"<Meaning>SecondaryInsurance.Company</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Company</Mnemonic>"^!,
"<Value>70</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>SecondaryInsurance.Street1</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Street1</Mnemonic>"^!,
"<Value>71</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>SecondaryInsurance.Street2</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Street2</Mnemonic>"^!,
"<Value>72</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>City</Display>"^!,
"<Meaning>SecondaryInsurance.City</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.City</Mnemonic>"^!,
"<Value>73</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>State</Display>"^!,
"<Meaning>SecondaryInsurance.State</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.State</Mnemonic>"^!,
"<Value>74</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>ZipCode</Display>"^!,
"<Meaning>SecondaryInsurance.ZipCode</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.ZipCode</Mnemonic>"^!,
"<Value>75</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Phone</Display>"^!,
"<Meaning>SecondaryInsurance.Phone</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Phone</Mnemonic>"^!,
"<Value>76</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Type</Display>"^!,
"<Meaning>SecondaryInsurance.Type</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Type</Mnemonic>"^!,
"<Value>77</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Policy</Display>"^!,
"<Meaning>SecondaryInsurance.Policy</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Policy</Mnemonic>"^!,
"<Value>78</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Guarantor</Display>"^!,
"<Meaning>SecondaryInsurance.Guarantor</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.Guarantor</Mnemonic>"^!,
"<Value>79</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>GroupAuthorization</Display>"^!,
"<Meaning>SecondaryInsurance.GroupAuthorization</Meaning>"^!,
"<Mnemonic>SecondaryInsurance.GroupAuthorization</Mnemonic>"^!,
"<Value>80</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>24</CodeSetNumber>"^!,
"<CodeSetName>TertiaryInsurance</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Company</Display>"^!,
"<Meaning>TertiaryInsurance.Company</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Company</Mnemonic>"^!,
"<Value>90</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>TertiaryInsurance.Street1</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Street1</Mnemonic>"^!,
"<Value>91</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Street</Display>"^!,
"<Meaning>TertiaryInsurance.Street2</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Street2</Mnemonic>"^!,
"<Value>92</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>City</Display>"^!,
"<Meaning>TertiaryInsurance.City</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.City</Mnemonic>"^!,
"<Value>93</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>State</Display>"^!,
"<Meaning>TertiaryInsurance.State</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.State</Mnemonic>"^!,
"<Value>94</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>ZipCode</Display>"^!,
"<Meaning>TertiaryInsurance.ZipCode</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.ZipCode</Mnemonic>"^!,
"<Value>95</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Phone</Display>"^!,
"<Meaning>TertiaryInsurance.Phone</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Phone</Mnemonic>"^!,
"<Value>96</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Type</Display>"^!,
"<Meaning>TertiaryInsurance.Type</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Type</Mnemonic>"^!,
"<Value>97</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Policy</Display>"^!,
"<Meaning>TertiaryInsurance.Policy</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Policy</Mnemonic>"^!,
"<Value>98</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Guarantor</Display>"^!,
"<Meaning>TertiaryInsurance.Guarantor</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.Guarantor</Mnemonic>"^!,
"<Value>99</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>GroupAuthorization</Display>"^!,
"<Meaning>TertiaryInsurance.GroupAuthorization</Meaning>"^!,
"<Mnemonic>TertiaryInsurance.GroupAuthorization</Mnemonic>"^!,
"<Value>100</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!

CODESET.PROBLEMS
"<CodeSet>"^!,
"<CodeSetNumber>13</CodeSetNumber>"^!,
"<CodeSetName>Confirmation Status</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Confirmed</Display>"^!,
"<Meaning>PRB.Confirmed</Meaning>"^!,
"<Mnemonic>PRB.Confirmed</Mnemonic>"^!,
"<Value>1</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Confirmed</Display>"^!,
"<Meaning>PRB.Differential</Meaning>"^!,
"<Mnemonic>PRB.Differential</Mnemonic>"^!,
"<Value>2</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>14</CodeSetNumber>"^!,
"<CodeSetName>Classification</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Unknown</Display>"^!,
"<Meaning>PRB.ClassificationUnknown</Meaning>"^!,
"<Mnemonic>PRB.ClassificationUnknown</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>15</CodeSetNumber>"^!,
"<CodeSetName>CertaintyStatus</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Certainty Level 1</Display>"^!,
"<Meaning>PRB.CertaintyStatus1</Meaning>"^!,
"<Mnemonic>PRB.CertaintyStatus1</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>16</CodeSetNumber>"^!,
"<CodeSetName>PersistenceStatus</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Unknown</Display>"^!,
"<Meaning>PRB.PersistenceStatusUnknown</Meaning>"^!,
"<Mnemonic>PRB.PersistenceStatusUnknown</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>17</CodeSetNumber>"^!,
"<CodeSetName>RankingStatus</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>RankingStatus 1</Display>"^!,
"<Meaning>PRB.RankingStatus1</Meaning>"^!,
"<Mnemonic>PRB.RankingStatus1</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>18</CodeSetNumber>"^!,
"<CodeSetName>CancelReason</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Unknown</Display>"^!,
"<Meaning>PRB.CancelReasonUnknown</Meaning>"^!,
"<Mnemonic>PRB.CancelReasonUnknown</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>19</CodeSetNumber>"^!,
"<CodeSetName>ProblemRelationship</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Recorder</Display>"^!,
"<Meaning>PRB.Recorder</Meaning>"^!,
"<Mnemonic>PRB.Recorder</Mnemonic>"^!,
"<Value>10</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Responsible</Display>"^!,
"<Meaning>PRB.Responsible</Meaning>"^!,
"<Mnemonic>PRB.Responsible</Mnemonic>"^!,
"<Value>11</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>20</CodeSetNumber>"^!,
"<CodeSetName>LifeCycleStatus</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display></Display>"^!,
"<Meaning>PRB.Active</Meaning>"^!,
"<Mnemonic>PRB.Active</Mnemonic>"^!,
"<Value>20</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display></Display>"^!,
"<Meaning>PRB.Inactive</Meaning>"^!,
"<Mnemonic>PRB.Inactive</Mnemonic>"^!,
"<Value>21</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display></Display>"^!,
"<Meaning>PRB.Resolved</Meaning>"^!,
"<Mnemonic>PRB.Resolved</Mnemonic>"^!,
"<Value>22</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display></Display>"^!,
"<Meaning>PRB.Cancelled</Meaning>"^!,
"<Mnemonic>PRB.Cancelled</Mnemonic>"^!,
"<Value>23</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>21</CodeSetNumber>"^!,
"<CodeSetName>Course</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Improving</Display>"^!,
"<Meaning>PRB.Improving</Meaning>"^!,
"<Mnemonic>PRB.Improving</Mnemonic>"^!,
"<Value>30</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Worsening</Display>"^!,
"<Meaning>PRB.Worsening</Meaning>"^!,
"<Mnemonic>PRB.Worsening</Mnemonic>"^!,
"<Value>31</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Stable</Display>"^!,
"<Meaning>PRB.Stable</Meaning>"^!,
"<Mnemonic>PRB.Stable</Mnemonic>"^!,
"<Value>32</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>25</CodeSetNumber>"^!,
"<CodeSetName>Groups</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display><![CDATA[All My Groups]]></Display>"^!,
"<Mnemonic><![CDATA[GRP.ALLMYGROUPS]]></Mnemonic>"^!,
"<Meaning><![CDATA[GROUP]]></Meaning>"^!,
"</Code>"^!,
""^Q,
DO{+(\GGH[Q],QQ)^Q IF{"Y"'=QQ|0;
QQ|1^Q1,
Q^Q2,
"GROUP"^Q3,
"GRP."_Q2^Q2,
"<Code>"^!,
"<Display><![CDATA["_Q1_"]]></Display>"^!,
"<Mnemonic><![CDATA["_Q2_"]]></Mnemonic>"^!,
"<Meaning><![CDATA["_Q3_"]]></Meaning>"^!,
"</Code>"^!}},
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>26</CodeSetNumber>"^!,
"<CodeSetName>BackendListTypes</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Mine</Display>"^!,
"<Mnemonic>BackendListTypes.Mine</Mnemonic>"^!,
"<Meaning>BackendListTypes.Mine</Meaning>"^!,
"<Value>111</Value>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Group</Display>"^!,
"<Mnemonic>BackendListTypes.Group</Mnemonic>"^!,
"<Meaning>BackendListTypes.Group</Meaning>"^!,
"<Value>112</Value>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>27</CodeSetNumber>"^!,
"<CodeSetName>AppointmentTime</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Today</Display>"^!,
"<Mnemonic>AppointmentTime.Today</Mnemonic>"^!,
"<Meaning>0</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Yesterday</Display>"^!,
"<Mnemonic>AppointmentTime.Yesterday</Mnemonic>"^!,
"<Meaning>1</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Two Days Ago</Display>"^!,
"<Mnemonic>AppointmentTime.TwoDaysAgo</Mnemonic>"^!,
"<Meaning>2</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Three Days Ago</Display>"^!,
"<Mnemonic>AppointmentTime.ThreeDaysAgo</Mnemonic>"^!,
"<Meaning>3</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Four Days Ago</Display>"^!,
"<Mnemonic>AppointmentTime.FourDaysAgo</Mnemonic>"^!,
"<Meaning>4</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Five Days Ago</Display>"^!,
"<Mnemonic>AppointmentTime.FiveDaysAgo</Mnemonic>"^!,
"<Meaning>5</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Tomorrow</Display>"^!,
"<Mnemonic>AppointmentTime.Tomorrow</Mnemonic>"^!,
"<Meaning>-1</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Two Days Away</Display>"^!,
"<Mnemonic>AppointmentTime.TwoDaysAway</Mnemonic>"^!,
"<Meaning>-2</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Three Days Away</Display>"^!,
"<Mnemonic>AppointmentTime.ThreeDaysAway</Mnemonic>"^!,
"<Meaning>-3</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Four Days Away</Display>"^!,
"<Mnemonic>AppointmentTime.FourDaysAway</Mnemonic>"^!,
"<Meaning>-4</Meaning>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Five Days Away</Display>"^!,
"<Mnemonic>AppointmentTime.FiveDaysAway</Mnemonic>"^!,
"<Meaning>-5</Meaning>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!,
"<CodeSet>"^!,
"<CodeSetNumber>5</CodeSetNumber>"^!,
"<CodeSetName>VisitType</CodeSetName>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Inpatient</Display>"^!,
"<Meaning>VisitType.Inpatient</Meaning>"^!,
"<Mnemonic>VisitType.Inpatient</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Outpatient</Display>"^!,
"<Meaning>VisitType.Outpatient</Meaning>"^!,
"<Mnemonic>VisitType.Outpatient</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key/>"^!,
"</CodeSet>"^!

CODESET.LABS
%PK.CODESETLABS(0)

CODESET.MEDS
"<CodeSet>"^!,
"<CodeSetNumber>6004</CodeSetNumber>"^!,
"<Codes>"^!,
"<Code>"^!,
"<Display>Active</Display>"^!,
"<Meaning>MEDORDSTAT.AC</Meaning>"^!,
"<Mnemonic>MEDORDSTAT.AC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Inactive</Display>"^!,
"<Meaning>MEDORDSTAT.DC</Meaning>"^!,
"<Mnemonic>MEDORDSTAT.DC</Mnemonic>"^!,
"</Code>"^!,
"<Code>"^!,
"<Display>Unverified</Display>"^!,
"<Meaning>MEDORDSTAT.UNV</Meaning>"^!,
"<Mnemonic>MEDORDSTAT.UNV</Mnemonic>"^!,
"</Code>"^!,
"</Codes>"^!,
"<Key>"_/START_"</Key>"^!,
"</CodeSet>"^!

CODESET.TRLR
"</CodeSets>"^!,
"</Payload>"^!,
"</ReplyMessage>"^!
