IVMUFNC1 ;ALB/SEK - INPATIENT/OUTPATIENT CALCULATIONS ; 06/19/2003
Source file <IVMUFNC1.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | $$LST^DGMTU IN5^VADPT ADM^VADPT2 |
| Income Verification Match | 1 | ($$END,EN)^IVMUFNC2 |
| VA FileMan | 1 | ^%DTC |
| 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(DFN,IVMMTDT,IVMQUERY) | ; number of inpatient and outpatient days since IVMMTDT date to
; IVMENDT (earliest of day before next means test and day before current date). ; Input: DFN -- pointer to patient in file #2 ; IVMMTDT -- Means Test date/time for the patient ; IVMQUERY("OVIS") -- # of the QUERY that is currently open or ; undefined, zero, or null if no QUERY opened for ; finding outpatient visits ; Output: 1^2 where piece 1 = # of inpatient days ; piece 2 = # of outpatient days |
|
| EPQ | ||
| LOS(IVMDG,IVMST) | ; Calculate the length of stay for an admission.
; Input: IVMDG -- Pointer to the admission in file #405 ; IVMST -- [Optional] Date after the admission on ; which to begin calculation of the LOS. ; Output: X -- Length of stay (in days) |
|
| Q | ||
| ABS | ; If patient was out on absence, find return
|
|
| CHK(ADPTR,DATE) | ; Determine date that patient returned from leave
; Input: ADPTR -- Pointer to admission in file #405 ; DATE -- Date the patient was on leave or ASIH ; Output: X1 -- Date the patient returned from leave |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+30, EN+33, LOS+8, LOS+9, LOS+13, ABS+1, CHK+5, CHK+6 |
| ^DGPM("APCA" | LOS+13, ABS+1, CHK+6 |
| ^DGPM("ATID1" | EN+41 |
| ^TMP($J | EN+18!, EPQ! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CHK+4~ |
| A | LOS+6~, LOS+9*, LOS+11*, LOS+13 |
| ADPTR | CHK~, CHK+5, CHK+6 |
| D | LOS+6~, LOS+9*, LOS+10, ABS+4 |
| DATE | CHK~, CHK+6 |
| DFN | EN~, EN+15, EN+26, EN+41, LOS+6~, LOS+9*, LOS+13, ABS+1, CHK+6 |
| DGE | LOS+6~, ABS+1*, ABS+5, CHK+4~, CHK+6* |
| DGS | LOS+6~, LOS+13*, ABS+5, ABS+6 |
| DIS | CHK+4~, CHK+5*, CHK+7 |
| DT | EN+21 |
| I | LOS+6~, LOS+13*, ABS+1*, CHK+4~, CHK+6* |
| IVMAD | EN+10~ |
| IVMADMDT | EN+10~ |
| IVMADPTR | EN+11~, EN+33*, EN+34, EN+35 |
| IVMASIH | EN+11~, EN+30*, EN+31, EN+33 |
| IVMD | EN+10~, EN+41* |
| IVMDATE | EN+11~, EN+34*, EN+35, EN+37*, EN+38 |
| IVMDCN | EN+10~ |
| IVMDG | LOS~, LOS+8, LOS+9, LOS+13, ABS+1 |
| IVMDGPM | EN+10~ |
| IVMDISDT | EN+10~ |
| IVMDT | EN+10~ |
| IVMENDT | EN+10~, EN+26*, EN+41, LOS+9, LOS+13, CHK+5 |
| IVMF | EN+10~ |
| IVMI | EN+10~ |
| IVMIN | EN+10~, EN+13*, EN+32*, EN+35*, EN+38*, EN+41*, EPQ+1 |
| IVMMTDT | EN~, EN+14, EN+15*, EN+16, EN+17*, EN+21, EN+26, EN+29, EN+32, EN+34 , EN+36, EN+37, EN+38, EN+41 |
| IVMOUT | EN+10~, EN+13*, EPQ+1 |
| IVMQUERY | EN~, EN+45 |
| IVMST | LOS~, LOS+10, LOS+11 |
| LOA | LOS+6~, LOS+7*, LOS+14, ABS+6* |
| LOAS | LOS+6~, LOS+7*, LOS+14, ABS+7* |
| LOP | LOS+6~, LOS+7*, ABS+5* |
| LOS | LOS+6~, LOS+12*, LOS+14 |
| VADMVT | EN+11~, EN+30, EN+32, EN+37, EN+38 |
| VAERR | EN+11~ |
| VAINDT | EN+11~, EN+29* |
| VAIP | EN+11~ |
| VAIP("D" | EN+36* |
| VAIP(10 | EN+37, EN+38 |
| X | LOS+6~, LOS+8*, LOS+9*, LOS+10*, LOS+12, LOS+14*, Q, ABS+5*, ABS+6, ABS+7 , CHK+4~, CHK+5* |
| X1 | LOS+6~, LOS+9*, ABS+1*, ABS+4*, CHK+4~, CHK+6*, CHK+7 |
| X2 | LOS+6~, LOS+9*, LOS+11*, LOS+13*, CHK+4~ |
| Y | CHK+4~ |