Changeset 636 for FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFACPS.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFACPS.m
r628 r636 1 1 PRCFACPS ;WISC@ALTOONA/CTB/DL-PURGE CODE SHEET CONTINUATION ;1/29/98 1300 2 V ;;5.1;IFCAP; **114**;Oct 20, 2000;Build 43 ;Per VHA Directive 2004-038, this routine should not be modified.2 V ;;5.1;IFCAP;;Oct 20, 2000 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 DQ ;;PURGE CODE SHEETS AND TRANSMISSION RECORDS 5 5 D:$D(ZTQUEUED) KILL^%ZTLOAD 6 S PRCFNAME=$S(PRCFASYS["CLM CLIRRLOG":"FEE/FEN, Receiving Reports & LOG",PRCFASYS["CLM":"FEE/FEN",PRCFASYS["ISM":"ISM",PRCFASYS["IRS":"IRS",1:"LOG")6 S PRCFNAME=$S(PRCFASYS["CLM":"FEE/FEN",PRCFASYS["ISM":"ISM",PRCFASYS["IRS":"IRS",1:"LOG") 7 7 L +^PRCF(423,0):5 I '$T S X="Code Sheet file unavailable - File lock timeout.*" D MSG^PRCFQ Q 8 8 W:$D(IOF) @IOF W PRCFNAME_" CODE SHEET & TRANSMISSION RECORD DELETION TRANSCRIPT" D NOW^PRCFQ W ?IOM-$L(%X),%X
Note:
See TracChangeset
for help on using the changeset viewer.