| [613] | 1 | BPSOS ;BHAM ISC/FCS/DRS - Table of Contents, etc ;06/01/2004
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | TOC N I,X F I=0:1 S X=$P($T(TOC1+I),";",2,9) Q:X="*" D
|
|---|
| 8 | . W X,!
|
|---|
| 9 | Q
|
|---|
| 10 | TOC1 ; Directory of BPSEC* and BPSOS*
|
|---|
| 11 | ; BPSECA* - Build formatted claim packets
|
|---|
| 12 | ; BPSECFM - Formatting (signed numeric overpunch, etc.)
|
|---|
| 13 | ; BPSECM* - Parse Response packets
|
|---|
| 14 | ; BPSECX* - Low-level BPS Claims routines, descendant from BPSOSQ2
|
|---|
| 15 | ; BPSMHDR - Menu header
|
|---|
| 16 | ; BPSNCP* - Callable API to initiate an ECME claim
|
|---|
| 17 | ; BPSOS0* - Some fetch utilities for BPS Claims and BPS Responses
|
|---|
| 18 | ; BPSOS2x - Statistics Screen
|
|---|
| 19 | ; BPSOS57 - Utilities for BPS Log of Transactions
|
|---|
| 20 | ; BPSOS6M - Developer Log
|
|---|
| 21 | ; BPSOSC2 - Certification utilities (sporadic development use only)
|
|---|
| 22 | ; BPSOSCx - Building BPS Claims (BPSOSQ2->QG->CA->C*)
|
|---|
| 23 | ; BPSOSH* - Support utilities for packet building
|
|---|
| 24 | ; BPSOSI* - BPS Transaction creation
|
|---|
| 25 | ; BPSOSK* - Winnowing old data
|
|---|
| 26 | ; BPSOSL* - Log file utilities
|
|---|
| 27 | ; BPSOSO* - Override NCPDP Data Dictionary values
|
|---|
| 28 | ; BPSOSQ* - Claim processing through the queues
|
|---|
| 29 | ; BPSOSR* - Queue Processing
|
|---|
| 30 | ; BPSOSS* - Setup POS
|
|---|
| 31 | ; BPSOSU* - Utilities
|
|---|
| 32 | ;*
|
|---|
| 33 | RXDEL(RXI,RXR) ; EP - $$ is RX deleted?
|
|---|
| 34 | ; For refills: if the refill multiple is gone, it's been "deleted"
|
|---|
| 35 | I $G(RXR),$$RXSUBF1^BPSUTIL1(RXI,52,52.1,RXR,.01,"I")="" Q 1
|
|---|
| 36 | ; For first fill: look at the STATUS flag
|
|---|
| 37 | I $$RXAPI1^BPSUTIL1(RXI,.01,"E")="" Q 1 ; shouldn't be missing but is
|
|---|
| 38 | N X S X=$$RXAPI1^BPSUTIL1(RXI,100,"I")
|
|---|
| 39 | Q X=13 ; if status is DELETED
|
|---|
| 40 | ZWRITE(%,VARA,VARB,VARC,VARD,VARE) ;EP - from many, many places
|
|---|
| 41 | I %="%"!(%?1"VAR"1U) D Q
|
|---|
| 42 | . D IMPOSS^BPSOSUE("P","TI","Conflict in var names",%,"ZWRITE",$T(+0))
|
|---|
| 43 | I '$D(@%) W %," is undefined",! Q
|
|---|
| 44 | I $D(@%)#10 W %,"=",@%,!
|
|---|
| 45 | F S %=$Q(@%) Q:%="" W %,"=",@%,!
|
|---|
| 46 | I $D(VARA) D ZWRITE(VARA)
|
|---|
| 47 | I $D(VARB) D ZWRITE(VARB)
|
|---|
| 48 | I $D(VARC) D ZWRITE(VARC)
|
|---|
| 49 | I $D(VARD) D ZWRITE(VARD)
|
|---|
| 50 | I $D(VARE) D ZWRITE(VARE)
|
|---|
| 51 | Q
|
|---|
