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

Package: IFCAP

Routine: PRCHRPT3


Information

PRCHRPT3 ;BOISE/TKW-SUPPLEMENT TO PRCHRPT2--ACTUAL PRINT OF FPDS REPORTS ;8JUL1986/7:20 AM

Source Information

Source file <PRCHRPT3.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EN
RD1 ; READ REPORT FILE ^TMP AND PRINT REPORT
RD2 ; READ ^TMP FILE FOR REPORT BY P.O.NUMBER
PRT1
PRT2
PRT3
PRTT ; PRINT REPORT GRAND TOTALS
HDR
DEL2237 ; The option Delete 2237 Request from Worksheet file is being de-
; activated. It is no longer needed, as the 2237s with status of
; Returned to Service by PPM or by P&C no longer appear on the
; Outstanding 2237 Report. This Delete option was removing the
; 2237 from file 443,but leaving the approving e-sig info in file
; file 410, making inaccessable to A&MM and to the service.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"----------",?45,"---------",?65,"------------"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?15,"TOTALS",?35,PRCHOTCT,?50,PRCHLTOT,?68,PRCHTTOT
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: ?57,"*TOTAL*",?66,$J(PRCHTOT,11,2),!
  • Line Location: RD2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RD2+5
Function Call: WRITE
  • Prompt: PRCHKEY,?3,$P(X,U,1)
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: ?30,$J($P(X,U,2),8),?45,$J($P(X,U,3),8),?66,$J($P(X,U,4),11,2),!!
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: $P(PRCHPONO,"-",2),?12,"P.O.DATE:",$P(X,U,1),?45,$J($P(X,U,2),8),!
  • Line Location: PRT2+0
Function Call: WRITE
  • Prompt: ?18,"CONTRACTS:"
  • Condition for execution: K=1
  • Line Location: PRT3+0
Function Call: WRITE
  • Prompt: ?30,I
  • Line Location: PRT3+0
Function Call: WRITE
  • Prompt: ?66,$J($P(X,U,2),11,2),!
  • Line Location: PRT3+1
Function Call: WRITE
  • Prompt: !!!,?8,$P(X,U,1)
  • Line Location: PRTT+1
Function Call: WRITE
  • Prompt: ?30,$J($P(X,U,2),8),?45,$J($P(X,U,3),8),?66,$J($P(X,U,4),11,2),!
  • Line Location: PRTT+2
Function Call: WRITE
  • Prompt: @IOF,"PROCUREMENT & ACCOUNTING TRANSACTIONS STATISTICS",?51,PRCHPDAT,?74,"PAGE ",PRCHPAGE,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "CONTROL POINTS/MONTH FOR STATION: ",PRC("SITE")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " P.O.DATES "_PRCHPFR_" - "_PRCHPTO,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?45,"LINE/ITEM",!,N,?30,"P.O.COUNT",?47,"TOTAL",?65,"TOTAL AMOUNT",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"This option has been de-activated, as it is no longer needed."
  • Line Location: DEL2237+6
Function Call: WRITE
  • Prompt: !,"Instead of deleting the 2237, return it to the service. 2237s"
  • Line Location: DEL2237+7
Function Call: WRITE
  • Prompt: !,"returned to the service no longer appear on the Outstanding 2237"
  • Line Location: DEL2237+8
Function Call: WRITE
  • Prompt: !,"Report."
  • Line Location: DEL2237+9
Info |  Source |  Entry Points |  Interaction Calls