compromisos_compartidos

en la FKe110A0:

- añadir la segunda linea (JULIO) justo debajo de la asignación del TPEX. Es para dejar la original sin tocar pero darle nuevo valor. ¡Cuidado que hay que hacerlo dos veces. Hay dos asignaciones!
- se llama a la función DQQ^rutinadondeseponga(CLI,ART,ORDEN)

 . S TPEX=$P(DATDCC,S,14)
 . S TPEX=$$DQQ^FKe110A0(CLIM,ART,ORDCC) ; JULIO

Meter la función que devuelve si es compromiso compartido al final de la misma rutina o como programa aparte (en mi caso misma rutina de momento)

DQQ(bCLI,bART,bOR)  ; devuelve socios que comparten compromisos entre comas JULIO 12.11.2014
    N (bCLI,bART,bOR)
    S COMPARTIDO=""
    I ($G(bCLI)="")!($G(bART)="")!($G(bOR)="") Q COMPARTIDO
    ;
    ; primero si bCLI figura como pral del DCC pero tiene DQQ que apuntan a el
    S bCLQ=""
    F  S bCLQ=$O(^DQQ(bCLQ)) Q:bCLQ=""  I $G(^DQQ(bCLQ,bART,bOR))=bCLI D
    . S COMPARTIDO=COMPARTIDO_$S(COMPARTIDO="":bCLQ,1:","_bCLQ)
    ;
    ; ahora si bCLI no figura como pral en el DCC pero tiene DQQ
    S bCLQ=""
    I $D(^DQQ(bCLI,bART,bOR)) S CLIRAIZ=^DQQ(bCLI,bART,bOR) S COMPARTIDO=CLIRAIZ F  S bCLQ=$O(^DQQ(bCLQ)) Q:bCLQ=""  I bCLQ'=bCLI D
    . I $G(^DQQ(bCLQ,bART,bOR))=CLIRAIZ S COMPARTIDO=COMPARTIDO_$S(COMPARTIDO="":bCLQ,1:","_bCLQ)
    ;
    ; al final se decide enviar una S o una N
    S COMPARTIDO=$S(COMPARTIDO'="":"S",1:"N")
    Q COMPARTIDO