NURAKIL1 ;HIRMFO/MD-CONT CLEAN-UP 1/15/96
;;4.0;NURSING SERVICE;**2,8,26**;Apr 25, 1997
K NTCAT,NTCB,NTCEN,NTCNT,NTCT,NTCV,NTD,NTLA,NTLAT,NTLB,NTLFTEE,NTLV,NTNA,NTNAT,NTNB,NTNPC,NTNV,NTOA,NTOB,NTOOT,NTOT,NTOTA,NTOTB,NTOTV,NTOV,NTRA,NTRAT,NTRB,NTRV,NUR,NUR1,NUR10,NUR2,NUR200,NUR200C,NUR200SC,NUR3,NURAACA,NURAES,NURAH,NURAHIGH
K NURANAM,NURANM,NURANUR,NURAROU,NURAS,NURASS,NURASSN,NURASTER,NURBAD,NURCAT,NURCENDT,NURCHK,NURCNT,NURCUTDT,NURDA,NURDAT,NURDATA,NURDAY,NURDFLT,NURDT,NUREND,NURFDT,NURGRD,NURGS,NURGS1,NURI,NURIDSP,NURINC,NURLOC,NURLS,NURNODE,NUROUT,NURS
K NURS1,NURS10SW,NURS11SW,NURS132,NURS13SW,NURS1SW,NURS2,NURS213,NURS3,NURS3SW,NURS4,NURS4SW,NURS5SW,NURS6SW,NURS7SW,NURS8SW,NURS9SW,NURSA,NURSADD,NURSADD1,NURSADD2,NURSADD3,NURSADM,NURSAL,NURSANM,NURSASS,NURSBAD,NURSBS,NURSBS1,NURSBSF,NURSCAT
K NURSCITY,NURSCKSW,NURSCLAS,NURSCNT,NURSCODE,NURSCRDT,NURSDAT,NURSDATE,NURSDBA,NURSDFLT,NURSDIS,NURSDT,NURSDTSW,NURSEL,NURSEMP,NURSFOLD,NURSFT,NURSHDR,NURSHFT,NURSHOLD,NURSI,NURSIOP,NURSITE,NURSJ,NURSL,NURSLCS,NURSLEV,NURSLO,NURSLS,NURSM
K NURSNAM,NURSNBR,NURSNBRA,NURSNBRN,NURSNP,NURSNPOS,NURSNSW,NURSNXT,NURSOLD,NURSOLDC,NURSOPOS,NURSOPT,NURSPAGE,NURSPC,NURSPO,NURSPOS,NURSPRI0,NURSPRI1,NURSQ,NURSREV,NURSRMBD,NURSRTSW,NURSRVDT,NURSS,NURSSEL,NURSSP,NURSSSN,NURST,NURSTABL,NURSTAT
K NURSTATE,NURSTCLS,NURSTDT,NURSTIL,NURSTIL1,NURSTIL2,NURSTP,NURSTRAN,NURSTYP,NURSTYPE,NURSUL,NURSUSER,NURSVAR,NURAVER,NURSW,NURSW1,NURSWARD,NURSWHEN,NURSWHO,NURSWOLD,NURSX,NURSXX,NURSY,NURSZ,NURSZAP,NURSZDA,NURSZIP,NURSZLO,NURSZORT,NURSZSP
K NURFTEE,NURTIME,NURTYPE,NURUP,NURX,NURY,NURZ,NURSTIL2,NUX,NVAR,NW,NWARD,NWC,NWFCTSW,NWFTEE,NWPC,NWPCC,NWPROD,NWRD,NWRDVAR,NWREQ,NWVAR,NXT,NY,NZ,OPT,OUTSW,PADMDT,PAGE,PATNAM,PG,NURPLSW,PREV,PRTSW,PURGDATE,QTR,QUART,REC,RECNUM,REENTSW,NUREQWRD
K REVDATE,REVIEWER,REVNO,REVSW,RMSEL,RNTL,ROOMTABL,RPTDATE,SAVEADD,SAVEADD2,SAVEADD3,SAVECITY,SAVENODE,SAVESTAT,SAVEX,SAVEZIP,SEL,SHFT,SHIFT,SP,SSN,STAFFNO,NURSUMSW,T,TABLSW,TBUDG,TBUGD,TCNT,TL,TO,TX,TYP,TYPE,USENO,USERX,VA,VAERR,VADM,VAIN
K COUNTSW,NBPCC,VAINDT,VAROOT,WARD,WARDNAM,X,X1,X2,XAGE,XCLAS,XHQ,XMB,XQH,XQUIT,XRMBD,XX,XZ,Y,YEAR,YR,YY,Z,ZA,ZERONOD,ZNDA,ZTSAVE,ZX,ZY,ZZ,MNHRS,COUNT,NSECT,NWCNT,DMNHRS,DCOUNT,SECT,ZCNT,Z1,ND,NTOAT,SW,WCOUNT,WMNHRS,YRSW,AA,ALPN
K VA200DA,NX,IOP,ANA,ARN,BLPN,BNA,BRN,NC,PC1,PC2,PCT,PRT,TOT1,TOT2,TOTA,TOTB,UNIT,VAR,ZTREQ,NURFAC,NURPROG,PROG,PSUBC,PSUBM,PSUBT,NURSZFAC,NSCRN,NFVAR,NFTCEN,NFTC,NFREQ,NFPROD,NFPCC,NFPC,NFFTEE,NFCVR,NFCPRD,NFCFT,MFHRS,FSUBC,FSUBT,FSUBM,FNT,FCT
K NURSPOLD,NURSMOLD,DIC44DA,DIC4DA,NFAC,NPROG,NURN1,NURNL1,NURPLSCR,NURSFAC,NURSPROG,NURSNLOC,NURPFAC,NURSDA,NURPPROD,NCOPY,XXX
; *** Kernel variables
K %,%I,%T,%DT,%W,%X,%H,%Y,%Y1,%ZIS
K XMDUZ,XMSUB,XMTEXT,XMY
K XQA,XQAMSG,X,Y,Z
K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURAKIL1 2798 printed Oct 16, 2024@18:20:10 Page 2
NURAKIL1 ;HIRMFO/MD-CONT CLEAN-UP 1/15/96
+1 ;;4.0;NURSING SERVICE;**2,8,26**;Apr 25, 1997
+2 KILL NTCAT,NTCB,NTCEN,NTCNT,NTCT,NTCV,NTD,NTLA,NTLAT,NTLB,NTLFTEE,NTLV,NTNA,NTNAT,NTNB,NTNPC,NTNV,NTOA,NTOB,NTOOT,NTOT,NTOTA,NTOTB,NTOTV,NTOV,NTRA,NTRAT,NTRB,NTRV,NUR,NUR1,NUR10,NUR2,NUR200,NUR200C,NUR200SC,NUR3,NURAACA,NURAES,NURAH,NURAHIGH
+3 KILL NURANAM,NURANM,NURANUR,NURAROU,NURAS,NURASS,NURASSN,NURASTER,NURBAD,NURCAT,NURCENDT,NURCHK,NURCNT,NURCUTDT,NURDA,NURDAT,NURDATA,NURDAY,NURDFLT,NURDT,NUREND,NURFDT,NURGRD,NURGS,NURGS1,NURI,NURIDSP,NURINC,NURLOC,NURLS,NURNODE,NUROUT,NURS
+4 KILL NURS1,NURS10SW,NURS11SW,NURS132,NURS13SW,NURS1SW,NURS2,NURS213,NURS3,NURS3SW,NURS4,NURS4SW,NURS5SW,NURS6SW,NURS7SW,NURS8SW,NURS9SW,NURSA,NURSADD,NURSADD1,NURSADD2,NURSADD3,NURSADM,NURSAL,NURSANM,NURSASS,NURSBAD,NURSBS,NURSBS1,NURSBSF,NURSC
AT
+5 KILL NURSCITY,NURSCKSW,NURSCLAS,NURSCNT,NURSCODE,NURSCRDT,NURSDAT,NURSDATE,NURSDBA,NURSDFLT,NURSDIS,NURSDT,NURSDTSW,NURSEL,NURSEMP,NURSFOLD,NURSFT,NURSHDR,NURSHFT,NURSHOLD,NURSI,NURSIOP,NURSITE,NURSJ,NURSL,NURSLCS,NURSLEV,NURSLO,NURSLS,NURSM
+6 KILL NURSNAM,NURSNBR,NURSNBRA,NURSNBRN,NURSNP,NURSNPOS,NURSNSW,NURSNXT,NURSOLD,NURSOLDC,NURSOPOS,NURSOPT,NURSPAGE,NURSPC,NURSPO,NURSPOS,NURSPRI0,NURSPRI1,NURSQ,NURSREV,NURSRMBD,NURSRTSW,NURSRVDT,NURSS,NURSSEL,NURSSP,NURSSSN,NURST,NURSTABL,NURST
AT
+7 KILL NURSTATE,NURSTCLS,NURSTDT,NURSTIL,NURSTIL1,NURSTIL2,NURSTP,NURSTRAN,NURSTYP,NURSTYPE,NURSUL,NURSUSER,NURSVAR,NURAVER,NURSW,NURSW1,NURSWARD,NURSWHEN,NURSWHO,NURSWOLD,NURSX,NURSXX,NURSY,NURSZ,NURSZAP,NURSZDA,NURSZIP,NURSZLO,NURSZORT,NURSZSP
+8 KILL NURFTEE,NURTIME,NURTYPE,NURUP,NURX,NURY,NURZ,NURSTIL2,NUX,NVAR,NW,NWARD,NWC,NWFCTSW,NWFTEE,NWPC,NWPCC,NWPROD,NWRD,NWRDVAR,NWREQ,NWVAR,NXT,NY,NZ,OPT,OUTSW,PADMDT,PAGE,PATNAM,PG,NURPLSW,PREV,PRTSW,PURGDATE,QTR,QUART,REC,RECNUM,REENTSW,NUREQW
RD
+9 KILL REVDATE,REVIEWER,REVNO,REVSW,RMSEL,RNTL,ROOMTABL,RPTDATE,SAVEADD,SAVEADD2,SAVEADD3,SAVECITY,SAVENODE,SAVESTAT,SAVEX,SAVEZIP,SEL,SHFT,SHIFT,SP,SSN,STAFFNO,NURSUMSW,T,TABLSW,TBUDG,TBUGD,TCNT,TL,TO,TX,TYP,TYPE,USENO,USERX,VA,VAERR,VADM,VAIN
+10 KILL COUNTSW,NBPCC,VAINDT,VAROOT,WARD,WARDNAM,X,X1,X2,XAGE,XCLAS,XHQ,XMB,XQH,XQUIT,XRMBD,XX,XZ,Y,YEAR,YR,YY,Z,ZA,ZERONOD,ZNDA,ZTSAVE,ZX,ZY,ZZ,MNHRS,COUNT,NSECT,NWCNT,DMNHRS,DCOUNT,SECT,ZCNT,Z1,ND,NTOAT,SW,WCOUNT,WMNHRS,YRSW,AA,ALPN
+11 KILL VA200DA,NX,IOP,ANA,ARN,BLPN,BNA,BRN,NC,PC1,PC2,PCT,PRT,TOT1,TOT2,TOTA,TOTB,UNIT,VAR,ZTREQ,NURFAC,NURPROG,PROG,PSUBC,PSUBM,PSUBT,NURSZFAC,NSCRN,NFVAR,NFTCEN,NFTC,NFREQ,NFPROD,NFPCC,NFPC,NFFTEE,NFCVR,NFCPRD,NFCFT,MFHRS,FSUBC,FSUBT,FSUBM,FNT,
FCT
+12 KILL NURSPOLD,NURSMOLD,DIC44DA,DIC4DA,NFAC,NPROG,NURN1,NURNL1,NURPLSCR,NURSFAC,NURSPROG,NURSNLOC,NURPFAC,NURSDA,NURPPROD,NCOPY,XXX
+13 ; *** Kernel variables
+14 KILL %,%I,%T,%DT,%W,%X,%H,%Y,%Y1,%ZIS
+15 KILL XMDUZ,XMSUB,XMTEXT,XMY
+16 KILL XQA,XQAMSG,X,Y,Z
+17 KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
+18 QUIT
