Changeset 865 for Scheduling


Ignore:
Timestamp:
Jul 14, 2010, 4:20:30 AM (14 years ago)
Author:
Sam Habiel
Message:

Routine to pull extra registration data

File:
1 edited

Legend:

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

    r614 r865  
    1818        S BSDXRET="^BSDXTMP("_$J_")"
    1919        ;
    20         S ^BSDXTMP($J,0)="T00030IEN^T00030STREET^T00030CITY^T00030STATE^T00030ZIP^T00030NAME^D00030DOB^T00030SSN^T00030HRN"
    21         S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_"^T00030HOMEPHONE^T00030OFCPHONE^T00030MSGPHONE"
    22         S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_"^T00030NOK NAME^T00030RELATIONSHIP^T00030PHONE^T00030STREET^T00030CITY^T00030STATE^T00030ZIP"
    23         S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_"^D00030DATAREVIEWED"
    24         ; S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_"^T00030Medicare#^T00030Suffix"
    25         S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_"^T00030RegistrationComments"
    26         S ^BSDXTMP($J,0)=^BSDXTMP($J,0)_$C(30)
     20        N OUT S OUT=$NA(^BSDXTMP($J,0))
     21        S $P(@OUT,U,1)="T00030IEN"
     22        S $P(@OUT,U,2)="T00030STREET"
     23        S $P(@OUT,U,3)="T00030CITY"
     24        S $P(@OUT,U,4)="T00030STATE"
     25        S $P(@OUT,U,5)="T00030ZIP"
     26        S $P(@OUT,U,6)="T00030NAME"
     27        S $P(@OUT,U,7)="D00030DOB"
     28        S $P(@OUT,U,8)="T00030SSN"
     29        S $P(@OUT,U,9)="T00030HRN"
     30        S $P(@OUT,U,10)="T00030HOMEPHONE"
     31        S $P(@OUT,U,11)="T00030OFCPHONE"
     32        S $P(@OUT,U,12)="T00030MSGPHONE"
     33        S $P(@OUT,U,13)="T00030NOK NAME"
     34        S $P(@OUT,U,14)="T00030RELATIONSHIP"
     35        S $P(@OUT,U,15)="T00030PHONE"
     36        S $P(@OUT,U,16)="T00030STREET"
     37        S $P(@OUT,U,17)="T00030CITY"
     38        S $P(@OUT,U,18)="T00030STATE"
     39        S $P(@OUT,U,19)="T00030ZIP"
     40        S $P(@OUT,U,20)="D00030DATAREVIEWED"
     41        S $P(@OUT,U,21)="T00030RegistrationComments"
     42        S $P(@OUT,U,22)="T00050EMAIL ADDRESS"
     43        S $P(@OUT,U,23)="T00020PHONE NUMBER [CELLULAR]"
     44        S $P(@OUT,U,24)="T00030COUNTRY"
     45        S $E(@OUT,$L(@OUT)+1)=$C(30)
     46        ;
    2747        ;
    2848        N BSDXNOD,BSDXNAM,Y,U
    2949        S U="^"
    3050        S BSDXY="ERROR"
     51        K NAME
    3152        I '+BSDXPAT S ^BSDXTMP($J,1)=$C(31) Q
    3253        I '$D(^DPT(+BSDXPAT,0)) S ^BSDXTMP($J,1)=$C(31) Q
     
    4869        ;/smh D MEDICARE
    4970        D REGCMT
     71        S $P(BSDXY,"^",22)=$$GET1^DIQ(2,BSDXPAT,"EMAIL ADDRESS")
     72        S $P(BSDXY,"^",23)=$$GET1^DIQ(2,BSDXPAT,"PHONE NUMBER [CELLULAR]")
     73        S $P(BSDXY,"^",24)=$$GET1^DIQ(2,BSDXPAT,"COUNTRY:DESCRIPTION")
    5074        N BSDXBEG,BSDXEND,BSDXLEN,BSDXI
    5175        S BSDXLEN=$L(BSDXY)
Note: See TracChangeset for help on using the changeset viewer.