DGPMSTAT ;ALB/JDS - DETERMINE INPATIENT STATUS - FORMERLY DGINPW ;01 JAN 1986
Source file <DGPMSTAT.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 |
|
| 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 |
