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
 |