SDOECPT ;ALB/MJK - ACRP CPT APIs For An Encounter ;8/12/96
Source file <SDOECPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPT(SDOE,SDERR) | ; -- SDOE ASSIGNED A PROCEDURE
; API ID: 65 |
|
| CPTQ | ||
| GETCPT(SDOE,SDCPT,SDERR) | ; -- SDOE GET PROCEDURES
; API ID: 61 |
|
| GETCPTG | ; -- goto entry point
; -- do validation checks |
|
| GETCPTQ | ||
| FINDCPT(SDOE,SDCPTID,SDERR) | ; -- SDOE FIND PROCEDURE
; API ID: 71 |
|
| FINDCPTQ | ||
| VALCPT(SDCPTID,SDERR) | ; -- validate CPT input
|
|
| OLDCPT(SDOE) | ; -- at least one cpt for OLD encounter?
|
|
| OLDCPTS(SDOE,SDARY) | ; -- get cpt's for OLD encounter
|
|
| COUNT(SDOE,SDZARY) | ; -- count/find cpt's for OLD encounter
|
