NURCKIL1.m

NURCKIL1 ;HIRMFO/MD-CLEAN-UP ;1/15/96

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

 ;

 K GMRDATE,GMRDATS,GMRDAY,GMRENTY,GMREVE,GMRFIN,GMRG,GMRGHPRT,GMRGIO,GMRGLEN,GMRGLIN,GMRGLVL,GMRGNORD,GMROUT,GMRGPAR,GMRGPDA,GMRGPDAA,GMRGPDT,GMRGPK,GMRGPLN,GMRGPRC,GMRGRT,GMRGSCRP,GMRGSEL,GMRGSITE

 K GMRGSLVL,GMRGST,GMRGSTAT,GMRGTERM,GMRGTLVL,GMRGTOP,GMRGTPLT,GMRGUP,GMRGUR,GMRGVADT,GMRGVAGE,GMRGVAMV,GMRGVDOB,GMRGVDX,GMRGVNAM,GMRGVPRV,GMRGVRBD,GMRGVRBD,GMRGVSSN,GMRGVWRD,GMRGXPRT,GMRHLOC,GMRINDT,GMRL,GMRLEN,GMRNIT

 K GMRNUR,GMROUT,GMRPG,GMRQUAL,GMRSITE,GMRSTR,GMRSTRT,GMRVFDT,GMRVHLOC,GMRVIDT,GMRVSDT,GMRVSTR,GMRVWLO,GMRVX,GMRX,GMRY,GMTS0,GMTS1,GMTS2,GMTSEG,GMTSEGC,GMTSEGI,GMTSNDM,GMTSTITL,GMTSTYP,GMW,GMX,GN,GNUROP

 K GNURSE,GOAL,GOARRAY,GOTMDC,GP,GPACK,GQ,GQT,GR,GREASON,GRPT,GSAVE,GSAVEH,GSFT,GSHIFT,GSITE,GSOL,GST,GSTRT,GSUB,GT,GTIME,GTOTAL,GTOTLI,GTOTLO,GTXT,GTYP,GTYPI,GTYPO,GVOL,GWT,GYES,NPR

 K NURSOT,NURSMED,NURSK,NURSL,NURSLCNT,NURSIOSL,NURSISW,NURSISW1,NURSITHD,NURSERR,NURSI,NURSNUM,NURSNWDT,NURSO,NURSO1,NURSO2,NURSO4,NURSOD,NURSOR,NURSORD,NURSEVST,NURSGOCK,NURSH,NURSLGT,NURSLIN,NURSLIST,NURSLOAD,NURSLVD,NURSMAR

 K NURSP,NURSP1,NURSP2,NURSP3,NURSTAT,NURSTRAN,NURCVER,NURSVER,NURSWARD,NURSWD,NURSX,NURSODA

 K NURSXAGX,NURTUBE,NURTLTI,NURTLTO,NURWARD,NURUSL,NURUSL,NURTUBE,NURSY,NURSZ,NURY,NY,NW,NX,NXDT,NV,NZ,OK,P

 K REVDAT,REVDATE,REVDT,REVDT,RVDT,SRT,NURCCHC,NURCDAT,NURCDATE,NURCDEL,NURCDX,NURCEOPG,NURCFREQ,NURCFRQ1,NURCGL,NURCGOEX,NURCHC,NURCHYP,NURCINFO,NURCINT,NURCIPR

 K SSN,VA,VADM,WRT,X,X1,X2,XT3,NURCITRM,NURCK,NURCLAS,NURCLEG,NURCLID,NURCLP,NURCMS,NURCNCP,NURCNOD,NURCNOW,NURCNT,NURCORD,PROBLEM,PROBNAME,PRORD,PRPROB

 K NURCOTRM,NURCOUT,NURCPAGE,NURCPDA,NURCPDA1,NURCPDAT,NURCPG,NURCPRB,NURCPROB,NURCPROR,NURCPTRM,NURCRANK,NURCRNK1,NURCRT,NURCRTYP,NURCSECT,NURCSORT,NURCSRCH,NURCTERM,NURCTEXT,NURCTITL,NURCTYP,NURCTYPE,NURCX,NURCY,NURCZ,NURDATE

 K XT4,XQUIT,ZZ,ZTREQ,NURDFLT

 K PSW,Q,RANK,NURCORD,RMBD,RMSEL,ROOM

 K D,CNT,%,%1,%2,%3,%DT,%DTC,%IS,%H,%ZIS

 K Y,Z

 K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURCKIL1   2035     printed  Apr 09, 2024@21:23:35                                                                                                                                                                                                    Page 2

