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

Package: Integrated Billing

Routine: IBCEP4A


Information

IBCEP4A ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00

Source Information

Source file <IBCEP4A.m>

Entry Points

Name Comments DBIA/ICR reference
NEW(IB) ; Add care unit
; Assumes IBINS is defined as ins co ien (file 36)
; IB = 0 or null if called from list manager, 1 if not
NEWQ
CHANGE(IB) ; Edit a care unit name or combination for ins co IBINS
; Assumes IBINS is defined as ins co ien (file 36)
; IB = 0 or null if called from list manager, 1 if not
CHGQ
INSASS(IBINSZ,IB95) ; Assign care unit to or delete from an ins co
; IBINSZ = ien of ins co (file 36)
; IB95 = flag ("IBCU")=care unit
; can have subscripts to send in pre-entered data
INSQ
EDIT(IBFLD,IB0,IBIEN,IBCK1) ; Allow addition/edit of fields in file 355.96
; without direct Fileman call so uniqueness can be checked
; IBFLD = field # in file 355.96
; IB0 = current 0-node of data in the entry in file 355.96
; IBIEN = ien of entry being edited in file 355.96
; IBCK1 = flag ... if 1, checks for uniqueness after field changed
EDITQ
ADDCU(IBINSZ,IBCU,IBFT,IBCT,IBPTYP) ; Add a new care unit record to file 355.96
; Same parameter definitions as EDIT
DELETE(IB) ; delete a care unit name
; IB = 0 or null if called from list manager, 1 if not
DELETEQ ;
SEL() ; Select entry from list
; returns ien in file 355.95 for selected entry

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+9
Function Call: WRITE
  • Prompt: !,"SELECT ONE OF THE FOLLOWING CARE UNIT COMBINATIONS:"
  • Line Location: CHANGE+23
Function Call: WRITE
  • Prompt: !!,"*** CARE UNIT COMBINATION FOR: ",$P($G(^IBA(355.95,+IB95("IBCU"),0)),U)," ***"
  • Line Location: CHANGE+30
Function Call: WRITE
  • Prompt: !,Q(Z)
  • Line Location: CHANGE+32
Function Call: WRITE
  • Prompt: !,"EXP DATE: ",$$FMTE^XLFDT($P(IBDA0,U,7),"2D")
  • Line Location: CHANGE+33
Function Call: WRITE
  • Prompt: !,"CARE UNIT: ",$P($G(^IBA(355.95,+IBDA0,0)),U),!
  • Line Location: CHANGE+34
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+35
Function Call: WRITE
  • Prompt: !,"CARE UNIT: ",$P($G(^IBA(355.95,IB95("IBCU"),0)),U)
  • Line Location: CHANGE+43
Function Call: WRITE
  • Prompt: !,"INSURANCE COMPANY: ",$$EXPAND^IBTRE(355.96,.03,$P(IB0,U,3))
  • Line Location: CHANGE+44
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+52
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+52
Function Call: WRITE
  • Prompt: !
  • Line Location: INSASS+9
Function Call: WRITE
  • Prompt: !,"CARE UNIT: "_$$EXPAND^IBTRE(355.96,.01,IB95("IBCU"))
  • Line Location: INSASS+31
Function Call: WRITE
  • Prompt: !
  • Line Location: INSASS+34
Function Call: WRITE
  • Prompt: !
  • Line Location: INSASS+34
Function Call: WRITE
  • Prompt: !
  • Line Location: INSASS+36
Function Call: WRITE
  • Prompt: !
  • Line Location: INSASS+37
Function Call: WRITE
  • Prompt: !
  • Line Location: DELETE+9

FileMan Files Accessed Via FileMan Db Call

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