| 1 | PRCHNPT ;SF/TKW-INPUT TRANSFORM ;9-1-89/1:58 PM
|
|---|
| 2 | V ;;5.1;IFCAP;**108**;Oct 20, 2000;Build 10
|
|---|
| 3 | ;Per VHA Directive 2004-038, this routine should not be modified
|
|---|
| 4 | EN1 ;INPUT TRANSFORM FOR NSN (FIELD #5) ON ITEM MASTER FILE (441)
|
|---|
| 5 | Q:'$D(X) I '$D(^PRC(441.2,+X,0)) W $C(7),!,"First 4 digits MUST be an FSC code!!" K X Q
|
|---|
| 6 | S Z=$O(^PRC(441,"BB",X,0)) S:Z=DA Z=$O(^(DA)) I Z W $C(7),!,"This NSN has already been assigned to Item # "_Z_"!!" K X,Z Q
|
|---|
| 7 | K Z Q
|
|---|
| 8 | ; --------------------
|
|---|
| 9 | ; *108 - additional Input Transform code and Executable Help code added 4/6/2007 by T. Holloway
|
|---|
| 10 | ;
|
|---|
| 11 | CONTRACT(PRCDA1,PRCINPUT) ; 443.6 : 443.61 : 4 - CONTRACT/BOA # Input Transform
|
|---|
| 12 | ; PRCDA1 = the IEN for file 443.6 passed in from the DA(1) variable.
|
|---|
| 13 | ; PRCINPUT = the user input passed in from the X variable
|
|---|
| 14 | N D,DA,DIC,DR,X
|
|---|
| 15 | S X=PRCINPUT
|
|---|
| 16 | S DA(1)=+$P(^PRC(443.6,PRCDA1,1),U)
|
|---|
| 17 | S DIC="^PRC(440,DA(1),4,",DIC(0)="QELM"
|
|---|
| 18 | D ^DIC K DIC
|
|---|
| 19 | Q Y
|
|---|
| 20 | ;
|
|---|
| 21 | HLPCON(PRCDA1,PRCINPUT) ; 443.6 : 443.61 : 4 - CONTRACT/BOA # Executable Help
|
|---|
| 22 | ; PRCDA1 = the IEN for file 443.6 passed in from the DA(1) variable.
|
|---|
| 23 | ; PRCINPUT = the user input passed in from the X variable, will be some form of ?.
|
|---|
| 24 | N D,DA,DIC,DR,X,Y,Z1
|
|---|
| 25 | S X=PRCINPUT
|
|---|
| 26 | S DA(1)=+$P(^PRC(443.6,PRCDA1,1),U),Z1=$P(^(1),U,7)
|
|---|
| 27 | I '$D(^PRC(440,DA(1),4,0)) Q
|
|---|
| 28 | S DIC("S")=$S(Z1=2:"I $P(^PRC(440,DA(1),4,+Y,0),U,6)'=""B""",1:"I 1")
|
|---|
| 29 | S DIC="^PRC(440,DA(1),4,",DIC(0)="QEM" D ^DIC
|
|---|
| 30 | Q
|
|---|
