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 |