source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURAKIL1.m@ 949

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