source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCXUTL.m@ 1226

Last change on this file since 1226 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 946 bytes
RevLine 
[613]1DVBCXUTL ;ALB/GTS-AMIE Transfer utility routines ; 11/28/94 2:30 PM
2 ;;2.7;AMIE;**2**;Apr 10, 1995
3 ;
4 ;** Version Changes
5 ; 2.7 - New routine (Enhc 15)
6 ;
7INREAS ;** Add insufficient reason to server msg
8 S EXAMS=EXAMS_"^"
9 I $D(DVBAINSF) DO
10 .N DVBAXMDA S DVBAXMDA=""
11 .F S DVBAXMDA=$O(XEXAMS(DVBAXMDA)) Q:(DVBAXMDA="") DO
12 ..S EXAMS=EXAMS_$S(+$P(^DVB(396.4,DVBAXMDA,0),U,11)>0:$P(^DVB(396.94,$P(^DVB(396.4,DVBAXMDA,0),U,11),0),U,2),1:"")_"^"
13 Q
14 ;
15CLRVAR ;** Clear the XMVAR local array
16 F LPCNT=0:0 S LPCNT=$O(XMVAR(LPCNT)) Q:LPCNT="" K XMVAR(LPCNT)
17 Q
18 ;
19SETXMVR ;** XMVAR(XMCNT)=$EXAM AMIE EXAM IFN^INSUF REASON IFN
20 S XMVAR(XMCNT)="$EXAM "_$P(^DVB(396.4,+Y,0),U,3)
21 S:$D(DVBAINSF) XMVAR(XMCNT)=XMVAR(XMCNT)_U_$S(+$P(^DVB(396.4,+Y,0),U,11)>0:$P(^DVB(396.94,$P(^DVB(396.4,+Y,0),U,11),0),U,1),1:"")
22 Q
23 ;
24KILLVRS ;** Kill variables used by DVBCXFRA
25 K DIC,%,%Y,I,J,JJ,EXMNM,SEL,CORR,DOMNUM,DOMNUM1,DOMNAM,EXAMS,DVBAINSF,XMCNT,LPCNT
26 Q
Note: See TracBrowser for help on using the repository browser.