Changeset 623 for WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFALOG.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFALOG.m (modified) (1 diff)

WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFALOG.m

@@ -1 @@
-PRCFALOG        ;WISC/CTB-LOG CODE SHEETS ;11-27-92/08:20
-V       ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
-        ;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="CLMCLIRRLOGDLAPHAGSA" 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
+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