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

Package: IFCAP

Routine: PRCHFPT3


Information

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

Source Information

Source file <PRCHFPT3.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls