IBCU7 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91
Source file <IBCU7.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 16 | ($$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 EN^IBCU7C ($$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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 10 | IB SCREEN7 IB SCREEN8 IBCCPT IBCD3 IBCSC4 IBCSC5 IBXS74 IBXSC79 ^DGCR(399 PROCEDURES |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
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+8, ASKCOD+3, ASKCOD+4*, ASKCOD+85, ASKCOD+109, ASKCOD+116 , 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+110 |
^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 |
Name | Line Occurrences |
---|---|
$$ADDTNL | ASKCOD+104 |
$$DEFDIV | ASKCOD+76 |
$$NOC | NOCPROC+20, NOCPROC+27 |
$$NOCPROC | ASKCOD+65 |
$$SPCUNIT | ASKCOD+99 |
$$TM | NOCPROC+26 |
ADDTNLQ | ADDTNL+6 |
ASKCOD | CODDT+1, CODDT+12 |
ATTACH | ASKCOD+97, ADDTNL+5 |
CHKXQ | CHKX+1, CHKX+2, CHKX+5 |
CODDT | CODDT+14 |
CODHLP | CODDT+5 |
CODQ | CODDT+5 |
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DELASK*, DELASK+1, DELASK+2! |
%DT | CODDT+9*!, CODQ! |
%DT(0 | CODDT+9* |
%Y | DELASK+1, DELASK+2! |
DA | DELASK+2!, ASKCOD~, ASKCOD+52*, ASKCOD+58*, ASKCOD+66*, ASKCOD+79*, ASKCOD+88!, ASKCOD+89*, ASKCOD+104, ASKCOD+109 , ASKCOD+116*, 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+89*, ASKCOD+116*, DELPROC+3*, DELADD+1*, DELADD+3, DELADD+4, ATTACH+9*, ATTACH+10 , ORALCAV+10, TOOTHS+11 |
DA(2 | ASKCOD+116*, TOOTHS+11 |
DFN | SPCUNIT+1~, SPCUNIT+2*, SPCUNIT+6 |
DGADDVST | ASKCOD+3*, ASKCOD+26*, ASKCOD+114!, CODQ+1! |
DGCPT | CODDT+12, ASKCOD+2!, ASKCOD+3*, ASKCOD+112*, CODQ+1! |
DGCPT( | ASKCOD+112* |
DGCPTNEW | ASKCOD+22*, ASKCOD+23, ASKCOD+25, ASKCOD+26, ASKCOD+111*, ASKCOD+112, CODQ+1! |
DGCPTUP | ASKCOD+3*, ASKCOD+112, CODQ+1! |
DGNOADD | ASKCOD+114!, CODQ+1! |
DGNODUU | DTMES+1*, DTMES+2, DTMES+4, DTMES+5, DTMESQ! |
DGPROC | ASKCOD+109*, ASKCOD+110, ASKCOD+111, ASKCOD+112, CODQ! |
DGPROCDT | CHKX+8*, CODDT+1*, CODDT+7, CODDT+8*, CODDT+11*, ASKCOD+21, ASKCOD+65, ASKCOD+114, CODQ!, DELPROC+1 |
>> DGRVRCAL | DELADD+5* |
DIC | ASKCOD+10*, ASKCOD+52, ASKCOD+58, ASKCOD+79, 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+58*, ASKCOD+79*, ASKCOD+89*, CODQ!, DELADD+3*, ATTACH+2~, ATTACH+10* |
DIK | DELASK+2!, ASKCOD+116*, DELPROC+3*, DELADD~, DELADD+4* |
DINUM | ASKCOD+114*! |
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+58*!, ASKCOD+61*, ASKCOD+67*, ASKCOD+74!, ASKCOD+76*, ASKCOD+79*, ASKCOD+80!, ASKCOD+92* , ASKCOD+99*, CODQ!, DELADD+3*, ADDTNL+1~, ADDTNL+3*, ADDTNL+14*, ATTACH+2~, ATTACH+11* |
DT | CODDT+9 |
DTIME | CODDT+5 |
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+65, 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+6*, CODDT+9*, CODDT+10*, CODDT+12, CODDT+13! |
IBFT | ASKCOD+3*, ASKCOD+79, ASKCOD+87, ASKCOD+97, ASKCOD+101, ASKCOD+104, ASKCOD+107, CODQ+1!, SPCUNIT+1~, SPCUNIT+2* , SPCUNIT+7 |
IBIFN | DELASK, CODDT, CODDT+1, CODDT+2, CODDT+3, CODDT+8, CODDT+10, CODDT+11, ASKCOD+3, ASKCOD+4 , ASKCOD+10, ASKCOD+14, ASKCOD+20, ASKCOD+25, ASKCOD+55, ASKCOD+76, ASKCOD+85, ASKCOD+89, ASKCOD+97, ASKCOD+99 , ASKCOD+102, ASKCOD+104, ASKCOD+105, ASKCOD+109, ASKCOD+116, 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 |
IBINDTS | CODDT+3~*, CODDT+4 |
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+75 |
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+58*, ASKCOD+59, ASKCOD+79*, ASKCOD+85, ASKCOD+89, ASKCOD+99, ASKCOD+102 , CODQ!, ATTACH+9 |
IBPROCSV | ASKCOD+48~, ASKCOD+49*, ASKCOD+52, ASKCOD+55, ASKCOD+58, ASKCOD+65, ASKCOD+66, ASKCOD+72, ASKCOD+73!, 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+11, 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, CODDT+4, ASKCOD+4, ASKCOD+17, ASKCOD+20, ASKCOD+21 , ASKCOD+55, ASKCOD+58, ASKCOD+79, ASKCOD+85, ASKCOD+110, ASKCOD+116, 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+5*, CODDT+7, CODDT+8, CODDT+11*, ASKCOD+104* , ASKCOD+110*, ASKCOD+112, ASKCOD+114*!, DELADD~, DTMES+2, DTMES+6!, ADDTNL+1~, ATTACH+2~ |
Y | CHKX+8*, CODDT+7*, CODDT+8*, CODDT+9, CODDT+10, CODDT+11, ASKCOD+15, ASKCOD+16, ASKCOD+17, ASKCOD+20 , ASKCOD+21, ASKCOD+22, ASKCOD+25, ASKCOD+49, ASKCOD+52, ASKCOD+58, ASKCOD+72*, ASKCOD+76, ASKCOD+79, 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~*, CODDT+4, ASKCOD~, ASKCOD+116*, DELADD~, DELADD+3*, CODHLP+3*, CODHLP+11! |
Z0 | CODDT+3~, CODDT+4*, CODDT+5, ASKCOD~, ASKCOD+116*, DELADD~, DELADD+3* |