| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 430
- GET CODE: X DPP(1,"OVF0",9.2) S Y=X,X=Y(2),X=X!Y I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)
- DESCRIPTION OF SORT: (CURRENT STATUS=""ACTIVE"")!(CURRENT STATUS=""SUSPENDED"")
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(1,"OVF0",9.2) S Y=X,X=Y(2),X=X!Y I D0>0 S DISX(1)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P($G(^PRCA(430.3,+$P(Y(1),U,8),0)),U)="ACTIVE",Y(2)=$G(X) S X=$P($G(^PRCA(430.3,+$P(Y(1),U,8),0)),U)="SUSPENDED"
- FIELD NAME: (CURRENT STATUS="ACTIVE")!(CURRENT STATUS="SUSPENDED")
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 430
- GET CODE: S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P($G(^PRCA(430.2,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: CATEGORY not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$P($G(^PRCA(430.2,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(2)=X
- FIELD NAME: CATEGORY
- SORT QUALIFIERS BEFORE FIELD: +"2
|
