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

Package: IFCAP

Routine: PRCHFPT2


Information

PRCHFPT2 ;WISC/RSD/RHD-CONT. OF PRINT ;5/12/99 12:22

Source Information

Source file <PRCHFPT2.m>

Entry Points

Name Comments DBIA/ICR reference
PG1
PG
PGS
Q
IT
WP
PGNX
TOP
BOCTOP
DIS
DIS1
EST
ADC
REQ ; Q:$G(PRCHTYPE)'="" ; PRC*5*156 (Show txn# for all PO's)
TOT
DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"ITEMS CONTINUED ON NEXT PAGE ",!
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: "WAREHOUSE CERT. SIGN: "
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: "/ES/"_$$DECODE^PRCHES1(D0,PRCHFPT)
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: ?59,"DATE REC'D: "
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: " PARTIAL: ",PRCHFPT,$S($P(^PRC(442,D0,11,PRCHFPT,0),U,9)="F":" FINAL",1:"")
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: $E(PRCHULN,1,35),?59,"DATE REC'D: ",$E(PRCHULN,1,25)
  • Line Location: PG+7
Function Call: WRITE
  • Prompt: !!,"SERVICE CERT. SIGN: ",$E(PRCHULN,1,35),?59,"DATE REC'D: ",$E(PRCHULN,1,25)
  • Line Location: PG+8
Function Call: WRITE
  • Prompt: !,"90-2138-7-ADP, JAN 1984"
  • Line Location: PGS+0
Function Call: WRITE
  • Prompt: ?72,"RECEIVING REPORT COPY"
  • Condition for execution: PRCHDES="R"
  • Line Location: PGS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PGS+0
Function Call: WRITE
  • Prompt: !?8,$G(^TMP($J,PRCHW,1,K,0))
  • Line Location: WP+0
Function Call: WRITE
  • Prompt: @IOF,!?15,$S(PRCHDES="US":" USING SERVICE COPY",1:"ORDER FOR SUPPLIES OR SERVICES"),?52,"PAGE NO.",?63,P," OF ",PRCHP," PAGES",!?23,"(CONTINUATION)",?52,"DATE: "
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: ?70,"PO # ",$P($P(PRCH0,U,1),"-",2),!?5,"ISSUING OFFICE: DEPT. OF VETERANS AFFAIRS",?50,"VENDOR: ",$P(PRCHV,U,1),!,PRCHULN
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !?59,"UNIT",?69,"TOTAL"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: ?80,"QTY",?90,"AMT"
  • Condition for execution: PRCHDES="R"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,"ITEM",?15,"DESCRIPTION",?46,"QTY",?51,"UNIT",?59,"COST",?69,"COST"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: ?80,"QTY",?90,"AMT"
  • Condition for execution: PRCHDES="R"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,"ITEM",?15,"DESCRIPTION",?46,"QTY",?51,"UNIT",?59,"COST",?69,"COST"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: @IOF,!?15,$S(PRCHDES="US":" USING SERVICE COPY",1:"ORDER FOR SUPPLIES OR SERVICES"),?52,"PAGE NO.",?63,P," OF ",PRCHP," PAGES",!?23,"(CONTINUATION)",?52,"DATE: "
  • Line Location: BOCTOP+0
Function Call: WRITE
  • Prompt: ?70,"PO # ",$P($P(PRCH0,U,1),"-",2),!?5,"ISSUING OFFICE: DEPT. OF VETERANS AFFAIRS",?50,"VENDOR: ",$P(PRCHV,U,1),!,PRCHULN,!!
  • Line Location: BOCTOP+1
Function Call: WRITE
  • Prompt: !?2,$J($P(PRCHI0,U,6),3),?7,"LESS ",$P(PRCHI0,U,2)
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: $S($E($P(PRCHI0,U,2),1)="$":"",1:" %")," FOR ",$S($P(PRCHI0,U,1)="Q":"QUANTITY DISCOUNT",1:"ITEMS: "_$P(PRCHI0,U,1))
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: ?66,$J($P(PRCHI0,U,3),8,2)
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: ?66,$J($P(PRCHI0,U,3),8,2)
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: !?2,$S($P(PRCH0,U,18)]"":$J($P(PRCH0,U,18),3),1:$J(N,3)),?7,"ESTIMATED SHIPPING AND/OR HANDLING",?66,$J($P(PRCH0,U,13),8,2),!
  • Line Location: EST+0
Function Call: WRITE
  • Prompt: ?8,"BOC: ",+$P($G(^PRC(442,D0,23)),U),?22,"FMS LINE: 991",!
  • Line Location: EST+1
Function Call: WRITE
  • Prompt: !!,"V.A. TRANSACTION NUMBERS: "
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !?14,$P(^PRCS(410,+^PRC(442,D0,13,PRCH,0),0),U,1)
  • Line Location: REQ+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REQ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !?25,"TOTALS CARRIED FORWARD TO FIRST SHEET: ",?66,$J(PRCHPT,8,2),!!
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: "90-2139-ADP, MAY 1985"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?72,"RECEIVING REPORT COPY"
  • Condition for execution: PRCHDES="R"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+3
Info |  Source |  Entry Points |  Interaction Calls