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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Integrated Billing 15 ($$BDATE,$$CPTACT,$$ICD0ACT)^IBACSV  ($$FT,$$INPAT)^IBCEF  VFILE1^IBCOPV1  $$ITMUNIT^IBCRU4  $$RXLINK^IBCSC5C  $$PRCNM^IBCSCH1  ($$OPV,$$OPV2)^IBCU41  ($$PRCDIV,ADDCPT)^IBCU71  
(DX,ORAL)^IBCU72  ($$OBSHOUR,DATA,SROMIN)^IBCU74  CMN^IBCU75  EN^IBCU7B  ($$GETMOD,$$GETSPEC)^IBEFUNC  $$CMNPRMT^IBJPS8  $$DAT1^IBOUTL  
VA FileMan 8 ^%DT  EN^DDIOL  ^DIC  YN^DICN  ^DIE  ^DIK  (D,DT)^DIQ  ^DIR  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 10 IB SCREEN7  IB SCREEN8  IBCCPT  IBCD3  IBCSC4  IBCSC5  IBXS74  IBXSC79  
^DGCR(399  PROCEDURES  

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

External References

Name Field # of Occurrence
^%DT CODDT+8
EN^DDIOL CHKX+4
^DIC ASKCOD+15
YN^DICN DELASK+1
^DIE ASKCOD+52, ASKCOD+57, ASKCOD+66, ASKCOD+77, ASKCOD+92, ASKCOD+97, DELADD+3, ADDTNL+3, ADDTNL+16, ATTACH+12
^DIK ASKCOD+114, DELPROC+4, DELADD+4
D^DIQ CODDT+6, CODDT+7
DT^DIQ CODHLP+8
^DIR ATTACH+5
$$BDATE^IBACSV ASKCOD+20
$$CPTACT^IBACSV ASKCOD+21
$$ICD0ACT^IBACSV ASKCOD+20
$$FT^IBCEF ASKCOD+55, ADDTNL+5
$$INPAT^IBCEF CHKX+2, ASKCOD+25, ASKCOD+95, ASKCOD+103, ADDTNL+5
VFILE1^IBCOPV1 ASKCOD+112
$$ITMUNIT^IBCRU4 SPCUNIT+4, SPCUNIT+5, SPCUNIT+6
$$RXLINK^IBCSC5C ASKCOD+83
$$PRCNM^IBCSCH1 CODHLP+3
$$OPV^IBCU41 CODDT+10
$$OPV2^IBCU41 CODDT+9
$$PRCDIV^IBCU71 CODDT+2
ADDCPT^IBCU71 CODDT+11
DX^IBCU72 ASKCOD+100
ORAL^IBCU72 ASKCOD+105
$$OBSHOUR^IBCU74 SPCUNIT+6
DATA^IBCU74 ASKCOD+25
SROMIN^IBCU74 SPCUNIT+4
CMN^IBCU75 ASKCOD+55
EN^IBCU7B ASKCOD+69
$$GETMOD^IBEFUNC CODHLP+6
$$GETSPEC^IBEFUNC ASKCOD+4
$$CMNPRMT^IBJPS8 ASKCOD+55
$$DAT1^IBOUTL DELPROC+1
$$CPT^ICPTCOD ASKCOD+17, NOCPROC+18
$$CPTD^ICPTCOD NOCPROC+23
$$FMTE^XLFDT CODDT+3

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+4
Function Call: WRITE
  • Prompt: !,"Select PROCEDURE DATE"_$S($TR(Z0,"-")'="":" ("_Z0_")",1:"")_": " R X:DTIME G:'$T!("^"[X)
  • Line Location: CODDT+4
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: CODDT+6
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: CODDT+7
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
Routine Call
  • DIC
  • Line Location:
    • ASKCOD+15
Routine Call
  • DIE
  • Line Location:
    • ASKCOD+52
    • ASKCOD+57
    • ASKCOD+66
    • ASKCOD+77
    • ASKCOD+92
    • ASKCOD+97
    • DELADD+3
    • ADDTNL+3
    • ADDTNL+16
    • ATTACH+12
Routine Call
  • DIR
  • Line Location:
    • ATTACH+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHKX+8, DTMES+4, DTMES+5
^DG(40.8 - [#40.8] DEFDIV+1
^DGCR(399 - [#399] DELASK, CODDT, CODDT+1, CODDT+3, CODDT+7, ASKCOD+3, ASKCOD+4*, ASKCOD+83, ASKCOD+107, ASKCOD+114
, DELADD+3, DELADD+4, DTMES+1, CODHLP+2, CODHLP+3, DICV, DEFDIV+1, SPCUNIT+2, SPCUNIT+3, ORALCAV+10
, TOOTHS+11
^IBA(362.3 - [#362.3] ASKCOD+108
^IBE(350.9 - [#350.9] CHKX+2, ASKCOD+3
^IBE(353.2 - [#353.2] SPCUNIT+7
^UTILITY($J CHKX+5, CHKX+7*, CHKX+8, CODDT+1, ASKCOD+25

Label References

Name Line Occurrences
$$ADDTNL ASKCOD+102
$$DEFDIV ASKCOD+74
$$NOC NOCPROC+20, NOCPROC+27
$$NOCPROC ASKCOD+63
$$SPCUNIT ASKCOD+97
$$TM NOCPROC+26
ADDTNLQ ADDTNL+6
ASKCOD CODDT+1, CODDT+11
ATTACH ASKCOD+95, ADDTNL+5
CHKXQ CHKX+1, CHKX+2, CHKX+5
CODDT CODDT+13
CODHLP CODDT+4
CODQ CODDT+4
DELADD DELASK+1
DELASK DELASK+1
DELPROC ASKCOD+23
DICV ASKCOD+8
DTMESQ DTMES+2
NOCPROCQ NOCPROC+5, NOCPROC+6, NOCPROC+7, NOCPROC+9, NOCPROC+13, NOCPROC+20
SPCUNTQ SPCUNIT+3, SPCUNIT+4, SPCUNIT+5, SPCUNIT+6

Naked Globals

Name Field # of Occurrence
^( ASKCOD+114, DELADD+3, CODHLP+3
^("U" DTMES+1
^(0 CODDT, DICV
^(1 CHKX+8, CODDT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DELASK*, DELASK+1, DELASK+2!
%DT CODDT+8*!, CODQ!
%DT(0 CODDT+8*
%Y DELASK+1, DELASK+2!
DA DELASK+2!, ASKCOD~, ASKCOD+52*, ASKCOD+57*, ASKCOD+64*, ASKCOD+77*, ASKCOD+86!, ASKCOD+87*, ASKCOD+102, ASKCOD+107
, ASKCOD+114*, DELPROC+3*, DELADD~, DELADD+3*, DELADD+4*, ADDTNL~, SPCUNIT~, SPCUNIT+3, SPCUNIT+4, ATTACH+2~
, ATTACH+9*, ORALCAV+10, TOOTHS+11
DA(1 CHKX+2, ASKCOD+14*, ASKCOD+87*, ASKCOD+114*, DELPROC+3*, DELADD+1*, DELADD+3, DELADD+4, ATTACH+9*, ATTACH+10
, ORALCAV+10, TOOTHS+11
DA(2 ASKCOD+114*, TOOTHS+11
DFN SPCUNIT+1~, SPCUNIT+2*, SPCUNIT+6
DGADDVST ASKCOD+3*, ASKCOD+26*, ASKCOD+112!, CODQ+1!
DGCPT CODDT+11, ASKCOD+2!, ASKCOD+3*, ASKCOD+110*, CODQ+1!
DGCPT( ASKCOD+110*
DGCPTNEW ASKCOD+22*, ASKCOD+23, ASKCOD+25, ASKCOD+26, ASKCOD+109*, ASKCOD+110, CODQ+1!
DGCPTUP ASKCOD+3*, ASKCOD+110, CODQ+1!
DGNOADD ASKCOD+112!, CODQ+1!
DGNODUU DTMES+1*, DTMES+2, DTMES+4, DTMES+5, DTMESQ!
DGPROC ASKCOD+107*, ASKCOD+108, ASKCOD+109, ASKCOD+110, CODQ!
DGPROCDT CHKX+8*, CODDT+1*, CODDT+6, CODDT+7*, CODDT+10*, ASKCOD+21, ASKCOD+63, ASKCOD+112, CODQ!, DELPROC+1
>> DGRVRCAL DELADD+5*
DIC ASKCOD+10*, ASKCOD+52, ASKCOD+57, ASKCOD+77, CODQ!
DIC("A" ASKCOD+9*
DIC("DR" ASKCOD+13*
DIC("S" ASKCOD+12*
DIC("V" CODDT*, ASKCOD+46!, DICV*
DIC(0 ASKCOD+11*
DIE ASKCOD+52*, ASKCOD+57*, ASKCOD+77*, ASKCOD+87*, CODQ!, DELADD+3*, ATTACH+2~, ATTACH+10*
DIK DELASK+2!, ASKCOD+114*, DELPROC+3*, DELADD~, DELADD+4*
DINUM ASKCOD+112*!
DIR ADDTNL+1~, ATTACH+2~
DIR("A" ATTACH+3*
DIR("B" ATTACH+4*
DIR(0 ATTACH+4*
DLAYGO ASKCOD+14*, CODQ!
DR ASKCOD+50!, ASKCOD+52*!, ASKCOD+57*!, ASKCOD+59*, ASKCOD+65*, ASKCOD+72!, ASKCOD+74*, ASKCOD+77*, ASKCOD+78!, ASKCOD+90*
, ASKCOD+97*, CODQ!, DELADD+3*, ADDTNL+1~, ADDTNL+3*, ADDTNL+14*, ATTACH+2~, ATTACH+11*
DT CODDT+8
DTIME CODDT+4
FLD ORALCAV~, ORALCAV+15, ORALCAV+20, ORALCAV+25, ORALCAV+30, ORALCAV+35, TOOTHS~, TOOTHS+16, TOOTHS+21, TOOTHS+26
, TOOTHS+31, TOOTHS+36
I CODHLP+1~, CODHLP+3*, CODHLP+6
IB0 SPCUNIT+1~, SPCUNIT+2*
IBACT ASKCOD~, ASKCOD+19*, ASKCOD+20*, ASKCOD+21*, ASKCOD+23, ASKCOD+24
IBCODE ASKCOD~, ASKCOD+17*, ASKCOD+63, NOCPROC~, NOCPROC+6, NOCPROC+13, NOCPROC+18, NOCPROC+23
IBCPT SPCUNIT+1~, SPCUNIT+3*, SPCUNIT+4, SPCUNIT+5, SPCUNIT+6, SPCUNIT+7
IBCT SPCUNIT+1~, SPCUNIT+2*, SPCUNIT+4, SPCUNIT+5, SPCUNIT+6
IBDATE NOCPROC~, NOCPROC+7, NOCPROC+18, NOCPROC+23
IBDR SPCUNIT+1~*, SPCUNIT+4*, SPCUNIT+5*, SPCUNIT+6*, SPCUNIT+7*, SPCUNTQ
IBEND NOCPROC+3~, NOCPROC+24*, NOCPROC+25
IBEX CODDT+5*, CODDT+8*, CODDT+9*, CODDT+11, CODDT+12!
IBFT ASKCOD+3*, ASKCOD+77, ASKCOD+85, ASKCOD+95, ASKCOD+99, ASKCOD+102, ASKCOD+105, CODQ+1!, SPCUNIT+1~, SPCUNIT+2*
, SPCUNIT+7
IBIFN DELASK, CODDT, CODDT+1, CODDT+2, CODDT+3, CODDT+7, CODDT+9, CODDT+10, ASKCOD+3, ASKCOD+4
, ASKCOD+10, ASKCOD+14, ASKCOD+20, ASKCOD+25, ASKCOD+55, ASKCOD+74, ASKCOD+83, ASKCOD+87, ASKCOD+95, ASKCOD+97
, ASKCOD+100, ASKCOD+102, ASKCOD+103, ASKCOD+107, ASKCOD+114, DELPROC+3, DELADD+1, DELADD+3, DTMES+1, CODHLP+2
, CODHLP+3, CODHLP+6, DICV, DEFDIV~, DEFDIV+1, ADDTNL~, ADDTNL+5, SPCUNIT~, SPCUNIT+2, SPCUNIT+3
, SPCUNIT+4, ATTACH+9
IBINFO NOCPROCQ+1!
IBINFO( NOCPROC+26
IBLINES NOCPROC+3~, NOCPROC+23*, NOCPROC+24
IBLN NOCPROC+3~, NOCPROC+25*, NOCPROC+26
IBLNPRV ASKCOD~, ASKCOD+25
IBMOD CODHLP+1~, CODHLP+6*, CODHLP+7*
IBNOC NOCPROC+3~, NOCPROC+4*, NOCPROC+13*, NOCPROC+20*, NOCPROC+25, NOCPROC+27*, NOCPROCQ+2
IBOK ADDTNL+1~, ADDTNL+2*, ADDTNL+6*, ADDTNLQ
IBPIEN ASKCOD~, ASKCOD+17*
IBPOPOUT ASKCOD+1~*, ASKCOD+7*, ASKCOD+73
IBPROCEX NOCPROC+3~
IBPROCIN NOCPROC+3~, NOCPROC+8*, NOCPROC+9
IBPROCNM NOCPROC+3~, NOCPROC+18*, NOCPROC+19*, NOCPROC+20
IBPROCP ASKCOD+16*, ASKCOD+52*, ASKCOD+55, ASKCOD+57*, ASKCOD+77*, ASKCOD+83, ASKCOD+87, ASKCOD+97, ASKCOD+100, CODQ!
, ATTACH+9
IBPROCSV ASKCOD+48~, ASKCOD+49*, ASKCOD+52, ASKCOD+55, ASKCOD+57, ASKCOD+63, ASKCOD+64, ASKCOD+70, ASKCOD+71!, NOCPROC~
, NOCPROC+5, NOCPROC+8
IBPRV ASKCOD+27~
IBPRVN ASKCOD+27~
IBPRVO ASKCOD+27~
IBQUIT ASKCOD~, ASKCOD+6*, ASKCOD+15*
IBSTR NOCPROC+3~, NOCPROC+26~*, NOCPROC+27
IBTEXT NOC~, NOC+2*, NOC+4, NOC+5, NOC+6, NOC+7, NOC+8, NOC+9, NOC+10, NOC+11
, NOC+12, NOC+13, NOC+14, NOC+15, NOC+16, NOC+17, NOC+18, NOC+19, NOC+20, NOC+21
, NOC+22, NOC+26*
IBX NOCPROC+3~, TM~, TM+1*, TM+2*, TM+3*, TM+4
IBY CODHLP+4~, CODHLP+5*, CODHLP+8, TM~, TM+1*, TM+2, TM+3
IBZ20 DELASK, DELASK+2!
IBZTYPE CODDT+1*, CODDT+10, CODQ+1!
J CODHLP+1~
>> M CHKX+7*, CHKX+8
>> N CHKX+7*
NDE ORALCAV+9~, ORALCAV+10*, ORALCAV+16, ORALCAV+17, ORALCAV+18, ORALCAV+19, ORALCAV+21, ORALCAV+22, ORALCAV+23, ORALCAV+24
, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29, ORALCAV+31, ORALCAV+32, ORALCAV+33, ORALCAV+34, ORALCAV+36, ORALCAV+37
, ORALCAV+38, ORALCAV+39, TOOTHS+10~, TOOTHS+11*, TOOTHS+17, TOOTHS+18, TOOTHS+19, TOOTHS+20, TOOTHS+22, TOOTHS+23
, TOOTHS+24, TOOTHS+25, TOOTHS+27, TOOTHS+28, TOOTHS+29, TOOTHS+30, TOOTHS+32, TOOTHS+33, TOOTHS+34, TOOTHS+35
, TOOTHS+37, TOOTHS+38, TOOTHS+39, TOOTHS+40
>> P CHKX+7*
RTN ORALCAV+9~, ORALCAV+11*, ORALCAV+15, ORALCAV+16*, ORALCAV+17*, ORALCAV+18*, ORALCAV+19*, ORALCAV+20, ORALCAV+21*, ORALCAV+22*
, ORALCAV+23*, ORALCAV+24*, ORALCAV+25, ORALCAV+26*, ORALCAV+27*, ORALCAV+28*, ORALCAV+29*, ORALCAV+30, ORALCAV+31*, ORALCAV+32*
, ORALCAV+33*, ORALCAV+34*, ORALCAV+35, ORALCAV+36*, ORALCAV+37*, ORALCAV+38*, ORALCAV+39*, ORALCAV+40, TOOTHS+10~, TOOTHS+12*
, TOOTHS+16, TOOTHS+17*, TOOTHS+18*, TOOTHS+19*, TOOTHS+20*, TOOTHS+21, TOOTHS+22*, TOOTHS+23*, TOOTHS+24*, TOOTHS+25*
, TOOTHS+26, TOOTHS+27*, TOOTHS+28*, TOOTHS+29*, TOOTHS+30*, TOOTHS+31, TOOTHS+32*, TOOTHS+33*, TOOTHS+34*, TOOTHS+35*
, TOOTHS+36, TOOTHS+37*, TOOTHS+38*, TOOTHS+39*, TOOTHS+40*, TOOTHS+41
>> S CHKX+7*
U CHKX+7, DELASK, CODDT, CODDT+2, CODDT+3, ASKCOD+4, ASKCOD+17, ASKCOD+20, ASKCOD+21, ASKCOD+55
, ASKCOD+77, ASKCOD+83, ASKCOD+108, ASKCOD+114, DELADD+3, CODHLP+5, DICV, DEFDIV+1, SPCUNIT+2, SPCUNIT+6
, SPCUNIT+7, NOCPROC+8, NOCPROC+19
X CHKX+1, CHKX+2, CHKX+3!, CHKX+7*, CODDT+2*, CODDT+4*, CODDT+6, CODDT+7, CODDT+10*, ASKCOD+102*
, ASKCOD+108*, ASKCOD+110, ASKCOD+112*!, DELADD~, DTMES+2, DTMES+6!, ADDTNL+1~, ATTACH+2~
Y CHKX+8*, CODDT+6*, CODDT+7*, CODDT+8, CODDT+9, CODDT+10, ASKCOD+15, ASKCOD+16, ASKCOD+17, ASKCOD+20
, ASKCOD+21, ASKCOD+22, ASKCOD+25, ASKCOD+49, ASKCOD+52, ASKCOD+57, ASKCOD+70*, ASKCOD+74, ASKCOD+77, DELPROC+3
, DELADD~, DTMES+4*, DTMES+5*, DTMES+6!, CODHLP+1~, CODHLP+3*, CODHLP+5, CODHLP+8*, ADDTNL+1~, ADDTNL+6
, XTRA1~, XTRA1+1!, ATTACH+2~, ATTACH+6, ORALCAV+12, ORALCAV+16, ORALCAV+17, ORALCAV+18, ORALCAV+19, ORALCAV+21
, ORALCAV+22, ORALCAV+23, ORALCAV+24, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29, ORALCAV+31, ORALCAV+32, ORALCAV+33
, ORALCAV+34, ORALCAV+36, ORALCAV+37, ORALCAV+38, ORALCAV+39, TOOTHS+13, TOOTHS+17, TOOTHS+18, TOOTHS+19, TOOTHS+20
, TOOTHS+22, TOOTHS+23, TOOTHS+24, TOOTHS+25, TOOTHS+27, TOOTHS+28, TOOTHS+29, TOOTHS+30, TOOTHS+32, TOOTHS+33
, TOOTHS+34, TOOTHS+35, TOOTHS+37, TOOTHS+38, TOOTHS+39, TOOTHS+40
Z CODDT+3~*, ASKCOD~, ASKCOD+114*, DELADD~, DELADD+3*, CODHLP+3*, CODHLP+11!
Z0 CODDT+3~*, CODDT+4, ASKCOD~, ASKCOD+114*, DELADD~, DELADD+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All