Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGENA5

Package: Registration

Routine: DGENA5


Information

DGENA5 ;ISA/Zoltan,ALB/CKN,TEJ - Enrollment API - CD Processing ;8/15/08 11:10am

Source Information

Source file <DGENA5.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 $$IMPDATE^DGPTIC10  
VA FileMan 1 DO^DIC1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 5 DGENCD  DGENCDA1  DGENELA  DGENUPL1  VAFHLZCD  
Income Verification Match 1 IVMZ7CCD  
Kernel 1 FILE  

Entry Points

Name Comments DBIA/ICR reference
CODEPTR(REASON) ; Internal label--get pointer to CODE.
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.
HELP(REASON) ; Display help text from 27.17 CD REASONS.
LIMBOK(REASON,LIMBCODE) ; Return 1/0 Affected Extremity OK for this REASON.
VCD(DFN) ; Veteran Catastrophically Disabled? (#.39)
TYPE(REASON) ; Return TYPE (#1) for this CD REASON.
NEXTLIMB(REASON,LIMBIEN) ; Get next possible limb for this REASON.
RANGEMET(REASON,SCORE,PERM) ; Determine whether this reason is satisfied.
HL7TODSC(HL7VAL,D2) ; Return DESCRIPTOR IEN for a HL7 Transmission Value.
; This function returns the IEN or 0 if there is none.
PATSCORE(DFN,COND) ; Get the TEST SCORE for this patient, for this condition.
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)=""
CONDMET(DFN,COND) ; Determine whether a condition meets the criteria.
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.
CODE(REASON) ; Return the HL7 Transmission Code for this CD Reason.
REASON(DFN,COND) ; Get the CD REASON for this patient, for this condition.
LSCREEN(LIMBCODE) ; Used to validate LIMB in screen.
CONDINP(DFN,COND,SCORE) ; Validate a score entered by the user for a PATIENT.
VALSCORE(REASON) ; Return VALIDATION (#7) for this CD REASON.
; This determines whether a score is valid at all.
HL7TORSN(HL7VAL,D2) ; Return REASON IEN for a HL7 Transmission Value.
; This function returns the IEN or 0 if there is none.
CODENAME(REASON) ; Return name of code associated with this CD Reason.
TOHL7() ;
LIMBCODE(REASON,LIMBIEN) ; Return limb code for an affected limb.
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.
PATPERM(DFN,COND) ; Get the PERMANENT INDICATOR for this patient+condition.
FILENAME(REASON) ; Return the file name to which this CD Reason points.
RSNTOHL7(REASON,D2) ; Return HL7 Segment Value for this Reason.
VALID(REASON,SCORE) ; Validate a proposed score for a test.
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.
NAME(REASON) ; Return NAME (.01) for this CD REASON.
METH2HL7(METHOD,D2) ; Convert Method of Determination to HL7 Transmission Value.
RANGE(REASON) ; Return TEST SCORE RANGE (#5) for this CD REASON.
; This determines whether the score qualifies for CD.
DSCR2HL7(DGDFN,D2) ; Return HL7 Sequence Value for all Descriptors.

External References

Name Field # of Occurrence
$$IMPDATE^DGPTIC10 ICDVER+21
DO^DIC1 FILENAME+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"HELP TEXT FOR ",$$NAME(REASON),!
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: ?3,^DGEN(27.17,REASON,3,LINE,0),!
  • Line Location: HELP+6

Global Variables Directly Accessed

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+1
^DPT - [#2] VCD+1, REASON+5, PATSCORE+3, PATPERM+3, LSCREEN+6, DSCR2HL7+4, ICDVER+18

Label References

Name Line Occurrences
$$CODE RSNTOHL7+5, RSNTOHL7+14
$$CODEPTR FILENAME+3, CODENAME+2
$$FILENAME RSNTOHL7+16
$$LIMBCODE LIMBOK+5
$$LIMBOK LSCREEN+8
$$NAME HELP+4, RSNTOHL7+12
$$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+4
$$VALID CONDINP+3
$$VALSCORE VALID+2
HELP CONDHELP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE CODENAME+1~, CODENAME+8*, RSNTOHL7+3~, RSNTOHL7+5*, RSNTOHL7+6, RSNTOHL7+7, RSNTOHL7+10, RSNTOHL7+14*, RSNTOHL7+15, RSNTOHL7+18
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+10, RSNTOHL7+18, 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+1
>> 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+16*, RSNTOHL7+17, RSNTOHL7+18
HL7VAL HL7TORSN~, HL7TORSN+3, HL7TORSN+4*, HL7TORSN+5*, HL7TORSN+6, HL7TORSN+7, HL7TODSC~, HL7TODSC+2, HL7TODSC+3, RSNTOHL7+3~
, RSNTOHL7+10*, RSNTOHL7+18*, RSNTOHL7+22
>> 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+12*, RSNTOHL7+13, RSNTOHL7+18
NUMBER RSNTOHL7+3~, RSNTOHL7+7*, RSNTOHL7+8, RSNTOHL7+10, 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+4, RSNTOHL7+5, RSNTOHL7+12, RSNTOHL7+14, RSNTOHL7+16
SCORE CONDINP~, CONDINP+3, CONDMET+1~, CONDMET+3*, CONDMET+5, VALID~, VALID+3, RANGEMET~
TABLE RSNTOHL7+3~, RSNTOHL7+9*, RSNTOHL7+10
TEST VALID+1~, VALID+2*, VALID+4, RANGEMET+1~, RANGEMET+2*, RANGEMET+3
U FILENAME+2*, TOHL7+1
VALID LIMBOK+1~, LIMBOK+2*, LIMBOK+4, LIMBOK+5*, LIMBOK+6
X VALID+1~, VALID+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All