10 lines
708 B
Mathematica
10 lines
708 B
Mathematica
NURQKILL ;HIRMFO/MD-CLEAN-UP ;11/23/94 12:32
|
|
;;4.0;NURSING SERVICE;**8**;Apr 25, 1997
|
|
;
|
|
K ARRAY,ASER,CHAR,D,D0,D1,D2,D3,DA,DD,DIC,DIE,DIK,DISP,DLAYGO,DIU,DIX,DR,GX7,GX9,IOP,J,ND1,NDA2,POP
|
|
K NDA,NURFLAG,NURHOSP,NUROUT,NPWARD,NURQUIT,NURDFLT,NURDICS,NURQ,NURQAR,NURQBYR,NURQDATE,NURQDC,NURQDDT,NURQDDT1,NURQDT,NURQEOA,NURQFREQ,NURQFRQ,NURQKOI,NURQLN,NURQLOC,NURQND,NURQPG,NURQPO,NURQRIND,NURQSC,NURQSITE,NURQSP,NURQSRVC
|
|
K NURQSVN,NURQSW,NURQTOI,NURQSURV,NURQWRD1,NURQX,NURSZAP,NURQVER,NURQ,NURSZDA,NURSZLO,NURSZSP,NY,NW,NWRD,NX,QAPA2,QAPXX,QFIN,QSTA,QSUR,QUES,QX,NUREQWRD,SUB,TAB,XT1,XT2,XT3,XT4,XX,X,Y,Z,ZTREQ
|
|
; *** Kernel variables
|
|
K %,%1,%2,%3,%DT,%X,%Y,%ZIS,Z,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
|
|
Q
|