| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 470
- GET CODE: S DISX(1)=$P($G(^PRPF(470,D0,0)),U,2)
- QUERY CONDITION: I (DISX(1)]]"@z")&(DISX(1)']]"B")
- DESCRIPTION OF SORT: ACCOUNT STATUS
- DATA TYPE FOR SORTING: SET OF CODES
- FIELD NO.: 1
- FIELD NAME: ACCOUNT STATUS
- SORT QUALIFIERS BEFORE FIELD: @
- FROM VALUE INTERNAL: @z
- TO VALUE INTERNAL: B
- CROSS REFERENCE DATA: ^PRPF(470,"AC",^PRPF(470,^2
-
- FILE OR SUBFILE NO.: 470
- GET CODE: S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: NAME not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
- FIELD NAME: NAME
- SORT QUALIFIERS BEFORE FIELD: ".01
- CROSS REFERENCE DATA: ^PRPF(470,"B",^PRPF(470,^2
- POINT TO CROSS REFERENCE: ^DPT("B",
|
