XUSER PC BUILD (373)    SORT TEMPLATE (.401)

Name Value
NAME XUSER PC BUILD
DESCRIPTION
Give sites a list of users that have the provider key
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   200
    GET CODE:   X $P(^DD(200,8932.001,0),U,5,99) S Y(1)=X S X=Y(1)=1 I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)
    DESCRIPTION OF SORT:   PROVIDER KEY=1
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X $P(^DD(200,8932.001,0),U,5,99) S Y(1)=X S X=Y(1)=1 I D0>0 S DISX(1)=X
    FIELD NAME:   PROVIDER KEY=1
    SORT QUALIFIERS BEFORE FIELD:   "@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  • FILE OR SUBFILE NO.:   200
    GET CODE:   S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,2),X=X S X=X,X=$L(X)>0 I D0>0 S DISX(2)=X
    QUERY CONDITION:   I DISX(2)
    DESCRIPTION OF SORT:   $L(INTERNAL(#11))>0
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,2),X=X S X=X,X=$L(X)>0 I D0>0 S DISX(2)=X
    FIELD NAME:   $L(INTERNAL(#11))>0
    SORT QUALIFIERS BEFORE FIELD:   @"@B
    SORT QUALIFIERS AFTER FIELD:   ;;L1
  • FILE OR SUBFILE NO.:   200
    GET CODE:   S DISX(3)=$P($G(^VA(200,D0,0)),U,1)
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   NAME not null
    SEARCH EFFICIENCY RATING:   0
    PROBABILITY RATING:   0
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   .01
    FIELD NAME:   NAME
    CROSS REFERENCE DATA:   ^VA(200,"B",^VA(200,^2
DATE CREATED 1996-07-31 08:01:00
FILE NEW PERSON
DATE LAST USED 1996-07-31 00:00:00