Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSOS

BPSOS.m

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