©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VAFHLZCD ;ALB/KCL,Zoltan,JAN,TDM - Create HL7 Catastrophic Disability (ZCD) segment ; 9/19/05 11:31am
Source file <VAFHLZCD.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | ($$LIMBTOHL,$$METH2HL7,$$PERMTOHL,$$RSNTOHL7)^DGENA5 $$GET^DGENCDA $$STATION^VAFHLFNC |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INSERT(LIST,NAME,ITEM) | ; Insert item into existing list position (internal).
; LIST - By reference, a list of items. ; NAME - Name of one item to add. ; ITEM - Value of item to add. ; Note: the list should already contain at least one item. |
|
| ENQ | ||
| BUILD(VAFSEGS,DFN,VAFSTR,VAFHLQ,VAFHLFS) | ;
; Entry point for creating HL7 Catastrophic Disability (ZCD) segments. ; This is the preferred entry point for building ZCD segments. ; ; Input(s): ; VAFSEGS - Pass-by-reference array to contain all ZCD segments ; for this patient. ; DFN - internal entry number of Patient (#2) file ; VAFSTR - (optional) string of fields requested, separated by ; commas. If not passed, return all data fields. ; VAFHLQ - (optional) HL7 null variable ; VAFHLFS - (optional) HL7 field separator |
|
| EN(DFN,VAFSTR,VAFNUM,VAFHLQ,VAFHLFS) | ; --
; Entry point for creating HL7 Catastrophic Disability (ZCD) segment. ; ; Input(s): ; DFN - internal entry number of Patient (#2) file ; VAFSTR - (optional) string of fields requested, separated by ; commas. If not passed, return all data fields. ; VAFNUM - (optional) sequential number for SET ID (default=1) ; VAFHLQ - (optional) HL7 null variable ; VAFHLFS - (optional) HL7 field separator |
|
| MAKELST(VAFCDLST,VAFCAT) | ; Make list of ZCD Segments.
; Inputs: ; VAFCDLST - By reference (used to hold output array.) ; VAFCAT - By reference, an array containing the patient's CD ; data (as created in $$GET^DGENCDA). ; Output: ; VAFCDLST(Segment#,"DIAG") = CD Diagnosis (pointer to #27.17). ; VAFCDLST(Segment#,"PROC")= CD Procedure(pointer to #27.17). ; VAFCDLST(Segment#,"EXT") = Affected Extremity (for procedure). ; VAFCDLST(Segment#,"COND")= CD Condition (pointer to #27.17). ; VAFCDLST(Segment#,"PERM") = Permanent Indicator (for condition). ; VAFCDLST(Segment#,"SCORE") = Test Score (for condition). |
|
| ADDNEW(LIST,NAME,ITEM) | ; Add an item to the list (internal use only).
; Inputs: ; LIST - By reference, a list of items. ; NAME - Name of one item to add. ; ITEM - Value of item to add. ; Note: a new position is created in the list. |
| Name | Line Occurrences |
|---|---|
| $$EN | BUILD+37 |
| ADDNEW | MAKELST+23, MAKELST+27, MAKELST+31 |
| ENQ | EN+44, EN+47 |
| INSERT | MAKELST+28, MAKELST+32, MAKELST+33 |
| MAKELST | EN+66, BUILD+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+44, EN+47, BUILD~, BUILD+30, BUILD+32, BUILD+37 |
| >> HLFS | EN+38 |
| >> HLQ | EN+37 |
| ITEM | MAKELST+17~, MAKELST+20*, MAKELST+22*, MAKELST+23, MAKELST+25*, MAKELST+26, MAKELST+27, MAKELST+28, MAKELST+30*, MAKELST+31 , MAKELST+32, MAKELST+33, ADDNEW~, ADDNEW+7, INSERT~, INSERT+5 |
| LIST | ADDNEW~, ADDNEW+6*, ADDNEW+7, INSERT~, INSERT+5 |
| LIST( | ADDNEW+7*, INSERT+5* |
| NAME | ADDNEW~, ADDNEW+7, INSERT~, INSERT+5 |
| SETID | EN+34~, EN+70*, EN+71, EN+83, EN+85, EN+87, EN+89, EN+91, EN+95 |
| SITEM | MAKELST+17~, MAKELST+20*, MAKELST+26*, MAKELST+28 |
| STR | MAKELST+17~ |
| SUB | EN+34~, EN+51*, EN+52* |
| VAFCAT | EN+34~, EN+47, EN+66, MAKELST~, BUILD+32, BUILD+34 |
| VAFCAT( | EN+51, EN+52* |
| VAFCAT("BY" | EN+75 |
| VAFCAT("COND" | MAKELST+30, MAKELST+31 |
| VAFCAT("DATE" | EN+79 |
| VAFCAT("DIAG" | MAKELST+22, MAKELST+23 |
| VAFCAT("DTFACIRV" | EN+99 |
| VAFCAT("DTVETNOT" | EN+101 |
| VAFCAT("EXT" | MAKELST+26, MAKELST+28 |
| VAFCAT("FACDET" | EN+77 |
| VAFCAT("METDET" | EN+81 |
| VAFCAT("PERM" | MAKELST+33 |
| VAFCAT("PROC" | MAKELST+25, MAKELST+27 |
| VAFCAT("REVDTE" | EN+73 |
| VAFCAT("SCORE" | MAKELST+32 |
| VAFCAT("VCD" | EN+51, EN+93 |
| VAFCAT("VETREQDT" | EN+97 |
| VAFCDLST | EN+66~, MAKELST~, MAKELST+18!, MAKELST+19*, MAKELST+23, MAKELST+27, MAKELST+28, MAKELST+31, MAKELST+32, MAKELST+33 , MAKELST+34*, BUILD+27~, BUILD+34, BUILD+35, BUILD+37 |
| VAFCDLST( | EN+83, EN+85, EN+87, EN+89, EN+91, EN+95 |
| VAFHLFS | EN~, EN+38*, EN+58, EN+71, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83 , EN+85, EN+87, EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, ENQ , BUILD~, BUILD+37 |
| VAFHLQ | EN~, EN+37*, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83, EN+85, EN+87 , EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, BUILD~, BUILD+37 |
| VAFNUM | EN~, EN+41*, EN+70 |
| VAFSEGS | BUILD~, BUILD+28!*, BUILD+37* |
| VAFSEGS( | BUILD+37* |
| VAFSTR | EN~, EN+55*, EN+58, EN+59*, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83 , EN+85, EN+87, EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, EN+103* , EN+104*, BUILD~, BUILD+37 |
| VAFY | EN+34~, EN+44*, EN+47*, EN+58*, EN+71*, EN+73*, EN+75*, EN+77*, EN+79*, EN+81* , EN+83*, EN+85*, EN+87*, EN+89*, EN+91*, EN+93*, EN+95*, EN+97*, EN+99*, EN+101* , ENQ |
| VALOK | EN+34~, EN+50*, EN+51*, EN+52 |
| X | EN+34~, EN+77* |