source:
FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCUPMCK.m@
1397
| Last change on this file since 1397 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 164 bytes | |
| Line | |
|---|---|
| 1 | PRCUPMCK ;CTB/ALTOONA TEST ROUTINE FOR PURGE MASTER ;10/8/93 12:02 PM |
| 2 | V ;;5.0;IFCAP;;4/21/95 |
| 3 | ;N ETIME |
| 4 | S ETIME=($P($H,",",2)+120) |
| 5 | F Q:$P($H,",",2)>ETIME H 10 |
Note:
See TracBrowser
for help on using the repository browser.
