source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUMFPZL7.m@ 724

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XUMFPZL7 ;CIOFO-SF/RAM - Master File Param ZL7 ;8/14/00
2 ;;8.0;KERNEL;**262,369**;Jul 10, 1995;Build 27
3 ;
4 ;
5Z05 ; State (#5)
6 ;
7 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.1,1)="ST"
8 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.2,.01)="ST"
9 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.4,2)="ST"
10 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.5,.01)="ST"
11 ;
12 Q
13 ;
14Z49 ; Service/Section (#49)
15 ;
16 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.1,.01)="ST"
17 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.2,1)="ST"
18 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",3,1.6)="ST"
19 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",4,6)="ST"
20 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",5,1.5)="ST"
21 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",6,1.7)="ST"
22 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",7,730)="ST"
23 ;
24 Q
25 ;
26ZAG ; Agency (#4.11)
27 ;
28 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.1,.02)="ST"
29 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1.2,.01)="ST"
30 ;
31 Q
32 ;
33ZRN ; Routine (#9.8)
34 ;
35 S ^TMP("XUMF MFS",$J,"PARAM","MULT","ZL7",5)=5
36 S ^TMP("XUMF MFS",$J,"PARAM","MULT","ZL7",6)=5
37 ;
38 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",1,.01)="ST"
39 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",2,6)="ST"
40 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",3,7.1)="ST"
41 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",4,7.2)="ST"
42 ;
43 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",5,"FILE")=9.818
44 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",5,"FIELD")=.01
45 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",5,"DTYP")="ST"
46 ;
47 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",6,"FILE")=9.818
48 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",6,"FIELD")=2
49 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",6,"DTYP")="ST"
50 ;
51 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZL7","SEQ",7,7.3)="ST"
52 ;
53 Q
54 ;
55NOTAB ;
56 ;
57 Q
58 ;
Note: See TracBrowser for help on using the repository browser.