- 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 Jan 18, 2025@02:55:47 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