| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: S DISX(1)=$P($G(^GMR(120.8,D0,0)),U,17)
- QUERY CONDITION: I (DISX(1)]]3070715.999999)&(DISX(1)']]3071207.24)
- DESCRIPTION OF SORT: VERIFICATION DATE/TIME from Jul 16,2007 to Dec 7,2007@24:00
- SEARCH EFFICIENCY RATING: 100.0000
- PROBABILITY RATING: 1.0000
- DATA TYPE FOR SORTING: DATE/TIME
- FIELD NO.: 20
- FIELD NAME: VERIFICATION DATE/TIME
- SORT QUALIFIERS BEFORE FIELD: '@
- SORT QUALIFIERS AFTER FIELD: ;PGMRAVFR-GMRAVTO
- FROM VALUE INTERNAL: 3070715.999999
- FROM VALUE EXTERNAL: Jul 16,2007
- FROM VALUE PRINTABLE: Jul 16,2007
- TO VALUE INTERNAL: 3071207.24
- TO VALUE EXTERNAL: Dec 7,2007@2400
- TO VALUE PRINTABLE: Dec 7,2007@24:00
- CROSS REFERENCE DATA: ^GMR(120.8,"V",^GMR(120.8,^2
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: S DISX(2)=$P($G(^GMR(120.8,D0,0)),U,16)
- QUERY CONDITION: I DISX(2)=1
- DESCRIPTION OF SORT: VERIFIED equals 1
- SEARCH EFFICIENCY RATING: 0.2079
- PROBABILITY RATING: 0.2079
- DATA TYPE FOR SORTING: SET OF CODES
- FIELD NO.: 19
- FIELD NAME: VERIFIED
- SORT QUALIFIERS BEFORE FIELD: '@
- FROM VALUE INTERNAL: .99999
- FROM VALUE EXTERNAL: 1
- TO VALUE INTERNAL: 1
- TO VALUE EXTERNAL: 1
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: S Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,18),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)=""
- DESCRIPTION OF SORT: VERIFIER is null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,18),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- FIELD NAME: VERIFIER
- SORT QUALIFIERS BEFORE FIELD: '@"21
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: @
- TO VALUE EXTERNAL: @
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.1)):^(.1),1:"") S X=$E(Y(101),1,30) S D0=I(0,0) I D0>0 S DISX(4)=X
- QUERY CONDITION: I (DISX(4)]]"@z")&(DISX(4)']]"Z")
- DESCRIPTION OF SORT: PATIENT:WARD LOCATION from A to Z
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.1)):^(.1),1:"") S X=$E(Y(101),1,30) S D0=I(0,0) I D0>0 S DISX(4)=X
- FIELD NAME: PATIENT:WARD LOCATION
- SORT QUALIFIERS BEFORE FIELD: "
- SORT QUALIFIERS AFTER FIELD: ;"WARD LOCATION: ";C1;S2
- FROM VALUE INTERNAL: @z
- FROM VALUE EXTERNAL: A
- TO VALUE INTERNAL: Z
- TO VALUE EXTERNAL: Z
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: X DPP(5,"OVF0",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(5)=X
- QUERY CONDITION: I 1
- DESCRIPTION OF SORT: All .01:.101 (includes nulls)
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(5,"OVF0",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(5)=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(^GMR(120.8,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.101)):^(.101),1:"")
- FIELD NAME: .01:.101
- SORT QUALIFIERS BEFORE FIELD: @"
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: z
-
- FILE OR SUBFILE NO.: 120.8
- GET CODE: S DISX(6)=$P($G(^GMR(120.8,D0,0)),U,14)
- QUERY CONDITION: I (DISX(6)]]"@z")&(DISX(6)']]"U")
- DESCRIPTION OF SORT: MECHANISM from A (ALLERGY) to U (UNKNOWN)
- SEARCH EFFICIENCY RATING: 0.0000
- PROBABILITY RATING: 0.0000
- DATA TYPE FOR SORTING: SET OF CODES
- FIELD NO.: 17
- FIELD NAME: MECHANISM
- SORT QUALIFIERS AFTER FIELD: ;C5;"MECHANISM: ";S
- FROM VALUE INTERNAL: @z
- FROM VALUE EXTERNAL: A
- FROM VALUE PRINTABLE: A (ALLERGY)
- TO VALUE INTERNAL: U
- TO VALUE EXTERNAL: U
- TO VALUE PRINTABLE: U (UNKNOWN)
|
