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 |