XUMF299.m

XUMF299 ;ISS/RAM - Query Master File Parameters;04/15/02

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

 ;

 ; $$PARAM^HLCS2 call supported by IA #3552

 ;

 Q

 ;

MAIN ; -- main

 ;

 N ZTRTN,ZTDESC,ZTDTH

 ;

 S ZTRTN="EN^XUMF299"

 S ZTDESC="XUMF query MFS for file parameters"

 S ZTDTH=$$NOW^XLFDT

 S ZTIO=""

 S ZTSAVE("IEN")=""

 S ZTSAVE("IFN")=""

 ;

 D ^%ZTLOAD

 ;

 Q

 ;

EN ; -- entry point

 ;

 N PARAM,ERROR,TEST

 ;

 S (ERROR,TEST)=0

 ;

 I $P($$PARAM^HLCS2,U,3)="T" S TEST=1

 ;

 ; -- get Master File Parameters

 ;

 S PARAM("LLNK")="XUMF MFP MFR^XUMF "_$S('TEST:"FORUM",1:"TEST")

 S PARAM("PROTOCOL")=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")

 ;

 D MAIN^XUMFXP(4.001,IEN,5,.PARAM,.ERROR) Q:ERROR

 D MAIN^XUMFXI(4.001,IEN,5,.PARAM,.ERROR) Q:ERROR

 D MAIN^XUMFHPR

 ;

EXIT ; -- cleanup and quit

 ;

 K ^TMP("XUMF MFS",$J),^TMP("DIERR",$J)

 ;

 S ZTREQ="@"

 ;

 Q

 ;

XUMF299   ;ISS/RAM - Query Master File Parameters;04/15/02

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

 +2       ;

 +3       ; $$PARAM^HLCS2 call supported by IA #3552

 +4       ;

 +5        QUIT 

 +6       ;

MAIN      ; -- main

 +1       ;

 +2        NEW ZTRTN,ZTDESC,ZTDTH

 +3       ;

 +4        SET ZTRTN="EN^XUMF299"

 +5        SET ZTDESC="XUMF query MFS for file parameters"

 +6        SET ZTDTH=$$NOW^XLFDT

 +7        SET ZTIO=""

 +8        SET ZTSAVE("IEN")=""

 +9        SET ZTSAVE("IFN")=""

 +10      ;

 +11       DO ^%ZTLOAD

 +12      ;

 +13       QUIT 

 +14      ;

EN        ; -- entry point

 +1       ;

 +2        NEW PARAM,ERROR,TEST

 +3       ;

 +4        SET (ERROR,TEST)=0

 +5       ;

 +6        IF $PIECE($$PARAM^HLCS2,U,3)="T"

               SET TEST=1

 +7       ;

 +8       ; -- get Master File Parameters

 +9       ;

 +10       SET PARAM("LLNK")="XUMF MFP MFR^XUMF "_$SELECT('TEST:"FORUM",1:"TEST")

 +11       SET PARAM("PROTOCOL")=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")

 +12      ;

 +13       DO MAIN^XUMFXP(4.001,IEN,5,.PARAM,.ERROR)

           IF ERROR

               QUIT 

 +14       DO MAIN^XUMFXI(4.001,IEN,5,.PARAM,.ERROR)

           IF ERROR

               QUIT 

 +15       DO MAIN^XUMFHPR

 +16      ;

EXIT      ; -- cleanup and quit

 +1       ;

 +2        KILL ^TMP("XUMF MFS",$JOB),^TMP("DIERR",$JOB)

 +3       ;

 +4        SET ZTREQ="@"

 +5       ;

 +6        QUIT 

 +7       ;