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

Package: Integrated Billing

Routine: IBPUDEL


Information

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

Source Information

Source file <IBPUDEL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 3 $$DAT1^IBOUTL  $$LOG^IBPU  ($$LOGIEN,DEL,UPD)^IBPU1  
VA FileMan 2 Y^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IB PURGE DELETE TEMPLATE ENTRY  IBPO  

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

External References

Name Field # of Occurrence
HOME^%ZIS DEL+2
Y^DIQ DISP+4, DISP+5, DISP+7
^DIR DEL+13
$$DAT1^IBOUTL HDR+1, DISP+4, DISP+5, DISP+8
$$LOG^IBPU SEL+6
$$LOGIEN^IBPU1 SEL+6
DEL^IBPU1 DEL+21
UPD^IBPU1 DEL+19, DEL+22

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
Routine Call
  • %ZIS
  • Line Location:
    • DEL+2
Routine Call
  • DIR
  • Line Location:
    • DEL+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(350 DISP+4
^DD(351 DISP+5
^DD(399 DISP+7
^DGCR(399.3 - [#399.3] DISP+6
^DIBT - [#.401] DEL+6, DEL+20!
^DIBT("B" SEL+6
^DIC - [#1] HDR+1, DISP+2
^DPT - [#2] DISP+3
^IB - [#350] DISP+4
^IBE(350.6 - [#350.6] DEL+17, SEL+6, HDR+1
^TMP($J DEL+5!, DEL+6*, DEL+20, DELQ!, ASK
^VA(200 - [#200] HDR+1

Label References

Name Line Occurrences
$$SEL DEL+1
ASK ASK
DELQ DEL+1, DEL+6, DEL+7
DISP DEL+6
DISPQ DISP+4, DISP+5
HDR DEL+2, SEL+12
PICK DEL+6
READ READ
SELQ SEL+7, SEL+8

Naked Globals

Name Field # of Occurrence
^(1 HDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C DISP+1~, DISP+4*, DISP+5*, DISP+7*
DATA DISP+1~, DISP+2*, DISP+3, DISP+4, DISP+5, DISP+6, DISP+7, DISP+8
DIR DEL+13!
DIR("?" DEL+11*, DEL+12*
DIR("A" DEL+10*
DIR(0 DEL+10*
DIRUT DELQ!
DTIME READ, ASK
DTOUT DELQ!
DUOUT DELQ!
I DEL+2*, DEL+6*, DELQ!, SEL+5~, SEL+6*, DISP+3, ASK
IBD DELQ!, SEL+5!, SEL+7
IBD( DEL+5, DEL+17, DEL+19, DEL+22, SEL+6*, SEL+8, SEL+12, READ, HDR+1
IBD(0 SEL+8
>> IBEN DEL+5*, DEL+6, DEL+7, DEL+20, ASK*
IBF DEL+1*, DEL+5, DEL+17, DEL+19, DEL+21, DEL+22, DELQ!, SEL+7*, SEL+8*, SEL+12*
, READ*, SELQ, HDR+1, DISP+2, DISP+4, DISP+5
IBN DEL+5*, DEL+6*, DELQ!, DISP+2, DISP+4, ASK
IBNUMR DEL+17*, DEL+18, DEL+19, DELQ!
IBTM SEL+5~, SEL+6*
IBTMDA DEL+5*, DEL+6, DEL+20, DELQ!, SEL+5~, SEL+6*
IOF DEL+2
J SEL+5~, SEL+6*
K SEL+5~, SEL+6*
ROOT DISP+1~, DISP+2*
X DELQ!
Y DEL+16, DELQ!, DISP+4*, DISP+5*, DISP+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All