From 1a381d4ae6433142b8ce50e5878883a2ac52caf7 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Fri, 5 Sep 2008 19:35:07 +0000
Subject: [PATCH] fixed null DFN bug in PTST^CCRSYS

---
 p/CCRSYS.m | 1 +
 1 file changed, 1 insertion(+)

diff --git a/p/CCRSYS.m b/p/CCRSYS.m
index 1fd2abf..c01d1ca 100644
--- a/p/CCRSYS.m
+++ b/p/CCRSYS.m
@@ -37,6 +37,7 @@ PTST(DFN) ;TEST TO SEE IF PATIENT MERGED OR A TEST PATIENT
          ; 1 = Merged or Test Patient
          ; 0 = Non-test Patient
          ;
+         I DFN="" Q 0  ; BAD DFN PASSED
          I $D(^DPT(DFN,-9)) Q 1  ;This patient has been merged
          I $G(^DPT(DFN,0))="" Q 1  ;Missing zeroth node <---add
          ;