SDOEDX ;ALB/MJK - ACRP DX APIs For An Encounter ;8/12/96
Source file <SDOEDX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DX(SDOE,SDERR) | ; -- SDOE ASSIGNED A DIAGNOSIS
; API ID: 64 |
|
DXQ | ||
GETDX(SDOE,SDDX,SDERR) | ; -- SDOE GET DIAGNOSES
; API ID: 56 |
|
GETDXG | ; -- goto entry point
|
|
GETDXQ | ||
FINDDX(SDOE,SDDXID,SDERR) | ; -- SDOE FIND DIAGNOSIS
; API ID: 70 |
|
FINDDXQ | ||
GETPDX(SDOE,SDERR) | ; -- SDOE GET PRIMARY DIAGNOSIS
; API ID: 73 |
|
GETPDXQ | ||
VALDX(SDDXID,SDOEDT,SDERR) | ; -- validate dx input
|
|
OLDDX(SDOE) | ; -- at least one dx for OLD encounter?
|
|
OLDDXS(SDOE,SDARY) | ; -- get DX's for OLD encounter
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | GET1^DIQ |