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 |