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

Package: IFCAP

Routine: PRCHFPT3


Information

PRCHFPT3 ;WISC/RSD/RHD-CONT. OF PRINT ;7/21/99 13:19

Source Information

Source file <PRCHFPT3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
IFCAP 6 $$DECODE^PRCHES4  $$DECODE^PRCHES5  PSNO^PRCHFPNT  SETUP^PRCHFPT4  EDISTAT^PRCHUTL  DIWP^PRCUTL  
VA FileMan 2 %XY^%RCR  EN^DIQ1  

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

Package Total Caller Graph
IFCAP 3 PRCHFPT2  PRCHPAM1  PRCHPAM9  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**221**;Oct 20, 2000;Build 14
ITEM
AMT
AUTH
APP
APP1
DT
DT1
FAXEMAIL(PRCA,PRCB,PRCC) ;
PIPECK ;check for invalid pipe '|IN ' command in item description ;PRC*5.1*221

External References

Name Field # of Occurrence
%XY^%RCR ITEM+4
EN^DIQ1 FAXEMAIL+4
$$DECODE^PRCHES4 APP+3
$$DECODE^PRCHES5 AUTH+9
PSNO^PRCHFPNT ITEM+11
SETUP^PRCHFPT4 APP1+6
EDISTAT^PRCHUTL ITEM+13
DIWP^PRCUTL ITEM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$J(+$P(PRCHI0,U,1),3),?7,$G(^(1,1,0))
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: ?42,$J($P(PRCHI0,U,2),7),?52,$P($G(^PRCD(420.5,+$P(PRCHI0,U,3),0)),U,1)
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: ?55,$S($L(X)>3:$J($P(PRCHI0,U,9),8,4),$L(X)>2:$J($P(PRCHI0,U,9),8,3),$P(PRCHI0,U,9)="N/C":" N/C",1:$J($P(PRCHI0,U,9),8,2))
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: ?8,"STK#: ",$P(PRCHI0,U,6),!
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: ?8,"NSN: ",$P(PRCHI0,U,13)
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: ?8,"FOOD GROUP: ",$P(^(4),U,12),!
  • Line Location: ITEM+12
Function Call: WRITE
  • Prompt: ?8,"IMF#: ",$P(PRCHI0,U,5)_" "
  • Line Location: ITEM+14
Function Call: WRITE
  • Prompt: ?8
  • Condition for execution: $P(PRCHI0,U,5)']""!($P(PRCHI0,U,5)]""&(PRCHDES'="R"))
  • Line Location: ITEM+15
Function Call: WRITE
  • Prompt: "Items per ",$P($G(^PRCD(420.5,+$P(PRCHI0,U,3),0)),U,1),": ",$P(PRCHI0,U,12),!
  • Line Location: ITEM+15
Function Call: WRITE
  • Prompt: ?8,"BOC: ",$P($P(PRCHI0,U,4)," ",1)
  • Line Location: ITEM+16
Function Call: WRITE
  • Prompt: ?22,"FMS LINE: ",FMSLN
  • Line Location: ITEM+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+19
Function Call: WRITE
  • Prompt: ?66,$J($P(PRCHI2,U,1),8,2)
  • Line Location: AMT+0
Function Call: WRITE
  • Prompt: ?76,$J($P(^(0),U,2),7),?86,$J($P(^(0),U,3),8,2)
  • Line Location: AMT+1
Function Call: WRITE
  • Prompt: !,"AUTHORITY FOR PURCHASE",?28,$S($D(PRCHNRQ):"REQ.",1:"P.O.")_" NO.",?42,$S($D(PRCHNRQ):"REQ.",1:"PO ")_"DATE"
  • Line Location: AUTH+0
Function Call: WRITE
  • Prompt: ?54,"EST."
  • Condition for execution: Y="Y"
  • Line Location: AUTH+0
Function Call: WRITE
  • Prompt: ?59,"TOTAL: ",?66,$J($P(PRCH0,U,15),8,2)
  • Line Location: AUTH+0
Function Call: WRITE
  • Prompt: ?76,"DSCNT AMT: ",$J(PRCHDA,8,2)
  • Line Location: AUTH+1
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: I>1
  • Line Location: AUTH+2
Function Call: WRITE
  • Prompt: $P($G(^PRC(442.4,+^(Y,0),0)),U,2)
  • Line Location: AUTH+2
Function Call: WRITE
  • Prompt: ?8,"P.O.# "_$P(PRCH0,U,1),?28
  • Line Location: AUTH+3
Function Call: WRITE
  • Prompt: $P(^(18),U,10)
  • Condition for execution: $D(^PRC(442,D0,18))
  • Line Location: AUTH+3
Function Call: WRITE
  • Prompt: ?42
  • Line Location: AUTH+4
