| 1 | DVBCXUTL ;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 | ;
|
|---|
| 7 | INREAS ;** 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 | ;
|
|---|
| 15 | CLRVAR ;** Clear the XMVAR local array
|
|---|
| 16 | F LPCNT=0:0 S LPCNT=$O(XMVAR(LPCNT)) Q:LPCNT="" K XMVAR(LPCNT)
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | SETXMVR ;** 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 | ;
|
|---|
| 24 | KILLVRS ;** Kill variables used by DVBCXFRA
|
|---|
| 25 | K DIC,%,%Y,I,J,JJ,EXMNM,SEL,CORR,DOMNUM,DOMNUM1,DOMNAM,EXAMS,DVBAINSF,XMCNT,LPCNT
|
|---|
| 26 | Q
|
|---|
