call $$SITE^VASITE for INSTITUTION NAME
This commit is contained in:
george
parent
cb206995de
commit
a2406ebd0f
|
|
@ -132,7 +132,7 @@ ORG(INXML,ACTREC,OUTXML) ; PROCESS AN ORGANIZATION TYPE ACTOR
|
|||
; N AMAP
|
||||
S AMAP=$NA(^TMP($J,"AMAP"))
|
||||
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
|
||||
S @AMAP@("ORGANIZATIONNAME")="WORLDVISTA EHR CLINIC"
|
||||
S @AMAP@("ORGANIZATIONNAME")=$P($$SITE^VASITE,U,2)
|
||||
S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1"
|
||||
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
|
||||
Q
|
||||
|
|
@ -145,10 +145,10 @@ PROVIDER(INXML,ACTREC,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
|
|||
S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
|
||||
S @AMAP@("ACTORMIDDLENAME")=$$MIDDLE^CCRVA200(AIEN)
|
||||
S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^CCRVA200(AIEN)
|
||||
S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
|
||||
S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
|
||||
S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
|
||||
S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
|
||||
S @AMAP@("ACTORTITLE")=$$TITLE^CCRVA200(AIEN)
|
||||
S @AMAP@("IDTYPE")=$P($$NPI^CCRVA200(AIEN),U,1)
|
||||
S @AMAP@("ID")=$P($$NPI^CCRVA200(AIEN),U,2)
|
||||
S @AMAP@("IDDESC")=$P($$NPI^CCRVA200(AIEN),U,3)
|
||||
S @AMAP@("ACTORSPECIALITY")=$$SPEC^CCRVA200(AIEN)
|
||||
S @AMAP@("ACTORADDRESSTYPE")=$$ADDTYPE^CCRVA200(AIEN)
|
||||
S @AMAP@("ACTORADDRESSLINE1")=$$ADDLINE1^CCRVA200(AIEN)
|
||||
|
|
|
|||
120
p/GPLCCR0.m
120
p/GPLCCR0.m
|
|
@ -143,114 +143,16 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;<Text>Problem</Text>
|
||||
;;</Type>
|
||||
;;<Description>
|
||||
;;<Text>Heart Disease</Text>
|
||||
;;<Text>@@FAMILYMEMBERPROBLEMDESCRIPTION@@</Text>
|
||||
;;<Code>
|
||||
;;<Value>C0018799</Value>
|
||||
;;<CodingSystem>UMLS Concept</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;<Code>
|
||||
;;<Value>429.9</Value>
|
||||
;;<CodingSystem>ICD9CM</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;<Code>
|
||||
;;<Value>56265001</Value>
|
||||
;;<CodingSystem>SNOMEDCT</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;<Value>@@FAMILYMEMBERPROBLEMCODE@@</Value>
|
||||
;;<CodingSystem>@@FAMILYMEMBERCODESYSTEM@@</CodingSystem>
|
||||
;;<Version>@@FAMILYMEMBERCODEVERSION@@</Version>
|
||||
;;</Code>
|
||||
;;</Description>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;</Problem>
|
||||
;;</FamilyProblemHistory>
|
||||
;;<FamilyProblemHistory>
|
||||
;;<CCRDataObjectID>BB0003</CCRDataObjectID>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;<FamilyMember>
|
||||
;;<ActorID>AA0004</ActorID>
|
||||
;;<ActorRole>
|
||||
;;<Text>Grandparents</Text>
|
||||
;;</ActorRole>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;</FamilyMember>
|
||||
;;<Problem>
|
||||
;;<Type>
|
||||
;;<Text>Problem</Text>
|
||||
;;</Type>
|
||||
;;<Description>
|
||||
;;<Text>Arthritis</Text>
|
||||
;;<Code>
|
||||
;;<Value>C0003873</Value>
|
||||
;;<CodingSystem>UMLS Concept</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;<Code>
|
||||
;;<Value>714.0</Value>
|
||||
;;<CodingSystem>ICD9CM</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;<Code>
|
||||
;;<Value>69896004</Value>
|
||||
;;<CodingSystem>SNOMEDCT</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;</Description>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;</Problem>
|
||||
;;<Problem>
|
||||
;;<Type>
|
||||
;;<Text>Problem</Text>
|
||||
;;</Type>
|
||||
;;<Description>
|
||||
;;<Text>Diabetes Mellitus</Text>
|
||||
;;<Code>
|
||||
;;<Value>C0375113</Value>
|
||||
;;<CodingSystem>UMLS Concept</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;<Code>
|
||||
;;<Value>250.00</Value>
|
||||
;;<CodingSystem>ICD9CM</CodingSystem>
|
||||
;;<Version>2006</Version>
|
||||
;;</Code>
|
||||
;;</Description>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;</Problem>
|
||||
;;<Problem>
|
||||
;;<Type>
|
||||
;;<Text>Problem</Text>
|
||||
;;</Type>
|
||||
;;<Description>
|
||||
;;<Text>Parkinson's disease NOS</Text>
|
||||
;;<Code>
|
||||
;;<Value>332.0</Value>
|
||||
;;<CodingSystem>ICD9CM</CodingSystem>
|
||||
;;<Version>2007</Version>
|
||||
;;</Code>
|
||||
;;</Description>
|
||||
;;<Source>
|
||||
;;<Actor>
|
||||
;;<ActorID>AA0001</ActorID>
|
||||
;;<ActorID>@@FAMILYMEMBERPROBLEMSOURCEID@@</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;</Problem>
|
||||
|
|
@ -452,7 +354,7 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;<ActorID>8a54f393-8015-460c-abd2-f29aad15481c</ActorID>
|
||||
;;</Actor>
|
||||
;;</Source>
|
||||
;;<Test>
|
||||
;;<Test_1>
|
||||
;;<CCRDataObjectID>107c2dc0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
|
||||
;;<DateTime>
|
||||
;;<Type>
|
||||
|
|
@ -493,8 +395,8 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;</Source>
|
||||
;;</Normal>
|
||||
;;</NormalResult>
|
||||
;;</Test>
|
||||
;;<Test>
|
||||
;;</Test_1>
|
||||
;;<Test_2>
|
||||
;;<CCRDataObjectID>8b3fa370-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
|
||||
;;<DateTime>
|
||||
;;<Type>
|
||||
|
|
@ -552,8 +454,8 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;</Source>
|
||||
;;</Normal>
|
||||
;;</NormalResult>
|
||||
;;</Test>
|
||||
;;<Test>
|
||||
;;</Test_2>
|
||||
;;<Test_3>
|
||||
;;<CCRDataObjectID>80a6c740-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
|
||||
;;<DateTime>
|
||||
;;<Type>
|
||||
|
|
@ -614,7 +516,7 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;<Flag>
|
||||
;;<Text>LOW</Text>
|
||||
;;</Flag>
|
||||
;;</Test>
|
||||
;;</Test_3>
|
||||
;;</Result>
|
||||
;;<Result>
|
||||
;;<CCRDataObjectID>a40027e0-67a5-11db-bd13-0800200c9a66</CCRDataObjectID>
|
||||
|
|
|
|||
Loading…
Reference in New Issue