PRCFALOG	;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
V	;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
	;Per VHA Directive 2004-038, this routine should not be modified.
A	S PRCHLOG="",PRCFASYS="LOGDLA" Q
B	K PRCHLOG,PRCFASYS Q
CCS	;CREATE A CODE SHEET
	D A,EN1^PRCFAC,B Q
DCS	;DELETE A CODE SHEET
	D A,EN9^PRCFAC2,B Q
ECS	;EDIT A CODE SHEET
	D A,EN2^PRCFAC,B Q
EKCS	;EDIT A KEY PUNCHED CODE SHEET
	D A,EDIT^PRCFACR4,B Q
KCS	;KEY PUNCH A CODE SHEET
	D A,^PRCFACR3,B Q
GRAB	;GRAB A BATCH NUMBER
	D A,^PRCFACG,B Q
MBP	;MODIFY PRIORITY OF CODE SHEET WITHIN ITS BATCH
	D A,EN1^PRCFAC2,B Q
BATCH	;BATCH AND PRINT CODE SHEETS
	D A,EN^PRCFACP,B Q
REPRINT	;REPRINT A BATCH
	D A,EN^PRCFAC5,B Q
PURGE	;PURGE CODE SHEETS
	D A S PRCFASYS=PRCFASYS_"PHA" D EN^PRCFACPR,B Q
PURGE2	;PURGE ALL CODE SHEETS
	W !!,"** YOU MUST SELECT A DESIGNATED PRINTER FOR PURGE TO FUNCTION PROPERLY."
	W !,"** DEFAULTING TO HOME DEVICE (0) WILL NOT PURGE DATA SINCE THE OPTION WILL BE "
	W !,"** TASKED.",!
	S PRCFASYS="CLMCLIRRLOGDLAPHAGSA" D EN^PRCFACPR,B Q
ADD	;ADD CODE SHEET TO PRINTED BATCH
	D A,ADD^PRCFACR2,B Q
DELETE	;DELETE CODE SHEET FROM PRINTED BATCH
	D A,REMOV^PRCFACR2,B Q
TRANSMIT	;TRANSMIT CODE SHEETS
	D A,SE^PRCFACR,B Q
RETRANS	;RETRANSMIT CODE SHEET BATCH
	D A,RT^PRCFACR5,B Q
INQUIRY	;BATCH/TRANSMISSION/RECEIVING REPORT INQUIRY
	D A,E14^PRCFAC3,B Q
