PCE (PX) is granted permission to execute the DD nodes
for completing cross-references in the 9000001 file from within
cross-reference logic on the Social Security (.09) field in the Patient file.
There is a Regular "B" cross-reference on the .01 field (NAME) of the
PATIENT/IHS file (9000001). There is also a Regular "D" cross- reference on
the .02 field of the 9000001.41 Health Record Number multiple. Since the
fields in the 9000001 file are being populated from during the execution of
the Patient File (2) PX09 cross- reference, the DD logic for setting these
cross-references is being handled by executing the 9000001 and 9000001.41 DD
nodes with the set and kill logic.
Routine PXXDPT executes the set logic of the 'B' cross reference of file
9000001, (Patient/IHS File), field .01 (Name).
It also executes the set and kill logic of the 'D' whole file cross reference
of subfile 9000001.41, (Health Record Fac), field .02 (Health Record No.)
In V21 of FileMan, the entry points in ^DIK that reindex cross references are
reentrant. Thus, direct execution of set/kill logic will not be necessary.
Also PCE's Debugging Utility does a Global Read in the form of
'$D(^DD(2,.09,1,800)) to check that the cross reference to update the
PATIENT/IHS file (#9000001) exists.