source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGACTIV.m@ 1806

Last change on this file since 1806 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1RGACTIV ;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
4EN(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)
11PIVOT ; 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
19EXC ;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)
22QUIT ;
23 K DFN,RGMSG,MSG,MSGDATA,RETURN,SITE,X
24 Q
Note: See TracBrowser for help on using the repository browser.