NURSKILL ;HIRMFO/MD,FT-CLEAN-UP ;8/14/96 10:35
;;4.0;NURSING SERVICE;**8**;Apr 25, 1997
;
K A,ACOUNT,ANS,B,BADWARD,BGT,BY,C,CHKVAR,CLS,CLASS,CLASSIEN,CLASSNUM,CLASSTXT,COMPLIAN,NURDA,SCDA
K CORGCODE,CONTHRS,COUNT,D,D0,D1,D2,DA,DA200,DAT,DATA,DATE,DATSEL,DC,DD,DDH,DE,DEF
K DIQ,DFN,DG,DGCOR,DGMAS,DGMPM,DGNPM,DGPM,DH,DHD,DI,DIC,DICR,DIDEL,DIE,DIEL,DIFLD,DIFORMAT,DIFQ,DIK,DINUM,DIR,DIROUT,DIRUT,DIS,DIW,DIWF,DIWL,DIWR,DIWT
K DSDT,DIJ,DIU,DIZ,DK,DL,DLAYGO,DM,DO,DOUT,DP,DQ,DR,DROPDEAD,DTOUT,DUOUT
K DX,DZ,E,EDT,EDAT,EDIT,ENDAT,F,FCOUNT,FLDS,FSW,FY,FYEND,G,FR,FREQ,HH,HOLD,HOLD1,HOLD2,ID,I,IEN,II,III,IOP,J,ND1,ND2,ND3,ND4
K L,LASTDATE,LASTDAY,LCOUNT,LEN,LOC,LOC1,LOOP,M,MASW,MC,MDIC,MIC,MICD,MICY,MN,MONTH,MULT,MVDT,NACT,NADM,NAME,NASK,NBED,N1,N2,NAM,NC1,NC2,NC3,NC4,NURCAT,NCATY,NCD,NCD1,NCNT
K NCT,NCOPY,NCOUNT,NDA,NDATA,NDATE,NDATED,NDESC,NDFTE,NDP,NDFTE,NDP,NDTFTE,NE1,NE2,NE3,NE4,NEFTE,NEG,NEP,NF1,NF2,NF3,NF4,NFDFTE,NFEFTE,NURFLAG,NFNFTE
K NFPC1,NFPC2,NFPC3,NFPC4,NFPTOT,NFT,NFTE,NFTFTE,NI,NIC,NIC1,NLOC,NOD1,NOD2,NUROUT,NURPAGE,NURQUEUE,NURQUIT
K NIC2,NIEN,NJ,NL1,NLDTPR,NLIN,NLO,NLOC1,NM,NOD,NURNODE4,NURNODE5,NOIEN,NOLOC,NOMIC1,NUROUT,NUROUTSW,NSCT,NURSORT,NSP,NPGM,NPGM1,NPI,NPII,NPNT,NPOS,NPSPOS,NPTOT,NPWARD,NRNLPN,NRNS,NRPTDAT,NS1,NS2,NS3,NSPC,NURSCAT,NSCT,NURSW1,NSW2,NURSOUT,PDA
K NONE,NURHOSP,NSEC,NURSER,NSPOS,NSTAFF,NSTAT,NSWRD,NTEFTE,NTFTE,NTNFTE,NTPC1,NTPC2,NTPC3,NTPC4,NTPTOT,NTTFTE,NUI,NUM,NUR,NURA,NURAACA,NURAH,NURAHIGH,NURALARM,NURANAM,NURANUR,NURASSN,NURASTR,PG,PLOC,POP,POUT,PRCOD,PRDA,NURSDATE,NURSDFN,NURSION
K NURBEDSW,NURCENDT,NURCUTDT,NURDIC,NURDICR,NURECLS,NURI,NURLAY,NURLOC,NURLS,NURLSCR,NUROUT,NURPKG,NURS,NURS1,NURS132,NURSA,NURSADM,NURSB,NURSBAD,NURSBED,NURSC,NURSCH,NURSCHOS,NURSCK,NURSCLAS,NURSCLS,NURSCOMP,NURSD,NURSDA,NURSDAT,NURSDATA
K NURSDIC,NURSDIS,NURSDT,NURSE,NURSEL,NURSEMP,NURSER,NURSERR,NURSFIL1,NURSFILE,NURSFLD,NURSFLNM,NURSHD,NURSI,NURSIDC,NURSJ,NURSLINE,NURSMAN,NURSMAS,NURSMLT,NURSNEW,NURSNLOC,NURSNOTV,NURSNPOS,NURSOBED,NURSODDT,NURSOMAS,NURSOSTA,NURSOUT
K NURSOWRD,NURSPACE,NURSPAGE,NURSPOS,NURSQ,NURSR,NURSREV,NURSSBF,NURSTAT,NURSTOP,NURSTRAN,NURSTRN,NURSTUS,NURSTX,NURSUB,NURSUB1,NURSVER,NURSW,NURSW1,NURSWARD,NURSWCK,NURSWD,NURSWR1,NURSWR2,NURSWR3,NURSWR42,NURSWRD,NURSX,NURSXBEG,NURSXEND
K NURSXEND,NURSY,NURSYAP,NURSYLO,NURSZ,NURSZAP,NURSZDA,NURSZLO,NURSZLOC,NURSZN,NURSZORT,NURSZSP,NURTFTEE,NURTMX,NURX,NURY,NURZ,NUSW,NY,NW,NWARD,NWRD,NX,NXDT,NV,NYR,NZ,OBED,OK,OMAS,ONELOC,ONESERV,OUTSW,P,PATIENT,PRSE,PRSECLS,PRSEEND,PRSESER
K PRS454,PRSENAM,PRSESWP,PRSEVER,PRSEX,PRSEY,PRSEZ,PRSPCD0,PRSPCD1
K RDT,NUREQWRD,RESELC,ROOMBED,S,SDA,SDAT,SE1,SHRS,SIEN,SLOC,SMC,SNM,SP,SRT,SSN200,STACK,STDAT,TLCEU,TLCONT,TLEN
K SSN,TMP,TO,TOT,TYP,V,VA,VADM,VADN,VAERR,VAIN,VAINDT,VAIP,VAROOT,VER,W,WRDIEN,VA200DA,X,X1,X2,XQH,XRF,XT1,XT2,XT3
K XT4,XX,XXX,Y,Y1,YEAR,YR,YR0,YRCHK,YREND,YRST,ZZ,ZTNOP,ZTREQ
D ^NURSKIL1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSKILL 2904 printed Oct 16, 2024@18:23:01 Page 2
NURSKILL ;HIRMFO/MD,FT-CLEAN-UP ;8/14/96 10:35
+1 ;;4.0;NURSING SERVICE;**8**;Apr 25, 1997
+2 ;
+3 KILL A,ACOUNT,ANS,B,BADWARD,BGT,BY,C,CHKVAR,CLS,CLASS,CLASSIEN,CLASSNUM,CLASSTXT,COMPLIAN,NURDA,SCDA
+4 KILL CORGCODE,CONTHRS,COUNT,D,D0,D1,D2,DA,DA200,DAT,DATA,DATE,DATSEL,DC,DD,DDH,DE,DEF
+5 KILL DIQ,DFN,DG,DGCOR,DGMAS,DGMPM,DGNPM,DGPM,DH,DHD,DI,DIC,DICR,DIDEL,DIE,DIEL,DIFLD,DIFORMAT,DIFQ,DIK,DINUM,DIR,DIROUT,DIRUT,DIS,DIW,DIWF,DIWL,DIWR,DIWT
+6 KILL DSDT,DIJ,DIU,DIZ,DK,DL,DLAYGO,DM,DO,DOUT,DP,DQ,DR,DROPDEAD,DTOUT,DUOUT
+7 KILL DX,DZ,E,EDT,EDAT,EDIT,ENDAT,F,FCOUNT,FLDS,FSW,FY,FYEND,G,FR,FREQ,HH,HOLD,HOLD1,HOLD2,ID,I,IEN,II,III,IOP,J,ND1,ND2,ND3,ND4
+8 KILL L,LASTDATE,LASTDAY,LCOUNT,LEN,LOC,LOC1,LOOP,M,MASW,MC,MDIC,MIC,MICD,MICY,MN,MONTH,MULT,MVDT,NACT,NADM,NAME,NASK,NBED,N1,N2,NAM,NC1,NC2,NC3,NC4,NURCAT,NCATY,NCD,NCD1,NCNT
+9 KILL NCT,NCOPY,NCOUNT,NDA,NDATA,NDATE,NDATED,NDESC,NDFTE,NDP,NDFTE,NDP,NDTFTE,NE1,NE2,NE3,NE4,NEFTE,NEG,NEP,NF1,NF2,NF3,NF4,NFDFTE,NFEFTE,NURFLAG,NFNFTE
+10 KILL NFPC1,NFPC2,NFPC3,NFPC4,NFPTOT,NFT,NFTE,NFTFTE,NI,NIC,NIC1,NLOC,NOD1,NOD2,NUROUT,NURPAGE,NURQUEUE,NURQUIT
+11 KILL NIC2,NIEN,NJ,NL1,NLDTPR,NLIN,NLO,NLOC1,NM,NOD,NURNODE4,NURNODE5,NOIEN,NOLOC,NOMIC1,NUROUT,NUROUTSW,NSCT,NURSORT,NSP,NPGM,NPGM1,NPI,NPII,NPNT,NPOS,NPSPOS,NPTOT,NPWARD,NRNLPN,NRNS,NRPTDAT,NS1,NS2,NS3,NSPC,NURSCAT,NSCT,NURSW1,NSW2,NURSOUT,PDA
+12 KILL NONE,NURHOSP,NSEC,NURSER,NSPOS,NSTAFF,NSTAT,NSWRD,NTEFTE,NTFTE,NTNFTE,NTPC1,NTPC2,NTPC3,NTPC4,NTPTOT,NTTFTE,NUI,NUM,NUR,NURA,NURAACA,NURAH,NURAHIGH,NURALARM,NURANAM,NURANUR,NURASSN,NURASTR,PG,PLOC,POP,POUT,PRCOD,PRDA,NURSDATE,NURSDFN,NURSI
ON
+13 KILL NURBEDSW,NURCENDT,NURCUTDT,NURDIC,NURDICR,NURECLS,NURI,NURLAY,NURLOC,NURLS,NURLSCR,NUROUT,NURPKG,NURS,NURS1,NURS132,NURSA,NURSADM,NURSB,NURSBAD,NURSBED,NURSC,NURSCH,NURSCHOS,NURSCK,NURSCLAS,NURSCLS,NURSCOMP,NURSD,NURSDA,NURSDAT,NURSDATA
+14 KILL NURSDIC,NURSDIS,NURSDT,NURSE,NURSEL,NURSEMP,NURSER,NURSERR,NURSFIL1,NURSFILE,NURSFLD,NURSFLNM,NURSHD,NURSI,NURSIDC,NURSJ,NURSLINE,NURSMAN,NURSMAS,NURSMLT,NURSNEW,NURSNLOC,NURSNOTV,NURSNPOS,NURSOBED,NURSODDT,NURSOMAS,NURSOSTA,NURSOUT
+15 KILL NURSOWRD,NURSPACE,NURSPAGE,NURSPOS,NURSQ,NURSR,NURSREV,NURSSBF,NURSTAT,NURSTOP,NURSTRAN,NURSTRN,NURSTUS,NURSTX,NURSUB,NURSUB1,NURSVER,NURSW,NURSW1,NURSWARD,NURSWCK,NURSWD,NURSWR1,NURSWR2,NURSWR3,NURSWR42,NURSWRD,NURSX,NURSXBEG,NURSXEND
+16 KILL NURSXEND,NURSY,NURSYAP,NURSYLO,NURSZ,NURSZAP,NURSZDA,NURSZLO,NURSZLOC,NURSZN,NURSZORT,NURSZSP,NURTFTEE,NURTMX,NURX,NURY,NURZ,NUSW,NY,NW,NWARD,NWRD,NX,NXDT,NV,NYR,NZ,OBED,OK,OMAS,ONELOC,ONESERV,OUTSW,P,PATIENT,PRSE,PRSECLS,PRSEEND,PRSESER
+17 KILL PRS454,PRSENAM,PRSESWP,PRSEVER,PRSEX,PRSEY,PRSEZ,PRSPCD0,PRSPCD1
+18 KILL RDT,NUREQWRD,RESELC,ROOMBED,S,SDA,SDAT,SE1,SHRS,SIEN,SLOC,SMC,SNM,SP,SRT,SSN200,STACK,STDAT,TLCEU,TLCONT,TLEN
+19 KILL SSN,TMP,TO,TOT,TYP,V,VA,VADM,VADN,VAERR,VAIN,VAINDT,VAIP,VAROOT,VER,W,WRDIEN,VA200DA,X,X1,X2,XQH,XRF,XT1,XT2,XT3
+20 KILL XT4,XX,XXX,Y,Y1,YEAR,YR,YR0,YRCHK,YREND,YRST,ZZ,ZTNOP,ZTREQ
+21 DO ^NURSKIL1
+22 QUIT
