PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
V ;;5.1;IFCAP;**114,116**;Oct 20, 2000;Build 8
;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="ALLCLMCLIRRLOGDLAPHAGSACAPFEEIRSISMPRCFEN" 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFALOG 1395 printed Sep 23, 2025@19:38:32 Page 2
PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
V ;;5.1;IFCAP;**114,116**;Oct 20, 2000;Build 8
+1 ;Per VHA Directive 2004-038, this routine should not be modified.
A SET PRCHLOG=""
SET PRCFASYS="LOGDLA"
QUIT
B KILL PRCHLOG,PRCFASYS
QUIT
CCS ;CREATE A CODE SHEET
+1 DO A
DO EN1^PRCFAC
DO B
QUIT
DCS ;DELETE A CODE SHEET
+1 DO A
DO EN9^PRCFAC2
DO B
QUIT
ECS ;EDIT A CODE SHEET
+1 DO A
DO EN2^PRCFAC
DO B
QUIT
EKCS ;EDIT A KEY PUNCHED CODE SHEET
+1 DO A
DO EDIT^PRCFACR4
DO B
QUIT
KCS ;KEY PUNCH A CODE SHEET
+1 DO A
DO ^PRCFACR3
DO B
QUIT
GRAB ;GRAB A BATCH NUMBER
+1 DO A
DO ^PRCFACG
DO B
QUIT
MBP ;MODIFY PRIORITY OF CODE SHEET WITHIN ITS BATCH
+1 DO A
DO EN1^PRCFAC2
DO B
QUIT
BATCH ;BATCH AND PRINT CODE SHEETS
+1 DO A
DO EN^PRCFACP
DO B
QUIT
REPRINT ;REPRINT A BATCH
+1 DO A
DO EN^PRCFAC5
DO B
QUIT
PURGE ;PURGE CODE SHEETS
+1 DO A
SET PRCFASYS=PRCFASYS_"PHA"
DO EN^PRCFACPR
DO B
QUIT
PURGE2 ;PURGE ALL CODE SHEETS
+1 WRITE !!,"** YOU MUST SELECT A DESIGNATED PRINTER FOR PURGE TO FUNCTION PROPERLY."
+2 WRITE !,"** DEFAULTING TO HOME DEVICE (0) WILL NOT PURGE DATA SINCE THE OPTION WILL BE "
+3 WRITE !,"** TASKED.",!
+4 SET PRCFASYS="ALLCLMCLIRRLOGDLAPHAGSACAPFEEIRSISMPRCFEN"
DO EN^PRCFACPR
DO B
QUIT
ADD ;ADD CODE SHEET TO PRINTED BATCH
+1 DO A
DO ADD^PRCFACR2
DO B
QUIT
DELETE ;DELETE CODE SHEET FROM PRINTED BATCH
+1 DO A
DO REMOV^PRCFACR2
DO B
QUIT
TRANSMIT ;TRANSMIT CODE SHEETS
+1 DO A
DO SE^PRCFACR
DO B
QUIT
RETRANS ;RETRANSMIT CODE SHEET BATCH
+1 DO A
DO RT^PRCFACR5
DO B
QUIT
INQUIRY ;BATCH/TRANSMISSION/RECEIVING REPORT INQUIRY
+1 DO A
DO E14^PRCFAC3
DO B
QUIT
