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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMFXACK 648 printed Sep 23, 2025@19:47:21 Page 2
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 ;
