Index: EWPAL.mac.rou
===================================================================
diff -u -r48848 -r48948
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 48848)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 48948)
@@ -584,7 +584,7 @@
  
 GOODPALID(PRNr,PalId)
  Quit:PalId="00000000" 0
- Quit 1 ;((PalId?3N1(1"K",1N)4N)||($D(^KPR(PRNr,"J6332"))&($L(PalId)=8)&(PalId?1(2.5"0"2.5A1N,1"0"1"T"6N,3.4N1A3.4N,1"SFS"5N,1"TBX"5N,1"00X"5N,1"TBP"5N))))
+ Quit ((PalId?3N1(1"K",1N)4N)||($D(^KPR(PRNr,"J6332"))&($L(PalId)=8)&(PalId?1(2.5"0"2.5A1N,1"0"1"T"6N,3.4N1A3.4N,1"SFS"5N,1"TBX"5N,1"00X"5N,1"TBP"5N))))
  
 PALID(PRNr,PalId,OpslagPl) 
  Quit:$$GOODPALID(PRNr,PalId)