XUMFXACK.m

XUMFXACK ;ISS/RAM - MFS app ack ;06/28/00

 ;;8.0;KERNEL;**299**;Jul 10, 1995

 ;

 ;

 Q

 ;

REPLY(ERROR) ; -- master file response (called from XUMFXH)

 ;

 Q:HL("MTN")="MFR"

 Q:HL("MTN")="MFK"

 Q:HL("MTN")="ACK"

 ;

 S:(TYPE<10) TYPE=(TYPE+10)

 ;

 I HL("MTN")="MFQ" D

 .S IFN=+$G(WHAT) I 'IFN D  Q

 ..S ERROR="1^REPLY MFQ couldn't resolve IFN"

 ..D EM^XUMFX(ERROR,.ERR)

 .S XREF=$P(WHO,HLCS,9),ROOT=$$ROOT^DILFD(IFN,,1)

 .S IEN=$O(@ROOT@(XREF,$P(WHO,HLCS),0))

 .S IEN=$S(IEN:IEN,1:$P(WHO,HLCS))

 ;

 S IFN=$G(IFN),IEN=$G(IEN)

 ;

 D MAIN^XUMFXP(IFN,IEN,TYPE,.PARAM,.ERROR)

 D MAIN^XUMFXI(IFN,IEN,TYPE,.PARAM,.ERROR)

 ;

 Q

 ;

XUMFXACK  ;ISS/RAM - MFS app ack ;06/28/00

 +1       ;;8.0;KERNEL;**299**;Jul 10, 1995

 +2       ;

 +3       ;

 +4        QUIT 

 +5       ;

REPLY(ERROR) ; -- master file response (called from XUMFXH)

 +1       ;

 +2        IF HL("MTN")="MFR"

               QUIT 

 +3        IF HL("MTN")="MFK"

               QUIT 

 +4        IF HL("MTN")="ACK"

               QUIT 

 +5       ;

 +6        IF (TYPE<10)

               SET TYPE=(TYPE+10)

 +7       ;

 +8        IF HL("MTN")="MFQ"

               Begin DoDot:1

 +9                SET IFN=+$GET(WHAT)

                   IF 'IFN

                       Begin DoDot:2

 +10                       SET ERROR="1^REPLY MFQ couldn't resolve IFN"

 +11                       DO EM^XUMFX(ERROR,.ERR)

                       End DoDot:2

                       QUIT 

 +12               SET XREF=$PIECE(WHO,HLCS,9)

                   SET ROOT=$$ROOT^DILFD(IFN,,1)

 +13               SET IEN=$ORDER(@ROOT@(XREF,$PIECE(WHO,HLCS),0))

 +14               SET IEN=$SELECT(IEN:IEN,1:$PIECE(WHO,HLCS))

               End DoDot:1

 +15      ;

 +16       SET IFN=$GET(IFN)

           SET IEN=$GET(IEN)

 +17      ;

 +18       DO MAIN^XUMFXP(IFN,IEN,TYPE,.PARAM,.ERROR)

 +19       DO MAIN^XUMFXI(IFN,IEN,TYPE,.PARAM,.ERROR)

 +20      ;

 +21       QUIT 

 +22      ;