Last change
on this file since 1765 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.3 KB
|
Line | |
---|
1 | PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
|
---|
2 | V ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
|
---|
3 | ;Per VHA Directive 2004-038, this routine should not be modified.
|
---|
4 | A S PRCHLOG="",PRCFASYS="LOGDLA" Q
|
---|
5 | B K PRCHLOG,PRCFASYS Q
|
---|
6 | CCS ;CREATE A CODE SHEET
|
---|
7 | D A,EN1^PRCFAC,B Q
|
---|
8 | DCS ;DELETE A CODE SHEET
|
---|
9 | D A,EN9^PRCFAC2,B Q
|
---|
10 | ECS ;EDIT A CODE SHEET
|
---|
11 | D A,EN2^PRCFAC,B Q
|
---|
12 | EKCS ;EDIT A KEY PUNCHED CODE SHEET
|
---|
13 | D A,EDIT^PRCFACR4,B Q
|
---|
14 | KCS ;KEY PUNCH A CODE SHEET
|
---|
15 | D A,^PRCFACR3,B Q
|
---|
16 | GRAB ;GRAB A BATCH NUMBER
|
---|
17 | D A,^PRCFACG,B Q
|
---|
18 | MBP ;MODIFY PRIORITY OF CODE SHEET WITHIN ITS BATCH
|
---|
19 | D A,EN1^PRCFAC2,B Q
|
---|
20 | BATCH ;BATCH AND PRINT CODE SHEETS
|
---|
21 | D A,EN^PRCFACP,B Q
|
---|
22 | REPRINT ;REPRINT A BATCH
|
---|
23 | D A,EN^PRCFAC5,B Q
|
---|
24 | PURGE ;PURGE CODE SHEETS
|
---|
25 | D A S PRCFASYS=PRCFASYS_"PHA" D EN^PRCFACPR,B Q
|
---|
26 | PURGE2 ;PURGE ALL CODE SHEETS
|
---|
27 | W !!,"** YOU MUST SELECT A DESIGNATED PRINTER FOR PURGE TO FUNCTION PROPERLY."
|
---|
28 | W !,"** DEFAULTING TO HOME DEVICE (0) WILL NOT PURGE DATA SINCE THE OPTION WILL BE "
|
---|
29 | W !,"** TASKED.",!
|
---|
30 | S PRCFASYS="CLMCLIRRLOGDLAPHAGSA" D EN^PRCFACPR,B Q
|
---|
31 | ADD ;ADD CODE SHEET TO PRINTED BATCH
|
---|
32 | D A,ADD^PRCFACR2,B Q
|
---|
33 | DELETE ;DELETE CODE SHEET FROM PRINTED BATCH
|
---|
34 | D A,REMOV^PRCFACR2,B Q
|
---|
35 | TRANSMIT ;TRANSMIT CODE SHEETS
|
---|
36 | D A,SE^PRCFACR,B Q
|
---|
37 | RETRANS ;RETRANSMIT CODE SHEET BATCH
|
---|
38 | D A,RT^PRCFACR5,B Q
|
---|
39 | INQUIRY ;BATCH/TRANSMISSION/RECEIVING REPORT INQUIRY
|
---|
40 | D A,E14^PRCFAC3,B Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.