RAHLRU1 ;HISC/PB,GJC - utilities for HL7 messaging ;1/28/00 11:03
Source file <RAHLRU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PID(RADFN) | ;compile the PID segment
|
|
| PV1(RADFN) | ;compile the PV1 segment determine if the patient is
|
|
| REPEAT(X,N) | ;return a string of HL7 encoding characters; ideal when a field
|
|
| MAG(XX,RAD) | ;Build the HL7 segment from the array passed back from the
|
|
| RTNSUB(A) | ;return the current first level subscript for the A array
; default is : HLA array ; If array (HLA) is undefined, or only HLA("HLS") defined, return 0 |
|
| BLSEG(SEG,X,ADR) | ;
|
|
| BLSEG1 | ;Split for first time
|
|
| BLSEG2(YY,JJ,K) | ;Split any subsequent times
|
|
| PARSEG(ARR,PAR) | ;Parse segment from ARR array to PAR array
|
|
| PARPROC(DATA) | ;process data...
|
|
| GETPP(D) | ;get repeated fields...
|
|
| VFIER(X1,X2,X3) | ; validation of OBR-32 , OBR-33 or OBR-35
; X1 = value to be Validated/Returned (IEN) ; Note: X1 is passed in as: ID Number (IEN)^Family Name^Given Name ; (in this example "^" is the subcomponent separator) ; X2 = Status ('C'orrected, 'F'inal, or 'R'esults filed, not verified) ; X3 = text 'OBR-32' or 'OBR-33' or 'OBR-33x' or 'OBR 35' ; Return value: 1 = Validation OK ; 0^Error message to be returned to sender |
|
| INDT(X1) | ;check if MD has inactivation date.
|
|
| SR(X1) | ;'S'taff or 'R'esident and inactive DATE
|
|
| SPECSRC(RAOIFN) | ;Specimen Source OBR-15
|
|
| SETUP | ; Setup basic examination information
|
|
| USESSAN() | ; Return the value of the parameter used as the switch
; to turn on use of the Site Specific Accession Numbers |
|
| SSANVAL(RADFN,RADTI,RACNI) | ; Return the value of the Site Specific Acc Number
|
|
| DATEPRT(RADTE) | ; Return the printable format of the internal date value
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND^DIC, GET1^DIQ, GETS^DIQ |
