DGENELA4 ;ALB/CJM,KCL,RTK,LBD,EG,CKN,DLF,TDM,JLS,HM,RN,ARF,JAM - Patient Eligibility API ;5/10/11 12:03pm
Source file <DGENELA4.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRIORITY(DFN,DGELG,DGELGSUB,ENRDATE,APPDATE,DGENRYN) | ; DG*5.3*993 Added 6th parameter DGENRYN
; 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. |
|
| PRI(CODE,DGELG,ENRDATE,APPDATE,DGENRYN) | ; DG*5.3*993 Added 5th parameter DGENRYN
; Description: Returns the priority group and subgroup based on a ; single eligibility code. |
|
| SUBPRI(DFN,PRIORITY,SUBGRP) | ;calculate sub-priority if under EGT
|
|
| SUBCNV(SUBGRP) | ;return new subgrp
; DG*5.3*1109 - If there is a Combat End Date we do not flip the subgroups. Combat Vets do not get the reduced subgroup |
|
| STAEXP(STATYP) | ;return expiration date for Special Treatment Authority (STA)
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | SUBPRI+7 |
| $$FINDCUR^DGENA | PRI+23, SUBPRI+14 |
| $$FINDPRI^DGENA | SUBPRI+20 |
| $$GET^DGENA | SUBPRI+19 |
| $$FINDCUR^DGENEGT | PRI+62, SUBPRI+8 |
| $$GET^DGENEGT | PRI+62, SUBPRI+8 |
| $$OVRRIDE^DGENEGT1 | SUBPRI+26 |
| $$CODENAME^DGENELA | PRI+32 |
| $$GET^DGENELA | PRIORITY+26 |
| $$NATCODE^DGENELA | PRIORITY+31, PRIORITY+38, PRIORITY+40, PRIORITY+41 |
| $$STAEXP^DGENELA4 | PRI+57, PRI+58 |
| $$GET^DGENPTA | PRIORITY+29 |
| $$SC^DGMTR | PRI+99, PRI+100 |
| $$LST^DGMTU | PRI+39 |
| ALL^DGMTU21 | PRI+44 |
| $$GET1^DIQ | PRI+23, PRI+24, PRI+40, PRI+41, PRI+42, PRI+43, PRI+48, PRI+67 |
| $$DT^XLFDT | PRI+82, PRI+91 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
| ^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+36 |
| ^DG(43 - [#43] | STAEXP+8, STAEXP+9 |
| ^DGEN(27.15 - [#27.15] | SUBPRI+22 |
| ^DGMT(408.21 - [#408.21] | PRI+49, PRI+50, PRI+53, PRI+54 |
| Name | Line Occurrences |
|---|---|
| $$PRI | PRIORITY+32, PRIORITY+38 |
| $$SUBCNV | SUBPRI+12, SUBPRI+28 |
| $$SUBPRI | PRI+94, PRI+95, PRI+99, PRI+100, PRI+101, PRI+102, PRI+103, PRI+104 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPDATE | PRIORITY~, PRIORITY+28, PRIORITY+32, PRIORITY+38, PRI~, PRI+29 |
| CODE | PRIORITY+22~, PRIORITY+34*, PRIORITY+37*, PRIORITY+38, PRIORITY+40, PRIORITY+41, PRI~, PRI+32 |
| CODENAME | PRI+17~, PRI+32*, PRI+71, PRI+74, PRI+75, PRI+76, PRI+77, PRI+81, PRI+94, PRI+103 |
| DFN | PRIORITY~, PRIORITY+26, PRIORITY+29, PRI+23, PRI+24, PRI+39, PRI+44, PRI+67, PRI+94, PRI+95 , PRI+99, PRI+100, PRI+101, PRI+102, PRI+103, PRI+104, SUBPRI~, SUBPRI+3, SUBPRI+14, SUBPRI+26 |
| DGAICM | PRI+18~, PRI+45*, PRI+46*, PRI+48, PRI+49, PRI+50, PRI+53, PRI+54 |
| DGASSTS | PRI+18~, PRI+47*, PRI+51*, PRI+52* |
| DGEDEX | PRI+18~, PRI+47*, PRI+54*, PRI+100, PRI+102 |
| DGEGT | PRI+17~, PRI+61*, PRI+62 |
| DGELG | PRIORITY~, PRIORITY+26, PRIORITY+32, PRIORITY+38, PRI~ |
| DGELG("A&A" | PRIORITY+45, PRI+72, PRI+76 |
| DGELG("AO" | PRIORITY+47, PRI+89 |
| DGELG("AOEXPLOC" | PRIORITY+54, PRI+90 |
| DGELG("CLE" | PRIORITY+59, PRI+92 |
| DGELG("CLEDT" | PRIORITY+60 |
| DGELG("CLESOR" | PRIORITY+62 |
| DGELG("CLEST" | PRIORITY+61 |
| DGELG("CVELEDT" | PRIORITY+51, PRI+81, SUBCNV+2 |
| DGELG("DISLOD" | PRIORITY+46, PRI+75 |
| DGELG("DISRET" | PRIORITY+46, PRI+75 |
| DGELG("EC" | PRIORITY+47, PRI+82 |
| DGELG("ELIG" | PRIORITY+31, PRIORITY+37 |
| DGELG("HB" | PRIORITY+45, PRI+72, PRI+76 |
| DGELG("IR" | PRIORITY+47, PRI+85 |
| DGELG("MEDICAID" | PRIORITY+47, PRI+77 |
| DGELG("MOH" | PRIORITY+55, PRI+73 |
| DGELG("MOHAWRDDATE" | PRIORITY+56 |
| DGELG("MOHEXEMPDATE" | PRIORITY+58 |
| DGELG("MOHSTATDATE" | PRIORITY+57 |
| DGELG("MTSTA" | PRIORITY+47, PRI+36 |
| DGELG("OTHTYPE" | PRIORITY+63 |
| DGELG("PH" | PRIORITY+49, PRI+75 |
| DGELG("POW" | PRIORITY+45, PRI+75 |
| DGELG("RADEXPM" | PRIORITY+53, PRI+63*, PRI+85 |
| DGELG("SC" | PRIORITY+45, PRI+71, PRI+72, PRI+74, PRI+75, PRI+94, PRI+101, PRI+102, PRI+103 |
| DGELG("SCPER" | PRIORITY+45, PRI+71, PRI+72, PRI+74, PRI+75, PRI+94, PRI+103 |
| DGELG("SHAD" | PRIORITY+51, PRI+64*, PRI+81 |
| DGELG("UNEMPLOY" | PRIORITY+51, PRI+72 |
| DGELG("VACKAMT" | PRIORITY+46, PRI+72, PRI+81, PRI+94, PRI+103 |
| DGELG("VAPEN" | PRIORITY+46, PRI+72, PRI+77 |
| DGELG("VCD" | PRIORITY+49, PRI+76 |
| DGELGSUB | PRIORITY~, PRIORITY+23!* |
| DGELGSUB("A&A" | PRIORITY+45* |
| DGELGSUB("AO" | PRIORITY+47* |
| DGELGSUB("AOEXPLOC" | PRIORITY+54* |
| DGELGSUB("CLE" | PRIORITY+59* |
| DGELGSUB("CLEDT" | PRIORITY+60* |
| DGELGSUB("CLESOR" | PRIORITY+62* |
| DGELGSUB("CLEST" | PRIORITY+61* |
| DGELGSUB("CODE" | PRIORITY+45* |
| DGELGSUB("CVELEDT" | PRIORITY+51* |
| DGELGSUB("DISLOD" | PRIORITY+46* |
| DGELGSUB("DISRET" | PRIORITY+46* |
| DGELGSUB("EC" | PRIORITY+47* |
| DGELGSUB("HB" | PRIORITY+45* |
| DGELGSUB("IR" | PRIORITY+47* |
| DGELGSUB("MEDICAID" | PRIORITY+47* |
| DGELGSUB("MOH" | PRIORITY+55* |
| DGELGSUB("MOHAWRDDATE" | PRIORITY+56* |
| DGELGSUB("MOHEXEMPDATE" | PRIORITY+58* |
| DGELGSUB("MOHSTATDATE" | PRIORITY+57* |
| DGELGSUB("MTSTA" | PRIORITY+47* |
| DGELGSUB("OTHTYPE" | PRIORITY+63* |
| DGELGSUB("PH" | PRIORITY+49* |
| DGELGSUB("POW" | PRIORITY+45* |
| DGELGSUB("RADEXPM" | PRIORITY+53* |
| DGELGSUB("SC" | PRIORITY+45* |
| DGELGSUB("SCPER" | PRIORITY+45* |
| DGELGSUB("SHAD" | PRIORITY+51* |
| DGELGSUB("UNEMPLOY" | PRIORITY+51* |
| DGELGSUB("VACKAMT" | PRIORITY+46* |
| DGELGSUB("VAPEN" | PRIORITY+46* |
| DGELGSUB("VCD" | PRIORITY+49* |
| DGENRC | SUBPRI+2~, SUBPRI+19 |
| DGENRC("APP" | SUBPRI+23 |
| DGENRC("EFFDATE" | SUBPRI+23 |
| DGENRC("STATUS" | SUBPRI+21, SUBPRI+22 |
| DGENRIEN | PRI+18~, PRI+23*, SUBPRI+2~, SUBPRI+14*, SUBPRI+15, SUBPRI+18, SUBPRI+19, SUBPRI+20* |
| DGENRYN | PRIORITY~, PRIORITY+32, PRIORITY+38, PRI~, PRI+23*, PRI+24 |
| >> DGINC("V" | PRI+46 |
| DGMEDEX | PRI+18~, PRI+47*, PRI+53*, PRI+100, PRI+102 |
| DGMTI | PRI+17~, PRI+39*, PRI+40, PRI+41, PRI+42, PRI+43, PRI+44 |
| DGMTYR | PRI+18~, PRI+48*, PRI+99, PRI+100, PRI+101, PRI+102 |
| DGNCM | PRI+18~, PRI+42*, PRI+99, PRI+100, PRI+101, PRI+102 |
| DGNETW | PRI+18~, PRI+43*, PRI+100, PRI+102 |
| DGPAT | PRIORITY+22~, PRIORITY+29 |
| DGPAT("INELDATE" | PRIORITY+64 |
| DGPAT("VETERAN" | PRI+73 |
| DGTERA | PRI+18~, PRI+67*, PRI+79 |
| DONE | SUBPRI+2~, SUBPRI+16*, SUBPRI+17, SUBPRI+18*, SUBPRI+19*, SUBPRI+22*, SUBPRI+24*, SUBPRI+26*, SUBPRI+28 |
| DT | PRI+44, PRI+81 |
| 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+28, PRIORITY+32, PRIORITY+38, PRI~, PRI+29*, PRI+99, PRI+101, SUBPRI+15 |
| ENRDT | SUBPRI+2~, SUBPRI+23*, SUBPRI+24 |
| GMTTHR | PRI+17~, PRI+41*, PRI+93, PRI+97 |
| HICODE | PRIORITY+22~, PRIORITY+24*, PRIORITY+31*, PRIORITY+32, PRIORITY+40*, PRIORITY+41*, PRIORITY+45 |
| HIPRI | PRIORITY+22~, PRIORITY+24*, PRIORITY+33*, PRIORITY+37, PRIORITY+40*, PRIORITY+41*, PRIORITY+64*, PRIORITY+66 |
| HISUB | PRIORITY+22~, PRIORITY+24*, PRIORITY+33*, PRIORITY+40*, PRIORITY+41*, PRIORITY+64*, PRIORITY+66 |
| MTSTA | PRI+17~, PRI+35*, PRI+36*, PRI+77, PRI+93, PRI+104 |
| MTTEST1 | PRI+18~, PRI+96*, PRI+97*, PRI+98, PRI+99, PRI+101 |
| MTTEST2 | PRI+18~, PRI+98*, PRI+99, PRI+101 |
| MTTHR | PRI+17~, PRI+40*, PRI+93, PRI+96, PRI+97, PRI+100, PRI+102 |
| NODE2 | PRI+18~, PRI+50*, PRI+51, PRI+52 |
| PRI | PRIORITY+22~, PRIORITY+39*, PRIORITY+40, PRIORITY+41 |
| PRIORITY | PRIORITY+22~, PRIORITY+32*, PRIORITY+33, PRIORITY+38*, PRIORITY+39, PRI+17~, PRI+70*, PRI+71*, PRI+72*, PRI+73* , PRI+74*, PRI+75*, PRI+76*, PRI+77*, PRI+79*, PRI+81*, PRI+82*, PRI+85*, PRI+89, PRI+91* , PRI+92*, PRI+93*, PRI+94, PRI+95, PRI+99*, PRI+100*, PRI+101*, PRI+102*, PRI+103*, PRI+104* , PRI+106, SUBPRI~, SUBPRI+5*, SUBPRI+11, SUBPRI+12 |
| PRISUB | PRI+17~ |
| PRVENST | SUBPRI+2~ |
| PRVPRI | SUBPRI+2~ |
| STAEXP | PRI+17~ |
| STAEXP("AO" | PRI+57*, PRI+91 |
| STAEXP("EC" | PRI+58*, PRI+82 |
| STATYP | STAEXP~, STAEXP+8, STAEXP+9 |
| SUB | PRIORITY+22~, PRIORITY+39*, PRIORITY+40, PRIORITY+41 |
| SUBGRP | PRIORITY+22~, PRIORITY+24*, PRI+17~, PRI+19*, PRI+94*, PRI+95*, PRI+99*, PRI+100*, PRI+101*, PRI+102* , PRI+103*, PRI+104*, PRI+106, SUBPRI~, SUBPRI+6*, SUBPRI+8, SUBPRI+9, SUBPRI+10, SUBPRI+11, SUBPRI+12 , SUBPRI+15, SUBPRI+28, SUBCNV~, SUBCNV+2, SUBCNV+3, SUBCNV+4, SUBCNV+5 |
| TODAY | SUBPRI+2~, SUBPRI+7*, SUBPRI+9 |
| U | PRI+51, PRI+52, SUBPRI+4*, SUBPRI+10, STAEXP+8, STAEXP+9 |
| X | SUBPRI+2~, SUBPRI+7 |