Function Call: WRITE
  • Prompt: !,$S(PRCHTYPE'="":"AUTHORIZED BUYER",1:"CONTRACTING OFFICER"),?35,"DATE SIGNED",?52,"PHONE" W:PRCFAX'=""
  • Line Location: AUTH+7
Function Call: WRITE
  • Prompt: !,"/ES/"_$$DECODE^PRCHES5(D0)
  • Line Location: AUTH+9
Function Call: WRITE
  • Prompt: ?35
  • Line Location: AUTH+10
Function Call: WRITE
  • Prompt: ?52,$P(^(.13),U,5),?70,PRCFAX
  • Condition for execution: $D(^VA(200,P,.13))
  • Line Location: AUTH+10
Function Call: WRITE
  • Prompt: !,PRCHULN
  • Line Location: AUTH+14
Function Call: WRITE
  • Prompt: !,?7,"FUND CERTIFICATION: The supplies/services listed on this request are properly",!?5,"chargeable to the following allotments, the available balances of which are"
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: !?5,"sufficient to cover the cost thereof, and funds have been obligated."
  • Line Location: APP+1
Function Call: WRITE
  • Prompt: !,"APPROPRIATION: ",$P(PRCH0,U,4),"-",$P($P(PRCH0,U,3)," ",1),?40,"OBLIGATED BY: "
  • Line Location: APP+2
Function Call: WRITE
  • Prompt: "/ES/"_$$DECODE^PRCHES4(D0,1),?75,"DATE: "
  • Line Location: APP+3
Function Call: WRITE
  • Prompt: $P(X,",",2)," ",$P(X,",",1),?75,"DATE: "
  • Line Location: APP+4
Function Call: WRITE
  • Prompt: !,"COST CENTER: ",$P(PRCH0,U,5)
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: ?41,"BOC1:",?48,$P(BOC(1),U),?56,"AMOUNT1:",?66,$J($P(BOC(1),U,2),12,2),?80
  • Line Location: APP1+1
Function Call: WRITE
  • Prompt: "FMS LINE: ",FMSLN
  • Line Location: APP1+1
Function Call: WRITE
  • Prompt: !,"SOURCE CODE: "
  • Line Location: APP1+3
Function Call: WRITE
  • Prompt: "SUPPLY-"_$S(X="B":"COMB.2,4,6",1:X_" ")
  • Line Location: APP1+3
Function Call: WRITE
  • Prompt: "SUPPLY-"_$S(X="B":"COMB.2,4,6",1:X_" ")
  • Line Location: APP1+3
Function Call: WRITE
  • Prompt: X
  • Condition for execution: X
  • Line Location: APP1+3
Function Call: WRITE
  • Prompt: ?41,"BOC2:",?48,$P(BOC(2),U),?56,"AMOUNT2:",?66,$J($P(BOC(2),U,2),12,2),?80
  • Line Location: APP1+4
Function Call: WRITE
  • Prompt: "FMS LINE: ",FMSLN
  • Line Location: APP1+4
Function Call: WRITE
  • Prompt: ?41,"BOC2:",?48,+$P($G(^PRC(442,D0,23)),U),?56,"AMOUNT2:",?66,$J(CHGSHP,12,2),?80,"FMS LINE: 991"
  • Line Location: APP1+5
Function Call: WRITE
  • Prompt: !,"FCP/PRJ: ",PRCHPRJ,?41,$S(P>1&(BOCCT>2):"**ADDITIONAL BOCs WILL BE FOUND AFTER ALL THE ITEMS.**",BOCCT>2:"**ADDITIONAL BOCs WILL BE FOUND ON THE NEXT PAGE.**",1:"")
  • Line Location: APP1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: APP1+9
Function Call: WRITE
  • Prompt: "@",$E(Y,1,2),":",$E(Y,3,4)
  • Line Location: DT1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] ITEM+3, ITEM+12, ITEM+16, ITEM+17, AMTAMT+1, AUTHAUTH+2, AUTH+3, AUTH+8
