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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCPRPDH

Package: IFCAP

Routine: PRCPRPDH


Information

PRCPRPDH ;WISC/RFJ-distribution cost report (to or from primary) ;12 Feb 92

Source Information

Source file <PRCPRPDH.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 4 ($$SCRPAUSE,END,P)^PRCPUREP  ^PRCPUSEL  $$INVNAME^PRCPUX1  $$YN^PRCPUYN  
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 3 (,DD)^%DT  (C,NOW)^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
START
DQ ;queue comes here
H

External References

Name Field # of Occurrence
^%DT STARTSTART+1
DD^%DT PRCPRPDH+6, STARTSTART+3
C^%DTC PRCPRPDH+6
NOW^%DTC PRCPRPDH+6
^%ZIS START+7
^%ZISC DQ+27
^%ZTLOAD START+7
$$S^%ZTLOAD DQ+19
^DIR PRCPRPDH+5
$$SCRPAUSE^PRCPUREP DQ+5
END^PRCPUREP DQ+26
P^PRCPUREP DQ+9, DQ+16, DQ+18, DQ+21, DQ+24
^PRCPUSEL PRCPRPDH+3
$$INVNAME^PRCPUX1 DQ+6
$$YN^PRCPUYN START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"I will print the distribution history from ",Y," to "
  • Line Location: START+3
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,$E(INVPT,1,17)
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: NEW
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: ?19,$E(COSTCNTR,1,40),?61,$J(D,19,2)
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !?4,$E(%,1,40),?44,$J($P(DATA,"^",2),10,2),$J(X,15,2)
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !?19,"TOTAL $ AMOUNT DISTRIBUTED ",$S(TYPE="FROM":"TO",1:"FROM")," ",$E(INVPT,1,15),?65,$J(TOTAL,15,2),!
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: !?4,"MIS COSTING SECTION",?41,"% DISTRIBUTED",?61,"$ AMOUNT"
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: !?4,$E(MISDA,1,40),?44,$J($S(CUMTOT:TOTAL/CUMTOT*100,1:0),10,2),$J(TOTAL,15,2)
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !?19,"TOTAL DOLLAR AMOUNT DISTRIBUTED ",TYPE," ",PRCP("IN"),?65,$J(CUMTOT,15,2)
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"DISTRIBUTION COSTING REPORT ",TYPE," ",PRCP("IN"),?(80-$L(%)),%,!?10,"FROM DATE ",START," TO DATE ",END
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"DISTRIBUTED ",$S(TYPE="FROM":"TO",1:"FROM"),?19,"COST CENTER",?70,"TOTAL COST",!,%
  • Line Location: H+2
Routine Call
  • DIR
  • Line Location:
    • PRCPRPDH+5
Routine Call
  • %ZIS
  • Line Location:
    • START+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] DQ+13
^PRCP(445 - [#445] DQ+11, DQ+12
^PRCP(446 - [#446] DQ+2
^TMP($J DQ+2!, DQ+4*, DQ+6, DQ+7, DQ+14*, DQ+22, DQ+27!

Label References

Name Line Occurrences
H DQ+5, DQ+9, DQ+16, DQ+18, DQ+21, DQ+24
START START+2

Naked Globals

Name Field # of Occurrence
^( DQ+7, DQ+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPRPDH+4~, PRCPRPDH+6, START+5*, START+6, DQ+13*, DQ+14, DQ+15, H*, H+1, H+2*
%DT START*!, START+1*!
%DT("A" START*, START+1*
%DT("B" START*, START+1*
%DT(0 START*, START+1*
>> %ZIS START+7*
COSTCNTR PRCPRPDH+4~, DQ+4*, DQ+7*, DQ+8
CUMTOT PRCPRPDH+4~, DQ+6*, DQ+8*, DQ+23, DQ+25
D PRCPRPDH+4~, DQ+7*, DQ+8
DA PRCPRPDH+4~, DQ+2*
DATA PRCPRPDH+4~, DQ+2*, DQ+3, DQ+4, DQ+12*, DQ+13, DQ+15
DATE PRCPRPDH+4~, DQ+2*
DIR PRCPRPDH+5!
DIR("A" PRCPRPDH+5*
DIR("B" PRCPRPDH+5*
DIR(0 PRCPRPDH+5*
END PRCPRPDH+4~, START*, START+1, START+3*, H+1
ENDDT PRCPRPDH+4~, START+1*, START+2, START+3, DQ+2
FROM PRCPRPDH+4~, DQ+3*, DQ+4, DQ+6*, DQ+7, DQ+10
INVPT PRCPRPDH+4~, DQ+6*, DQ+17
IO DQ+5
IO("Q" START+7!
IOF H
IOSL DQ+9, DQ+16, DQ+18, DQ+21, DQ+24
MAXDT PRCPRPDH+4~, PRCPRPDH+6*, START
MISCOST PRCPRPDH+4~, START+6!*, DQ+11, DQ+20
MISDA PRCPRPDH+4~, DQ+11*, DQ+12, DQ+22*, DQ+23
MISINVPT PRCPRPDH+4~, DQ+10*, DQ+11, DQ+12
NEW PRCPRPDH+4~, DQ+6*, DQ+8*
NOW PRCPRPDH+4~, PRCPRPDH+6*, H
NOWDT PRCPRPDH+4~, PRCPRPDH+6*, START+1
PAGE PRCPRPDH+4~, DQ+5*, H*
>> POP START+7
>> PRCP("I" PRCPRPDH+3, DQ+2, DQ+10
>> PRCP("IN" DQ+25, H+1
PRCPFLAG PRCPRPDH+4~, DQ+6, DQ+7, DQ+9, DQ+11, DQ+16, DQ+18, DQ+19*, DQ+20, DQ+21
DQ+22, DQ+24, DQ+26
SCREEN PRCPRPDH+4~, DQ+5*, DQ+9, DQ+16, DQ+18, DQ+21, DQ+24, H
START PRCPRPDH+4~, PRCPRPDH+6*, STARTSTART+3*, H+1
STARTDT PRCPRPDH+4~, START*, START+2, START+3, DQ+2
TOTAL PRCPRPDH+4~, DQ+7*, DQ+8*, DQ+13, DQ+17, DQ+22*, DQ+23
TYPE PRCPRPDH+4~, PRCPRPDH+5*, DQ+1, DQ+3, DQ+10, DQ+17, DQ+25, H+1, H+2
X PRCPRPDH+4~, PRCPRPDH+6, DQ+13*, DQ+14, DQ+15
>> X1 PRCPRPDH+6*
>> X2 PRCPRPDH+6*
>> XH START+4*
>> XP START+4*
XREF DQ+1~*, DQ+2
Y PRCPRPDH+4~, PRCPRPDH+5, PRCPRPDH+6*, START*, START+1, START+3*
>> ZTDESC START+8*
>> ZTQUEUED DQ+19
>> ZTRTN START+8*
>> ZTSAVE("END*" START+9*
>> ZTSAVE("MISCOST" START+9*
>> ZTSAVE("NOW*" START+9*
>> ZTSAVE("PRCP*" START+9*
>> ZTSAVE("START*" START+9*
>> ZTSAVE("TYPE" START+9*
>> ZTSAVE("ZTREQ" START+9*
ZTSK START+7!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All