DGPMSTAT ;ALB/JDS - DETERMINE INPATIENT STATUS - FORMERLY DGINPW ;01 JAN 1986
Source file <DGPMSTAT.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 6 | DGDEATH DGINPW DGPMHST DGQPT2 DGRRLU2 DGSEC |
| Dietetics | 3 | FHASE FHASN71 FHMASE |
| Mental Health | 1 | YSCLHLGT |
| Order Entry Results Reporting | 1 | ORQPT2 |
| Scheduling | 1 | SCRPW41 |
| 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 |
|
| 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 |
|
| CAQ | ||
| XFR | ; -- set DG1="" if XFR to asih(oth fac) --ELSE-- add MVT type to DG1
|
|
| TREAT | ||
| TREAT1 | ||
| TR2 | ||
| DGT(X) | ; FIGURE OUT WHICH TYPE OF DATE TO USE FOR DGWARDWHEN
; Input: X=Date in either FM format or regular date ; Output: Date in FM format |
|
| DGTQ |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DGT+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+13, CA+4, TREAT1 |
| ^DGPM("APMV" | CA+4 |
| ^DGPM("ATID1" | EN+13 |
| ^DGPM("ATS" | TREAT1 |
| ^DIC(45.7 - [#45.7] | TREAT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+14, CA+3*, CA+4*, XFR+1 |
| %DT | DGT+3~, DGT+5* |
| >> DFN | EN+13, CA+4, TREAT1 |
| >> DG1 | EN+8*, EN+13, EN+14*, CA+4*, XFR+1*, TREAT |
| >> DG2 | TREAT*, TREAT+1*, TREAT+2*, TR2* |
| >> DGA1 | EN+13*, CA+4, TREAT1 |
| DGCA | EN+7~, EN+13* |
| >> DGDA | TREAT1* |
| DGDC | EN+7~, EN+13*, EN+14 |
| >> DGID | TREAT1* |
| DGNO | EN+15! |
| >> DGS | TREAT1*, TR2 |
| >> DGT | EN+13, EN+14, CA+4, TR2 |
| >> DGX | TREAT1*, TR2 |
| >> DGXFR0 | XFR+1* |
| DT | DGT+4 |
| IAD | EN+7~, EN+13* |
| IMD | EN+7~, CA+4* |
| MT | EN+7~, CA+4* |
| U | EN+13, EN+14, TREAT+2 |
| X | DGT~, DGT+4*, DGT+5*, DGTQ |
| Y | DGT+3~, DGT+5 |