NURCKIL1  ;HIRMFO/MD-CLEAN-UP ;1/15/96

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

 +2       ;

 +3        KILL GMRDATE,GMRDATS,GMRDAY,GMRENTY,GMREVE,GMRFIN,GMRG,GMRGHPRT,GMRGIO,GMRGLEN,GMRGLIN,GMRGLVL,GMRGNORD,GMROUT,GMRGPAR,GMRGPDA,GMRGPDAA,GMRGPDT,GMRGPK,GMRGPLN,GMRGPRC,GMRGRT,GMRGSCRP,GMRGSEL,GMRGSITE

 +4        KILL GMRGSLVL,GMRGST,GMRGSTAT,GMRGTERM,GMRGTLVL,GMRGTOP,GMRGTPLT,GMRGUP,GMRGUR,GMRGVADT,GMRGVAGE,GMRGVAMV,GMRGVDOB,GMRGVDX,GMRGVNAM,GMRGVPRV,GMRGVRBD,GMRGVRBD,GMRGVSSN,GMRGVWRD,GMRGXPRT,GMRHLOC,GMRINDT,GMRL,GMRLEN,GMRNIT

 +5        KILL GMRNUR,GMROUT,GMRPG,GMRQUAL,GMRSITE,GMRSTR,GMRSTRT,GMRVFDT,GMRVHLOC,GMRVIDT,GMRVSDT,GMRVSTR,GMRVWLO,GMRVX,GMRX,GMRY,GMTS0,GMTS1,GMTS2,GMTSEG,GMTSEGC,GMTSEGI,GMTSNDM,GMTSTITL,GMTSTYP,GMW,GMX,GN,GNUROP

 +6        KILL GNURSE,GOAL,GOARRAY,GOTMDC,GP,GPACK,GQ,GQT,GR,GREASON,GRPT,GSAVE,GSAVEH,GSFT,GSHIFT,GSITE,GSOL,GST,GSTRT,GSUB,GT,GTIME,GTOTAL,GTOTLI,GTOTLO,GTXT,GTYP,GTYPI,GTYPO,GVOL,GWT,GYES,NPR

 +7        KILL NURSOT,NURSMED,NURSK,NURSL,NURSLCNT,NURSIOSL,NURSISW,NURSISW1,NURSITHD,NURSERR,NURSI,NURSNUM,NURSNWDT,NURSO,NURSO1,NURSO2,NURSO4,NURSOD,NURSOR,NURSORD,NURSEVST,NURSGOCK,NURSH,NURSLGT,NURSLIN,NURSLIST,NURSLOAD,NURSLVD,NURSMAR

 +8        KILL NURSP,NURSP1,NURSP2,NURSP3,NURSTAT,NURSTRAN,NURCVER,NURSVER,NURSWARD,NURSWD,NURSX,NURSODA

 +9        KILL NURSXAGX,NURTUBE,NURTLTI,NURTLTO,NURWARD,NURUSL,NURUSL,NURTUBE,NURSY,NURSZ,NURY,NY,NW,NX,NXDT,NV,NZ,OK,P

 +10       KILL REVDAT,REVDATE,REVDT,REVDT,RVDT,SRT,NURCCHC,NURCDAT,NURCDATE,NURCDEL,NURCDX,NURCEOPG,NURCFREQ,NURCFRQ1,NURCGL,NURCGOEX,NURCHC,NURCHYP,NURCINFO,NURCINT,NURCIPR

 +11       KILL SSN,VA,VADM,WRT,X,X1,X2,XT3,NURCITRM,NURCK,NURCLAS,NURCLEG,NURCLID,NURCLP,NURCMS,NURCNCP,NURCNOD,NURCNOW,NURCNT,NURCORD,PROBLEM,PROBNAME,PRORD,PRPROB

 +12       KILL NURCOTRM,NURCOUT,NURCPAGE,NURCPDA,NURCPDA1,NURCPDAT,NURCPG,NURCPRB,NURCPROB,NURCPROR,NURCPTRM,NURCRANK,NURCRNK1,NURCRT,NURCRTYP,NURCSECT,NURCSORT,NURCSRCH,NURCTERM,NURCTEXT,NURCTITL,NURCTYP,NURCTYPE,NURCX,NURCY,NURCZ,NURDATE

 +13       KILL XT4,XQUIT,ZZ,ZTREQ,NURDFLT

 +14       KILL PSW,Q,RANK,NURCORD,RMBD,RMSEL,ROOM

 +15       KILL D,CNT,%,%1,%2,%3,%DT,%DTC,%IS,%H,%ZIS

 +16       KILL Y,Z

 +17       KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK

 +18       QUIT