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

BHLRXAI.m

Go to the documentation of this file.
  1. BHLRXAI ; cmi/sitka/maw - BHL File Inbound RXA Segment ;
  1. ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1. ;
  1. ;this routine will file the inbound RXA segment it is called from
  1. ;VIMM^BHLORCI
  1. ;
  1. Q
  1. ;
  1. VIMM ;EP - v immunization
  1. N BHLR
  1. S BHLR="RXA"
  1. S BHLIMM=$P($G(@BHLTMP@(BHLDA,5)),CS,2)
  1. Q:BHLIMM=""
  1. S BHLIMMI=$O(^AUTTIMM("B",BHLIMM,0))
  1. K BHLMTCH
  1. S BHLIDA=0 F S BHLIDA=$O(^AUPNVIMM("AD",BHLVSIT,BHLIDA)) Q:BHLIDA=""!($D(BHLIMME)) D
  1. . I $P(^AUPNVIMM(BHLIDA,0),U)=BHLIMMI S BHLMTCH=1 Q
  1. Q:$D(BHLMTCH)
  1. S BHLLOT=$G(@BHLTMP@(BHLDA,15))
  1. S APCDALVR("APCDTIMM")=BHLIMM
  1. S APCDALVR("APCDTLOT")=BHLLOT
  1. Q
  1. ;