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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PRCPURS0

Package: IFCAP

Routine: PRCPURS0


Information

PRCPURS0 ;WISC/RFJ-ask sort, select acct, select nsn, select item ;17 May 93

Source Information

Source file <PRCPURS0.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
IFCAP 2 DISPLAY^PRCPUX2  $$YN^PRCPUYN  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
IFCAP 16 PRCPRADJ  PRCPRAIR  PRCPRAVL  PRCPRAVP  PRCPRCFR  PRCPRCTA  PRCPRCTP  PRCPRIIR  
PRCPRISP  PRCPRISR  PRCPRISS  PRCPRPCR  PRCPRQDR  PRCPRSOH  PRCPRSUB  PRCPRUSE  

Entry Points

Name Comments DBIA/ICR reference
SORTBY() ; select type of sort
SUMMARY() ; print summary only
ACCTSEL ; pick account codes or all
; returns array of accounts selected
ALLACCT() ; select all account codes
; returns 1 for yes, 2 for no, 0 for ^
NSNSEL ; start with and end with nsn
; returns prcpstrt and prcpend
NSNCHECK(V1) ; nsn format check

External References

Name Field # of Occurrence
^DIR SORTBY+2, ACCTSEL+17
DISPLAY^PRCPUX2 SUMMARY+2
$$YN^PRCPUYN SUMMARY+4, ALLACCT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTSEL+7
Function Call: WRITE
  • Prompt: !?2,PRCPLINE,!?2,"| Currently selected account codes : "
  • Line Location: ACCTSEL+9
Function Call: WRITE
  • Prompt: A
  • Line Location: ACCTSEL+10
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(ACCOUNT("YES",A))
  • Line Location: ACCTSEL+10
Function Call: WRITE
  • Prompt: ?78,"|",!?2,"| You can DE-select one of the above account codes by reselecting it.",?78,"|"
  • Line Location: ACCTSEL+11
Function Call: WRITE
  • Prompt: !?2,PRCPLINE,!?2,"| Currently DE-selected account codes: "
  • Line Location: ACCTSEL+13
Function Call: WRITE
  • Prompt: A
  • Line Location: ACCTSEL+14
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(ACCOUNT("NO",A))
  • Line Location: ACCTSEL+14
Function Call: WRITE
  • Prompt: ?78,"|",!?2,"| You can RE-select one of the above account codes by reselecting it.",?78,"|"
  • Line Location: ACCTSEL+15
Function Call: WRITE
  • Prompt: !?2,PRCPLINE
  • Line Location: ACCTSEL+16
Function Call: WRITE
  • Prompt: !?10,"DE-selected !"
  • Line Location: ACCTSEL+23
Function Call: WRITE
  • Prompt: !?10,"RE-selected !"
  • Line Location: ACCTSEL+24
Function Call: WRITE
  • Prompt: !?10,"selected !"
  • Line Location: ACCTSEL+25
Function Call: WRITE
  • Prompt: "<<NONE>>"
  • Line Location: ACCTSEL+28
Function Call: WRITE
  • Prompt: A
  • Line Location: ACCTSEL+29
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(ACCOUNT("YES",A))
  • Line Location: ACCTSEL+29
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLACCT+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NSNSEL+5
Function Call: WRITE
  • Prompt: !?2,"Select the starting NSN value. If you select the default FIRST entry, NULL",!?2,"NSN entries will be selected. If you select 6505, all NSNs starting with",!?2,"6505 will be selected."
  • Line Location: NSNSEL+6
Function Call: WRITE
  • Prompt: !?5,"Invalid NSN format. Format should be in the form 6505-22-333-4444."
  • Line Location: NSNSEL+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NSNSEL+12
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: NSNSEL+13
Function Call: WRITE
  • Prompt: !?2,"Select the ending NSN value."
  • Line Location: NSNSEL+15
Function Call: WRITE
  • Prompt: " If you start with ",PRCPSTRT," and end with ",PRCPSTRT,",",!?2,"you will only select NSNs which begin with ",PRCPSTRT,"."
  • Line Location: NSNSEL+17
