- 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 Jan 18, 2025@03:23:26 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