DGPMTSI ;ALB/LM - TREATING SPECIALTY INPATIENT INFO ; 6/15/93
Source file <DGPMTSI.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 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | START+2, TR2 |
| ^DGPM - [#405] | F, CA+4, XFR+8, TREAT1 |
| ^DGPM("APMV" | CA+4, XFR+8 |
| ^DGPM("ATID1" | F |
| ^DGPM("ATS" | TREAT1 |
| ^DIC(45.7 - [#45.7] | TREAT+3 |
| ^DPT - [#2] | START+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | CA+4*, XFR+2, XFR+4, XFR+6, XFR+8* |
| >> DFN | START+3*, F, CA+4, XFR+8, TREAT1 |
| >> DG1 | EN+8*, CA+4*, CA+5, CA+6*, XFR+2*, TREAT |
| >> DG2 | TREAT+1*, TREAT+2*, TREAT+3*, TR2* |
| >> DGA1 | F*, CA+4, XFR+6, XFR+8, TREAT1 |
| DGCA | EN+7!, F*, TR2 |
| >> DGDA | TREAT1* |
| DGDC | EN+7!, F*, F+1 |
| >> DGID | TREAT1* |
| DGNO | F+2! |
| DGPMAB | XFR+5~, XFR+8 |
| DGPMNI | XFR+5~, XFR+6* |
| DGPMTN | XFR+5~, XFR+6* |
| >> DGS | CA+4*, TREAT1*, TR2 |
| >> DGT | START+1*, F, F+1, CA+4, TR2 |
| >> DGTS | START+3*, F*, CA+4*, TR2* |
| >> DGTSDT | START*, START+1, START+2* |
| >> DGW | CA+4*, XFR+8*, TR2+1* |
| >> DGX | TREAT1*, TR2, TR2+1 |
| >> DGXFR0 | START+3*, XFR+2* |
| IAD | EN+7!, F* |
| IMD | EN+7!, CA+4* |
| IO("Q" | START |
| MT | EN+7!, CA+4* |
| >> PTCTS | START* |
| >> PTLTS | START* |
| >> PTLWD | START* |
| >> TSXDT | TREAT1*, TR2* |
| U | F, TREAT+3 |
| >> Y | START+1*, START+2, TR2* |
| >> ZTSAVE("DGTSDT" | START |
| >> ZTSAVE("PTCTS" | START |
| >> ZTSAVE("PTLTS" | START |
| >> ZTSAVE("PTLWD" | START |
