Changeset 62 for ccr/trunk

Timestamp:

Jul 15, 2008, 12:03:50 AM (16 years ago)

Author:

Sam Habiel

Message:

More work on the CCRVA200

File:

• ccr/trunk/p/CCRVA200.m (modified) (1 diff)

ccr/trunk/p/CCRVA200.m

@@ -43 +43 @@
         Q $$GET1^DIQ(200,DUZ_",",8)
         ;
+NPI(DUZ) ; Get NPI Number, PUBLIC; EXTRINSIC
+        ; INPUT: DUZ ByVal
+        ; OUTPUT: Delimited String in format:
+        ;       IDType^ID^IDDescription
+        ; If the NPI doesn't exist, "" is returned.
+        ; This routine uses a call documented in the Kernel dev guide
+        ; This call returns as "NPI^TimeEntered^ActiveInactive"
+        ; It returns -1 for NPI if NPI doesn't exist.
+        N NPI S NPI=$P($$NPI^XUSNPI("Individual_ID",DUZ),U)
+        Q:NPI=-1 ""
+        Q "NPI^"_NPI_"^HHS"
+        ;
+SPEC(DUZ) ; Get Provider Specialty, PUBLIC; EXTRINSIC
+        ; INPUT: DUZ ByVal
+        ; OUTPUT: String: ProviderType/Specialty/Subspecialty OR ""
+        ; Uses a Kernel API. Returns -1 if a specialty is not specified
+        ;       in file 200.
+        ; Otherwise, returns IEN^Profession^Specialty^Sub­            specialty^Effect date^Expired date^VA code
+        N STR S STR=$$GET^XUA4A72(DUZ)
+        Q:+STR<0 ""
+        ; Sometimes we have 3 pieces, or 2. Deal with that.
+        Q:$L($P(STR,U,4)) $P(STR,U,2)_"/"_$P(STR,U,3)_"/"_$P(STR,U,4)
+        Q $P(STR,U,2)_"/"_$P(STR,U,3)
+        ;
+ADDTYPE(DUZ) ; Get Address Type, PUBLIC; EXTRINSIC
+        ; INPUT: DUZ, but not needed really... here for future expansion
+        ; OUTPUT: At this point "Work"
+        Q "Work"
+        ;
 
-