Index: /ccr/trunk/p/CCRDPT.m
===================================================================
--- /ccr/trunk/p/CCRDPT.m	(revision 20)
+++ /ccr/trunk/p/CCRDPT.m	(revision 21)
@@ -160,5 +160,5 @@
 	; PREREQ: PT Defined
 	; State is stored as a pointer
-	N STATENUM=$P(PT(.11)"^",5)
+	N STATENUM S STATENUM=$P(PT(.11),"^",5)
 	;
 	; State File Global is below
@@ -168,10 +168,89 @@
 	Q $P(^DIC(5,STATENUM,0),"^",1)
 	;
-ZIP() ; Get Zip code for Home Address
+ZIP() ; Get Zip code for Home Address; PUBLIC; Extrinsic
 	; PREREQ: PT Defined
 	Q $P(PT(.11),"^",6)
 	;
-COUNTY() ; Get County for our Address
+COUNTY() ; Get County for our Address; PUBLIC; Extrinsic
 	; PREREQ: PT Defined
 	Q $P(PT(.11),"^",7)
 	;
+COUNTRY() ; Get Country for our Address; PUBLIC; Extrinsic
+	; Unfortunately, I can't find where that is stored, so the inevitable...
+	Q "USA"
+	;
+RESTEL() ; Residential Telephone; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	Q $P(PT(.13),"^",1)
+	;
+WORKTEL() ; Work Telephone; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	Q $P(PT(.13),"^",2)
+	;
+EMAIL() ; Email Adddress; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	Q $P(PT(.13),"^",3)
+	;
+CELLTEL() ; Cell Phone; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	Q $P(PT(.13),"^",4)
+	;
+NOK1FAM() ; Next of Kin 1 (NOK1) Family Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.21),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("FAMILY")
+	;
+NOK1GIV() ; NOK1 Given Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.21),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("GIVEN")
+	;
+NOK1MID() ; NOK1 Middle Name; PUBLIC; Extrinsic 
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.21),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("MIDDLE")
+	;
+NOK1SUF() ; NOK1 Suffi Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.21),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("SUFFIX") 
+	;
+NOK1DISP() ; NOK1 Display Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.21),"^",1)
+	Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc") 
+	; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
+NOK2FAM() ; NOK2 Family Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.211),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("FAMILY")
+	;
+NOK2GIV() ; NOK2 Given Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.211),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("GIVEN")
+	;
+NOK2MID() ; NOK2 Middle Name; PUBLIC; Extrinsic 
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.211),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("MIDDLE")
+	;
+NOK2SUF() ; NOK2 Suffi Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.211),"^",1)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("SUFFIX") 
+	;
+NOK2DISP() ; NOK2 Display Name; PUBLIC; Extrinsic
+	; PREREQ: PT Defined
+	N NAME S NAME=$P(PT(.211),"^",1)
+	Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc") 
+	; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
+