Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 (,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 3 ($$BDATE,$$ICD9)^IBACSV  SET^IBCSC4D  $$SELENT^IBTRH5D  
Kernel 1 $$LJ^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCCPT  IBCSC4D  IBCU7  

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

External References

Name Field # of Occurrence
^DIE UPD+2, REPACK+9, REPACK+10, ORAL+9, ORAL+13, ORAL+14, ORAL2+5, ORAL2+8, ORAL2+12, ORAL1+3
, T1+8, T1+16, T2+6
UPDATE^DIE SELTOO+48, SELTOO+69
^DIK DELSTI+12, DELSTI+23
$$GET1^DIQ REPACK+4, REPACK+5, REPACK+6, REPACK+7, ORAL2+2, ORAL2+8, ORAL2+11, ORAL1+1, SELTOO+24, SELTOO+25
, SELTOO+27, SELTOO+29, SELTOO+31, SELTOO+33, SELTOO+35
^DIR TTYPE+8
$$BDATE^IBACSV DISP+2
$$ICD9^IBACSV DX+19, DISP+4
SET^IBCSC4D DX+15
$$SELENT^IBTRH5D SELTOO+55
$$LJ^XLFSTR SELTOO+22, SELTOO+26, SELTOO+28, SELTOO+30, SELTOO+32, SELTOO+34, SELTOO+36

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
Routine Call
  • DIE
  • Line Location:
    • UPD+2
    • REPACK+9
    • REPACK+10
    • ORAL+9
    • ORAL+13
    • ORAL+14
    • ORAL2+5
    • ORAL2+8
    • ORAL2+12
    • ORAL1+3
    • T1+8
    • T1+16
    • T2+6
Routine Call
  • DIE
  • Line Location:
    • SELTOO+48
    • SELTOO+69
Routine Call
  • DIR
  • Line Location:
    • TTYPE+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DX+11, ORAL+4, T1+12, SELTOO+15, SELTOO+19, DELSTI+14, DELSTI+16

Label References

Name Line Occurrences
$$NEXT ASKEM+10
$$SELTOO T1+1
$$TTYPE SELTOO+43, SELTOO+63
ASKEM DX+29, ASKEM+9, ASKEM+11
ASKEMQ ASKEM+5, ASKEM+8, ASKEM+10
DELSTI SELTOO+12, SELTOO+59
DISP DX+15
DXQ DX+4, DX+5, DX+12, DX+16
HELP1 ASKEM+9, ASKEM+11
NEXTQ NEXT+2, NEXT+3
ORAL1 ORAL1+1
ORAL2 ORAL2+2
REPACK DX+30
T1 T1+9, T1+19
T2 T1+2
TEXIT T1+3, T1+10, T1+18
UPD ASKEM+8, ASKEM+13

Naked Globals

Name Field # of Occurrence
^( ORAL+4
^(0 ORAL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SELTOO+9~, SELTOO+17*, SELTOO+18, SELTOO+21*, SELTOO+22, SELTOO+37, SELTOO+39
DA DX+7~, UPD+1*, UPD+2!, REPACK+2~, REPACK+8*, ORAL+4, ORAL2+2, ORAL2+8, ORAL2+11, ORAL1+1
, ORAL1+4!, ORAL1+6*, T1+5*, T1+9, T1+12, T2+1!*, TEXIT+1!*, DELSTI+7~, DELSTI+10*, DELSTI+21*
, TTYPE+5~
DA(1 UPD+1*, REPACK+8*, ORAL+4, ORAL2+2, ORAL2+8, ORAL2+11, ORAL1+1, ORAL1+6*, T1+5*, DELSTI+10*
, DELSTI+21*, TTYPE+6*
DA(2 T1+5*, DELSTI+10*, DELSTI+21*, TTYPE+6*
DEN1 ORAL+1~, T1+12*, T1+13
DIE DX+7~, UPD+1*, UPD+2!, REPACK+2~, REPACK+8*, T1+4*, T2+4*
DIK DELSTI+7~, DELSTI+11*, DELSTI+22*
DIR TTYPE+5~
DIR("A" TTYPE+7*
DIR(0 TTYPE+7*
DIROUT TTYPE+5~
DIRUT TTYPE+5~, TTYPE+10
DR UPD+2*!, REPACK+2~, REPACK+9*, REPACK+10*, ORAL+7*, ORAL+13*, ORAL+14*, ORAL2+5*, ORAL2+8*, ORAL2+12*
, ORAL1+3*, T1+8*, T1+16*, T2+2!, T2+3*
DTIME ASKEM+4
DTOUT TTYPE+5~
DUOUT TTYPE+5~
ENTNUM SELTOO+9~, SELTOO+57*, SELTOO+60
>> FDA( SELTOO+47*, SELTOO+68*
H1 SELTOO+9~, SELTOO+51*, SELTOO+55
H2 SELTOO+9~, SELTOO+52*, SELTOO+55
I DX+20*, DX+26*, NEXT+1~, NEXT+4*, ORAL+6*, ORAL+7
I1 ORAL+1~, T1+13*, T1+16
IBADIAG REPACK+2~
IBADIAG( REPACK+10
IBADIAG(1 REPACK+4*
IBADIAG(2 REPACK+5*
IBADIAG(3 REPACK+6*
IBADIAG(4 REPACK+7*
IBDATE DISP+1~, DISP+2*, DISP+4
IBDEF DX+9~, DX+20*, DX+21*, DX+22*, DX+26, ASKEM+2, NEXT+4
IBDX DX+9~, DX+15
IBDX( DX+19*, DX+21, ASKEM+11, ASKEM+12, ASKEM+13, HELP1+3
IBDX(0 DX+16
IBDXSCR DX+9~, DX+15
IBDXSCR( DX+19
IBFIELD UPD~, UPD+2, REPACK+2~, REPACK+10*
IBI DX+9~, DX+19*
IBIFN DX~, DX+4, DX+11, DX+15, DX+30, DISP+2, UPD+1, REPACK~, REPACK+3, REPACK+8
, ORAL1+6, T1+1, T1+4, T1+5, T1+12, T2+4, SELTOO~, SELTOO+12, SELTOO+15, SELTOO+19
, SELTOO+23, SELTOO+43, SELTOO+47, SELTOO+59, SELTOO+63, SELTOO+68, DELSTI~, DELSTI+10, DELSTI+14, DELSTI+16
, DELSTI+21, TTYPE~, TTYPE+6
IBLINE DX+9~
>> IBNEW T1+8, T1+9, SELTOO+10*, SELTOO+46*, SELTOO+66*
IBP ASKEM+1~, ASKEM+2*, ASKEM+3, ASKEM+8, ASKEM+13, NEXT+3
IBPIEN ORAL1+5*, ORAL1+6, T1+1, T1+4, T1+5, T1+12, SELTOO~, SELTOO+12, SELTOO+15, SELTOO+19
, SELTOO+23, SELTOO+43, SELTOO+47, SELTOO+59, SELTOO+63, SELTOO+68, DELSTI~, DELSTI+10, DELSTI+14, DELSTI+16
, DELSTI+21, TTYPE~, TTYPE+6
>> IBPOPOUT ORAL+5*, ORAL+6, ORAL+10*, ORAL+11, ORAL+13*, ORAL+14*, ORAL2+2, ORAL2+5*, ORAL2+9*, ORAL1+1
, ORAL1+3*, T1+3*, T1+10*, T1+13, T1+17*, T1+18, T2+7*, SELTOO+44, SELTOO+64, TTYPE+9*
IBPROC DX~, DX+5, DX+11, DX+30, UPD+1, REPACK~, REPACK+3, REPACK+8
IBPROCD DX+9~, DX+11*, DX+12, DX+20
IBPROMPT DX+9~, DX+29*, ASKEM+2, ASKEM+3, ASKEM+8, ASKEM+13, NEXT+2, NEXT+4
IBQUIT DX+9~, DX+29*, ASKEM+5*, ASKEM+10*
IBREPACK DX+10~*, DX+30, ASKEM+8*
>> IBTOO T1+1*, T1+2, T1+3, T1+5
IBUNIT ORAL+1~, ORAL+2*, ORAL+4*, SELTOO+18
>> IBUPOUT ORAL1+6*
IBVALUE UPD~, UPD+2
IBWIEN REPACK+3~*, REPACK+4, REPACK+5, REPACK+6, REPACK+7
IBX DISP+1~, DISP+4*, DISP+5, REPACK+2~, REPACK+10*
IBY DISP+1~, DISP+4*, DISP+5
IBZ DISP+1~, DISP+4*, DISP+5
IEN SELTOO+9~, SELTOO+17*, SELTOO+18, SELTOO+19*, SELTOO+20, SELTOO+23, SELTOO+37, DELSTI~, DELSTI+8*, DELSTI+9
, DELSTI+10
IENS SELTOO+9~, SELTOO+23*, SELTOO+24, SELTOO+27, SELTOO+29, SELTOO+31, SELTOO+33, SELTOO+35
J DX+10~, DX+21*
L1 SELTOO+9~, SELTOO+53*, SELTOO+55
L2 SELTOO+9~, SELTOO+54*, SELTOO+55
MAX SELTOO+9~, SELTOO+16*, SELTOO+55
ODA ORAL+1~, ORAL1+4*, ORAL1+5, T2+1!, TEXIT+1
QUIT ORAL+1~
RETIEN SELTOO+9~
RETIEN( SELTOO+39, SELTOO+62
RETIEN(0 SELTOO+39, SELTOO+62
SECT SELTOO+9~, SELTOO+10*, SELTOO+55
TDATA SELTOO+9~
TIDATA SELTOO+9~, SELTOO+55
TIDATA( SELTOO+37*, SELTOO+58, SELTOO+70
TIIEN DELSTI+7~, DELSTI+14*, DELSTI+15, DELSTI+16, DELSTI+21
TTYPE SELTOO+9~, SELTOO+43*, SELTOO+45, SELTOO+46, SELTOO+47, SELTOO+63*, SELTOO+65, SELTOO+67, SELTOO+68
U DX+19, DX+20, DX+21, DISP+5
X DX+20*, DX+21, DX+26*, DISP~, ASKEM+4*, ASKEM+5, ASKEM+8, ASKEM+9, ASKEM+10, ASKEM+11
, ASKEM+12, ASKEM+13, HELP1+1~, HELP1+3*, NEXT+1~*, NEXT+3*, NEXT+4*, NEXTQ, ORAL+6, T1+13
, SELTOO+9~, DELSTI+7~, TTYPE+5~
X( DISP+4
X1 ORAL+1~, ORAL+4*
XX SELTOO+9~, SELTOO+15*, SELTOO+16, SELTOO+22*, SELTOO+26*, SELTOO+28*, SELTOO+30*, SELTOO+32*, SELTOO+34*, SELTOO+36*
, SELTOO+37, SELTOO+39, SELTOO+45*, SELTOO+46*, SELTOO+55*, SELTOO+56, SELTOO+57*, SELTOO+58*, SELTOO+59, SELTOO+61
, SELTOO+62, SELTOO+65*, SELTOO+67*, SELTOO+70, DELSTI+7~, DELSTI+16*, DELSTI+18, DELSTI+19*, DELSTI+20
Y ORAL+10, ORAL+13, ORAL+14, ORAL2+5, ORAL2+9, ORAL1+3, T1+10, T1+17, T2+7, SELTOO+9~
, DELSTI+7~, TTYPE+5~, TTYPE+9, TTYPE+11
YY SELTOO+9~, SELTOO+24*, SELTOO+25*, SELTOO+26, SELTOO+27*, SELTOO+28, SELTOO+29*, SELTOO+30, SELTOO+31*, SELTOO+32
, SELTOO+33*, SELTOO+34, SELTOO+35*, SELTOO+36
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All