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/XUMFP4Z.m@ 701

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

initial load of WorldVistAEHR

File size: 4.1 KB
Line 
1XUMFP4Z ;CIOFO-SF/RAM - Master File C/S Params INSTITUTION ;06/28/00
2 ;;8.0;KERNEL;**416**;Jul 10, 1995;Build 5
3 ;
4 ;
5 ; This routine sets up the parameters required by the INSTITUTION (#4)
6 ; file for the Master File server mechanism.
7 ;
8 ; ** This routine is not a supported interface -- use XUMFP **
9 ;
10 ; See XUMFP for parameter list documentation
11 ;
12 ; ZIN -- VA Specific VHA Institution Segment sequence
13 S ^TMP("XUMF MFS",$J,"PARAM","SEGMENT")="ZIN"
14 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",1,.01)="ST"
15 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",2,99)="ST"
16 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",3,11)="ID"
17 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",4,13)="CE^~FACILITY TYPE~VA"
18 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",5,100)="ST"
19 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",6,101)="ST"
20 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",7,.02)="ST"
21 ; associations -- VISN
22 I '$P($G(^DIC(4,+IEN,99)),U,4) D
23 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",8,"FILE")=4.014
24 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",8,"FIELD")=1
25 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",8,"DTYP")="CE^~VISN~VA"
26 .; associations -- parent
27 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",9,"FILE")=4.014
28 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",9,"FIELD")="1"
29 .S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",9,"DTYP")="ST"
30 ; history -- old station number
31 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",10,"FILE")=4.999
32 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",10,"FIELD")=.01
33 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",10,"DTYP")="DT"
34 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",11,"FILE")=4.999
35 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",11,"FIELD")=".06"
36 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",11,"DTYP")="ST^^:99"
37 ; history -- new station number
38 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",12,"FILE")=4.999
39 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",12,"FIELD")=.01
40 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",12,"DTYP")="DT"
41 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",13,"FILE")=4.999
42 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",13,"FIELD")=".05"
43 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",13,"DTYP")="ST^^:99"
44 ; physical address
45 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",14.1,.01)="SAD"
46 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",14.2,1.01)="ST"
47 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",14.3,1.03)="ST"
48 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",14.4,.02)="ST"
49 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",14.5,1.04)="ST"
50 ; mailing address
51 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",15.1,.01)="SAD"
52 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",15.2,4.01)="ST"
53 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",15.3,4.03)="ST"
54 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",15.4,4.04)="ST"
55 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",15.5,4.05)="ST"
56 ; agency code
57 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",16,95)="CE^~AGENCY CODE~VA"
58 ; npi
59 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",17,"FILE")=4.042
60 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",17,"FIELD")=.01
61 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",17,"DTYP")="DT"
62 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",18,"FILE")=4.042
63 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",18,"FIELD")=.02
64 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",18,"DTYP")="NM"
65 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",19,"FILE")=4.042
66 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",19,"FIELD")=.03
67 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",19,"DTYP")="ST"
68 ; taxonomy
69 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",20,"FILE")=4.043
70 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",20,"FIELD")=.01
71 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",20,"DTYP")="ST"
72 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",21,"FILE")=4.043
73 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",21,"FIELD")=.02
74 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",21,"DTYP")="ST"
75 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",22,"FILE")=4.043
76 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",22,"FIELD")=.03
77 S ^TMP("XUMF MFS",$J,"PARAM","SEG","ZIN","SEQ",22,"DTYP")="ST"
78 ;
79 Q
80 ;
Note: See TracBrowser for help on using the repository browser.