Routine: DGPMVDD

Information

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	Prompt: !,"Ward inactive at time of movement" Line Location: WARD+1
Function Call: WRITE	Prompt: !,"Room-bed inactive at time of movement" Line Location: ROOM+1
Function Call: WRITE	Prompt: !,"Must be within 4 days" Line Location: ABSRET+2
Function Call: WRITE	Prompt: !,"Must be more than 4 days" Line Location: ABSRET+3
Function Call: WRITE	Prompt: !,"Must be within 30 days of transfer" Line Location: ABSRET+4

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

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*