Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
IFCAP 3 ^PRCHDP1  RT^PRCOER1  (STOP,ZIS)^PRCOER2  
Kernel 2 $$FMTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
List Manager 2 (CLEAR,PAUSE)^VALM1  MSG^VALM10  
VA FileMan 2 Y^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IFCAP 2 PRCO EDI EXCEPTION  PRCO EDI PO DISPLAY  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
Y^DIQ CODE+6
^DIR START+7, HANG+4
^PRCHDP1 AGAIN+11
RT^PRCOER1 PRCOER4+5
STOP^PRCOER2 PRCOER4+6, PRCOER4+14, PRCOER4+15, QUIT
ZIS^PRCOER2 PRCOER4+13
CLEAR^VALM1 AGAIN+10
PAUSE^VALM1 FINI
MSG^VALM10 PO+2
$$FMTE^XLFDT DISPLAY+2, HED+5
$$CJ^XLFSTR HED+3, HED+4, HEDPRJ+1, HEDPOA+1
$$REPEAT^XLFSTR HED+4, HEDPRJ+5, HEDPOA+4

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
Routine Call
  • DIR
  • Line Location:
    • START+7
    • HANG+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(442.01 CODE+5
^PRC(442 - [#442] POA+5, DISPLAY1+2, DISPLAY1+3
^PRC(443.75 - [#443.75] PRJ+2, PRJ+3, PRJ+4, PRJ+5, POA+3, POA+4, ERR+2, ERR+5, AGAIN+4, AGAIN+5
^PRC(443.76 - [#443.76] DISPLAY+5
^PRCD(420.5 - [#420.5] DISPLAY1+7
^VA(200 - [#200] HED+2

Label References

Name Line Occurrences
$$CODE DISPLAY1+9
AGAIN AGAIN+2, AGAIN+3, AGAIN+8
DISPLAY PRJ+3, PRJ+5
DISPLAY1 POA+5
ERR DISPLAY1+10
FINI AGAIN+1, AGAIN+6
HANG DISPLAY+6, DISPLAY1+11
HED START+5, START+9, DISPLAY+7, DISPLAY1+12
HEDPOA POA+2, DISPLAY1+12
HEDPRJ PRJ+1, DISPLAY+7
NORECORD PRJ+6, POA+6
POA START+10
PRJ START+6
QUIT START+7

Naked Globals

Name Field # of Occurrence
^( ERR+5
^(1 PRJ+3, PRJ+5, POA+4
^(2 DISPLAY1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C CODE+3~, CODE+5*
CNT QUIT!, PRJ+3*, PRJ+5*, PRJ+6, POA+1!, POA+6, DISPLAY1+6*
>> D0 AGAIN+9*
DIR START+7!, HANG+4!
DIR(0 START+7*, HANG+4*
DIRUT START+7, QUIT!, HANG+2~
DTIME AGAIN
DTOUT QUIT!, HANG+2~
DUOUT QUIT!, HANG+2~
>> HEADER HED+2*, HED+3, HED+4
I PRJ~, PRJ+2*, PRJ+3, PRJ+4*, PRJ+5, POA~, POA+3*, POA+4, ERR+4~*, ERR+5*
IO START+2
IOF PRCOER4+4, START+3, START+8, DISPLAY+7, DISPLAY1+12
IOM HED+3, HED+4, HEDPRJ+1, HEDPRJ+5, HEDPOA+1, HEDPOA+4
IOSL DISPLAY+7, DISPLAY1+12, HANG+4
IOST START+3, START+7, HANG+4
IT QUIT!, DISPLAY1+2*, DISPLAY1+3
J PRJ~, PRJ+3*, PRJ+5*, POA~, POA+4*, ERR+2, ERR+5
>> MESS PO+1*, PO+2
PO QUIT!, POA+5*, DISPLAY1+2, DISPLAY1+3
>> PONUM AGAIN*, AGAIN+1, AGAIN+2, AGAIN+3, AGAIN+4
>> PONUM1 AGAIN+4*, AGAIN+5
>> PONUM2 AGAIN+5*, AGAIN+6, AGAIN+7, AGAIN+8, AGAIN+9
>> POP PRCOER4+14
>> PRC("SITE" AGAIN+7*
PRCO QUIT!, PRJ~, POA~
PRCO(0 PRJ+3*, PRJ+5*, DISPLAY+2, POA+4*, POA+5, DISPLAY1+7
PRCO(1 PRJ+3*, PRJ+5*, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, POA+4*, DISPLAY1+2, DISPLAY1+7
PRCO(2 DISPLAY1+3*, DISPLAY1+7, DISPLAY1+8
PRCO(3 DISPLAY1+3*, DISPLAY1+4, DISPLAY1+5, DISPLAY1+8, DISPLAY1+9
>> PRCOBEG PRCOER4+6, PRJ+2, PRJ+4, POA+3, HED+5
>> PRCOPOP PRCOER4+15
>> PRCOSTOP PRCOER4+6, PRJ+2, PRJ+4, POA+3, HED+5
PRCOUT START+7, PRJ+2, PRJ+3, PRJ+4, PRJ+5, DISPLAY+6, POA+1!, POA+3, POA+4, DISPLAY1+11
, HANG+3!, HANG+4*
>> SENDER PRJ+2, PRJ+4, PRJ+5, HED+2
U DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, POA+5, DISPLAY1+2, DISPLAY1+4, DISPLAY1+5, DISPLAY1+7, DISPLAY1+8
, DISPLAY1+9, HED+2, CODE+5, AGAIN+4, AGAIN+7, AGAIN+9
>> VALMBCK FINI+1*
>> VALMCNT AGAIN+3
X CODE~, CODE+2, CODE+4
Y HANG+4, CODE+3~, CODE+4*, CODE+7
>> ZTDESC PRCOER4+12*
>> ZTRTN PRCOER4+11*
>> ZTSAVE("PRCOBEG" PRCOER4+8*
>> ZTSAVE("PRCOSTOP" PRCOER4+9*
>> ZTSAVE("SENDER" PRCOER4+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All