| [613] | 1 | DVBHQUT ;ISC-ALBANY/PKE-stuff entry in suspense file 20 JUN 85 3:50 pm ; 9/4/87 14:43 ;
|
|---|
| 2 | ;;V4.0;HINQ;**12**;03/25/92
|
|---|
| 3 | S DVBNOWRT=""
|
|---|
| 4 | EN Q:'$D(DUZ) Q:DUZ<1 D:'$D(DT) DT^DICRW I 1
|
|---|
| 5 | I $D(DFN),+DFN S U="^",DVBP="" D BYPASS^DVBHIQD I 1
|
|---|
| 6 | E Q
|
|---|
| 7 | EN1 Q:'$D(^DPT(DFN,0))
|
|---|
| 8 | I '$D(DVBZ) W *7,!,"No HINQ string created entry not entered." Q
|
|---|
| 9 | S %=$P($H,",",2),Z=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
|
|---|
| 10 | L +^DVB(395.5,DFN) S ^DVB(395.5,"D",DUZ,DFN,DUZ)=""
|
|---|
| 11 | I $D(^DVB(395.5,DFN,0)) D ENT2 I 1
|
|---|
| 12 | E D ENT
|
|---|
| 13 | L -^DVB(395.5,DFN)
|
|---|
| 14 | W:'$D(DVBNOWRT) " in HINQ suspense file" K DVBNAM,DVBNOWRT,DVBOT,J,J1,J2,J3 Q
|
|---|
| 15 | ;This is left over referrence
|
|---|
| 16 | SET Q:'$D(DFN) Q:'DFN S U="^",X="N",%DT="T" D ^%DT S DVBTMX=Y,DVBTX=9999999-DVBTMX
|
|---|
| 17 | Q:'$D(^DVB(395.5,DFN,0))
|
|---|
| 18 | L +^DVB(395.5,DFN) S DVBOTMX=+$P(^DVB(395.5,DFN,0),U,3),$P(^DVB(395.5,DFN,0),U,3)=DVBTMX
|
|---|
| 19 | I '$D(DVBMM1) S $P(^DVB(395.5,DFN,0),U,4)=$S($D(DVBSTATS):DVBSTATS,1:"")
|
|---|
| 20 | D KIL
|
|---|
| 21 | I $D(DVBIXMZ) S $P(^DVB(395.5,DFN,0),U,7,8)=DVBIXMZ_"^"_DVBTMX
|
|---|
| 22 | S ^DVB(395.5,"C",DVBTX,DFN)="" K:DVBTX-(9999999-DVBOTMX) ^DVB(395.5,"C",9999999-DVBOTMX,DFN) L -^DVB(395.5,DFN) K DVBOTMX,DVBTMX,DVBTX Q
|
|---|
| 23 | KIL K:DVBSTATS'="P" ^DVB(395.5,"AD","P",DFN) I DVBSTATS="N",('$D(DVBMM1)) S ^DVB(395.5,"AC","N",DFN)="",$P(^DVB(395.5,DFN,0),U,5)="N"
|
|---|
| 24 | K:DVBSTATS'="N" ^DVB(395.5,"AC","N",DFN)
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | ENT S ^DVB(395.5,DFN,0)=DFN_"^^"_Z_"^"_"P"_"^" I +(DVBDIV) S ^(0)=^(0)_"^^^^"_DVBDIV
|
|---|
| 28 | S ^DVB(395.5,DFN,1,0)="^"_"395.51PA"_"^"_DUZ_"^"_1,^(DUZ,0)=DUZ_"^"_Z
|
|---|
| 29 | S ^DVB(395.5,DFN,"HQ")=DVBZ
|
|---|
| 30 | S $P(^(0),U,3,4)=DFN_"^"_($P(^DVB(395.5,0),U,4)+1),^DVB(395.5,"B",DFN,DFN)="",^DVB(395.5,"C",$E(9999999-Z,1,30),DFN)="",^DVB(395.5,"AD","P",DFN)=""
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | ENT2 S DVBOT=+$P(^DVB(395.5,DFN,0),U,3),$P(^(0),U,3)=Z,$P(^(0),U,4)="P" S:+(DVBDIV) $P(^(0),U,9)=DVBDIV I DVBOT'[DT S $P(^(0),U,6)=""
|
|---|
| 34 | I '$D(^DVB(395.5,DFN,1,0)) D BAD S ^DVB(395.5,DFN,1,0)="^"_"395.51PA"_"^"_DUZ_"^"_J2 I J3 G NXT
|
|---|
| 35 | I '$D(^DVB(395.5,DFN,1,DUZ,0)) S $P(^DVB(395.5,DFN,1,0),U,4)=$P(^DVB(395.5,DFN,1,0),U,4)+1
|
|---|
| 36 | NXT S $P(^DVB(395.5,DFN,1,0),U,3)=DUZ,^(DUZ,0)=DUZ_"^"_Z,^DVB(395.5,"AD","P",DFN)="",^DVB(395.5,DFN,"HQ")=DVBZ
|
|---|
| 37 | K ^DVB(395.5,"C",9999999-DVBOT,DFN) S ^DVB(395.5,"C",9999999-Z,DFN)=""
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | BAD S (J2,J3)=0 F J1=0:0 S J1=$O(^DVB(395.5,DFN,1,J1)) Q:'J1 S J2=J2+1
|
|---|
| 41 | I 'J2 S (J2,J3)=1
|
|---|
| 42 | Q
|
|---|
