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

Package: IFCAP

Routine: PRCHRPTA


Information

PRCHRPTA ;WISC/TKW-PUBLIC LAW 100-322 REPORT--CONTINUED ;4/13/93 11:15

Source Information

Source file <PRCHRPTA.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;*89*;Oct 20, 2000
EN
RD1 ;PRINT DETAILED REPORT
RD2
RD3
PRT
HDR
EN2 ;PRINT SUMMARY TOTALS
RDS
PRT2
GT ;PRINT GROUP SUB-TOTALS
GT1
ACM
T
HDR2
NONE ; perform this if no records were gathered
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: PRCHDESC,?32,$J($P(X,U,12),5),?39,PRCHFSC,?46,$S($P(X,U,2)'=0:$P(X,U,2),1:"-"),?61,$J($FN($P(X,U,4),","),7),?73,$S(PRCHV'=0:PRCHV,1:"-")
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?77,$J($P(X,U,6),11,2),?90,$J($P(X,U,10),9,2),?101,$J($P(X,U,11),9,2),?112,$J(AVRG,9,2),!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: @IOF,?55,"P.L. 100-322 Local Procurement",!,?56,"Aggregated Item Detail Report",!,?108,$P(PRCHPDAT,"@"),?122,"PAGE ",PRCHPAGE,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: I_" "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " Non-Expendable Purchases NOT Included",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?33,"ITEM",?63,"TOTAL",?82,"TOTAL",?96,"LOW",?106,"HIGH",?115,"AVERAGE",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "DESCRIPTION",?32,"NUMBER",?40,"FSC",?48,"N.I.I.N",?62,"QUANTITY",?72,"UNIT",?81,"DOLLARS",?95,"COST",?106,"COST",?116,"COST",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: PRCHFSC_" "_$P(^TMP($J,"FSC",PRCHFSC),U,1)
  • Line Location: RDS+0
Function Call: WRITE
  • Prompt: ?41,$J(PRCHTOT,11,2)
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: ?60,$J($P(X,U,3),11,2),?79,$J((($P(X,U,3)/PRCHTOT)*100),6,2),?91,$J($P(X,U,4),11,2),?110,$J((($P(X,U,4)/PRCHTOT)*100),6,2),?122,$J($P(X,U,5),11,2),?141,$J((($P(X,U,5)/PRCHTOT)*100),6,2)
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT2+2
Function Call: WRITE
  • Prompt: ?2,"SUB-TOTAL"
  • Line Location: GT+2
Function Call: WRITE
  • Prompt: !,?2,"FSC GROUP: "_$S($D(^TMP($J,"FSCG",PRCHFSCG)):^(PRCHFSCG),1:"**INVALID**"),!
  • Line Location: GT1+1
Function Call: WRITE
  • Prompt: ?41,I,?60,I,?79,$E(I,1,6),?91,I,?110,$E(I,1,6),?122,I,?141,$E(I,1,6),!
  • Line Location: T+0
Function Call: WRITE
  • Prompt: ?1,"* TOTAL *"
  • Line Location: T+1
Function Call: WRITE
  • Prompt: @IOF,?55,"P.L. 100-322 SUMMARY TOTALS REPORT",?108,$P(PRCHPDAT,"@"),?122,"PAGE ",PRCHPAGE,!
  • Line Location: HDR2+0
Function Call: WRITE
  • Prompt: I_" "
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: " Non-Expendable Purchases NOT Included",!!
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: ?63,"ALL OPEN",?81,"% OF",?94,"OPEN MKT",?112,"% OF",?123,"OPEN MARKET",?143,"% OF",!
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: "FSC",?47,"TOTAL",?65,"MARKET",?80,"TOTAL",?93,"EMERGENCY",?111,"TOTAL",?120,"LESS EMERGENCY",?142,"TOTAL",!
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !,"No records matched the selected criteria.",!
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: ?77,"___________",!," * TOTAL *",?80,PRCHTOTD
  • Line Location: Q+0
Info |  Source |  Entry Points |  Interaction Calls