Last change
on this file since 1470 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
735 bytes
|
Line | |
---|
1 | PRCIREC1 ;WISC/SWS-Filed transform code ;9/7/06 14:22
|
---|
2 | V ;;5.1;IFCAP;**107**;Oct 20, 2000;Build 13
|
---|
3 | ;Per VHA Directive 2004-038, this routine should not be modified.
|
---|
4 | ;This routine serves as the input transform for the field Inventory Point in File ^PRCP(445)
|
---|
5 | Q
|
---|
6 | START S:X'["-" X=$G(PRC("SITE"))_"-"_X
|
---|
7 | I 'X!($L(X)>30)!(X'?3N1"-"1ANP.ANP)!('$G(PRCPPRIV)) K X Q
|
---|
8 | I +X'=PRC("SITE") D
|
---|
9 | . K MSG
|
---|
10 | .S MSG(1)=" "_+X_" not current station number."
|
---|
11 | .D EN^DDIOL(.MSG)
|
---|
12 | .K MSG,X
|
---|
13 | I $D(X),$O(^PRCP(445,"B",X,0)) D
|
---|
14 | . S MSG(1)=" DUPLICATE NAME"
|
---|
15 | . D EN^DDIOL(.MSG)
|
---|
16 | . K MSG,X
|
---|
17 | Q
|
---|
18 | DELETE I $P($G(^PRCP(445,D0,0)),U,3)="W" D
|
---|
19 | . K MSG
|
---|
20 | . S MSG(1)="YOU CANNOT DELETE WAREHOUSE TYPE INVENTORY POINTS.",MSG(1,"F")="!?2"
|
---|
21 | . D EN^DDIOL(.MSG)
|
---|
22 | . K MSG
|
---|
23 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.