source: FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFALOG.m@ 876

Last change on this file since 876 was 636, checked in by George Lilly, 15 years ago

WorldVistAEHR overlayed on FOIAVistA

File size: 1.0 KB
Line 
1PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4A S PRCHLOG="",PRCFASYS="LOGDLA" Q
5B K PRCHLOG,PRCFASYS Q
6CCS ;CREATE A CODE SHEET
7 D A,EN1^PRCFAC,B Q
8DCS ;DELETE A CODE SHEET
9 D A,EN9^PRCFAC2,B Q
10ECS ;EDIT A CODE SHEET
11 D A,EN2^PRCFAC,B Q
12EKCS ;EDIT A KEY PUNCHED CODE SHEET
13 D A,EDIT^PRCFACR4,B Q
14KCS ;KEY PUNCH A CODE SHEET
15 D A,^PRCFACR3,B Q
16GRAB ;GRAB A BATCH NUMBER
17 D A,^PRCFACG,B Q
18MBP ;MODIFY PRIORITY OF CODE SHEET WITHIN ITS BATCH
19 D A,EN1^PRCFAC2,B Q
20BATCH ;BATCH AND PRINT CODE SHEETS
21 D A,EN^PRCFACP,B Q
22REPRINT ;REPRINT A BATCH
23 D A,EN^PRCFAC5,B Q
24PURGE ;PURGE CODE SHEETS
25 D A S PRCFASYS=PRCFASYS_"PHA" D EN^PRCFACPR,B Q
26ADD ;ADD CODE SHEET TO PRINTED BATCH
27 D A,ADD^PRCFACR2,B Q
28DELETE ;DELETE CODE SHEET FROM PRINTED BATCH
29 D A,REMOV^PRCFACR2,B Q
30TRANSMIT ;TRANSMIT CODE SHEETS
31 D A,SE^PRCFACR,B Q
32RETRANS ;RETRANSMIT CODE SHEET BATCH
33 D A,RT^PRCFACR5,B Q
34INQUIRY ;BATCH/TRANSMISSION/RECEIVING REPORT INQUIRY
35 D A,E14^PRCFAC3,B Q
Note: See TracBrowser for help on using the repository browser.