source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCIREC1.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 735 bytes
Line 
1PRCIREC1 ;WISC/SWS-Filed transform code ;9/7/06 14:22
2V ;;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
6START 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
18DELETE 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.