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

Package: IFCAP

Routine: PRCSRIE1


Information

PRCSRIE1 ;WISC/SAW/DXH/SC/BMM - DELETE/REPLACE REPETITIVE ITEM LIST ; 3/31/05 3:22pm

Source Information

Source file <PRCSRIE1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**13,81**;Oct 20, 2000
EDIT ;EDIT REP ITEM
W2
CALC ;CALCULATE TOTAL COST
CHECK ;
  • ICR #6590
    • Status: Active
    • Usage: Private
    DEL ;DELETE REPETITIVE ITEM LIST ENTRY
    DEL1
    DEL2
    REPL ;REPLACE EXISTING REPETITIVE ITEM LIST ENTRY NUMBER
    STF
    REPL1
    SUB ;ASK BOC IF ONE DOES NOT EXIST FOR ITEM IN FILE 441
    SUB1
    VENDORH ;HELP PROMPT FOR VENDOR FIELD IN FILE 410.3
    EXIT
    DMCHK(DA) ;check that RIL is not from DynaMed, set flag
    D1
    D2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"** This RIL originated from DynaMed and cannot be edited **"
    • Line Location: EDIT+6
    Function Call: WRITE
    • Prompt: !!,?15,"** Record in use, try to edit later **",!
    • Line Location: EDIT+8
    Function Call: WRITE
    • Prompt: !!,"Would you like to edit another repetitive item list entry"
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: W2+0
    Function Call: WRITE
    • Prompt: !,"Let me total the cost for this Repetitive Item List entry (#",PRCSNO,")"
    • Line Location: CALC+1
    Function Call: WRITE
    • Prompt: !,"Total number of items: ",I," Total cost (all items): $",$J(PRCSTC,0,2)
    • Line Location: CALC+3
    Function Call: WRITE
    • Prompt: !!,?15,"** Record in use, try to delete later **",!
    • Line Location: DEL+4
    Function Call: WRITE
    • Prompt: !,"Are you sure you want to delete this Repetitive Item List entry"
    • Line Location: DEL1+0
    Function Call: WRITE
    • Prompt: !,"Okay....."
    • Line Location: DEL1+2
    Function Call: WRITE
    • Prompt: "It's deleted."
    • Line Location: DEL1+2
    Function Call: WRITE
    • Prompt: !,"Would you like to delete another Repetitive Item List entry"
    • Line Location: DEL2+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: DEL2+0
    Function Call: WRITE
    • Prompt: !!,"Select the existing Repetitive Item List entry number to be replaced.",!
    • Line Location: REPL+1
    Function Call: WRITE
    • Prompt: !!,"Now enter the information for the new Repetitive Item List entry number.",!
    • Line Location: REPL+6
    Function Call: WRITE
    • Prompt: !!,"Would you like to replace another Repetitive Item List entry number"
    • Line Location: REPL1+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: REPL1+0
    Function Call: WRITE
    • Prompt: !,$C(7),"Sorry, but you must select a budget object code for this item."
    • Line Location: SUB1+0

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410.3 - [#410.3] Classic Fileman Calls
    410.31 GET1^DIQ
    ^PRC(420 - [#420] Classic Fileman Calls
    ^PRCD(420.2 - [#420.2] Classic Fileman Calls
    ^PRC(441 - [#441] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call