| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 101
- GET CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)'=""
- DESCRIPTION OF SORT: SENDING APPLICATION not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
- FIELD NAME: SENDING APPLICATION
- SORT QUALIFIERS BEFORE FIELD: @"770.1
-
- FILE OR SUBFILE NO.: 101
- GET CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771.2,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: TRANSACTION MESSAGE TYPE not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771.2,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
- FIELD NAME: TRANSACTION MESSAGE TYPE
- SORT QUALIFIERS BEFORE FIELD: @"770.3
-
- FILE OR SUBFILE NO.: 101
- GET CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(779.001,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- QUERY CONDITION: I 1
- DESCRIPTION OF SORT: All EVENT TYPE (includes nulls)
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(779.001,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- FIELD NAME: EVENT TYPE
- SORT QUALIFIERS BEFORE FIELD: @"770.4
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: z
-
- FILE OR SUBFILE NO.: 101
- GET CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771.5,+$P(Y(1),U,10),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
- QUERY CONDITION: I 1
- DESCRIPTION OF SORT: All VERSION ID (includes nulls)
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"") S X=$S('$D(^HL(771.5,+$P(Y(1),U,10),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
- FIELD NAME: VERSION ID
- SORT QUALIFIERS BEFORE FIELD: @"770.95
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: z
-
- FILE OR SUBFILE NO.: 101
- GET CODE: S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S X=X="E" I D0>0 S DISX(5)=X
- QUERY CONDITION: I DISX(5)
- DESCRIPTION OF SORT: INTERNAL(TYPE)=""E""
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S X=X="E" I D0>0 S DISX(5)=X
- FIELD NAME: INTERNAL(TYPE)="E"
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 101
- GET CODE: X DPP(6,"OVF0",9.2) S X=+Y(102)>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(6)=X
- QUERY CONDITION: I DISX(6)
- DESCRIPTION OF SORT: COUNT(SUBSCRIBER)>0
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(6,"OVF0",9.2) S X=+Y(102)>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(6)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: S I(0,0)=$G(D0),I(1,0)=$G(D1),Y(102)="" X "F D1=0:0 S D1=$O(^ORD(101,D0,775,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""")'?."" "" Y(102)=Y(102)+1" S D(1)=D1
- FIELD NAME: COUNT(SUBSCRIBER)>0
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
|
