From 8602f515dee5676a0987a7ad5cb87570dc96ee82 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Wed, 25 Feb 2009 04:27:46 +0000
Subject: [PATCH] correction to call to ^%ZOSF("TEST")

---
 p/GPLACTOR.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/p/GPLACTOR.m b/p/GPLACTOR.m
index a18e24f..8a7a5ca 100644
--- a/p/GPLACTOR.m
+++ b/p/GPLACTOR.m
@@ -95,7 +95,7 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
  S @AMAP@("ACTORSSN")=""
  S @AMAP@("ACTORSSNTEXT")=""
  S @AMAP@("ACTORSSNSOURCEID")=""
- S X="^MSCDPTID" ; ROUTINE TO TEST FOR MRN ON OPENVISTA
+ S X="MSCDPTID" ; ROUTINE TO TEST FOR MRN ON OPENVISTA
  X ^%ZOSF("TEST") ; TEST TO SEE IF THE ROUTINE EXISTS
  I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
  I $D(MRN) D  ; IF MRN IS PRESENT