©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGMTINP ; IHS/ADC/PDW/ENM - DETERMINE INPATIENT STATUS ; [ 03/25/1999 11:48 AM ]
Source file <DGMTINP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- call to return coresp adm and mvt data of pt as of a date
; input: DFN => patient file ifn ; DGT => date to check if pt was inpatient ; output: DGA1 => coresp adm mvt ifn of ^DGPM ; DG1 => ward ^ room-bed ^ mvt type(for xfrs only) ; DGXFR0 => Oth of last xfr mvt for admission ; -- init |
|
| TR2 | ||
| TREAT1 | ||
| CA | ; -- scan mvts for cor. adm that happened on or before DGT date
; -- if mvt is adm or xfr then set DG1 ; -- if mvt is xfr then continue to XFR |
|
| TREAT | ||
| XFR | ; -- set DG1="" if XFR to asih(oth fac) --ELSE-- add MVT type to DG1
|
|
| CAQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+12, CA+3, TREAT1 |
| ^DGPM("APMV" | CA+3 |
| ^DGPM("ATID1" | EN+12 |
| ^DGPM("ATS" | TREAT1 |
| ^DIC(45.7 - [#45.7] | TREAT+2 |
| Name | Line Occurrences |
|---|---|
| CA | EN+12 |
| EN | TREAT |
| TR2 | TREAT1 |
| TREAT1 | TREAT |
| XFR | CA+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+12, CA+3 |
| ^(0 | EN+12, CA+3, TREAT+2, TREAT1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | CA+3*, XFR+1 |
| >> DFN | EN+12, CA+3, TREAT1 |
| >> DG1 | EN+8*, EN+12, CA+3*, XFR+1*, TREAT |
| >> DG2 | TREAT*, TREAT+1*, TREAT+2*, TR2* |
| >> DGA1 | EN+12*, CA+3, TREAT1 |
| >> DGDA | TREAT1* |
| >> DGID | TREAT1* |
| DGNO | EN+13! |
| >> DGS | TREAT1*, TR2 |
| >> DGT | EN+12, CA+3, TR2 |
| >> DGX | TREAT1*, TR2 |
| >> DGXFR0 | XFR+1* |
| IAD | EN+7~, EN+12* |
| IMD | EN+7~, CA+3* |
| MT | EN+7~, CA+3* |
| U | TREAT+2 |