AUTH+9, APP+2, APP+5, APP+6, APP1+5, PIPECK+2
^PRC(442.4 - [#442.4] AUTH+2
^PRCD(420.5 - [#420.5] ITEM+6, ITEM+15
^PRCD(420.8 - [#420.8] APP1+2
^TMP($J ITEM+4!, ITEM+9
^UTILITY("DIQ1" FAXEMAIL+3!, FAXEMAIL+5!
^UTILITY($J ITEM+1!, ITEM+5
^VA(200 - [#200] AUTH+10, APP+4, FAXEMAIL+2

Label References

Name Line Occurrences
AMT ITEM+8
APP1 APP+5
DT AUTH+4, AUTH+10, APP+3, APP+4
DT1 AUTH+10
FAXEMAIL AUTH+6
PIPECK ITEM+2

Naked Globals

Name Field # of Occurrence
^( ITEM+3, AUTH+2, AUTH+10, APP+6, PIPECK+3
^(0 ITEM+9, AMT+1, AUTH+8, APP+2, APP+4, PIPECK+3
^(1 ITEM+5
^(18 AUTH+3
^(4 ITEM+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X ITEM+4*
>> %Y ITEM+4*
BOC APP+5!*, APP+6*, APP+7
BOC( APP+6*
BOC(1 APP1+1
BOC(2 APP1+4, APP1+5
>> BOC22 APP+6*
>> BOCCT APP+5*, APP1+7
>> CHGSHP APP+5*, APP1+5
>> CNT APP+5*, APP+6*, APP+7
D0 ITEM+3, ITEM+12, ITEM+13, ITEM+16, ITEM+17, AMTAMT+1, AUTHAUTH+2, AUTH+3
AUTH+8, AUTH+9, APP+2, APP+3, APP+5, APP+6, APP1+5, FAXEMAIL+3~, PIPECK+2
DA ITEM+3, FAXEMAIL+3~, FAXEMAIL+4*, FAXEMAIL+5
DIC FAXEMAIL+3~, FAXEMAIL+4*
DIQ FAXEMAIL+3~, FAXEMAIL+4*
DIQ(0 FAXEMAIL+4*
>> DIWF ITEM+1*, ITEM+3*
>> DIWL ITEM+1*
>> DIWR ITEM+1*
DR FAXEMAIL+3~, FAXEMAIL+4*
>> FMSLN ITEM+16*, ITEM+17*, APP1+1*, APP1+4*
>> I AUTH+2*
>> K ITEM+9*
MO APP1+8!
>> P ITEM+9, AUTH+9*, AUTH+10, APP+2*, APP+4, APP1+7
PODATE APP1+8!
PRC("BBFY" APP1+8!
PRCA FAXEMAIL~, FAXEMAIL+1, FAXEMAIL+2, FAXEMAIL+4
PRCB FAXEMAIL~, FAXEMAIL+1*, FAXEMAIL+2*, FAXEMAIL+5*
PRCC FAXEMAIL~, FAXEMAIL+1*, FAXEMAIL+2*, FAXEMAIL+5*
PRCEMAIL AUTH+6, AUTH+11, AUTH+12, AUTH+14!
PRCFAX AUTH+6, AUTH+7, AUTH+10, AUTH+14!
>> PRCH ITEM+3, ITEM+9, ITEM+12, ITEM+13, AMTAMT+1, PIPECK+2
>> PRCH0 AUTHAUTH+3, AUTH+4, APP+2, APP1
>> PRCH1 AUTH+4, AUTH+6, AUTH+9, APP1+2
PRCHB APP1+8!
>> PRCHC AMT*
>> PRCHCNT ITEM+5*, ITEM+9
>> PRCHD ITEM+2*, ITEM+3*
>> PRCHDA AUTH+1, AUTH+8*, AUTH+11, AUTH+13
>> PRCHDES ITEM+14, ITEM+15, AMT+1, AUTH+1, AUTH+5, AUTH+8, AUTH+11, AUTH+13
PRCHDIW ITEM~
>> PRCHDTA AUTH+1*, AUTH+5, AUTH+8, AUTH+11, AUTH+13
PRCHFCP APP1+8!
>> PRCHFPT AMTAUTH+8
PRCHI ITEM~
>> PRCHI0 ITEM+5, ITEM+6, ITEM+7, ITEM+10, ITEM+11, ITEM+14, ITEM+15, ITEM+16
>> PRCHI2 ITEM+18, AMT
PRCHJ ITEM~
PRCHJJ ITEM+3*, ITEM+5!
>> PRCHL ITEM+5*, ITEM+10*, ITEM+11*, ITEM+12*, ITEM+13, ITEM+15*, ITEM+16*, ITEM+19*, APP1+5*
>> PRCHNRQ ITEM+11, AUTHAUTH+3, AUTH+4
PRCHPRJ APP1+7, APP1+8!
>> PRCHPT AMT*
PRCHSTN APP1+8!
>> PRCHTYPE ITEM+6, ITEM+15, ITEM+17, AUTH+7
>> PRCHULN AUTH+14
PRCHWD PIPECK+1~*, PIPECK+2*, PIPECK+3
PRCHX PIPECK+1~, PIPECK+3*, PIPECK+4
PRCHZ0 APP1+8!
PRCHZ1 APP1+8!
PRCX FAXEMAIL+3~
PRCX(200 FAXEMAIL+5
PURPIPE ITEM~, ITEM+2*, ITEM+3, PIPECK+2, PIPECK+4*
>> PZZBOC APP+7*
U ITEM+5, ITEM+6, ITEM+7, ITEM+9, ITEM+10, ITEM+11, ITEM+12, ITEM+14, ITEM+15, ITEM+16
ITEM+17, ITEM+18, AMTAMT+1, AUTHAUTH+2, AUTH+3, AUTH+4, AUTH+6, AUTH+8
AUTH+9, AUTH+10, APP+2, APP+5, APP+6, APP1APP1+1, APP1+2, APP1+3, APP1+4
APP1+5
>> X ITEM+3*, ITEM+7*, AMT*, AMT+1, AUTH+8*, APP+2*, APP+3, APP+4*, APP1+3*
>> Y AUTH*, AUTH+2*, AUTH+4*, AUTH+9*, APP+2*, APP+3, APP+4, APP1+2*, APP1+3, DT
, DT1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All