| 1 | RGACTIV ;BAY/ALS-MPI/PD PATIENT ACTIVITY INFORMATION ;03/08/02
|
|---|
| 2 | ;;1.0;CLINICAL INFO RESOURCE NETWORK;**25,48**;30 Apr 99;Build 3
|
|---|
| 3 | ; Reference to ^VAT(391.71 supported by IA# 3422
|
|---|
| 4 | EN(ARRAY,ICN,SSN) ;
|
|---|
| 5 | I '$D(ICN) S ARRAY(0)="-1^ICN NOT PASSED" G QUIT
|
|---|
| 6 | S DFN=$$GETDFN^MPIF001(ICN)
|
|---|
| 7 | I DFN<1 S ARRAY(ICN,0)=DFN G QUIT
|
|---|
| 8 | ;S SITE=+$$SITE^VASITE()
|
|---|
| 9 | ;**48 CHANGE TO PASS STATION NUMBER
|
|---|
| 10 | S SITE=$P($$SITE^VASITE(),"^",3)
|
|---|
| 11 | PIVOT ; Get message information from ADT/HL7 PIVOT file
|
|---|
| 12 | S RGMSG="",MSGDATA=""
|
|---|
| 13 | I $D(^VAT(391.71,"C",DFN)) D
|
|---|
| 14 | . S MSG=0 S MSG=$O(^VAT(391.71,"C",DFN,MSG)) Q:'MSG D
|
|---|
| 15 | .. S DIC="391.71",DR=".01;.04;2.1",DA=MSG,DIQ="RGMSG",DIQ(0)="E"
|
|---|
| 16 | .. D EN^DIQ1 K DIC,DR,DA,DIQ
|
|---|
| 17 | .. S MSGDATA=RGMSG(391.71,MSG,.04,"E")_"^"_RGMSG(391.71,MSG,.01,"E")_"^"_MSG_"^"_RGMSG(391.71,MSG,2.1,"E")
|
|---|
| 18 | .. S ARRAY(ICN,SITE,"PIVOT",MSG)=ICN_"^"_SITE_"^"_"PIVOT^"_MSGDATA
|
|---|
| 19 | EXC ;Get exception information
|
|---|
| 20 | D GETEX^RGEX03(.RETURN,DFN)
|
|---|
| 21 | S X=0 F S X=$O(RETURN(X)) Q:'X S ARRAY(ICN,SITE,"EXC",X)=ICN_"^"_SITE_"^"_"EXC^"_RETURN(X)
|
|---|
| 22 | QUIT ;
|
|---|
| 23 | K DFN,RGMSG,MSG,MSGDATA,RETURN,SITE,X
|
|---|
| 24 | Q
|
|---|
