PRCH AO AUDIT REPORT (633)    SORT TEMPLATE (.401)

Name Value
NAME PRCH AO AUDIT REPORT
DESCRIPTION
This is a sort template for the approving official audit report.
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   440.6
    GET CODE:   S DISX(1)=$P($G(^PRCH(440.6,D0,0)),U,6)
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   STATEMENT DATE not null
    SEARCH EFFICIENCY RATING:   0.0000
    PROBABILITY RATING:   0.0000
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   5
    FIELD NAME:   STATEMENT DATE
    SORT QUALIFIERS BEFORE FIELD:   +#
    SORT QUALIFIERS AFTER FIELD:   ;C1
    FROM VALUE INTERNAL:   2971203.99999
    FROM VALUE EXTERNAL:   T-1
    FROM VALUE PRINTABLE:   12/4/97
    TO VALUE INTERNAL:   z
    CROSS REFERENCE DATA:   ^PRCH(440.6,"D",^PRCH(440.6,^2
  • FILE OR SUBFILE NO.:   440.6
    GET CODE:   X DPP(2,"OVF0",9.5) S Y(202)=X S X="DUZ" Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=X
    QUERY CONDITION:   I DISX(2)
    DESCRIPTION OF SORT:   INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR(""DUZ"")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR(""DUZ""))
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(2,"OVF0",9.5) S Y(202)=X S X="DUZ" Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=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(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S I(100,0)=$S($D(D0):D0,1:"")
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.3
      OVERFLOW CODE:   X DPP(2,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$P(Y(101),U,9),X=X S X=X,Y(102)=X S X="DUZ"
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.4
      OVERFLOW CODE:   X DPP(2,"OVF0",9.3) Q:X[U!(X["$C(94)")!X S X=$S($D(@X):@X,1:"") S Y=X,X=Y(102),X=X S X=X=Y,Y(103)=X,Y(104)=X S X=$P(Y(1),U,4)
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.5
      OVERFLOW CODE:   X DPP(2,"OVF0",9.4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S Y(201)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$P(Y(201),U,10),X=X S X=X
    FIELD NAME:   INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR("DUZ")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR("DUZ"))
    SORT QUALIFIERS BEFORE FIELD:   "@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  • FILE OR SUBFILE NO.:   440.6
    GET CODE:   X DPP(3,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(101),U,9),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:   CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(101),U,9),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(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) K DIC S DIC="^PRC(440.5,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
    FIELD NAME:   CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL
    SORT QUALIFIERS BEFORE FIELD:   +"
    SORT QUALIFIERS AFTER FIELD:   ;"APPROVING OFFICIAL: ";C1
  • FILE OR SUBFILE NO.:   440.6
    GET CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   CARD HOLDER not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X
    FIELD NAME:   CARD HOLDER
    SORT QUALIFIERS BEFORE FIELD:   +"16
    SORT QUALIFIERS AFTER FIELD:   ;C1
  • FILE OR SUBFILE NO.:   440.6
    GET CODE:   S DISX(5)=$P($G(^PRCH(440.6,D0,0)),U,4)
    QUERY CONDITION:   I DISX(5)'=""
    DESCRIPTION OF SORT:   CREDIT CARD NUMBER not null
    SEARCH EFFICIENCY RATING:   0.0000
    PROBABILITY RATING:   0.0000
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   3
    FIELD NAME:   CREDIT CARD NUMBER
    SORT QUALIFIERS BEFORE FIELD:   @+
DATE CREATED 1997-12-05 14:32:00
READ ACCESS @
FILE PURCHASE CARD ORDER RECONCILE
WRITE ACCESS @
DATE LAST USED 1997-12-10 00:00:00