VIABEFR ;AAC/JMC - VIA EFR RPCs ;05/17/2016
Source file <VIABEFR.m>
| 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(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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | TMP+3* |
| DTIME | TMP+2* |
| DUZ | TMP+1, TMP+2* |
| DUZ(0 | TMP+2* |
| F671 | LAB6304+20~, LAB6304+21*, LAB6304+24* |
| FLD | LAB6304+20~, LAB6304+26*, LAB6304+27, LAB6304+31*, LAB6304+33*, STMP+2, STMP+3, STMP+4 |
| FLDNM | STMP+1~, STMP+2*, STMP+4 |
| I | PARSE+9~, IDS+1~, IDS+3* |
| IENS | LAB671+6~, LAB671+16*, LAB671+17, LAB671+18, LAB671+19, IDS+5*, IDS+6, IDS+7, IDS+8, SETFRM+2 |
| IFLDS | PARSE+9~ |
| IVDT | LAB6304+20~, LAB6304+22*, LAB6304+23*, LAB6304+27, LAB6304+29, STMP+3, SETFRM+2 |
| J | LAB6304+20~, LAB6304+26*, LAB6304+31*, LAB6304+33* |
| LRIEN | LAB671+6~, LAB671+17*, LAB671+19, IDS+6*, IDS+8, LAB6304+23, LAB6304+27, STMP+3, SETFRM+2 |
| QFLG | LAB671+6~, LAB671+8*, LAB671+15, LAB671+16, IDS+4, IDS+5, LAB6304+23* |
| RESULT | EN~, LAB671+13!*, LAB671+21!, LAB671+22*, IDS+10!, IDS+11* |
| SFLDS | PARSE+9~ |
| STR | STRTFRM+1~, STRTFRM+2*, STRTFRM+3, STRTFRM+4* |
| STR671 | LAB671+6~, LAB671+19*, IDS+8*, LAB6304+24 |
| U | TMP+2*, LAB671+18, LAB671+19, IDS+7, IDS+8, STRTFRM+2, STRTFRM+4, SETFRM+2 |
| VIA | EN~, EN+1, PARSE~ |
| VIA("EDATE" | PARSE+16 |
| VIA("FIELDS" | PARSE+10 |
| VIA("FROM" | PARSE+13 |
| VIA("IDS" | PARSE+17 |
| VIA("MAX" | PARSE+11 |
| VIA("SDATE" | PARSE+15 |
| VIA671 | LAB671+6~, LAB671+18*, LAB671+19, IDS+7*, IDS+8, SETFRM+2 |
| VIABFRM | PARSE+14*, LAB6304+22, KVAR+1! |
| VIAC | LAB671+6~, LAB671+8*, LAB6304+24*, LAB6304+29*, STMP+4*, SETFRM+1*, SETFRM+2* |
| VIACNT | LAB671+6~, LAB671+8*, LAB6304+23, LAB6304+24*, LAB6304+25* |
| VIAEDT | PARSE+16*, LAB6304+23, DTCHK+1*, DTCHK+2*, DTCHK+3*, DTCHK+4*, KVAR+1! |
| VIAEFLDS | LAB6304+20~, LAB6304+22*, LAB6304+33 |
| VIAFIELDS | PARSE+10*, LAB6304+22, KVAR+1! |
| VIAFROM | PARSE+13*, PARSE+14, LAB671+11*, LAB671+14, STRTFRM+2, STRTFRM+3*, STRTFRM+4*, KVAR+1! |
| VIAID | IDS+1~ |
| VIAID( | IDS+3*, IDS+4 |
| VIAIDS | PARSE+17*, LAB671+10, IDS+3, KVAR+1! |
| VIALB | STMP+5! |
| VIALB("LABEL" | STMP+2 |
| VIAMAX | PARSE+11*, PARSE+12*, LAB6304+23, KVAR+1! |
| VIASDT | PARSE+15*, LAB6304+22, DTCHK+1*, DTCHK+3*, DTCHK+4*, KVAR+1! |
| VIASFLDS | LAB6304+20~, LAB6304+21*, LAB6304+26 |
| VIASFLDS1 | LAB6304+20~, LAB6304+21*, LAB6304+31 |
| VIASTR | LAB6304+20~, LAB6304+27*, LAB6304+28, STMP+1~, STMP+3*, STMP+4 |
| VIAVAL | LAB6304+20~, LAB6304+25*, LAB6304+28*, LAB6304+29 |
| X | PARSE+9~, TMP+3, IDS+1~, LAB6304+20~, DTCHK+1*, DTCHK+4*, KVAR+1! |
| XREF | LAB671+6~, LAB671+14*, LAB671+15*, LAB671+16, IDS+4*, IDS+5 |
| Y | IDS+1~, IDS+3*, KVAR+1! |
