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

Package: IFCAP

Routine: PRCPAWR0


Information

PRCPAWR0 ;WISC/RFJ/BGJ-print register approval form ;9.9.97

Source Information

Source file <PRCPAWR0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 6 $$ADJUSTNO^PRCPAWAP  (BUILD,END)^PRCPAWR1  ($$INITIALS,$$SCRPAUSE,P)^PRCPUREP  ^PRCPUSEL  ($$ACCT1,$$DESCR,$$INVNAME,$$NSN)^PRCPUX1  $$YN^PRCPUYN  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

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

Package Total Caller Graph
IFCAP 5 PRCPAWI1  PRCPAWN0  PRCPAWO0  PRCPAWR1  PRCPAWS0  

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue starts here.
Q
H
PRINFORM(TRANID)
FP
SP

External References

Name Field # of Occurrence
DD^%DT DQ+6, DQ+10
NOW^%DTC DQ+6
^%ZIS PRCPAWR0+22, FPSP
^%ZISC QFP+1, SP+1
^%ZTLOAD PRCPAWR0+22, FP+1, SP+1
$$ADJUSTNO^PRCPAWAP PRCPAWR0+10
BUILD^PRCPAWR1 DQ+3
END^PRCPAWR1 DQ+22, DQ+24
$$INITIALS^PRCPUREP DQ+15
$$SCRPAUSE^PRCPUREP DQ+6
P^PRCPUREP DQ+21
^PRCPUSEL PRCPAWR0+3
$$ACCT1^PRCPUX1 DQ+14
$$DESCR^PRCPUX1 DQ+15
$$INVNAME^PRCPUX1 DQ+11
$$NSN^PRCPUX1 DQ+14
$$YN^PRCPUYN PRCPAWR0+11, PRCPAWR0+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ONLY THE WAREHOUSE CAN USE THIS OPTION."
  • Line Location: PRCPAWR0+4
Function Call: WRITE
  • Prompt: !!,"To select ALL adjustments, press RETURN."
  • Line Location: PRCPAWR0+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRCPAWR0+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPAWR0+22
Function Call: WRITE
  • Prompt: !!,NSN,?19,$E($$DESCR^PRCPUX1(PRCP("I"),$P(DATA,"^",5)),1,28),?49,"#",$P(DATA,"^",5),?60,"ACCT: ",ACCT,?73,$J($$INITIALS^PRCPUREP($P(DATA,"^",16)),6)
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !,$P(DATA,"^",2),?13,$P(DATA,"^",19),?33,$J($P(DATA,"^",6),8),$J($P(DATA,"^",7),11),$J(VALUESAL,14,2),$J(VALUEINV,14,2)
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: !,$P(^(1),"^")
  • Line Location: DQ+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"ADJUSTMENT APPROVAL FORM FROM ",PRCP("IN"),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"DISTRIBUTION TO: ",INVPT
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,"ADJUSTMENT DATE: ",ADJDT,?50,"VOUCHER: ",VOUCHER
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"NSN",?19,"DESCRIPTION",?49,"[#MI]",?60,"ACCT CODE",?72,"INITIALS"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"TRANSID",?13,"TRANS./P.O.",?38,"U/I",?43,$J("QUANTITY",9),$J("SELL VALUE",14),$J("INV VALUE",14),!,%
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !!,"Queueing Approval Form to Print on 'Fiscal (Receiving Reports)' Printer ..."
  • Line Location: PRINFORM+5
Function Call: WRITE
  • Prompt: !!,"MUST QUEUE OUTPUT",!
  • Line Location: FP+0
Function Call: WRITE
  • Prompt: !,"Queueing Approval Form to Print on 'Supply (PPM)' Printer ..."
  • Line Location: FP+5
Function Call: WRITE
  • Prompt: !!,"MUST QUEUE OUTPUT",!
  • Line Location: SP+0
