Changeset 623 for WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE.m (modified) (3 diffs)

WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE.m

@@ -1 @@
-DVBHCE ; GENERATED FROM 'DVBHINQ UPDATE' INPUT TEMPLATE(#960), FILE 2;12/13/08
+DVBHCE ; GENERATED FROM 'DVBHINQ UPDATE' INPUT TEMPLATE(#960), FILE 2;12/27/07
  D DE G BEGIN
 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
- I $D(^(.32)) S %Z=^(.32) S %=$P(%Z,U,4) S:%]"" DE(23)=% S %=$P(%Z,U,5) S:%]"" DE(21)=% S %=$P(%Z,U,6) S:%]"" DE(19)=% S %=$P(%Z,U,7) S:%]"" DE(20)=% S %=$P(%Z,U,8) S:%]"" DE(24)=% S %=$P(%Z,U,11) S:%]"" DE(32)=% S %=$P(%Z,U,19) S:%]"" DE(30)=%
+ I $D(^(.32)) S %Z=^(.32) S %=$P(%Z,U,4) S:%]"" DE(23)=% S %=$P(%Z,U,5) S:%]"" DE(21)=% S %=$P(%Z,U,6) S:%]"" DE(19)=% S %=$P(%Z,U,7) S:%]"" DE(20)=% S %=$P(%Z,U,8) S:%]"" DE(24)=%
  K %Z Q
  ;
@@ -191 +191 @@
  G RE
 C24 G C24S:$D(DE(24))[0 K DB
- S X=DE(24),DIC=DIE
- D EVENT^IVMPLOG(DA)
+ D ^DVBHCE1
 C24S S X="" G:DG(DQ)=X C24F1 K DB
- S X=DG(DQ),DIC=DIE
- D EVENT^IVMPLOG(DA)
+ D ^DVBHCE2
 C24F1 Q
 X24 S DFN=DA D SV^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
@@ -214 +212 @@
 X29 S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,"[NTLAST]",DVBOFF X DVBLIT1
  Q
-30 D:$D(DG)>9 F^DIE17,DE S DQ=30,DW=".32;19",DV="RSX",DU="",DLB="Service NTL Episode",DIFLD=.3285
- S DE(DW)="C30^DVBHCE"
- S DU="Y:YES;N:NO;"
- G RE
-C30 G C30S:$D(DE(30))[0 K DB
- S X=DE(30),DIC=DIE
- ;
- S X=DE(30),DIC=DIE
- ;
- S X=DE(30),DIC=DIE
- X ^DD(2,.3285,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR
-C30S S X="" G:DG(DQ)=X C30F1 K DB
- D ^DVBHCE1
-C30F1 Q
-X30 S DFN=DA D SV^DGLOCK
- Q
- ;
-31 D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=31 D X31 D:$D(DIEFIRE)#2 FIREREC^DIE17 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
-X31 I $P(^DPT(D0,.32),U,19)'="Y" S Y="@31"
- Q
-32 D:$D(DG)>9 F^DIE17,DE S DQ=32,DW=".32;11",DV="RDX",DU="",DLB="NTL-EOD",DIFLD=.3292
- S DE(DW)="C32^DVBHCE",DE(DW,"INDEX")=1
- G RE
-C32 G C32S:$D(DE(32))[0 K DB
- D ^DVBHCE2
-C32S S X="" G:DG(DQ)=X C32F1 K DB
- D ^DVBHCE3
-C32F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=649 S DIEZRXR(2,DIXR)=""
- Q
-X32 S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSNTL") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=2 D POS^DGINP
- Q
- ;
-33 D:$D(DG)>9 F^DIE17 G ^DVBHCE4
+30 D:$D(DG)>9 F^DIE17 G ^DVBHCE3