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

Package: IFCAP

VENDOR EDIT(#440.3)-->440.31

Sub-Field: 440.31


Information

Parent File Name Number Package
VENDOR EDIT(#440.3) TYPE OF OWNERSHIP (FY88) 440.31 IFCAP

Details

Field # Name Loc Type Details
.01 TYPE OF OWNERSHIP (FY88) 0;1 POINTER TO CODE INDEX FILE (#420.6) CODE INDEX(#420.6)

  • INPUT TRANSFORM:  S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  • OUTPUT TRANSFORM:  Q:Y="" S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""),Y=$P(Y,U,1)_" "_$P(Y,U,2)
  • LAST EDITED:  SEP 21, 1988
  • DESCRIPTION:  
    This is the type of ownership.
  • SCREEN:  S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"
  • EXPLANATION:  CAN ONLY BE AN M,W,Y OR V
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details