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

Package: Integrated Billing

Routine: IBPU1


Information

IBPU1 ;ALB/CPM - ARCHIVE/PURGING UTILITIES (CON'T.) ; 20-APR-92

Source Information

Source file <IBPU1.m>

Entry Points

Name Comments DBIA/ICR reference
NODUZ() ; Check for the existence of DUZ
; Input: NONE
; Output: 0 -- has DUZ, 1 -- no DUZ
NOESIG(USER) ; Check Electronic Signature Code
; Input: USER -- ien in New Person file
; Output: 0 -- has code, 1 -- no code
ESIG(USER) ; Enter Electronic Signature Code
; Input: USER -- ien in New Person file
; Output: 0 -- not entered or '^' out, 1 -- entered OK
OKAY(JOB) ; Okay to queue this job?
; Input: JOB -- 1 - Search, 2 - Archive, 3 - Purge
; Output: 0 -- No, not okay, 1 -- Yes, okay to continue
TASK ; Task off job.
; Input: IBOP -- 1 - Search, 2 - Archive, 3 - Purge
; IBD( -- input data
DEL(FILE) ; Delete a search template from file #.401 (Sort Templates)
; Input: FILE -- file for which template must be deleted
; Output: None
UPD(LOG,FIELD,VALUE) ; Update/Delete Log Entry fields
; Input: LOG -- ien of log entry to be updated
; FIELD -- field number of field being updated
; VALUE -- value to be stuffed into field
; Output: NONE
LOGIEN(FILE) ; Find the most current log entry for a file
; Input: FILE -- file for which log entry must be deleted
; Output: ien of most current log entry for a file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Your DUZ code must be defined in order to use this option.",!
  • Line Location: NODUZ+4
Function Call: WRITE
  • Prompt: !!,"You must enter your Electronic Signature Code in order to use this option.",!
  • Line Location: NOESIG+4
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:60)
  • Line Location: ESIG+4
Function Call: WRITE
  • Prompt: "been verified."
  • Line Location: ESIG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OKAY+6
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: TASK+5

FileMan Files Accessed Via FileMan Db Call

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