BPSRPC02 ;AITC/PD - ECME TAS RPC - Extract Txn Data;7/30/2018
Source file <BPSRPC02.m>
Package | Total | Call Graph |
---|---|---|
E Claims Management Engine | 6 | $$INSPAID1^BPSOS03 EXTRACT^BPSRPC04 ($$BILL,$$COLLECTD,$$DRGCLNAM,$$INSNAM,$$REFRELDT,$$RXRELDT)^BPSRPT6 ($$FORMAT,$$RXST)^BPSSCRU2 $$TOUCHED^BPSUTIL $$DRUGDIE^BPSUTIL1 |
Kernel | 4 | ($$FMTE,$$HTFM,$$NOW)^XLFDT ENCODE^XLFJSON $$NS^XUAF4 $$KSP^XUPARAM |
Outpatient Pharmacy | 1 | $$MWC^PSOBPSU2 |
VA FileMan | 1 | $$GET1^DIQ |
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 |
Package | Total | Caller Graph |
---|---|---|
E Claims Management Engine | 2 | BPS TAS CLAIM DATA EXTRACT BPSRPC01 |
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
|
Name | Field # of Occurrence |
---|---|
$$INSPAID1^BPSOS03 | EXTRACT+130 |
EXTRACT^BPSRPC04 | EXTRACT+22 |
$$BILL^BPSRPT6 | EXTRACT+93 |
$$COLLECTD^BPSRPT6 | EXTRACT+97 |
$$DRGCLNAM^BPSRPT6 | EXTRACT+71 |
$$INSNAM^BPSRPT6 | EXTRACT+128 |
$$REFRELDT^BPSRPT6 | EXTRACT+191 |
$$RXRELDT^BPSRPT6 | EXTRACT+190 |
$$FORMAT^BPSSCRU2 | EXTRACT+111 |
$$RXST^BPSSCRU2 | EXTRACT+194 |
$$TOUCHED^BPSUTIL | EXTRACT+186 |
$$DRUGDIE^BPSUTIL1 | EXTRACT+70 |
$$GET1^DIQ | EXTRACT+23, EXTRACT+30, EXTRACT+33, EXTRACT+36, EXTRACT+39, EXTRACT+42, EXTRACT+45, EXTRACT+48, EXTRACT+51, EXTRACT+54 , EXTRACT+57, EXTRACT+60, EXTRACT+63, EXTRACT+66, EXTRACT+69, EXTRACT+79, EXTRACT+83, EXTRACT+84, EXTRACT+86, EXTRACT+92 , EXTRACT+94, EXTRACT+95, EXTRACT+96, EXTRACT+98, EXTRACT+100, EXTRACT+101, EXTRACT+102, EXTRACT+104, EXTRACT+114, EXTRACT+115 , EXTRACT+125, EXTRACT+126, EXTRACT+127, EXTRACT+133, EXTRACT+135, EXTRACT+137, EXTRACT+139, EXTRACT+143, EXTRACT+144, EXTRACT+146 , EXTRACT+147, EXTRACT+148, EXTRACT+149, EXTRACT+154, EXTRACT+155, EXTRACT+162, EXTRACT+169, EXTRACT+172, EXTRACT+183, EXTRACT+187 |
$$MWC^PSOBPSU2 | EXTRACT+117 |
$$FMTE^XLFDT | EXTRACT+84, EXTRACT+98, EXTRACT+162, EXTRACT+187 |
$$HTFM^XLFDT | LOG+6 |
$$NOW^XLFDT | LOG+6 |
ENCODE^XLFJSON | JSON+2 |
$$NS^XUAF4 | EXTRACT+73 |
$$KSP^XUPARAM | EXTRACT+73 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPSC - [#9002313.02] | EXTRACT+110 |
^BPSTL - [#9002313.57] | EXTRACT+21 |
^TMP("JSERR" | JSON+2, JSON+3 |
^TMP("JSON" | EXTRACT+17 |
^XTMP( | LOG+4, LOG+7*, LOG+9, LOG+10*, LOG+11*, LOG+13* |
Name | Field # of Occurrence |
---|---|
^("$H" | LOG+10* |
^("$I" | LOG+10* |
^("COUNT" | LOG+9* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | LOG+2~, LOG+6*, LOG+7, LOG+11*, LOG+13* |
ARGS | EXTRACT~ |
ARGS("BPS59" | EXTRACT+19 |
ARGS("LOG" | EXTRACT+18 |
BPS57 | EXTRACT+12~, EXTRACT+19*, EXTRACT+20, EXTRACT+21, EXTRACT+22, EXTRACT+23, EXTRACT+30, EXTRACT+33, EXTRACT+36, EXTRACT+39 , EXTRACT+42, EXTRACT+45, EXTRACT+48, EXTRACT+51, EXTRACT+54, EXTRACT+57, EXTRACT+60, EXTRACT+63, EXTRACT+69, EXTRACT+92 , EXTRACT+94, EXTRACT+95, EXTRACT+96, EXTRACT+98, EXTRACT+100, EXTRACT+101, EXTRACT+102, EXTRACT+104, EXTRACT+114, EXTRACT+115 , EXTRACT+125, EXTRACT+126, EXTRACT+127, EXTRACT+133, EXTRACT+135, EXTRACT+137, EXTRACT+143, EXTRACT+144, EXTRACT+146, EXTRACT+147 , EXTRACT+148, EXTRACT+149, EXTRACT+154, EXTRACT+155, EXTRACT+162, EXTRACT+172, EXTRACT+183, EXTRACT+186, EXTRACT+187 |
BPS59 | EXTRACT+12~, EXTRACT+23*, EXTRACT+128, EXTRACT+194 |
BPSCNT | EXTRACT+12~, JSON+6*, JSON+7*, JSON+8, REFORMAT+4*, REFORMAT+12*, REFORMAT+13 |
BPSDFN | EXTRACT+12~, EXTRACT+39*, EXTRACT+139 |
BPSDRG | EXTRACT+12~, EXTRACT+69*, EXTRACT+70 |
BPSDRGCLID | EXTRACT+12~, EXTRACT+70*, EXTRACT+71 |
BPSDRGCLNM | EXTRACT+12~, EXTRACT+71*, EXTRACT+103 |
BPSECME | EXTRACT+12~, EXTRACT+109*, EXTRACT+110*, EXTRACT+111*, EXTRACT+112 |
BPSFHIR | EXTRACT+13~, REFORMAT+9*, REFORMAT+10 |
>> BPSFHIR1 | REFORMAT+8*, REFORMAT+9, REFORMAT+10*, REFORMAT+11*, REFORMAT+13 |
BPSFLD | EXTRACT+13~, REFORMAT+3*, REFORMAT+5*, REFORMAT+7, REFORMAT+10, REFORMAT+13 |
BPSI | EXTRACT+13~, REFORMAT+9* |
BPSLST | EXTRACT+13~, EXTRACT+42* |
BPSPC | EXTRACT+13~, EXTRACT+33*, EXTRACT+79, EXTRACT+83, EXTRACT+84, EXTRACT+86, EXTRACT+106, EXTRACT+169 |
BPSPC1 | EXTRACT+13~, EXTRACT+106*, EXTRACT+108*, EXTRACT+109, EXTRACT+110 |
BPSPOS | EXTRACT+13~, EXTRACT+48*, EXTRACT+109, EXTRACT+110, EXTRACT+130 |
BPSPR | EXTRACT+13~, EXTRACT+54*, EXTRACT+96, EXTRACT+108 |
BPSPRV | EXTRACT+13~, EXTRACT+66* |
BPSPTID | EXTRACT+13~, EXTRACT+139*, EXTRACT+140*, EXTRACT+141 |
BPSRC | EXTRACT+13~, EXTRACT+36*, EXTRACT+130 |
BPSRDT | EXTRACT+14~, EXTRACT+190*, EXTRACT+191*, EXTRACT+193 |
BPSRF | EXTRACT+14~, EXTRACT+45*, EXTRACT+93, EXTRACT+97, EXTRACT+117, EXTRACT+190, EXTRACT+191 |
BPSRJC | EXTRACT+14~, EXTRACT+156*, EXTRACT+159 |
BPSRJDATA | EXTRACT+14~, EXTRACT+155*, EXTRACT+156, EXTRACT+157 |
BPSRJE | EXTRACT+14~, EXTRACT+157*, EXTRACT+160 |
BPSRJF | EXTRACT+14~, EXTRACT+154*, EXTRACT+155, EXTRACT+158 |
BPSRJN | EXTRACT+14~, EXTRACT+158*, EXTRACT+159, EXTRACT+160 |
BPSRX | EXTRACT+14~, EXTRACT+30*, EXTRACT+66, EXTRACT+93, EXTRACT+97, EXTRACT+117, EXTRACT+190, EXTRACT+191 |
BPSRXACT | EXTRACT+14~, EXTRACT+57*, EXTRACT+120, EXTRACT+121, EXTRACT+122 |
BPSRXACT1 | EXTRACT+15~, EXTRACT+119*, EXTRACT+120*, EXTRACT+121*, EXTRACT+122*, EXTRACT+123 |
BPSSQ | EXTRACT+15~, EXTRACT+60*, EXTRACT+93, EXTRACT+97, EXTRACT+179, EXTRACT+180, EXTRACT+181 |
BPSSTATUS | EXTRACT+15~, EXTRACT+63*, EXTRACT+145, EXTRACT+151, EXTRACT+165, EXTRACT+166, EXTRACT+197, EXTRACT+198, EXTRACT+199, EXTRACT+200 , EXTRACT+201, EXTRACT+202 |
BPSSTR | EXTRACT+15~, EXTRACT+51* |
BPSTMP | EXTRACT+15~ |
BPSTMP( | REFORMAT+5, REFORMAT+7, REFORMAT+13 |
BPSTMP("BIN" | EXTRACT+94* |
BPSTMP("BillNumber" | EXTRACT+93* |
BPSTMP("BilledAmount" | EXTRACT+92* |
BPSTMP("ClaimID" | EXTRACT+95*, EXTRACT+96* |
BPSTMP("ClosedByUser" | EXTRACT+83*, EXTRACT+88* |
BPSTMP("ClosedDate" | EXTRACT+84*, EXTRACT+85*, EXTRACT+89* |
BPSTMP("ClosedReason" | EXTRACT+86*, EXTRACT+90* |
BPSTMP("CollectedAmount" | EXTRACT+97* |
BPSTMP("CompletedDate" | EXTRACT+98*, EXTRACT+99* |
BPSTMP("DispensingFee" | EXTRACT+100* |
BPSTMP("DispensingFeePaid" | EXTRACT+101* |
BPSTMP("Division" | EXTRACT+102* |
BPSTMP("DrugClass" | EXTRACT+103* |
BPSTMP("DrugName" | EXTRACT+104* |
BPSTMP("ECMENumber" | EXTRACT+112* |
BPSTMP("ElapseTimeInSeconds" | EXTRACT+114* |
BPSTMP("Eligibility" | EXTRACT+115*, EXTRACT+116* |
BPSTMP("FillLocation" | EXTRACT+117* |
BPSTMP("FillType" | EXTRACT+123* |
BPSTMP("GroupID" | EXTRACT+125* |
BPSTMP("IngredientCost" | EXTRACT+126* |
BPSTMP("IngredientCostPaid" | EXTRACT+127* |
BPSTMP("InsuranceName" | EXTRACT+128* |
BPSTMP("InsurancePaidAmount" | EXTRACT+130*, EXTRACT+131* |
BPSTMP("MultipleRejects" | EXTRACT+133*, EXTRACT+134*, EXTRACT+135* |
BPSTMP("NDC" | EXTRACT+137* |
BPSTMP("OpenClosed" | EXTRACT+79*, EXTRACT+80*, EXTRACT+82 |
BPSTMP("PatientID" | EXTRACT+141* |
BPSTMP("PatientName" | EXTRACT+143* |
BPSTMP("PatientPayAmount" | EXTRACT+144* |
BPSTMP("PayerResponse" | EXTRACT+145* |
BPSTMP("Prescriber" | EXTRACT+146* |
BPSTMP("PrescriberID" | EXTRACT+147* |
BPSTMP("Quantity" | EXTRACT+148* |
BPSTMP("Refill" | EXTRACT+149* |
BPSTMP("RejectCode" | EXTRACT+159* |
BPSTMP("RejectExplanation" | EXTRACT+160* |
BPSTMP("Rejected" | EXTRACT+151*, EXTRACT+152* |
BPSTMP("ReleasedDate" | EXTRACT+162*, EXTRACT+163* |
BPSTMP("ReturnStatus" | EXTRACT+166*, EXTRACT+167*, EXTRACT+174* |
BPSTMP("ReversalMethod" | EXTRACT+169*, EXTRACT+170*, EXTRACT+175* |
BPSTMP("ReversalReason" | EXTRACT+172*, EXTRACT+176* |
BPSTMP("RxCOB" | EXTRACT+178*, EXTRACT+179*, EXTRACT+180*, EXTRACT+181* |
BPSTMP("RxNumber" | EXTRACT+183* |
BPSTMP("SiteName" | EXTRACT+184* |
BPSTMP("SiteNumber" | EXTRACT+185* |
BPSTMP("Touched" | EXTRACT+186*, EXTRACT+204* |
BPSTMP("TransactionDate" | EXTRACT+187*, EXTRACT+188* |
BPSTMP("TransactionStatus" | EXTRACT+194* |
BPSTMP("TransactionType" | EXTRACT+206* |
BPSTMP1 | EXTRACT+15~ |
BPSTMP1("Bundle" | REFORMAT+13* |
BPSVASITE | EXTRACT+15~, EXTRACT+73*, EXTRACT+184, EXTRACT+185 |
BPSX | EXTRACT+15~, EXTRACT+192*, EXTRACT+193*, EXTRACT+194 |
C | LOG+2~, LOG+9*, LOG+10, LOG+11, LOG+13 |
MSG | MSGSET~, MSGSET+5 |
ND | LOG+2~, LOG+3*, LOG+4, LOG+7, LOG+9, LOG+10, LOG+11, LOG+13 |
RESP1 | EXTRACT+15~, EXTRACT+196*, EXTRACT+197*, EXTRACT+198*, EXTRACT+199*, EXTRACT+200*, EXTRACT+201*, EXTRACT+203*, EXTRACT+205*, EXTRACT+206 |
RESULT | EXTRACT~, EXTRACT+17*, JSON+2, JSON+4, JSON+5, JSON+7, JSON+8, MSGSET+4, MSGSET+5 |
SVARRY | LOG~, LOG+13 |
TYP | MSGSET~, MSGSET+5 |
Name | Field # of Occurrence |
---|---|
$T( | LOG+6 |
$T(FHIR+BPSI | REFORMAT+9 |