Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRCH(440.6

Package: IFCAP

Global: ^PRCH(440.6


Information

FileMan FileNo FileMan Filename Package
440.6 PURCHASE CARD ORDER RECONCILE IFCAP

Description

Directly Accessed By Routines, Total: 60

Package Total Routines
IFCAP 36 PRCB1F    PRCB1F1    PRCB1G    PRCB1G1    PRCCL406    PRCG237P    PRCGARP1    PRCH AO AUDIT REPORT
PRCH BOC SORT    PRCH CO AO AUDIT    PRCH DEL. REC    PRCH DEL. RECSORT    PRCH FINAL - BUYER    PRCH P/C ORACLE    PRCH P/C ORACLE - APP    PRCH P/C ORACLE - BUY
PRCH0A    PRCH1A    PRCH1A1    PRCH1A2    PRCH1A3    PRCH1B1    PRCH1C    PRCH1D
PRCH1E    PRCH7A    PRCH8A    PRCHDAR    PRCHFCY    PRCHINQ    PRCHRP1    PRCHRP5
PRCINAR    PRCIREC    PRCSFMS    ^PRCH(440.6    
Prosthetics 2 RMPR4C2    RMPR4E23    
Kernel 1 ^DIC(19    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
IFCAP 6 PRCCL406    PRCG237P    PRCGARP1    PRCH1A    PRCH2A    PRCINAR    
Prosthetics 2 RMPR4C2    RMPR4E23    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 PROSTHETICS 1358(#664)[30]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IFCAP 1 PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[41]    
Kernel 1 NEW PERSON(#200)[162745]

Fields, Total: 41

Field # Name Loc Type Details
.01 ORACLE DOCUMENT ID 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  DEC 20, 1999
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is document number send by the ORACLE system.
  • CROSS-REFERENCE:  440.6^B
    1)= S ^PRCH(440.6,"B",$E(X,1,30),DA)=""
    2)= K ^PRCH(440.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^440.6^47
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,7)="" I X S X=DIV S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(440.6,.01,1,2,1.1) X ^
    DD(440.6,.01,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^PRCH(440.6,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=440.6,DIG=47 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= CHARGE RECEIVING DATE=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= CHARGE RECEIVING DATE
    This trigger will be used to populate the field CHARGE RECEIVING DATE with the date/time of arrival of ORACLE charges into this file.
1 BATCH NUMBER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is a batch number.
2 LINE NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This is a line number.
3 CREDIT CARD NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<16)!'(X?16N) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Answer must be 16 characters in length.
  • DESCRIPTION:  
    This is a credit card number.
4 BANK'S VENDOR ID 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  NOV 05, 2008
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This is a vendor id of Rocky Mountain Bank.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 STATEMENT DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 24, 1997
  • DESCRIPTION:  
    This is a statement date.
  • CROSS-REFERENCE:  440.6^D
    1)= S ^PRCH(440.6,"D",$E(X,1,30),DA)=""
    2)= K ^PRCH(440.6,"D",$E(X,1,30),DA)
    This is an index by the statement date.
6 TRANSACTION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 28, 1996
  • DESCRIPTION:  
    This is the transaction date.
7 STATION NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?1.5N) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This is the station #.
8 PURCHASE DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 14, 1996
  • DESCRIPTION:  
    This is the purchase date.
9 TXN REFERENCE # 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Answer must be 1-23 characters in length.
  • DESCRIPTION:  
    This is the transaction reference number.
10 BBFY 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 28, 1996
  • DESCRIPTION:  
    This is the beginning budget fiscal year date.
11 EBFY 0;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 28, 1996
  • DESCRIPTION:  
    This is the ending budget fiscal year.
12 ACCOUNTING PERIOD 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<9000)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Type a Number between 9000 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the accounting period.
13 AMOUNT 0;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-99999999) X
  • LAST EDITED:  MAY 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the transaction amount.
14 FISCAL YEAR 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1900)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Type a Number between 1900 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a fiscal year.
15 STATUS 0;16 SET
  • 'R' FOR RECONCILED;
  • 'N' FOR NONE;
  • 'D' FOR DISPUTED;

  • LAST EDITED:  AUG 22, 1997
  • DESCRIPTION:  
    This is the status of a entry.
  • CROSS-REFERENCE:  440.6^ST^MUMPS
    1)= S ^PRCH(440.6,"ST",X_$P(^PRCH(440.6,DA,0),U,17)_"~",DA)=""
    2)= K ^PRCH(440.6,"ST",X_$P(^PRCH(440.6,DA,0),U,17)_"~",DA)
    This is an index for status field.
16 CARD HOLDER 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 09, 1997
  • DESCRIPTION:  
    This is a card holder.
  • CROSS-REFERENCE:  440.6^ST1^MUMPS
    1)= I $P(^PRCH(440.6,DA,0),U,16)]"" S ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_X_"~",DA)="" K:X ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_"~",DA)
    2)= I $P(^PRCH(440.6,DA,0),U,16)]"" K ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_X_"~",DA) S ^PRCH(440.6,"ST",$P(^PRCH(440.6,DA,0),U,16)_"~",DA)=""
    This is an index of status and card holder pointer.
