Ì i 2
nur.calendar (calendar)
/NSCC
Field Name Len Dat Typ J DPM Offset/Local/VAL
end.date 8 DATE L /NSCC|1
start.date 8 DATE L /NSCC|0
Ì i 2
nur.calendar.dates (calendar.dates)
[cal.date]
/NSCC["D",nsd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cal.date 8 DATE L nsd
cal.col 2 INT R /NSCC["D",nsd]|1
cal.row 2 INT R /NSCC["D",nsd]|0
Ì i 2
nur.calendar.rows (calendar.rows)
[row]
/NSCC["R",ncr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
row 2 INT R ncr
week.string 20 FREE L /NSCC["R",ncr]|0
Ì i 2
nur.sched.list.loc (list.loc)
[ll.date,ll.sdate,ll.stime,ll.initials]
/NSCLL[nsd,nssd,nst,gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ll.date 8 DATE L nsd
ll.sdate 8 DATE L nssd
ll.stime 4 HHMM L nst
ll.initials 10 FREE L MIS.USER gu
ll.disp.code 5 FREE L /NSCLL[nsd,nssd,nst,gu]|3
ll.disp.duration 4 PINT R /NSCLL[nsd,nssd,nst,gu]|2
ll.disp.start 4 PINT R /NSCLL[nsd,nssd,nst,gu]|1
ll.duration 5 DEC2 R /NSCLL[nsd,nssd,nst,gu]|0
ll.graph.and.name 20 FREE L VAL=%NUR.SCHED.list.loc.M.graph(ll.date,ll.sdate,ll.st
VAL=ime,ll.initials)_@MIS.USER.name
Ì i 2
nur.sched.list.nur.months (list.nur.months)
[ln.year,ln.month]
/NSCLN[nly,nlm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ln.year 4 PINT R nly
ln.month 2 PINT R nlm
ln.month.text 9 FREE L VAL=(.January.February.March.April.May.June.July.Augus
VAL=t.September.October.November.December#(ln.month_.)
VAL=)
Ì € i 2
nur.sched.list.nur.weeks (list.nur.weeks)
[ln.year,ln.month, ln.week]
/NSCLN[nly,nlm]W[nlw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ln.week 1 PINT R nlw
Ì € i 2
nur.sched.list.nur.lines (list.nur.lines)
[ln.year,ln.month,ln.week, ln.line]
/NSCLN[nly,nlm]W[nlw]L[nll]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ln.line 1 PINT R nll
ln.fri 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|6
ln.mon 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|2
ln.sat 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|7
ln.sun 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|1
ln.thu 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|5
ln.tue 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|3
ln.wed 11 FREE L /NSCLN[nly,nlm]W[nlw]L[nll]|4
Ì i 2
nur.schedules (main)
[location]
:NSC[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
location 10 FREE L MIS.LOCN.DICT ggn
display 48 FREE L VAL=(" ":(@time$2*60+(@time'$2)*60*48/86400)_(@Z.del:(
VAL=@duration*2:0D))$48)
nurse.type 5 FREE L NUR.NURSE.TYPE
patient 30 FREE L NUR.PAT
Ì € i 2
nur.schedule.dates (dates)
[location, date]
:NSC[ggn]S[nsd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
date 8 DATE L nsd
Ì € i 2
nur.schedule.times (times)
[location,date, time]
:NSC[ggn]S[nsd]T[nst]
Field Name Len Dat Typ J DPM Offset/Local/VAL
time 4 HHMM L nst
Ì € i 2
nur.schedule.nurses (nurses)
[location,date,time, initials]
:NSC[ggn]S[nsd]T[nst]N[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
initials 10 FREE L MIS.USER gu
code 3 FREE L NUR.SCHED.CODES:NSC[ggn]S[nsd]T[nst]N[gu]|1
duration 4 DEC1 R :NSC[ggn]S[nsd]T[nst]N[gu]|0
nur.type 5 FREE L NUR.NURSE.TYPE :NSC[ggn]S[nsd]T[nst]N[gu]|2
other.location 10 FREE L MIS.LOCN.DICT VAL=(@NUR.NURSE.prime.loc'=/location)
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
nur.schedule.nurse.index [initials,date,time,location]
nurse.x :NSCN[gu,nsd,nst,ggn]
|
|
| | | | | | | | | |