NURAKILL.m

NURAKILL ;HIRMFO/MD,FT-CLEAN-UP ;8/9/96  09:28

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

 ;

 K A,ABORTSW,AN,ANS,ANS1,ANS2,ATD,B,BED,BEDSECT,BUDCK,BUDCK1,BY,CAT,CATL,CHANGESW,CHGSW,CHKVAR,CK,CLASDT,CLASS,CLASSREV,CLASSX,CLSDATE,CNDATE,CNWARD,COMMENTX,CONFIGX,PDA,SDA,NURSTRN,NOTBAL,NURA,NURAVER,DEFAULT,HDRDT,NRI

 K D,D0,D1,DA,DAFTEE,DATA,DATECL,DATENODE,DATETABL,DATEX,DAY,DD,DDH,DEG,DFLT,DFN,DHD,DI,DIC,DIE,DIFQ,DIK,DIR,DIWF,DIWR,DIZ,DLAYGO,DO,DQ,DR,DTC,DTCEN,DTL,DTOUT,DUOUT,DZ,NADMT

 K EAFTEE,ENTR,F1,F2,FACT,FACT1,FACTORS,FACTX,FCK,FLDS,FOUND,FR,FT,FY,G,HDATE,HEAD1,HEAD2,HRSW,I,ID,IFN,II,INX,J,K,L,LINE,LOOK,LPNTL,M,MNCHKDTE,MON,MONTH,MQSW,MSG

 K NBD,N,N1,N1E,N1EN,N2,NACT,NAD,NADATA,NADMDATE,NADMDT,NADT,NAFTE,NAFTEE,NAMIS,NAPROD,NARR,NASK,NATL,NAVG,NAX,NB,NBAD,NBCEN,NBDSECT,NBED,NBEDS,NBEDSECT

 K NBFTE,NBFTEE,NBK,NBPC,NBPROD,NBR,NBREQ,NBRK,NBSEC,NBUDCK,NBUDCK1,NBVAR,NURCAT,NCATPOS,NCDT

 K NCEN,NCFT,NCK,NCLAS,NCLASS,NCNT,NCPC,NCPCC,NCPROD,NCR,NCRQ,NCRT,NCT,NURCTA,NCVAR,NCWARD,NCX,NDA,NDAT,NDATA,NDATE,NDATED,NDATEX,NDD,NDFLT,NDFTEE,NDG

 K NURDOB,NDPC,NDPCC,NDPROD,NDREQ,NDT,NDVAR,NURNEN,NERR,NEV,NEWREV,NEWSW,NEXC,NEXCDA,NF1,NF2,NFC,NFCEN

 K NFCNT,NFI,NURFLAG,NFTE,NFTEE,NGR,NGRADE,NHCFT,NHCPC,NHCPCC,NHCPRD,NHCRQ,NHCVR,NHFTEE,NHIT,NURHOSP,NHOSPSW,NHPC,NHPCC,NHPROD,NHREQ,NHVAR,NI,NID,NIE

 K NJ,NK,NL,NL1,NL1BKSW,NLDT,NLDTPR,NLO,NLOC,NLOCN,NMCLASS,NMCNT,NMESS,NN,NNM,NNURSX,NO,NOD

 K NT,NOD1,NOD2,NURNODE4,NURNODE5,NODATSW,NODE,NODET,NOPATSW,NOREVSW,NOSW,NDTBAL,NUROUTSW,NPC1,NPC2,NPC3,NPC4,NPC5,NPC6,NPC7,NPC8,NPCC,NPERC,NPERCEN,NUROUT

 K NPLOC,NPO,NPODA,NPOS,NPR2,NPR3,NPR4,NPR5,NPR6,NPREV,NPRI,NPROD,NPSPOS,NPTCEN,NPTR,NPWARD,NURQUEUE

 K NQSW,NURQUIT,NQUIT,NREQ,NRET,NRMBD,NRNLPN,NRNS,NURROU,NRPT,NRPTDAT,NRX,NS1,NS2,NURSCAT,NURSCATY,NSEC,NSEL,NURSER,NSET,NSHFT,NURSORT,NSP,NSPC,NSPEC,NSPN,NSPO

 K NSPOS,NSPOSN,NSSN,NST,NSUB,NSUBC,NSUBM,NSUBT,NURMDSW,NURSW1,NSX,NTAA,NTAAB,NTAAT,NTAB,NTAV,NTC,NTCA,NURPAGE

 D ^NURAKIL1

 Q

