Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
IFCAP 5 EN2^PRCHDP4  $$DECODE^PRCHES1  (AUTH,ITEM)^PRCHFPT3  MORBOC^PRCHFPT4  DIWP^PRCUTL  
Kernel 1 KILL^%ZTLOAD  
VA FileMan 1 %XY^%RCR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCHFPT1  PRCHFPT4  

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

External References

Name Field # of Occurrence
%XY^%RCR ADC+2
KILL^%ZTLOAD Q+2
EN2^PRCHDP4 PGS+2
$$DECODE^PRCHES1 PG+5
AUTH^PRCHFPT3 PG+4
ITEM^PRCHFPT3 IT
MORBOC^PRCHFPT4 PGNX+1
DIWP^PRCUTL ADC+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] PG+5, PG+6, Q!, IT, DIS, EST+1, REQ+4, REQ+5, REQ+6
^PRC(442.7 - [#442.7] ADC, ADC+1
^PRCS(410 - [#410] REQ+4, REQ+5
^TMP($J PG, Q+2!, WP, DIS, EST, ADC+2!, REQ+1
^UTILITY($J Q+2!, ADC!

Label References

Name Line Occurrences
ADC PG
BOCTOP PGNX+1
DIS PG
DIS1 DIS
DT PG+5, TOP, BOCTOP
EST PG
IT PG
PG PGNX
PGNX PGS
PGS PG+4
REQ PG
TOP PGNX
TOT PGNX
WP PG, IT, ADC, ADC+4

Naked Globals

Name Field # of Occurrence
^( IT, DIS, ADC+1
^("P" Q+2!
^("PRCH" Q+2!
^(0 PG+5, REQ+4
^(2 IT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X ADC+2*
>> %Y ADC+2*
BCT Q+1!
BOC Q+1!
BOC22 Q+1!
BOCCT Q+1!, PGNX+1
BOCPG PG+1, Q+1!, PGNX, PGNX+1
BOLN Q+1!
CHGSHP Q+1!
COUNT Q+1!
D0 PG+5, PG+6, Q!, IT, DIS, EST+1, REQ+4, REQ+5, REQ+6
DA Q!, ADC+1
DEST Q!
DIWF Q!, ADC*
DIWL Q!, ADC*
DIWR Q!, ADC*
FMSLN Q+1!
I PG*, Q+2!
IOF TOP, BOCTOP
J Q+2!
K Q+2!, WP*
LITEM Q+1!
N PG1*, Q+1!, Q+2!, IT*, DIS*, EST*
P PG1*, PG, PG+1, PG+5*, PGS*, Q+2!, WP, PGNX, PGNX+1, TOP
, BOCTOP, DIS, EST, REQ+1
PRCH PG1*, Q!, IT*, DIS*, ADC*, ADC+1, REQ+3*, REQ+4, REQ+5, REQ+6*
PRCH0 Q!, TOP+1, BOCTOP+1, EST
PRCH1 Q!, TOP, BOCTOP
PRCH12 Q!
PRCHC Q+2!
PRCHCNT Q+2!
PRCHD Q+2!, DIS*, EST*, ADC*, ADC+1*, REQ+1*, REQ+3
PRCHDA Q!
PRCHDES PG+4, PGS, PGS+2, Q!, TOP, TOP+2, BOCTOP, TOT+2
PRCHDTA Q!
PRCHFPT PG+5, PG+6, Q+2!
PRCHFTYP Q!
PRCHHSP Q!
PRCHI PG*, Q!, IT, WP, ADC
PRCHI0 Q!, IT*, DIS*, DIS1
PRCHI2 Q!, IT*
PRCHINV Q!
PRCHJ PG1*, PG*, Q+2!, IT, ADC
PRCHJD Q+2!
PRCHJJ ADC+1*, ADC+3!
PRCHK Q+2!
PRCHL PG1*, PG*, PG+1*, PG+2, Q+2!, WP*, WP+1*, DIS*, EST*, REQ+2*
, REQ+5*, REQ+7*, TOT
PRCHL1 Q+2!
PRCHLB Q+2!
PRCHLC Q!, Q+2!
PRCHLE Q+2!
>> PRCHONL PGS+2*
PRCHP PG1*, PG+1, PGS, Q+2!, PGNX, PGNX+1, TOP, BOCTOP
PRCHPT PG1*, PGS*, Q+2!, DIS*, EST*, TOT+1
>> PRCHQUIT PGS+2*
PRCHREPR Q+2!
PRCHS Q!
PRCHSHP Q!
PRCHSIT Q!
PRCHST Q!
PRCHULN PG+4, PG+7, PG+8, Q+2!, TOP+1, TOP+2, BOCTOP+1
PRCHV Q+2!, TOP+1, BOCTOP+1
PRCHW PG*, Q!, IT*, WP, ADC*
PZZBOC Q+1!
S Q+2!
U PG+5, PG+6, WP, TOP, TOP+1, BOCTOP, BOCTOP+1, DIS, DIS1, EST
, EST+1, ADC, REQ+5
V Q+2!
X PG+5*, Q+2!, ADC+1*
Y PG+2*, PG+5*, Q+2!, TOP*, BOCTOP*, TOT*, DT
Z Q+2!
ZTSK Q+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All