source: FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGRSPAR1.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 777 bytes
Line 
1RGRSPAR1 ;ALB/RJS-REGISTRATION MESSAGE PARSER FOR CIRN TFU ;6/9/97
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3EN(ARRAY) ;
4 ;This procedure call updates a given array with CMOR site number and ICN
5 ;
6 ;Input: Required Variable
7 ;
8 ; ARRAY - Supplied array variable (Passed by reference)
9 ;
10 ;Output:
11 ;
12 ; ARRAY("SITENUM") - Patient's CMOR site number
13 ; ARRAY("ICN") - Patient's ICN
14 ;
15 N RGRSMFI,RGRSMFE,RGC,SUBCOMP
16 S RGC=$E(HL("ECH")),SUBCOMP=$E(HL("ECH"),2)
17 S RGRSMFI=$$SEG1^RGRSUTIL("MFI",1,"MFI")
18 S RGRSMFE=$$SEG1^RGRSUTIL("MFE",1,"MFE")
19 S @ARRAY@("SITENUM")=$$FREE($P($P(RGRSMFE,HL("FS"),5),RGC,1)) ;VCCI SITENUM
20 S @ARRAY@("ICN")=$$FREE($P($P(RGRSMFE,HL("FS"),5),RGC,4)) ;ICN
21 Q
22FREE(DATA) ;
23 Q:$G(DATA)="" ""
24 Q:DATA=HL("Q") """@"""
25 Q $G(DATA)
26 Q
Note: See TracBrowser for help on using the repository browser.