Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls