Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGRSPAR1

RGRSPAR1.m

Go to the documentation of this file.
  1. RGRSPAR1 ;ALB/RJS-REGISTRATION MESSAGE PARSER FOR CIRN TFU ;6/9/97
  1. ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
  1. EN(ARRAY) ;
  1. ;This procedure call updates a given array with CMOR site number and ICN
  1. ;
  1. ;Input: Required Variable
  1. ;
  1. ; ARRAY - Supplied array variable (Passed by reference)
  1. ;
  1. ;Output:
  1. ;
  1. ; ARRAY("SITENUM") - Patient's CMOR site number
  1. ; ARRAY("ICN") - Patient's ICN
  1. ;
  1. N RGRSMFI,RGRSMFE,RGC,SUBCOMP
  1. S RGC=$E(HL("ECH")),SUBCOMP=$E(HL("ECH"),2)
  1. S RGRSMFI=$$SEG1^RGRSUTIL("MFI",1,"MFI")
  1. S RGRSMFE=$$SEG1^RGRSUTIL("MFE",1,"MFE")
  1. S @ARRAY@("SITENUM")=$$FREE($P($P(RGRSMFE,HL("FS"),5),RGC,1)) ;VCCI SITENUM
  1. S @ARRAY@("ICN")=$$FREE($P($P(RGRSMFE,HL("FS"),5),RGC,4)) ;ICN
  1. Q
  1. FREE(DATA) ;
  1. Q:$G(DATA)="" ""
  1. Q:DATA=HL("Q") """@"""
  1. Q $G(DATA)
  1. Q