SDOEDX ;ALB/MJK - ACRP DX APIs For An Encounter ;8/12/96
Source file <SDOEDX.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 3 | $$VALOE^SDOEOE ($$OLD,$$VIEN)^SDOEUT BLD^SDQVAL |
DRG Grouper | 1 | $$ICDDX^ICDCODE |
PCE Patient Care Encounter | 1 | ($$DX,GETDX)^PXAPIOE |
Registration | 1 | PID^VADPT6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDXG | ; -- goto entry point
|
|
OLDDXS(SDOE,SDARY) | ; -- get DX's for OLD encounter
|
|
FINDDXQ | ||
VALDX(SDDXID,SDERR) | ; -- validate dx input
|
|
GETPDXQ | ||
GETPDX(SDOE,SDERR) | ; -- SDOE GET PRIMARY DIAGNOSIS
; API ID: 73 |
|
FINDDX(SDOE,SDDXID,SDERR) | ; -- SDOE FIND DIAGNOSIS
; API ID: 70 |
|
DX(SDOE,SDERR) | ; -- SDOE ASSIGNED A DIAGNOSIS
; API ID: 64 |
|
DXQ | ||
GETDXQ | ||
GETDX(SDOE,SDDX,SDERR) | ; -- SDOE GET DIAGNOSES
; API ID: 56 |
|
OLDDX(SDOE) | ; -- at least one dx for OLD encounter?
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | GETPDX+19 |
^ICD9 - [#80] | GETPDX+28 |
^SCE - [#409.68] | GETPDX+18 |
^SDD(409.43 - [#409.43] | OLDDX+1, OLDDXS+3, OLDDXS+4 |
Name | Line Occurrences |
---|---|
$$OLDDX | DX+9 |
$$VALDX | FINDDX+8 |
DXQ | DX+8, DX+9 |
FINDDXQ | FINDDX+8 |
GETDX | FINDDX+10, GETPDX+6 |
GETDXQ | GETDXG+3, GETDXG+4 |
OLDDXS | GETDXG+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | GETPDX+4~, GETPDX+9*, GETPDX+10*, GETPDX+14 |
DFN | GETPDX+15~, GETPDX+18*, GETPDX+19, GETPDX+23 |
DFN0 | GETPDX+15~, GETPDX+19*, GETPDX+24 |
I | FINDDX+4~, FINDDX+11*, FINDDX+12*, GETPDX+4~, GETPDX+9*, GETPDX+10*, GETPDX+15~, GETPDX+27*, GETPDX+28* |
SDARY | OLDDXS~, OLDDXS+7, OLDDXS+8 |
SDCNT | OLDDXS+1~, OLDDXS+2*, OLDDXS+4*, OLDDXS+8 |
SDDX | GETDX~, GETDXG+4, GETDXG+6 |
SDDX( | GETPDX+28 |
SDDXID | FINDDX~, FINDDX+8, FINDDX+12, VALDX~, VALDX+4, VALDX+8, VALDX+9 |
SDDXS | FINDDX+4~, FINDDX+5*, FINDDX+10, GETPDX+4~, GETPDX+5*, GETPDX+6, GETPDX+28 |
SDDXS( | FINDDX+12, GETPDX+10!, GETPDX+11 |
SDDXS(0 | GETPDX+11 |
SDERR | DX~, DX+8, DX+11, GETDX~, GETDXG+3, GETDXG+6, FINDDX~, FINDDX+8, FINDDX+10, GETPDX~ , GETPDX+6, GETPDX+31, VALDX~, VALDX+10 |
SDIEN | OLDDXS+1~, OLDDXS+2*, OLDDXS+3*, OLDDXS+4, OLDDXS+7 |
SDIN | GETPDX+15~, GETPDX+31, VALDX+7~, VALDX+10 |
SDIN("CODES" | GETPDX+29* |
SDIN("DFN" | GETPDX+23* |
SDIN("ID" | GETPDX+22*, VALDX+8* |
SDIN("PATNAME" | GETPDX+24* |
SDIN("PID" | GETPDX+25* |
SDOE | DX~, DX+8, DX+9, DX+11, GETDX~, GETDXG+3, GETDXG+4, GETDXG+6, FINDDX~, FINDDX+10 , GETPDX~, GETPDX+6, GETPDX+18, GETPDX+22, OLDDX~, OLDDX+1, OLDDXS~, OLDDXS+3 |
SDOK | DX+4~, DX+5*, DX+9*, DX+11*, DXQ, FINDDX+4~, FINDDX+8*, FINDDX+11*, FINDDX+12*, FINDDXQ |
SDOUT | GETPDX+15~, GETPDX+31, VALDX+7~, VALDX+10 |
SDOUT("CODES" | GETPDX+29* |
SDOUT("DFN" | GETPDX+23* |
SDOUT("ID" | GETPDX+22*, VALDX+9* |
SDOUT("PATNAME" | GETPDX+24* |
SDOUT("PID" | GETPDX+25* |
SDPDX | GETPDX+4~, GETPDX+11*, GETPDX+17*, GETPDXQ |
U | OLDDXS+5, OLDDXS+6 |
VA | GETPDX+15~ |
VA("PID" | GETPDX+25 |
X | GETPDX+10*, OLDDXS+1~, OLDDXS+4*, OLDDXS+5, OLDDXS+6 |
Y | GETPDX+15~, GETPDX+27*, GETPDX+28*, GETPDX+29, OLDDXS+1~, OLDDXS+5*, OLDDXS+6*, OLDDXS+7 |