FR2781905A1

FR2781905A1 - Method for listing and checking medical equipment required prior to an implant operation, uses a bar code reader and printer

Info

Publication number: FR2781905A1
Application number: FR9809772A
Authority: FR
Inventors: Claude Perles
Original assignee: Individual
Current assignee: Individual
Priority date: 1998-07-30
Filing date: 1998-07-30
Publication date: 2000-02-04
Anticipated expiration: 2018-07-30
Also published as: FR2781905B1

Abstract

Identification code (7), containing data and individual implant equipment, is read by data reader (5) from article and/or its packaging. Data is entered into zone (11) of electronic data processor (3) containing previously recorded individual references of patient. First stage is reiterated for each implant or article to be inserted into patient. Record is made of each implant code or article code read during first stage and second stage and is checked against count state stock (17) for implant or article,

Description

L'invention concerne un système de suivi opératoire de matériel médical lors d'une opération chirurgicale. The invention relates to a system for the operative follow-up of medical equipment during a surgical operation.

Le type de matériel médical concerné est en particulier celui des implants, en bloc opératoire. The type of medical equipment concerned is particularly that of implants, in the operating theater.

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.... An implant is constituted by any medical article suitable for being placed on or in the body of a patient. For example, dilators or expander (otherwise called Stents), prostheses for aneurysms, intravascular blood filters, vascular access (otherwise called Ports), bone implants (for spine, knees, elbows, hips ...), such as screws, plates, hooks, forceps, articulated prostheses ....

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...). Possibly, as complementary medical articles, at least some of the tools or instrumentation used by the surgeon during his surgical procedure (lever, clamp, specific catheter, delivery materials such as introducer sheaths and other catheters, dilators ...).

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é. The object of the invention is in particular to promote the release of the operating theater personnel from the traditional written inventory tracking media, by limiting the sources of error in reference management and by providing them with a tool to obtain improved traceability of the articles used during the operation on a particular patient.