Function Call: WRITE
  • Prompt: !," Also, enter the <space bar> to set the ending NSN equal to the starting NSN."
  • Line Location: NSNSEL+18
Function Call: WRITE
  • Prompt: !?5,"Invalid NSN format. Format should be in the form 6505-22-333-4444."
  • Line Location: NSNSEL+19
Function Call: WRITE
  • Prompt: !?4,"Ending NSN must follow starting NSN."
  • Line Location: NSNSEL+21
Routine Call
  • DIR
  • Line Location:
    • SORTBY+2
    • ACCTSEL+17

Label References

Name Line Occurrences
$$ALLACCT ACCTSEL+20
$$NSNCHECK NSNSEL+7, NSNSEL+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SUMMARY+1~, SUMMARY+4*, SUMMARY+5, ACCTSEL+2~, ACCTSEL+5*, ACCTSEL+19, ACCTSEL+20*, ACCTSEL+21*
A ACCTSEL+2~, ACCTSEL+10*, ACCTSEL+14*, ACCTSEL+29*
ACCOUNT ACCTSEL+4!, ACCTSEL+26!
ACCOUNT( ACCTSEL+29*
ACCOUNT("NO" ACCTSEL+5*, ACCTSEL+12, ACCTSEL+14, ACCTSEL+21!, ACCTSEL+23*, ACCTSEL+24!, ACCTSEL+27!
ACCOUNT("YES" ACCTSEL+8, ACCTSEL+10, ACCTSEL+19, ACCTSEL+21*, ACCTSEL+23!, ACCTSEL+24*, ACCTSEL+25*, ACCTSEL+28, ACCTSEL+29, ACCTSEL+30!
DIR SORTBY+1~, SORTBY+2!, ACCTSEL+2~
DIR("A" SORTBY+2*, ACCTSEL+17*
DIR("B" SORTBY+2*
DIR(0 SORTBY+2*, ACCTSEL+17*
DIRUT ACCTSEL+2~
DTIME NSNSEL+5, NSNSEL+12
DTOUT ACCTSEL+2~, ACCTSEL+17
DUOUT ACCTSEL+2~, ACCTSEL+17
PRCPEND NSNSEL+3!, NSNSEL+22*, NSNSEL+23
PRCPEXIT ACCTSEL+2~, ACCTSEL+17*, ACCTSEL+19*, ACCTSEL+26
PRCPFLAG ACCTSEL+2~, ACCTSEL+6, ACCTSEL+17*, ACCTSEL+19*, ACCTSEL+22*, NSNSEL+2~, NSNSEL+4, NSNSEL+5*, NSNSEL+8*, NSNSEL+10!
, NSNSEL+11, NSNSEL+12*, NSNSEL+22*
PRCPLINE ACCTSEL+2~, ACCTSEL+3*, ACCTSEL+9, ACCTSEL+13, ACCTSEL+16
PRCPSTRT NSNSEL+3!, NSNSEL+8*, NSNSEL+9, NSNSEL+13, NSNSEL+16, NSNSEL+17, NSNSEL+21, NSNSEL+23!
V1 NSNCHECK~, NSNCHECK+1, NSNCHECK+2, NSNCHECK+3, NSNCHECK+4
X SORTBY+1~, SUMMARY+1~, SUMMARY+2!, ACCTSEL+2~, NSNSEL+2~, NSNSEL+5*, NSNSEL+6, NSNSEL+7, NSNSEL+8, NSNSEL+12*
, NSNSEL+13*, NSNSEL+14, NSNSEL+19, NSNSEL+20*, NSNSEL+21, NSNSEL+22
X(1 SUMMARY+2*
>> XH SUMMARY+3*, ALLACCT+2*
>> XP SUMMARY+3*, ALLACCT+2*
Y SORTBY+1~, SORTBY+2, SORTBY+3, ACCTSEL+2~, ACCTSEL+18*, ACCTSEL+19, ACCTSEL+22, ACCTSEL+23, ACCTSEL+24, ACCTSEL+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All