| 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,"B",^PRC(442,^2
-
- COMPUTED FIELD CODE: X DPP(3,"OVF0",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(3)=X
- TO VALUE INTERNAL: z
-
-
- COMPUTED FIELD CODE: X DPP(5,"OVF1",9.3) S X=X="",Y=X,X=Y(3),X=X!Y,Y(4)=X S X=1,Y(5)=X S X=1,Y(6)=X S X=0,X=$S(Y(4):Y(5),Y(6):X) I D1>0 S X(5)=X
|
