Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCHNPT

PRCHNPT.m

Go to the documentation of this file.
  1. PRCHNPT ;SF/TKW-INPUT TRANSFORM ;11/23/16 13:26
  1. V ;;5.1;IFCAP;**108,198**;Oct 20, 2000;Build 6
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. EN1 ;INPUT TRANSFORM FOR NSN (FIELD #5) ON ITEM MASTER FILE (441)
  1. Q:'$D(X) I '$D(^PRC(441.2,+X,0)) D EN^DDIOL("First 4 digits MUST be an FSC code!!","","!") K X Q
  1. S Z=$O(^PRC(441,"BB",X,0)) S:Z=DA Z=$O(^(DA)) I Z D EN^DDIOL("This NSN has already been assigned to Item # "_Z_"!!","","!") K X,Z Q
  1. K Z Q
  1. ; --------------------
  1. ; *108 - additional Input Transform code and Executable Help code added 4/6/2007 by T. Holloway
  1. ;
  1. CONTRACT(PRCDA1,PRCINPUT) ; 443.6 : 443.61 : 4 - CONTRACT/BOA # Input Transform
  1. ; PRCDA1 = the IEN for file 443.6 passed in from the DA(1) variable.
  1. ; PRCINPUT = the user input passed in from the X variable
  1. N D,DA,DIC,DR,X
  1. S X=PRCINPUT
  1. S DA(1)=+$P(^PRC(443.6,PRCDA1,1),U)
  1. S DIC="^PRC(440,DA(1),4,",DIC(0)="QELM"
  1. D ^DIC K DIC
  1. Q Y
  1. ;
  1. HLPCON(PRCDA1,PRCINPUT) ; 443.6 : 443.61 : 4 - CONTRACT/BOA # Executable Help
  1. ; PRCDA1 = the IEN for file 443.6 passed in from the DA(1) variable.
  1. ; PRCINPUT = the user input passed in from the X variable, will be some form of ?.
  1. N D,DA,DIC,DR,X,Y,Z1
  1. S X=PRCINPUT
  1. S DA(1)=+$P(^PRC(443.6,PRCDA1,1),U),Z1=$P(^(1),U,7)
  1. I '$D(^PRC(440,DA(1),4,0)) Q
  1. S DIC("S")=$S(Z1=2:"I $P(^PRC(440,DA(1),4,+Y,0),U,6)'=""B""",1:"I 1")
  1. S DIC="^PRC(440,DA(1),4,",DIC(0)="QEM" D ^DIC
  1. Q