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

Package: IFCAP

Routine: PRCPRPHW


Information

PRCPRPHW ;WISC/RFJ-physical count form ; 3/22/99 11:17am

Source Information

Source file <PRCPRPHW.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 5 $$STORELOC^PRCPESTO  ($$SCRPAUSE,END,P)^PRCPUREP  ^PRCPUSEL  ($$ACCT1,$$DESCR,$$NSN,$$UNIT)^PRCPUX1  $$YN^PRCPUYN  
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DQ ;queue comes here
Q
ALLACCT ; select all account codes
H

External References

Name Field # of Occurrence
DD^%DT DQ+6
NOW^%DTC DQ+6
^%ZIS PRCPRPHW+36
^%ZISC Q
^%ZTLOAD PRCPRPHW+36
$$S^%ZTLOAD DQ+24
^DIR PRCPRPHW+24
$$STORELOC^PRCPESTO DQ+4, DQ+18
$$SCRPAUSE^PRCPUREP DQ+6
END^PRCPUREP DQ+27
P^PRCPUREP DQ+19, DQ+21, DQ+23, DQ+26
^PRCPUSEL PRCPRPHW+3
$$ACCT1^PRCPUX1 DQ+2
$$DESCR^PRCPUX1 DQ+5
$$NSN^PRCPUX1 DQ+2
$$UNIT^PRCPUX1 DQ+5
$$YN^PRCPUYN PRCPRPHW+8, ALLACCT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRPHW+8
Function Call: WRITE
  • Prompt: !!,"Selected account codes will be used to generate the physical count form."
  • Line Location: PRCPRPHW+11
Function Call: WRITE
  • Prompt: !!," Currently selected account codes:",!," "
  • Line Location: PRCPRPHW+15
Function Call: WRITE
  • Prompt: "<< ALL ACCOUNT CODES >>"
  • Line Location: PRCPRPHW+16
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>70
  • Line Location: PRCPRPHW+17
Function Call: WRITE
  • Prompt: A," "
  • Line Location: PRCPRPHW+17
Function Call: WRITE
  • Prompt: !," You can DE-select one of the above account codes by reselecting it."
  • Line Location: PRCPRPHW+18
Function Call: WRITE
  • Prompt: !!," Currently DE-selected account codes:",!," "
  • Line Location: PRCPRPHW+20
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>70
  • Line Location: PRCPRPHW+21
Function Call: WRITE
  • Prompt: A," "
  • Line Location: PRCPRPHW+21
Function Call: WRITE
  • Prompt: !," You can RE-select one of the above account codes by reselecting it."
  • Line Location: PRCPRPHW+22
Function Call: WRITE
  • Prompt: !!,"Select the number of the account code created, '^' to exit."
  • Line Location: PRCPRPHW+23
Function Call: WRITE
  • Prompt: !?10,"DE-selected !"
  • Line Location: PRCPRPHW+28
Function Call: WRITE
  • Prompt: !?10,"DE-selected !"
  • Line Location: PRCPRPHW+29
Function Call: WRITE
  • Prompt: !?10,"RE-selected !"
  • Line Location: PRCPRPHW+30
Function Call: WRITE
  • Prompt: !?10,"selected !"
  • Line Location: PRCPRPHW+31
Function Call: WRITE
  • Prompt: !!,"NO ACCOUNT CODES SELECTED."
  • Line Location: PRCPRPHW+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRPHW+36
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRCPRPHW+39
Function Call: WRITE
  • Prompt: !!?5,"MAIN STORAGE LOCATION: ",MAIN
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !?10,"ACCOUNT CODE: ",ACCT
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: !,$TR(NSN,"-"),?17,$E($P(D,"^"),1,23),?42,ITEMDA,?47,$J($P(D,"^",2),10)
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: $J($P(D,"^",3),12)
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: ?71,"_________"
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !?20,"ADD STORAGE: "
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !?20
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: $E($$STORELOC^PRCPESTO($P(D,"^")),1,15)," "
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLACCT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"PHYSICAL COUNT FORM: ",$E(PRCP("IN"),1,12),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"NSN",?15,"DESCRIPTION",?42,"MI",?50,"UNIT/ISS"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?62,"ON HAND"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?71,"NEW COUNT",!,%
  • Line Location: H+4
Routine Call
  • DIR
  • Line Location:
    • PRCPRPHW+24
