BLMSG G BEGIN ;Verwerking van de geimporteerde bevestiging (MSG berichten)  [ 05/05/99  4:53 PM ]
 
BEGIN Set:'$D(MsgId) MsgId=1
 Set RecNr=-1,RecNaam="MSG-11"
 Set FP=2301 Write @F,@F1,"Bevestigen berichten",!,"Bericht : "
LOOP Set RecNr=$N(^BLImp(MsgId,RecNr)) Goto CHECK:RecNr=-1
 Set RecInp=^(RecNr) Do TF
 If $D(^BLBeri("O",PMMSGI)) Set FP=2411 Write @F,@F1,PMMSGI Set $P(^(PMMSGI),D,8)=1
 Goto LOOP
 ; Nakijken of er nog onbevestigde berichten zijn
CHECK Set RecNr=-1,Test=0
 Set FP=2301 Write @F,@F1,"Nakijken nog niet bevestigde berichten"
C1 Set RecNr=$N(^BLBeri("O",RecNr)) Goto C2:RecNr=-1
 Set Rec=^(RecNr) Goto C1:$P(Rec,D,8)!'$P(Rec,D,6) ; Reeds bevestigd
 ; Bepalen van het aantal dagen tussen DJ en KreaDat
 Set R=$P(Rec,D,3) Do XT
 IF R+7>+$H Goto C1
 If Test=0 Set FP=0301 Write @F,@F1,@FMTB,"Nog niet bevestigde berichten (meer dan 7 dagen oud)",@FMTb,!,!,@FMTI,"  MsgID    Datum Verzenden ",@FMTi
 Set Test=1
 Write !,RecNr,?13,$P(Rec,D,3)
 Goto C1
C2 Goto YZ:'Test
 Write !,!,@FMTB,"Gelieve kontakt op te nemen met BLUM voor deze berichten",@FMTb
 Set FP=2401 Write @F,"Druk een toets in om verder te gaan"
 R *K
 Goto YZ
 ;Transformeer BLUM record naar Mumps record
 ;Parameters 
 ;RecNaam : Naam van het record
 ;RecInp : Geimporteerde 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
 Set:Type="D" Mem=$E(Mem,5,6)_"-"_$E(Mem,3,4)_"-"_$E(Mem,1,2)
 Set:Piece $P(R,D,Piece)=Mem
 Set:Local'="" @Local=Mem
 Set Tptr=$N(^(Tptr)) Goto TLoop
 ; Omzetten van "DD.MM.YY" naar $H-formaat Input->R,output->R
XT S R=$$INTDATE^vhDTyp(R)
 Q
YZ Set FP=2301 Write @F,@F1 Q