BLIMPPC ;Importeren van het BLUM DMS-PC Produkt Classificatie ^BLVD2; [ 03/16/95  10:56 AM ]
 Goto BEGIN
 ;
BEGIN ; 
 New %J
 L ^BLVD2:2 E  X ^cTXT(0,"N",46) G MENU
C1 ; Verwerking hoofding
 Set RecNaam="MSGB",RecInp=^BLImp(MsgId)
 Set RecHfd=$P(RecInp,"\",1)_D_$P(RecInp,"\",6)_D_$P(RecInp,"\",5)
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set Once=0
 Set RecCnt=$P(RecInp,"\",8)
 Set RecNr=-1  
 ; Record 11
C2 Do NextRec Goto C6:RecNr=-1
KLAS G C2:RecType'=11 
 Set RecNaam="DMS-PC-11" DO TF
 Goto C2:Typ'="V2"
 Do KILL:'Once
 Set $P(R,D,1,2)=$P($G(^HULP(%J,Key),D),D,1,2)
 Set ^BLVD2(Key)=R
 ; Record 12
 Do NextRec Goto C6:RecNr=-1
 Goto KLAS:RecType'=12
OMSCHR Set RecNaam="DMS-PC-12" Do TF
 Goto C2
C6 Goto MENU
MENU Kill ^HULP(%J)
 L  Q
 
KILL New Key
 Set Key=""
 For  Set Key=$O(^BLVD2(Key)) Quit:Key=""  Do
 .Set:$P(^(Key),D) ^HULP(%J,Key)=$P(^(Key),D,1,2)
 Kill ^BLVD2
 Set ^BLVD2=RecHfd
 Set Once=1
 Quit
 
 ; Ophalen volgend record
NextRec Set RecNr=$N(^BLImp(MsgId,RecNr)) Q:RecNr=-1  Set RecInp=^(RecNr),RecType=$E(RecInp,2,3) Q
 ; Verwerken record
 
TF SET Tptr=0,Tptr=$N(^BLRecDef(RecNaam,Tptr)),R=""
TLoop Q:Tptr=-1
 Set TRec=^(Tptr),Piece=$P(TRec,D,4),Local=$P(TRec,D,5),Type=$P(TRec,D,6)
 If 'Piece&(Local="") Set Tptr=$N(^(Tptr)) Goto TLoop
 Set Mem=$E(RecInp,$P(TRec,D,1),$P(TRec,D,2))
LTRIM If $E(Mem,1)=" " Set Mem=$E(Mem,2,999) Goto LTRIM
RTRIM If $E(Mem,$L(Mem))=" " Set Mem=$E(Mem,1,$L(Mem)-1) Goto RTRIM
 Set:Type="N" Mem=+Mem ; Numeriek
 Set:Type="D" Mem=$E(Mem,7,8)_"."_$E(Mem,5,6)_"."_$E(Mem,3,4) ; Datum
 If Piece Set $P(R,D,Piece)=Mem
 If Local'="" Set @Local=Mem
 Set Tptr=$N(^(Tptr)) Goto TLoop
 Q
 ; Kill oude informatie
Kold Set XX=$N(^BLProd("D",IDNr,X)),XX=X
Kold1 Set XX=$N(^(XX)) If $E(XX,1)=X Kill ^(XX) Goto Kold1
 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 10.06.91 - 10 u 17