| SORT FIELD DATA |
-
- 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(1)=X
- QUERY CONDITION: I DISX(1)="ZG"
- DESCRIPTION OF SORT: CARD HOLDER equals ZG
- 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(1)=X
- FIELD NAME: CARD HOLDER
- SORT QUALIFIERS BEFORE FIELD: "16
- FROM VALUE INTERNAL: ZFz
- FROM VALUE EXTERNAL: ZG
- TO VALUE INTERNAL: ZG
- TO VALUE EXTERNAL: ZG
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: S DISX(2)=$P($G(^PRCH(440.6,D0,0)),U,7)
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: TRANSACTION DATE not null
- DATA TYPE FOR SORTING: DATE/TIME
- FIELD NO.: 6
- FIELD NAME: TRANSACTION DATE
- SORT QUALIFIERS BEFORE FIELD: @
- FROM VALUE INTERNAL: 2970522.99999
- FROM VALUE EXTERNAL: T-20
- FROM VALUE PRINTABLE: 5/23/97
- TO VALUE INTERNAL: 2970612
- TO VALUE EXTERNAL: T
- TO VALUE PRINTABLE: 6/12/97
-
- FILE OR SUBFILE NO.: 440.6
- GET CODE: S Y(3)=$S($D(^PRCH(440.6,D0,0)):^(0),1:""),Y(1)=$S($D(^(1)):^(1),1:"") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(3),U,7),X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)
- DESCRIPTION OF SORT: XUWORKDAY(#46,#6)>5
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(3)=$S($D(^PRCH(440.6,D0,0)):^(0),1:""),Y(1)=$S($D(^(1)):^(1),1:"") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(3),U,7),X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X
- FIELD NAME: XUWORKDAY(#46,#6)>5
- SORT QUALIFIERS BEFORE FIELD: @"@B
- SORT QUALIFIERS AFTER FIELD: ;L1
|
