Caller Graph
Legends:
Package Component Superscript legend
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
IBQL538 ;LEB/MRY - IBQ EXTRACT DATA ; 6-JUN-95
Source file <IBQL538.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADMIT | ; -- Extract Admission Review iformation
; -- input: IBTRN from ^ibq(538,ibtrn... ; -- output: IB(array)=data ; .01:entry id,.02:site,.03:ssn,.04:admitting diagnosis,.05:enroll code ; .06:admitting phy,.07:attending phy,.08:resident phy,.09;admission ; .1:discharge,.11:ward,.12:treating specialty,.13:acute adm? ; 1.01:si from adm,1.02:is from adm,1.03:reasons from adm ; 1.04:provider interviewed?,1.05:adm influenced?,1.06:rollup type ; 1.07:service |
|
| ADMD | ||
| STAY | ; -- Extract Continued Stay Review information
; -- input: IBTRN, IBTRV from ^ibq(538,ibtrn,13,ibtrv... ; -- output: IB(array)=data ; 13.01:day, 13.02:is, 13.03:si, 13.04:d/s, 13.05:interviewed? ; 13.06:reasons, 13.07:treating specialty, 13.08:service |
|
| STAYD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBQ(538 - [#538] | ADMD, STAYD |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | ADMD |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> IB( | ADMIT+9*, ADMD+1*, ADMD+2*, ADMD+3*, ADMD+4*, ADMD+5*, ADMD+6, STAY+5*, STAYD+1*, STAYD+2* , STAYD+3 |
| >> IB("ACUTE ADM | ISSION" , ADMD+6* |
| >> IB("ACUTE STA | Y" , STAYD+3* |
| >> IB(13 | STAY+5* |
| >> IBFLD | ADMIT+9*, STAY+5* |
| >> IBTRN | ADMD, STAYD |
| >> IBTRND | ADMD*, ADMD+1, ADMD+2, ADMD+3 |
| >> IBTRND1 | ADMD*, ADMD+4, ADMD+5 |
| >> IBTRV | STAYD |
| >> IBTRVD | STAYD*, STAYD+1, STAYD+2 |
