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

Package: IFCAP

Routine: PRCHPNT2


Information

PRCHPNT2 ;ID/RSD/RHD-CONT. OF PRINT ;5/4/98 14:17

Source Information

Source file <PRCHPNT2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ITEM
AMT
FOB ;
FA
DIS
CON
CNTI
CNTD
REQ
P
P1
DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$J($P(PRCHI2,U,5)_+$P(PRCHI0,U,1),3),?8,$G(^(1,1,0))
  • Line Location: ITEM+2
Function Call: WRITE
  • Prompt: ?48,$J($P(PRCHI0,U,2),7),?57,$P($G(^PRCD(420.5,+$P(PRCHI0,U,3),0)),U,1)
  • Line Location: ITEM+3
Function Call: WRITE
  • Prompt: ?59,$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+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: ?8,"STK#: ",$P(PRCHI0,U,6),!
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: ?8,"NSN: ",$P(PRCHI0,U,13)
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: ?8,"FOOD GROUP: ",$P(^(4),U,12),!
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: ?8,"Items per ",$P($G(^PRCD(420.5,+$P(PRCHI0,U,3),0)),U,1),": ",$P(PRCHI0,U,12),!
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: ?67,$J($P(PRCHI2,U,1),8,2)
  • Line Location: AMT+0
Function Call: WRITE
  • Prompt: !!?2,$S("O"=$E($P(PRCH1,U,6)):"ORIGIN","D"=$E($P(PRCH1,U,6)):"DESTINATION",1:""),?30,$J($P(PRCH1,U,14),3),?33,$S("2B"[PRCHSC:"X",1:"")
  • Line Location: FA+0
Function Call: WRITE
  • Prompt: ?48,$G(^UTILITY($J,"W",1,1,0)),?69,PRCHINV(1),!?48,$G(^UTILITY($J,"W",1,2,0)),?69,PRCHINV(2)
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: !?2,$P(PRCH12,U,7),?48,$G(^UTILITY($J,"W",1,3,0)),?69,PRCHINV(3)
  • Line Location: FA+3
Function Call: WRITE
  • Prompt: $P(^(PRCH,0),U,4),$P(^(0),U,1)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: "%"
  • Condition for execution: $P(^(0),U,1)=+$P(^(0),U,1)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: $P(^(0),U,2)," "
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: ?14,"BEFORE",?23
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?2,$P(PRCH12,U,8)
  • Condition for execution: I=2
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: ?45,$J(^(Y),3)
  • Condition for execution: ^(Y)]""
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: ?49,PRCH
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: ?69,PRCHINV(5)
  • Condition for execution: I=0
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: ?69,PRCHINV(5)
  • Condition for execution: Y=0
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: ?2,$P(PRCH12,U,8)
  • Condition for execution: Y=2
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls