| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: S DISX(1)=$P($G(^PRCH(440.6,D0,0)),U,6)
- QUERY CONDITION: I DISX(1)'=""
- DESCRIPTION OF SORT: STATEMENT DATE not null
- SEARCH EFFICIENCY RATING: 0.0000
- PROBABILITY RATING: 0.0000
- DATA TYPE FOR SORTING: DATE/TIME
- FIELD NO.: 5
- FIELD NAME: STATEMENT DATE
- SORT QUALIFIERS BEFORE FIELD: +#
- SORT QUALIFIERS AFTER FIELD: ;C1
- FROM VALUE INTERNAL: 2971203.99999
- FROM VALUE EXTERNAL: T-1
- FROM VALUE PRINTABLE: 12/4/97
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRCH(440.6,"D",^PRCH(440.6,^2
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: X DPP(2,"OVF0",9.5) S Y(202)=X S X="DUZ" Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)
- DESCRIPTION OF SORT: INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR(""DUZ"")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR(""DUZ""))
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(2,"OVF0",9.5) S Y(202)=X S X="DUZ" Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S I(100,0)=$S($D(D0):D0,1:"")
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.3
- OVERFLOW CODE: X DPP(2,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$P(Y(101),U,9),X=X S X=X,Y(102)=X S X="DUZ"
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.4
- OVERFLOW CODE: X DPP(2,"OVF0",9.3) Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(102),X=X S X=X=Y,Y(103)=X,Y(104)=X S X=$P(Y(1),U,4)
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.5
- OVERFLOW CODE: X DPP(2,"OVF0",9.4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S Y(201)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$P(Y(201),U,10),X=X S X=X
- FIELD NAME: INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR("DUZ")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR("DUZ"))
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: X DPP(3,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)'=""
- DESCRIPTION OF SORT: CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(3,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
- FIELD NAME: CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL
- SORT QUALIFIERS BEFORE FIELD: +"
- SORT QUALIFIERS AFTER FIELD: ;"APPROVING OFFICIAL: ";C1
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
- QUERY CONDITION: I DISX(4)'=""
- DESCRIPTION OF SORT: CARD HOLDER not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
- FIELD NAME: CARD HOLDER
- SORT QUALIFIERS BEFORE FIELD: +"16
- SORT QUALIFIERS AFTER FIELD: ;C1
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: S DISX(5)=$P($G(^PRCH(440.6,D0,0)),U,4)
- QUERY CONDITION: I DISX(5)'=""
- DESCRIPTION OF SORT: CREDIT CARD NUMBER not null
- SEARCH EFFICIENCY RATING: 0.0000
- PROBABILITY RATING: 0.0000
- DATA TYPE FOR SORTING: FREE TEXT
- FIELD NO.: 3
- FIELD NAME: CREDIT CARD NUMBER
- SORT QUALIFIERS BEFORE FIELD: @+
|
