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