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

Package: IFCAP

Routine: PRCPRIB1


Information

PRCPRIB1 ;WISC/RFJ-issue book request form (print ^tmp) ;22 Dec 92

Source Information

Source file <PRCPRIB1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print form
H
H1
H2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(LINEITEM,4),?7,$P(DATA,"^",5)," ",$E($P(D,"^",7),1,15-$L($P(DATA,"^",5)))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?27,$P(D,"^"),$J($P(D,"^",2),8),$J($P(DATA,"^",7),12,3),$J($P(D,"^",3),9),$J($P(DATA,"^",2),9),$P(D,"^",6)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?7,$P(D,"^",8)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?27,"Temp Stock Level: ",$P(D,"^",4)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?25," Req Issue Mult: ",$P(D,"^",5)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?49,"TOTAL: ",$J(TOTAL,11,2),!,%
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"Special Remarks:"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"Special Remarks (continued):"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,D
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"Justification:"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"Justification (continued):"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,D
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,%,!,"Control Point Official:",?40,"|Signature/Date Signed:",!,$E($P($G(^VA(200,+$P(TRANDAT7,"^",3),20)),"^",2),1,38)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?40,"|/ES/|",$E(X,1,22)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?68,"/",Y
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,%,!,"Approved by:",?34,"Date",?40,"|Obligated by:",?74,"Date"
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,%,!,"Storekeeper:",?34,"Date",?40,"|Responsible Official:",?74,"Date",!,%,!
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?45,$P(TRANDATA,"^"),?71,"PAGE ",PAGE,!,%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?27,$S($P(TRANDATA,"^",7)=1:"*INTERVAL ISSUE",1:"*ISSUE BOOK")," REQUEST*",!,%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Station: ",+TRANDATA,?24,"|Dept: ",$E(DEPART,1,21),?54,"|Voucher #",!,%
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"Control Pt : ",$E($P(TRANDAT3,"^"),1,26),?40,"|Request Date: ",$P(TRANDAT1,"^")
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,"Cost Center: ",$E($P(TRANDAT3,"^",3),1,26),?40,"|Delivery Date: ",$P(TRANDAT1,"^",4)
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: !,"Deliver To : ",$E($P(TRANDAT9,"^"),1,26),?40,"|Requestor : ",USER
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !,"Classification Of Request: ",$E(CLASS,1,12),?40,"| (*--OVER LEVEL OR ISSUE MULT.)",!,%
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !,"LINE",?7,"DESCRIPTION",?25,"UNIT",?32,"LEVEL",?39,"UNIT PRICE",?51,"ON HAND",?60,"ORD QTY",?71,"QTY DELIV",!,%
  • Line Location: H2+1
Info |  Source |  Entry Points |  Interaction Calls