NURAKILL  ;HIRMFO/MD,FT-CLEAN-UP ;8/9/96  09:28

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

 +2       ;

 +3        KILL A,ABORTSW,AN,ANS,ANS1,ANS2,ATD,B,BED,BEDSECT,BUDCK,BUDCK1,BY,CAT,CATL,CHANGESW,CHGSW,CHKVAR,CK,CLASDT,CLASS,CLASSREV,CLASSX,CLSDATE,CNDATE,CNWARD,COMMENTX,CONFIGX,PDA,SDA,NURSTRN,NOTBAL,NURA,NURAVER,DEFAULT,HDRDT,NRI

 +4        KILL D,D0,D1,DA,DAFTEE,DATA,DATECL,DATENODE,DATETABL,DATEX,DAY,DD,DDH,DEG,DFLT,DFN,DHD,DI,DIC,DIE,DIFQ,DIK,DIR,DIWF,DIWR,DIZ,DLAYGO,DO,DQ,DR,DTC,DTCEN,DTL,DTOUT,DUOUT,DZ,NADMT

 +5        KILL EAFTEE,ENTR,F1,F2,FACT,FACT1,FACTORS,FACTX,FCK,FLDS,FOUND,FR,FT,FY,G,HDATE,HEAD1,HEAD2,HRSW,I,ID,IFN,II,INX,J,K,L,LINE,LOOK,LPNTL,M,MNCHKDTE,MON,MONTH,MQSW,MSG

 +6        KILL NBD,N,N1,N1E,N1EN,N2,NACT,NAD,NADATA,NADMDATE,NADMDT,NADT,NAFTE,NAFTEE,NAMIS,NAPROD,NARR,NASK,NATL,NAVG,NAX,NB,NBAD,NBCEN,NBDSECT,NBED,NBEDS,NBEDSECT

 +7        KILL NBFTE,NBFTEE,NBK,NBPC,NBPROD,NBR,NBREQ,NBRK,NBSEC,NBUDCK,NBUDCK1,NBVAR,NURCAT,NCATPOS,NCDT

 +8        KILL NCEN,NCFT,NCK,NCLAS,NCLASS,NCNT,NCPC,NCPCC,NCPROD,NCR,NCRQ,NCRT,NCT,NURCTA,NCVAR,NCWARD,NCX,NDA,NDAT,NDATA,NDATE,NDATED,NDATEX,NDD,NDFLT,NDFTEE,NDG

 +9        KILL NURDOB,NDPC,NDPCC,NDPROD,NDREQ,NDT,NDVAR,NURNEN,NERR,NEV,NEWREV,NEWSW,NEXC,NEXCDA,NF1,NF2,NFC,NFCEN

 +10       KILL NFCNT,NFI,NURFLAG,NFTE,NFTEE,NGR,NGRADE,NHCFT,NHCPC,NHCPCC,NHCPRD,NHCRQ,NHCVR,NHFTEE,NHIT,NURHOSP,NHOSPSW,NHPC,NHPCC,NHPROD,NHREQ,NHVAR,NI,NID,NIE

 +11       KILL NJ,NK,NL,NL1,NL1BKSW,NLDT,NLDTPR,NLO,NLOC,NLOCN,NMCLASS,NMCNT,NMESS,NN,NNM,NNURSX,NO,NOD

 +12       KILL NT,NOD1,NOD2,NURNODE4,NURNODE5,NODATSW,NODE,NODET,NOPATSW,NOREVSW,NOSW,NDTBAL,NUROUTSW,NPC1,NPC2,NPC3,NPC4,NPC5,NPC6,NPC7,NPC8,NPCC,NPERC,NPERCEN,NUROUT

 +13       KILL NPLOC,NPO,NPODA,NPOS,NPR2,NPR3,NPR4,NPR5,NPR6,NPREV,NPRI,NPROD,NPSPOS,NPTCEN,NPTR,NPWARD,NURQUEUE

 +14       KILL NQSW,NURQUIT,NQUIT,NREQ,NRET,NRMBD,NRNLPN,NRNS,NURROU,NRPT,NRPTDAT,NRX,NS1,NS2,NURSCAT,NURSCATY,NSEC,NSEL,NURSER,NSET,NSHFT,NURSORT,NSP,NSPC,NSPEC,NSPN,NSPO

 +15       KILL NSPOS,NSPOSN,NSSN,NST,NSUB,NSUBC,NSUBM,NSUBT,NURMDSW,NURSW1,NSX,NTAA,NTAAB,NTAAT,NTAB,NTAV,NTC,NTCA,NURPAGE

 +16       DO ^NURAKIL1

 +17       QUIT