Routine Call
  • %ZIS
  • Line Location:
    • PRCPAWR0+22
    • FP
    • SP

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(411 - [#411] PRINFORM+5, FP+5
^PRCP(445.2 - [#445.2] DQ+8, DQ+20
^TMP($J PRCPAWR0+8!, PRCPAWR0+10*, PRCPAWR0+11, PRCPAWR0+12, DQ+7, DQ+22, Q!, PRINFORM+2!, PRINFORM+3*, SP+5!

Label References

Name Line Occurrences
FP FP
H DQ+12, DQ+21
Q PRCPAWR0+22
SP SP

Naked Globals

Name Field # of Occurrence
^(1 DQ+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPAWR0+5~, PRCPAWR0+11*, PRCPAWR0+17, PRCPAWR0+20*, DQ+1~, DQ+6, H*, H+1, H+5*, PRINFORM+1~
, PRINFORM+5*, FP*, FP+1, FP+5*, SP*, SP+1
%H DQ+1~
%I DQ+1~
>> %ZIS PRCPAWR0+22*
ACCOUNT DQ+1~
ACCOUNT( DQ+18*
ACCT DQ+1~, DQ+14*, DQ+15, DQ+18
ADJDT DQ+1~, DQ+7!, DQ+10*, H+3
DA DQ+1~, DQ+7*, DQ+8, DQ+20, DQ+22
DATA DQ+1~, DQ+8*, DQ+9, DQ+10, DQ+11, DQ+14, DQ+15, DQ+16, DQ+17, DQ+19
INVPT DQ+1~, DQ+7!, DQ+11*, H+2
IO DQ+6, FPSP
IO("Q" PRCPAWR0+22!, FPSP
IOF H
IOP FP*, FP+1!, SP*, SP+1!
IOSL DQ+21
NOW DQ+1~, DQ+6*, H
NSN DQ+1~, DQ+14*, DQ+15
PAGE DQ+1~, DQ+6*, DQ+12*, H*
>> POP PRCPAWR0+22
>> PRC("SITE" PRINFORM+5, FP+5
>> PRCP("DPTYPE" PRCPAWR0+4
>> PRCP("I" PRCPAWR0+3, DQ+15
>> PRCP("IN" H+1
PRCPFALL PRCPAWR0+5~, PRCPAWR0+11*, PRCPAWR0+12, PRCPAWR0+17
PRCPFLAG DQ+1~, DQ+7, DQ+21, DQ+22, DQ+23
PRCPMULT PRCPAWR0+5~, PRCPAWR0+16*, PRCPAWR0+20!, DQ+10, DQ+11, DQ+22, DQ+23*, DQ+24, PRINFORM+1~, PRINFORM+4*
SCREEN DQ+1~, DQ+6*, DQ+21, H
TOTAL PRCPAWR0+5~, PRCPAWR0+10*, PRCPAWR0+17, DQ+1~
TRANID PRCPAWR0+5~, PRCPAWR0+10*, DQ+1~, DQ+7*, DQ+22, PRINFORM~, PRINFORM+3
VALUEINV DQ+1~, DQ+16*, DQ+17*, DQ+18, DQ+19
VALUESAL DQ+1~, DQ+16*, DQ+17*, DQ+19
VOUCHER DQ+1~, DQ+9*, H+3
X DQ+1~
>> XH PRCPAWR0+11*, PRCPAWR0+19*
>> XH(1 PRCPAWR0+19*
>> XP PRCPAWR0+11*, PRCPAWR0+18*
>> XP(1 PRCPAWR0+18*
Y DQ+1~, DQ+6*, DQ+10*
>> ZTDESC PRCPAWR0+23*, FP+2*, SP+2*
>> ZTDTH FP+1*, SP+1*
>> ZTIO FP+1*, SP+1*
>> ZTRTN PRCPAWR0+23*, FP+2*, SP+2*
>> ZTSAVE("PRCP*" PRCPAWR0+24*, FP+3*, SP+3*
>> ZTSAVE("ZTREQ" PRCPAWR0+24*, FP+3*, SP+3*
>> ZTSAVE("^TMP($J,""PRCPAWR0""," PRCPAWR0+24*, FP+3*, SP+3*
ZTSK PRCPAWR0+22!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All