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 |