Routine: PRCHUTL

Information

PRCHUTL ;SF/TKW/ID/RSD-UTILITY ROUTINES FOR SUPPLY SYSTEM ; 5/10/99 10:58am

Source file <PRCHUTL.m>

Name	Comments	DBIA/ICR reference
EN2	;CALLED FROM FILE 441 FIELD .01, INPUT X="NEW", OUTPUT X=NEXT INTERNAL NUMBER
ENPO	;ENTER NEW PO IN FILE 442
ENPO1
NUM
Z
DOCID
W1
W2
W3
ENPOQ
WORD	; PRCH=GLOBAL,WX=LINE TO INSERT
SWITCH		ICR #6647 Status: Active Usage: Private
EDISTAT(D0,D1,LINECNT)	;DISPLAY P.O.'S EDI STATUS & QUANTITY	ICR #6567 Status: Withdrawn Usage: Private
VEN(A)	; Entry point to get FMS Vendor ID_ Alt.Address Indicator from the vendor file. -- Used by AR (Only) ; A = internal entry number to vendor file (#440)	ICR #2526 Status: Active Usage: Private
VENSEL()	; VENSEL = VENdor SELection ; EXTRINSIC FUNCTION THAT ALLOWS A USER TO SELECT AN IFCAP VENDOR. ; THIS FUNCTION WILL BE USED BY ACCOUNTS RECEIVABLE USERS.	ICR #2526 Status: Active Usage: Private
AF	; CALLED BY "AF" X-REF IN FIELD 52 (SITE AR) IN FILE 440.3.
VENEDITF	; THIS ENTRY POINT WILL INFORM USERS THAT THERE ARE VENDOR ; RECORDS, USED BY Accounts Receivable, THAT NEED TO BE EDITED ; BEFORE THEY CAN BE ENTERED INTO A VRQ.
VENEDITS	; THIS ENTRY POINT WILL INFORM USERS THAT THERE ARE VENDOR ; RECORDS, USED BY Accounts Receivable, THAT NEED TO BE EDITED ; BEFORE THEY CAN BE ENTERED INTO A VRQ.
COUNT	; NOW SHOW MESSAGE, IF ANY
FIND	; SEE IF FISCAL CAN ADD A VENDOR.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ENTER A NEW "_$S($G(PRCHDELV):"DELIVERY",1:"PURCHASE")_" ORDER NUMBER OR A COMMON NUMBERING SERIES" Line Location: ENPO+3
Function Call: WRITE	Prompt: !?3,$S($G(PRCHDELV):"DELIVERY",1:"PURCHASE")_" ORDER: " Line Location: ENPO+4
Function Call: WRITE	Prompt: " ??? Not part of an existing Common Numbering Series." Line Location: ENPO+12
Function Call: WRITE	Prompt: !?3,"P.O. ",X," already exist, use edit option to modify." Line Location: ENPO+14
Function Call: WRITE	Prompt: !?3," Common numbering series is being edited by another user, try later",$C(7) Line Location: W1+0
Function Call: WRITE	Prompt: !?3,"UPPER BOUND HAS BEEN EXCEEDED FOR COMMON NUMBERING SERIES ",$P(Y,U,2),$C(7) Line Location: W2+0
Function Call: WRITE	Prompt: " Purchase Order number already exist, please try again ",$C(7) Line Location: W3+0
Function Call: WRITE	Prompt: "#1: ",Y," QTY: ",$P(X,"^",2),!,?26 Line Location: EDISTAT+11
Function Call: WRITE	Prompt: "#2: ",Y," QTY: ",$P(X,"^",4) Line Location: EDISTAT+12
Function Call: WRITE	Prompt: !!,"There are Vendor Records that AR is using to be edited." Line Location: COUNT+4