DGPMVDD ;ALB/MIR - MISCELLANEOUS DD CALLS FROM FILE 405 AND 405.1 ; 4/14/04 6:26pm
Source file <DGPMVDD.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | (RIN,WIN)^DGPMDDCF |
VA Fileman | 1 | C^%DTC |
Package | Total | Caller Graph |
---|---|---|
Registration | 7 | DGPMX13 DGPMX2 DGPMX23 DGPMX4 DGPMX43 DGPMX45 ^DGPM |
IHS Changes To ADT | 1 | ADGT162 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ROOM | ;is room-bed active at time of movement? - called from input transform of .07 in 405
|
|
UARET | ;called from DGPM TRANSFER template...default 30 day return from UA
|
|
TROC | ;is bed occupied when transferring from 1 or 23 movement?
|
|
TROCWB | ;check if ward still has available beds
|
|
W | ;called from input transform for ward location
|
|
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
|
|
ZZ | ||
WARD | ;is ward active at time of movement?
|
|
ABSRET | ;check absence return date for consistency with movement type
|
|
W1 | ;consistency edits for ward location from admit option
|
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 |
Name | Line Occurrences |
---|---|
W1 | W+2 |
W2 | W+2 |
Name | Field # of Occurrence |
---|---|
^("E" | W2+18 |
^(0 | W1+2, W2+3, W2+4, W2+9, W2+10 |
>> | 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* |