| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 783
- GET CODE: S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)'=""
- DESCRIPTION OF SORT: PATIENT not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X
- FIELD NAME: PATIENT
- SORT QUALIFIERS BEFORE FIELD: @".03
- CROSS REFERENCE DATA: ^RMIM(783,"DFN",^RMIM(783,^2
- POINT TO CROSS REFERENCE: ^DPT("B",
|
