Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
840 bytes
|
Rev | Line | |
---|
[628] | 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.