IBCU7 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ;29-OCT-91
Source file <IBCU7.m>
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 |
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+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 |
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 |
>> | 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* |