Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Call Graph |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Sort Template: PRCH AO AUDIT REPORT

Package: IFCAP

Sort Template: PRCH AO AUDIT REPORT


Source Information

Name Value
NAME PRCH AO AUDIT REPORT
DESCRIPTION
This is a sort template for the approving official audit report.
SORT FIELD DATA
  1. 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
  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:
    1. 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:"")
    2. 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"
    3. 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)
    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
  3. 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:
    1. 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
  4. 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
  5. 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

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIC  

External References

Name Field # of Occurrence
^DIC OVF02P11, OVF02P41, OVF03P11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440.5 - [#440.5] RJ, OVF02P21, OVF02P41, P31, P35
^PRCH(440.6 - [#440.6] P11, OVF02P11, OVF03P11, P41, P45, P51
^VA(200 - [#200] P31, P35, P41, P45

Naked Globals

Name Field # of Occurrence
^(0 OVF02P11, OVF02P21, OVF02P41, P31, P35, OVF03P11, P41, P45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D OVF02P11, OVF02P41, OVF03P11
D0 P11, P21, P25, OVF02P11, OVF02P21, OVF02P41, P31, P35, OVF03P11, P41
, P45, P51
DIC OVF02P11, OVF02P41, OVF03P11
DIC(0 OVF02P11, OVF02P41, OVF03P11
DISX(1 P11, P13
DISX(2 P21, P23, P25
DISX(3 P31, P33, P35
>> DISX(4 P41, P43, P45
>> DISX(5 P51, P53
>> DPP(2 P21, P25, OVF02P21, OVF02P31, OVF02P41
>> DPP(3 P31, P35
>> I(0 P21, P25, OVF02P11, P31, P35, OVF03P11
>> I(100 OVF02P11
U P11, P21, P25, OVF02P11, OVF02P21, OVF02P31, OVF02P41, P31, P35, OVF03P11
, P41, P45, P51
X P21, P25, OVF02P11, OVF02P21, OVF02P31, OVF02P41, P31, P35, OVF03P11, P41
, P45
Y P21, P25, OVF02P11, OVF02P31, OVF02P41, OVF03P11
Y(1 OVF02P11, OVF02P31, OVF03P11, P41, P45
Y(101 OVF02P21, P31, P35
Y(102 OVF02P21, OVF02P31
Y(103 P21, P25, OVF02P31
Y(104 OVF02P31
Y(201 OVF02P41
Y(202 P21, P25
Source Information |  Call Graph |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All