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: PRCOER3

Package: IFCAP

Routine: PRCOER3


Information

PRCOER3 ;WIRMFO-EDI RECONCILLIATION REPORT ; [8/31/98 1:46pm]

Source Information

Source file <PRCOER3.m>

Entry Points

Name Comments DBIA/ICR reference
START ; enter from tasked job
SINGLE ; Come here from start to display a single SENDERs entries.
UNLIST ; take LIST variable from PRCOER1 and convert to user selection
; returns PRCOA with transaction type delimited by '^'
PHA ; call to retrieve PHA records to display
HED ; write header for report
WRITE ; write out record to report sorted by transaction type and date
; stored in ^TMP($J,Transaction Type,Trans.date,ien)=PO/RFQ^austin date^incoming transaction^reject code
HANG ; call at end of screen if output sent to CRT
; returns PRCOUT=1 if user exits(^,timeout)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(HEADER,80),!
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR($$REPEAT^XLFSTR("-",$L(HEADER)),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: !,"TRANS",?7,"DOCUMENT #",?32,"TRANSACTION",?55,"AUSTIN ACCEPTANCE",!,"TYPE",?35,"DATE",?62,"DATE",!,$$REPEAT^XLFSTR("-",$S($G(IOM):IOM,1:79)),!
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,"No transactions for the date range selected.",!
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,I,?7,$P(K(0),U),?32,$$FMTE^XLFDT(J,"2P"),?55,$$FMTE^XLFDT($P(K(0),U,2),"2P")
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: !?2,"** REJECT CODE==> ",$P($G(^PRC(443.76,+$P(K(0),U,4),0)),U,2)
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HANG+5
Info |  Source |  Entry Points |  Interaction Calls