©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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