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

Package: Integrated Billing

Routine: IBPUDEL


Information

IBPUDEL ;ALB/CPM - DELETE SEARCH TEMPLATE ENTRIES ; 24-APR-92

Source Information

Source file <IBPUDEL.m>

Entry Points

Name Comments DBIA/ICR reference
DEL ; Delete Entry From Search Template
DELQ
SEL() ; Prompt for Search Template.
; Input: NONE
; Output: File number, or 0 if none found/selected.
; If file number is selected, then IBD is returned as
; IBD(file #)=ien of template^status of log^ien of log
READ
SELQ
HDR ; Write out a header. Input: IBF -- file name
DISP ; Display entry from a file. Input: IBF -- file name, IBN -- file entry
DISPQ
PICK ; Select an entry to delete.
; Input: ^TMP($J,"IBPUDEL", -- possible choices
; Output: IBEN -- null (continue),
; '^' (quit), or
; a successful pick
ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,I
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"This entry has been deleted.",!
  • Line Location: DEL+20
Function Call: WRITE
  • Prompt: !,"Since this is the last template entry, the template has been deleted, and",!,"the log entry has been cancelled."
  • Line Location: DEL+23
Function Call: WRITE
  • Prompt: !!,"There are no Search templates which are currently active.",!
  • Line Location: SEL+7
Function Call: WRITE
  • Prompt: !,"Select one of the following files where a Search Template has been created:",!
  • Line Location: SEL+11
Function Call: WRITE
  • Prompt: !,?1,IBF,?6
  • Line Location: SEL+12
Function Call: READ
  • Variable: IBF
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !!,"Select a File Number: "
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !!," Enter one of the displayed file numbers, or '^' to exit this option."
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: $P($G(^DIC(IBF,0)),"^"),?35,"Created on ",$$DAT1^IBOUTL(+$G(^IBE(350.6,$P(IBD(IBF),"^",3),1)))," by ",$E($P($G(^VA(200,+$P($G(^(1)),"^",3),0)),"^"),1,22)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$J(I,2),?5,$E($P($G(^DPT(+$P(DATA,"^",2),0)),"^"),1,22),?30
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $P(DATA,"^",8)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?54,Y,?67,$$DAT1^IBOUTL($P($G(^IB(IBN,1)),"^",2))
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: $$DAT1^IBOUTL($P(DATA,"^",3))
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: ?44,Y,?59,$$DAT1^IBOUTL($P(DATA,"^",10))
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $P($G(^DGCR(399.3,+$P(DATA,"^",7),0)),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?52,Y
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: ?71,$$DAT1^IBOUTL($P(DATA,"^",14))
  • Line Location: DISP+8
Function Call: READ
  • Variable: IBEN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!," ENTER a number between 1 and ",$S(IBN:I,1:I-1),"."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Info |  Source |  Entry Points |  Interaction Calls