| SORT FIELD DATA |
-
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRC(442,"AB",^PRC(442,^2
-
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRC(442,"AH",^PRC(442,^2
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
- TO VALUE INTERNAL: @
-
- FROM VALUE INTERNAL: 000,z
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRC(442,"B",^PRC(442,^2
|
