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 |