DGENA5 ;ALB/EZ,CKN,TEJ,KUM - Enrollment API - CD Processing ;8/15/08 11:10am
Source file <DGENA5.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 | 5 | DGENCD DGENCDA1 DGENELA DGENUPL1 VAFHLZCD |
| Income Verification Match | 1 | IVMZ7CCD |
| Kernel | 1 | FILE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VCD(DFN) | ; Veteran Catastrophically Disabled? (#.39)
|
|
| CONDHELP(DFN,COND) | ; Display help text for a condition.
; Applies to the PATIENT file (#2) CD STATUS CONDITIONS field (#.398) ; Note - Help text stored in 27.17 CD REASONS. |
|
| CONDINP(DFN,COND,SCORE) | ; Validate a score entered by the user for a PATIENT.
|
|
| CONDMET(DFN,COND) | ; Determine whether a condition meets the criteria.
|
|
| REASON(DFN,COND) | ; Get the CD REASON for this patient, for this condition.
|
|
| PATSCORE(DFN,COND) | ; Get the TEST SCORE for this patient, for this condition.
|
|
| PATPERM(DFN,COND) | ; Get the PERMANENT INDICATOR for this patient+condition.
|
|
| HELP(REASON) | ; Display help text from 27.17 CD REASONS.
|
|
| VALID(REASON,SCORE) | ; Validate a proposed score for a test.
|
|
| RANGEMET(REASON,SCORE,PERM) | ; Determine whether this reason is satisfied.
|
|
| NAME(REASON) | ; Return NAME (.01) for this CD REASON.
|
|
| TYPE(REASON) | ; Return TYPE (#1) for this CD REASON.
|
|
| VALSCORE(REASON) | ; Return VALIDATION (#7) for this CD REASON.
; This determines whether a score is valid at all. |
|
| RANGE(REASON) | ; Return TEST SCORE RANGE (#5) for this CD REASON.
; This determines whether the score qualifies for CD. |
|
| FILENAME(REASON) | ; Return the file name to which this CD Reason points.
|
|
| CODE(REASON) | ; Return the HL7 Transmission Code for this CD Reason.
|
|
| CODENAME(REASON) | ; Return name of code associated with this CD Reason.
|
|
| CODEPTR(REASON) | ; Internal label--get pointer to CODE.
|
|
| LSCREEN(LIMBCODE) | ; Used to validate LIMB in screen.
|
|
| LIMBOK(REASON,LIMBCODE) | ; Return 1/0 Affected Extremity OK for this REASON.
|
|
| NEXTLIMB(REASON,LIMBIEN) | ; Get next possible limb for this REASON.
|
|
| LIMBCODE(REASON,LIMBIEN) | ; Return limb code for an affected limb.
|
|
| HL7TORSN(HL7VAL,D2) | ; Return REASON IEN for a HL7 Transmission Value.
; This function returns the IEN or 0 if there is none. |
|
| HL7TODSC(HL7VAL,D2) | ; Return DESCRIPTOR IEN for a HL7 Transmission Value.
; This function returns the IEN or 0 if there is none. |
|
| RSNTOHL7(REASON,D2) | ; Return HL7 Segment Value for this Reason.
|
|
| DSCR2HL7(DGDFN,D2) | ; Return HL7 Sequence Value for all Descriptors.
|
|
| TOHL7() | ;
; DG*5.3*1109 - If TYPE of Catastrophic Disability Reason is DESCRIPTOR then return HL7 TRANSMISSION VALUE, otherwise return -1 ; Avoid an undefined DG2717 variable error if DG2717 is not defined |
|
| HLTOLIMB(HLVAL,D2) | ; Convert HL7 transmission value to Limb code.
; HLVAL = HL7 text of "Affected Extremity" code. ; D2 = Secondary delimiter (for future expansion.) ; NOTE: D2 Parameter is ignored at present, but may be ; required in future if the sequence structure changes. |
|
| LIMBTOHL(LIMB,D2) | ; Convert Limb code to HL7 transmission value.
; LIMB = Affected Extremity code: RUE = Right Upper Extremity; ; LLE = Left Lower Extremity; also RLE and LUE. ; D2 = Secondary Delimiter to use in this HL7 sequence. |
|
| PERMTOHL(NUMBER,D2) | ; Convert Permanent Status Indicator to HL7 sequence.
; NUMBER = 1 for Permanent, 2 for Not Permanent, 3 for Unknown. ; D2 = Secondary Delimiter to use in this HL7 sequence. |
|
| METH2HL7(METHOD,D2) | ; Convert Method of Determination to HL7 Transmission Value.
|
|
| ICDVER(CODESYS) | ; DG*5.3*850
; determine if ICD-9 or ICD-10 CD should be used ; To be used in DIC(S) call from input transforms from 2.396;.01 ; and 2.397;.01 ; Requires DA(1) be defined ; output - the correct value in ICDIEN 9 ; ^ICDS("C","10D",30)="" ; ^ICDS("C","ICD",1)="" |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGEN(27.17 - [#27.17] | HELP+5, HELP+6, NAME+2, TYPE+2, VALSCORE+2, RANGE+2, CODE+2, CODEPTR+1, NEXTLIMB+2, LIMBCODE+1 , HL7TORSN+7, HL7TODSC+3, TOHL7+5 |
| ^DPT - [#2] | VCD+1, REASON+5, PATSCORE+3, PATPERM+3, LSCREEN+6, DSCR2HL7+4, ICDVER+18 |
| Name | Line Occurrences |
|---|---|
| $$CODE | RSNTOHL7+7, RSNTOHL7+16 |
| $$CODEPTR | FILENAME+3, CODENAME+2 |
| $$FILENAME | RSNTOHL7+18 |
| $$LIMBCODE | LIMBOK+5 |
| $$LIMBOK | LSCREEN+8 |
| $$NAME | HELP+4, RSNTOHL7+14 |
| $$NEXTLIMB | LIMBOK+4 |
| $$PATPERM | CONDMET+4 |
| $$PATSCORE | CONDMET+3 |
| $$RANGE | RANGEMET+2 |
| $$RANGEMET | CONDMET+5 |
| $$REASON | CONDHELP+4, CONDINP+2, CONDMET+2 |
| $$TOHL7 | DSCR2HL7+5 |
| $$TYPE | HELP+2, RSNTOHL7+6 |
| $$VALID | CONDINP+3 |
| $$VALSCORE | VALID+2 |
| HELP | CONDHELP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | CODENAME+1~, CODENAME+8*, RSNTOHL7+3~, RSNTOHL7+7*, RSNTOHL7+8, RSNTOHL7+9, RSNTOHL7+12, RSNTOHL7+16*, RSNTOHL7+17, RSNTOHL7+20 |
| CODEGLO | CODENAME+1~, CODENAME+5*, CODENAME+6, CODENAME+7*, CODENAME+8, CODENAME+9 |
| CODEIEN | CODENAME+1~, CODENAME+4*, CODENAME+7 |
| CODENAME | CODENAME+1~, CODENAME+9*, CODENAME+10 |
| CODEPC | CODENAME+1~, CODENAME+6*, CODENAME+9 |
| CODEPTR | FILENAME+1~, FILENAME+3*, FILENAME+4, FILENAME+5, CODENAME+1~, CODENAME+2*, CODENAME+3, CODENAME+4, CODENAME+5 |
| CODESYS | ICDVER~, ICDVER+16*, ICDVER+21, ICDVER+22, ICDVER+25 |
| COND | CONDHELP~, CONDHELP+4, CONDINP~, CONDINP+2, CONDMET~, CONDMET+2, CONDMET+3, CONDMET+4, REASON~, REASON+2 , REASON+5, PATSCORE~, PATSCORE+2, PATSCORE+3, PATPERM~, PATPERM+2, PATPERM+3 |
| >> D0 | LSCREEN+3, LSCREEN+6 |
| >> D1 | LSCREEN+3, LSCREEN+6 |
| D2 | HL7TORSN~, HL7TORSN+2*, HL7TORSN+3, HL7TORSN+5, HL7TODSC~, RSNTOHL7~, RSNTOHL7+2*, RSNTOHL7+12, RSNTOHL7+20, DSCR2HL7~ , HLTOLIMB~, LIMBTOHL~, LIMBTOHL+4*, LIMBTOHL+8, PERMTOHL~, PERMTOHL+3*, PERMTOHL+7, METH2HL7~, METH2HL7+1*, METH2HL7+5 |
| >> DA(1 | ICDVER+17 |
| DDATE | ICDVER+15~, ICDVER+18*, ICDVER+19*, ICDVER+20*, ICDVER+23, ICDVER+24, ICDVER+26, ICDVER+27 |
| DFN | VCD~, VCD+1, CONDHELP~, CONDHELP+4, CONDINP~, CONDINP+2, CONDMET~, CONDMET+2, CONDMET+3, CONDMET+4 , REASON~, REASON+2, REASON+5, PATSCORE~, PATSCORE+2, PATSCORE+3, PATPERM~, PATPERM+2, PATPERM+3, ICDVER+17 |
| DFN1 | ICDVER+15~, ICDVER+17*, ICDVER+18 |
| >> DG2 | DSCR2HL7+1*, DSCR2HL7+4 |
| >> DG2717 | DSCR2HL7+5*, TOHL7+3, TOHL7+5 |
| >> DGCDIS("COND" | REASON+4 |
| >> DGCDIS("DATE" | ICDVER+19 |
| >> DGCDIS("PROC" | LSCREEN+5 |
| >> DGCDREAS | REASON+3, LSCREEN+4 |
| DGDFN | DSCR2HL7~, DSCR2HL7+1 |
| >> DGHLENCD | DSCR2HL7+2*, DSCR2HL7+5 |
| DGTMP | DSCR2HL7+3!, DSCR2HL7+4*, DSCR2HL7+5 |
| DGTMP( | DSCR2HL7+5 |
| DIC | FILENAME+1~, FILENAME+5* |
| DIC(0 | FILENAME+6* |
| DO | FILENAME+1~, FILENAME+8 |
| DSCRTOHL7 | DSCR2HL7+3!, DSCR2HL7+5*, DSCR2HL7+6 |
| DT | ICDVER+20 |
| FILE | RSNTOHL7+3~, RSNTOHL7+18*, RSNTOHL7+19, RSNTOHL7+20 |
| HL7VAL | HL7TORSN~, HL7TORSN+3, HL7TORSN+4*, HL7TORSN+5*, HL7TORSN+6, HL7TORSN+7, HL7TODSC~, HL7TODSC+2, HL7TODSC+3, RSNTOHL7+3~ , RSNTOHL7+5*, RSNTOHL7+12*, RSNTOHL7+20*, RSNTOHL7+24 |
| >> HLECH | HL7TORSN+2, RSNTOHL7+2, LIMBTOHL+4, PERMTOHL+3, METH2HL7+1 |
| HLVAL | HLTOLIMB~, HLTOLIMB+5, LIMBTOHL+5~, LIMBTOHL+8*, LIMBTOHL+9, PERMTOHL+4~, PERMTOHL+7*, PERMTOHL+8 |
| >> I1 | DSCR2HL7+5* |
| >> I2 | DSCR2HL7+5* |
| ICDIEN | ICDVER+15~, ICDVER+23*, ICDVER+24*, ICDVER+26*, ICDVER+27*, ICDVER+28 |
| IMPDATE | ICDVER+15~, ICDVER+21*, ICDVER+23, ICDVER+24, ICDVER+26, ICDVER+27 |
| >> ITEM | REASON+4, LSCREEN+5 |
| LIMB | LIMBTOHL~, LIMBTOHL+6, LIMBTOHL+7, LIMBTOHL+8 |
| LIMBCODE | LSCREEN~, LSCREEN+7, LSCREEN+8, LIMBOK~, LIMBOK+5 |
| LIMBIEN | LIMBOK+1~, LIMBOK+3*, LIMBOK+4*, LIMBOK+5, NEXTLIMB~, NEXTLIMB+1*, NEXTLIMB+2*, NEXTLIMB+3*, NEXTLIMB+4, LIMBCODE~ , LIMBCODE+1 |
| LINE | HELP+1~, HELP+3*, HELP+5*, HELP+6 |
| METHOD | METH2HL7~, METH2HL7+4, METH2HL7+5 |
| METHS | METH2HL7+2~, METH2HL7+3*, METH2HL7+5 |
| NAME | RSNTOHL7+3~, RSNTOHL7+14*, RSNTOHL7+15, RSNTOHL7+20 |
| NUMBER | RSNTOHL7+3~, RSNTOHL7+9*, RSNTOHL7+10, RSNTOHL7+12, LIMBTOHL+5~, LIMBTOHL+7*, LIMBTOHL+8, PERMTOHL~, PERMTOHL+5, PERMTOHL+7 |
| PERM | CONDMET+1~, CONDMET+4*, CONDMET+5, RANGEMET~, PERMTOHL+4~, PERMTOHL+5*, PERMTOHL+6, PERMTOHL+7 |
| REASON | CONDHELP+3~, CONDHELP+4*, CONDHELP+5, CONDINP+1~, CONDINP+2*, CONDINP+3, CONDMET+2*, CONDMET+5, REASON+1~, REASON+3* , REASON+4*, REASON+5*, REASON+6, PATSCORE+1~, PATSCORE+3*, PATSCORE+4, PATPERM+1~, PATPERM+3*, PATPERM+4, HELP~ , HELP+2, HELP+4, HELP+5, HELP+6, VALID~, VALID+2, RANGEMET~, RANGEMET+2, NAME~, NAME+1 , NAME+2, TYPE~, TYPE+1, TYPE+2, VALSCORE~, VALSCORE+2, RANGE~, RANGE+2, FILENAME~, FILENAME+3 , CODE~, CODE+1, CODE+2, CODENAME~, CODENAME+2, CODEPTR~, CODEPTR+1, LSCREEN+1~, LSCREEN+2*, LSCREEN+4* , LSCREEN+5*, LSCREEN+6*, LSCREEN+7, LSCREEN+8, LIMBOK~, LIMBOK+4, LIMBOK+5, NEXTLIMB~, NEXTLIMB+2, LIMBCODE~ , LIMBCODE+1, RSNTOHL7~, RSNTOHL7+1, RSNTOHL7+6, RSNTOHL7+7, RSNTOHL7+14, RSNTOHL7+16, RSNTOHL7+18 |
| SCORE | CONDINP~, CONDINP+3, CONDMET+1~, CONDMET+3*, CONDMET+5, VALID~, VALID+3, RANGEMET~ |
| TABLE | RSNTOHL7+3~, RSNTOHL7+11*, RSNTOHL7+12 |
| TEST | VALID+1~, VALID+2*, VALID+4, RANGEMET+1~, RANGEMET+2*, RANGEMET+3 |
| U | FILENAME+2*, TOHL7+5 |
| VALID | LIMBOK+1~, LIMBOK+2*, LIMBOK+4, LIMBOK+5*, LIMBOK+6 |
| X | VALID+1~, VALID+3* |