17 ET CODE SHEET RI 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUL 16, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This an is ET-code sheet ri of file 2100.1 in free text format.
18 COMMITTED AMOUNT 0;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  JUL 16, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is a committed amount copied from 410 if the final payment is reconciled.
19 OLD PO STATUS CODE 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  JUL 17, 1996
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This is the old status code of p.o.
20 VENDOR PURCHASE ORDER 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  APR 21, 1997
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
  • DESCRIPTION:  
    This is the purchase order id provided by the vendor.
  • CROSS-REFERENCE:  440.6^C
    1)= S ^PRCH(440.6,"C",$E(X,1,30),DA)=""
    2)= K ^PRCH(440.6,"C",$E(X,1,30),DA)
    This is an index by the vendor purchase order.
21 FUND CODE 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is a fund code.
22 ACC CODE 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    This is a acc code.
23 COST CENTER 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    This is a cost center.
24 BOC 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    This is a BOC.
25 APPROVING OFFICE 5;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    This is a approving office code.
26 APPROVAL DATE 5;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 02, 1997
  • DESCRIPTION:  
    This field is used to store the date when the approving official signed off on the PO corresponding to the reconciled Oracle transaction.
27 APPROVING OFFICIAL 5;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 11, 1997
  • DESCRIPTION:  
    This field is used to store the approving official.
31 MERCHANT NAME 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    This is a merchant name.
32 MERCHANT ADDRESS 1 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-23 characters in length.
  • DESCRIPTION:  
    This is mechant address 1.
33 MERCHANT ADDRESS 2 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-23 characters in length.
  • DESCRIPTION:  
    This is the merchant address 2.
34 MERCHANT CITY 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-13 characters in length.
  • DESCRIPTION:  
    This is the merchant city.
35 MERCHANT STATE 6;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • DESCRIPTION:  
    This is the merchant state.
36 MERCHANT ZIP 6;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    This is the merchant zip.
41 PURCHASE ORDER 1;1 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  JUN 10, 1996
  • DESCRIPTION:  
    This is a purchase order field.
  • CROSS-REFERENCE:  440.6^PO
    1)= S ^PRCH(440.6,"PO",$E(X,1,30),DA)=""
    2)= K ^PRCH(440.6,"PO",$E(X,1,30),DA)
    This is an index by purchase order internal order.
42 RECEIVING REQUIRED 1;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 07, 1996
  • DESCRIPTION:  
    This is a RECEIVING REQUIRED data field.
43 COMPLETE ORDER RECEIVED 1;3 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 18, 1996
  • DESCRIPTION:  
    This is the MERCHANT RECEIVED data.
44 FINAL CHARGE 1;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  I X="Y" D START^PRCIREC
  • LAST EDITED:  MAY 02, 2007
  • DESCRIPTION:  
    This is the FINAL CHARGE data field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
45 RECONCILE USER 1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 07, 1996
  • DESCRIPTION:  
    This is the reconcile user data.
46 RECONCILE DATE 1;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 14, 1996
  • DESCRIPTION:  
    This is a reconcile date.
47 CHARGE RECEIVING DATE 1;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 1999
  • HELP-PROMPT:  THIS FIELD IS TRIGGERED BY THE .01 FIELD
  • DESCRIPTION:  
    This field is filled in whenever the field .01 is populated and will hold the arrival date/time of the ORACLE charge data in the file. Users should not try to edit this field directly.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ORACLE DOCUMENT ID field of the PURCHASE CARD ORDER RECONCILE File

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3691
  • M DATA EXTRACTOR
  • External References

    Name Field # of Occurrence
    ^%DT 5+1, 6+1, 8+1, 10+1, 11+1, 26+1, 46+1, 47+1
    NOW^%DTC .01(XREF 2n1.1)
    ^DICR .01(XREF 2n1.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 2n1.4)
    ^DD(440.6 .01(XREF 2S)
    ^PRCH(440.6 - [#440.6] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), 5(XREF 1S), 5(XREF 1K), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    20(XREF 1S), 20(XREF 1K), 41(XREF 50S), 41(XREF 50K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 IDH1+1, IDH2+1
    ^(1 .01(XREF 2S), .01(XREF 2n1.4)
    ^(6 IDH3+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .01(XREF 2n1.1)
    >> %DT 5+1*, 6+1*, 8+1*, 10+1*, 11+1*, 26+1*, 46+1*, 47+1*
    %H .01(XREF 2n1.1)
    %I .01(XREF 2n1.1)
    >> D0 .01(XREF 2S)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 5(XREF 1S), 5(XREF 1K), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K), 20(XREF 1S)
    20(XREF 1K), 41(XREF 50S), 41(XREF 50K)
    >> DIG .01(XREF 2n1.4)
    >> DIH .01(XREF 2n1.4)
    >> DIU .01(XREF 2S)
    DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.4)
    U IDH1+1, IDH2+1, IDH3+1, .01(XREF 2S), .01(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), 1+1!, 2+1!, 3+1!, 4+1!
    , 5+1*!, 5(XREF 1S), 5(XREF 1K), 6+1*!, 7+1!, 8+1*!, 9+1!, 10+1*!, 11+1*!, 12+1!
    , 13+1*!, 14+1!, 15(XREF 1S), 15(XREF 1K), 16(XREF 1S), 16(XREF 1K), 17+1!, 18+1*!, 19+1!, 20+1!
    20(XREF 1S), 20(XREF 1K), 21+1!, 22+1!, 23+1!, 24+1!, 25+1!, 26+1*!, 31+1!, 32+1!
    , 33+1!, 34+1!, 35+1!, 36+1!, 41(XREF 50S), 41(XREF 50K), 46+1*!, 47+1*!
    Y .01(XREF 2S), 5+1, 6+1, 8+1, 10+1, 11+1, 26+1, 46+1, 47+1
    Y(0 .01(XREF 2S)
    Y(1 .01(XREF 2S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All