A1B2MSP ;ALB/AAS - UTILITY TO SET BEDSECTIONSAND LOS FROM PTF ; 16-JAN-91
Source file <A1B2MSP.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 |
|---|---|---|
| 1 | ;build array of movement dates, billable specialties
|
|
| 2 | ;build array of billable specialties = los in specialties
; -- ptf record is closed, use all movements |
|
| 3 | ;find specialties and set up in file.
|
|
| SETU | ;utility array of all movements by date, billing specialty
|
|
| SETU1 | ;determine los - set utility=los
|
|
| STORE | ;store bedsection and los in 11500.61
|
|
| END | ;K ^UTILITY($J)
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | 3+2 |
| ^DGPT - [#45] | 1+1, 2+2, SETU+1 |
| ^DIC(42.4 - [#42.4] | SETU+2 |
| ^UTILITY($J | %+1!, 2+3, 3+2, SETU+3*, SETU1+1, SETU1+4*, SETU1+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A1B2BS | 3+1*, 3+2*, SETU1+1*, SETU1+4, SETU1+5 |
| >> A1B2BSI | 3+2*, STORE+1 |
| >> A1B2DT | STORE+1* |
| >> A1B2FL | STORE+1* |
| >> A1B2I | 1+1*, 3+2* |
| >> A1B2LOS | 3+2* |
| >> A1B2MVDP | 2+2*, 2+3*, SETU1+1, SETU1+2 |
| >> A1B2MVDT | 2+2*, 2+3*, SETU1+1, SETU1+2 |
| >> A1B2MVMT | 1+1*, SETU+1 |
| >> A1B2PASS | SETU1+1*, SETU1+3, SETU1+4, SETU1+5 |
| >> A1B2PTF | 1+1, 2+2, SETU+1 |
| >> A1B2SPC | SETU+2*, SETU+3 |
| >> DA | STORE+3* |
| >> DIE | STORE+3* |
| >> DR | STORE+3* |
| DT | SETU+3 |
| >> I | 2+3* |
| U | SETU+2, SETU+3 |
| >> X | SETU+1*, SETU+2, SETU+3, SETU1+2*, SETU1+3, SETU1+4, SETU1+5 |
| >> X1 | SETU1+1* |
| >> X2 | SETU1+1* |
| >> Y | STORE+3 |
