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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF299 887 printed Dec 13, 2024@02:10:13 Page 2
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 ;
