Routine: PRCBP

Information

PRCBP ;WISC/CTB-PRINT OPTIONS FOR PRCB ;10/31/01 12:50pm

Source file <PRCBP.m>

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;3,43,139;Oct 20, 2000;Build 16
SE
OUT
EN1	;PRINT RANGE OF TRANSACTIONS
R1
R2
Q1
EN2	;PRINT SELECTED CONTROL POINTS
EN2Q	;Queue the Print Task(s).
ERRMSG	;Write the error messages.
CLNUP	;Clean variables that no longer needed.
EN2P	;Print the Task(s).
EN23	;Setup the temp file with selected records (FCP).
EN3	;PRINT BY TDA NUMBER
Q31
Q32
EN1Q
EN4	;FTEE SUMMARY BY PROGRAM
EN5	;APPROPRIATION SUMMARY (DETAIL)
EN5Q
EN6	;APPROPTIATION SUMMARY (TOTALS)
EN6Q
H
ZIS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"ENTRY TO THIS ROUTINE IS ONLY PERMITTED THROUGH THE APPROPRIATE",!,"MENU OR DRIVER" Line Location: SE+0
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: R1+0
Function Call: WRITE	Prompt: !,"START WITH TRANSACTION NUMBER: 1// " Line Location: R1+0
Function Call: READ	Formatting: !! Prompt: "GO TO TRANSACTION NUMBER: LAST// " Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: R2+0
Function Call: WRITE	Prompt: !!,$C(7),"ENTER A NUMBER BETWEEN ",D," AND ",PRCB("LAST"),". ('^' TO EXIT)" Line Location: Q1+0
Function Call: WRITE	Prompt: !," <Request Queued> Your Task number is: ",ZTSK,$C(7),! Line Location: EN2+28
Function Call: READ	Variable: X Timeout: 2 Line Location: EN3+2
Function Call: WRITE	Prompt: !,"NO TRANSACTIONS IN FY ",PRC("FY") Line Location: EN3+2
Function Call: WRITE	Prompt: !,"PRESS RETURN TO CONTINUE",$C(7) Line Location: H+0

FileNo	Call Tags
^PRC(420 - [#420]	Classic Fileman Calls
^PRCF(421 - [#421]	Classic Fileman Calls