PRC SEPARATION VIOLATE (902)    SORT TEMPLATE (.401)

Identifies violations of separation of duties for 1358s.

• FILE OR SUBFILE NO.:   410
  GET CODE:   S DISX(1)=$P($G(^PRCS(410,D0,7)),U,5)
  QUERY CONDITION:   I (DISX(1)]]3090706.999999)&(DISX(1)']]3090707.24)
  DESCRIPTION OF SORT:   DATE SIGNED (APPROVED) from Jul 7,2009 to Jul 7,2009@24:00
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   44
  FIELD NAME:   DATE SIGNED (APPROVED)
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   3090706.999999
  FROM VALUE EXTERNAL:   Jul 7,2009
  FROM VALUE PRINTABLE:   Jul 7,2009
  TO VALUE INTERNAL:   3090707.24
  TO VALUE EXTERNAL:   Jul 7,2009@2400
  TO VALUE PRINTABLE:   Jul 7,2009@24:00
• FILE OR SUBFILE NO.:   410
  GET CODE:   S Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"") S X=$P($G(^PRCS(410.5,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X
  QUERY CONDITION:   I DISX(2)="1358 ORDER"
  DESCRIPTION OF SORT:   FORM TYPE equals 1358 ORDER
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"") S X=$P($G(^PRCS(410.5,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X
  FIELD NAME:   FORM TYPE
  SORT QUALIFIERS BEFORE FIELD:   @"3
  FROM VALUE INTERNAL:   1358 ORDEQz
  FROM VALUE EXTERNAL:   1358 ORDER
  TO VALUE INTERNAL:   1358 ORDER
  TO VALUE EXTERNAL:   1358 ORDER
• FILE OR SUBFILE NO.:   410
  GET CODE:   X DPP(3,"OVF0",9.3) S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U)=$P($G(^VA(200,+$P(Y(3),U,9),0)),U),Y=X,X=Y(4),X=X!Y I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)
  DESCRIPTION OF SORT:   (REQUESTOR=APPROVING OFFICIAL)!(REQUESTOR=OBLIGATED BY)!(APPROVING OFFICIAL=OBLIGATED BY)
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.3) S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U)=$P($G(^VA(200,+$P(Y(3),U,9),0)),U),Y=X,X=Y(4),X=X!Y I D0>0 S DISX(3)=X

  OVERFLOW DATA:

  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.2
    OVERFLOW CODE:   S Y(3)=$S($D(^PRCS(410,D0,4)):^(4),1:""),Y(1)=$S($D(^PRCS(410,D0,7)):^(7),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,1),0)),U)=$P($G(^VA(200,+$P(Y(1),U,3),0)),U)
  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.3
    OVERFLOW CODE:   X DPP(3,"OVF0",9.2) S Y(2)=$G(X) S X=$P($G(^VA(200,+$P(Y(1),U,1),0)),U)=$P($G(^VA(200,+$P(Y(3),U,9),0)),U),Y=X,X=Y(2),X=X!Y,Y(4)=$G(X)

  FIELD NAME:   (REQUESTOR=APPROVING OFFICIAL)!(REQUESTOR=OBLIGATED BY)!(APPROVING OFFICIAL=OBLIGATED BY)
  SORT QUALIFIERS BEFORE FIELD:   "@B
  SORT QUALIFIERS AFTER FIELD:   ;L1