~QST(1,Document Number ,10);  1=Question #      10=Answer Field Length   
~QST(2,Enter Posting Description ,15);  
PEPAP11;        Invoice Summary       
P;              Select
;               Report Format
;               From Vendor Number
;               To Vendor Number
~BOM;           From Invoice Date
~EOM;           To Invoice Date
Y;              Are You Sure
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P12;            Disbursement Summary  
P;              Select
;               Report Format
;               From Vendor Number
;               To Vendor Number
~BOM;           From Invoice Date
~EOM;           To Invoice Date
Y;              Are You Sure
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P13;            General Ledger Summary
P;              Select 
;               Report Format
;               From Chart of Accounts Number
;               To Chart of Accounts Number
~BOM;           From Invoice/Disbursement Date
~EOM;           To Invoice/Disbursemnent Date
Y;              Are You Sure
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
P18;            Checks
C;              Checks
;               Report Format
;               From Vendor Number
;               To Vendor Number
;               Check Date
~QST(3,Insert Form Check Into Printer And Press Enter ,1);   Warning Prompt
~QST(4,Beginning Check Number ,8);
~ANS(4);        Beginning Check Number  ~ANS(1)=Answer from question 1
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Printer);       Time Out Print Operation
~ENF;
Y;              Is Alignment Correct
~WAI(23,1,Select);       Time Out Print Operation
P16;            Update General Ledger
U;              Select Update
~BOM;           From Invoice/Disbursement Date
~EOM;           To Invoice/Disbursement Date
~ANS(1);        Document Number
;               Posting Date
~ANS(2);        Enter Posting Description
Y;              Are You Sure
P17;            Update Vendor History
U;              Select  Update
;               From Vendor Number
;               To Vendor Number
~BOM;           From Activity Date
~EOM;           To Activity Date
Y;              Are You Sure
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
~QST(3,PRESS <ENTER> TO CONTINUE OR F7 TO QUIT,15);
P25;            Clear Vendor Totals
M;              Select Month
Y;              Are You Sure
P51;            Purge Paid Invoice
P;              Select Purge
;               From Vendor Number
;               To Vendor Number
~BOM;           From Invoice Date
~EOM;           To Invoice Date
Y;              Are You Sure
P11;            Invoice Summary
C;              Select Clear
;               From Vendor Number
;               To Vendor Number
;               From Work Order/Project Number
;               To Work Order/Project Number
~BOM;           From Invoice Date
~EOM;           To Invoice Date
;               From Function/Procedure Number
;               To Function/Procedure Number
N;              Clear Non Updated to History
N;              Clear Non Updated to GL
N;		Clear Non Updated to JC
Y;              Are You Sure
P12;             Disbursement Summary
C;              Select Clear
;               From Vendor Number
;               To Vendor Number
~BOM;           From Disbursement Date
~EOM;           To Disbursement Date
N;              Clear Non-Updated To History
N;              Clear Non-Updated To GL
Y;              Are You Sure
P19;            Check Register  
P;              Select Print
;               Report Format
~BOM;           From Check Date
~EOM;           To Check Date
Y;              Are You Sure
~WAI(23,1,Select);
~IFS(23,9,Screen);
P;              Select Printer
0;              Printer Number
~WAI(23,1,Select);       Time Out Print Operation
~ENF;
