source: FOIAVistA/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNP14E.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 492 bytes
Line 
1PRCNP14E ;ALB/RLC - PATCH PRCN*1.0*14 ENVIRONMENTAL CHECK ;[2/10/2004 11:50]
2 ;;1.0;Equipment/Turn-In Request;**14,15**;Sep 13, 1996
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5CHECK ; Check for Equipment/Turn-In Request Shutdown
6 N X S X="PRCLOP4" X ^%ZOSF("TEST") I $T,$$SYS^PRCLOP4>0 D S XPDQUIT=1 Q
7 . N PRCT S PRCT(1)="Equipment/Turn-In Request (PRCN) has been shut down, so no"
8 . S PRCT(2)="further PRCN patches should be installed." D MES^XPDUTL(.PRCT)
9 Q
Note: See TracBrowser for help on using the repository browser.