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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCSUT3

Package: IFCAP

Routine: PRCSUT3


Information

PRCSUT3 ;WISC/SAW/PLT/BGJ-TRANSACTION UTILITY PROGRAM ; 21 Apr 93 10:18 AM

Source Information

Source file <PRCSUT3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 3 ($$ACC,$$DATE)^PRC0C  ERS410^PRC0G  EN1^PRCSUT  
VA FileMan 3 ^DIC  YN^DICN  ^DIK  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
IFCAP 41 PRC0F  PRCB1E1  PRCB1E2  PRCB8A  PRCB8A1  PRCB8A2  PRCBR1  PRCBR2  
PRCEADJ  PRCEADJ2  PRCEAU  PRCEDRE0  PRCELIQ  PRCEN  PRCEOB  PRCESOE1  
PRCESOM  PRCF58A1  PRCH410  PRCHCON1  PRCHNPOA  PRCHQ410  PRCHSP  PRCS0B  
PRCS58  PRCSCPY  PRCSEA  PRCSEA1  PRCSEB  PRCSEB1  PRCSEB2  PRCSECP  
PRCSED  PRCSED1  PRCSREC2  PRCSRIE  PRCSRIE1  PRCSRIG2  PRCSUT2  PRCVIBF  
^PRCS(410  
Equipment Turn-In Request 1 PRCN2237  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**115,123,149,150,180,191**;Oct 20, 2000;Build 4
EN ;CREATE NEW TRANSACTION NUMBER
EN1
  • ICR #1523
    • Status: Active
    • Usage: Private
    T
    T1
    TEX
    OUT
    OUT1
    EN2 ;add record in file 410
  • ICR #1523
    • Status: Active
    • Usage: Private
    EN2A
    EN2B
    EN3 ;INPUT TRANSFORM FOR REORDERING 410 FILE ENTRIES
    CANCK ;Look for cancelled activity when all seq used
    CK0
    CK1
    CK2
    CKQ
    CER
    CER424 ;424 AVAILABLE SLOT CHECK ;PRC*5.1*191 CHECK FOR AVAILABLE 424 ENTRIES FOR 1358
    W1
    W4
    W5
    EXIT

    External References

    Name Field # of Occurrence
    ^DIC EN1+4, EN2+1
    YN^DICN W1
    ^DIK CK2+3
    $$ACC^PRC0C EN2A+1
    $$DATE^PRC0C EN2A+4
    ERS410^PRC0G EN2A+6, EN2B+1
    EN1^PRCSUT EN+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),"ANOTHER USER IS EDITING FILE 410 CONTROL NODE! Please retry in a minute."
    • Line Location: EN3+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: CER424+4
    Function Call: WRITE
    • Prompt: !!,"** You have ",9998-PRCTT," remaining and are dangerously close to"
    • Line Location: CER424+7
    Function Call: WRITE
    • Prompt: !,"** running out of Authorization entries in file 424."
    • Line Location: CER424+8
    Function Call: WRITE
    • Prompt: !,"** Authorizations and Liquidation REQUIRE available entries so you"
    • Line Location: CER424+9
    Function Call: WRITE
    • Prompt: !,"** should be considering closing this obligation very soon as ONLY"
    • Line Location: CER424+10
    Function Call: WRITE
    • Prompt: !,"** 9999 entries are allowed.",!
    • Line Location: CER424+11
    Function Call: WRITE
    • Prompt: !!,"** You have ZERO remaining and this is the last Authorization"
    • Line Location: CER424+13
    Function Call: WRITE
    • Prompt: !,"** you will be able to enter for this 1358 (max 9999 entries). You"
    • Line Location: CER424+14
    Function Call: WRITE
    • Prompt: !,"** will NO LONGER be able to liquidate any outstanding Authorizations."
    • Line Location: CER424+15
    Function Call: WRITE
    • Prompt: !,"** You MUST close this 1358 and open a new 1358 to cover further activity.",!
    • Line Location: CER424+16
    Function Call: WRITE
    • Prompt: !!,"Would you like to edit this request"
    • Line Location: W1+0
    Function Call: WRITE
    • Prompt: !!,"Another user is accessing this file... Try later.",$C(7)
    • Line Location: W4+0
    Function Call: WRITE
    • Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official."
    • Line Location: W5+0
    Routine Call
    • DIC
    • Line Location:
      • EN1+4
      • EN2+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410 - [#410] Classic Fileman Calls
    ^PRCS(410.1 - [#410.1] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(410.1 EN1
    ^PRC(424 - [#424] T1+2, CER424+2
    ^PRCS(410 - [#410] T1T1+1, EN2A+3*, EN2A+4*, EN2A+5*, EN2A+7*, EN2B*, EN3+3, EN3+5, EN3+6
    EN3+8, EN3+9, EN3+10, EN3+13, CK1CK2CK2+1, CK2+2, CK2+4*
    ^PRCS(410.1 - [#410.1] EN1+3, EN1+4, TEX*

    Label References

    Name Line Occurrences
    CANCK T1T1+1
    CER CK1
    CER424 T1+2, T1+3
    CK1 CK2
    CK2 CK2+1
    EXIT W4
    OUT OUT1
    OUT1 EN1CER+3, CER424+4
    T T1T1+1, T1+2, CANCK+1, CER424+17
    T1 CKQ+1
    TEX CER424+19
    W1 W1
    W4 EN1+4, EN2+1
    W5 EN+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 TEX*
    ^(3 EN2A+3*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % W1*, EXIT!
    DA EN+1!, EN1+3*, EN1+4*, EN1+5, TEX*, OUT!, EN2A*, EN2A+3, EN2A+4, EN2A+5
    EN2A+6, EN2A+7, EN2BEN2B+1, CK2+3*, CKQ!, CER+2!, EXIT!
    DIC EN+1!, EN1+1*, EN1+4*, OUT!, EN2+1*, EXIT!
    DIC(0 EN1+4*, EN2+1*
    DIE EXIT!
    DIK CK2+3*, CKQ!, CER+2!
    DILOCKTM EN3+5, EN3+9
    >> DINUM EN3+12*
    DLAYGO EN1+4*!, EN2+1*!
    DR EXIT!
    DT TEX
    DUZ EN2A+7
    HDA EN1+5*, TEX, OUT!
    I EN3+8*, EXIT!
    IEN410 CK1*, CK2*, CK2+1, CK2+3, CKQ!, CER+2!
    IOST W4
    L EXIT!
    >> MSG EN1+1*, CER*, CER424+4*
    >> MYY EN2B+1
    N EN1+3*, OUT!, EXIT!
    NODE EN1*, EN1+3, TEX, OUT!
    PIECE EN1*, EN1+3, TEX, OUT!
    >> PRC("ACC" EN2A+1*, EN2A+2, EN2A+3
    >> PRC("BBFY" EN2A+1, EN2A+4
    >> PRC("CP" EN2A+1, EN2A+3, EN2A+5, EN2A+7
    PRC("FY" EN2A+1, EXIT!
    PRC("QTR" EXIT!
    >> PRC("SITE" EN+1, EN2A+1, EN2A+3
    >> PRC("SST" EN2B
    >> PRCE424 T1T1+1, T1+2, T1+3
    PRCI CER424+2*, CER424+3!
    PRCIENCT CK2+2*, CK2+4!
    >> PRCRMPR CER+1
    PRCS EXIT!
    PRCS("TYPE" EN1T1+1, T1+2, T1+3, OUT!
    PRCSAPP EN2A+2*, EN2A+3, EN2A+7!, EXIT!
    PRCSDIC EXIT!
    PRCSIEN EN3+4~, EN3+6*, EN3+7*, EN3+8*, EN3+9*, EN3+11, EN3+12, EN3+13
    PRCSL OUT!, EXIT!
    PRCSY EXIT!
    PRCTT CER424+1*, CER424+2*, CER424+4!, CER424+5, CER424+6, CER424+7, CER424+12, CER424+17!, CER424+18!
    PRCX1 CER424+1*, CER424+2, CER424+3!
    PRCX2 CER424+2*, CER424+3!
    PRCX3 CER424+1*, CER424+2*, CER424+4!, CER424+17!, CER424+18!
    >> REP T1T1+1, T1+2, T1+3
    T EN1+3*, EN1+4*, T*, T1*, T1+1*, T1+2*, T1+3, TEX, OUT!, CANCK+1*
    CK2+5*, CER424+17*, EXIT!
    T(1 EN1*
    T(2 EN2A*, EN2A+3, EN2A+7
    T1 EXIT!
    T2 EXIT!
    T3 EXIT!
    T4 W1, EXIT!
    U TEXEN2A+3, CK2+1
    X EN1EN1+3, EN1+4, T1*, T1+1*, T1+2*, OUT1*, EN3+3, EN3+5!, EN3+11!
    CER+1*, CER424+1, W4*, W5*, EXIT!
    X1 EXIT!
    >> Y EN1+4, OUT1*, EN2+1, EN2A
    Z T1+1, T1+2*, OUT!, CK0CK1, CKQ*, CERCER424+4, EXIT!
    ZERSW EN1+1*, CANCK+1*, EXIT!
    ZHOLD CK0*, CKQ!
    ZZH CK0*, CK1*, CK2CK2+5, CKQ!, CER+2!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All