Routine: PRCHNPO7

Information

PRCHNPO7 ;WISC/RHD-MISCELLANEOUS ROUTINES FROM P.O.ADD/EDIT 442 ; 7/27/05 10:16am

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;79,100;Oct 20, 2000
EN1	;INPUT TRANSFORM-FILE 442, NSN #9.5
EN10	;UPDATE FEDERAL SUPPLY CLASSIFICATION/PRODUCT SERVICE CODE (FSC/PSC), field #8, file #442.
EN11
EN100	;Come here for amended orders - check FSC/PSC, field #8, file #443.6.
EN101	;Check Request for Quotations - check FSC/PSC, field #4, file #444.
EN102	;Stop assignment of a PSC to an item.
EN103	;Stop assignment of an FSC to a service.
EN104	;Stop user if commodity code is missing.
EN105	;Stop a PO if a line item does not contain an FSC or PSC. This tag is	ICR #6640 Status: Active Usage: Private
EN106	;PRC5.1100: stop amended PO with line items lacking an FSC or PSC.
EN2	;IF 'ESTIMATED P.O.' MOVE VERBAGE INTO COMMENTS	ICR #6640 Status: Active Usage: Private
EN2A	;CHECK DELIVERY SCHEDULES-QUANTITY DELIVERED MUST BE >0
EN3	;COMPLETE DEPOT/GSA PUSH ORDERS
EN30
EN31
EN6	;FILE 442, SKU #9.4
EN7	;FILE 442, UNIT CONVERSION FACTOR #9.7
VEN
VENA
VEN1
VEN1A
SUPBOC(QUIETLY)	;stmts.to compute pre-implied BOC, moved from template PRCH2138 into this routine and also called in BOC input transform
EN8	;FILE 442, ITEM #40; BOC #3.5 -- Z0 must = BOC on entry
EN88	;FILE 442, EST. SHIPPING BOC #13.05 -- Z0 must = BOC on entry
EN9	;CHECK FOR PAYMENT FIELDS AND OTHER FIELDS IN VENDOR FILE
EXIT
EN12	;UPDATE NATIONAL DRUG CODE #9.3
EN13	;FILE 443.6, ITEM #40;BOC #3.5, EST. SHIPPING BOC #13.05
EN133	;FILE 443.6, EST. SHIPPING BOC #13.05

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Invalid NSN--first 4 characters must be FSC code!!" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,$C(7),"This NSN has already been assigned to item # "_$O(^(0))_"!!" Line Location: EN1+3
Function Call: WRITE	Prompt: $C(7),!,"Commodity Code missing on this FSC--Required for LOG code sheets!" Line Location: EN1+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN3+2
Function Call: WRITE	Prompt: !!,"You can either enter the total dollar amount for the entire PUSH, or just the",!,"dollar amount for this part (regular, subsistence or drugs). This is just",!,"used to update the P.O.register." Line Location: EN3+4
Function Call: WRITE	Prompt: $C(7),"??" Line Location: EN3+5
Function Call: WRITE	Prompt: !!,"Vendor must be entered before items ! ",$C(7) Line Location: VEN+0
Function Call: WRITE	Prompt: !!,"Vendor must be entered before items ! ",$C(7) Line Location: VENA+0
Function Call: WRITE	Prompt: !!,"Vendor must be entered before items ! ",$C(7) Line Location: VEN1+0
Function Call: WRITE	Prompt: !!,"Vendor must be entered before items ! ",$C(7) Line Location: VEN1A+0
Function Call: WRITE	Prompt: !,X Line Location: EN8+7
Function Call: WRITE	Prompt: !,X Line Location: EN88+3
Function Call: WRITE	Prompt: !,X Line Location: EN13+1
Function Call: WRITE	Prompt: !,X Line Location: EN133+1

FileNo	Call Tags
^PRC(442.8 - [#442.8]	Classic Fileman Calls