DVBCXUTL ;ALB/GTS-AMIE Transfer utility routines ; 11/28/94 2:30 PM
;;2.7;AMIE;**2**;Apr 10, 1995
;
;** Version Changes
; 2.7 - New routine (Enhc 15)
;
INREAS ;** Add insufficient reason to server msg
S EXAMS=EXAMS_"^"
I $D(DVBAINSF) DO
.N DVBAXMDA S DVBAXMDA=""
.F S DVBAXMDA=$O(XEXAMS(DVBAXMDA)) Q:(DVBAXMDA="") DO
..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:"")_"^"
Q
;
CLRVAR ;** Clear the XMVAR local array
F LPCNT=0:0 S LPCNT=$O(XMVAR(LPCNT)) Q:LPCNT="" K XMVAR(LPCNT)
Q
;
SETXMVR ;** XMVAR(XMCNT)=$EXAM AMIE EXAM IFN^INSUF REASON IFN
S XMVAR(XMCNT)="$EXAM "_$P(^DVB(396.4,+Y,0),U,3)
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:"")
Q
;
KILLVRS ;** Kill variables used by DVBCXFRA
K DIC,%,%Y,I,J,JJ,EXMNM,SEL,CORR,DOMNUM,DOMNUM1,DOMNAM,EXAMS,DVBAINSF,XMCNT,LPCNT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCXUTL 972 printed Oct 16, 2024@17:55:24 Page 2
DVBCXUTL ;ALB/GTS-AMIE Transfer utility routines ; 11/28/94 2:30 PM
+1 ;;2.7;AMIE;**2**;Apr 10, 1995
+2 ;
+3 ;** Version Changes
+4 ; 2.7 - New routine (Enhc 15)
+5 ;
INREAS ;** Add insufficient reason to server msg
+1 SET EXAMS=EXAMS_"^"
+2 IF $DATA(DVBAINSF)
Begin DoDot:1
+3 NEW DVBAXMDA
SET DVBAXMDA=""
+4 FOR
SET DVBAXMDA=$ORDER(XEXAMS(DVBAXMDA))
if (DVBAXMDA="")
QUIT
Begin DoDot:2
+5 SET EXAMS=EXAMS_$SELECT(+$PIECE(^DVB(396.4,DVBAXMDA,0),U,11)>0:$PIECE(^DVB(396.94,$PIECE(^DVB(396.4,DVBAXMDA,0),U,11),0),U,2),1:"")_"^"
End DoDot:2
End DoDot:1
+6 QUIT
+7 ;
CLRVAR ;** Clear the XMVAR local array
+1 FOR LPCNT=0:0
SET LPCNT=$ORDER(XMVAR(LPCNT))
if LPCNT=""
QUIT
KILL XMVAR(LPCNT)
+2 QUIT
+3 ;
SETXMVR ;** XMVAR(XMCNT)=$EXAM AMIE EXAM IFN^INSUF REASON IFN
+1 SET XMVAR(XMCNT)="$EXAM "_$PIECE(^DVB(396.4,+Y,0),U,3)
+2 if $DATA(DVBAINSF)
SET XMVAR(XMCNT)=XMVAR(XMCNT)_U_$SELECT(+$PIECE(^DVB(396.4,+Y,0),U,11)>0:$PIECE(^DVB(396.94,$PIECE(^DVB(396.4,+Y,0),U,11),0),U,1),1:"")
+3 QUIT
+4 ;
KILLVRS ;** Kill variables used by DVBCXFRA
+1 KILL DIC,%,%Y,I,J,JJ,EXMNM,SEL,CORR,DOMNUM,DOMNUM1,DOMNAM,EXAMS,DVBAINSF,XMCNT,LPCNT
+2 QUIT
