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
Print Page as PDF
Routine: IBCU7

Package: Integrated Billing

Routine: IBCU7


Information

IBCU7 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91

Source Information

Source file <IBCU7.m>

Entry Points

Name Comments DBIA/ICR reference
CHKX ; -interception of input x from Additional Procedure input
CHKXQ
CODMUL ;Date oriented entry of procedure
DELASK
CODDT
ASKCOD
CODQ
DELPROC ; Remove the selected procedure, because of inactive status (cancel selection)
DELADD
DTMES ;Message if procedure date not in date range
DTMESQ
CODHLP ;Display Additional Procedure codes
DICV
DEFDIV(IBIFN) ; Find default division for bill IBIFN
ADDTNL(IBIFN,DA) ;
ADDTNLQ
XTRA1(Y) ;
SPCUNIT(IBIFN,DA) ; return fields for special units if applicable, in DR form
SPCUNTQ
ATTACH ; DEM;432 - Attachment control number.
; Ask if user wants to enter Attachment Control Number.
NOCPROC(IBPROCSV,IBCODE,IBDATE) ; MRD;IB*2.0*516 - Function to determine if procedure is an
; "NOC". Returns '1' if "NOC" procedure, otherwise '0'.
NOCPROCQ ; Quit out.
NOC(IBTEXT) ; Quit with '1' if IBTEXT contains one of the specified strings.
TM(IBX,IBY) ; Trim Character Y - Default " "
ORALCAV(FLD) ;EP;IB*2.0*592
; Dictionary Screen function called from Procedures Oral Cavity Fields:
; 399.0304.90.01, 399.0304.90.02, 399.0304.90.03, 399.0304.90.04, 399.0304.90.05
; Prevents the same Oral Cavity from being selected more than once.
; Input: FLD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 399 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
TOOTHS(FLD) ;EP;IB*2.0*592
; Dictionary Screen function called from Dental Service Line Tooth fields:
; 399,91,.02, 399,91,.03, 399,91,.04, 399,91,.05, 399,91,.06. Prevents the
; same Tooth Surface from being selected more than once.
; Input: FLD - Field # of the field being checked
; DA - Tooth Surface multiple IEN
; DA(1) - Service Line multiple IEN
; DA(2) - IEN of the 399 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Procedure Date: "
  • Line Location: CHKX+8
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: CHKX+8
Function Call: WRITE
  • Prompt: !,"SINCE THE PROCEDURE CODING METHOD HAS BEEN CHANGED, DO YOU WANT TO DELETE ALL",!,"PROCEDURE CODES IN THIS BILL"
  • Line Location: DELASK+0
Function Call: WRITE
  • Prompt: !!,"If you answer 'Yes', all procedure codes will be DELETED from this bill.",!
  • Line Location: DELASK+1
Function Call: WRITE
  • Prompt: !!,$P(X,U,2),!
  • Line Location: CODDT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CODDT+5
Function Call: WRITE
  • Prompt: !,"Select PROCEDURE DATE"_$S($TR(Z0,"-")'="":" ("_Z0_")",1:"")_": " R X:DTIME G:'$T!("^"[X)
  • Line Location: CODDT+5
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: CODDT+7
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: CODDT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCOD+15
Function Call: WRITE
  • Prompt: !,*7,"Warning: Procedure code is inactive on this date",!
  • Line Location: ASKCOD+24
Function Call: WRITE
  • Prompt: !!,*7,"The Procedure code is inactive on ",$$DAT1^IBOUTL(DGPROCDT),"."
  • Line Location: DELPROC+1
Function Call: WRITE
  • Prompt: !,"Please select another Procedure."
  • Line Location: DELPROC+2
Function Call: WRITE
  • Prompt: *7,!!?3,"Date must be within STATEMENT COVERS FROM and STATEMENT COVERS TO period."
  • Line Location: DTMES+3
Function Call: WRITE
  • Prompt: !?3,"Enter a date between ",Y," and "
  • Line Location: DTMES+5
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DTMES+5
Function Call: WRITE
  • Prompt: !!?5,"No Codes Entered!",!
  • Line Location: CODHLP+2
Function Call: WRITE
  • Prompt: !?5,$E($P(Z,"^",2),1,33),?40,"- ",$P(Z,"^")
  • Line Location: CODHLP+3
Function Call: WRITE
  • Prompt: IBMOD
  • Line Location: CODHLP+7
Function Call: WRITE
  • Prompt: ?60,"Date: "
  • Line Location: CODHLP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CODHLP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDTNL+17
Info |  Source |  Entry Points |  Interaction Calls