PQ
C
C CALCUL DES COMPLEMENTS DE FACTURATION
C
T C

IF A2 = "I" GO 1
IF A2 = "T" GO 2

1
HTSELECT COMPLFACT 
A"4
GO 11

2
HTSELECT COMPLFACT
GO 3

3
H AVEC CodAssocComplFact =
A"3
GO 5

4 


5
H AND AVEC ActiviteComplFact =
A"4

IF A5 = "R" GO 6
IF A5 = "S" GO 7

6
IF A6 = "000" GO 8
H AND AVEC ResponsableAide =
A"6
GO 8

7
IF A6 = "000" GO 8
H AND AVEC CodeSecteur =
A"6
GO 8

8
IF A7 # "X" GO 9
GO 10

9
H AND AVEC CodeService =
A"7

10
H PAR NomAideComplFact PAR PrenomAideComplFact 

11
STON
H<
P
HSAUVE-LISTE LISTECOMPLFACT
P
HRUN PR CALCULCOMPLFACT
P
HEFFACER-LISTE LISTECOMPLFACT
PH