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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 4 | DGENA6 DGENEGT1 DGENELA4 DGENUPL7 |
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 |