| [613] | 1 | XUMFP4Z ;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 | ;
|
|---|
