DGENELA4 ;ALB/CJM,KCL,RTK,LBD,EG,CKN,DLF,TDM - Patient Eligibility API ; 11/10/09 10:48am
Source file <DGENELA4.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGENA6 DGENEGT1 DGENELA4 DGENUPL7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STAEXP(STATYP) | ;return expiration date for Special Treatment Authority (STA)
|
|
| PRIORITY(DFN,DGELG,DGELGSUB,ENRDATE,APPDATE) | ;
; Description: Used to compute the priority group and subgroup for a ; patient, also returning the subset of the eligibility data on which ; the priority subgroup is based. |
|
| SUBPRI(DFN,PRIORITY,SUBGRP) | ;calculate sub-priority if under EGT
|
|
| PRI(CODE,DGELG,ENRDATE,APPDATE) | ;
; Description: Returns the priority group and subgroup based on a ; single eligibility code. |
|
| SUBCNV(SUBGRP) | ;return new subgrp
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | SUBPRI+7 |
| $$FINDCUR^DGENA | SUBPRI+14 |
| $$FINDPRI^DGENA | SUBPRI+20 |
| $$GET^DGENA | SUBPRI+19 |
| $$FINDCUR^DGENEGT | PRI+55, SUBPRI+8 |
| $$GET^DGENEGT | PRI+55, SUBPRI+8 |
| $$OVRRIDE^DGENEGT1 | SUBPRI+26 |
| $$CODENAME^DGENELA | PRI+25 |
| $$GET^DGENELA | PRIORITY+25 |
| $$NATCODE^DGENELA | PRIORITY+30, PRIORITY+37, PRIORITY+39, PRIORITY+40 |
| $$STAEXP^DGENELA4 | PRI+50, PRI+51 |
| $$GET^DGENPTA | PRIORITY+28 |
| $$SC^DGMTR | PRI+77, PRI+78 |
| $$LST^DGMTU | PRI+32 |
| ALL^DGMTU21 | PRI+37 |
| $$GET1^DIQ | PRI+33, PRI+34, PRI+35, PRI+36, PRI+41 |
| $$DT^XLFDT | PRI+68, PRI+70 |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.21 - [#408.21] | GET1^DIQ |
| ^DGMT(408.31 - [#408.31] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(408.32 - [#408.32] | PRI+29 |
| ^DG(43 - [#43] | STAEXP+8, STAEXP+9 |
| ^DGEN(27.15 - [#27.15] | SUBPRI+22 |
| ^DGMT(408.21 - [#408.21] | PRI+42, PRI+43, PRI+46, PRI+47 |
| Name | Line Occurrences |
|---|---|
| $$PRI | PRIORITY+31, PRIORITY+37 |
| $$SUBCNV | SUBPRI+12, SUBPRI+28 |
| $$SUBPRI | PRI+72, PRI+73, PRI+77, PRI+78, PRI+79, PRI+80, PRI+81, PRI+82 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPDATE | PRIORITY~, PRIORITY+27, PRIORITY+31, PRIORITY+37, PRI~, PRI+22 |
| CODE | PRIORITY+21~, PRIORITY+33*, PRIORITY+36*, PRIORITY+37, PRIORITY+39, PRIORITY+40, PRI~, PRI+25 |
| CODENAME | PRI+16~, PRI+25*, PRI+61, PRI+63, PRI+64, PRI+65, PRI+66, PRI+67, PRI+72, PRI+81 |
| DFN | PRIORITY~, PRIORITY+25, PRIORITY+28, PRI+32, PRI+37, PRI+72, PRI+73, PRI+77, PRI+78, PRI+79 , PRI+80, PRI+81, PRI+82, SUBPRI~, SUBPRI+3, SUBPRI+14, SUBPRI+26 |
| >> DGAICM | PRI+38*, PRI+39*, PRI+41, PRI+42, PRI+43, PRI+46, PRI+47 |
| DGASSTS | PRI+17~, PRI+40*, PRI+44*, PRI+45* |
| DGEDEX | PRI+17~, PRI+40*, PRI+47*, PRI+78, PRI+80 |
| DGEGT | PRI+16~, PRI+54*, PRI+55 |
| DGELG | PRIORITY~, PRIORITY+25, PRIORITY+31, PRIORITY+37, PRI~ |
| DGELG("A&A" | PRIORITY+44, PRI+62, PRI+65 |
| DGELG("AO" | PRIORITY+46, PRI+70 |
| DGELG("AOEXPLOC" | PRIORITY+53, PRI+70 |
| DGELG("CVELEDT" | PRIORITY+50, PRI+67 |
| DGELG("DISLOD" | PRIORITY+45, PRI+64 |
| DGELG("DISRET" | PRIORITY+45, PRI+64 |
| DGELG("EC" | PRIORITY+46, PRI+68 |
| DGELG("ELIG" | PRIORITY+30, PRIORITY+36 |
| DGELG("HB" | PRIORITY+44, PRI+62, PRI+65 |
| DGELG("IR" | PRIORITY+46, PRI+69 |
| DGELG("MEDICAID" | PRIORITY+46, PRI+66 |
| DGELG("MTSTA" | PRIORITY+46, PRI+29 |
| DGELG("PH" | PRIORITY+48, PRI+64 |
| DGELG("POW" | PRIORITY+44, PRI+64 |
| DGELG("RADEXPM" | PRIORITY+52, PRI+56*, PRI+69 |
| DGELG("SC" | PRIORITY+44, PRI+61, PRI+62, PRI+63, PRI+64, PRI+72, PRI+79, PRI+80, PRI+81 |
| DGELG("SCPER" | PRIORITY+44, PRI+61, PRI+62, PRI+63, PRI+64, PRI+72, PRI+81 |
| DGELG("SHAD" | PRIORITY+50, PRI+57*, PRI+67 |
| DGELG("UNEMPLOY" | PRIORITY+50, PRI+62 |
| DGELG("VACKAMT" | PRIORITY+45, PRI+62, PRI+67, PRI+72, PRI+81 |
| DGELG("VAPEN" | PRIORITY+45, PRI+62, PRI+66 |
| DGELG("VCD" | PRIORITY+48, PRI+65 |
| DGELGSUB | PRIORITY~, PRIORITY+22!* |
| DGELGSUB("A&A" | PRIORITY+44* |
| DGELGSUB("AO" | PRIORITY+46* |
| DGELGSUB("AOEXPLOC" | PRIORITY+53* |
| DGELGSUB("CODE" | PRIORITY+44* |
| DGELGSUB("CVELEDT" | PRIORITY+50* |
| DGELGSUB("DISLOD" | PRIORITY+45* |
| DGELGSUB("DISRET" | PRIORITY+45* |
| DGELGSUB("EC" | PRIORITY+46* |
| DGELGSUB("HB" | PRIORITY+44* |
| DGELGSUB("IR" | PRIORITY+46* |
| DGELGSUB("MEDICAID" | PRIORITY+46* |
| DGELGSUB("MTSTA" | PRIORITY+46* |
| DGELGSUB("PH" | PRIORITY+48* |
| DGELGSUB("POW" | PRIORITY+44* |
| DGELGSUB("RADEXPM" | PRIORITY+52* |
| DGELGSUB("SC" | PRIORITY+44* |
| DGELGSUB("SCPER" | PRIORITY+44* |
| DGELGSUB("SHAD" | PRIORITY+50* |
| DGELGSUB("UNEMPLOY" | PRIORITY+50* |
| DGELGSUB("VACKAMT" | PRIORITY+45* |
| DGELGSUB("VAPEN" | PRIORITY+45* |
| DGELGSUB("VCD" | PRIORITY+48* |
| DGENRC | SUBPRI+2~, SUBPRI+19 |
| DGENRC("APP" | SUBPRI+23 |
| DGENRC("EFFDATE" | SUBPRI+23 |
| DGENRC("STATUS" | SUBPRI+21, SUBPRI+22 |
| DGENRIEN | SUBPRI+2~, SUBPRI+14*, SUBPRI+15, SUBPRI+18, SUBPRI+19, SUBPRI+20* |
| >> DGINC("V" | PRI+39 |
| DGMEDEX | PRI+17~, PRI+40*, PRI+46*, PRI+78, PRI+80 |
| DGMTI | PRI+16~, PRI+32*, PRI+33, PRI+34, PRI+35, PRI+36, PRI+37 |
| DGMTYR | PRI+17~, PRI+41*, PRI+77, PRI+78, PRI+79, PRI+80 |
| DGNCM | PRI+17~, PRI+35*, PRI+77, PRI+78, PRI+79, PRI+80 |
| DGNETW | PRI+17~, PRI+36*, PRI+78, PRI+80 |
| DGPAT | PRIORITY+21~, PRIORITY+28 |
| DGPAT("INELDATE" | PRIORITY+54 |
| DONE | SUBPRI+2~, SUBPRI+16*, SUBPRI+17, SUBPRI+18*, SUBPRI+19*, SUBPRI+22*, SUBPRI+24*, SUBPRI+26*, SUBPRI+28 |
| DT | PRI+37, PRI+67 |
| EGT | SUBPRI+2~, SUBPRI+8, SUBPRI+26 |
| EGT("EFFDATE" | SUBPRI+9, SUBPRI+15, SUBPRI+24 |
| EGT("PRIORITY" | SUBPRI+11, SUBPRI+12 |
| EGT("SUBGRP" | SUBPRI+11 |
| EGT("TYPE" | SUBPRI+10, SUBPRI+11, SUBPRI+12 |
| ENRDATE | PRIORITY~, PRIORITY+27, PRIORITY+31, PRIORITY+37, PRI~, PRI+22*, PRI+77, PRI+79, SUBPRI+15 |
| ENRDT | SUBPRI+2~, SUBPRI+23*, SUBPRI+24 |
| GMTTHR | PRI+16~, PRI+34*, PRI+71, PRI+75 |
| HICODE | PRIORITY+21~, PRIORITY+23*, PRIORITY+30*, PRIORITY+31, PRIORITY+39*, PRIORITY+40*, PRIORITY+44 |
| HIPRI | PRIORITY+21~, PRIORITY+23*, PRIORITY+32*, PRIORITY+36, PRIORITY+39*, PRIORITY+40*, PRIORITY+54*, PRIORITY+56 |
| HISUB | PRIORITY+21~, PRIORITY+23*, PRIORITY+32*, PRIORITY+39*, PRIORITY+40*, PRIORITY+54*, PRIORITY+56 |
| MTSTA | PRI+16~, PRI+28*, PRI+29*, PRI+66, PRI+71, PRI+82 |
| MTTEST1 | PRI+17~, PRI+74*, PRI+75*, PRI+76, PRI+77, PRI+79 |
| MTTEST2 | PRI+17~, PRI+76*, PRI+77, PRI+79 |
| MTTHR | PRI+16~, PRI+33*, PRI+71, PRI+74, PRI+75, PRI+78, PRI+80 |
| NODE2 | PRI+17~, PRI+43*, PRI+44, PRI+45 |
| PRI | PRIORITY+21~, PRIORITY+38*, PRIORITY+39, PRIORITY+40 |
| PRIORITY | PRIORITY+21~, PRIORITY+31*, PRIORITY+32, PRIORITY+37*, PRIORITY+38, PRI+16~, PRI+60*, PRI+61*, PRI+62*, PRI+63* , PRI+64*, PRI+65*, PRI+66*, PRI+67*, PRI+68*, PRI+69*, PRI+70*, PRI+71*, PRI+72, PRI+73 , PRI+77*, PRI+78*, PRI+79*, PRI+80*, PRI+81*, PRI+82*, PRI+84, SUBPRI~, SUBPRI+5*, SUBPRI+11 , SUBPRI+12 |
| PRISUB | PRI+16~ |
| PRVENST | SUBPRI+2~ |
| PRVPRI | SUBPRI+2~ |
| STAEXP | PRI+16~ |
| STAEXP("AO" | PRI+50*, PRI+70 |
| STAEXP("EC" | PRI+51*, PRI+68 |
| STATYP | STAEXP~, STAEXP+8, STAEXP+9 |
| SUB | PRIORITY+21~, PRIORITY+38*, PRIORITY+39, PRIORITY+40 |
| SUBGRP | PRIORITY+21~, PRIORITY+23*, PRI+16~, PRI+18*, PRI+72*, PRI+73*, PRI+77*, PRI+78*, PRI+79*, PRI+80* , PRI+81*, PRI+82*, PRI+84, SUBPRI~, SUBPRI+6*, SUBPRI+8, SUBPRI+9, SUBPRI+10, SUBPRI+11, SUBPRI+12 , SUBPRI+15, SUBPRI+28, SUBCNV~, SUBCNV+1, SUBCNV+2, SUBCNV+3 |
| TODAY | SUBPRI+2~, SUBPRI+7*, SUBPRI+9 |
| U | PRI+44, PRI+45, SUBPRI+4*, SUBPRI+10, STAEXP+8, STAEXP+9 |
| X | SUBPRI+2~, SUBPRI+7 |