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

Package: Integrated Billing

Routine: IBTRE4


Information

IBTRE4 ;ALB/AAS - CLAIMS TRACKING EDIT PROCEDURE ;1-SEP-93

Source Information

Source file <IBTRE4.m>

Entry Points

Name Comments DBIA/ICR reference
EN(IBTRN) ; -- entry point for protocols
; must do own rebuild actions
; -- Input - point to 356
ENQ ;
PROC(IBTRN,IBETYP) ; -- add/edit procedure
PROCQ
CHECK(IBADG) ; Check active status of the ICD0 code (Code Set Versioning)
ADD(IBTRN,TYPE) ; -- Add a new procedure
NXT ; The Procedure Date has to be asked first for the Code Set Versioning requirements
; Input Procedure Date
ADDQ
NEW(ICDI,IBTRN,TYPE,IBPDT) ; -- 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
ASK(IBCNT,IBPAR,IBSELDF) ;Ask user to select from list
; Input -- SDCNT Number of Entities
; SDPAR Selection Parameters (A=Add)
; SDSELDF Selection Default [Optional]
; Output -- Selection
REASK
ASKQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Clinical Information comes from the parent package."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"You can only enter a procedure for an admission",!
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Procedure",IOINORM," --- "
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: !!,*7,"Warning! The Procedure Code ",$P($$ICD0^IBACSV(+IBZ),U)," is inactive on this date!"
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: " ",$$DAT2^IBOUTL(IBPDT)
  • Line Location: NXT+5
Function Call: WRITE
  • Prompt: !!,*7,"The Procedure Date cannot be earlier than Admission (",$$DAT3^IBOUTL(IBADT),")",!
  • Line Location: NXT+7
Function Call: WRITE
  • Prompt: !!,*7,IBPN," is not active for the procedure date ("_$$DAT3^IBOUTL(IBPDT),").",!
  • Line Location: NXT+15
Function Call: WRITE
  • Prompt: !!,*7,IBPN," is already a procedure.",!
  • Line Location: NXT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?2,I," ",$P(IBXD,U),?15,$E($P(IBXD,U,4),1,43),?60,$$DAT1^IBOUTL(IBDATE),?72,"ICD-",$S($P(IBXD,U,14)=2:9,1:10)
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !!?5,DIR("?"),".",!
  • Line Location: REASK+8

FileMan Files Accessed Via FileMan Db Call

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