BPSRPC02 ;AITC/PD - ECME TAS RPC - Extract Txn Data;7/30/2018
Source file <BPSRPC02.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXTRACT(RESULT,ARGS) | ; RPC: BPS TAS CLAIM DATA EXTRACT
; Extract the data for a specific Txn IEN |
|
| JSON | ; Prepare JSON file
; Transform the BPSTMP1 array into JSON format |
|
| REFORMAT | ; Reformat BPSTMP array
; Reformat BPSTMP array into BPSTMP1 to transform to JSON format ; BPSTMP1 will regroup fields by FHIR Resource |
|
| MSGSET(TYP,MSG) | ;return error or informational message
; RSLT - storage location, passed by ref. ; TYP - message type ; MSG - text |
|
| LOG(SVARRY) | ; create log in ^XTMP('BPSTAS-LOG-'_'+$h')
; SVARRY - name of array to save, e.g. "RCVAL" or "ARG" |
|
| FHIR | ; Get FHIR Resource for field
|
| RPC Name | Call Tags |
|---|---|
| BPS TAS CLAIM DATA EXTRACT | EXTRACT |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^BPSC - [#9002313.02] | GET1^DIQ |
| ^BPSTL - [#9002313.57] | GET1^DIQ |
