Changeset 71


Ignore:
Timestamp:
Jul 22, 2008, 11:39:53 AM (16 years ago)
Author:
George Lilly
Message:

call $$SITEVASITE for INSTITUTION NAME

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLACTORS.m

    r67 r71  
    133133     S AMAP=$NA(^TMP($J,"AMAP"))
    134134     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    135      S @AMAP@("ORGANIZATIONNAME")="WORLDVISTA EHR CLINIC"
     135     S @AMAP@("ORGANIZATIONNAME")=$P($$SITE^VASITE,U,2)
    136136     S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1"
    137137     D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    … …  
    146146     S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
    147147     S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
    148         S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
    149         S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
    150         S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
    151         S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
     148        S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
     149        S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
     150        S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
     151        S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
    152152     S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
    153153     S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)

  • ccr/trunk/p/GPLCCR0.m

    r68 r71  
    144144 ;;</Type>
    145145 ;;<Description>
    146  ;;<Text>Heart Disease</Text>
    147  ;;<Code>
    148  ;;<Value>C0018799</Value>
    149  ;;<CodingSystem>UMLS Concept</CodingSystem>
    150  ;;<Version>2006</Version>
    151  ;;</Code>
    152  ;;<Code>
    153  ;;<Value>429.9</Value>
    154  ;;<CodingSystem>ICD9CM</CodingSystem>
    155  ;;<Version>2006</Version>
    156  ;;</Code>
    157  ;;<Code>
    158  ;;<Value>56265001</Value>
    159  ;;<CodingSystem>SNOMEDCT</CodingSystem>
    160  ;;<Version>2006</Version>
    161  ;;</Code>
    162  ;;</Description>
    163  ;;<Source>
    164  ;;<Actor>
    165  ;;<ActorID>AA0001</ActorID>
    166  ;;</Actor>
    167  ;;</Source>
    168  ;;</Problem>
    169  ;;</FamilyProblemHistory>
    170  ;;<FamilyProblemHistory>
    171  ;;<CCRDataObjectID>BB0003</CCRDataObjectID>
    172  ;;<Source>
    173  ;;<Actor>
    174  ;;<ActorID>AA0001</ActorID>
    175  ;;</Actor>
    176  ;;</Source>
    177  ;;<FamilyMember>
    178  ;;<ActorID>AA0004</ActorID>
    179  ;;<ActorRole>
    180  ;;<Text>Grandparents</Text>
    181  ;;</ActorRole>
    182  ;;<Source>
    183  ;;<Actor>
    184  ;;<ActorID>AA0001</ActorID>
    185  ;;</Actor>
    186  ;;</Source>
    187  ;;</FamilyMember>
    188  ;;<Problem>
    189  ;;<Type>
    190  ;;<Text>Problem</Text>
    191  ;;</Type>
    192  ;;<Description>
    193  ;;<Text>Arthritis</Text>
    194  ;;<Code>
    195  ;;<Value>C0003873</Value>
    196  ;;<CodingSystem>UMLS Concept</CodingSystem>
    197  ;;<Version>2006</Version>
    198  ;;</Code>
    199  ;;<Code>
    200  ;;<Value>714.0</Value>
    201  ;;<CodingSystem>ICD9CM</CodingSystem>
    202  ;;<Version>2006</Version>
    203  ;;</Code>
    204  ;;<Code>
    205  ;;<Value>69896004</Value>
    206  ;;<CodingSystem>SNOMEDCT</CodingSystem>
    207  ;;<Version>2006</Version>
    208  ;;</Code>
    209  ;;</Description>
    210  ;;<Source>
    211  ;;<Actor>
    212  ;;<ActorID>AA0001</ActorID>
    213  ;;</Actor>
    214  ;;</Source>
    215  ;;</Problem>
    216  ;;<Problem>
    217  ;;<Type>
    218  ;;<Text>Problem</Text>
    219  ;;</Type>
    220  ;;<Description>
    221  ;;<Text>Diabetes Mellitus</Text>
    222  ;;<Code>
    223  ;;<Value>C0375113</Value>
    224  ;;<CodingSystem>UMLS Concept</CodingSystem>
    225  ;;<Version>2006</Version>
    226  ;;</Code>
    227  ;;<Code>
    228  ;;<Value>250.00</Value>
    229  ;;<CodingSystem>ICD9CM</CodingSystem>
    230  ;;<Version>2006</Version>
    231  ;;</Code>
    232  ;;</Description>
    233  ;;<Source>
    234  ;;<Actor>
    235  ;;<ActorID>AA0001</ActorID>
    236  ;;</Actor>
    237  ;;</Source>
    238  ;;</Problem>
    239  ;;<Problem>
    240  ;;<Type>
    241  ;;<Text>Problem</Text>
    242  ;;</Type>
    243  ;;<Description>
    244  ;;<Text>Parkinson's disease NOS</Text>
    245  ;;<Code>
    246  ;;<Value>332.0</Value>
    247  ;;<CodingSystem>ICD9CM</CodingSystem>
    248  ;;<Version>2007</Version>
    249  ;;</Code>
    250  ;;</Description>
    251  ;;<Source>
    252  ;;<Actor>
    253  ;;<ActorID>AA0001</ActorID>
     146 ;;<Text>@@FAMILYMEMBERPROBLEMDESCRIPTION@@</Text>
     147 ;;<Code>
     148 ;;<Value>@@FAMILYMEMBERPROBLEMCODE@@</Value>
     149 ;;<CodingSystem>@@FAMILYMEMBERCODESYSTEM@@</CodingSystem>
     150 ;;<Version>@@FAMILYMEMBERCODEVERSION@@</Version>
     151 ;;</Code>
     152 ;;</Description>
     153 ;;<Source>
     154 ;;<Actor>
     155 ;;<ActorID>@@FAMILYMEMBERPROBLEMSOURCEID@@</ActorID>
    254156 ;;</Actor>
    255157 ;;</Source>
    … …  
    453355 ;;</Actor>
    454356 ;;</Source>
    455  ;;<Test>
     357 ;;<Test_1>
    456358 ;;<CCRDataObjectID>107c2dc0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    457359 ;;<DateTime>
    … …  
    494396 ;;</Normal>
    495397 ;;</NormalResult>
    496  ;;</Test>
    497  ;;<Test>
     398 ;;</Test_1>
     399 ;;<Test_2>
    498400 ;;<CCRDataObjectID>8b3fa370-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    499401 ;;<DateTime>
    … …  
    553455 ;;</Normal>
    554456 ;;</NormalResult>
    555  ;;</Test>
    556  ;;<Test>
     457 ;;</Test_2>
     458 ;;<Test_3>
    557459 ;;<CCRDataObjectID>80a6c740-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
    558460 ;;<DateTime>
    … …  
    615517 ;;<Text>LOW</Text>
    616518 ;;</Flag>
    617  ;;</Test>
     519 ;;</Test_3>
    618520 ;;</Result>
    619521 ;;<Result>
Note: See TracChangeset for help on using the changeset viewer.