IBDF18E0 ;ALB/CJM - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94
Source file <IBDF18E0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETPXCA | ;set values from TEMP() into the PXCA()
|
|
| OTHRBUB | ; -- check procedure and diagnosis node for other bubble, but no data
|
|
| PRO | ; -- make sure diagnosis code is added to DIAGNOSIS/PROBLEM node
|
|
| CODES | ; -- if addt'l codes to pass and qual is prim or sec, send 2nd code
|
|
| TRACKING(FORMID) | ;get form tracking info,sets FORMID array, which should be pass
|
|
| SC | ; -- if SC answered yes then all other classifications = null
|
|
| INPT(DFN,APPT) | ; -- determine inpatient status
|
|
| MODPXCA | ; -- copy CPT Modifier information from TEMP to PXCA
|
|
| VSTPXCA | ; -- copy CPT Modifier information from TEMP to PXCA for Visit
|
