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

Package: IFCAP

Routine: PRCPWPU1


Information

PRCPWPU1 ;WISC/RFJ-get number series for issue books ;11 Mar 94

Source Information

Source file <PRCPWPU1.m>

Entry Points

Name Comments DBIA/ICR reference
IBCNS(SERIES) ; return next issue book common numbering series number
; series=460-I4 where 460 is station number, 4 is fiscal year
MISSING(START) ; search for missing numbers
; return missing one or null if none found

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"SEARCHING FOR A UNIQUE REFERENCE NUMBER..."
  • Line Location: MISSING+2
Function Call: WRITE
  • Prompt: " ",$P(SERIES,"-",2),$E("0000",$L(%)+1,4),%," IS UNIQUE"
  • Line Location: MISSING+4
Info |  Source |  Entry Points |  Interaction Calls