PRSEKILL.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSEKILL   2249     printed  Mar 13, 2025@21:31:43                                                                                                                                                                                                    Page 2

PRSEKILL  ;HISC/DAD-CLEAN-UP ;11/23/94  12:32

 +1       ;;4.0;PAID;**5,46**;Sep 21, 1995

 +2       ;

 +3        KILL PCOUNT,C,CLASS,CLASSERV,CLASSIEN,CLASSNUM,CLASSTXT,COMPLIAN,CORGCODE

 +4        KILL CORGCOST,COSTCEN,COUNT,D,D0,D1,D2,DA,DAT,DATA,DATE,DATSEL,DC,DD,DDH

 +5        KILL DEF,DI,DIC,DIDEL,DIE,DIEL,DIFQ,DIFROM,DIK,DINUM,DIPE,DIR,DIROUT,DIRUT

 +6        KILL DIG,DIH,DIV

 +7        KILL DIU,DIZ,DK,DL,DLAYGO,DM,DO,DOUT,DP,DQ,DR,DR1,DROPDEAD,DTOUT,DUOUT,DUP

 +8        KILL DW,FOUND,FREQ,HDRCLAS,HDRDATE,HOLD,HOLD1,HOLD2,HOSP,I,IEN,II,III,IOP,J

 +9        KILL LAST,LASTDATE,LASTDAY,LNTH,MN,MONTH,N0,N1,N2,NAM,NCD,NCD1,NCLAS,NCNT

 +10       KILL NCTR,NDA,NDATA,NDUPSW,NI,NIC,NIC1,NLOC,NOD1,NOD2,NOUT,NPC,NPCT,NQ,NQT

 +11       KILL NSCT,NSORT,NSP,NSPC,NSW,NSW1,NSW2,NURSOUT,ONESERV,PAIDVER,PCNT,PDA

 +12       KILL PDATA,PDATE,PHD,PHRS,POP,POUT,PRCOD,PRDA,PRDAT,PRMI,PRS454,PRSCLAS

 +13       KILL PRSDA,PRSE,PRSE1,PRSE132,PRSE2,PRSE200,PRSEACC,PRSEACT,PRSEAQ,PRSEBAD

 +14       KILL PRSECAL,PRSECAT,PRSECD0,PRSECEU,PRSECHOF,PRSECHON,PRSECHR,PRSECLA

 +15       KILL PRSECLAS,PRSECLS,PRSECLS1,PRSECNT,PRSECOD,PRSECOM,PRSECORD,PRSED0

 +16       KILL PRSED1,PRSEDA,PRSEDA1,PRSEDAA,PRSEDAT,PRSEDATA,PRSEDATE,PRSEDCOS

 +17       KILL PRSEDEF,PRSEDONE,PRSEDT,PRSEDT1,PRSEDTAS,PRSEDUP,PRSEDUPL,PRSEED

 +18       KILL PRSEEDAT,PRSEEDT,PRSEEMP,PRSEEND,PRSEFIL,PRSEFILE,PRSEGD0,PRSEGD1

 +19       KILL PRSEGF,PRSEGLO,PRSEGOV,PRSEGRP,PRSEHOUR,PRSEI,PRSEICOS,PRSEIEN,PRSEII

 +20       KILL PRSELCL,PRSELEN,PRSELNG,PRSELOC,PRSEMAX,PRSEMI,PRSEMISC,PRSEN,PRSENAM

 +21       KILL PRSENAME,PRSEND,PRSENEW,PRSENM,PRSENODE,PRSENOW,PRSENTR,PRSENALL,PRSEORG

 +22       KILL PRSEOUT,PRSEPAGE,PRSEPD1,PRSEPOS,PRSEPREV,PRSEPRNT,PRSEPROG,PRSEPURP

 +23       KILL PRSEQUIT,PRSEQWIK,PRSERES,PRSEROU,PRSEROUT,PRSESAVX,PRSESEL,PRSESER,PRSESERV

 +24       KILL PRSESL,PRSESLF,PRSESOR,PRSESORT,PRSESP1,PRSESP2,PRSESRCE,PRSESRV

 +25       KILL PRSESSN,PRSESTRT,PRSESTUD,PRSESUP,PRSESVC,PRSESW,PRSESWP,PRSETAB

 +26       KILL PRSETL,PRSETRN,PRSETXT,PRSETYED,PRSETYP,PRSETYPE,PRSEUNDL,PRSEVER

 +27       KILL PRSEW,PRSEX,PRSEXMY,PRSEY,PRSEZ,PRSPCD0,PRSPDA,PRSVC,PRSW,PRSX,PRSXSW

 +28       KILL RCNT,RHRS,PRDATA,PRX,PSP,PSPC,PSV,PSVC,PTAB,PURDA,PURP,PYR,REGSW,SAVEDA,SCNT,SE1,SER

 +29       KILL VA450DA,SHRS,SSN,TMP,TOT,TYP,VA,VA200,VA200DA,W,WRITE,X,X1,X2,X3,XT1,XT2,XT3

 +30       KILL XT4,XX,XX1,XX2,XXX,Y,YEAR,YR,YRCHK,YREND,YRST,YY,YYY,Z,ZZ,ZZZ,ZTQUEUED,ZTREQ

 +31      ; *** Kernel variables

 +32       KILL %,%1,%2,%3,%DT,%TG,%W,%X,%XD1,%Y,%Y1,%ZIS

 +33       KILL XMDUZ,XMSUB,XMTEXT,XMY

 +34       KILL XQA,XQAMSG

 +35       KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK

 +36       QUIT