Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^PRCU(420.96

Package: IFCAP

Global: ^PRCU(420.96


Information

FileMan FileNo FileMan Filename Package
420.96 IFCAP/FMS OBLIGATION RECONCILIATION REPORT IFCAP

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IFCAP 1 PRCFOOR4    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[3]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<5)!'(X'?1P.E) X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Answer must be 5-15 characters in length.
  • DESCRIPTION:  
    This is the OOP document ID number from FMS.
  • CROSS-REFERENCE:  420.96^B
    1)= S ^PRCU(420.96,"B",$E(X,1,30),DA)=""
    2)= K ^PRCU(420.96,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^420.96^.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(420.96,.01,1,2,1.1) X ^DD(420.96,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV,Y(1)=X S X="-",Y(2)=X S X=1,X=$P(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(420.96,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= $P(ID,"-",1)
    DELETE VALUE)= @
    FIELD)= STATION
.5 STATION NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    This is the station number of the site receiving the 850 report.
  • NOTES:  TRIGGERED by the ID field of the IFCAP/FMS OBLIGATION RECONCILIATION REPORT File
  • CROSS-REFERENCE:  420.96^AD
    1)= S ^PRCU(420.96,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCU(420.96,"AD",$E(X,1,30),DA)
1 CALM/FMS UDO AMT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This is the undelivered obligation dollar amount from CALM or FMS.
2 FMS FUND CONTROL POINT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This field contains the FMS fund control point.
2.5 FMS LINE NUMBER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field references the FMS line number on the document.
3 IFCAP DOCUMENT NUMBER 0;4 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  JUN 09, 1994
  • DESCRIPTION:  
    This field contains the IFCAP document number.
4 IFCAP UDO AMT 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999999) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the undelivered order amount from IFCAP.
5 STATUS 0;6 SET
  • '1' FOR IFCAP OPEN/NO FMS RECORD;
  • '2' FOR IFCAP CLOSED/ FMS OPEN;
  • '3' FOR UDO'S OUT OF BALANCE;
  • '0' FOR VALID DOCUMENT;
  • '4' FOR NO IFCAP RECORD/ FMS OPEN;

  • LAST EDITED:  JUN 16, 1994
  • DESCRIPTION:  
    This field contains a status code for the type of obligation reconciliation.
  • CROSS-REFERENCE:  420.96^AC
    1)= S ^PRCU(420.96,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCU(420.96,"AC",$E(X,1,30),DA)
    This cross reference allows for fast printing of 850 report.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields