| GENERAL DESCRIPTION |
Routine ^DGPMDDCN uses a direct global read with ^DD to
set and kill cross-references for Patient file (#2) fields.
The code follows SET+3 F DGIX=0:0 S DGIX=$O(^DD(2,DGFLD,1,DGIX)) Q:'DGIX
X ^(DGIX,1) S X=DGPMX KILL+3 F DGIX=0:0 S DGIX=$O(^DD(2,DGFLD,1,DGIX))
Q:'DGIX X ^(DGIX,2) S X=DGPMX
Fields included are:
.1 Ward Location
.102 Current Movement
.013 Treating Specialty
.104 Provider
.1041 Attending Physician
.105 Current Admission
.108 Current Room
.109 Exclude From Facility
|