|
Last change
on this file since 1073 was 623, checked in by George Lilly, 15 years ago |
|
revised back to 6/30/08 version
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | PRCFALOG ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, 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 | ADD ;ADD CODE SHEET TO PRINTED BATCH
|
|---|
| 27 | D A,ADD^PRCFACR2,B Q
|
|---|
| 28 | DELETE ;DELETE CODE SHEET FROM PRINTED BATCH
|
|---|
| 29 | D A,REMOV^PRCFACR2,B Q
|
|---|
| 30 | TRANSMIT ;TRANSMIT CODE SHEETS
|
|---|
| 31 | D A,SE^PRCFACR,B Q
|
|---|
| 32 | RETRANS ;RETRANSMIT CODE SHEET BATCH
|
|---|
| 33 | D A,RT^PRCFACR5,B Q
|
|---|
| 34 | INQUIRY ;BATCH/TRANSMISSION/RECEIVING REPORT INQUIRY
|
|---|
| 35 | D A,E14^PRCFAC3,B Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
