|
Last change
on this file since 619 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
