01 AB9F-FA. 03 C-AB9F-FA. * * ENREGISTREMENT LOT TARIFICATION * * LONGUEUR DE L'ARTICLE = 0080 *---------- ENREGISTREMENT LOT NTYPENR = 10 ---------- 05 NTYPENR-AB9F-FA PIC 9(2) COMP-6. 05 NLOTTECMAL-AB9F-FA PIC X(19). 05 RNLOTTECMAL-AB9F-FA REDEFINES NLOTTECMAL-AB9F-FA. * * * 20 NLOTTIENOR-AB9F-FA PIC X(19). 20 RNLOTTIENOR-AB9F-FA REDEFINES NLOTTIENOR-AB9F-FA. 25 NTIE-AB9F-C-FA PIC X(8). 25 DCRELOT-AB9F-C-FA PIC 9(8). 25 NORDLOTTIE-AB9F-C-FA PIC 9(3). 05 RNLOTTECMAL-AB9F-01-FA REDEFINES NLOTTECMAL-AB9F-FA. * * * 20 NLOTAGTT-R-AB9F-FA PIC X(19). 20 RNLOTAGTT-R-AB9F-FA REDEFINES NLOTAGTT-R-AB9F-FA. 25 NAGT-AB9F-C-FA PIC X(04). 25 DCRELOT-AB9F-C-FA PIC 9(8). 25 CTYPNOR-AB9F-C-FA PIC X(2). 25 NORDLOTAGT-AB9F-C-FA PIC 9(2). 25 CCRICPT-AB9F-C-FA PIC 9(2). 25 CCRICSTLOT-AB9F-C-FA PIC X. 05 CETTLOT-AB9F-FA PIC 99 COMP-6. 05 DLOTMAL-AB9F-FA PIC 9(8) COMP-6. 05 CTYPNOR-AB9F-FA PIC X(2). 05 VGRPTRV-AB9F-FA PIC XXXX. 05 CORINOR-AB9F-FA PIC 9(1). 05 NVERNOR-AB9F-FA PIC X(2). 05 NVERCDCNOR-AB9F-FA PIC 9(6). 05 ECTFLOT-AB9F-FA PIC 9(1). 05 LIDEFICTIE-AB9F-FA PIC X(6). 05 DCSTFICTIE-AB9F-FA PIC 9(8) COMP-6. * * * 05 NEMTTRF-AB9F-FA PIC X(16). 05 RNEMTTRF-AB9F-FA REDEFINES NEMTTRF-AB9F-FA. 10 CEMTNRT-AB9F-C-FA PIC X(2). 10 NEMTNRT-AB9F-C-FA PIC X(14). 05 ENOEPDS-AB9F-FA PIC 9. 05 EDECPDS-AB9F-FA PIC 9. 05 CUNIMONN-T-AB9F-FA PIC X. 05 DRECLOTSRV-AB9F-FA PIC 9(8) COMP-6. 05 CIDESYSPIV-AB9F-FA PIC X. 05 NCAIPIV-AB9F-FA PIC 9(5). * FIN COPIE AB9F,W1 *COPIE,ABA6 ,W1,01,,FA * DEBUT COPIE ABA6,W1 * VERSION DU 12/10/2010 A 08/22 FICHE 82TB65B296 * 01 ABA6-FA. 03 C-ABA6-FA. * * ENREGISTREMENT FACTURE TARIFICATION. * * LONGUEUR DE L'ARTICLE = 0689 * * ENREGISTREMENT FACTURE TARIFICATION * 05 AB9G-ABA6-FA. *---------- ENREGISTREMENT FACTURE NTYPENR = 20 ---------- 10 NTYPENR-ABA6-FA PIC 9(2) COMP-6. 10 NFAC-ABA6-FA PIC 9(9) COMP-6. 10 NCPLFACHOS-ABA6-FA PIC 9(6). 10 NP-JMAL-ABA6-FA PIC X(16). 10 NINDASU-ABA6-FA PIC X(13). 10 DNAIBEN-ABA6-FA PIC 9(8) COMP-6. 10 NBENMAL-ABA6-FA PIC 9(2) COMP-6. 10 CETTFAC-ABA6-FA PIC 99 COMP-6. 10 CMOTREJFAC-ABA6-FA PIC 9(4) COMP-6. 10 GMOTSIGTAR-ABA6-FA. 15 CMOTSIGTAR-ABA6-FA OCCURS 0004 PIC 9(4) COMP-6. 10 EFACORD-ABA6-FA PIC 9. 10 ET-PFAC-ABA6-FA PIC 9. 10 CTYPRGU-ABA6-FA PIC 9. 10 NADLORIFAC-ABA6-FA PIC 9(8) COMP-6. 10 CN-A-ABA6-FA PIC 9. 10 DACI-ABA6-FA PIC 9(8) COMP-6. 10 NORDACI-ABA6-FA PIC 99 COMP-6. 10 NDES-CNV-ABA6-FA PIC X(13). 10 CTYPDEV-ABA6-FA PIC X. 10 CJUSDROP-J-ABA6-FA PIC 9. 10 CTYPFAC-ABA6-FA PIC X. 10 BSOI-FAC-ABA6-FA PIC 9(8) COMP-6. 10 FSOI-FAC-ABA6-FA PIC 9(8) COMP-6. 10 CCTXLIQ-ABA6-FA PIC 99 COMP-6. 10 CP-JMAL-ABA6-FA PIC 99 COMP-6. 10 CTRTORIP-J-ABA6-FA PIC 99 COMP-6. 10 DON-TRANSPO-ABA6-FA. 15 CMOTTRA-ABA6-FA PIC 99 COMP-6. 15 VGLOABTTRA-ABA6-FA PIC 9(5)V99 COMP-6. 15 CZONTARTAX-ABA6-FA PIC X. 15 QCVFVHP-ABA6-FA PIC 99 COMP-6. 15 QPERTRA-ABA6-FA PIC 9(2) COMP-6. 15 QTRA-ABA6-FA PIC 99 COMP-6. 15 CMOYTRA-ABA6-FA PIC X(4). 15 QACEFOFMFN-ABA6-FA PIC 9(2). 15 QACEFOFMFD-ABA6-FA PIC 9(2). 15 CTYPSUPTRA-ABA6-FA PIC 9. 15 QACESUPTRA-ABA6-FA PIC 9(2). 15 VTOTSUP-ABA6-FA PIC 9(4)V99. 15 ETOP-SER-ABA6-FA PIC 9. 15 ETOP-TRA-ABA6-FA PIC 9. 15 ETOP-LNT-ABA6-FA PIC 9. 15 CTYPFOFTRA-ABA6-FA PIC 9. 15 LFIL-ABA6-FA PIC X(6). ** ** DONNEES HOSPIT - REDEFINITION DONNEES TRANSPORT ** 10 L-HOSPI-ABA6-FA REDEFINES DON-TRANSPO-ABA6-FA. 15 NETS-ABA6-FA PIC 9(8) COMP-6. 15 CCATETA-ABA6-FA PIC 9(3) COMP-6. 15 DENTSYSHOS-ABA6-FA PIC 9(8) COMP-6. 15 DENTETS-ABA6-FA PIC 9(8) COMP-6. 15 DSORETS-ABA6-FA PIC 9(8) COMP-6. 15 VHEUSOR-ABA6-FA PIC 9(2) COMP-6. 15 LFIL-02-ABA6-FA PIC X(17). 10 MONTANTS-ABA6-FA. 15 VDMDOBL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDMDCPL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDMDSEJOBL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDMDSEJCPL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDMDHONOBL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDMDHONCPL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VDEPREE-ABA6-FA PIC S9(8)V99 COMP-6. 10 CDCSORDFAC-ABA6-FA PIC X. 10 NINDASU-ANC-ABA6-FA PIC X(13). 10 NORDCSM-ABA6-FA PIC 9(12). 10 COPPCSM-ABA6-FA PIC X. 10 PCUOSS-ABA6-FA. 15 CSTUJUREXU-ABA6-FA PIC 9(2). 15 CMODFIXTAR-ABA6-FA PIC 9(2). 10 DFACMAL-ABA6-FA PIC 9(8) COMP-6. *CODE DESYNCHRONISATION DE FACTURE 10 CSCHSIG-ABA6-FA PIC X. *INDICATEUR ENTREE DU PARCOURS DE SOINS *(VALEURS DANS TA88090) 10 CENTPCS-ABA6-FA PIC X. *TOP CONTEXTE PARCOURS DE SOINS *(VALEUR = O,N OU NON RENSEIGNE) 10 ECTXPCS-ABA6-FA PIC X. *CODE QUALIFICATIF DU PARCOURS DE SOINS (SORTIE) *(VALEURS EN TA88100) 10 CQLFPCS-ABA6-FA PIC X. *INDICATEUR RESPECT DU PARCOURS DE SOINS 10 ETOP-RSPPCS-ABA6-FA PIC X. 10 CPRSMEDTRT-ABA6-FA PIC X. 10 CPIEJUS-ABA6-FA PIC X. 10 CTYPDOSRSP-ABA6-FA PIC X. 10 CBCHRSP-ABA6-FA PIC X(2). 10 CCTXRSP-ABA6-FA PIC X(2). 10 CZONOBS-ABA6-FA PIC X(2). 10 CDIRRGNRSP-ABA6-FA PIC X(2). 10 CTYPENV-ABA6-FA PIC X. 10 CTYPBORRSP-ABA6-FA PIC X. 10 ETOP-DERMAL-ABA6-FA PIC X. 10 ETOP-DOM-ABA6-FA PIC X. 10 ETOP-FACIJO-ABA6-FA PIC X. 10 ETOP-PMTETR-ABA6-FA PIC X. 10 CPSTDIF-ABA6-FA PIC X. 10 CACTSPQ-ABA6-FA PIC XX. 10 NAMCDES-ABA6-FA PIC 9(10). 10 NIDEADH-AMC-ABA6-FA PIC X(14). 10 CECLFLXPRA-ABA6-FA PIC X. 10 CECLFLXORG-ABA6-FA PIC X. 10 CPCDTLT-ABA6-FA PIC X. 10 LFIL-03-ABA6-FA PIC X. 10 CFACPST-ABA6-FA PIC X. 10 BPCDTLT-ABA6-FA PIC 9(8) COMP-6. 10 NUNTAFF-ABA6-FA PIC X(6). 10 NPTFBAO-ABA6-FA PIC X(4). 10 NPTFFRO-ABA6-FA PIC X(4). 10 ERFUENV-ABA6-FA PIC X. 10 CN-P-REJ-ABA6-FA PIC XXXX. 10 DSOI-REJ-ABA6-FA PIC 9(8) COMP-6. 10 NADLEXU-REJ-ABA6-FA PIC X(8). 10 FACTSPQ-ABA6-FA PIC 9(8) COMP-6. 10 ETOP-T2A-ABA6-FA PIC X. *TOP MARQUAGE DE LA FACTURE 10 CTYPFACHOS-ABA6-FA PIC X. *-- GROUPE RECYCLAGE -- 10 G-RECYCLAGE-ABA6-FA. *NUMERO DE LA PJ A L'ORIGINE DU RECYCLAGE 15 NP-JMAL-ORI-ABA6-FA PIC X(16). *DECISION PRISE EN RECYCLAGE 15 CDCSRCY-ABA6-FA PIC X. *CODE TRAITEMENT A L'ORIGINE DE LA PJ A L'ORIGINE DU RECYCLAGE 15 CTRTORIRCY-ABA6-FA PIC 99. *ORIGINE DU RECYCLAGE 15 CORIRCY-ABA6-FA PIC X. *TOP ECLATEMENT DU FLUX 10 ETOP-ECLAFL-ABA6-FA PIC X. 10 NCAIGES-ABA6-FA. 15 CGRG-ABA6-FA PIC X(2). 15 NDPT-ABA6-FA PIC X(3). 10 CDESRGTNRT-ABA6-FA PIC 99. 10 CJUSEXONRT-ABA6-FA PIC X. 10 NRPS-PRS-ABA6-FA PIC X(10). 10 DFACSOI-ABA6-FA PIC 9(8). 10 NADMHOS-ABA6-FA PIC X(9). 10 CNTURSQA-T-ABA6-FA PIC X. 10 CNTUDESPMT-ABA6-FA PIC X. 10 CNTUACI-ABA6-FA PIC XX. 10 CEXEDRO-ABA6-FA PIC X. 10 LFIL-04-ABA6-FA PIC X(125). ****** DONNEES POST TARIFICATION PO ***** 05 POST-TARIF-ABA6-FA. ****** DONNEES BENEFICIAIRE ***** 10 DON-BENEF-ABA6-FA. 15 NINDBEN-ABA6-FA PIC X(13). 15 LNOMBEN-ABA6-FA PIC X(25). 15 LPREBEN-ABA6-FA PIC X(20). 15 CTRENOMBEN-ABA6-FA PIC X. 15 CSEXIND-BEN-ABA6-FA PIC X. 15 DDEC-BEN-ABA6-FA PIC 9(8) COMP-6. 15 CLINPAN-ABA6-FA PIC 99 COMP-6. ****** AUTRES DONNEES POST TARIFICATION PO ***** 10 AUTRES-DON-ABA6-FA. 15 CBCHA-M-ABA6-FA PIC XX. 15 CGRGA-M-ABA6-FA PIC 9(2) COMP-6. 15 CORGASSA-M-ABA6-FA PIC X. 15 CMAL-ABA6-FA PIC 9(02) COMP-6. 15 CPSTMALP-J-ABA6-FA PIC 99 COMP-6. 15 DETUDROMAL-ABA6-FA PIC 9(8) COMP-6. * TOP TARIFICATION CPL A DEROULER 15 ETOP-CPL-ABA6-FA PIC X. 10 MTS-PAY-PO-ABA6-FA. 15 VPAYOBL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VPAYSEJOBL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VPAYHONOBL-ABA6-FA PIC S9(8)V99 COMP-6. 10 MOTEXOIND-ABA6-FA. 15 CJUSPERETM-ABA6-FA OCCURS 0006 PIC 99 COMP-6. 10 PCUOSS-ABA6-01-FA. 15 NDPTPNUMAL-ABA6-FA PIC XX. 05 COMPLEMENT-ABA6-FA. 10 EINVTRA-ABA6-FA PIC X. 10 ETRTLOU-ABA6-FA PIC X. 10 EVHPHAN-ABA6-FA PIC X. 10 NIND-RSP-ABA6-FA PIC X(13). 10 ETOP-IDERSP-ABA6-FA PIC X. 10 CMOTASU-ABA6-FA PIC 9(02) COMP-6. 10 ETOP-CJTSUP-ABA6-FA PIC X. 10 CNATUNTAFF-ABA6-FA PIC X(3). 10 CTYPPOPSNC-ABA6-FA PIC X. 10 CPENSNC-ABA6-FA PIC X. 10 ETOP-RENA-T-ABA6-FA PIC X. 10 CIDIPENSNC-ABA6-FA PIC X. 10 LFIL-ABA6-02-FA PIC X(49). 10 MTS-PAY-CPL-ABA6-FA. 15 VPAYCPL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VPAYSEJCPL-ABA6-FA PIC S9(8)V99 COMP-6. 15 VPAYHONCPL-ABA6-FA PIC S9(8)V99 COMP-6. 10 CPCDCMU-ABA6-FA PIC X. 10 ETOP-CMU-ABA6-FA PIC X. 10 PCUOSS-ABA6-FA. 15 CTYPETAEXU-ABA6-FA PIC 9. * FIN COPIE ABA6,W1 *COPIE,AB9T ,W1,01,,FA * DEBUT COPIE AB9T,W1 * VERSION DU 21/04/2009 A 10/36 FICHE 82TB65V057 * 01 AB9T-FA. 03 C-AB9T-FA. * * ARTICLE CONTRAT RESULTAT ASSURANCE COMPLEMENTAIRE * * LONGUEUR DE L'ARTICLE = 0035 *----------------ENREGISTREMENT CONTRAT RESULTATS CPL NTYPENR= 21 05 NTYPENR-AB9T-FA PIC 9(2) COMP-6. 05 LDONCNT-AB9T-FA. 10 NREFCNTA-C-AB9T-FA. 15 NO-CP-JMAL-AB9T-FA PIC X(8). 15 NCNTP-JMAL-AB9T-FA PIC X(2). 10 CODSA-CPST-AB9T-FA PIC 9(2) COMP-6. 10 CPERRTOA-C-AB9T-FA PIC X. ** ****TOP PRESENCE D'UN MONTANT REMBOURSE PAR LE CONTRAT ****VALORISE A "O" SI LE MONTANT TOTAL REMBOURSE PAR LE CONTRAT ****EST DIFFERENT DE ZERO. 10 ETOP-MNTCPL-AB9T-FA PIC X. 10 NLINFAMA-C-AB9T-FA PIC X(20). 10 CO-C-AB9T-FA PIC X. * FIN COPIE AB9T,W1 *COPIE,AB9H ,W1,01,,FA * DEBUT COPIE AB9H,W1 * VERSION DU 21/04/2009 A 08/50 FICHE 82TB65V057 * 01 AB9H-FA. 03 C-AB9H-FA. * * ENREGISTREMENT ATTRIBUTAIRE OCCASIONNEL OU DESTINA * TAIRE DU MALADE TARIFICATION * * LONGUEUR DE L'ARTICLE = 0248 *---- ENREGISTREMENT ATTRIBUTAIRE OCCASIONNEL NTYPENR = 24 --- 05 NTYPENR-AB9H-FA PIC 9(2) COMP-6. 05 NIDEDESPMT-AB9H-FA PIC X(13). *TOP DESTINATAIRE PERMANENT DE L'ASSURE -------------------------- 05 ETOP-DESASU-AB9H-FA PIC X. 05 EA-O-AB9H-FA PIC X. 05 VTRENOM-AB9H-FA PIC X. 05 LNOMIND-AB9H-FA PIC X(25). 05 LPREIND-AB9H-FA PIC X(20). 05 LNOMMAR-AB9H-FA PIC X(25). 05 LCPLADR-AB9H-FA PIC X(25). 05 LVOI-AB9H-FA. 10 NNUM-AB9H-FA PIC X(4). 10 CBTQ-AB9H-FA PIC X. 10 LN-V-AB9H-FA PIC X(4). 10 LNMV-AB9H-FA PIC X(25). 05 LLOC-AB9H-FA PIC X(25). 05 NCODPOS-AB9H-FA PIC 9(5) COMP-6. 05 LBURDIS-AB9H-FA PIC X(25). 05 NNATPOS-AB9H-FA PIC 9(3) COMP-6. 05 CMODPMT-AB9H-FA PIC X(3). *--- REFERENCES BANCAIRES SI MODE DE PAIEMENT = "VIR" --- 05 MODE-VIR-AB9H-FA. 10 LTITCPT-AB9H-FA PIC X(25). 10 NBNQ-AB9H-FA PIC 9(5) COMP-6. 10 NGCH-AB9H-FA PIC 9(5) COMP-6. 10 NCPTBNQ-AB9H-FA PIC X(11). 10 NCLERIB-AB9H-FA PIC X(2). * FIN COPIE AB9H,W1 *COPIE,AB9X ,W1,01,,FA * DEBUT COPIE AB9X,W1 * VERSION DU 21/04/2009 A 09/17 FICHE 82TB65V057 * 01 AB9X-FA. 03 C-AB9X-FA. * * ENREGISTREMENT ASSURE TARIFICATION * * LONGUEUR DE L'ARTICLE = 0135 *------------- ENREGISTREMENT ASSURE NTYPENR = 25 ------------ 05 NTYPENR-AB9X-FA PIC 9(2) COMP-6. 05 VGRPTRVEDT-AB9X-FA PIC X(4). 05 VGRPTRVTRI-AB9X-FA PIC X(4). 05 LFIL-AB9X-FA PIC X(3). 05 VDBK-INDASU-AB9X-FA PIC S9(9) COMP-5 SYNC. 05 CTRENOM-AB9X-FA PIC X. 05 CSEXIND-AB9X-FA PIC X. 05 LNOMIND-AB9X-FA PIC X(25). 05 LPREIND-AB9X-FA PIC X(20). 05 LNOMMAR-AB9X-FA PIC X(25). 05 CNATDECINF-AB9X-FA PIC X. 05 CNATDECPMT-AB9X-FA PIC X. 05 LNOMUSU-ASU-AB9X-FA PIC X(25). 05 LFIL-AB9X-01-FA PIC X(20). * FIN COPIE AB9X,W1 *COPIE,AB9Y ,W1,01,,FA * DEBUT COPIE AB9Y,W1 * VERSION DU 21/04/2009 A 09/17 FICHE 82TB65V057 * 01 AB9Y-FA. 03 C-AB9Y-FA. * * ENREGISTREMENT DESTINATAIRE PAIEMENT OU ATTRIBUTAI * RE OCCASIONNEL * * LONGUEUR DE L'ARTICLE = 0016 *---- ENREGISTREMENT DESTINATAIRE / ATTRIBUTAIRE OCCASIONNEL ----- *--------------------- TYPE 26 ----------------------------------- 05 NTYPENR-AB9Y-FA PIC 9(2) COMP-6. 05 NORD-DES-AB9Y-FA PIC 9(2) COMP-6. 05 NIDEDESPMT-AB9Y-FA PIC X(13). 05 CTYPDESPMT-AB9Y-FA PIC 9(2) COMP-6. * FIN COPIE AB9Y,W1 *COPIE,ABUF ,W1,01,,FA * DEBUT COPIE ABUF,W1 * VERSION DU 02/10/2009 A 10/44 FICHE 82TB65X443 * 01 ABUF-FA. 03 C-ABUF-FA. * * ARTICLE MONTANT PO (NTYPENR = 27) * * LONGUEUR DE L'ARTICLE = 0112 **** ARTICLE MONTANT PO , NTYPENR = 27 *** 05 NTYPENR-ABUF-FA PIC 9(2) COMP-6. 05 NORD-FAC-ABUF-FA PIC 9(8) COMP-6. 05 NORDMNTACE-ABUF-FA PIC 9(4). 05 NORDMNTACE-ABUF-01-FA REDEFINES NORDMNTACE-ABUF-FA. 10 CMNTACE-ABUF-FA PIC 9(2). 10 NSEQ-ABUF-FA PIC 9(2). 05 NORDDESPMT-ABUF-FA PIC 99. 05 VACE-ABUF-FA PIC S9(9)V99. 05 TT-RMNTACE-ABUF-FA PIC 9(4)V99. 05 CFLS-ABUF-FA PIC 99. 05 CMAJACE-ABUF-FA PIC X. 05 VP-OMAJACE-ABUF-FA PIC S9(5)V99. 05 LJUSLIQ-ABUF-FA PIC X(6). 05 CJUSLIQDET-ABUF-FA PIC X(2). 05 CTYPLIM-ABUF-FA PIC X(2). 05 VB-RACE-ABUF-FA PIC 9(6)V99. 05 CCTXCPT-ABUF-FA PIC X. 05 NCLECPT-ABUF-FA PIC X(5). 05 CTOPCMU-ABUF-FA PIC X. 05 LFIL-ABUF-FA PIC X(49). * FIN COPIE ABUF,W1 *COPIE,AB9Z ,W1,01,,FA * DEBUT COPIE AB9Z,W1 * VERSION DU 27/04/2009 A 09/59 FICHE 82TB65V057 * 01 AB9Z-FA. 03 C-AB9Z-FA. * * ENREGISTREMENT EXECUTANT TARIFICATION * * LONGUEUR DE L'ARTICLE = 0172 * * ENREGISTREMENT EXECUTANT TARIFICATION. * 05 AB9I-AB9Z-FA. *---------- ENREGISTREMENT EXECUTANT NTYPENR = 30 ---------- 10 NTYPENR-AB9Z-FA PIC 9(2) COMP-6. 10 NADLPRS-AB9Z-FA PIC 9(8) COMP-6. 10 NFACPDS-AB9Z-FA PIC 9(9) COMP-6. 10 DPRSMAL-AB9Z-FA PIC 9(8) COMP-6. *MONTANT TOTAL DEMANDE PAR LE PS **VALORISE EN TEMPS REEL OU EN NORMES TRANSPORT SI TIERS PAYANT 10 VDMDPDS-AB9Z-FA PIC 9(8)V99 COMP-6. 10 CTYPT-PDMD-AB9Z-FA PIC X. 10 NADLEXUACE-AB9Z-FA PIC X(8). 10 CSPEPDSEXU-AB9Z-FA PIC 99 COMP-6. 10 CEXEPSTEXU-AB9Z-FA PIC 9(1). 10 CEXEPSTPRS-AB9Z-FA PIC 9(1). 10 NETASTREXU-AB9Z-FA PIC X(8). 10 ESALEXE-AB9Z-FA PIC X. *IDENTIFIANT DESTINATAIRE FOURNI PAR LE PROFESSIONNEL DE SANTE **SAISI (EX/GRILLE LABO) **TELETRANSMIS (PARTENAIRE DE SANTE DANS LES ARTICLES NORME) 10 NDESPMT-PDS-AB9Z-FA PIC X(08). 10 NDOSAPA-AB9Z-FA PIC X(10). *TOP ATTRIBUTAIRE DE PAIEMENT POUR L'ETABLISSEMENT SI TIERS PAYANT *-----VALORISE UNIQUEMENT PENDANT LA TARIFICATION----------------- 10 ETOP-ATTETS-AB9Z-FA PIC X. 10 LNOM-TIEEXU-AB9Z-FA PIC X(25). 10 LPRE-TIEEXU-AB9Z-FA PIC X(20). 10 CSPEPDSPRS-AB9Z-FA PIC 99 COMP-6. 10 ETOP-SALPRS-AB9Z-FA PIC X. *TOP OPTION DE COORDINATION 10 ETOP-OPTCOO-AB9Z-FA PIC X. 10 CACTSPQ-EXE-AB9Z-FA PIC XX. 10 CACTSPQ-PRS-AB9Z-FA PIC XX. 10 CDROCTAPRA-AB9Z-FA PIC 9. 10 FACTSPQ-EXE-AB9Z-FA PIC 9(8) COMP-6. 10 FACTSPQ-PRS-AB9Z-FA PIC 9(8) COMP-6. 10 NRPS-PRS-AB9Z-FA PIC X(10). 10 NRPS-EXU-AB9Z-FA PIC X(10). 10 LFIL-AB9Z-FA PIC X(21). 05 PCUOSS-AB9Z-FA. 10 CSPEEXUFPS-AB9Z-FA PIC 99 COMP-6. 10 CSPEPRSFPS-AB9Z-FA PIC 99 COMP-6. 10 ETOPT-PPHA-AB9Z-FA PIC X. 05 POST-TARIF-AB9Z-FA. 10 CZONISD-PRS-AB9Z-FA PIC 9(2) COMP-6. 10 ENOEPDS-AB9Z-FA PIC 9. 10 EDECPDS-AB9Z-FA PIC 9. 10 CCATPDSAFF-AB9Z-FA PIC 99 COMP-6. 10 CCNVPRA-AB9Z-FA PIC X. 10 NORD-DESP-O-AB9Z-FA PIC 99 COMP-6. 10 NORD-DESCPL-AB9Z-FA PIC 99 COMP-6. 10 CZONISD-EXU-AB9Z-FA PIC 99 COMP-6. * FIN COPIE AB9Z,W1 *COPIE,ABA0 ,W1,01,,FA * DEBUT COPIE ABA0,W1 * VERSION DU 26/01/2011 A 09/46 FICHE 82TB65C502 * 01 ABA0-FA. 03 C-ABA0-FA. * * ENREGISTREMENT ACTE PO TARIFICATION * . * * LONGUEUR DE L'ARTICLE = 0377 *---------- ENREGISTREMENT ACTE PO NTYPENR = 40 ---------- 05 NTYPENR-ABA0-FA PIC 9(2) COMP-6. 05 ETOP-ACL-ABA0-FA PIC X. * * DONNEES ACTE PO DES FICHIERS TARIFICATION * 05 AB6A-ABA0-FA. 10 BSOI-ABA0-FA PIC 9(8) COMP-6. 10 FSOI-ABA0-FA PIC 9(8) COMP-6. 10 E2IKFAC-ABA0-FA PIC X. 10 QKLMFAC-ABA0-FA PIC 9(4) COMP-6. 10 CN-P-ABA0-FA PIC XXXX. 10 CMAJACE-ABA0-FA PIC X. 10 QCOEACE-ABA0-FA PIC 9(4)V99 COMP-6. 10 CQLFDEP-ABA0-FA PIC X. 10 QACE-ABA0-FA PIC 9(4) COMP-6. 10 QACEDEN-ABA0-FA PIC 9(2) COMP-6. 10 NORDACEAFN-ABA0-FA PIC 99 COMP-6. 10 CLOCACHETN-ABA0-FA PIC X. 10 VDEPREEACE-ABA0-FA PIC 9(6)V99 COMP-6. 10 CJUSETMACE-ABA0-FA PIC 99 COMP-6. 10 CJUSPECACE-ABA0-FA PIC 99 COMP-6. *TOP FORCAGE EXO TM 10 ETOP-FORETM-ABA0-FA PIC X. 10 CRMO-ABA0-FA PIC XX. 10 CMODTRTHOS-ABA0-FA PIC 9(2) COMP-6. 10 CDMT-ABA0-FA PIC 9(3) COMP-6. 10 CLIEEXESOI-ABA0-FA PIC 9. 10 NSEQRNV-ABA0-FA PIC 99 COMP-6. 10 CPECF-JC-P-ABA0-FA PIC X. 10 DPROE-P-ABA0-FA PIC 9(8) COMP-6. 10 VTARRSPACE-ABA0-FA PIC 9(6)V99 COMP-6. 10 VP-CDMDPDS-ABA0-FA PIC 9(6)V99 COMP-6. *TOP ACTE SOUMIS A EP SUITE A ANALYSE DES CODES AFFINES 10 ETOP-ACEE-P-ABA0-FA PIC X. 10 TT-RACE-DMD-ABA0-FA PIC 9(3)V99. 10 CPECPAS-ABA0-FA PIC X. 05 COMPLEMENT-ABA0-FA. *MONTANT UNITAIRE DE L'ACTE (RENSEIGNE SI RAPPEL EN VALEUR) 10 VUNIACE-ABA0-FA PIC 9(6)V99 COMP-6. 10 VB-RACE-ABA0-FA PIC 9(6)V99 COMP-6. 10 TT-RACE-ABA0-FA PIC 9(3)V99 COMP-6. 05 POST-TARIF-ABA0-FA. 10 VB-RCNV-ABA0-FA PIC 9(6)V99 COMP-6. 10 CCATN-P-ABA0-FA PIC 99 COMP-6. 10 CCATSEJ-ABA0-FA PIC X. 10 NORDACEFAC-ABA0-FA PIC 9(4) COMP-6. 10 VP-O-ABA0-FA PIC S9(8)V99 COMP-6. 10 QFOFRAM-ABA0-FA PIC 99. 10 CTYPRECFOF-ABA0-FA PIC X. 10 NORD-E-P-ABA0-FA PIC 99 COMP-6. 10 TT-RCPLALM-ABA0-FA PIC 9(3)V99 COMP-6. 10 VCPLALM-ABA0-FA PIC S9(6)V99 COMP-6. 10 VP-OMAJACE-ABA0-FA PIC S9(4)V99 COMP-6. *TOP ACTE SPECIFIQUE CPL------------------------------------------ 10 ETOP-ACECPL-ABA0-FA PIC X. 10 CFLS-ABA0-FA PIC 99 COMP-6. 10 VCPLFLS-ABA0-FA PIC S9(7)V99 COMP-6. 10 TT-RCPLFLS-ABA0-FA PIC 9(4)V99 COMP-6. 05 VMAJT-M-ABA0-FA PIC 9(8)V99. 05 TT-RMIN-ABA0-FA PIC 999V99. *TOP PLAFAOND MAJORATION ATTEINT 05 EPLF-PCS-ABA0-FA PIC X. *QUALIFICATIF DE LA DEPENSE EN ENTREE FICHIER 05 CQLFDEP-ENT-ABA0-FA PIC X. 05 EPRVNOE-ABA0-FA PIC X. 05 CQLFDISPRV-ABA0-FA PIC X(2). * * DONNEES ACTE PO DES FICHIERS TARIFICATION (COMPLEM * ENT POUR T2A). * 05 ABYC-ABA0-FA. *VALEUR DU COEFFICIENT MCO 10 VCOEMCO-ABA0-FA PIC 9V9999. *NUMERO DU GROUPE HOMOGENE DE MALADES 10 NGHM-ABA0-FA PIC 9(4). *CODE NATURE DE FIN DE SEJOUR 10 CNTUFINSEJ-ABA0-FA PIC X. *CODE DOMAINE ACTIVITE MALADIE (MEDECINE, CHIRURGIE, OBSTETRIQUE) 10 CDOMACTMAL-ABA0-FA PIC X. *NUMERO DE L'ETABLISSEMENT DE TRANSFERT 10 NETS-TRF-ABA0-FA PIC 9(8). 10 CTYPEXB-ABA0-FA PIC X. 10 VP-UEXB-ABA0-FA PIC 9(6)V99. *FILLER DE 20 CARACTERES 10 LFIL-ABA0-FA PIC X(11). 05 CSECSTT-ABA0-FA PIC X(3). 05 LCPLPST-ABA0-FA PIC X(4). 05 CMOTRBTRSP-ABA0-FA PIC X(2). 05 EACEMAJ-ABA0-FA PIC X. 05 CJUSEXORSP-ABA0-FA PIC 9(2). 05 CMOTEXORSP-ABA0-FA PIC 9(2). 05 VP-O-POT-ABA0-FA PIC S9(8)V99 COMP-6. 05 CREGACE-ABA0-FA PIC X. 05 TT-RTHEACE-ABA0-FA PIC 9(3)V99. 05 ETOP-ALC-ABA0-FA PIC X. 05 VB-RCNVMAJ-ABA0-FA PIC 9(6)V99 COMP-6. *CODE TYPE EXPOSITION SPP 05 CTYPEXPSPP-ABA0-FA PIC XX. *COEFICIENT DE TRANSITION 05 VCOETSI-ABA0-FA PIC 9V9999. *COEFICIENT GEOGRAPHIQUE 05 VCOEGEO-ABA0-FA PIC 9V9999. 05 LFIL-ABA0-02-FA PIC X(7). *IDENTIFICATION DU TYPE DE PRESTATION 05 CTYPPNU-ABA0-FA PIC X(2). *MONTANT DE LA PARTICIPATION FORFAITAIRE OU FRANCHISE 05 VFOFRAM-ABA0-FA PIC 99V99. *CODE TYPE COMPTEUR DE LA PARTICIPATION FORFAITAIRE 05 CTYPCPTPFO-ABA0-FA PIC X(2). *CODE NATURE DE PRESTATION SUPPORT DE L'ACTE 05 CN-PSPOACE-ABA0-FA PIC XXXX. 05 VB-R-THE-ABA0-FA PIC 9(6)V99. 05 VP-O-THE-ABA0-FA PIC 9(8)V99. 05 TFNTCBU-ABA0-FA PIC 9(3)V99. 05 CFNTCBU-ABA0-FA PIC X. 05 CCLAACECPT-ABA0-FA PIC XX. 05 ETOP-AES-ABA0-FA PIC X. 05 CA-S-ABA0-FA PIC X. 05 ETOPREMASU-ABA0-FA PIC X. 05 EE-P-ABA0-FA PIC X. 05 QKLM-ABA0-FA PIC 9(4). 05 LFIL-ABA0-01-FA PIC X(110). * FIN COPIE ABA0,W1 *COPIE,AB9U ,W1,01,,FA * DEBUT COPIE AB9U,W1 * VERSION DU 27/10/2009 A 12/33 FICHE 82TB65X443 * 01 AB9U-FA. 03 C-AB9U-FA. * * ARTICLE ACTE RESULTATS EN ASSURANCE COMPLEMENTAIRE * * LONGUEUR DE L'ARTICLE = 0046 *---------------ENREGISTEMENT RESULTATS CPL A L'ACTE NTYPENR = 42 05 NTYPENR-AB9U-FA PIC 9(2) COMP-6. 05 NREFCNTA-C-AB9U-FA. 10 NO-CP-JMAL-AB9U-FA PIC X(8). 10 NCNTP-JMAL-AB9U-FA PIC X(2). 05 NGARACE-AB9U-FA PIC X(2). 05 NN-DACE-AB9U-FA PIC X(2). 05 NORDMNTACE-AB9U-FA PIC 9(4). 05 NORDMNTACE-AB9U-01-FA REDEFINES NORDMNTACE-AB9U-FA. 10 CMNTACE-CPL-AB9U-FA PIC 9(2). 10 NSEQ-CPL-AB9U-FA PIC 9(2). 05 VP-CRET-AB9U-FA PIC S9(8)V99 COMP-6. 05 EEDTSUPA-C-AB9U-FA PIC X. 05 CSITLMFACE-AB9U-FA PIC 99 COMP-6. 05 CSITLPAACE-AB9U-FA PIC 99 COMP-6. 05 CSITLPMACE-AB9U-FA PIC 99 COMP-6. 05 CSITCSOACE-AB9U-FA PIC 99. 05 VP-CPOT-AB9U-FA PIC S9(8)V99 COMP-6. 05 CN-PA-C-AB9U-FA PIC XXXX. 05 CO-C-AB9U-FA PIC X. ** NUMERO D'ORDRE DU DESTINAIRE DE PAIEMENT CPL PARTICULIER 05 NORD-DESCPL-AB9U-FA PIC 99. 05 CCTXCPT-AB9U-FA PIC X. 05 CTOPCMU-AB9U-FA PIC X. * FIN COPIE AB9U,W1 *COPIE,ABYB ,W1,01,,FA * DEBUT COPIE ABYB,W1 * VERSION DU 23/04/2009 A 17/34 FICHE 82TB65V057 * 01 ABYB-FA. 03 C-ABYB-FA. * * ARTICLE CODIFICATION CCAM (ISSU DE A2336) * * LONGUEUR DE L'ARTICLE = 0100 *----- ENREGISTREMENT CODIFICATION CCAM NTYPENR = 43 ------ 05 NTYPENR-ABYB-FA PIC 99 COMP-6. *CODE DE L'ACTE CCAM 05 NACECAM-ABYB-FA PIC X(13). 05 NEXSDOC-ABYB-FA PIC X. *CODE DE L'ACTIVITE CCAM 05 NACTCAM-ABYB-FA PIC X. 05 NPHSCAM-ABYB-FA PIC X. 05 GRP-NMDFCAM-ABYB-FA. 10 NMDFCAM-ABYB-FA OCCURS 0006 PIC X. *CODE ASSOCIATION DES ACTES CCAM 05 NASCACE-ABYB-FA PIC X. *CODE ADMIS AU REMBOURSEMENT POUR L'ACTE CCAM 05 ECODADMREM-ABYB-FA PIC X. *DATE DEBUT DES SEANCES DE SOINS POUR L'ACTE CCAM 05 BSEASOI-CAM-ABYB-FA PIC 9(8). 05 GRP-NDNTTRT-ABYB-FA. 10 NDNTTRT-ABYB-FA OCCURS 0016 PIC XX. *CODE SUPPLEMENT DE CHARGE EN CABINET 05 CSUPCHRCBN-ABYB-FA PIC X. 05 GRP-NMDFO-C-ABYB-FA. 10 NMDFO-C-ABYB-FA OCCURS 0004 PIC X. *BASE DE REMBOURSEMENT ACTES CLASSIFIES 05 VB-RACECAM-ABYB-FA PIC 9(6)V99. *NUMERO D'ORDRE DE L'ACTE AFFINE 05 NORDACEAFN-ABYB-FA PIC 99. *FILLER DE 20 CARACTERES 05 LFIL-ABYB-FA PIC X(20). * FIN COPIE ABYB,W1 *COPIE,ABA1 ,W1,01,,FA * DEBUT COPIE ABA1,W1 * VERSION DU 21/04/2009 A 09/25 FICHE 82TB65V057 * 01 ABA1-FA. 03 C-ABA1-FA. * * ENREGISTREMENT EP/PEC TARIFICATION * * LONGUEUR DE L'ARTICLE = 0020 *---------- ENREGISTREMENT EP/PEC TYPE 44 ---------- 05 NTYPENR-ABA1-FA PIC 9(2) COMP-6. 05 NP-JE-PPEC-ABA1-FA PIC X(16). 05 QACESLDE-P-ABA1-FA PIC 9(4) COMP-6. *TOP PEC (ALIMENTE UNIQUEMENT DANS LE TRAITEMENT POST TARIF)------ 05 ETOP-PEC-ABA1-FA PIC X. * FIN COPIE ABA1,W1 *COPIE,ABA2 ,W1,01,,FA * DEBUT COPIE ABA2,W1 * VERSION DU 21/04/2009 A 08/58 FICHE 82TB65V057 * 01 ABA2-FA. 03 C-ABA2-FA. * * ENREGISTREMENT ACCIDENT TARIFICATION * * LONGUEUR DE L'ARTICLE = 0048 *---------- ENREGISTREMENT ACCIDENT TYPE 45 ---------- 05 NTYPENR-ABA2-FA PIC 9(2) COMP-6. 05 DACI-ABA2-FA PIC 9(8) COMP-6. 05 NORDACI-ABA2-FA PIC 99 COMP-6. 05 CNTUACI-ABA2-FA PIC XX. 05 CDCAACI-ABA2-FA PIC X. 05 BPECACI-ABA2-FA PIC 9(8) COMP-6. 05 FPECACI-ABA2-FA PIC 9(8) COMP-6. 05 CETTENQACI-ABA2-FA PIC X. 05 CN-A-ABA2-FA PIC 9. 05 CBCHMSA-ABA2-FA PIC XX. 05 NMLLACIAEX-ABA2-FA PIC 9(4) COMP-6. 05 CORGA-MMSA-ABA2-FA PIC X. 05 CGRGMSA-ABA2-FA PIC 99 COMP-6. 05 NDPTPNUMAL-ABA2-FA PIC XX. 05 ESOIPOS-ABA2-FA PIC X. 05 NECGC-E-ABA2-FA PIC X(13). 05 LFIL-ABA2-FA PIC X(07). * FIN COPIE ABA2,W1 *COPIE,ABA3 ,W1,01,,FA * DEBUT COPIE ABA3,W1 * VERSION DU 21/04/2009 A 09/26 FICHE 82TB65V057 * 01 ABA3-FA. 03 C-ABA3-FA. * * ENREGISTREMENT EXO DIAM TARIFICATION * * LONGUEUR DE L'ARTICLE = 0032 *---------- ENREGISTREMENT EXO DIAM TYPE 46 ---------- 05 NTYPENR-ABA3-FA PIC 9(2) COMP-6. 05 DEXUA-E-ABA3-FA PIC 9(8) COMP-6. 05 LNTUA-E-ABA3-FA PIC X(15). 05 NADLEXUA-E-ABA3-FA PIC X(8). 05 ERAPSEJHOS-ABA3-FA PIC X. 05 QCOECUMA-E-ABA3-FA PIC 9(4)V99 COMP-6. * FIN COPIE ABA3,W1 *COPIE,ABA4 ,W1,01,,FA * DEBUT COPIE ABA4,W1 * VERSION DU 21/04/2009 A 09/27 FICHE 82TB65V057 * 01 ABA4-FA. 03 C-ABA4-FA. * * ENREGISTREMENT INFO SEJOUR TARIFICATION * * LONGUEUR DE L'ARTICLE = 0035 *---------- ENREGISTREMENT INFO SEJOUR TYPE 47 ---------- 05 NTYPENR-ABA4-FA PIC 9(2) COMP-6. 05 DENTETS-ABA4-FA PIC 9(8) COMP-6. 05 NETS-ABA4-FA PIC 9(8) COMP-6. 05 BSEJETS-ABA4-FA PIC 9(8) COMP-6. 05 FSEJETS-ABA4-FA PIC 9(8) COMP-6. 05 CMODTRTHOS-ABA4-FA PIC 9(2) COMP-6. 05 CDMT-ABA4-FA PIC 9(3) COMP-6. 05 CMODENTETS-ABA4-FA PIC 99 COMP-6. 05 CN-A-ABA4-FA PIC 9. 05 TPECSEJETS-ABA4-FA PIC 9(3)V99 COMP-6. 05 CJUSETM-ABA4-FA PIC 9(02) COMP-6. 05 ESORETS-ABA4-FA PIC X. 05 DENTSYSHOS-ABA4-FA PIC 9(8) COMP-6. 05 NETSANT-ABA4-FA PIC 9(8) COMP-6. * FIN COPIE ABA4,W1 *COPIE,AB9W ,W1,01,,FA * DEBUT COPIE AB9W,W1 * VERSION DU 21/04/2009 A 10/39 FICHE 82TB65V057 * 01 AB9W-FA. 03 C-AB9W-FA. * * ARTICLE LIMITES PERIODIQUES EN ASSURANCE COMPLEMEN * TAIRE * * LONGUEUR DE L'ARTICLE = 0065 *-----------ENREGISTREMENT LIMITES PERIODIQUES CPL NTYPENR = 48 05 NTYPENR-AB9W-FA PIC 9(2) COMP-6. 05 DLIMPER-AB9W-FA. 10 NREFCNTA-C-AB9W-FA PIC X(10). 10 NINDASUA-C-AB9W-FA PIC X(13). 10 BSCPA-C-AB9W-FA PIC 9(8) COMP-6. 10 CNIVA-C-AB9W-FA PIC X. 10 NGAR-AB9W-FA PIC X(2). 10 NN-D-AB9W-FA PIC X(2). 10 CN-PA-CLPA-AB9W-FA PIC XXXX. 10 CLIMPER-AB9W-FA PIC X. 10 CLIMA-C-AB9W-FA PIC X. 10 CETELIMA-C-AB9W-FA PIC X. 10 BPERLIMA-C-AB9W-FA PIC 9(8) COMP-6. 10 FPERLIMA-C-AB9W-FA PIC 9(8) COMP-6. 10 VCOULIMA-C-AB9W-FA PIC 9(6)V99 COMP-6. 10 VINILIMA-C-AB9W-FA PIC 9(6)V99 COMP-6. 10 ENEULIM-AB9W-FA PIC X. 10 TLIMA-C-AB9W-FA PIC 9(4)V99 COMP-6. 10 CRESPER-AB9W-FA PIC X. 10 DITTA-C-AB9W-FA PIC 9(8) COMP-6. * FIN COPIE AB9W,W1 *COPIE,ABL0 ,W1,01,,FA * DEBUT COPIE ABL0,W1 * VERSION DU 21/04/2009 A 09/28 FICHE 82TB65V057 * 01 ABL0-FA. 03 C-ABL0-FA. * * ENREGISTREMENT FILIERE DE SOINS * * LONGUEUR DE L'ARTICLE = 0035 *----------------- ENREGISTREMENT FILIERE DE SOINS TYPE 49 05 NTYPENR-ABL0-FA PIC 99 COMP-6. *DONNEES DE LA FILIERE DE SOINS ***************************************************************** *** CODE FILIERE DE SOINS = 02 => PREV.BUCCO DENTAIRE NATIONALE 05 GPE-FLS-ABL0-FA. 10 CFLS-ABL0-FA PIC 99 COMP-6. 10 BADHFLS-ABL0-FA PIC 9(8) COMP-6. 10 DEXPBUD-ABL0-FA PIC 9(8) COMP-6. 10 FSOIEXPBUD-ABL0-FA PIC 9(8) COMP-6. 10 CFINPECSOI-ABL0-FA PIC 99 COMP-6. 10 LFIL-ABL0-FA PIC X(20). * FIN COPIE ABL0,W1 *COPIE,AAM6 ,W1,01,,FA * DEBUT COPIE AAM6,W1 * VERSION DU 23/04/2009 A 17/34 FICHE 82TB65V057 * 01 AAM6-FA. 03 C-AAM6-FA. * * ARTICLE PRESTATION A DELAI (NTYPENR = 50) * * LONGUEUR DE L'ARTICLE = 0123 05 NTYPENR-AAM6-FA PIC 9(2) COMP-6. 05 PREST-DELAI-AAM6-FA. 10 BPSTDEL-AAM6-FA PIC 9(8). 10 FPSTDEL-AAM6-FA PIC 9(8). 10 NCNT-AAM6-FA PIC X(2). 10 NGAR-AAM6-FA PIC X(2). 10 NCLP-AAM6-FA PIC XX. 10 CN-P-AAM6-FA PIC XXXX. 10 CREGAPP-AAM6-FA PIC X. 10 QCOEACE-AAM6-FA PIC 9(4)V99. 10 NACECAM-AAM6-FA PIC X(13). 10 VCOUPSTDEL-AAM6-FA PIC 9(6)V99. 10 VSLDPSTDEL-AAM6-FA PIC 9(6)V99. 10 CLIMPSTDEL-AAM6-FA PIC X. 10 CTYPPSTDEL-AAM6-FA PIC X. 10 DITT-AAM6-FA PIC 9(8). 10 CFLS-AAM6-FA PIC 99. 10 VSRL-AAM6-FA PIC S9(9). 10 CMAJ-PSTDEL-AAM6-FA PIC X. 10 LFIL-AAM6-FA PIC X(38). * FIN COPIE AAM6,W1 *COPIE,ABAC ,W1,01,,FA * DEBUT COPIE ABAC,W1 * VERSION DU 02/10/2009 A 10/48 FICHE 82TB65X443 * 01 ABAC-FA. 03 C-ABAC-FA. * * ARTICLE CODIFICATION AFFINEE DES ACTES (ISSU T3B E * T T4B) * * LONGUEUR DE L'ARTICLE = 0034 *----- ENREGISTREMENT CODIFICATION AFFINEE NTYPENR = 51 ------ 05 NTYPENR-ABAC-FA PIC 9(2) COMP-6. 05 DSOIACEAFN-ABAC-FA PIC 9(8) COMP-6. 05 QACEAFN-ABAC-FA PIC 99 COMP-6. 05 NORDACEAFN-ABAC-FA PIC 99 COMP-6. 05 NN-PAFN-ABAC-FA PIC 9(8) COMP-6. 05 QCOEACEBIO-ABAC-FA PIC 9(4)V99 COMP-6. 05 LFIL-ABAC-FA PIC X(20). * FIN COPIE ABAC,W1 *COPIE,ABAD ,W1,01,,FA * DEBUT COPIE ABAD,W1 * VERSION DU 23/09/2009 A 16/26 FICHE 82TB65X443 * 01 ABAD-FA. 03 C-ABAD-FA. * * ARTICLE CODES CIP DES NORMES (ISSU DE T4C / 4P) * * LONGUEUR DE L'ARTICLE = 0116 *---------- ENREGISTREMENT CIP NTYPENR = 52 ---------- 05 NTYPENR-ABAD-FA PIC 9(2) COMP-6. 05 CLAB-CIP-ABAD-FA. 10 CLABCIP-ABAD-FA PIC 9. 10 NCIP-ABAD-FA PIC 9(7) COMP-6. 05 VUNIACEAFN-ABAD-FA PIC 9(4)V99 COMP-6. 05 NTAUPHA-ABAD-FA PIC 9. 05 QACEAFN-ABAD-FA PIC 99 COMP-6. 05 NORDACEAFN-ABAD-FA PIC 99 COMP-6. 05 CAPPLSTCNV-ABAD-FA PIC X. 05 NCLAEPHMRA-ABAD-FA PIC X(10). 05 EMEDSUI-ABAD-FA PIC X. 05 CTYPMEDPTC-ABAD-FA PIC XX. 05 CSUBMED-ABAD-FA PIC X. *VALEUR DU TARIF FORFAITAIRE DE L'EQUIVALENT GENERIQUE 05 VFOFGNR-ABAD-FA PIC 9(4)V99 COMP-6. 05 CPECMEDPTC-ABAD-FA PIC XX. 05 CTYPCIP-PRS-ABAD-FA PIC X. 05 NCIP-PRS-ABAD-FA PIC 9(13). 05 CTYPCIP-DLV-ABAD-FA PIC X. 05 NCIP-DLV-ABAD-FA PIC 9(13). 05 CMDCDLV-ABAD-FA PIC 9. 05 QCON-DLV-ABAD-FA PIC 99. 05 VUNI-CONDLV-ABAD-FA PIC 9(5)V99. 05 EDCO-ABAD-FA PIC X. 05 QUNT-UNTDLV-ABAD-FA PIC 9(3). 05 VUNI-UNTDLV-ABAD-FA PIC 9(5)V99. 05 QCON-DCO-ABAD-FA PIC 99. 05 CCTX-PCH-ABAD-FA PIC X(3). *MODE DE PRESCRIPTION 05 CMODPRS-ABAD-FA PIC X. *NUMERO D'ORDRE POUR FAIRE LIEN ENTRE ABAD (INFOS CIP) ET ZB5J *(TRACABILITE CIP - 4R ) 05 NORD-CIP-ABAD-FA PIC 99. 05 LFIL-ABAD-01-FA PIC X(27). * FIN COPIE ABAD,W1 *COPIE,ABYA ,W1,01,,FA * DEBUT COPIE ABYA,W1 * VERSION DU 23/04/2009 A 17/34 FICHE 82TB65V057 * 01 ABYA-FA. 03 C-ABYA-FA. * * ARTICLE CODIFICATION LPP (ISSU DE A2335). * * LONGUEUR DE L'ARTICLE = 0097 *----- ENREGISTREMENT CODIFICATION LPP NTYPENR = 53 ------ 05 NTYPENR-ABYA-FA PIC 9(2) COMP-6. *CODE REFERENCE DU TIPS (TARIF INTERMINISTERIEL DES PRESTATIONS *SANITAIRES) 05 NN-PTIP-ABYA-FA PIC X(13). *CODE ACHAT, LOCATION, ENTRETIEN APPAREILLAGE 05 CLOCACHETN-ABYA-FA PIC X. *NUMERO SIRET DU FABRICANT 05 NSRTFAB-ABYA-FA PIC X(14). *DATE DEBUT LOCATION APPAREILLAGE (TIPS) 05 BLOCTIP-ABYA-FA PIC 9(8). *DATE FIN LOCATION APPAREILLAGE (TIPS) 05 FLOCTIP-ABYA-FA PIC 9(8). *TARIF DE RESPONSABILITE TIPS 05 VTARRSPTIP-ABYA-FA PIC 9(5)V99. *QUANTITE D'UNITE (TIPS) 05 QUNITIP-ABYA-FA PIC 99. *MONTANT DU PRIX UNITAIRE DU TIPS 05 VUNITIP-ABYA-FA PIC 9(5)V99. *MONTANT TOTAL DU TIPS 05 VTOTTIP-ABYA-FA PIC 9(5)V99. *VALEUR TOTALE APRES REMISE 05 VTOTAPMREM-ABYA-FA PIC 9(5)V99. *NUMERO D'ORDRE DE L'ACTE AFFINE 05 NORDACEAFN-ABYA-FA PIC 99. *FILLER DE 20 CARACTERES 05 LFIL-ABYA-FA PIC X(20). * FIN COPIE ABYA,W1 *COPIE,ABYD ,W1,01,,FA * DEBUT COPIE ABYD,W1 * VERSION DU 23/04/2009 A 17/34 FICHE 82TB65V057 * 01 ABYD-FA. 03 C-ABYD-FA. * * ENREGISTREMENT DONNEES DENTAIRES HORS CCAM * * LONGUEUR DE L'ARTICLE = 0013 * ---------- ENREGISTREMENT DETAIL DENTS NTYPENR = 54 ------ 05 NTYPENR-ABYD-FA PIC 99 COMP-6. 05 GRP-DENT-ABYD-FA. 10 CDNT-ABYD-FA PIC XX. 10 DSOI-DNT-ABYD-FA PIC 9(8). 10 NORDACEAFN-ABYD-FA PIC 99. * FIN COPIE ABYD,W1 *COPIE,ZA74 ,W1,01,,FA * DEBUT COPIE ZA74,W1 * VERSION DU 23/04/2009 A 17/34 FICHE 82TB65V057 * 01 ZA74-FA. 03 C-ZA74-FA. * * ARTICLE CONTENANT LES CONSOMMES. * GESTION DES SUPPLEMENTS => NT * YPENR = 56 * * LONGUEUR DE L'ARTICLE = 2526 05 NTYPENR-ZA74-FA PIC 9(2) COMP-6. 05 OCC-B44-ZA74-FA OCCURS 0025. 10 NREFCNTA-C-ZA74-FA. 20 NO-C-ZA74-FA PIC X(8). 20 NPDT-ZA74-FA PIC XX. 10 NGAR-ZA74-FA PIC X(2). 10 NN-D-ZA74-FA PIC X(2). 10 CETELIMA-C-ZA74-FA PIC X. 10 CN-P-ZA74-FA PIC XXXX. 10 DPRS-ZA74-FA PIC 9(8). 10 BSOI-ZA74-FA PIC 9(8). 10 DFACMAL-ZA74-FA PIC 9(8). 10 DPRSMAL-ZA74-FA PIC 9(8). 10 VDEPREE-ZA74-FA PIC 9(6)V99. 10 VPAYOBL-ZA74-FA PIC 9(6)V99. 10 VPAYCPL-ZA74-FA PIC 9(6)V99. 10 VPAYTOT-ZA74-FA PIC S9(8)V99. 10 VDPSACE-ZA74-FA PIC 9(6)V99. 10 QACEMAL-ZA74-FA PIC 9(4). 10 QACEMAL-DPS-ZA74-FA PIC 9(4). * FIN COPIE ZA74,W1 *COPIE,ZB5J ,W1,01,,FA * DEBUT COPIE ZB5J,W1 * VERSION DU 04/03/2010 A 08/26 FICHE 82TB65Y790 * 01 ZB5J-FA. 03 C-ZB5J-FA. * * ARTICLE TRACABILITE DES CODES CIP DES NORMES - T4R * - TYPE ENREGISTREMENT = 57 * * LONGUEUR DE L'ARTICLE = 0064 **** TYPE ENREGISTREMENT = 57 *** 05 NTYPENR-ZB5J-FA PIC 9(2) COMP-6. 05 NLOT-CON-ZB5J-FA PIC X(20). 05 QCON-LOT-ZB5J-FA PIC 9(2). 05 EDCO-DCO-ZB5J-FA PIC X. 05 NSER-CON-ZB5J-FA PIC X(20). *NUMERO D'ORDRE POUR FAIRE LIEN ENTRE ABAD (INFOS CIP) ET ZB5J *(TRACABILITE CIP - 4R ) 05 NORD-CIP-ZB5J-FA PIC 99. 05 LFIL-ZB5J-FA PIC X(18). * FIN COPIE ZB5J,W1 *COPIE,ZABA ,W1,01,,FA * DEBUT COPIE ZABA,W1 * VERSION DU 18/02/2010 A 11/23 FICHE 82TB65Y790 * 01 ZABA-FA. 03 C-ZABA-FA. * * ARTICLE CONTENANT LES CONSOMMES. * GESTION DES SUPPLEMENTS => NT * YPENR = 58 * * LONGUEUR DE L'ARTICLE = 2491 05 NTYPENR-ZABA-FA PIC 9(2) COMP-6. 05 OCC-B44-ZABA-FA OCCURS 0030. 10 NREFCNTA-C-ZABA-FA. 20 NO-C-ZABA-FA PIC X(8). 20 NPDT-ZABA-FA PIC XX. 10 CETELIMA-C-ZABA-FA PIC X. *DATE DEBUT DE PERIODE 10 BPERLIMA-C-ZABA-FA PIC 9(8). *FIN DE PERIODE 10 FPERLIMA-C-ZABA-FA PIC 9(8). *CODE ACTE A RETOURNER 10 CN-PFOFCPL-ZABA-FA PIC X(4). *N° DE LA GARANTIE 10 NGARACE-ZABA-FA PIC X(2). *N° DE LA NATURE DE DEPENSE 10 NN-DACE-ZABA-FA PIC X(2). *TYPE DE FORFAIT COMPLEMENTAIRE 10 CTYPFOFCPL-ZABA-FA PIC X. *DROIT POTENTIEL 10 VINILIMA-C-ZABA-FA PIC 9(6)V99. *CONSOMME 10 VCOULIMA-C-ZABA-FA PIC 9(6)V99. *N° ORDRE DU CONSOMME 10 NORDCYC-ZABA-FA PIC 99. *RANG DANS LE CYCLE 10 CRNGCYC-ZABA-FA PIC 9. *DATE DE DEBUT DU 1ER CYCLE 10 BEFFCYC-ZABA-FA PIC 9(8). *NOMBRE DE RANG DANS LE CYCLE 10 NRNG-ZABA-FA PIC 9. *TOP REINIT EN FIN DE CYCLE 10 EINICYC-ZABA-FA PIC X. *DATE DE DERNIERE MODIFICAITON 10 DITTA-C-ZABA-FA PIC 9(8). *TOP MAJ DE LA PERIODE 10 CRESPER-ZABA-FA PIC X. 10 LFIL-ZABA-FA PIC X(09). * FIN COPIE ZABA,W1 *COPIE,AB9K ,W1,01,,FA * DEBUT COPIE AB9K,W1 * VERSION DU 21/04/2009 A 09/05 FICHE 82TB65V057 * 01 AB9K-FA. 03 C-AB9K-FA. * * ENREGISTREMENT TRANSPORT TARIFICATION * * LONGUEUR DE L'ARTICLE = 0063 *---------- ENREGISTREMENT TRANSPORT NTYPENR = 60 ---------- 05 NTYPENR-AB9K-FA PIC 9(2) COMP-6. * * DONNEES COMPLEMENT ACTE TRANSPORT; PROVIENT DE LA * NORME TRANSPORT * 05 AB6T-AB9K-FA. 10 DON-TRANSPO-02-AB9K-FA. 11 NORDTRA-AB9K-FA PIC 99 COMP-6. 11 DTRADRT-AB9K-FA PIC 9(8) COMP-6. 11 VHEUDRTTRA-AB9K-FA PIC 9(4) COMP-6. 11 NCOMDRTTRA-AB9K-FA PIC 9(3) COMP-6. 11 NDPTDRTTRA-AB9K-FA PIC X(2). 11 NIMMVHS-AB9K-FA PIC X(9). 11 LNOMCND-AB9K-FA PIC X(8). 11 LPRECND-AB9K-FA PIC XXX. 11 LNOMACP-AB9K-FA PIC X(8). 11 LPREACP-AB9K-FA PIC XXX. 11 DTRAARR-AB9K-FA PIC 9(8) COMP-6. 11 VHEUARRTRA-AB9K-FA PIC 9(4) COMP-6. 11 NCOMARRTRA-AB9K-FA PIC 9(3) COMP-6. 11 NDPTARRTRA-AB9K-FA PIC X(2). 11 NMALTRA-AB9K-FA PIC 9. 11 TABTTRA-AB9K-FA PIC 9(3)V99 COMP-6. 11 VABTTRA-AB9K-FA PIC 9(5)V99 COMP-6. 11 QKLMFAC-AB9K-FA PIC 9(4) COMP-6. * FIN COPIE AB9K,W1 *COPIE,AB9L ,W1,01,,FA * DEBUT COPIE AB9L,W1 * VERSION DU 21/04/2009 A 09/06 FICHE 82TB65V057 * 01 AB9L-FA. 03 C-AB9L-FA. * * ENREGISTREMENT LIGNES DECOMPTE TARIFICATION * * LONGUEUR DE L'ARTICLE = 0240 *---------- ENREGISTREMENT DECOMPTE NTYPENR = 70 ---------- 05 NTYPENR-AB9L-FA PIC 9(2) COMP-6. 05 LLIG-DEC-AB9L-FA PIC X(70). 05 LLIG-DEC-AB9L-01-FA PIC X(70). 05 LLIG-DEC-AB9L-02-FA PIC X(70). 05 NTIE-AB9L-FA PIC X(8). 05 ETOP-MADSAI-AB9L-FA PIC X. 05 LFIL-AB9L-FA PIC X(20). * FIN COPIE AB9L,W1 *COPIE,ABA5 ,W1,01,,FA * DEBUT COPIE ABA5,W1 * VERSION DU 21/04/2009 A 09/07 FICHE 82TB65V057 * 01 ABA5-FA. 03 C-ABA5-FA. * * ENREGISTREMENT SIGNALEMENT TARIFICATION * * LONGUEUR DE L'ARTICLE = 0066 *---------- ENREGISTREMENT SIGNALEMENT TYPE 80 ---------- 05 NTYPENR-ABA5-FA PIC 9(2) COMP-6. 05 LLIB-SGNREJ-ABA5-FA PIC X(65). * FIN COPIE ABA5,W1 *COPIE,ZA3B ,W1,01,,FA * DEBUT COPIE ZA3B,W1 * VERSION DU 28/01/2010 A 15/40 FICHE 82TB65Y790 * 01 ZA3B-FA. 03 C-ZA3B-FA. * * ARTICLE CODIFICATION UCD - TYPE 3H. * * LONGUEUR DE L'ARTICLE = 0072 * --- ENREGISTREMENT CODIFICATION AFFINE UCD NTYPENR = 55 --- 05 NTYPENR-ZA3B-FA PIC 9(2) COMP-6. *CODE UCD 05 CPST-UCD-ZA3B-FA PIC X(13). *COEFFICIENT DE FRACTIONNEMENT 05 VCOE-FAC-ZA3B-FA PIC 9V9(4). *COUT TTC LIE A LA RECONSTITUTION POUR 4H *PRIX D'ACHAT UNITAIRE TTC POUR 3H 05 VUNI-PHA-ZA3B-FA PIC 9(5)V99. *MONTANT DE LA MARGE TTC POUR 4H *MONTANT UNITAIRE DE L'ECART INDEMNISABLE POUR 3H 05 VTOTMNT-IDM-ZA3B-FA PIC 9(5)V99. *PRIX D'ACHAT / VENTE UNITAIRE TTC POUR 4H *MONTANT TOTAL DE L'ECART INDEMNISABLE POUR 3H 05 VUNI-DMD-ZA3B-FA PIC 9(5)V99. *NOMBRE D'UNITES DELIVREES 05 QUNITIP-ZA3B-FA PIC 9(3). *MONTANT TOTAL FACTURE TTC 05 VDMDTOT-ZA3B-FA PIC 9(5)V99. *NUMERO D'ORDRE DE L'ACTE AFFINE 05 NORDACEAFN-ZA3B-FA PIC 9(2). 05 COBLUCD-ZA3B-FA PIC X. *FILELR 05 LFIL-ZA3B-FA PIC X(19). * FIN COPIE ZA3B,W1