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
|