Index: EWPAL.mac.rou
===================================================================
diff -u -r47554 -r56296
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 47554)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 56296)
@@ -607,8 +607,8 @@
  
 GOODPALID(PRNr,PalId)
  Quit:PalId="00000000" 0
- Quit 1 ;((PalId?1(8N,3"0"1"K"4N,4"0"1"L"3N))||($D(^KPR(PRNr,"J6332"))&&($L(PalId)=8)&&(PalId?1(2.5"0"2.5A1N,1"O1"6N,1"0T"6N,3.4N1A3.4N,1"SFS"5N,1"TBX"5N,1"00X"5N,1"TBP"5N))))
-  
+ Quit ((PalId?1(8N,3"0"1(1"T",1"K")4N,4"0"1"L"3N,2N1A2N1A2N))||($D(^KPR(PRNr,"J6332"))&&($L(PalId)=8)&&(PalId?1(2.5"0"2.5A1N,1"O1"6N,1"0T"6N,3.4N1A3.4N,1"SFS"5N,1"TBX"5N,1"00X"5N,1"TBP"5N))))
+ 
 PALID(PRNr,PalId,OpslagPl) 
  Quit:$$GOODPALID(PRNr,PalId)
  New Tekst,MailId,Lnk,Mag
@@ -678,4 +678,3 @@
 
 
 
-