DGAINP0 ;ALB/RMO - Calculate 45 Patient Days of Care for Psych on AMIS 334 ; 14 MAY 90 11:10 am
Source file <DGAINP0.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 | ;Starting 45 days Prior to the BOM check Admissions and Transfers
|
|
| Q | ||
| MVT | ;Check Patient Movements associated with Psych Service
|
|
| CHK | ;Check Corresponding Admission Movements
|
|
| TRF | ;Check Transfer Movement
|
|
| SER | ;Check if Ward associate with the Movement is Psych Service
|
|
| CAL | ;Calculate Patient Days of Care Less than Forty-five
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | START+1, SER+1 |
| ^DGPM - [#405] | START+3, MVT+1, CHK+2, CHK+3, CHK+4, CHK+6 |
| ^DGPM("APCA" | CHK+6 |
| ^DGPM("APMV" | CHK+3 |
| ^DIC(42 - [#42] | SER+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | Q!, CHK+2*, CHK+3, CHK+6 |
| DGABD | Q!, CAL+5*, CAL+7 |
| DGABF | Q!, CHK+5*, TRF+1*, CAL+6 |
| DGADM | Q!, CHK+4*, CAL+6 |
| DGBDT | Q!, CHK+5*, CAL+3*, CAL+4 |
| >> DGBOM | START+2, CAL+2, CAL+3 |
| DGDIV | Q!, MVT+1*, CAL+8 |
| DGDMDT | Q!, CHK+4*, CAL+1, CAL+6 |
| DGDV | Q!, MVT+1, SER+1* |
| DGEDT | Q!, CAL+1*, CAL+2, CAL+4 |
| DGENDT | START+2*, START+3, Q! |
| >> DGEOM | START+2, CHK+6, CAL+1, CAL+6 |
| >> DGL45 | CAL+7*, CAL+8 |
| >> DGL45( | START+1*, CAL+8* |
| DGLOD | Q!, CAL+4*, CAL+7 |
| DGLSD | Q!, CAL+6*, CAL+7 |
| DGLSDT | Q!, CHK+5*, CHK+6, CAL+1, CAL+6 |
| DGMVTP | START+1*, Q!, TRF+1 |
| DGNPF | Q!, CHK+5*, CHK+6, TRF+1*, CAL+1, CAL+6 |
| DGPM0 | Q!, MVT+1*, CHK+1, CHK+2, CHK+3*, CHK+6*, TRF+1, SER+1 |
| DGPMCA | Q!, CHK+2*, CHK+3, CHK+6 |
| DGPMCA0 | Q!, CHK+2*, CHK+4 |
| DGPMDT | Q!, CHK+3*, CHK+6* |
| DGPMI | Q!, MVT+1* |
| DGPMTDT | START+3*, Q!, MVT+1, CHK+3, CHK+6 |
| DGPMTT | START+3*, Q!, MVT+1 |
| DGPMVDT | START+3*, Q!, CHK+5 |
| DGREC | Q!, CAL+5 |
| DGSEG | Q!, MVT+1, CHK+3, TRF+1, SER+1* |
| DGSTDT | START+2*, START+3, Q! |
| DGTMDT | Q!, CHK+5*, CHK+6*, CAL+1, CAL+6 |
| DGW0 | Q!, SER+1* |
| I | START+1*, Q! |
| X | START+2, Q!, CHK+5, CAL+4 |
| X1 | START+2*, Q!, CHK+5*, CAL+4* |
| X2 | START+2*, Q!, CHK+5*, CAL+4* |
