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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCSCK

Package: IFCAP

Routine: PRCSCK


Information

PRCSCK ;SF-ISC/KSS/TKW/SC-CP INPUT TEMPLATE CHECK RTN ;7/9/13 16:00

Source Information

Source file <PRCSCK.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
IFCAP 3 ($$ITDES,$$ITDESALL)^PRCHJUTL  (,SCP0)^PRCSCK1  ($$GETBOCNT,$$GETCCCNT,$$VALIDBOC,$$VALIDCC)^PRCSECP  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
VA FileMan 2 EN^DDIOL  ^DIE  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 54

Package Total Caller Graph
IFCAP 54 PRCE 1358 ADJUSTMENT  PRCE NEW 1358  PRCE NEW 1358S  PRCOSS6  PRCPAGPR  PRCSAPP2  PRCSCPY  PRCSEA  
PRCSEB  PRCSEB0  PRCSECP  PRCSED  PRCSEDS  PRCSEN1358  PRCSEN1358A  PRCSEN1358S  
PRCSEN2237B  PRCSEN2237S  PRCSENA  PRCSENA 1358  PRCSENC  PRCSENCOD  PRCSENCODS  PRCSENCT  
PRCSENE  PRCSENIB  PRCSENIBS  PRCSENOD  PRCSENPR  PRCSENPRS  PRCSENR&NR  PRCSENR&NRS  
PRCSRIG1  PRCST11  PRCST13  PRCST17  PRCST18  PRCST19  PRCST21  PRCST22  
PRCST26  PRCST27  PRCST32  PRCST34  PRCST36  PRCST37  PRCST38  PRCST41  
PRCST42  PRCST43  PRCST44  PRCST45  PRCST46  PRCSUT2  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81,174**;Oct 20, 2000;Build 23
EX
1
2 ;ENTRY POINT WITHIN SUB-FIELD - (DA & DA(1)) DEFINED, OR
  • ICR #1526
    • Status: Pending
    • Usage: Private
    3
    4
    5
    6
    7
    8
    9
    RB
    RB1
    RB3
    RB4
    EX1
    EXIT
    QRB
  • ICR #1526
    • Status: Pending
    • Usage: Private
    QRB1
    QRB2
    ISSUPFCP(STA,FCP) ;RETURN 1 IF THIS IS A SUPPLY FUND FCP, 0 IF IT ISN'T
    SUPPLYCC() ;RETURN DEFAULT CC FOR SUPPLY FUND FCPS
    SUPPLBOC() ;RETURN DEFAULT BOC FOR SUPPLY FUND FCPS
    SETY ;SETS BRANCHING LOGIC FOR INPUT TEMPLATE 'PRCPIB' AND 'PRCSENIB' (INPUT TEMPLATES FOR ISSUE BOOK REQUESTS)
    CHGCCBOC(CXLTXN,RPLTXN,OFCP,MUSTCHG) ;
    OKCCBOC(TRANSXN) ;TRANSXN = transaction# of transaction to check
    GETTXNCP(TRANSID,OUTIEN,OUTSTA) ;GET IEN AND CONTROL POINT # FOR TRANSACTION
    CHKITDES(PRCDA) ;2237 input template - check all line items for a description

    External References

    Name Field # of Occurrence
    EN^DDIOL OKCCBOC+14, OKCCBOC+28, OKCCBOC+40
    ^DIE CHGCCBOC+20
    $$ITDES^PRCHJUTL 2+8
    $$ITDESALL^PRCHJUTL CHKITDES+21
    ^PRCSCK1 V+8
    SCP0^PRCSCK1 V+10
    $$GETBOCNT^PRCSECP CHGCCBOC+24, OKCCBOC+18
    $$GETCCCNT^PRCSECP CHGCCBOC+15
    $$VALIDBOC^PRCSECP CHGCCBOC+41, CHGCCBOC+47, OKCCBOC+22, OKCCBOC+36
    $$VALIDCC^PRCSECP OKCCBOC+9
    $$FMTE^XLFDT QRB+7
    $$UP^XLFSTR CHKITDES+24
    $$GET^XPAR QRB+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?3,$C(7),"ITEM # "_$P(^PRCS(410,PRCSJ,"IT",PRCSI,0),U,1)_" "_PRCSL_" MISSING!"
    • Line Location: 2+11
    Function Call: WRITE
    • Prompt: !,?50,"TRANSACTION BEG BAL: ",$S(PRCST:$J(PRCST,0,2),1:"0.00")
    • Line Location: RB+1
    Function Call: WRITE
    • Prompt: $C(7),!,"This is $ ",$J(PRCS(3),0,2)," more than the total available.",!,"Please re-edit your entries!"
    • Line Location: RB1+2
    Function Call: WRITE
    • Prompt: ?29,"RUNNING TOTAL: ",$S(PRCS(2):$J(PRCS(2),0,2),1:"0.00"),?64,"BAL: ",$S(PRCST(1)-PRCS(2):$J(PRCST(1)-PRCS(2),0,2),1:"0.00")
    • Line Location: RB4+0
    Function Call: WRITE
    • Prompt: !?50,"QTY BEG BAL: ",PRCSQT
    • Line Location: QRB+1
    Function Call: WRITE
    • Prompt: !?37,"DynaMed's DATE NEEDED BY: "_PRCVDN
    • Line Location: QRB+7
    Function Call: WRITE
    • Prompt: ?55,"QTY RUN BAL: ",PRCS(1)
    • Line Location: QRB2+1
    Function Call: WRITE
    • Prompt: !!,"Cost Center updated to ",RPLCC,!
    • Line Location: CHGCCBOC+16
    Function Call: WRITE
    • Prompt: !!,"BOC updated to ",RPLBOC," for the new document.",!!
    • Line Location: CHGCCBOC+26
    Function Call: WRITE
    • Prompt: !!," This document refers to the following BOC(s):",!
    • Line Location: CHGCCBOC+37
    Function Call: WRITE
    • Prompt: " [NONE]",!!
    • Line Location: CHGCCBOC+38
    Function Call: WRITE
    • Prompt: " BOC: ",I,":"
    • Line Location: CHGCCBOC+40
    Function Call: WRITE
    • Prompt: " ** INVALID **"
    • Line Location: CHGCCBOC+41
    Function Call: WRITE
    • Prompt: !," BOC ",+I," ITEM(S): ",$E(RPLBOC(I),1,$L(RPLBOC(I))-1)
    • Line Location: CHGCCBOC+42
    Function Call: WRITE
    • Prompt: !!
    • Line Location: CHGCCBOC+43
    Function Call: WRITE
    • Prompt: !!,"This document uses BOC ",RPLBOC
    • Line Location: CHGCCBOC+46
    Function Call: WRITE
    • Prompt: " ** INVALID **"
    • Line Location: CHGCCBOC+47
    Function Call: WRITE
    • Prompt: !,"You must edit this document to correct the BOC entries now.",!
    • Line Location: CHGCCBOC+48
    Function Call: WRITE
    • Prompt: !?3,$$UP^XLFSTR($G(PRCWARN(PRCIDX)))
    • Line Location: CHKITDES+24
    Routine Call
    • DIE
    • Line Location:
      • CHGCCBOC+20

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(411 - [#411] 6
    ^PRC(420 - [#420] 2+3, 4, ISSUPFCP+1
    ^PRCS(410 - [#410] V+8, 1, 2+5, 2+11, 4+1, 7, 8, RB, RB1, RB3
    , QRB, QRB+7, QRB2, CHGCCBOC+13, CHGCCBOC+16*, CHGCCBOC+21, CHGCCBOC+28, CHGCCBOC+29*, CHGCCBOC+30*, CHGCCBOC+33
    , CHGCCBOC+34, CHGCCBOC+45, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+34, OKCCBOC+35, OKCCBOC+39*, GETTXNCP+1, GETTXNCP+2
    , GETTXNCP+3, CHKITDES+16
    ^PRCS(410.6 - [#410.6] QRB2

    Label References

    Name Line Occurrences
    $$GETTXNCP CHGCCBOC+9, CHGCCBOC+10, OKCCBOC+5
    1 V+8
    2 V+8
    3 7+1, 9
    4 7, 7+1, 8, 9
    5 7
    6 7+2, 8, 9
    @( 2+9
    EX V+9
    EXIT RB+1, RB1+4, QRB+8
    QRB2 1
    RB3 RB1+1
    RB4 RB1+3

    Naked Globals

    Name Field # of Occurrence
    ^( RB1, QRB2
    ^(0 1, 2+5, 6, QRB, QRB2
    ^(2 7, 8
    ^(3 7, 8
    ^(4 RB, RB3, QRB+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A OKCCBOC+3~, OKCCBOC+14, OKCCBOC+28, OKCCBOC+40
    A( OKCCBOC+37*, OKCCBOC+38*, OKCCBOC+40*
    A(1 OKCCBOC+11*, OKCCBOC+23*
    A(2 OKCCBOC+12*, OKCCBOC+24*, OKCCBOC+25*, OKCCBOC+26*
    A(3 OKCCBOC+13*, OKCCBOC+27*
    BOC OKCCBOC+4~, OKCCBOC+21*, OKCCBOC+22, OKCCBOC+23, OKCCBOC+35*, OKCCBOC+36, OKCCBOC+37
    BOCC OKCCBOC+4~, OKCCBOC+18*, OKCCBOC+24, OKCCBOC+25, OKCCBOC+39, OKCCBOC+40
    CC OKCCBOC+3~, OKCCBOC+8*, OKCCBOC+9, OKCCBOC+11, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
    CCCNT CHGCCBOC+7~, CHGCCBOC+15*, CHGCCBOC+16, OKCCBOC+3~
    CXLCC CHGCCBOC+7~
    CXLDA CHGCCBOC+7~, CHGCCBOC+9
    CXLFCP CHGCCBOC+7~, CHGCCBOC+9*, CHGCCBOC+11*, CHGCCBOC+12
    CXLSTA CHGCCBOC+7~, CHGCCBOC+9
    CXLTXN CHGCCBOC~, CHGCCBOC+9
    DA V+8, 1, 2+2, 2+4, RB, QRB, QRB+7, QRB1, CHGCCBOC+8~, CHGCCBOC+18*
    , OKCCBOC+3~, OKCCBOC+5, OKCCBOC+6, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+24, OKCCBOC+34, OKCCBOC+35, OKCCBOC+39
    DA(1 2+2, 2+4, RB1, RB3, QRB, QRB+7, QRB1
    DA(2 QRB1
    >> DIC("S" CHGCCBOC+19*
    DIE CHGCCBOC+8~, CHGCCBOC+18*, OKCCBOC+4~
    DONE CHGCCBOC+7~, CHGCCBOC+25*, CHGCCBOC+31, OKCCBOC+3~
    DR CHGCCBOC+8~, CHGCCBOC+18*, OKCCBOC+4~
    FCP ISSUPFCP~, ISSUPFCP+1, OKCCBOC+3~, OKCCBOC+5*, OKCCBOC+9, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
    FTYPE OKCCBOC+4~, OKCCBOC+7*, OKCCBOC+20
    GOODCC OKCCBOC+3~, OKCCBOC+9*, OKCCBOC+10
    I CHGCCBOC+8~, CHGCCBOC+28*, CHGCCBOC+29, CHGCCBOC+33*, CHGCCBOC+34, CHGCCBOC+35, CHGCCBOC+36*, CHGCCBOC+39*, CHGCCBOC+40, CHGCCBOC+41
    , CHGCCBOC+42, OKCCBOC+4~, OKCCBOC+33*, OKCCBOC+34*, OKCCBOC+35, OKCCBOC+37, OKCCBOC+39
    J CHGCCBOC+8~, OKCCBOC+4~, OKCCBOC+33*, OKCCBOC+37*, OKCCBOC+38, OKCCBOC+40*
    MUSTCHG CHGCCBOC~, CHGCCBOC+48
    >> NEWBOC CHGCCBOC+24*, CHGCCBOC+25
    OFCP CHGCCBOC~, CHGCCBOC+11
    OUTIEN GETTXNCP~, GETTXNCP+1*, GETTXNCP+2, GETTXNCP+3
    OUTSTA GETTXNCP~, GETTXNCP+2*
    >> PRC("CP" 2+3, 4
    >> PRC("SITE" 2+3, 4, 6
    PRCDA CHKITDES~, CHKITDES+14*, CHKITDES+15, CHKITDES+16, CHKITDES+21
    PRCHJFT CHKITDES+16~*, CHKITDES+18
    PRCIDX CHKITDES+22~*, CHKITDES+23*, CHKITDES+24
    PRCS EX!, RB1*, EXIT!, QRB2*
    PRCS(1 RB1*, RB3, QRB2*, QRB2+1, QRB2+2
    PRCS(2 RB1+2, RB3*, RB4, QRB2*
    PRCS(3 RB1+2*
    PRCS(410 OKCCBOC+24*
    PRCSBOC 2+3~
    >> PRCSCST QRB*
    PRCSDA EX!, EX1!, QRB1*
    PRCSDA1 EX!, 1*, EX1!, QRB1*, QRB2
    PRCSDA2 EX!, 1*, EX1!, QRB1*, QRB2
    >> PRCSDR 2+7, 2+9, 7+2, 8, 9
    >> PRCSERR V+8*, V+9, 2+4*, 2+8*, 2+9, 2+10, 2+11, 3*, 4*, 5*
    , 6*, 7, 7+1, 7+2, 8*, 9, QRB2+2*, SETY+1, SETY+2
    PRCSF V+8*, EX!, 1, 2+2, 2+4, 2+12, QRB2+1, QRB2+2
    PRCSI V+8*, EX!, 1, 2+4*, 2+5, 2+8, 2+11, 2+12!, 4+1
    PRCSIDA 2+3~, 4+1*
    PRCSII RB1*, EXIT!
    PRCSJ 2+4*, 2+5, 2+8, 2+11, 2+12!, 4+1, 7, 8
    PRCSJJ EXIT!, QRB2*
    PRCSL 2+10*, 2+11, 2+12!
    PRCSQT EX!, 1*, EX1!, QRB*, QRB+1, QRB2
    PRCST RB*, RB+1, RB3*, EXIT!
    PRCST(1 RB1+2, RB3*, RB4
    PRCSVAR 2+5*, 2+8, 2+12!, 3, 4, 5, 6, 7, 8
    PRCVDN QRB+6~, QRB+7*
    PRCVDT QRB+6~, QRB+7*
    PRCWARN CHKITDES+20~, CHKITDES+21, CHKITDES+27
    PRCWARN( CHKITDES+23, CHKITDES+24
    RPLBOC CHGCCBOC+8~, CHGCCBOC+25*, CHGCCBOC+26, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+34*, CHGCCBOC+35, CHGCCBOC+45*, CHGCCBOC+46, CHGCCBOC+47
    RPLBOC( CHGCCBOC+35*, CHGCCBOC+39, CHGCCBOC+42
    RPLBOC("" CHGCCBOC+38
    RPLCC CHGCCBOC+7~, CHGCCBOC+16*, CHGCCBOC+21*, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
    RPLDA CHGCCBOC+7~, CHGCCBOC+10, CHGCCBOC+13, CHGCCBOC+16, CHGCCBOC+18, CHGCCBOC+21, CHGCCBOC+28, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+33
    , CHGCCBOC+34, CHGCCBOC+45
    RPLFCP CHGCCBOC+7~, CHGCCBOC+10*, CHGCCBOC+12, CHGCCBOC+15, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
    RPLFTYPE CHGCCBOC+8~, CHGCCBOC+13*, CHGCCBOC+27, CHGCCBOC+30, CHGCCBOC+32, CHGCCBOC+44
    RPLSTA CHGCCBOC+7~, CHGCCBOC+10, CHGCCBOC+15, CHGCCBOC+24, CHGCCBOC+41, CHGCCBOC+47
    RPLTXN CHGCCBOC~, CHGCCBOC+10
    RV CHGCCBOC+7~, CHGCCBOC+24*, CHGCCBOC+25*, CHGCCBOC+41*, CHGCCBOC+47*, CHGCCBOC+48, CHGCCBOC+49, OKCCBOC+3~, OKCCBOC+19*, OKCCBOC+20
    , OKCCBOC+29*, OKCCBOC+40*, OKCCBOC+41
    SPEC 2+3~*
    STA ISSUPFCP~, ISSUPFCP+1, OKCCBOC+3~, OKCCBOC+5, OKCCBOC+6, OKCCBOC+9, OKCCBOC+18, OKCCBOC+22, OKCCBOC+36
    TRANSID GETTXNCP~, GETTXNCP+1
    TRANSXN OKCCBOC~, OKCCBOC+5
    U 1, 2+11, 3, 4, 5, 6, 7, 8, RB, RB1
    , RB3, QRB, QRB2, CHGCCBOC+13, CHGCCBOC+16, CHGCCBOC+21, CHGCCBOC+25, CHGCCBOC+29, CHGCCBOC+30, CHGCCBOC+34
    , CHGCCBOC+45, OKCCBOC+7, OKCCBOC+8, OKCCBOC+21, OKCCBOC+24, OKCCBOC+35, OKCCBOC+39, OKCCBOC+40, GETTXNCP+2, GETTXNCP+3
    >> Y 2+11*, RB1+2*, QRB2+2*, SETY+2*, CHKITDES+27*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All