VIABEFR ;AAC/JMC - VIA EFR RPCs ;05/17/2016
Source file <VIABEFR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(RESULT,VIA) | ; entry point for RPC
|
|
| PARSE(VIA) | ; -- array parsing to parameters and initializing variables
|
|
| TMP | ; -- temporary environment variables sets until kernel tools arrives
|
|
| LAB671 | ; -- returns a list of lab identifiers from RESEARCH File #67.1
; Builds the ^TMP("VIABEFR",$J) array ; ^TMP("VIABEFR",$J,1)="[Data"] or if there is an error ^TMP("VIABEFR",$J,1)="[Errors"] ; ^TMP("VIABEFR",$J,n)=67.1:IEN^.01 NAME^9 IDENTIFIER^63 LABORATORY REFERENCE ; where n is a numeric value starting from 2 |
|
| IDS | ; -- return lab results for list of identifiers
|
|
| LAB6304 | ; -- Using the LAB IEN from File #67.1, get data from LAB DATA File #63.04
; Builds ^TMP("VIABEFR",$J,n)=list of standard fields returned by the RPC. n is a numeric value. ; ^TMP("VIABEFR",$J,n+1)=63:04:IEN^.01 DATE/TIME SPECIMEN TAKEN^.06 ACCESSION^.03 DATE REPORT COMPLETED ; ^TMP("VIABEFR",$J,n+2)=4 CREATININE ; ^TMP("VIABEFR",$J,n+3)=31 COPPER ; ^TMP("VIABEFR",$J,n+4)=32 ZINC ; ^TMP("VIABEFR",$J,n+5)=33 ARSENIC ; ^TMP("VIABEFR",$J,n+6)=35 LEAD (SK) ; ^TMP("VIABEFR",$J,n+7)=101 CADMIUM ; ^TMP("VIABEFR",$J,n+8)=106 CHROMIUM ; ^TMP("VIABEFR",$J,n+9)=108 COBALT ; ^TMP("VIABEFR",$J,n+10)=116 MANGANESE (SK) ; ^TMP("VIABEFR",$J,n+11)=205 ALUMINUM ; ^TMP("VIABEFR",$J,n+12)=322 NICKEL (SK) ; ^TMP("VIABEFR",$J,n+13)=750 IRON ; ^TMP("VIABEFR",$J,n+14)=797 VOLUME ; ^TMP("VIABEFR",$J,n+15)=840 ELAPSED TIME ; VIAEFLDS - custom fields passed in as input parameter and returned by the RPC are stored after the standard fields. ; ^TMP("VIABEFR",$J,n+16)=TESTNAME;NUMBER^RESULT |
|
| STMP | ;set ^TMP("VIAEFR"
|
|
| STRTFRM() | ; find where to start File 67.1 search
|
|
| SETFRM | ; entry to start list.
|
|
| DTCHK | ;check/set date
|
|
| KVAR | ;Clean-up
|
| RPC Name | Call Tags |
|---|---|
| VIAB EFR | EN |
| FileNo | Call Tags |
|---|---|
| 63.04 | FIELD^DID, GET1^DIQ |
| ^LRT(67.1 - [#67.1] | GET1^DIQ |
