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

Package: Integrated Billing

Routine: IBTREC


Information

IBTREC ;BAH/MBS - Claims Tracking Comment Editor ; Nov 04, 2024@13:01

Source Information

Source file <IBTREC.m>

Entry Points

Name Comments DBIA/ICR reference
EN(CTIEN,DFN) ; -- main entry point for IBT CLAIMS TRACKING CMT EDITOR
HDR ; -- header code
INIT ; -- init variables and list array
BLD ; -- Build list of comments
BLDONEC(VALMCNT,COMCNT) ; -- Build one item
WRAP(TEXT,LENGTH) ;
GETCMTS(CTIEN) ; -- Get Comment details
GETONE(CTIEN,CMTIEN,CNT) ; -- Get one comment details
SETL(LINE,DATA,LABEL,COL,LNG) ; Creates a line of data to be set into the body
; of the worklist - copied from IBCNCH2
; Input: LINE - Current line being created
; DATA - Information to be added to the end of the current line
; LABEL - Label to describe the information being added
; COL - Column position in line to add information add
; LNG - Maximum length of data information to include on the line
; Returns: Line updated with added information
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
ADDCOM ; Add Comment Logic
EDCOM ; Edit Comment Logic
DELCOM ; Delete Comment Logic
EXSCN ; Exit Screen
SELCOM(FULL,PROMPT,COMCNT,WLIST)
SELENTRY(PROMPT,START,END)
TRIGGER ; Trigger to create new comment when old Additional Comment field was edited

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Claims Tracking record is not identified."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!," For the RNB of GLOBAL SURGERY, enter the related Surgery Date"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"The RNB of OTHER requires a Comment of at least 15 characters"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !,"The RNB of OTHER requires a Comment of at least 15 characters.",!,"No comment currently satisfies this requirement."
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,*7,"You have selected this comment:",!
  • Line Location: DELCOM+7
Function Call: WRITE
  • Prompt: !,IBTMP(I)
  • Line Location: DELCOM+9
Function Call: WRITE
  • Prompt: !,"The RNB of OTHER requires a Comment of at least 15 characters.",!,"No comment currently satisfies this requirement."
  • Line Location: DELCOM+17
Function Call: WRITE
  • Prompt: !,"Comment has been deleted."
  • Line Location: DELCOM+20
Function Call: WRITE
  • Prompt: !!,*7,"I'm sorry, Dave, I'm afaid I cannot let you do that."
  • Line Location: EXSCN+2
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELCOM+18
Function Call: WRITE
  • Prompt: !,*7,">>>> No comments to "_X
  • Line Location: SELCOM+24
Function Call: WRITE
  • Prompt: !,*7,">>>> Invalid selection number"
  • Line Location: SELCOM+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBT(356 - [#356] GET1^DIQ
356.04 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call