From ab67b0be4df0716697996825a90ed3fd0d7199a2 Mon Sep 17 00:00:00 2001
From: sam <sam>
Date: Mon, 14 Jul 2008 05:20:55 +0000
Subject: [PATCH] Wrote initial part of Provider Extraction Routine; Added
 Source to Template for Provider ID.

---
 p/CCRVA200.m | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 p/GPLCCR0.m  |  9 +++++++--
 2 files changed, 53 insertions(+), 2 deletions(-)
 create mode 100644 p/CCRVA200.m

diff --git a/p/CCRVA200.m b/p/CCRVA200.m
new file mode 100644
index 0000000..67eee56
--- /dev/null
+++ b/p/CCRVA200.m
@@ -0,0 +1,46 @@
+CCRVA200 ;WV/CCDCCR/SMH - Routine to get Provider Data;07/13/2008
+	;;0.1;CCDCCR;;JUL 13, 2007;Build 0
+
+	; This routine uses Kernel APIs and Direct Global Access to get
+	; Proivder Data from File 200.
+
+	; The Global is VA(200,*)
+
+FAMILY(DUZ) ; Get Family Name; PUBLIC; EXTRINSIC
+	; INPUT: DUZ (i.e. File 200 IEN) ByVal
+	; OUTPUT: String
+	N NAME S NAME=$P(^VA(200,DUZ,0),U)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("FAMILY")
+	;
+GIVEN(DUZ) ; Get Given Name; PUBLIC; EXTRINSIC
+	; INPUT: DUZ ByVal
+	; OUTPUT: String
+	N NAME S NAME=$P(^VA(200,DUZ,0),U)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("GIVEN")
+	;
+MIDDLE(DUZ) ; Get Middle Name, PUBLIC; EXTRINSIC
+	; INPUT: DUZ ByVal
+	; OUTPUT: String
+	N NAME S NAME=$P(^VA(200,DUZ,0),U)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("MIDDLE")
+	;
+SUFFIX(DUZ) ; Get Suffix Name, PUBLIC; EXTRINSIC
+	; INPUT: DUZ ByVal
+	; OUTPUT: String
+	N NAME S NAME=$P(^VA(200,DUZ,0),U)
+	D NAMECOMP^XLFNAME(.NAME)
+	Q NAME("SUFFIX")
+	;
+TITLE(DUZ) ; Get Title for Proivder, PUBLIC; EXTRINSIC
+	; INPUT: DUZ ByVal
+	; OUTPUT: String
+	; Gets External Value of Title field in New Person File.
+	; It's actually a pointer to file 3.1
+	; 200=New Person File; 8 is Title Field
+	Q $$GET1^DIQ(200,DUZ_",",8)
+	;
+
+
diff --git a/p/GPLCCR0.m b/p/GPLCCR0.m
index 7f7b14a..ae3bf49 100644
--- a/p/GPLCCR0.m
+++ b/p/GPLCCR0.m
@@ -539,9 +539,14 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Person>
  ;;<IDs>
  ;;<Type>
- ;;<Text>NPI</Text>
+ ;;<Text>@@IDTYPE@@</Text>
  ;;</Type>
- ;;<ID>@@ACTORNPI@@</ID>
+ ;;<ID>@@ID@@</ID>
+ ;;<IssuedBy>
+ ;;<Description>
+ ;;<Text>@@IDDESC@@</Text>
+ ;;</Description>
+ ;;</IssuedBy>
  ;;</IDs>
  ;;<Specialty>
  ;;<Text>@@ACTORSPECIALITY@@</Text>