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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCHPAT

Package: IFCAP

Routine: PRCHPAT


Information

PRCHPAT ;ID/RSD-CREATE ENTRY IN FILE 442 ;1/13/93 15:46

Source Information

Source file <PRCHPAT.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**46,176**;Oct 20, 2000;Build 11
EN ;ENTER NEW PAT IN FILE 442;
ENPO
EN2
ENPO1
NUM
Z
CHKCNS ;check common numbering series
W1
W2
W3
ENPOQ
EN1 ;INPUT TRANSFORM FOR APPROPRIATION IN FILE 430
  • ICR #807
    • Status: Active
    • Usage: Private
    EN1Q
    EN3 ;LOOK UP PO IN FILE 442
    EN4 ;set appropriation to the flat field in the 430,AR file.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"ENTER A NEW ",PRCHP("A")," OR A COMMON NUMBERING SERIES"
    • Line Location: ENPO+3
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: ENPO+4
    Function Call: WRITE
    • Prompt: !?3,PRCHP("A"),": "
    • Line Location: ENPO+4
    Function Call: WRITE
    • Prompt: !?3,PRCHP("A")," ",X," already exist !"
    • Line Location: EN2+3
    Function Call: WRITE
    • Prompt: !?3," Not a valid Common Numbering Series.",$C(7)
    • Line Location: CHKCNS+19
    Function Call: WRITE
    • Prompt: !?3," Common numbering series is being edited by another user, try later",$C(7)
    • Line Location: W1+0
    Function Call: WRITE
    • Prompt: !?3,"UPPER BOUND HAS BEEN EXCEEDED FOR COMMON NUMBERING SERIES ",$P(Y,U,2),$C(7)
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: " PAT Number already exist, please try again ",$C(7)
    • Line Location: W3+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN3+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCD(420.3 - [#420.3] Classic Fileman Calls
    ^PRC(442 - [#442] Classic Fileman Calls
    ^PRC(442.6 - [#442.6] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call