source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUMF299.m@ 1096

Last change on this file since 1096 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 840 bytes
Line 
1XUMF299 ;ISS/RAM - Query Master File Parameters;04/15/02
2 ;;8.0;KERNEL;**299**;Jul 10, 1995
3 ;
4 ; $$PARAM^HLCS2 call supported by IA #3552
5 ;
6 Q
7 ;
8MAIN ; -- main
9 ;
10 N ZTRTN,ZTDESC,ZTDTH
11 ;
12 S ZTRTN="EN^XUMF299"
13 S ZTDESC="XUMF query MFS for file parameters"
14 S ZTDTH=$$NOW^XLFDT
15 S ZTIO=""
16 S ZTSAVE("IEN")=""
17 S ZTSAVE("IFN")=""
18 ;
19 D ^%ZTLOAD
20 ;
21 Q
22 ;
23EN ; -- entry point
24 ;
25 N PARAM,ERROR,TEST
26 ;
27 S (ERROR,TEST)=0
28 ;
29 I $P($$PARAM^HLCS2,U,3)="T" S TEST=1
30 ;
31 ; -- get Master File Parameters
32 ;
33 S PARAM("LLNK")="XUMF MFP MFR^XUMF "_$S('TEST:"FORUM",1:"TEST")
34 S PARAM("PROTOCOL")=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")
35 ;
36 D MAIN^XUMFXP(4.001,IEN,5,.PARAM,.ERROR) Q:ERROR
37 D MAIN^XUMFXI(4.001,IEN,5,.PARAM,.ERROR) Q:ERROR
38 D MAIN^XUMFHPR
39 ;
40EXIT ; -- cleanup and quit
41 ;
42 K ^TMP("XUMF MFS",$J),^TMP("DIERR",$J)
43 ;
44 S ZTREQ="@"
45 ;
46 Q
47 ;
Note: See TracBrowser for help on using the repository browser.