Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGACTIV

RGACTIV.m

Go to the documentation of this file.
  1. RGACTIV ;BAY/ALS-MPI/PD PATIENT ACTIVITY INFORMATION ;03/08/02
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**25,48**;30 Apr 99;Build 3
  1. ; Reference to ^VAT(391.71 supported by IA# 3422
  1. EN(ARRAY,ICN,SSN) ;
  1. I '$D(ICN) S ARRAY(0)="-1^ICN NOT PASSED" G QUIT
  1. S DFN=$$GETDFN^MPIF001(ICN)
  1. I DFN<1 S ARRAY(ICN,0)=DFN G QUIT
  1. ;S SITE=+$$SITE^VASITE()
  1. ;**48 CHANGE TO PASS STATION NUMBER
  1. S SITE=$P($$SITE^VASITE(),"^",3)
  1. PIVOT ; Get message information from ADT/HL7 PIVOT file
  1. S RGMSG="",MSGDATA=""
  1. I $D(^VAT(391.71,"C",DFN)) D
  1. . S MSG=0 S MSG=$O(^VAT(391.71,"C",DFN,MSG)) Q:'MSG D
  1. .. S DIC="391.71",DR=".01;.04;2.1",DA=MSG,DIQ="RGMSG",DIQ(0)="E"
  1. .. D EN^DIQ1 K DIC,DR,DA,DIQ
  1. .. S MSGDATA=RGMSG(391.71,MSG,.04,"E")_"^"_RGMSG(391.71,MSG,.01,"E")_"^"_MSG_"^"_RGMSG(391.71,MSG,2.1,"E")
  1. .. S ARRAY(ICN,SITE,"PIVOT",MSG)=ICN_"^"_SITE_"^"_"PIVOT^"_MSGDATA
  1. EXC ;Get exception information
  1. D GETEX^RGEX03(.RETURN,DFN)
  1. S X=0 F S X=$O(RETURN(X)) Q:'X S ARRAY(ICN,SITE,"EXC",X)=ICN_"^"_SITE_"^"_"EXC^"_RETURN(X)
  1. QUIT ;
  1. K DFN,RGMSG,MSG,MSGDATA,RETURN,SITE,X
  1. Q