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 |