Routine: PRCHNPO9

Information

PRCHNPO9 ;WISC/SC/JDM-SPLITTED PRCHNPO ROUTINE, ENTER NEW P.O./REQ. ; [12/10/98 12:22pm]

Name	Comments	DBIA/ICR reference
EDITMSG	;messages-when editing P.O.
CKSHBOC
CKSRCCD
CKPRCHD
CKSINFO
CKPMETH
CKFOBOR
CKLI	;Messages if req'd Packaging Multiple, UCF or Drug Type Code are null
TSTREQ1	;EP;Called from PO Input Templates to warn blank Packaging Multiple field will be required to complete transaction.
TSTREQ2	;EP;Called from PO Input Templates to warn blank Drug Type Code will be required to complete transaction.
ERRCHKS	;EP;Called from routine PRCHNPO before allowing completion of transaction. Checks all line items for blank required fields (as appropriate) Pkg. Mult., UCF & Drug Type Code.
NOIMF

Name	Line Occurrences
Function Call: WRITE	Prompt: ?5,!!,"The Estimated Shipping Charges is missing BOC!",$C(7) Line Location: CKSHBOC+0
Function Call: WRITE	Prompt: !!?5,"Source Code for "_$S($D(PRCHNRQ):"Requisition",1:"Purchase Order")_" is undefined !",$C(7) Line Location: CKSRCCD+0
Function Call: WRITE	Prompt: !,$S($D(PRCHNRQ):"Requisition",1:"Purchase Order")_" has no date. ",$C(7) Line Location: CKPRCHD+1
Function Call: WRITE	Prompt: $C(7),!!,"P.O. contains both a 'Ship to Address' and a 'Direct Delivery Patient'.",!,"Shipping information is unclear!" Line Location: CKSINFO+0
Function Call: WRITE	Prompt: !,$C(7),"Method of Processing is not entered!" Line Location: CKPMETH+0
Function Call: WRITE	Prompt: !,"F.O.B. Point with ORIGIN must have a Est. Shipping and/or Handling Charges" Line Location: CKFOBOR+0
Function Call: WRITE	Prompt: S Line Location: TSTREQ1+7
Function Call: WRITE	Prompt: D Line Location: TSTREQ1+7
Function Call: WRITE	Prompt: S Line Location: TSTREQ2+2
Function Call: WRITE	Prompt: D Line Location: TSTREQ2+2