Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 442.714

Package: IFCAP

PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)-->442.07-->442.714

Sub-Field: 442.714


Information

Parent File Name Number Package
442.07 CHANGES 442.714 IFCAP

Details

Field # Name Loc Type Details
.01 CHANGES 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 05, 1994
  • HELP-PROMPT:  Enter the next sequential number.
  • DESCRIPTION:  
    This number represents the order that each field within this amendment was changed.
  • CROSS-REFERENCE:  442.714^B
    1)= S ^PRC(442,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^442.714^5
    1)= X ^DD(442.714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(442.714,.01,1,2,1.1) X ^DD(442.714,.01,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5)=""
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=442.714,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= DATE & TIME ENTERED=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE & TIME
  • CROSS-REFERENCE:  ^^TRIGGER^442.714^6
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(442.714,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=442.714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= USER
1 AMENDMENT TYPE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>19)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Enter the number for the amendment edit choosen.
  • DESCRIPTION:  
    This is the numeric value for the amendment edit choosen.
  • CROSS-REFERENCE:  442.714^AC^MUMPS
    1)= S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(442,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
    2)= S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(442,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
2 FIELD & FILE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JAN 13, 1994
  • HELP-PROMPT:  Enter the FIELD;FILE values for the field that was edited.
  • DESCRIPTION:  
    In this field will be the field number followed by a ';' then by the file number of the changed entry. If the field is located in a subfile then the file number will become the subfile number.
3 OLD DATA VALUE 1;0 WORD-PROCESSING #442.7143

  • DESCRIPTION:  
    It is an old data value.
  • LAST EDITED:  APR 06, 1994
  • DESCRIPTION:  
    It is a value(s) before the amendment.
4 SUBRECORD ENTRY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  JAN 13, 1994
  • HELP-PROMPT:  Enter the subrecord entry value seperated by ';'. The subrecord value will be D1 or D2 etc.
  • DESCRIPTION:  
    Even though an entry is made into the FIELD & FILE field, to find the correct entry in any subfiles the subdile internal entry numbers need to be recorded in this field.
5 DATE & TIME ENTERED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 13, 1994
  • DESCRIPTION:  
    This is the date and time the user changed the entry listed in the FIELD & FILE and SUBRECORD ENTRY fields.
  • NOTES:  TRIGGERED by the CHANGES field of the CHANGES sub-field of the AMENDMENT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
6 USER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 13, 1994
  • HELP-PROMPT:  Enter the person who edited the field added in this CHANGES record.
  • DESCRIPTION:  
    This field will point to VA(200, showing the user who made this change.
  • NOTES:  TRIGGERED by the CHANGES field of the CHANGES sub-field of the AMENDMENT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
7 OTHER FILE NUMBER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 23, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the Internal Record Number for file 442.8, the DELIVERY SCHEDULE (ORDER) file.
  • CROSS-REFERENCE:  442.714^AD^MUMPS
    1)= I X>0 S ^PRC(442,DA(2),6,DA(1),3,"AD",X,DA)=""
    2)= I X>0 K ^PRC(442,DA(2),6,DA(1),3,"AD",X,DA)
Info |  Details