|
Last change
on this file since 1080 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
840 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
