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

Package: IFCAP

Routine: PRCHFPT1


Information

PRCHFPT1 ;WISC/RSD/RHD-CONT. OF PRINT ;5/1/98 15:59

Source Information

Source file <PRCHFPT1.m>

Entry Points

Name Comments DBIA/ICR reference
CNTI
CNTD
REQ
BOCLN
P
P1
DT
TY
INV ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Prosthetics Delivery information:"
  • Line Location: PRCHFPT1+7
Function Call: WRITE
  • Prompt: !,?7,"Delivery To: ",$P(RMPRR3,U)
  • Line Location: PRCHFPT1+8
Function Call: WRITE
  • Prompt: !,?9,"Attention: ",$P(RMPRR3,U,4)
  • Line Location: PRCHFPT1+9
Function Call: WRITE
  • Prompt: ?96
  • Line Location: PRCHFPT1+10
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: PRCHFPT1+10
Function Call: WRITE
  • Prompt: PRCHULN
  • Line Location: PRCHFPT1+11
Function Call: WRITE
  • Prompt: !,"FOB POINT: ",$S("O"=$E($P(PRCH1,U,6)):"ORIGIN","D"=$E($P(PRCH1,U,6)):"DESTINATION",1:""),?34,"|","PROPOSAL: "
  • Line Location: PRCHFPT1+13
Function Call: WRITE
  • Prompt: ?45,$G(^TMP($J,"W",1,1,0)),?64,"|",PRCHINV(1),!,"GOV'T BL #: ",$P(PRCH12,U,7),?34,"|",?45,$G(^TMP($J,"W",1,2,0)),?64,"|",PRCHINV(2)
  • Line Location: PRCHFPT1+15
Function Call: WRITE
  • Prompt: !,$P(PRCH1,U,14)
  • Line Location: PRCHFPT1+16
Function Call: WRITE
  • Prompt: X,?34,"|",?45,$G(^TMP($J,"W",1,3,0)),?64,"|",PRCHINV(3)
  • Line Location: PRCHFPT1+16
Function Call: WRITE
  • Prompt: !,"DELIVER ON/BEFORE "
  • Line Location: PRCHFPT1+17
Function Call: WRITE
  • Prompt: ?34,"|","CONTRACT: "
  • Line Location: PRCHFPT1+17
Function Call: WRITE
  • Prompt: ?64,"|",PRCHINV(4),!
  • Line Location: PRCHFPT1+18
Function Call: WRITE
  • Prompt: $P(^(PRCH,0),U,4),$P(^(0),U,1)
  • Line Location: PRCHFPT1+19
Function Call: WRITE
  • Prompt: "%"
  • Condition for execution: $P(^(0),U,1)=+$P(^(0),U,1)
  • Line Location: PRCHFPT1+19
Function Call: WRITE
  • Prompt: $P(^(0),U,2)," "
  • Line Location: PRCHFPT1+19
Function Call: WRITE
  • Prompt: "SHIP VIA: ",$P(PRCH12,U,8)
  • Condition for execution: I=2
  • Line Location: PRCHFPT1+21
Function Call: WRITE
  • Prompt: ?34,"|"
  • Line Location: PRCHFPT1+21
Function Call: WRITE
  • Prompt: ?45,PRCH
  • Condition for execution: $G(Y)'="" ?42,$S($D(^(Y)):$J(^(Y),3),1:"") W:PRCH'=""
  • Line Location: PRCHFPT1+21
Function Call: WRITE
  • Prompt: ?64,"|"
  • Line Location: PRCHFPT1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCHFPT1+22
Function Call: WRITE
  • Prompt: $E(PRCHULN,1,34),"|",$E(PRCHULN,1,29),"|",$E(PRCHULN,1,31)
  • Line Location: PRCHFPT1+23
Function Call: WRITE
  • Prompt: ?69,"TOTAL"
  • Line Location: PRCHFPT1+24
Function Call: WRITE
  • Prompt: ?80,"QTY",?90,"AMT"
  • Condition for execution: PRCHDES="R"
  • Line Location: PRCHFPT1+24
Function Call: WRITE
  • Prompt: ?69,"COST"
  • Line Location: PRCHFPT1+25
Function Call: WRITE
  • Prompt: ?80,"REC",?90,"REC"
  • Condition for execution: PRCHDES="R"
  • Line Location: PRCHFPT1+26
Function Call: WRITE
  • Prompt: ?96
  • Line Location: PRCHFPT1+26
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: PRCHFPT1+26
Function Call: WRITE
  • Prompt: PRCHULN
  • Line Location: PRCHFPT1+27
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls