Routine: PRCGARC1

Select the objects that you wish to see in the downloaded PDF

Information

PRCGARC1 ;WIRMFO@ALTOONA/CTB/BGJ - IFCAP ARCHIVE SUBROUTINES ;12/10/97 9:04 AM

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;147;Oct 20, 2000;Build 3
DOC(DA)	;completely archive 1 purchase order
DOIT
CI	;certified invoice
PIA	;payment in advance
DD	;guaranteed delivery
ST	;invoice/receiving report
IF	;imprest fund
RQ	;requisition
PC	;purchase card
AB	;autobank
AR	;accounts receivable
NULL
1358	;misc obligation
IS	;issue
TA	;travel authority
OTA	;open travel authority
PO(DA)	;archive one purchase order
ALLRR(DA)	;archive all receiving reports for a PO (DA)
ALL410	;archive all 410 documents related to PO (DA)
410(DA)	;archive 1 410 record
ERR	;go here when tape error
END	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "~~PRCG~~^",!,$P(^PRC(442,DA,0),"^",1)_"^"_$G(VENDOR) Line Location: DOC+3
Function Call: WRITE	Prompt: @%MT("BS") Line Location: ERR+2
Function Call: READ	Variable: X Timeout: 10 Line Location: ERR+3
Function Call: WRITE	Prompt: @%MT("BS"),@%MT("WEL"),%MT("REW") Line Location: ERR+5
Function Call: WRITE	Prompt: @%MT("BS"),@%MT("BS") Line Location: ERR+9