SCENI ERROR SORT (632)    SORT TEMPLATE (.401)

Sorts Transmitted outpatient encounter error file by Division, error code,
and patient for output.

• FILE OR SUBFILE NO.:   409.75
  GET CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.06,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   .01:20.06 not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.06,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X
  FIELD NAME:   .01:20.06
  SORT QUALIFIERS BEFORE FIELD:   '"
  FROM VALUE INTERNAL:   .99999
  FROM VALUE EXTERNAL:   1
  TO VALUE INTERNAL:   1
  TO VALUE EXTERNAL:   1
• FILE OR SUBFILE NO.:   409.75
  GET CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,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)'=""
  DESCRIPTION OF SORT:   .01:20.05 not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,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:   .01:20.05
  SORT QUALIFIERS BEFORE FIELD:   #"
  SORT QUALIFIERS AFTER FIELD:   ;C1;"Division: ";L70
• FILE OR SUBFILE NO.:   409.75
  GET CODE:   X DPP(3,"OVF0",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   .02:.01 not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(3)=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(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S Y(101)=$S($D(^SD(409.76,D0,0)):^(0),1:"")

  FIELD NAME:   .02:.01
  SORT QUALIFIERS BEFORE FIELD:   "
  SORT QUALIFIERS AFTER FIELD:   ;C1;S2;"Error Code: "
  FROM VALUE INTERNAL:   809.99999
  FROM VALUE EXTERNAL:   810
  TO VALUE INTERNAL:   810
  TO VALUE EXTERNAL:   810
• FILE OR SUBFILE NO.:   409.75
  GET CODE:   X DPP(4,"OVF0",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(4)=X
  QUERY CONDITION:   I DISX(4)'=""
  DESCRIPTION OF SORT:   .02:11 not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(4,"OVF0",9.2) S X=$P(Y(101),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(^SD(409.75,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S Y(101)=$S($D(^SD(409.76,D0,1)):^(1),1:"")

  FIELD NAME:   .02:11
  SORT QUALIFIERS BEFORE FIELD:   "
  SORT QUALIFIERS AFTER FIELD:   ;C1;"";L70