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

Package: Integrated Billing

Routine: IBCU72


Information

IBCU72 ;ALB/CPM - ADD/EDIT/DELETE PROCEDURE DIAGNOSES ;18-JUN-96

Source Information

Source file <IBCU72.m>

Entry Points

Name Comments DBIA/ICR reference
DX(IBIFN,IBPROC) ; Add/edit/delete procedure diagnoses.
; Input: IBIFN -- Pointer to the claim in file #399
; IBPROC -- Pointer to the claim procedure in file #399.0304
DXQ
DISP(X) ; Display of existing dx's for a bill.
ASKEM ; Allow entry of the procedure diagnoses.
ASKEMQ
UPD(IBVALUE,IBFIELD) ; Update an associated diagnosis.
REPACK(IBPROC,IBIFN)
HELP1 ; Help for entering associated diagnoses.
NEXT() ; Advance to the next prompt?
NEXTQ
ORAL ; JWS;IB*2.0*592;dental produce line level dental fields
ORAL2 ;check for conditional required field
ORAL1 ; check for conditional required field
T1 ;
T2 ;
TEXIT ;abort out
SELTOO(IBIFN,IBPIEN) ;
; Provides the user with a quick view of currently entered Service Line Tooth
; Information multiples and allows them to select one to edit or enter a new
; one.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; SIEN - Service Line Multiple IEN
; Returns: Value of the .01 field of the multiple to edit
; "" if creating a new multiple, -2 to exit multiple
; IBNEW=1 when creating a new entry
DELSTI(IBIFN,IBPIEN,IEN) ; Checks to see if the user entered 'NEW' to create a new
; Tooth Information Line and didn't enter any data for it OR selected a line
; to be deleted. If so, the Additional Tooth Information line with no data
; (or selected) is deleted
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; SIEN - IEN of the Service Line being edited
; Output: Empty (or selected) Tooth Information line is deleted (Potentially)
TTYPE(IBIFN,IBPIEN) ; Prompts the user to enter the .01 (Tooth) field of the
; Tooth Information multiple
; Input: IBIFN - IEN of the 356.22 entry being edited
; IBPIEN - IEN of the Service Line
; Returns: IEN of the selected Tooth Type or "" of not entered

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "There are no diagnoses associated with this bill."
  • Line Location: DX+16
Function Call: WRITE
  • Prompt: !," *** Please select procedure diagnoses by number to left of diagnosis code ***"
  • Line Location: DX+25
Function Call: WRITE
  • Prompt: !,"Current Values: "
  • Line Location: DX+26
Function Call: WRITE
  • Prompt: "Dx ",I,": ",+X," - ",$P(X,":",2)," "
  • Line Location: DX+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+29
Function Call: WRITE
  • Prompt: !!,?5,"----------------- Existing Diagnoses for Bill -----------------",!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !?2,IBX,".",?6,$P(IBY,U),?18,$E($P(IBY,U,3),1,54),?74,$S($P(IBZ,U,2)<1000:"("_$P(IBZ,U,2)_")",1:"")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"Associated Diagnosis (",IBPROMPT,"): ",$S(IBP]"":+IBP_" - "_$P(IBP,":",2)_" // ",1:"")
  • Line Location: ASKEM+3
Function Call: WRITE
  • Prompt: " ",$P(IBDX(X),"^",2)
  • Line Location: ASKEM+12
Function Call: WRITE
  • Prompt: !!,"Please enter one of the following billing diagnoses by number at left of code:"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X#4=1
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: ?((X-1)#4*18),X,".",$J($P(IBDX(X),"^",2),9)
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: !!,"You may also enter '^' to exit, '@' to delete a procedure diagnosis, or"
  • Line Location: HELP1+4
Function Call: WRITE
  • Prompt: !,"<CR> to accept a current value or skip a prompt.",!
  • Line Location: HELP1+5
Function Call: WRITE
  • Prompt: *7,!," ** Prior Placement Date Qualifier and Date need to be present when Prosthesis/Crown/Inlay Code equals 'R'"
  • Line Location: ORAL2+3
Function Call: WRITE
  • Prompt: *7,!," ** Prior Placement Date is required when Prior Placement Date Qualifier equals 441 (Prior Placement Date)"
  • Line Location: ORAL1+2
Function Call: WRITE
  • Prompt: !,"Entry #",ENTNUM," has been deleted."
  • Line Location: SELTOO+60

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.022 - [#356.022] GET1^DIQ
^DGCR(399 - [#399] Classic Fileman Calls
399.0304 GET1^DIQ
399.30491 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call