|
Last change
on this file since 829 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.
