DGPMDDCN ;ALB/MRL - DETERMINE INPATIENT X-REF'S ;3/04/08 8:54am
Source file <DGPMDDCN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
1 | ;
|
|
KX | ||
Q | ||
S6 | ; -- ward x-ref
|
|
K6 | ;
|
|
S7 | ; -- room-bed x-ref
|
|
K7 | ;
|
|
CHK | ;
|
|
S8 | ; -- doc x-ref
|
|
K8 | ;
|
|
S9 | ; -- tr. spec x-ref
|
|
K9 | ;
|
|
S19 | ; -- attend x-ref
|
|
K19 | ;
|
|
S41 | ; -- fac dir x-ref (AFD)
|
|
K41 | ;
|
|
SET | ; -- generic set x-ref logic
|
|
KILL | ; -- generic kill x-ref logic
|
|
CN | ; -- set "CN" x-ref for file #2 equal to corresp adm mv
|
|
RESET | ; -- reset ^DPT nodes and x-refs
; input: DFN |
|
RESETQ | ||
SETALL | ||
XREF | ||
INPTCK | ; check to see if patient is current inpatient
|