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

Package: IFCAP

Routine: PRCFARRD


Information

PRCFARRD ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY FMS RECEIVING REPORT TRANSACTION ;6/23/95 14:44

Source Information

Source file <PRCFARRD.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
LOAD
SE
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,IOINLOW,$E(SP,1,15),"OBLIGATION NUMBER: ",IOINHI,C(3),IOINLOW," PARTIAL #: ",IOINHI
  • Line Location: SE+1
Function Call: WRITE
  • Prompt: PRCFA("PARTIAL")
  • Condition for execution: $D(PRCFA("PARTIAL"))
  • Line Location: SE+1
Function Call: WRITE
  • Prompt: !!,IOINLOW,$E(SP,1,10),"TOTAL AMOUNT OF RECEIVING REPORT: ",IOINHI,"$",$FN(XX,",",2)
  • Line Location: SE+2
Function Call: WRITE
  • Prompt: !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,C(1),IOINLOW,$E(SP,1,5),"TRANSACTION DATE: ",IOINHI,C(2),IOINLOW," REF #: ",IOINHI,C(3)
  • Line Location: SE+3
Function Call: WRITE
  • Prompt: !,IOINLOW,$E(SP,1,7),"LIQ. CODE: ",IOINHI,$E(C(4)_" ",1,4),!
  • Line Location: SE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SE+8
Function Call: WRITE
  • Prompt: !,IOINLOW,"Item #: ",IOINHI,$J($P(X8,U,3),4)
  • Line Location: SE+9
Function Call: WRITE
  • Prompt: IOINLOW," FMS Line #: ",IOINHI,$E($P(X8,U,2)_" ",1,3)
  • Line Location: SE+10
Function Call: WRITE
  • Prompt: IOINLOW," BOC: ",IOINHI,$G(BOC($P(X8,U,2)))
  • Line Location: SE+11
Function Call: WRITE
  • Prompt: IOINLOW," FMS Amount: ",IOINHI,$J($FN($P(X8,U,10)/100,",",2),14)
  • Line Location: SE+12
Function Call: WRITE
  • Prompt: IOINLOW
  • Line Location: EXIT+0
Info |  Source |  Entry Points |  Interaction Calls