DGPT FEE BASIS (840)    SORT TEMPLATE (.401)

Name Value
NAME DGPT FEE BASIS
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   45.85
    GET CODE:   S I(0,0)=$G(D0),Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'D0!'$D(^DG(45.86,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)=44
    DESCRIPTION OF SORT:   CENSUS DATE:NUMBER equals 44
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S I(0,0)=$G(D0),Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'D0!'$D(^DG(45.86,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X
    FIELD NAME:   CENSUS DATE:NUMBER
    SORT QUALIFIERS BEFORE FIELD:   @"
    FROM VALUE INTERNAL:   43.999999
    FROM VALUE EXTERNAL:   44
    TO VALUE INTERNAL:   44
    TO VALUE EXTERNAL:   44
  • FILE OR SUBFILE NO.:   45
    GET CODE:   S DISX(2)=$P($G(^DGPT(D0,0)),U,4)
    QUERY CONDITION:   I DISX(2)=1
    DESCRIPTION OF SORT:   FEE BASIS equals 1 (FEE BASIS)
    DATA TYPE FOR SORTING:   SET OF CODES
    RELATIONAL JUMP FIELD DATA:
    • RELATIONAL START FILE NO.:   45.85
      NEXT SUBSCRIPT:   100
      TO FILE OR SUBFILE:   45
      GLOBAL REFERENCE:   DGPT(
      MULTIVALUED FLAG:   NOT MULTI-VALUED
      RELATIONAL CODE:   S I(0,0)=D0 S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S D(0)=+X
    FIELD NO.:   4
    FIELD NAME:   FEE BASIS
    SORT QUALIFIERS BEFORE FIELD:   "@
    FROM VALUE INTERNAL:   .999999
    FROM VALUE EXTERNAL:   1
    FROM VALUE PRINTABLE:   1 (FEE BASIS)
    TO VALUE INTERNAL:   1
    TO VALUE EXTERNAL:   1
    TO VALUE PRINTABLE:   1 (FEE BASIS)
  • FILE OR SUBFILE NO.:   45.85
    GET CODE:   D STATUS^DGPTCO1 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)="Transmitted"
    DESCRIPTION OF SORT:   CENSUS STATUS equals Transmitted
    SEARCH EFFICIENCY RATING:   1.0000
    PROBABILITY RATING:   1.0000
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   101
    FIELD NAME:   CENSUS STATUS
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   Transmittecz
    FROM VALUE EXTERNAL:   Transmitted
    TO VALUE INTERNAL:   Transmitted
    TO VALUE EXTERNAL:   Transmitted
  • FILE OR SUBFILE NO.:   45.85
    GET CODE:   S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   NAME not null
    SEARCH EFFICIENCY RATING:   0.0000
    PROBABILITY RATING:   0.0000
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X
    FIELD NAME:   NAME
    SORT QUALIFIERS BEFORE FIELD:   ".01
    CROSS REFERENCE DATA:   ^DG(45.85,"B",^DG(45.85,^2
    POINT TO CROSS REFERENCE:   ^DPT("B",
DATE CREATED 2005-03-24 16:55:00
FILE CENSUS WORKFILE
DATE LAST USED 2005-04-07 00:00:00