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

Package: Integrated Billing

Routine: IBPO


Information

IBPO ;ALB/CPM - ARCHIVE/PURGING OUTPUTS ; 23-APR-92

Source Information

Source file <IBPO.m>

Entry Points

Name Comments DBIA/ICR reference
LST ; List Archive/Purge Log Entries
INQ ; Archive/Purge Log Inquiry
INQS ; Tasked Entry Point
INQQ
TMP ; List Search Template Entries
TMPQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,*13
  • Condition for execution: $E(IOST,1,2)["C-"
  • Line Location: INQS+1
Function Call: WRITE
  • Prompt: " LOG #: ",IBDA,?15,$S($D(^DIC($P($G(^IBE(350.6,+IBDA,0)),"^",3),0)):$P(^(0),"^"),1:"FILE UNSPECIFIED"),?(IOM-25),$$DAT2^IBOUTL(%),!
  • Line Location: INQS+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: INQS+2
Function Call: WRITE
  • Prompt: !!,$J("Search Template : ",27),$S($P(IBLOG0,"^",2)]"":$P(IBLOG0,"^",2),1:"UNSPECIFIED")
  • Line Location: INQS+4
Function Call: WRITE
  • Prompt: !,$J("# Records "_IBX_" : ",27),+$P(IBLOG0,"^",4)
  • Line Location: INQS+6
Function Call: WRITE
  • Prompt: !,$J("Log Status : ",27),$P("OPEN^CLOSED^CANCELLED","^",+$P(IBLOG0,"^",5))
  • Line Location: INQS+7
Function Call: WRITE
  • Prompt: !!,$J(IBNAM_" Begin Date/Time : ",27),$S(Y:$$DAT2^IBOUTL(Y),1:"UNSPECIFIED")
  • Line Location: INQS+11
Function Call: WRITE
  • Prompt: !,$J(IBNAM_" Initiator : ",27),$S($D(^VA(200,Y,0)):$P(^(0),"^"),1:"UNSPECIFIED")
  • Line Location: INQS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: INQS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: TMP+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TMP+4
Function Call: WRITE
  • Prompt: !,"Template entries will be listed for the following file:"
  • Line Location: TMP+5
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(IBF,0)),"^")," Entries ",$S(IBOP>2:"Archived",1:"Found")," on ",$$DAT2^IBOUTL($P($G(^IBE(350.6,IBLOG,IBOP-1)),"^",2)),!
  • Line Location: TMP+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TMP+8
Function Call: WRITE
  • Prompt: !!,"Specify Sort Criteria:",!
  • Line Location: TMP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.6 - [#350.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call