| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 74.4
- GET CODE: S DISX(1)=$P($G(^RABTCH(74.4,D0,0)),U,4)
- QUERY CONDITION: I (DISX(1)]]2970907.99999)&(DISX(1)']]2971217.9999)
- DESCRIPTION OF SORT: PRINT DATE/TIME from 9/8/97 to 12/17/97@99:99
- SEARCH EFFICIENCY RATING: 29.0000
- PROBABILITY RATING: 0.9667
- DATA TYPE FOR SORTING: DATE/TIME
- FIELD NO.: 4
- FIELD NAME: PRINT DATE/TIME
- SORT QUALIFIERS BEFORE FIELD: @
- FROM VALUE INTERNAL: 2970907.99999
- FROM VALUE EXTERNAL: 2970908
- FROM VALUE PRINTABLE: 9/8/97
- TO VALUE INTERNAL: 2971217.9999
- TO VALUE EXTERNAL: 2971217.9999
- TO VALUE PRINTABLE: 12/17/97@99:99
- CROSS REFERENCE DATA: ^RABTCH(74.4,"AD",^RABTCH(74.4,^2
-
- FILE OR SUBFILE NO.: 74.4
- GET CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X
- QUERY CONDITION: I (DISX(2)]]"@z")&(DISX(2)']]"Z")
- DESCRIPTION OF SORT: REPORT:HOSPITAL DIVISION 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(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X
- FIELD NAME: REPORT:HOSPITAL DIVISION
- SORT QUALIFIERS BEFORE FIELD: @"
- FROM VALUE INTERNAL: @z
- FROM VALUE EXTERNAL: A
- TO VALUE INTERNAL: Z
- TO VALUE EXTERNAL: Z
-
- FILE OR SUBFILE NO.: 74.4
- GET CODE: S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"") S X=$S('$D(^DIC(42,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- QUERY CONDITION: I (DISX(3)]]"1Dz")&(DISX(3)']]"3S")
- DESCRIPTION OF SORT: WARD from 1E to 3S
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"") S X=$S('$D(^DIC(42,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
- FIELD NAME: WARD
- SORT QUALIFIERS BEFORE FIELD: @"6
- FROM VALUE INTERNAL: 1Dz
- FROM VALUE EXTERNAL: 1E
- TO VALUE INTERNAL: 3S
- TO VALUE EXTERNAL: 3S
-
- FILE OR SUBFILE NO.: 74.4
- GET CODE: X DPP(4,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X
- QUERY CONDITION: I DISX(4)'=""
- DESCRIPTION OF SORT: REPORT:PATIENT NAME not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(4,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=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(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S Y(101)=$S($D(^RARPT(D0,0)):^(0),1:"")
- FIELD NAME: REPORT:PATIENT NAME
- SORT QUALIFIERS BEFORE FIELD: @"
|
