Call Graph
Call Graph Total: 4
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | ($$DSCR2HL7,$$LIMBTOHL,$$METH2HL7,$$PERMTOHL,$$RSNTOHL7)^DGENA5 $$GET^DGENCDA $$STATION^VAFHLFNC |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
VAFHLZCD ;ALB/KCL,Zoltan,JAN,TDM,TEJ,LMD - Create HL7 Catastrophic Disability (ZCD) segment ; 9/19/05 11:31am
Source file <VAFHLZCD.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | ($$DSCR2HL7,$$LIMBTOHL,$$METH2HL7,$$PERMTOHL,$$RSNTOHL7)^DGENA5 $$GET^DGENCDA $$STATION^VAFHLFNC |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| ENQ | ||
| 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). ; VAFCDLST(Segment#,"DESCR") = CD Descriptor(for VCD="yes") * DG*5.3*894 |
|
| 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. |
|
| 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. |
|
| 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 |
| Name | Field # of Occurrence |
|---|---|
| $$DSCR2HL7^DGENA5 | EN+83 |
| $$LIMBTOHL^DGENA5 | EN+89 |
| $$METH2HL7^DGENA5 | EN+81 |
| $$PERMTOHL^DGENA5 | EN+97 |
| $$RSNTOHL7^DGENA5 | EN+85, EN+87, EN+91 |
| $$GET^DGENCDA | EN+47, BUILD+32 |
| $$HLDATE^HLFNC | EN+73, EN+79, EN+99, EN+101, EN+103 |
| $$STATION^VAFHLFNC | EN+77 |
| Name | Line Occurrences |
|---|---|
| $$EN | BUILD+37 |
| ADDNEW | MAKELST+24, MAKELST+28, MAKELST+32 |
| ENQ | EN+44, EN+47 |
| INSERT | MAKELST+29, MAKELST+33, MAKELST+34 |
| MAKELST | EN+66, BUILD+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+44, EN+47, EN+83, BUILD~, BUILD+30, BUILD+32, BUILD+37 |
| >> HLFS | EN+38 |
| >> HLQ | EN+37 |
| ITEM | MAKELST+18~, MAKELST+21*, MAKELST+23*, MAKELST+24, MAKELST+26*, MAKELST+27, MAKELST+28, MAKELST+29, MAKELST+31*, MAKELST+32 , MAKELST+33, MAKELST+34, 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+85, EN+87, EN+89, EN+91, EN+93, EN+97 |
| SITEM | MAKELST+18~, MAKELST+21*, MAKELST+27*, MAKELST+29 |
| STR | MAKELST+18~ |
| 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+31, MAKELST+32 |
| VAFCAT("DATE" | EN+79 |
| VAFCAT("DESCR" | EN+83 |
| VAFCAT("DIAG" | MAKELST+23, MAKELST+24 |
| VAFCAT("DTFACIRV" | EN+101 |
| VAFCAT("DTVETNOT" | EN+103 |
| VAFCAT("EXT" | MAKELST+27, MAKELST+29 |
| VAFCAT("FACDET" | EN+77 |
| VAFCAT("METDET" | EN+81 |
| VAFCAT("PERM" | MAKELST+34 |
| VAFCAT("PROC" | MAKELST+26, MAKELST+28 |
| VAFCAT("REVDTE" | EN+73 |
| VAFCAT("SCORE" | MAKELST+33 |
| VAFCAT("VCD" | EN+51, EN+95 |
| VAFCAT("VETREQDT" | EN+99 |
| VAFCDLST | EN+66~, MAKELST~, MAKELST+19!, MAKELST+20*, MAKELST+24, MAKELST+28, MAKELST+29, MAKELST+32, MAKELST+33, MAKELST+34 , MAKELST+35*, BUILD+27~, BUILD+34, BUILD+35, BUILD+37 |
| VAFCDLST( | EN+85, EN+87, EN+89, EN+91, EN+93, EN+97 |
| 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, EN+103 , ENQ, BUILD~, BUILD+37 |
| VAFHLQ | EN~, EN+37*, EN+73, EN+75, EN+77, EN+79, EN+81, EN+85, EN+87, EN+89 , EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, EN+103, 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+105*, EN+106*, 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* , EN+103*, ENQ |
| VALOK | EN+34~, EN+50*, EN+51*, EN+52 |
| VANO | EN+83!*, EN+85, EN+87, EN+91 |
| X | EN+34~, EN+77* |
