Changeset 21 for ccr/trunk/p

Timestamp:

Jun 25, 2008, 12:15:14 AM (17 years ago)

Author:

Sam Habiel

Message:

Updated CCRDPT.

File:

• ccr/trunk/p/CCRDPT.m (modified) (2 diffs)

ccr/trunk/p/CCRDPT.m

@@ -160 +160 @@
         ; 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 +168 @@
         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
+