DGPMTSI ;ALB/LM - TREATING SPECIALTY INPATIENT INFO ; 6/15/93
Source file <DGPMTSI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ||
| 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 |
|
| F | ||
| 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 |
