IBCE LOCAL DATA ELEMENTS (695)    SORT TEMPLATE (.401)

This sort template will allow for the printing of local form override
data.

• FILE OR SUBFILE NO.:   364.6
  GET CODE:   S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   BILL FORM 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(^IBA(364.6,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  FIELD NAME:   BILL FORM
  SORT QUALIFIERS BEFORE FIELD:   #".01
  SORT QUALIFIERS AFTER FIELD:   ;"LOCAL PRINT FORM NAME: ";C3;L30
  CROSS REFERENCE DATA:   ^IBA(364.6,"B",^IBA(364.6,^2
  POINT TO CROSS REFERENCE:   ^IBE(353,"B",
• FILE OR SUBFILE NO.:   353
  GET CODE:   S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"") S X=$P(Y(101),U,2),X=X S X=X'="S" I D0>0 S DISX(2)=X
  QUERY CONDITION:   I (DISX(2)]]0)&(DISX(2)']]1)
  DESCRIPTION OF SORT:   INTERNAL(#2.02)'=""S""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"") S X=$P(Y(101),U,2),X=X S X=X'="S" I D0>0 S DISX(2)=X

  RELATIONAL JUMP FIELD DATA:

  • RELATIONAL START FILE NO.:   364.6
    NEXT SUBSCRIPT:   100
    TO FILE OR SUBFILE:   353
    GLOBAL REFERENCE:   IBE(353,
    MULTIVALUED FLAG:   NOT MULTI-VALUED
    RELATIONAL CODE:   S I(0,0)=D0 S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S D(0)=+X

  FIELD NAME:   INTERNAL(#2.02)'="S"
  SORT QUALIFIERS BEFORE FIELD:   "@"B
  SORT QUALIFIERS AFTER FIELD:   ;L1
• FILE OR SUBFILE NO.:   364.6
  GET CODE:   X DPP(3,"OVF0",9.2) S X=$S('$D(^IBE(353,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   ASSOCIATED FORM DEFINITION not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S X=$S('$D(^IBE(353,+$P(Y(101),U,1),0)):"",1:$P(^(0),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(^IBA(364.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^IBA(364.6,+D0,0)) D0=-1 S Y(101)=$S($D(^IBA(364.6,D0,0)):^(0),1:"")

  FIELD NAME:   ASSOCIATED FORM DEFINITION
  SORT QUALIFIERS BEFORE FIELD:   ".03
  SORT QUALIFIERS AFTER FIELD:   ;"PARENT FORM: ";C13
• FILE OR SUBFILE NO.:   364.6
  GET CODE:   S X="" I D0>0 S DISX(4)=X
  QUERY CONDITION:   I DISX(4)=""
  DESCRIPTION OF SORT:   """" is null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S X="" I D0>0 S DISX(4)=X
  FIELD NAME:   ""
  SORT QUALIFIERS BEFORE FIELD:   "
  SORT QUALIFIERS AFTER FIELD:   ;X;" "
  FROM VALUE INTERNAL:   ?z
  FROM VALUE EXTERNAL:   @
  TO VALUE INTERNAL:   @
  TO VALUE EXTERNAL:   @