PRSEKILL ;HISC/DAD-CLEAN-UP ;11/23/94  12:32
 ;;4.0;PAID;**5,46**;Sep 21, 1995
 ;
 K PCOUNT,C,CLASS,CLASSERV,CLASSIEN,CLASSNUM,CLASSTXT,COMPLIAN,CORGCODE
 K CORGCOST,COSTCEN,COUNT,D,D0,D1,D2,DA,DAT,DATA,DATE,DATSEL,DC,DD,DDH
 K DEF,DI,DIC,DIDEL,DIE,DIEL,DIFQ,DIFROM,DIK,DINUM,DIPE,DIR,DIROUT,DIRUT
 K DIG,DIH,DIV
 K DIU,DIZ,DK,DL,DLAYGO,DM,DO,DOUT,DP,DQ,DR,DR1,DROPDEAD,DTOUT,DUOUT,DUP
 K DW,FOUND,FREQ,HDRCLAS,HDRDATE,HOLD,HOLD1,HOLD2,HOSP,I,IEN,II,III,IOP,J
 K LAST,LASTDATE,LASTDAY,LNTH,MN,MONTH,N0,N1,N2,NAM,NCD,NCD1,NCLAS,NCNT
 K NCTR,NDA,NDATA,NDUPSW,NI,NIC,NIC1,NLOC,NOD1,NOD2,NOUT,NPC,NPCT,NQ,NQT
 K NSCT,NSORT,NSP,NSPC,NSW,NSW1,NSW2,NURSOUT,ONESERV,PAIDVER,PCNT,PDA
 K PDATA,PDATE,PHD,PHRS,POP,POUT,PRCOD,PRDA,PRDAT,PRMI,PRS454,PRSCLAS
 K PRSDA,PRSE,PRSE1,PRSE132,PRSE2,PRSE200,PRSEACC,PRSEACT,PRSEAQ,PRSEBAD
 K PRSECAL,PRSECAT,PRSECD0,PRSECEU,PRSECHOF,PRSECHON,PRSECHR,PRSECLA
 K PRSECLAS,PRSECLS,PRSECLS1,PRSECNT,PRSECOD,PRSECOM,PRSECORD,PRSED0
 K PRSED1,PRSEDA,PRSEDA1,PRSEDAA,PRSEDAT,PRSEDATA,PRSEDATE,PRSEDCOS
 K PRSEDEF,PRSEDONE,PRSEDT,PRSEDT1,PRSEDTAS,PRSEDUP,PRSEDUPL,PRSEED
 K PRSEEDAT,PRSEEDT,PRSEEMP,PRSEEND,PRSEFIL,PRSEFILE,PRSEGD0,PRSEGD1
 K PRSEGF,PRSEGLO,PRSEGOV,PRSEGRP,PRSEHOUR,PRSEI,PRSEICOS,PRSEIEN,PRSEII
 K PRSELCL,PRSELEN,PRSELNG,PRSELOC,PRSEMAX,PRSEMI,PRSEMISC,PRSEN,PRSENAM
 K PRSENAME,PRSEND,PRSENEW,PRSENM,PRSENODE,PRSENOW,PRSENTR,PRSENALL,PRSEORG
 K PRSEOUT,PRSEPAGE,PRSEPD1,PRSEPOS,PRSEPREV,PRSEPRNT,PRSEPROG,PRSEPURP
 K PRSEQUIT,PRSEQWIK,PRSERES,PRSEROU,PRSEROUT,PRSESAVX,PRSESEL,PRSESER,PRSESERV
 K PRSESL,PRSESLF,PRSESOR,PRSESORT,PRSESP1,PRSESP2,PRSESRCE,PRSESRV
 K PRSESSN,PRSESTRT,PRSESTUD,PRSESUP,PRSESVC,PRSESW,PRSESWP,PRSETAB
 K PRSETL,PRSETRN,PRSETXT,PRSETYED,PRSETYP,PRSETYPE,PRSEUNDL,PRSEVER
 K PRSEW,PRSEX,PRSEXMY,PRSEY,PRSEZ,PRSPCD0,PRSPDA,PRSVC,PRSW,PRSX,PRSXSW
 K RCNT,RHRS,PRDATA,PRX,PSP,PSPC,PSV,PSVC,PTAB,PURDA,PURP,PYR,REGSW,SAVEDA,SCNT,SE1,SER
 K VA450DA,SHRS,SSN,TMP,TOT,TYP,VA,VA200,VA200DA,W,WRITE,X,X1,X2,X3,XT1,XT2,XT3
 K XT4,XX,XX1,XX2,XXX,Y,YEAR,YR,YRCHK,YREND,YRST,YY,YYY,Z,ZZ,ZZZ,ZTQUEUED,ZTREQ
 ; *** Kernel variables
 K %,%1,%2,%3,%DT,%TG,%W,%X,%XD1,%Y,%Y1,%ZIS
 K XMDUZ,XMSUB,XMTEXT,XMY
 K XQA,XQAMSG
 K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
 Q