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+87, ASKCOD+113, ASKCOD+120 , 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+114 |
| ^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+108 |
| $$DEFDIV | ASKCOD+78 |
| $$NOC | NOCPROC+20, NOCPROC+27 |
| $$NOCPROC | ASKCOD+67 |
| $$SPCUNIT | ASKCOD+101 |
| $$TM | NOCPROC+26 |
| ADDTNLQ | ADDTNL+7, ADDTNL+11 |
| ASKCOD | CODDT+1, CODDT+12 |
| ATTACH | ASKCOD+99, ADDTNL+10 |
| 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+61*, ASKCOD+68*, ASKCOD+81*, ASKCOD+90!, ASKCOD+91*, ASKCOD+108 , ASKCOD+113, ASKCOD+120*, 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+91*, ASKCOD+120*, DELPROC+3*, DELADD+1*, DELADD+3, DELADD+4, ATTACH+9*, ATTACH+10 , ORALCAV+10, TOOTHS+11 |
| DA(2 | ASKCOD+120*, TOOTHS+11 |
| DFN | SPCUNIT+1~, SPCUNIT+2*, SPCUNIT+6 |
| DGADDVST | ASKCOD+3*, ASKCOD+26*, ASKCOD+118!, CODQ+1! |
| DGCPT | CODDT+12, ASKCOD+2!, ASKCOD+3*, ASKCOD+116*, CODQ+1! |
| DGCPT( | ASKCOD+116* |
| DGCPTNEW | ASKCOD+22*, ASKCOD+23, ASKCOD+25, ASKCOD+26, ASKCOD+115*, ASKCOD+116, CODQ+1! |
| DGCPTUP | ASKCOD+3*, ASKCOD+116, CODQ+1! |
| DGNOADD | ASKCOD+118!, CODQ+1! |
| DGNODUU | DTMES+1*, DTMES+2, DTMES+4, DTMES+5, DTMESQ! |
| DGPROC | ASKCOD+113*, ASKCOD+114, ASKCOD+115, ASKCOD+116, CODQ! |
| DGPROCDT | CHKX+8*, CODDT+1*, CODDT+7, CODDT+8*, CODDT+11*, ASKCOD+21, ASKCOD+67, ASKCOD+118, CODQ!, DELPROC+1 |
| >> DGRVRCAL | DELADD+5* |
| DIC | ASKCOD+10*, ASKCOD+52, ASKCOD+58, ASKCOD+61, ASKCOD+81, 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+61*, ASKCOD+81*, ASKCOD+91*, CODQ!, DELADD+3*, ATTACH+2~, ATTACH+10* |
| DIK | DELASK+2!, ASKCOD+120*, DELPROC+3*, DELADD~, DELADD+4* |
| DINUM | ASKCOD+118*! |
| 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+63*, ASKCOD+69*, ASKCOD+76!, ASKCOD+78*, ASKCOD+81*, ASKCOD+82! , ASKCOD+94*, ASKCOD+101*, CODQ!, DELADD+3*, ADDTNL+1~, ADDTNL+3*, ADDTNL+5*, ADDTNL+19*, 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+67, 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+81, ASKCOD+89, ASKCOD+99, ASKCOD+103, ASKCOD+111, 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+78, ASKCOD+87, ASKCOD+91, ASKCOD+99, ASKCOD+101 , ASKCOD+104, ASKCOD+108, ASKCOD+109, ASKCOD+113, ASKCOD+120, DELPROC+3, DELADD+1, DELADD+3, DTMES+1, CODHLP+2 , CODHLP+3, CODHLP+6, DICV, DEFDIV~, DEFDIV+1, ADDTNL~, ADDTNL+5, ADDTNL+7, ADDTNL+10, 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+11*, ADDTNLQ |
| IBPIEN | ASKCOD~, ASKCOD+17* |
| IBPOPOUT | ASKCOD+1~*, ASKCOD+7*, ASKCOD+77 |
| 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+81*, ASKCOD+87, ASKCOD+91, ASKCOD+101, ASKCOD+104 , CODQ!, ATTACH+9 |
| IBPROCSV | ASKCOD+48~, ASKCOD+49*, ASKCOD+52, ASKCOD+55, ASKCOD+58, ASKCOD+61, ASKCOD+67, ASKCOD+68, ASKCOD+74, ASKCOD+75! , 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+61, ASKCOD+81, ASKCOD+87, ASKCOD+114, ASKCOD+120, 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+108* , ASKCOD+114*, ASKCOD+116, ASKCOD+118*!, 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+74*, ASKCOD+78, ASKCOD+81, DELPROC+3 , DELADD~, DTMES+4*, DTMES+5*, DTMES+6!, CODHLP+1~, CODHLP+3*, CODHLP+5, CODHLP+8*, ADDTNL+1~, ADDTNL+11 , 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+120*, DELADD~, DELADD+3*, CODHLP+3*, CODHLP+11! |
| Z0 | CODDT+3~, CODDT+4*, CODDT+5, ASKCOD~, ASKCOD+120*, DELADD~, DELADD+3* |