Ì 2
prefixes.by.facility.and.db (fac.db.prfxs)
[facility,database]
/.app[gqb,iaD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
facility 10 FREE L MIS.FACILITY gqb
database 12 FREE L MIS.APPL iaD
app.fd.amp.prfx 15 FREE L /.app[gqb,iaD]|1
app.fd.bslash.prfx 15 FREE L /.app[gqb,iaD]|6
app.fd.close.prfxs 1 FREE L VAL=C(&,:,*,?)
app.fd.closes.bslash 1 FREE L VAL=C(\U)
app.fd.colon.prfx 15 FREE L /.app[gqb,iaD]|2
app.fd.dollar.prfx 15 FREE L /.app[gqb,iaD]|5
app.fd.open.all.prfxs 1 FREE L VAL=O($,@app.fd.dollar.prfx,%,@app.fd.percent.prfx,&,@
VAL=app.fd.amp.prfx,:,@app.fd.colon.prfx,*,@app.fd.sta
VAL=r.prfx,?,@app.fd.quest.prfx)
app.fd.open.percent 1 FREE L VAL=O(%,@app.fd.percent.prfx)
app.fd.open.prfxs 1 FREE L VAL=O(&,@app.fd.amp.prfx,:,@app.fd.colon.prfx,*,@app.f
VAL=d.star.prfx,?,@app.fd.quest.prfx)
app.fd.opens.bslash 1 FREE L VAL=O(\S,@app.fd.bslash.prfx)
app.fd.percent.prfx 15 FREE L /.app[gqb,iaD]|0
app.fd.quest.prfx 15 FREE L /.app[gqb,iaD]|4
app.fd.save.prfxs 1 FREE L VAL={$FPN(^%),$FPN(^&),$FPN(^:),$FPN(^*),$FPN(^?),$FPN
VAL=(^$),$FPN(^\)}^@fac.db.prfxs
app.fd.star.prfx 15 FREE L /.app[gqb,iaD]|3
Ì 2
hl7.fields (hl7.fields)
[segment.counter, field.counter]
/HL7[sc]F[fp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
field.counter 5 PINT R fp
field.delimiter 5 FREE L /HL7[sc]F[fp]
Ì € 2
hl7.pieces (hl7.pieces)
[segment.counter,field.counter, piece.counter]
/HL7[sc]F[fp]P[pc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
piece.counter 5 PINT R pc
value 250 FREE L /HL7[sc]F[fp]P[pc]
Ì 2
trap.data (trap.data)
[trap,trap.time,trap.counter]
:Z.TRAP[zt,zts,ztc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
trap 10 FREE L zt
trap.time 10 PINT R zts
trap.counter 10 PINT R ztc
increment.trap.counter 10 FREE L VAL=trap.counter+1^trap.counter
info.time 10 PINT R :Z.TRAP[zt,zts,ztc]I
receive.time 10 PINT R :Z.TRAP[zt,zts,ztc]R
save.info.time 10 FREE L VAL=@.sd^@info.time
save.receive.time 10 FREE L VAL=@.sd^@receive.time
save.send.time 10 FREE L VAL=@.sd^@send.time
send.time 10 PINT R :Z.TRAP[zt,zts,ztc]S
set.trap.name 10 FREE L VAL=/connection_._/xfer.path^trap
set.trap.time 10 FREE L VAL=@.sd^trap.time
Ì € 2
info.trap (info.trap)
[trap,trap.time,trap.counter, info.counter]
:Z.TRAP[zt,zts,ztc]I[zic]
Field Name Len Dat Typ J DPM Offset/Local/VAL
info.counter 10 PINT R zic
increment.info.counter 10 FREE L VAL=info.counter+1^info.counter
info.data 200 FREE L :Z.TRAP[zt,zts,ztc]I[zic]
Ì € 2
message.trap (message.trap)
[trap,trap.time,trap.counter, message.counter]
:Z.TRAP[zt,zts,ztc]M[zmc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
message.counter 10 PINT R zmc
increment.message.counter 10 FREE L VAL=message.counter+1^message.counter
message.data 200 FREE L :Z.TRAP[zt,zts,ztc]M[zmc]
Ì € 2
recieve.trap (receive.trap)
[trap,trap.time,trap.counter, receive.counter]
:Z.TRAP[zt,zts,ztc]R[zrc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
receive.counter 10 PINT R zrc
increment.receive.counter 10 FREE L VAL=receive.counter+1^receive.counter
receive.data 200 FREE L :Z.TRAP[zt,zts,ztc]R[zrc]
Ì € 2
send.trap (send.trap)
[trap,trap.time,trap.counter, send.counter]
:Z.TRAP[zt,zts,ztc]S[zsc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
send.counter 10 PINT R zsc
increment.send.counter 10 FREE L VAL=send.counter+1^@send.counter
send.data 200 FREE L :Z.TRAP[zt,zts,ztc]S[zsc]
Ì 2
trap.switch (trap.switch)
[trap.name]
:Z.TRAP.ON[zt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
trap.name 10 FREE L zt
clear.trap.flag 1 FREE L VAL=""^@trap.on
set.trap.flag 1 FREE L VAL=1^@trap.on
trap.on 1 FREE L :Z.TRAP.ON[zt]
|
|
| | | | | | |