IVMUFNC2 ;ALB/SEK - INPATIENT/OUTPATIENT CALCULATIONS (CON'T) ; 24-NOV-93
Source file <IVMUFNC2.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 |
|---|---|---|
| EN(IVMQUERY) | ; Calculate number of outpatient days
; Input: IVMQUERY("OVIS") - the # of the QUERY this job has open for ; searching for patient's outpatient visits. If null, this QUERY has ; yet been opened. (pass by reference) |
|
| VALENC(IVME,IVME0) | ; Check for valid outpatient encounter
; Input: IVME = encounter ien ; IVME0 = 0-node of encounter (optional) |
|
| ENCL(IVMIBOE) | ; Return classification results for an encounter.
; Input: IVMIBOE -- Pointer to outpatient encounter in file #409.68 ; Output: ao^ir^sc^ec, where, for each piece, ; 1 - care was related to condition, and ; 0 (or null) - care not related to condition |
|
| END(DFN,IVMPMTD) | ; return end date for calculating inpatient/
; outpatient days. this date will be earliest of day before next means ; test and day before current date. ; Input: DFN -- pointer to patient in file #2 ; IVMPMTD -- previous means test date |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | VALENC+10 |
| ^SDD(409.42 - [#409.42] | ENCL+6 |
| ^TMP("DIERR" | EN+7!, EN+21!, VALENC+5! |
| ^TMP($J | VALENC+14* |
| Name | Line Occurrences |
|---|---|
| $$ENCL | VALENC+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CL | ENCL+5~, ENCL+6* |
| CLD | ENCL+5~, ENCL+6* |
| DFN | EN+17, VALENC+14, END~, END+8 |
| DT | END+9 |
| IVMD | VALENC+3~, VALENC+7*, VALENC+9, VALENC+12, VALENC+14 |
| IVME | VALENC~, VALENC+5, VALENC+11 |
| IVME0 | VALENC~, VALENC+5*, VALENC+7, VALENC+9, VALENC+10 |
| >> IVMENDT | EN+18 |
| IVMIBOE | ENCL~, ENCL+6 |
| IVMICY | END+6~, END+7*, END+8 |
| >> IVMMTDT | EN+18 |
| >> IVMOUT | VALENC+14* |
| IVMPMTD | END~, END+7, END+9 |
| IVMQ | EN+6~, EN+8*, EN+9, EN+11, EN+12, EN+13, EN+14, EN+15, EN+17, EN+18 , EN+19, EN+20 |
| IVMQUERY | EN~ |
| IVMQUERY("OVIS" | EN+8, EN+15* |
| IVMZ | VALENC+3~ |
| IVMZ(0 | VALENC+5 |
| U | VALENC+9, VALENC+10 |
| >> VADMVT | VALENC+12 |
| >> VAINDT | VALENC+12* |
| X | ENCL+5~, END+6~, END+8*, END+9 |
| Y | ENCL+5~*, ENCL+6*, ENCL+7 |