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

Package: Integrated Billing

Routine: IBTRE3


Information

IBTRE3 ;ALB/AAS - CLAIMS TRACKING EDIT DIAGNOSIS ;1-SEP-93

Source Information

Source file <IBTRE3.m>

Entry Points

Name Comments DBIA/ICR reference
EN(IBTRN) ; -- entry point for protocols
; must do own rebuild actions
; -- Input - point to 356
ENQ ;
ADIAG(IBTRN,IBETYP) ; -- add admitting diagnosis
ADGQ
DIAG(IBTRN,IBETYP) ; -- add/edit diagnosis
DIAGQ
ADD(IBTRN,TYPE) ; -- Add a new diagnosis
NXT
ADDQ
DGPM(IBTRN) ; -- return admission pointer
NEW(ICDI,IBTRN,TYPE) ; -- file new entry
NEWQ
EDT(IBADG,IBDR) ; -- edit entry
EDTQ
SET(IBTRN) ; -- set array
SETQ
LIST(IBXY) ;List Diagnosis Array
; Input -- IBXY Diagnosis Array Subscripted by a Number
; Output -- List Diagnosis Array

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Clinical Information comes from the parent package."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Can not add diagnosis to outpatient visits prior to Check-out.",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"You can only enter an admitting diagnosis for an admission",!
  • Line Location: ADIAG+8
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Admitting Diagnosis",IOINORM," --- "
  • Line Location: ADIAG+12
Function Call: WRITE
  • Prompt: "Unspecified"
  • Line Location: ADIAG+13
Function Call: WRITE
  • Prompt: $P(IBDX,U)_" -"_$P(IBDX,U,3)
  • Line Location: ADIAG+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ADIAG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ADIAG+21
Function Call: WRITE
  • Prompt: !!,"You can only enter a diagnosis for an admission",!
  • Line Location: DIAG+5
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Diagnosis",IOINORM," --- "
  • Line Location: DIAG+8
Function Call: WRITE
  • Prompt: !!,*7,$P(Y,U,2)," is not active for the service date ("_$$DAT3^IBOUTL(IBDATE),").",!
  • Line Location: NXT+7
Function Call: WRITE
  • Prompt: !!,*7,$P(Y,"^",2)," is already a diagnosis.",!
  • Line Location: NXT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: ?77,"(",$P(IBTNOD,U,5),")"
  • Line Location: LIST+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.9 - [#356.9] Classic Fileman Calls
^ICD9 - [#80] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call