Un but complémentaire est d'assurer un gain de temps et de fiabilité, ainsi qu'une gestion simplifiée. A complementary goal is to save time and reliability, as well as simplified management.

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. For this, the invention provides a method of operative follow-up during an operation on a person or a living animal, requiring the installation of implants or other medical items.

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 In this method: - (a) during the course of the course, or the preparation, of the surgical procedure, an identification code containing data and fitted individually is read by data reading means;

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). the implant, the article and / or its packaging, and these data are entered into a zone of an electronic processing unit to which the individual references of the person concerned have been previously assigned, - (b) it is reiterated, if necessary, the step (a) for each implant or article placed on said person, by successively entering the individual data of each code in said determined area of treatment, - (c) and is recorded on an account of the state of the stock of each implant or article concerned, each implant or article code entry made in step (a), and optionally step (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é. Thus, by having the identification code carried by the implant, the article or its packaging, the use of the data useful for the operative follow-up and traceability of the implant or of the material used will be rationalized.

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.... In addition, by performing the reading (and therefore the launch of the electronic treatment inside the treatment unit) at the time of the course or preparation of the surgical procedure, we will release the operating room staff of the follow-up material until now at his own expense, at a crucial moment when other tasks call him
In addition, by adapting the data of the identification code concerned accordingly, it will be possible to ensure not only an optimized management of the stock, but also a traceability of the implants or articles used during the intervention, and this patient by patient
If necessary, we can even plan to publish a material sheet (implants, articles) not bearing the name of the patient but may carry the type of pathology. Thus, we can follow in time the type of material used for a given pathology, possibly with a follow-up of the evolution of this material, for the same pathology, or the extension of the use of the same material to several pathologies, this with potentially a reference by doctor, by hospital, by geographical area ....

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. A more detailed description of the invention will now be given in relation to the accompanying appendices where: FIG. 1 schematically shows the main elements making up the apparatus of the invention, FIG. 2 shows a more detailed block diagram, the Figure 3 is an example of an implant plug carrying bar codes, Figure 4 schematically shows the flowchart of the management software of the apparatus of the 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. In FIG. 1, first of all, it can be seen that the apparatus 1 of the invention comprises a computer unit 3 having connections adapted for the connection of a data reading means, such as an optical pencil consisting of means for reading a bar code 7 carried either by a surgical implant 8 or, as illustrated, by its packaging (box 10). The housing 3 is further adapted to be connected (or integrated itself) to a printer 9. A modem link 2, with an associated microcomputer, is also provided.

L'implant 8 peut être le filtre sanguin décrit dans FR-A-2 694 491. The implant 8 may be the blood filter described in FR-A-2 694 491.

La figure 2 présente plus en détail l'appareillage 1. Figure 2 shows in more detail the apparatus 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). In this FIG. 2, there is the portable computer block 3 to which is connected the electronic data reading means (in this case an optical reader). The data input by the reader 5 is transmitted to the microprocessor 11 of the case 3 by via the input interface 13. The microprocessor 11 is conventionally linked to a RAM 15 (for example 1 MB), as well as to a data storage unit 17. A keyboard schematized in FIG. 19 (at least some keys are pre-programmed) controls the operation of the housing 3. The display is on a screen 21, such as a liquid crystal display (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. An output interface 23 (data transfer port) makes it possible to transfer the processed data to an associated compatible microcomputer, schematized in 25.

Une seconde interface de sortie 27 ( port RS 232) permet une liaison avec une imprimante 29. A second output interface 27 (RS 232 port) allows a connection with a printer 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. In terms of components, the housing 3 may include a 16 bit type 8086 processor and a 1 MB SSD drive. The power supply can be indifferently on mains or battery.

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 . By way of example, it may be a box sold under the name Work About by the company PSION, with particular programming, as indicated in the software listing presented below and summarized in the operating chart of FIG. Figure 3. This flow chart is briefly presented below, and therefore the operating principle of the apparatus of the invention, even if the invention essentially relates to the implanted portion of an implant.

Ceci précisé, trois fonctions de base sont proposées :
Tout d'abord, la gestion des poses d'implants au bloc opératoire. This specified, three basic functions are proposed:
First, the management of implant poses in the operating room.

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. In the first place, the personnel of the block will enter, in a pre-allocated area of the storage unit of the computer unit 3, the references of the person to undergo the 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. For this purpose, from the main menu 31 of FIG. 3, the operator will select the implantation mode of an implant 33 and, if the response to the test that follows, 35 (last impression of the pose well done?), Is yes, then he will enter the references (at least the name) of the patient (see step 37). This entry of the patient's references can include all or part of the following information: name, first name, date of birth, date of the intervention, type of pathology, type of intervention to be done by the practitioner.

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. This done, the operating room nurse is ready to record the traceability of the medical equipment that will be used during the procedure, and in particular the implant or medical article, single or multiple, involved.

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). Suppose that it is here to follow the traceability of implants consisting of pedicle screws with nut (not shown).

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). Each screw and each nut carries a reference. In addition, it is considered to be dealing here with several types of screws (slotted screws category A5 or A6 diameter 5 mm, or 6 mm or 7 mm, with lengths of 30 or 35 mm for the first diameter, 30, 35, 40, 45 or 50 mm for the second diameter, and 35, 40, 45 or 50 mm for the third diameter).

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). These screws are packaged individually in a box, the same for each nut. On each box is affixed an identification code, assumed in this case to be a bar code, such as that identified in FIG. 1. Each bar code includes the precise reference of the material concerned, the batch number and the designation (there is therefore information on the supplier of the material and the batch number used by the supplier to manufacture the part).

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. Rather than reading each barcode on each box of equipment, the nurse may have (in this case for the nut and screws of the example) a record for a material or group of materials, such as that of Figure 4, which also bears a group of bar codes for the quantities concerned, in the zone marked 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. Suppose that the practitioner asks the nurse first two screws A5 split type of diameter 5 mm and length 35 mm, with two nuts, then four slotted screws, A6, diameter 6 mm and length 40 mm, with four nuts (it is assumed in this case that the nuts are standard and adaptable on screws type A5 or A6), all these materials to be used for the same intervention on the same person.

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 As and when the practitioner uses the screws and nuts, the nurse will pass her optical pen on the barcodes concerned, namely successively, after arriving at step 41 of the flowchart, on the bar code 43 of the card of FIG. 4, then on the bar code 45 (corresponding to a quantity of two coins), then on the

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. bar code 47, followed by a reading of the bar code 49 (four pieces). In memory of the computer 3, all these data are therefore assigned to the patient whose references were entered in step 37 of FIG. 3. Once processed via the microprocessor 11 (programmed for example as indicated in the software of FIG. programming presented below), the recorded data are transferred to the storage unit 17 and thus assigned to the patient concerned, as and when the equipment used and entered. At each step, a test 51 asks the operator if it is an end of seizure.

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. If yes, there is return to the menu, via line 53. If no, the program waits for a new reading of the bar code, with a possible intermediate test, as in 54, to define whether the surgical equipment in question (Article ) already exists in the file. If yes, the program waits for a new reading, with update in 55 of the implants or articles concerned, in the account (or file) that has been pre-established in a zone of the unit 17. Otherwise (line 57) an error message appears (the reference of the article is then to be created in the file). Once the seizure is complete (test 51), the operator returns to the main menu 31, via line 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). Any operator can then select the print mode 56, with the sub-selection of the print pose heading 58 and, if he confirms that he is waiting for an impression (test 59), the operator then starts the operation of printing 61, with display of the results on the printer 9 (see Figure 2).

