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

Package: IFCAP

Routine: PRCPRIB1


Information

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

Source Information

Source file <PRCPRIB1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
IFCAP 2 ($$SCRPAUSE,END,P)^PRCPUREP  $$DECODE^PRCSC1  
VA FileMan 1 DD^%DT  

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

Package Total Caller Graph
IFCAP 1 PRCPRIB0  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRINT+29
$$SCRPAUSE^PRCPUREP PRINT+1
END^PRCPUREP PRINT+33
P^PRCPUREP PRINT+11, PRINT+13, PRINT+15, PRINT+18, PRINT+20, PRINT+23, PRINT+26
$$DECODE^PRCSC1 PRINT+28

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCS(410 - [#410] PRINT+4, PRINT+17, PRINT+22
^TMP($J PRINT+2, PRINT+3
^VA(200 - [#200] PRINT+27

Label References

Name Line Occurrences
H PRINT+1, PRINT+11, PRINT+13, PRINT+15, PRINT+18, PRINT+20, PRINT+23, PRINT+26
H1 PRINT+1
H2 PRINT+1, PRINT+11, PRINT+13

Naked Globals

Name Field # of Occurrence
^( PRINT+3, PRINT+17, PRINT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+14*, PRINT+27, PRINT+30*, PRINT+31, PRINT+32, H*, H+1, H+2, H1~*, H1+1
, H1+5*, H1+6, H2~*, H2+1
>> CLASS H1+6
>> D PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+17*, PRINT+19, PRINT+22*, PRINT+24
>> DATA PRINT+4*, PRINT+5, PRINT+6, PRINT+10
>> DEPART H1+1
>> DESCNSN PRINT+2*, PRINT+3
IO PRINT+1
IOF H
IOSL PRINT+11, PRINT+13, PRINT+15, PRINT+18, PRINT+20, PRINT+23, PRINT+26
>> LINEDA PRINT+3*, PRINT+4, PRINT+17*, PRINT+22*
>> LINEITEM PRINT+2*, PRINT+3, PRINT+5
>> NOW H+1
>> PAGE PRINT+1*, H*, H+1
>> PRCPDA PRINT+4, PRINT+17, PRINT+22, PRINT+28
>> PRCPFLAG PRINT+2, PRINT+3, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+17, PRINT+18, PRINT+20, PRINT+22
, PRINT+23, PRINT+25, PRINT+26
>> SCREEN PRINT+1*, PRINT+11, PRINT+13, PRINT+15, PRINT+18, PRINT+20, PRINT+23, PRINT+26, H
>> TOTAL PRINT+1*, PRINT+10*, PRINT+14
>> TRANDAT1 H+1, H1+2, H1+3
>> TRANDAT3 H1+2, H1+3
>> TRANDAT7 PRINT+27, PRINT+29
>> TRANDAT9 H1+4
>> TRANDATA H+1, H+2, H1+1
>> USER H1+4
>> X PRINT+28*
>> Y PRINT+29*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All