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.624

Package: IFCAP

AMENDMENTS(#443.6)-->443.624

Sub-Field: 443.624


Information

Parent File Name Number Package
AMENDMENTS(#443.6) ADMINISTRATIVE CERTIFICATIONS 443.624 IFCAP

Details

Field # Name Loc Type Details
.01 ADMINISTRATIVE CERTIFICATIONS 0;1 POINTER TO ADMINISTRATIVE CERTIFICATIONS FILE (#442.7) ADMINISTRATIVE CERTIFICATIONS(#442.7)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,1)<9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    These are the administrative certifications for this purchase order.
  • SCREEN:  S DIC("S")="I $P(^(0),U,1)<9999"
  • EXPLANATION:  ANSWER MUST BE LESS THAN 9999.
  • CROSS-REFERENCE:  443.624^B
    1)= S ^PRC(443.6,DA(1),15,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,DA(1),15,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  443.624^AC^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=27 EN11^PRCHAMXG Q:PRCHAMDA=27 D FLAG^PRCHMA Q:$T I PRCHAMDA=28 S PRCHX=X,X=0 D EN1^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,PRCHAMDA=28 S FLAG=1 D EN1^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever an 'ADMINISTRATIVE CERTIFICATION Add' or an 'ADMINISTRATIVE CERTIFICATION Delete' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
1 DESCRIPTION LINE COUNT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of lines in the description.
Info |  Details