fixed null DFN bug in PTST^CCRSYS

2008-09-05 19:35:07 +00:00 · 2008-09-05 19:35:07 +00:00 · 1a381d4ae6
parent 041a25d326
commit 1a381d4ae6
1 changed files with 1 additions and 0 deletions
--- 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
         ;