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

DVBCXUTL.m

Go to the documentation of this file.
  1. DVBCXUTL ;ALB/GTS-AMIE Transfer utility routines ; 11/28/94 2:30 PM
  1. ;;2.7;AMIE;**2**;Apr 10, 1995
  1. ;
  1. ;** Version Changes
  1. ; 2.7 - New routine (Enhc 15)
  1. ;
  1. INREAS ;** Add insufficient reason to server msg
  1. S EXAMS=EXAMS_"^"
  1. I $D(DVBAINSF) DO
  1. .N DVBAXMDA S DVBAXMDA=""
  1. .F S DVBAXMDA=$O(XEXAMS(DVBAXMDA)) Q:(DVBAXMDA="") DO
  1. ..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:"")_"^"
  1. Q
  1. ;
  1. CLRVAR ;** Clear the XMVAR local array
  1. F LPCNT=0:0 S LPCNT=$O(XMVAR(LPCNT)) Q:LPCNT="" K XMVAR(LPCNT)
  1. Q
  1. ;
  1. SETXMVR ;** XMVAR(XMCNT)=$EXAM AMIE EXAM IFN^INSUF REASON IFN
  1. S XMVAR(XMCNT)="$EXAM "_$P(^DVB(396.4,+Y,0),U,3)
  1. 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:"")
  1. Q
  1. ;
  1. KILLVRS ;** Kill variables used by DVBCXFRA
  1. K DIC,%,%Y,I,J,JJ,EXMNM,SEL,CORR,DOMNUM,DOMNUM1,DOMNAM,EXAMS,DVBAINSF,XMCNT,LPCNT
  1. Q