Il y a ensuite automatiquement une mise à jour du fichier et retour au menu principal, par la ligne 63. Then the file is automatically updated and returned to the main menu via line 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 A card can then be printed with the patient's references, the date and the list of all the implants placed during the procedure he has undergone. There is thus a traceability from the batch material used to make each implant, until the installation of the article concerned in the body of the 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). As an alternative to this edition of a material sheet for the patient's file, it is possible to provide an edition of the supplier order (same list as the material sheet but then without the patient's name, possibly replacing the type of pathology) this step can even be replaced by a teletransmission of the live command, through the interface 23 (modem), to the associated microcomputer 25 of the supplier (see 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. In addition to this management of implant poses in the operating room, it is proposed a management of the reception of medical articles, and in particular implants mentioned above
For this, the operator selects in the main menu 31 (Figure 3), the option to receive an implant, as shown in 65. If, after the test 67, there has indeed been taken into consideration of the evolution of the stock following the last pose performed (test 67 on the last impression posed?), then the operator enters, in this case by the optical pencil 5, the received implants, by reading the barcodes directly on the individual packages of each implant (step 69). The end of seizure test? 71 allows him to return to the menu, via line 73, if the entry is completed, or to continue the entry, article by article, after having responded favorably to the test 73, allowing, like the test 55, to check that the article concerned exists in machine file (storage unit 17), failing which an error message 75 is displayed. The programming of the complementary article is then necessary.

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. Once the seizure is complete, the operator can edit a receipt form, by selecting the print-receipt shown at 77 in FIG. 3, followed by the pending printing test 79, the return to the menu being carried out again by line 63, following an automatic update of the file, planned in 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. This allows an impression of a listing, so that the operator can compare the entry he has just made to the delivery slip of the supplier.

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. Lastly, concerning the management of the stock (deposit of the material), it can be automatically updated during the installation or when receiving the items delivered by the supplier. This operation is transparent for the customer who can at any time edit the state of his stock (references, designation, lot number and quantity). For this, he chooses the deposit printing mode in section 83 (FIG. 3), which, if waiting for an impression is confirmed, commands the printing (step 85) on the printer 9, then an update of the file in 81 and a return to the menu by line 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. The above simplifies the management of references, designation and batch number for the customer users. This also frees the operating room staff from any written support, which causes errors in the commands. The user client has traceability of the managed materials in the manner presented. The saving of time is appreciable and the reliability increased compared to the current management. A direct customer / supplier communication can be instituted, with the possibility of remote consultation and an adaptation of production almost in real time for the supplier.

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 The field of application covers of course the range of products whose management is difficult because of the number of references to be managed and in the case of traumatological surgery where the depositing is necessary: range of osteosynthesis (screws, pins .. .), osteosynthesis of the traumatological spine, or consumable for single use. But the scope can be further expanded. Note also that in alternative to the optical pencil 5 associated with the bar code system 7, it is possible to envisage other modes of coding and reading, such as a chip

électronique portée par chaque matériel, article ou emballage, avec son lecteur associé (solution non représentée). electronic carried by each material, article or packaging, with its associated reader (solution not shown).

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. In what follows, we now present the listing of a computer program in OPL language usable in relation to the flowchart of 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,80 gfont 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 rem Software Easybloc rem Developed by Claude Perlès rem Version 1 0 July 1997 PROC debut GLOBAL

D 1 $ (100.25), R1 (100.15), D2S (100.25), R2S (100.15), k%, Pat $ (25), preS (25), M1 S (40) , M2â (0), M3S (40), Ti'S (40 TT $ = "####################" MAIN: ENDP rem Software Easybloc rem Developed by Claude Perlès rem Version 1 0 July 1997

PROe mam: Local H $ (7), a $ (5) h $ = "dcstanh" key Gat 20.15 gPRINT Press MENU ": GAT 20.80 gfont 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 to 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%<0 raiseret% endif ret%=rsset% (baudO/4pante/.4nbhtll/.,nbMe/.Noel"/enftarà&) if ret%<0 . mise ret% endif rslen%=255

