FR 2781905 A1 20000204 FR 9809772 A 19980730 L'invention concerne un système de suivi opératoire de matériel médical lors d'une opération chirurgicale. Le type de matériel médical concerné est en particulier celui des implants, en bloc opératoire. Un implant est constitué par tout article médical approprié pour être posé sur, ou dans, le corps d'un patient On peut par exemple citer les dilatateurs ou élargisseurs (autrement dénommés Stents ), les prothèses pour anévrisme, les filtres sanguins intravasculaires, les systèmes d'accès vasculaires (autrement dénommés Ports ), les implants osseux (pour colonne vertébrale, genoux, coudes, hanches...), tels que des vis, des plaques, crochets, pinces, prothèses articulés.... Eventuellement, à titre d'articles médicaux complémentaires, on pourrait citer certains au moins des outils ou instrumentations utilisés par le chirurgien lors de son intervention chirurgicale (levier, pince, cathéter spécifique, matériels de pose tels que des gaines introductrices et autres cathéters, dilatateurs...). Le but de l'invention est en particulier de favoriser une libération du personnel de bloc opératoire des traditionnels supports écrits de suivi de leurs stocks, en limitant les sources d'erreur dans la gestion des références et en leur fournissant un outil permettant d'obtenir une traçabilité améliorée des articles utilisés lors de l'opération sur un patient déterminé. Un but complémentaire est d'assurer un gain de temps et de fiabilité, ainsi qu'une gestion simplifiée. Pour cela, l'invention propose un procédé de suivi opératoire lors d'une intervention sur une personne ou un animal vivant, nécessitant la pose d'implants ou autres articles médicaux. Dans ce procédé : - (a) lors du déroulement, ou de la préparation, de l'intervention chirurgicale, on fait lire, par des moyens de lecture de données, un code d'identification contenant des données et équipant individuellement l'implant, l'article et/ou son emballage, et on fait entrer ces données dans une zone d'une unité de traitement électronique à laquelle on a préalablement affecté les références individuelles de la personne concernée, - (b) on réitère, si nécessaire, l'étape (a) pour chaque implant ou article posé sur ladite personne, en faisant successivement entrer les données individuelles de chaque code dans ladite zone déterminée de traitement, - (c) et on fait enregistrer, sur un compte de l'état du stock de chaque implant ou article concerné, chaque entrée de code d'implant ou d'article effectuée lors de l'étape (a), et éventuellement de l'étape (b). Ainsi, en faisant porter le code d'identification par l'implant, l'article ou son emballage, on va rationaliser la manière d'utiliser les données utiles au suivi opératoire et à la traçabilité de l'implant ou du matériel utilisé. En outre, en réalisant la lecture (et donc le lancement du traitement électronique à l'intérieur de l'unité de traitement) au moment du déroulement ou de la préparation de l'intervention chirurgicale, on va libérer le personnel du bloc opératoire du suivi du matériel jusqu'à présent à sa charge, à un moment important où d'autres tâches l'appellent En outre, en adaptant en conséquence les données du code d'identification concerné, il va être possible d'assurer non seulement une gestion optimisée du stock, mais également une traçabilité des implants ou articles utilisés lors de l'intervention, et ce patient par patient Si nécessaire, on pourra même par ailleurs prévoir d'éditer une fiche matériel (implants, articles) ne portant pas le nom du patient mais pouvant porter le type de pathologie. Ainsi, on pourra suivre dans le temps le type de matériel utilisé pour une pathologie donnée, avec éventuellement un suivi de l'évolution de ce matériel, pour une même pathologie, ou encore l'extension de l'utilisation d'un même matériel à plusieurs pathologies, ceci avec potentiellement une référence par médecin, par hôpital, par zone géographique.... Une description plus détaillée de l'invention va maintenant être donnée en relation avec les annexes d'accompagnement où : la figure 1 montre schématiquement les principaux éléments composant l'appareillage de l'invention, la figure 2 présente un schéma bloc plus détaillé, la figure 3 est un exemple de fiche d'implant portant des codes à barres, la figure 4 présente schématiquement l'organigramme du logiciel de gestion de l'appareillage de l'invention. Sur la figure 1, tout d'abord, on constate que l'appareillage 1 de l'invention comprend un boîtier informatique 3 présentant des connexions adaptées pour le branchement d'un moyen de lecture de données, tel qu'un crayon optique 5 constitué en moyen de lecture d'un code à barres 7 porté soit par un implant chirurgical 8, soit, comme illustré, par son emballage (boîte 10). Le boîtier 3 est en outre adapté pour être connecté (ou intégré luimême) à une imprimante 9. Une liaison par modem 2, avec un microordinateur associé, est aussi prévue. L'implant 8 peut être le filtre sanguin décrit dans FR-A-2 694 491. La figure 2 présente plus en détail l'appareillage 1. Sur cette figure 2, on retrouve le bloc informatique portatif 3 auquel est relié le moyen électronique de lecture de données (en l'espèce lecteur optique) 5. Les données saisies par le lecteur 5 sont transmises vers le microprocesseur 11 du boîtier 3, par l'intermédiaire de l'interface d'entrée 13. Le microprocesseur 11 est, de manière conventionnelle, lié à une mémoire RAM 15 (par exemple 1 Mo), ainsi qu'à une unité de stockage de données 17. Un clavier schématisé en 19 (dont certaines touches au moins sont pré-programmées) permet de commander le fonctionnement du boîtier 3. L'affichage s'effectue sur un écran 21, tel qu'un écran à cristaux liquides (LCD). Une interface de sortie 23 ( port de transfert de données) permet de transférer les données traitées vers un micro-ordinateur compatible associé, schématisé en 25. Une seconde interface de sortie 27 ( port RS 232) permet une liaison avec une imprimante 29. En termes de composants, le boîtier 3 peut comprendre un processeur 16 bit type 8086 et un lecteur SSD de 1 Mo. L'alimentation peut être indifféremment sur secteur ou batterie. A titre d'exemple, il peut s'agir d'un boîtier vendu sous le nom Work About par la société PSION, avec programmation particulière, comme indiqué dans le listing de logiciel présenté ci-après et résumé dans l'organigramme de fonctionnement de la figure 3. On présente ci-après brièvement cet organigramme, et donc le principe de fonctionnement de l'appareillage de l'invention, même si l'invention concerne essentiellement la partie pose d'un implant . Ceci précisé, trois fonctions de base sont proposées : Tout d'abord, la gestion des poses d'implants au bloc opératoire. En premier lieu, le personnel du bloc va entrer, dans une zone pré-affectée de l'unité de stockage du boîtier informatique 3, les références de la personne devant subir l'intervention. Pour cela, à partir du menu principal 31 de la figure 3, l'opérateur va sélectionner le mode pose d'un implant 33 et, si la réponse au test qui suit, 35 ( dernière impression de la pose bien effectuée ? ), est oui , alors il va saisir les références (au moins le nom) du patient (voir étape 37). Cette saisie des références du patient peut comprend tout ou partie des informations suivantes : nom, prénom, date de naissance, date de l'intervention, type de pathologie, type d'intervention à faire par le praticien. Ceci effectué, l'infirmière du bloc opératoire est prête à enregistrer la traçabilité du matériel médical qui va être utilisé pendant l'intervention, et en particulier l'implant ou l'article médical, unique ou multiple, en cause. Supposons qu'il s'agit ici de suivre la traçabilité d'implants consistant en des vis pédiculaires avec écrou (non représentés). Chaque vis et chaque écrou portent une référence. En outre, on considère avoir ici affaire à plusieurs types de vis (vis fendues catégorie A5 ou A6 de diamètre 5 mm, ou 6 mm ou 7 mm, avec des longueurs de 30 ou 35 mm pour le premier diamètre, de 30, 35, 40, 45 ou 50 mm pour le second diamètre, et de 35, 40, 45 ou 50 mm pour le troisième diamètre). Ces vis sont emballées individuellement dans une boîte, de même pour chaque écrou. Sur chaque boîte est apposé un code d'identification, supposé en l'espèce être un code à barres, tel que celui repéré 7 sur la figure 1. Chaque code à barres comprend la référence précise du matériel concerné, le numéro de lot et la désignation (on dispose donc là d'une information sur le fournisseur de la matière et le numéro du lot utilisé par le fournisseur pour fabriquer la pièce). Plutôt que de lire chaque code à barres sur chaque boîte de matériel, l'infirmière peut disposer (en l'espèce pour l'écrou et les vis de l'exemple retenu) d'une fiche par matériel ou groupe de matériels, telle que celle de la figure 4, qui porte également un groupe de codes à barres pour les quantités concernées, dans la zone repérée 39. Supposons que le praticien demande à l'infirmière d'abord deux vis fendues type A5 de diamètre 5 mm et de longueur 35 mm, avec deux écrous, puis quatre vis fendues, A6, de diamètre 6 mm et de longueur 40 mm, avec quatre écrous (on suppose en l'espèce que les écrous sont standards et adaptables sur les vis type A5 ou A6), tous ces matériels étant à utiliser pour la même intervention sur la même personne. Au fur et à mesure de l'utilisation par le praticien des vis et écrous, l'infirmière va passer son crayon optique sur les codes à barres concernés, à savoir successivement, après être arrivée à l'étape 41 de l'organigramme, sur le code à barres 43 de la fiche de la figure 4, puis sur le code à barres 45 (correspondant à une quantité de deux pièces), puis sur le code à barres 47, suivi d'une lecture du code à barres 49 (quatre pièces). En mémoire du calculateur 3, toutes ces données sont donc affectées au patient dont les références ont été saisies à l'étape 37 de la figure 3. Une fois traitées par l'intermédiaire du microprocesseur 11 (programmé par exemple comme indiqué dans le logiciel de programmation présenté ci-après), les données enregistrées sont transférées dans l'unité de stockage 17 et donc affectées au patient concerné, et ce au fur et à mesure du matériel utilisé et saisi. A chaque étape, un test 51 demande à l'opérateur s'il s'agit d'une fin de saisie. Si oui, il y a retour au menu, via la ligne 53. Si non, le programme attend une nouvelle lecture du code à barres, avec un éventuel test intermédiaire, comme en 54, permettant de définir si le matériel chirurgical en cause (article) existe déjà dans le fichier. Si oui, le programme se met en attente d'une nouvelle lecture, avec mise à jour en 55 du stock d'implants ou d'articles concernés, dans le compte (ou fichier) qui a été préétabli dans une zone de l'unité de stockage 17. Sinon (ligne 57) un message d'erreur apparaît (la référence de l'article est alors à créer dans le fichier). Une fois la saisie terminée (test 51), l'opérateur retourne donc au menu principal 31, par la ligne 53. Tout opérateur peut ensuite sélectionner le mode impression 56, avec sous-sélection de la rubrique impression pose 58 et, s'il confirme être dans l'attente d'une impression (test 59), l'opérateur lance alors l'opération d'impression 61, avec affichage des résultats sur l'imprimante 9 (voir figure 2). Il y a ensuite automatiquement une mise à jour du fichier et retour au menu principal, par la ligne 63. Une fiche peut alors être imprimée avec les références du patient, la date et la liste de tous les implants posés lors de l'intervention qu'il a subie. Il y a ainsi une traçabilité depuis le lot matière utilisé pour fabriquer chaque implant, jusqu'à la pose de l'article concerné dans le corps du patient En alternative, à cette édition d'une fiche matériel pour le dossier du patient, on peut prévoir une édition de la commande fournisseur (même liste que la fiche matériel mais alors sans le nom du patient, avec en remplacement éventuellement le type de pathologie), cette étape pouvant même être remplacée par une télétransmission de la commande en direct, par l'interface 23 (modem), vers le micro-ordinateur associé 25 du fournisseur (voir figure 2). En complément à cette gestion des poses d'implants au bloc opératoire, il est proposé une gestion de la réception des articles médicaux, et en particulier des implants évoqués ci-avant Pour cela, l'opérateur sélectionne dans le menu principal 31 (figure 3), l'option réception d'un implant, tel que figuré en 65. Si, à l'issue du test 67, il y a effectivement eu prise en considération de l'évolution du stock suite à la dernière pose effectuée (test 67 sur la dernière impression pose effectuée ? ), alors l'opérateur saisit, en l'espèce par le crayon optique 5, les implants réceptionnés, par lecture des codes-barres directement sur les emballages individuels de chaque implant (étape 69). Le test de fin de saisie ? 71 lui permet soit de retourner au menu, par la ligne 73, si la saisie est terminée, soit de poursuivre la saisie, article par article, après avoir répondu favorablement au test 73 permettant, comme le test 55, de vérifier que l'article concerné existe bien en fichier machine (unité de stockage 17), à défaut de quoi un message d'erreur 75 est affiché. La programmation de l'article complémentaire est alors nécessaire. Une fois la saisie terminée, l'opérateur peut éditer une fiche de réception, en sélectionnant l'impression-réception figurée en 77 sur la figure 3, suivie du test d'impression en attente 79, le retour au menu s'effectuant de nouveau par la ligne 63, suite à une mise à jour automatique du fichier, prévue en 81. Ceci permet une impression d'un listing, de manière que l'opérateur puisse comparer la saisie qu'il vient d'effectuer au bordereau de livraison du fournisseur. Concernant enfin la gestion du stock (dépôt du matériel), celui-ci peut être tenu automatiquement à jour lors de la pose ou lors de la réception des articles livrés par le fournisseur. Cette opération est transparente pour le client qui peut à tout moment éditer l'état de son stock (références, désignation, numéro de lot et quantité). Pour cela, il choisit le mode impression dépôt en rubrique 83 (figure 3), qui, si l'attente d'une impression est confirmée, commande l'impression (étape 85) sur l'imprimante 9, puis une remise à jour du fichier en 81 et un retour au menu par la ligne 63. Ce qui précède permet de simplifier la gestion des références, désignation et numéro de lot pour les clients utilisateurs. Cela libère également le personnel du bloc opératoire de tout support écrit, source d'erreur dans les commandes. Le client utilisateur dispose d'une traçabilité des matériels gérés de la manière présentée. Le gain de temps est appréciable et la fiabilité augmentée par rapport à la gestion actuelle. Une communication directe client/fournisseur peut être instituée, avec à la clé une possible consultation à distance et une adaptation de la production quasiment en temps réel pour le fournisseur. Le champ d'application couvre bien entendu la gamme des produits dont la gestion est difficile du fait du nombre des références à gérer et dans les cas de chirurgie traumatologique où la mise en dépôt est nécessaire : gamme d'ostéosynthèses (visseries, broches...), ostéosynthèse du rachis traumatologique, ou encore consommable à usage unique. Mais le champ d'application peut encore être élargi. A noter également qu'en alternative au crayon optique 5 associé au système de code à barres 7, on peut envisager d'autres modes de codage et de lecture, telle qu'une puce électronique portée par chaque matériel, article ou emballage, avec son lecteur associé (solution non représentée). Dans ce qui suit, on présente maintenant le listing d'un programme informatique en langage OPL utilisable en relation avec l'organigramme de la figure 3. rem Logiciel Easybloc rem Développépar Claude Perlès rem Version 1 0 Juillet 1997 PROC debut GLOBAL D 1$( 100,25),Rl$( 100,15),D2S( 100,25),R2S( 100,15),k%,Pat$(25),preS(25),Ml S(40),M2â(0),M3S(40),Ti'S(40 TT$="################" MAIN: ENDP rem Logiciel Easybloc rem Développépar Claude Perlès rem Version 1 0 Juillet 1997 PROe mam: Local H$(7),a$(5) h$="dcstanh" cls Gat 20,15 gPRINT Appuyer sur MENU" : GAT 20,80gfont 8 . Gstyle 8 GPRINT" " AESCULAP - JBS " gstyle 0 do K%=get IFk%=$122 minit mcard "POSE","POSE IMPLANTS", -%d mcard "RECEPTION", "RECEPTION IMPLANTS" ,%c mcard "INIIDPINIER*,"POSEw,D/os,NRF-CEPTIONN,O/ot"DEPOT ,O/oa mcard "?","",%n," ",olov K%=menu ûk% and(loc(U,chi$(kO/. <>O) a$="proc"+chr$(k%) rem procc procn @(a$) endif elseifk%and$200 k%=k%-5200 û loc(hS,chr$(k% a$= proc"+chr$(k'/o) @(A$) endif endif until 0 procn procc procd. procs proct. proca proch ENDP PROC BARS (portrs$,baucfl/o,pante%,nbblt%,nbstop%,ctrl%,fintran&, w31t%,aretlcb%) GloBAL hfsOlo local ret% local rsbuf(254) local fin$( 40) local ruutlyo local umstae/o local htuner% Local tuneout& local dummy% local rslen% local kbstat% local key%(2) local signal% ttmeoutl=walt%' 10 ret%=lOopen(brs%,portrsS,-1 ) ifret% ret%:Zloopen(btunef'/o, "TIM:", -1) If ret% lowait iftimstat%o-46 low(hrs%,4,#0,#0) 10WartStat HRS% fin$=" pokew aretlcb%,-54 break el"d rsstatO/o<>-46 iow(htimer%,4,#0,#0) iowaitstat httmer% if (rsstat%=O) or (rsstat%=-43) pokeb addr(rsbuf$),rslen% ret%=loc(rsbuf,chrâ(13)) ifret% rsbufS=leftS(rsbufS,rer /O'" 1 )+rightS(rsbufS,len(rsbuU)-rer lo) endlf ret%=loc(rslf5.chrS(10)) if ret% rsbutS=teftS(rsbuf'$,ret4'/e-l )+right$(rsbufS,len(rsbuB)-ret%) endtf beep 3,300 fin$=rsbuf$ pokew aretlcb%,0 break elself rsstat% fin$="" pokew aretlcb%,rsstat% break endif elseif kbstat%<>-46 iow(hrs%,4,#0,#0) iowaitstat hrs% iow(htimer%,4,#0,#0) iowaitstat htumer% fin$="" pokew aretlcb%,key%(l) break else Sign31%511181%+1 endif until 0 while signal%>0 @osignal signal%=signal%-l endwh lociosecuelo) ioclose(htuner'Yo) return fin$ ENDP PROC RSSEr/o.(baucW.,pantcP/odonneeP/ost%f/olku&/otoem&) local trame% local carser%(6) local nen% local ret% tr3mC%=d0lAIlee%-5 ifstop%=2 trame%=trame% or 16 endif if pante% trame%=trame% or 32 endif carser%(l)=baud% or (baud%*256) carser%(2)=trame% or (pante%*256) carser%(3)=(hand% and 255) or $1100 CarSeI%(4$13 pokel addr(carser%(5)),tenn& ret%=iow(hrs%,7,carser%(l),nen%) if ret% LOCAL MONCODE$(I28) local retlcb /aQl,t /ac%,cu%(6),er2% OPEN "ARTI",A,RS,DS,q,d%,P c%=0 er2%=1 M1$="RECEPTION DTMPLANTS" M2$-- Lire code-barres implants" M3$="" AFF%. IfRl$(l)o"" Ml$="A1TENTION lu M2$= Dertuère impression non effectuée" M3$="non effectue AFF% gat 20,20 gPRINT "Appuyer sur MENU" BEEP 3,300-BEEP 3.5O0BEEP 3,700 GOTO ERR2 ENDIF do IOW(-2Acu%0,cu%0) moncode$=bar$:(TTY:E'', 15,0,8, l,4,&2000,5,addr(rettcb%)) if c%=0 : cls endif IF retkb%=0 and moncode$-*87248388" MI$=" FIN DE SAISIE" M2$=" Appuyer sur MENU" M3$="" aff% goto err2 endif if retlcb%-=0 and moncode$="ERREUR" IF ER2%=1 BEEP 3,300 BEEP 3,500 BEEP 3,700 goto fin2 : endif ER2%=1 IOW(-2,8,cu%0,cu%0) cu%(6)=cu%(6)+l at 1,cu%(6) PRINT" at 1,CU%(6) Rl$(c%)="" D1S(c%="" If C%o0 : C%=C%-1 endif if f%<>0 Ql=Ql-1 F%=0 goto erreur ELSE GOTO FIN2 ENDIF endif ifretldj%=0 ER2%=0 first C%=C%+1 f%=find(moncode$) if f%=0 BEEP 10,250 R1S(C%pMoncodeâ DI$(C%N"Non existant au depot" PRINT RI$(&/o)01$(CO/o) else Ql=a q+1 Rl$(Ce/o)=ARS Dl$(c%)=AD$ PRINT R 1 $(de/o),D 1 $(CP/o) ERREUR a D%=1 aq=Ql update endif ELSEif reticb% 0 DINTT"" dbuttons "continuer",13 DIALOG ENDIF FIN2 until 0 ERR2 CLOSE do k%=get untilk%=$122 MAIN ENDP rem Logiciel Easybloc rem Developpépar Claude Perles rem Version 10 Juillet 1997 PROC PROCN GLOBAL R$(255),D$(255),TMES(25) GLOBAL q LOCAL g% lf DOt exlSt (" am ") CREATE "aru",A,RS,D$,q,d%,P else OPEN "aru",A,RS.D$.q, CLS DINIT Choisissez une action" dtext ""."Ajouter une Référence" ,$402 dtext "","Trouver une référence*,$402 t'/o==d1alog If g%=2 add ELSEIF g%=3 echt. ENDIF UNTILg%=0 CLOSE main ENDP PROC add: ~"" D$="" 0 Title$="REFERENCES" if showd% APPEND ENDIF ENDP rem ogiciel Easybloc rem Développépar Claude Perles rem Version 1 0 Juillet 1997 PROC edit: local search$(30) dinit "Rechercher un référence" dédit searcbS, "Référence", 1 vif dialoog first If find(" * "+searcb$+M* ")=0 ALERT("Pas de référence correspondante") RETURN ENDIF DO R$=A.R$ D$=AD$ Q=a q 1TILE$=MModtfier une référence" IF showd% UPDATE :BREAK ELSE NEXT ENDIF 11*!1 +'ll*11) if eof ALERT("Pas de référence correspondante") BREAK ENDIF UNTEL ENDIF ENDP PROC showd%. local ret%,Q$( 10) Q$=GEN$(q,-5) dimtS title$ dédit RS."Reférence M,JO dédit D$,"Désignation ".15 dédit qS.'Quanttte ".20 ret%=Dialog if ref% A.R$=R$ AD$=D$ endif return ret% ENDP PROC RSSETP (balld%,pantj%ta%,stop%,11$n(i%,term&) local framc%,srchar%(6),ducnmy%,err% frame%=data%-5 if stop%=2 frame%--frame% or 16 endif if panty% frame%frame% or 32 endif srchar%(1=baud% or (baud%*256) srchar%(2)=frame% or (panty%*256) srchar%o(3=(hand% and 255) or $1100 srchar%(4)=S 13 pokel addr(srchar%(5)),term& err%=IOW(-1,7,srchar%(1),dummy%) if e.rr9o raise erJ" 1o . endif ENDP rem Logiciel Easybloc rem Développépar Claude Perles rem Version 10 Juillet 1997 PROCprocd: LOCAL MONCODES(128) local retlcb%,Q14%,c%,er2%,cu%(6) OPEN "ARTI",A3$ J>$,q,d% c%=0 ER2%=1 CLS If R2â(1"" M1$=''ATTENTION 1" M2$="DermEre impression " M3$="non effectuée" AFF% Gat 20,20 gPRINT "Appuyer sur MENU" BEEP 3,300 BEEP 3,500 BEEP 3,700 GOTO ERR2 ENDIF gat 30,30 Gfont 8 Gstyle 8 Gpnnt "POSE D'IMPLANTS" Gstyle gat 1,90 PRINT .pnnt pnnt pnnt pnnt pnnt PRINT "Nom du Patient INPUT PATS PRINT "Prénom du patient Input Pre$ gpnnt "Lire Code-Barres implants" do moncode$=bar$ ("'ITY E", 15.0,8, 1,4,&2000,5,addr(retlcb% ifc%=0 CLS endtf If left$(Moncode$,5)="+E 123" moncode$=nud$(moncode$,6,20) ENDIF IF retlcb%=0 and moncode$="87248388" M1$="" FIN DE SAISIE M2$="Appuyer sur MENU" M3$="" aff% goto err2 endtf if retlcb%=0 and moncode$='ERREUR" IF ER2%=1 . BEEP 3,300 BEEP 3,500 BEEP 3,700 goto fin2 : endtf ER2%=1 IOW(-2,8,c,v%Q,a1%Q) cu%(6)=cu%(6)+l at l,cu%(6) PRINT at 1,CU%(6) R2$(COlor"" D2S(c%p"" if c%o0 C%=C%-1 : endif IF f%<>0 Q1=Q1+1 f%=0 goto erreur else goto fin2 endif ENDIF if retlcb%=0 er2%=0 first C%=C%+1 f%=6ad(moncode$) if f%=0 BEEP 10,400 R2$(c%)=Moncode$ D2$(cP/o)="hwmstant au depot" PRINT R2$(c%),D2(c%) else Ql=a q-1 R2$(c%)=ARS D2$(c%)=A.D$ PRINT R2$(c%)J)2$(c%) ERREUR : a D%=1 a q=Ql UPDATE endif ELSEif retlcb% 0 DINIT "" dbuttons "commuer", 13 DIALOG ENDIF FIN2 until 0 err2 CLOSE do k%=get until k%=$122 MAIN ENDP rem Logiciel Easybloc rem Développépar Claude Perlés rem Version 1 0 Juillet 1997 PROC PROCs: local g%,im% lopen "TTY#B" rssetp. (15,0,8,1,8,&0) g%=1 f R2$(g%p"" LPRINT *Pas d'impression de pose en attente" Lpnnt Ipnnt Ipnnt goto fin else im%=1 do LPRINT chr$(14),'' AESCULAP JBS",chrâ(20) lprint"" LPRINT "IMPRESSION POSE du ",day," ",month," ",year lpnnt TT$ Ipnnt chr(27);"Itl", tf un%=1 lgnat Chrâ(14);"patlen!"," PATI Lpnnt chr$(14);" ",PItES,erS(20) else lpnnt Chr$(14),"COMMANDE",chr${20) ENDIF Ipnnt Ipnnt "== - ====- # Lpnnt do Ipnnt R2S(g%)," ",D2â(g%) g%=g%+1 untl R2S(g%r"" g%=1 Ipnnt -" lpnnt #===#=-'- # #J== = Lpnnt Ipnnt Ipnnt Im%=liri%+1 UNTIL IM%=3 do R2$ (g%)="" D2$(g%)="' g%=g%+1 untilR2$(g%)="" endif FIN LCLOSE copy% MAIN : ENDP rem Logiciel Easybloc rem Développépar Claude Perles rem Version 1. 0 Juillet 1997 PROC PROCt: local g% lopen "TTY.B" rssetp' (15,0,8,1,8,&0) g%=1 11 Rla(g% "" LPRINT "Pas d'impression de r,ception en attente" Lpnnt Ipnnt Ipnnt goto fin else LPRINT chr$(14)," AESCULAP JBS",chr$(20) lprint"" LPRINT "IMPRESSION RECEPTION du " ,day; ",month," ",year lpnnt " " lpnnt Ipnnt do Ipnnt Rl$(g%);" ",D 1 â(g%) g%=g%+l untll RI$(g%)="" g%=1 lprint"" Ipnnt "FIN DE LA RECEPTION* Ipnnt lpnnt LPRINT LPRINT do RlSCg0/"" D 1 a(g%)="" g%=g%+l uniti RI$(gGlo)="" endif FIN LCLOSE copy% main ENDP rem Logciel Easybloc rem Développépar Claude Perles rem Version 10 Juillet 1997 PROC PROCa. local 11%,12%,13% lopen "TTY.B" rssetp. (15,0,8,1,8,&0) OPEN "AR11*,AJUD$,qc9/o first LPRINT chr$(27),chr$(82),chr$(49), LPRINT chrS(14)," AESCULAP JBS",chr$(20) lprint"" LPRINT' IMPRESSION DÉPOT au ";day;" ";month;" "year Ipnnt m Ipnnt lprint do f a.c /a=1 : lpnm ARS,ADS, 13%=0 L20/o=lcn(A-D$) Ll%=25 L3%=L1%-L2% do lprint"", L3%=L3%-1 UNTIL L3%=0 LPRINT A.Q ENDIF next until eof Ipnnt Ipnnt TT$ LPRINT LPRINT "FIN D'IMPRESSION" LPRINT LPRINT LPRINT Ipnnt close LCLOSE ENDP PROC AFF% CLS gat 10,50 Gfont 8 Gstyle 8 Gpnnt M1$ Gstyle gat 1,80 GpnntM2$ GAT 1,90 Gprint M3$ ENDP rem LogXCtel Easybloc rem Développépar Claude Perlès rem Version 1. 0 Juillet 1997 PROC PROCH LOCAL MO$(15) CLS Ml$= ATrENTION" M2$="Mise zero d,pot" m3$="" AFF%. Print. pont . pnnt 'print : print print Pnnt "Mot de passe" INPUT MO$ If MOâ="JBS009" OPEN "ARTI",A3$,D$,q,c% FIRST do IF A. Q=0 NEXT else A Q=0 ac%=0 pnnt A.R$,A.Q update FIRST endif UNTIL EOF endif CLOSE copy% MAIN. ENDP PROC COPY% trap delete "a am odb" copy 'aTU odb" ,"a \' ENDP Revendications 1. Procédé de suivi opératoire lors d'une intervention sur une personne ou un animal vivant, nécessitant la pose d'implants (8) ou autres articles médicaux, caractérisé en ce que : - (a) lors du déroulement, ou de la préparation, de l'intervention chirurgicale, on fait lire, par des moyens de lecture de données (5), un code d'identification (7) contenant des données et équipant individuellement l'implant, l'article et/ou son emballage (10), et on fait entrer ces données dans une zone (11) d'une unité de traitement électronique (3) à laquelle on a préalablement affecté les références individuelles de la personne concernée, - (b) on réitère, si nécessaire, l'étape (a) pour chaque implant ou article posé sur ladite personne, en faisant successivement entrer les données individuelles de chaque code dans ladite zone déterminée de traitement (11), - (c) et on fait enregistrer, sur un compte (17) de l'état du stock de chaque implant ou article concerné, chaque entrée de code d'implant ou d'article effectuée lors de l'étape (a), et éventuellement de l'étape (b).