Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables
Print Page as PDF
Sort Template: PRCH BOC SORT

Package: IFCAP

Sort Template: PRCH BOC SORT


Source Information

Name Value
NAME PRCH BOC SORT
DESCRIPTION
This sort template is used for a report of reconciled or approved purchase
card transactions using the BOC range 2696 to 2699.
SORT FIELD DATA
  1. 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(1)=X
    QUERY CONDITION:   I DISX(1)'=""
    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(1)=X
    FIELD NAME:   CARD HOLDER
    SORT QUALIFIERS BEFORE FIELD:   "16
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   z
  2. FILE OR SUBFILE NO.:   440.6
    GET CODE:   S DISX(2)=$P($G(^PRCH(440.6,D0,5)),U,4)
    QUERY CONDITION:   I (DISX(2)]]2695.99999)&(DISX(2)']]2699)
    DESCRIPTION OF SORT:   BOC from 2696 to 2699
    SEARCH EFFICIENCY RATING:   0.9891
    PROBABILITY RATING:   0.9891
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   24
    FIELD NAME:   BOC
    SORT QUALIFIERS AFTER FIELD:   ;S1
    FROM VALUE INTERNAL:   2695.99999
    FROM VALUE EXTERNAL:   2696
    TO VALUE INTERNAL:   2699
    TO VALUE EXTERNAL:   2699
  3. FILE OR SUBFILE NO.:   440.6
    GET CODE:   X DPP(3,"OVF0",9.2) S Y(3)=X S X="APPROVED",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)
    DESCRIPTION OF SORT:   STATUS=""RECONCILED""!(""APPROVED"")
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S Y(3)=X S X="APPROVED",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X
    OVERFLOW DATA:
    1. FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S Y(2)=$C(59)_$S($D(^DD(440.6,15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)="RECONCILED"
    FIELD NAME:   STATUS="RECONCILED"!("APPROVED")
    SORT QUALIFIERS BEFORE FIELD:   @"@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  4. FILE OR SUBFILE NO.:   440.6
    GET CODE:   S DISX(4)=$P($G(^PRCH(440.6,D0,0)),U,7)
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   TRANSACTION DATE not null
    SEARCH EFFICIENCY RATING:   0.0000
    PROBABILITY RATING:   0.0000
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   6
    FIELD NAME:   TRANSACTION DATE
    FROM VALUE INTERNAL:   2990100.99999
    FROM VALUE EXTERNAL:   1/1/99
    FROM VALUE PRINTABLE:   Jan 1,1999
    TO VALUE INTERNAL:   2990405
    TO VALUE EXTERNAL:   T
    TO VALUE PRINTABLE:   Apr 5,1999
DATE CREATED 1999-01-05 19:17:00
FILE PURCHASE CARD ORDER RECONCILE
DATE LAST USED 1999-04-16 00:00:00

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(440.6 OVF03P11
^PRCH(440.6 - [#440.6] P11, P15, P21, OVF03P11, P41
^VA(200 - [#200] P11, P15

Naked Globals

Name Field # of Occurrence
^(0 P11, P15, OVF03P11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 P11, P15, P21, P31, P35, OVF03P11, P41
DISX(1 P11, P13, P15
DISX(2 P21, P23
DISX(3 P31, P33, P35
>> DISX(4 P41, P43
>> DPP(3 P31, P35
U P11, P15, P21, OVF03P11, P41
X P11, P15, P31, P35, OVF03P11
Y P31, P35
Y(1 P11, P15, OVF03P11
Y(2 OVF03P11
Y(3 P31, P35
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables