VAFHLZCD ;ALB/KCL,Zoltan,JAN,TDM,TEJ,LMD - Create HL7 Catastrophic Disability (ZCD) segment ; 9/19/05 11:31am
Source file <VAFHLZCD.m>
| 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 |
