DGENA5 ;ALB/EZ,CKN,TEJ,KUM - Enrollment API - CD Processing ;8/15/08 11:10am
Source file <DGENA5.m>
| 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 |
|
