Routine: DGPMDDCN

Information

DGPMDDCN ;ALB/MRL - DETERMINE INPATIENT X-REF'S; 9 FEB 89 [ 01/14/2004 11:21 AM ]

Source file <DGPMDDCN.m>

Package	Total	Call Graph
Registration	2	(EN,FIND,RESET,XREF)^DGPMDDLD (KVAR,MV,VAR)^VADPT30
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Registration	29	DGPMXAS ^DPT DGPMDDLD DGPMV3 DGPMX1 DGPMX13 DGPMX14 DGPMX15 DGPMX2 DGPMX21 DGPMX22 DGPMX23 DGPMX24 DGPMX25 DGPMX26 DGPMX4 DGPMX43 DGPMX45 DGPMX61 DGPMX62 DGPMX63 DGPMX64 DGPMX65 DGPMXA DGPMXAS2 DGPMXX1 DGPMXX2 DGSWITCH ^DGPM
IHS Changes To ADT	4	ADGT162 ADGT163 ADGT171 BDGPOST2

Name	Comments	DBIA/ICR reference
RESET	; -- reset ^DPT nodes and x-refs ; input: DFN
S9	; -- tr. spec x-ref
S8	; -- doc x-ref
K19	;
S7	; -- room-bed x-ref
S6	; -- ward x-ref
K7	;
K6	;
RESETQ
K9	;
K8	;
S19	; -- attend x-ref
SET	; -- generic set x-ref logic
1	;
CN	; -- set "CN" x-ref for file #2 equal to corresp adm mv
SETALL
CHK	;
K41	;
Q
S41	; -- fac dir x-ref (AFD)
XREF
KILL	; -- generic kill x-ref logic
KX
INPTCK	; check to see if patient is current inpatient

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	SET+3, KILL+3
^DG(405.4 - [#405.4]	K7+2
^DGPM - [#405]	1+4, S6+2, S6+7, K6+1, K6+4, CHK+1, CHK+2, XREF, XREF+2
^DGPM("ARM"	S7+1!, S7+4*, K7+1, RESET+5!
^DGPM("CN"	S6+1!, S6+2*, K6+1!, RESET+4!
^DIC(42 - [#42]	K6+1
^DPT - [#2]	1+4, S6+1, S6+4, S6+6, K6+1, K6+3, K6+4, S7+1, S7+2, K7+1 , K7+2, S8+1, K8+1, S9+1, K9+1, S19+1, K19+1, S41+1, K41+1, SET+2* , KILL+4!, RESET+4, RESET+5, RESET+6
^DPT("CN"	CN+3*

Name	Line Occurrences
@(	1+5, 1+12
CHK	S7+1, RESET+5
INPTCK	1+6, RESET+8
KILL	S6+1, S6+4, S6+6, K6+1, K6+3, K6+4, S7+1, S7+2, K7+1, K7+2 , S8+1, K8+1, S9+1, K9+1, S19+1, K19+1, S41+1, K41+1, RESET+5, RESET+6
KX	1+1, 1+4
Q	1+5, 1+7, 1+12
RESET	XREF+2
RESETQ	RESET+9
S19	SETALL
S41	SETALL
S6	SETALL
S7	SETALL
S8	SETALL
S9	SETALL
SET	S6+3, S6+5, S6+7, S7+3, S7+4, S8+2, S9+2, S19+2, S41+2
SETALL	RESET+13

Name	Field # of Occurrence
^(	S6+1, S6+4, S6+6, K6+1, K6+3, K6+4, S7+1, S7+2, K7+1!, K7+2 , S8+1, K8+1, S9+1, K9+1, S19+1, K19+1, SET+3, KILL+3, RESET+4, RESET+5 , RESET+6
^(0	K6+1, K7+2, XREF, XREF+2

Name	Field # of Occurrence
>> %	CN+2, INPTCK+1
DA	1+1, 1+4, K6+1, K6+3, K6+4, K7+1, SET+2~, KILL+2~, KILL+4, CN+2 , CN+3, XREF, XREF+2
DFN	1+4~, S6+1, S6+4, S6+6, K6+1, K6+3, K6+4, S7+1, S7+2, K7+1 , K7+2, CHK+2, S8+1, K8+1, S9+1, K9+1, S19+1, K19+1, S41+1, K41+1 , SET+2, KILL+2, CN+1~, CN+2, RESET+4, RESET+5, RESET+6, XREF+2~*
DGFLD	Q!, S6+1, S6+4, S6+6, K6+1, K6+3, K6+4, S7+1, S7+2, S7+4* , K7+1, K7+2, S8+1, K8+1, S9+1, K9+1, S19+1, K19+1, S41+1, K41+1 , SET+2, SET+3, KILL+3, KILL+4, RESET+5, RESET+6, RESETQ!
DGIX	SET+3, SET+4!, KILL+3, KILL+4!
DGPMDD	Q!
DGPMDDF	1+1, 1+5, 1+12, Q!
DGPMDDT	1+1, 1+5, Q!
>> DGPMT	1+1, XREF+1
DGPMX	Q!, S6+1, S6+2, S6+4, S6+5, S6+6, S6+7, K6+1, K6+3, K6+4* , S7+1, S7+2, S7+3, S7+4, K7+1, K7+2, S8+1, S8+2, K8+1, S9+1 , S9+2, K9+1, S19+1, S19+2, K19+1, S41+1, S41+2, K41+1, SET+1, SET+2 , SET+3, KILL+1, KILL+2, KILL+3, RESET+5, RESET+6, RESETQ!
DGPMX1	Q!, S7+1, CHK+1, CHK+2, RESET+5, RESETQ!
DGWD	1+8~, 1+10, RESET+10~, RESET+12
DGX	CN+1~, CN+2*, CN+3
I	Q!, RESETQ!
>> R	K7+2*
U	CN+3, XREF+2
VA200	INPTCK+2*!
>> VAAP	S19+2
>> VACN	INPTCK+1*
>> VAFD	S41+2
VAID	CN+1~, CN+2*
VAMT	CN+1~
VAMV	S6+2, S6+5, S6+7, CN+1~
VAMV0	CN+1~, CN+3
>> VAPP	S8+2
>> VAPRC	INPTCK+1*
>> VAPRT	INPTCK+1*
>> VARM	S7+3, S7+4
>> VATD	INPTCK+1*
>> VATS	S9+2
>> VAWD	1+7, S6+2, RESET+9
>> VAWDA	S7+4
W	K6+1*, K6+2!
X	1+11!, KX!, K6+1, K7+1, K7+2, K8+1, K9+1, K19+1, K41+1, SET+2~* , SET+3, KILL+2~, KILL+3*, CN+2