IBJPS8 ;AITC/WCJ - IB Site Parameters, CMN CPT Inclusions CPT Codes ;02-Feb-2018
Source file <IBJPS8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJP IB CMN CPTS
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| RTADD(IBTCFLAG) | ; -- Add a new CPT Codes
|
|
| RTADD1 | ; Looping tag for Adding CPT Codes
|
|
| RTDEL | ; -- Delete a CPT Coode
|
|
| RTDEL1 | ; Looping tag for deleting CPT Codes
|
|
| SET(IBLN,IBSTR) | ; -- Add a line to display list
; returns line number added |
|
| CMNPRMT(IBXIEN,IBPROCP,CPTIEN) | ;JRA Determine if procedure requires prompting for CMN Info
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | Classic Fileman Calls |
| ^ICPT - [#81] | GETS^DIQ |