DGPMVDD ;ALB/MIR - MISCELLANEOUS DD CALLS FROM FILE 405 AND 405.1 ; 4/14/04 6:26pm
Source file <DGPMVDD.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 |
|---|---|---|
| W | ;called from input transform for ward location
|
|
| W1 | ;consistency edits for ward location from admit option
|
|
| ZZ | ||
| W2 | ;Ward consistency check for transfer. interward transfers not to same ward. unless ASIH mvt, can't go from hospital to NHCU/DOM, vice versa
|
|
| WARD | ;is ward active at time of movement?
|
|
| ROOM | ;is room-bed active at time of movement? - called from input transform of .07 in 405
|
|
| TROC | ;is bed occupied when transferring from 1 or 23 movement?
|
|
| TROCWB | ;check if ward still has available beds
|
|
| ABSRET | ;check absence return date for consistency with movement type
|
|
| UARET | ;called from DGPM TRANSFER template...default 30 day return from UA
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | UARET+4 |
| ^DG(405.2 - [#405.2] | W2+18 |
| ^DG(405.4 - [#405.4] | TROCWB+1 |
| ^DGPM - [#405] | W+2, W1+2, W2+3, WARD+1, ROOM+1, TROC+6, ABSRET+1, UARET+2 |
| ^DGPM("ARM" | TROC+6, TROCWB+1 |
| ^DIC(42 - [#42] | W1+7, W2+3, W2+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | WARD+1~*, ROOM+1~*, TROC+9~* |
| >> DA | W+2, W2+3, WARD+1, ROOM+1, ABSRET+1, UARET+2 |
| DGB | TROC+10!, TROCWB+1* |
| DGOCC | TROC+10!, TROCWB+1* |
| >> DGOOS | WARD+1*, ROOM+1*, TROC+5*, TROC+9* |
| >> DGPM0 | W2+9, TROC+5, TROC+6, TROC+9 |
| >> DGPM2 | W1+7, ZZ+1, W2+18 |
| >> DGPMABL | ZZ+1, W2+18 |
| >> DGPMOC | TROC+5*, TROC+6*, TROC+9 |
| DGPMOS | WARD+1*, ROOM+1*, TROC+9*, TROC+10! |
| >> DGPMP | W+2, W1+2 |
| DGPMRD | ABSRET+1*, ABSRET+2, ABSRET+3, ABSRET+4, ABSRET+5! |
| >> DGPMRET | UARET+3*, UARET+4* |
| >> DGPMSVC | W1+1 |
| >> DGPMT | W+1, W+2 |
| DGPMTYP | W+2*, W1+2, W1+4, W1+7, W2+2, W2+6, W2+18, ABSRET+1*, ABSRET+2, ABSRET+3 , ABSRET+5! |
| >> DGPMWD | W+2*, W1+7 |
| DGPMX | TROC+6*, TROC+10!, ABSRET+1*, ABSRET+2, ABSRET+3, ABSRET+4, ABSRET+5!, UARET+1~, UARET+2*, UARET+3 , UARET+4 |
| DGRAI | W2+4~*, W2+8, W2+10*, W2+12, W2+14, W2+16 |
| >> DGSWITCH | ROOM+1 |
| >> DGX | W1+2*, W1+4*, W1+7*, ZZ, W2+3*, W2+4, W2+7, W2+8, W2+9*, W2+10 , W2+12, W2+13, W2+14, W2+16, W2+18* |
| >> DGZ6 | TROC+5*, TROCWB+1 |
| >> DGZ7 | TROC+5*, TROC+6, TROC+9 |
| DIC | W+1! |
| DIC("S" | W1+1*, W1+2*, W1+4*, ZZ*, ZZ+1*, W2+2*, W2+7*, W2+8*, W2+13*, W2+14* , W2+17*, W2+18* |
| DT | ROOM+1 |
| I | TROC+10!, TROCWB+1* |
| U | W1+7 |
| X | W+1!, WARD+1~, ROOM+1~, TROC+9~, ABSRET+1, ABSRET+2!, ABSRET+3!, ABSRET+4!, ABSRET+5*, UARET+1~ , UARET+4 |
| X1 | ABSRET+2*, ABSRET+3*, ABSRET+4*, UARET+1~, UARET+4* |
| X2 | ABSRET+2*, ABSRET+3*, ABSRET+4*, UARET+1~, UARET+4* |
| Y | WARD+1, ROOM+1, UARET+1~, UARET+4* |
