source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFALOG.m@ 1008

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