Changeset 984 for Scheduling


Ignore:
Timestamp:
Oct 20, 2010, 9:17:43 AM (14 years ago)
Author:
Sam Habiel
Message:

Add sex to Patient Demographics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Scheduling/trunk/m/BSDX09.m

    r968 r984  
    1 BSDX09  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 8/16/10 4:28pm
    2         ;;1.41;BSDX;;Sep 29, 2010
     1BSDX09  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 10/20/10 4:16pm
     2        ;;1.41;BSDX;;Sep 07, 2010;Build 7
    33        ;
    4            ; Change Log:
    5            ; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
    6            ; - Email
    7            ; - Cell Phone
    8            ; - Country
    9            ; - + refactoring of routine
     4        ; Change Log:
     5        ; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
     6        ; - Email
     7        ; - Cell Phone
     8        ; - Country
     9        ; - + refactoring of routine
    1010        ;
    11            ; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
     11        ; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
    1212        ;
     13    ; UJO/TH - v 1.42 on 3101020 - Add Sex field.
     14    ;
    1315GETREGA(BSDXRET,BSDXPAT)               ;EP
    1416        ;
     
    4547        S $P(@OUT,U,23)="T00020PHONE NUMBER [CELLULAR]"
    4648        S $P(@OUT,U,24)="T00030COUNTRY"
     49        S $P(@OUT,U,25)="T00030SEX"
    4750        S $E(@OUT,$L(@OUT)+1)=$C(30)
    4851        ;
     
    7477        S $P(BSDXY,"^",23)=$$GET1^DIQ(2,BSDXPAT,"PHONE NUMBER [CELLULAR]")
    7578        S $P(BSDXY,"^",24)=$$GET1^DIQ(2,BSDXPAT,"COUNTRY:DESCRIPTION")
     79        S $P(BSDXY,"^",25)=$$GET1^DIQ(2,BSDXPAT,"SEX")
    7680        N BSDXBEG,BSDXEND,BSDXLEN,BSDXI
    7781        S BSDXLEN=$L(BSDXY)
Note: See TracChangeset for help on using the changeset viewer.