| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P($G(^PRCD(442.5,+$P(Y(1),U,2),0)),U)["1358 OBLIGATION" I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)
- DESCRIPTION OF SORT: METHOD OF PROCESSING[""1358 OBLIGATION""
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P($G(^PRCD(442.5,+$P(Y(1),U,2),0)),U)["1358 OBLIGATION" I D0>0 S DISX(1)=X
- FIELD NAME: METHOD OF PROCESSING["1358 OBLIGATION"
- SORT QUALIFIERS BEFORE FIELD: '"@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=3,X=$E(Y(2),Y(3),X) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: $E(PURCHASE ORDER NUMBER,1,3) not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=3,X=$E(Y(2),Y(3),X) I D0>0 S DISX(2)=X
- FIELD NAME: $E(PURCHASE ORDER NUMBER,1,3)
- SORT QUALIFIERS BEFORE FIELD: @#"
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S DISX(3)=$P($G(^PRC(442,D0,0)),U,4)
- QUERY CONDITION: I DISX(3)'=""
- DESCRIPTION OF SORT: APPROPRIATION not null
- SEARCH EFFICIENCY RATING: 0.1881
- PROBABILITY RATING: 0.1881
- DATA TYPE FOR SORTING: FREE TEXT
- FIELD NO.: 1.4
- FIELD NAME: APPROPRIATION
- SORT QUALIFIERS AFTER FIELD: ;S3
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S Y(2)=0 S Y(1)="" X DPP(4,"OVF0",9.4) S X=Y(1),Y(3)=$G(X) S X=1,Y(4)=$G(X) S X=6,X=$E(Y(3),Y(4),X) I D0>0 S DISX(4)=X
- QUERY CONDITION: I DISX(4)'=""
- DESCRIPTION OF SORT: $E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6) not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(2)=0 S Y(1)="" X DPP(4,"OVF0",9.4) S X=Y(1),Y(3)=$G(X) S X=1,Y(4)=$G(X) S X=6,X=$E(Y(3),Y(4),X) I D0>0 S DISX(4)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: N Y S Y(1)=$S($D(^PRC(442,D0,"10",D1,0)):^(0),1:"") S X=$P(Y(1),U,1)
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.3
- OVERFLOW CODE: F D=0:0 S (D,D1)=$O(^PRC(442,D0,10,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U) X DPP(4,"OVF0",9.2) S Y=X S:Y'?." " Y(2)=Y(2)+1 I Y(2)=1,Y'?." " S Y(1)=Y Q Q:'$D(D) S D=D1
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.4
- OVERFLOW CODE: S I(1,0)=$G(D1) X DPP(4,"OVF0",9.3):D0>0 S X="" S D1=I(1,0)
- FIELD NAME: $E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6)
- SORT QUALIFIERS BEFORE FIELD: @"
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S DISX(5)=$P($G(^PRC(442,D0,0)),U)
- QUERY CONDITION: I DISX(5)'=""
- DESCRIPTION OF SORT: PURCHASE ORDER NUMBER not null
- SEARCH EFFICIENCY RATING: 0
- PROBABILITY RATING: 0
- DATA TYPE FOR SORTING: FREE TEXT
- FIELD NO.: .01
- FIELD NAME: PURCHASE ORDER NUMBER
- CROSS REFERENCE DATA: ^PRC(442,"B",^PRC(442,^2
-
- FILE OR SUBFILE NO.: 442
- GET CODE: S Y(1)=$S($D(^PRC(442,D0,8)):^(8),1:"") S X=$P(Y(1),U,2)'=0 I D0>0 S DISX(6)=X
- QUERY CONDITION: I DISX(6)
- DESCRIPTION OF SORT: FISCAL 1358 BALANCE'=0
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRC(442,D0,8)):^(8),1:"") S X=$P(Y(1),U,2)'=0 I D0>0 S DISX(6)=X
- FIELD NAME: FISCAL 1358 BALANCE'=0
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
|
