36 lines
1.0 KiB
Mathematica
36 lines
1.0 KiB
Mathematica
PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
|
|
V ;;5.1;IFCAP;;Oct 20, 2000
|
|
;Per VHA Directive 10-93-142, 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
|
|
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
|