Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
492 bytes
|
Line | |
---|
1 | PRCNP14E ;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 | ;
|
---|
5 | CHECK ; 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.