ret%:Zloopen(btunef'/o, "TIM:", -1) If ret%<0 . raise ret4'10 . endrf loa(htuner%, 1,tunstatO/o,UDleOut&,dununy%) 10a(brsO/o, 1,rsstat%,#(addr(rsbuB)+ l),rslen%) keya(kbstat%,key%(l ) do

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%<0 procc procd. procs proct. proca proch ENDP

PROC BARS (portrs $, baucfl / o, pante%, nbblt%, nbstop%, ctrl%, fintran &, w31t%, aretlcb%) GloBAL local hfsOlo ret% local rsbuf (254) local end $ (40)

local local local / local local% local tuneout local% local% local% local key% local%

ttmeoutl = walt% '10 ret% = lOopen (brs%, portrsS, -1) ifret% <0 raiseret% endif ret% = rsset% (baudO / 4pante / .4nbhtll /., nbMe / .Noel "/ enftarà &) if ret% <0. update% endif rslen% = 255

ret%: Zloopen (btunef '/ o, "TIM:", -1) If ret% <0. raise ret4'10. endrf loa (htuner%, 1, tunstatO / o, UDleOut &, dununy%) 10a (brsO / o, 1, rsstat%, # (addr (rsbuB) + 1), rslen%) keya (kbstat%, key% (l ) do

lowait iftimstat% o-46 low (hrs%, 4, # 0, # 0) 10WartStat HRS% end $ = "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, chra (13)) ifret% rsbufS = leftS (rsbufS, rer / O '"1) + rightS (rsbufS, len (rsbuU) -roll lo) endlf ret% = loc (rslf5.chrS ( 10)) if ret% rsbutS = teftS (rsbuf '$, ret4' / el) + right $ (rsbufS, len (rsbuB) -ret%) endtf beep 3,300 end $ = rsbuf $ pokew aretlcb%, 0 break

elself rsstat% <0

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%<0 raise ret% endif ENDP rem Logiciel Easybloc rem Développépar Claude Perlès rem Version 1 0 Juillet 1997 PROCprocc
LOCAL MONCODE$(I28) end $ = "" pokew aretlcb%, rsstat% break endif

elseif kbstat% <> - 46 iow (hrs%, 4, # 0, # 0)

iowaitstat hrs% iow (htimer%, 4, # 0, # 0) iowaitstat htumer% end $ = "" 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 end $ ENDP

PROC RSSEr / o. (BaucW., PantcP / odonneeP / ost% f / olku & / otoem &) local frame% local carser% (6) local nen% local ret%

tr3mC% = d0lAIlee% -5 ifstop% = 2 frame% = frame% or 16 endif ifpante% frame% = frame% or 32 endif carser% (l) = baud% or (baud% * 256) carser% (2) = frame% 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% <0 raise ret% endif ENDP rem Software Easybloc rem Developedby Claude Perlès rem Version 1 0 July 1997 PROCprocc
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%.

local retlcb / aQl, t / ac%, cu% (6), er2% OPEN "ARTI", A, RS, DS, q, d%, P c% = 0 er2% = 1

M1 $ = "RECEPTION DTMPLANTS" M2 $ - Read implant barcode "
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" IfRl $ (l) o "" Ml $ = "INTENDED reading M2 $ = No print done" M3 $ = "not done AFF% gat 20,20 gPRINT" Press 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, 1,4, & 2,000,5, addr (rettcb%)) if c% = 0: cls endif

IF retkb% = 0 and moncode $ - * 87248388 "MI $ =" END OF ENTRY "M2 $ =" Press MENU "M3 $ =""aff% goto err2 endif

if retlcb% - = 0 and moncode $ = "ERROR"
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 error
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 "Not existing at the 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 dimt "ERREUR . "+ertS(retlcb%) elseû ret1ooo/0>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,<fI/o.P endif DO
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

PRINT RI $ (& / o) 01 $ (CO / o) else Ql = a q + 1

Rl $ (C / o) = ARS Dl $ (c%) = AD $ PRINT R 1 $ (of / o), D 1 $ (CP / o)
ERROR at D% = 1 aq = Ql update endif

ELSEif reticb% <0 dimt "ERROR." + ErtS (retlcb%) elseu ret1ooo / 0> 0
DINTT "" begin "continue", 13
DIALOG
ENDIF
FIN2 until 0 ERR2 CLOSE do k% = get untilk% = $ 122 MAIN ENDP rem Software Easybloc rem Developed by Claude Perles rem Version 10 July 1997 PROC PROCN

GLOBAL R $ (255), D $ (255), TMES (25) GLOBAL q LOCAL g%

lf DO exlSt ("am") CREATE "aru", A, RS, D $, q, d%, P else OPEN "aru", A, RS.D $ .q, <fI / oP endif DO
CLS
DINIT Choose an action "dtext""." Add Reference ", $ 402

dtext "", "Find a reference *, $ 402 t '/ o == d1alog If g% = 2

add
ELSEIF g%=3 echt. 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 ENDIF UNTILg% = 0
CLOSE hand ENDP PROC add:

~ "" D $ = "" 0 Title $ = "REFERENCES" if showd%
APPEND
ENDIF ENDP remix Easybloc rem Developed by Claude Perles rem Version 1 0 July 1997 PROC edit: local search $ (30) dinit "Find a Reference"

deduct searcbS, "Reference", 1 lively dialoog first If find ("*" + searcb $ + M * ") = 0
ALERT ("No corresponding reference")
RETURN ENDIF DO
R $ = AR $ D $ = AD $ Q = aq

1TILE $ = MModfy a reference "IF showd%
UPDATE: BREAK ELSE
NEXT ENDIF

11 *! 1 + 'll * 11) if eof
ALERT ("No corresponding reference")
BREAK
ENDIF UNTEL
ENDIF ENDP PROC showd%.

local ret%, Q $ (10) Q $ = GEN $ (q, -5) dimtS title $

deducts RS. "Reference M, JO deducts D $," Designation ".15 deducts qS.'Quanttte" .20 ret% = Dialog if ref% AR $ = 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" return ret% ENDP

PROC RSSETP (% balld%,%% pantj% 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 Software Easybloc rem Developed by Claude Perles rem Version 10 July 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 $ = '' WARNING 1 "M2 $ =" Print DermEre "M3 $ =" not done "AFF% Gat 20,20 gPRINT" Press MENU "
BEEP 3,300 BEEP 3,500 BEEP 3,700
GOTO ERR2
ENDIF gat 30,30 Gfont 8 Gstyle 8
Gpnnt "INSTALLING IMPLANTS"
Gstyle gat 1.90
PRINT.
PRINT "Patient Name
INPUT PATS
PRINT "Patient's first name
Input Pre $ gpnnt "Read Code-Bar 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 dnnt"ERREUR "+err$(retlcb%) elseifretlcto%>0 DINIT "" moncode $ = nud $ (moncode $, 6.20) ENDIF

IF retlcb% = 0 and moncode $ = "87248388"
M1 $ = "" END OF ENTRY
M2 $ = "Press MENU" M3 $ = "" display% goto err2 endtf

if retlcb% = 0 and moncode $ = 'ERROR'
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 1, 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 error else goto end2 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) = "hwstant at the repository" PRINT R2 $ (c%), D2 (c%) else Ql = a q-1

R2 $ (c%) = ARS D2 $ (c%) = AD $

PRINT R2 $ (c%) J) 2 $ (c%) ERROR: a D% = 1 aq = Ql
UPDATE endif

ELSEif retlcb% <0 dnnt "ERROR" + err $ (retlcb%) elseifretlcto%> 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

start "commute", 13
DIALOG ENDIF FIN2 until 0 err2 CLOSE do k% = get until k% = $ 122 MAIN ENDP rem Software Easybloc rem Developed by Claude Perlés rem Version 1 0 July 1997

PROC PROCs: local g%, im% lopen "TTY # B" rssetp. (15,0,8,1,8, & 0) g% = 1

f R2 $ (g% p "" LPRINT * No print pose pending "Lpnnt Ipnnt Ipnnt goto end else im% = 1 do

LPRINT chr $ (14), '' AESCULAP JBS '', chrâ (20) lprint "" LPRINT "PRINT POSE of", day, "", month, "", year lpnnt TT $

Ipnnt chr (27); "Itl", tf a% = 1 lgnat Chrâ (14); "patlen!", "PATI Lpnnt chr $ (14);"", PItES, erS (20) else lpnnt Chr $ (14)," COMMAND ", chr $ {20) ENDIF Ipnnt

Ipnnt "== - ==== - # Lpnnt do

Ipnnt R2S (g%), "", D2a (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

Im% = liri% + 1 UNTIL IM% = 3 do R2 $ (g%) = "" D2 $ (g%) = "'g% = g% + 1

untilR2 $ (g%) = "" endif END LCLOSE copy% MAIN: ENDP

rem Easybloc rem software Developed by Claude Perles rem Version 1. 0 July 1997 PROC PROCt: local g%

lopen "TTY.B" rssetp '(15,0,8,1,8, & 0) g% = 1

11 Rla (g% "" LPRINT "No print pending pending" Lpnnt Ipnnt Ipnnt goto fin else LPRINT chr $ (14), "AESCULAP JBS", chr $ (20) lprint ""

LPRINT "PRINT RECEPTION of", day; ", month," year, year "

Ipnnt Rl $ (g%); "", D 1 to (g%) g% = g% + 1 untll RI $ (g%) = "" g% = 1 lprint "" Ipnnt "END OF RECEPTION * Ipnnt lpnnt LPRINT LPRINT do

RlSCg0 / "" D 1 a (g%) = "" g% = g% + 1 unit RI $ (gGlo) = "" endif END 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 Rem Logciel Easybloc rem Developed by Claude Perles rem Version 10 July 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 'PRINT DEPOSIT at ";day;"";Month;""year Ipnnt m Ipnnt lprint do

f ac / a = 1: lpnm ARS, ADS, 13% = 0

L20 / o = lcn (AD $) Ll% = 25 L3% = L1% -L2% do lprint "", L3% = L3% -1 UNTIL L3% = 0 LPRINT AQ ENDIF next until eof Ipnnt Ipnnt TT $ LPRINT LPRINT "END OF PRINT" 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%. $ 1.80 GpnntM2 $
GAT 1.90
Gprint M3 $ ENDP

rem LogXCtel Easybloc rem Developed by Claude Perlès rem Version 1. 0 July 1997 LOCAL PROCOM LOC $ MO (15) CLS

Ml $ = ATrENTION "M2 $ =" Set 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. Print. bridge. pnnt 'print: print print Pnnt "Password" INPUT MO $

If MOâ = "JBS009" OPEN "ARTI", A3 $, D $, q, c% FIRST do IF A. Q = 0 NEXT else AQ = 0 ac% = 0 pnnt AR $, AQ update FIRST endif UNTIL EOF endif CLOSE copy% MAIN.

ENDP PROC COPY% trap delete "a am odb"

copy 'aTU odb" ,"a \' ENDPENDP PROC COPY% trap delete "a am odb"

copy 'aU odb', 'a' ENDP

Claims

claims

1. Method of operative follow-up during an intervention on a person or a living animal, requiring the placement of implants (8) or other medical articles, characterized in that: - (a) during the course of the procedure, or of the preparation , from the surgical procedure, an identification code (7) containing data and individually equipping the implant, the article and / or its packaging (10) is read by data reading means (5). ), and these data are entered in a zone (11) of an electronic processing unit (3) to which the individual references of the data subject have been previously assigned, - (b) where necessary, reiterate the step (a) for each implant or article placed on said person, successively entering the individual data of each code in said determined area of treatment (11), - (c) and is recorded on an account (17) of the stock status of each implant or item concerned, each implant or article code entered during step (a), and optionally step (b).