IBCU7 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91
Source file <IBCU7.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|