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: 443.6714

Package: IFCAP

AMENDMENTS(#443.6)-->443.67-->443.6714

Sub-Field: 443.6714


Information

Parent File Name Number Package
443.67 CHANGES 443.6714 IFCAP

Details

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

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Enter the next sequential number.
  • DESCRIPTION:  
    This number represents the order that each field within this amendment was changed.
  • TECHNICAL DESCR:  This number is just the next value from the third '^' piece of the zero node of this subfile (443.6714). Once a new record is added the user won't be able to change it or delete it. If this field has been entered
    already for this amendment it will not be added again. Only the original value of the field, the value just before this amendment was entered, is needed. All additional changes to the field's value are immaterial.
  • CROSS-REFERENCE:  443.6714^B
    1)= S ^PRC(443.6,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^443.6714^5
    1)= X ^DD(443.6714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(443.6714,.01,1,2,1.1) X ^DD(443.6714,.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(443.6,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5)=""
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=443.6714,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 ENTERED
    This TRIGGER x-ref will enter when this CHANGE was added to this amendment.
  • CROSS-REFERENCE:  ^^TRIGGER^443.6714^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(443.6,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(443.6714,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=443.6714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= USER
    The person editing the field listed in this CHANGES record will be recorded in the USER field.
1 AMENDMENT TYPE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>19)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 02, 1994
  • HELP-PROMPT:  Enter the number for the amendment edit choosen.
  • DESCRIPTION:  
    This is the numeric value for the kind of amendment the user requested.
  • TECHNICAL DESCR:  
    This number is a pointer to file 442.2 or file 441.6. This number is found in the variable PRCHAMDA and is the internal entry number for the amendment action the user is performing.
  • CROSS-REFERENCE:  443.6714^AC^MUMPS
    1)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(443.6,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
    2)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(443.6,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
    This x-ref will prevent multiple copies of an AMENDMENT TYPE from being entered into the 'CHANGES' multiple for the same amendment. The FIELD & FILE field is included to allow conditions like different ITEM entries
    from being excluded or from different fields within the same AMENDMENT TYPE, allowing various fields to be entered/edited, from being left out.
2 FIELD & FILE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X?.E1";".N) X
  • LAST EDITED:  MAY 02, 1994
  • HELP-PROMPT:  Enter the FIELD;FILE:UPPER FIELD values for the field being edited.
  • DESCRIPTION:  In this field will be the field number follwed by a ';' then by the file number of the changed entry then separated with a : is the field number of the next level up that created this multiple. If the field is
    located in a subfile then the file number will become the subfile number. For example, if the BOC field in the ITEM multiple in the AMENDMENTS file - this file - is changed the data entered in this field will be
    '3.5;443.61:40'.
  • TECHNICAL DESCR:  
    The information found here will allow DIQ1 to get the new value of the changed field.
  • CROSS-REFERENCE:  443.6714^AE^MUMPS
    1)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(443.6,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
    2)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(443.6,DA(2),6,DA(1),3,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
    This x-ref will prevent multiple copies of an AMENDMENT TYPE from being entered into the 'CHANGES' multiple for the same amendment. The FIELD & FILE field is included to allow conditions like different ITEM entries
    from being excluded or from different fields within the same AMENDMENT TYPE, allowing various fields to be entered/edited, from being left out.
3 OLD DATA VALUE 1;0 WORD-PROCESSING #443.67143

  • DESCRIPTION:  
    This is the orginal value of the field found in the FIELD & FILE entry within this CHANGES subrecord.
  • LAST EDITED:  MAR 14, 1994
  • DESCRIPTION:  
    This is the old data value (see field 50, sub-field 14, sub-field 3 for a complete description of this field).
  • TECHNICAL DESCR:  
    See DESCRIPTION for this field.
4 SUBRECORD ENTRY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Enter each 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 any subfile internal entry numbers needs to be entered in this field. Since all CHANGES refer to this record
    there is no need to enter D0. For the example listed in the FIELD & FILE field only the internal number of the LINE ITEM NUMBER that the SUBACCOUNT belongs to needs to be entered here. The SUBACCOUNT field is
    only one level deep so there will be only one internal subrecord number needed.
5 DATE & TIME ENTERED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 16, 1993
  • DESCRIPTION:  
    This will be the date and time the user changed the entry listed in the FIELD & FILE and SUBRECORD ENTRY fields.
  • TECHNICAL DESCR:  
    This field is triggered when the CHANGE NUMBER field is entered. This field will have the current date and time entered.
  • NOTES:  TRIGGERED by the CHANGE NUMBER field of the CHANGES sub-field of the AMENDMENT sub-field of the AMENDMENTS File
6 USER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Enter the person who is editing the field being added to this CHANGES record.
  • DESCRIPTION:  
    This field will point to VA(200, showing the user who made this change.
  • TECHNICAL DESCR:  
    This field is triggered when the CHANGE NUMBER field is entered. The value entered for this field comes from DUZ.
  • NOTES:  TRIGGERED by the CHANGE NUMBER field of the CHANGES sub-field of the AMENDMENT sub-field of the AMENDMENTS 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
  • DESCRIPTION:  
    This field contains the internal record number for file 441.7, the copy of the DELIVERY SCHEDULE (ORDER) file.
  • CROSS-REFERENCE:  443.6^C^MUMPS
    1)= S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)),^PRC(443.6,"C",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U,4),$P(CHNO,U,7),DA)="" K CHNO
    2)= S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) K ^PRC(443.6,"C",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U,4),$P(CHNO,U,7),DA),CHNO
    This x-ref allows rapid look-up of the OTHER FILE NUMBER (file 441.7) that belongs to a specific FILE & FIELD multiple for a SUBRECORD ENTRY. For example, in the ITEM multiple entry 3 has some DELIVERY SCHEDULEs
    associated with it. This x-ref will point to each entry in file 441.7 that holds that DELIVERY SCHEDULE information.
  • CROSS-REFERENCE:  443.6714^AD^MUMPS
    1)= I X>0 S ^PRC(443.6,DA(2),6,DA(1),3,"AD",X,DA)=""
    2)= I X>0 K ^PRC(443.6,DA(2),6,DA(1),3,"AD",X,DA)
Info |  Details