Routine Call
  • %ZIS
  • Line Location:
    • PRCPRPHW+36

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+2, DQ+4, DQ+15
^TMP($J DQ+1!, DQ+5*, DQ+7, DQ+9, DQ+11, Q!

Label References

Name Line Occurrences
ALLACCT PRCPRPHW+12, PRCPRPHW+26
H DQ+6, DQ+19, DQ+21, DQ+23, DQ+26
Q PRCPRPHW+32, PRCPRPHW+34

Naked Globals

Name Field # of Occurrence
^( DQ+11, DQ+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPRPHW+4~, PRCPRPHW+8*, PRCPRPHW+9, PRCPRPHW+10, DQ+4*, DQ+5, DQ+6, ALLACCT+4*, ALLACCT+5, ALLACCT+6
, H*, H+1, H+2*, H+4
%H PRCPRPHW+4~
%I PRCPRPHW+4~
>> %ZIS PRCPRPHW+36*
A PRCPRPHW+4~, PRCPRPHW+17*, PRCPRPHW+21*, PRCPRPHW+35*
ACCOUNT PRCPRPHW+4~, PRCPRPHW+12!
ACCOUNT("NO" PRCPRPHW+19, PRCPRPHW+21, PRCPRPHW+28*, PRCPRPHW+29*, PRCPRPHW+30!, PRCPRPHW+35
ACCOUNT("YES" PRCPRPHW+14, PRCPRPHW+17, PRCPRPHW+26, PRCPRPHW+28!, PRCPRPHW+29!, PRCPRPHW+30*, PRCPRPHW+31*, PRCPRPHW+33!, PRCPRPHW+34, PRCPRPHW+35*
DQ+2
ACCT PRCPRPHW+4~, DQ+2*, DQ+5, DQ+9*, DQ+10, DQ+11
ACCTALL PRCPRPHW+4~, PRCPRPHW+14, PRCPRPHW+16, PRCPRPHW+26, PRCPRPHW+28, PRCPRPHW+33, PRCPRPHW+34, PRCPRPHW+35, ALLACCT+1!, ALLACCT+6*
D PRCPRPHW+4~, DQ+11*, DQ+12, DQ+13, DQ+15*, DQ+18
DIR PRCPRPHW+4~
DIR("A" PRCPRPHW+24*
DIR(0 PRCPRPHW+24*
DIRUT PRCPRPHW+4~
DTOUT PRCPRPHW+4~, PRCPRPHW+24
DUOUT PRCPRPHW+4~, PRCPRPHW+24
IO DQ+6
IO("Q" PRCPRPHW+36!
IOF H
IOSL DQ+19, DQ+21, DQ+23, DQ+26
ITEMDA PRCPRPHW+4~, DQ+2*, DQ+4, DQ+5, DQ+11*, DQ+12, DQ+15
MAIN PRCPRPHW+4~, DQ+4*, DQ+5, DQ+7*, DQ+8, DQ+9, DQ+11
NOW PRCPRPHW+4~, DQ+6*, H
NSN PRCPRPHW+4~, DQ+2*, DQ+3*, DQ+5, DQ+11*, DQ+12
PAGE PRCPRPHW+4~, DQ+6*, H*
>> POP PRCPRPHW+36
>> PRCP("I" PRCPRPHW+3, DQ+2, DQ+4, DQ+5, DQ+15
>> PRCP("IN" H+1
PRCPEXIT PRCPRPHW+4~, PRCPRPHW+24*, PRCPRPHW+26*, PRCPRPHW+32
PRCPFLAG PRCPRPHW+4~, PRCPRPHW+12, PRCPRPHW+13, PRCPRPHW+24*, PRCPRPHW+26, PRCPRPHW+27*, DQ+1!, DQ+7, DQ+9, DQ+11
DQ+19, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24*, DQ+25, DQ+26, DQ+27, ALLACCT+1!
ALLACCT+7*
PRCPOH PRCPRPHW+4~, PRCPRPHW+5*, PRCPRPHW+10*, DQ+13, H+3
SCREEN PRCPRPHW+4~, DQ+6*, DQ+19, DQ+21, DQ+23, DQ+26, H
X PRCPRPHW+4~, DQ+15*
>> XH PRCPRPHW+7*, ALLACCT+2*
>> XH(1 ALLACCT+2*
>> XH(2 ALLACCT+3*
>> XP PRCPRPHW+6*, ALLACCT+2*
Y PRCPRPHW+4~, PRCPRPHW+25*, PRCPRPHW+26, PRCPRPHW+27, PRCPRPHW+28, PRCPRPHW+29, PRCPRPHW+30, PRCPRPHW+31, DQ+6*, DQ+15*
DQ+16
>> ZTDESC PRCPRPHW+37*
>> ZTQUEUED DQ+24
>> ZTRTN PRCPRPHW+37*
>> ZTSAVE("ACC*" PRCPRPHW+38*
>> ZTSAVE("PRCP*" PRCPRPHW+38*
>> ZTSAVE("ZTREQ" PRCPRPHW+38*
ZTSK PRCPRPHW+36!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All