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

Package: IFCAP

Routine: PRCPRNON


Information

PRCPRNON ;WISC/RFJ-nonissuable item report ;20 Apr 92

Source Information

Source file <PRCPRNON.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
IFCAP 4 ($$SCRPAUSE,END,P)^PRCPUREP  ITEMSEL^PRCPURS4  ^PRCPUSEL  ($$DESCR,$$NSN,$$UNITVAL)^PRCPUX1  
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
DQ ;queue comes here
H
BUILD ; set up tmp global for printing
; tmp($j,"noniss",nsn,item number) = description ^ unit per
; issue ^ quantity on-hand ^ quantity non-issuable.

External References

Name Field # of Occurrence
DD^%DT DQ+14
NOW^%DTC DQ+14
^%ZIS PRCPRNON+10
^%ZISC DQ+20
^%ZTLOAD PRCPRNON+10
$$S^%ZTLOAD DQ+18
$$SCRPAUSE^PRCPUREP DQ+14
END^PRCPUREP DQ+19
P^PRCPUREP DQ+17
ITEMSEL^PRCPURS4 PRCPRNON+8
^PRCPUSEL PRCPRNON+6
$$DESCR^PRCPUX1 BUILD+6
$$NSN^PRCPUX1 BUILD+5
$$UNITVAL^PRCPUX1 BUILD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ONLY THE WAREHOUSE CAN USE THIS OPTION."
  • Line Location: PRCPRNON+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRNON+10
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRCPRNON+13
Function Call: WRITE
  • Prompt: !!,$S(NSN=" ":"** NO NSN **",1:NSN),?19,$E($P(DATA,"^"),1,25),?47,"[#",ITEMDA,"]",?57,$J($P(DATA,"^",3),9),$J($P(DATA,"^",2),14),!?30,"QUANTITY IN NON-ISSUABLE: ",$J($P(DATA,"^",4),10)
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"NON-ISSUABLE STOCK REPORT FOR ",PRCP("IN"),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"NSN",?19,"DESCRIPTION",?47,"[#MI]",?55,"QTY ON-HAND",?77,"U/I"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+3
Routine Call
  • %ZIS
  • Line Location:
    • PRCPRNON+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+6, BUILD+4
^TMP($J PRCPRNON+8, PRCPRNON+10!, DQ+2!, DQ+10, DQ+15, DQ+20!, BUILD+6*

Label References

Name Line Occurrences
BUILD DQ+6, DQ+10
H DQ+14, DQ+17

Naked Globals

Name Field # of Occurrence
^( DQ+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPRNON+7~, DQ+14, H*, H+1, H+3*
%I DQ+1~
>> %ZIS PRCPRNON+10*
DATA DQ+1~, DQ+15*, DQ+16, BUILD+4*, BUILD+6
IO DQ+14
IO("Q" PRCPRNON+10!
IOF H
IOSL DQ+17
ITEMDA DQ+1~, DQ+2*, DQ+6*, DQ+10*, DQ+15*, DQ+16, BUILD+4, BUILD+5, BUILD+6
NOW DQ+1~, DQ+14*, H
NSN DQ+1~, DQ+15*, DQ+16, BUILD+5*, BUILD+6
PAGE DQ+1~, DQ+14*, H*
>> POP PRCPRNON+10
>> PRCP("DPTYPE" PRCPRNON+6
>> PRCP("I" PRCPRNON+6, DQ+6, BUILD+4, BUILD+6
>> PRCP("IN" H+1
PRCPALLI PRCPRNON+7~, PRCPRNON+8, DQ+6, DQ+10
PRCPFLAG DQ+1~, DQ+17, DQ+18*, DQ+19
SCREEN DQ+1~, DQ+14*, DQ+17, H
X PRCPRNON+7~
Y PRCPRNON+7~, DQ+14*
>> ZTDESC PRCPRNON+11*
>> ZTQUEUED DQ+18
>> ZTRTN PRCPRNON+11*
>> ZTSAVE("PRCP*" PRCPRNON+12*
>> ZTSAVE("ZTREQ" PRCPRNON+12*
>> ZTSAVE("^TMP($J,""PRCPURS4""," PRCPRNON+12*
ZTSK PRCPRNON+10!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All