Changeset 21


Ignore:
Timestamp:
Jun 25, 2008, 12:15:14 AM (16 years ago)
Author:
Sam Habiel
Message:

Updated CCRDPT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRDPT.m

    r14 r21  
    160160        ; PREREQ: PT Defined
    161161        ; State is stored as a pointer
    162         N STATENUM=$P(PT(.11)"^",5)
     162        N STATENUM S STATENUM=$P(PT(.11),"^",5)
    163163        ;
    164164        ; State File Global is below
     
    168168        Q $P(^DIC(5,STATENUM,0),"^",1)
    169169        ;
    170 ZIP() ; Get Zip code for Home Address
     170ZIP() ; Get Zip code for Home Address; PUBLIC; Extrinsic
    171171        ; PREREQ: PT Defined
    172172        Q $P(PT(.11),"^",6)
    173173        ;
    174 COUNTY() ; Get County for our Address
     174COUNTY() ; Get County for our Address; PUBLIC; Extrinsic
    175175        ; PREREQ: PT Defined
    176176        Q $P(PT(.11),"^",7)
    177177        ;
     178COUNTRY() ; Get Country for our Address; PUBLIC; Extrinsic
     179        ; Unfortunately, I can't find where that is stored, so the inevitable...
     180        Q "USA"
     181        ;
     182RESTEL() ; Residential Telephone; PUBLIC; Extrinsic
     183        ; PREREQ: PT Defined
     184        Q $P(PT(.13),"^",1)
     185        ;
     186WORKTEL() ; Work Telephone; PUBLIC; Extrinsic
     187        ; PREREQ: PT Defined
     188        Q $P(PT(.13),"^",2)
     189        ;
     190EMAIL() ; Email Adddress; PUBLIC; Extrinsic
     191        ; PREREQ: PT Defined
     192        Q $P(PT(.13),"^",3)
     193        ;
     194CELLTEL() ; Cell Phone; PUBLIC; Extrinsic
     195        ; PREREQ: PT Defined
     196        Q $P(PT(.13),"^",4)
     197        ;
     198NOK1FAM() ; Next of Kin 1 (NOK1) Family Name; PUBLIC; Extrinsic
     199        ; PREREQ: PT Defined
     200        N NAME S NAME=$P(PT(.21),"^",1)
     201        D NAMECOMP^XLFNAME(.NAME)
     202        Q NAME("FAMILY")
     203        ;
     204NOK1GIV() ; NOK1 Given Name; PUBLIC; Extrinsic
     205        ; PREREQ: PT Defined
     206        N NAME S NAME=$P(PT(.21),"^",1)
     207        D NAMECOMP^XLFNAME(.NAME)
     208        Q NAME("GIVEN")
     209        ;
     210NOK1MID() ; NOK1 Middle Name; PUBLIC; Extrinsic
     211        ; PREREQ: PT Defined
     212        N NAME S NAME=$P(PT(.21),"^",1)
     213        D NAMECOMP^XLFNAME(.NAME)
     214        Q NAME("MIDDLE")
     215        ;
     216NOK1SUF() ; NOK1 Suffi Name; PUBLIC; Extrinsic
     217        ; PREREQ: PT Defined
     218        N NAME S NAME=$P(PT(.21),"^",1)
     219        D NAMECOMP^XLFNAME(.NAME)
     220        Q NAME("SUFFIX")
     221        ;
     222NOK1DISP() ; NOK1 Display Name; PUBLIC; Extrinsic
     223        ; PREREQ: PT Defined
     224        N NAME S NAME=$P(PT(.21),"^",1)
     225        Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc")
     226        ; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
     227NOK2FAM() ; NOK2 Family Name; PUBLIC; Extrinsic
     228        ; PREREQ: PT Defined
     229        N NAME S NAME=$P(PT(.211),"^",1)
     230        D NAMECOMP^XLFNAME(.NAME)
     231        Q NAME("FAMILY")
     232        ;
     233NOK2GIV() ; NOK2 Given Name; PUBLIC; Extrinsic
     234        ; PREREQ: PT Defined
     235        N NAME S NAME=$P(PT(.211),"^",1)
     236        D NAMECOMP^XLFNAME(.NAME)
     237        Q NAME("GIVEN")
     238        ;
     239NOK2MID() ; NOK2 Middle Name; PUBLIC; Extrinsic
     240        ; PREREQ: PT Defined
     241        N NAME S NAME=$P(PT(.211),"^",1)
     242        D NAMECOMP^XLFNAME(.NAME)
     243        Q NAME("MIDDLE")
     244        ;
     245NOK2SUF() ; NOK2 Suffi Name; PUBLIC; Extrinsic
     246        ; PREREQ: PT Defined
     247        N NAME S NAME=$P(PT(.211),"^",1)
     248        D NAMECOMP^XLFNAME(.NAME)
     249        Q NAME("SUFFIX")
     250        ;
     251NOK2DISP() ; NOK2 Display Name; PUBLIC; Extrinsic
     252        ; PREREQ: PT Defined
     253        N NAME S NAME=$P(PT(.211),"^",1)
     254        Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc")
     255        ; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
     256
Note: See TracChangeset for help on using the changeset viewer.