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

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

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