- 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 Apr 23, 2025@18:25:39 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 ;
