Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCOER4

Package: IFCAP

Routine: PRCOER4


Information

PRCOER4 ;WIRMFO-EDI EXCEPTIONS REPORT ; [8/31/98 1:51pm]

Source Information

Source file <PRCOER4.m>

Entry Points

Name Comments DBIA/ICR reference
START ; entry to generate Exceptions Report
QUIT
PRJ
DISPLAY ; Come here to show a PRJ exception to the user.
POA
DISPLAY1 ; Come here to show a POA exception to a user.
HED ; used to print main header for exception report.
HEDPRJ ; write header for PRJ data
HEDPOA ; write header for POA exceptions
HANG ; call at end of screen if output sent to screen
; returns 'PRCOUT'=1 if user enter '^'
CODE(X) ; returns external value of set of codes from field 442.01,13
; X = what is stored
ERR ; write out incoming processing errors
NORECORD ; write no data to report
PO ; display selected PURCHASE ORDER
AGAIN
FINI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRCOER4+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,?1,$P(PRCO(0),U,2),?22,$P(PRCO(0),U,6),?36,$$FMTE^XLFDT($P(PRCO(1),U,2),2),?64,$E($P(PRCO(1),U,3),1,25)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !?2,$P(PRCO(1),U,4),?30,$P(PRCO(1),U,6),?38,$P(PRCO(1),U,8),?50,$P(PRCO(1),U,9),?62,$P(PRCO(1),U,10),?73,$P(PRCO(1),U,14)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !?4,$P(PRCO(1),U,5)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !?4,"Reject Reason Code: ",$P($G(^PRC(443.76,+$P(PRCO(1),U,7),0)),U,2)
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !?2,$P(PRCO(0),U,2),?26,$P(PRCO(1),U,6),?48,$P(^PRCD(420.5,+$P(PRCO(2),U,3),0),U,2)
  • Line Location: DISPLAY1+7
Function Call: WRITE
  • Prompt: !?3,$P(PRCO(2),U,2),?15,$S($P(PRCO(3),U,12):$P(PRCO(3),U,12),1:$P(PRCO(3),U,10))
  • Line Location: DISPLAY1+8
Function Call: WRITE
  • Prompt: ?27,$S($P(PRCO(3),U,11)]"":$$CODE($P(PRCO(3),U,11)),1:$$CODE($P(PRCO(3),U,9)))
  • Line Location: DISPLAY1+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY1+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(HEADER,$S($G(IOM):IOM,1:80)),!
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR($$REPEAT^XLFSTR("-",$L(HEADER)),$S($G(IOM):IOM,1:80)),!
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !?2,"Date Range for Report: ",$$FMTE^XLFDT(PRCOBEG)_" to "_$$FMTE^XLFDT(PRCOSTOP),!
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>>> PRJ EXCEPTIONS <<<<",$S($G(IOM):IOM,1:80))
  • Line Location: HEDPRJ+1
Function Call: WRITE
  • Prompt: !!?1,"REFERENCE #",?22,"VENDOR ID",?36,"DATE/TIME PROCESSED",?59,"INCORRECT SEGMENT"
  • Line Location: HEDPRJ+2
Function Call: WRITE
  • Prompt: !?2,"INCORRECT FIELD",?30,"LINE#",?38,"DESC-LINE#",?50,"DE-SEQ#",?62,"CO-SEQ#",?73,"SEQ #"
  • Line Location: HEDPRJ+3
Function Call: WRITE
  • Prompt: !?4,"FIELD CONTENTS"
  • Line Location: HEDPRJ+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",$S($G(IOM):IOM,1:80))
  • Line Location: HEDPRJ+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(">>>> POA EXCEPTIONS <<<<",$S($G(IOM):IOM,1:80))
  • Line Location: HEDPOA+1
Function Call: WRITE
  • Prompt: !!?1,"REFERENCE #",?24,"LINE ITEM #",?47,"UNIT OF PURCHASE"
  • Line Location: HEDPOA+2
Function Call: WRITE
  • Prompt: !?2,"QTY ORDERED",?15,"QTY EXCEPTED",?29,"EXCEPTION REASON"
  • Line Location: HEDPOA+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",$S($G(IOM):IOM,1:80))
  • Line Location: HEDPOA+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HANG+6
Function Call: WRITE
  • Prompt: !?8,">>> Incoming processing errors <<<"
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !?2,"- ",$G(^(I,0))
  • Line Location: ERR+5
Function Call: WRITE
  • Prompt: !!?3,"No records meet the selection criteria.",!
  • Line Location: NORECORD+1
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: PO+3
Function Call: WRITE
  • Prompt: !,"LINE NUMBER: "
  • Line Location: AGAIN+0
Function Call: WRITE
  • Prompt: !!,?6," Please enter the line number next to the PO/RFQ Number.",$C(7),!
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !!,?6," Response must be no greater than "_VALMCNT_".",$C(7),!
  • Line Location: AGAIN+3
Function Call: WRITE
  • Prompt: !,"THE ENTRY IN FILE 443.75 IS MISSING"
  • Line Location: AGAIN+6
Function Call: WRITE
  • Prompt: !!,?6," Please use option View RFQ [PRCHQ15] to review this line item.",$C(7),!
  • Line Location: AGAIN+8
Info |  Source |  Entry Points |  Interaction Calls