Last change
on this file since 1796 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
840 bytes
|
Line | |
---|
1 | XUMF299 ;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 | ;
|
---|
8 | MAIN ; -- 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 | ;
|
---|
23 | EN ; -- 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 | ;
|
---|
40 | EXIT ; -- 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.