Changeset 62 for ccr/trunk


Ignore:
Timestamp:
Jul 15, 2008, 12:03:50 AM (16 years ago)
Author:
Sam Habiel
Message:

More work on the CCRVA200

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRVA200.m

    r58 r62  
    4343        Q $$GET1^DIQ(200,DUZ_",",8)
    4444        ;
     45NPI(DUZ) ; Get NPI Number, PUBLIC; EXTRINSIC
     46        ; INPUT: DUZ ByVal
     47        ; OUTPUT: Delimited String in format:
     48        ;       IDType^ID^IDDescription
     49        ; If the NPI doesn't exist, "" is returned.
     50        ; This routine uses a call documented in the Kernel dev guide
     51        ; This call returns as "NPI^TimeEntered^ActiveInactive"
     52        ; It returns -1 for NPI if NPI doesn't exist.
     53        N NPI S NPI=$P($$NPI^XUSNPI("Individual_ID",DUZ),U)
     54        Q:NPI=-1 ""
     55        Q "NPI^"_NPI_"^HHS"
     56        ;
     57SPEC(DUZ) ; Get Provider Specialty, PUBLIC; EXTRINSIC
     58        ; INPUT: DUZ ByVal
     59        ; OUTPUT: String: ProviderType/Specialty/Subspecialty OR ""
     60        ; Uses a Kernel API. Returns -1 if a specialty is not specified
     61        ;       in file 200.
     62        ; Otherwise, returns IEN^Profession^Specialty^Sub­            specialty^Effect date^Expired date^VA code
     63        N STR S STR=$$GET^XUA4A72(DUZ)
     64        Q:+STR<0 ""
     65        ; Sometimes we have 3 pieces, or 2. Deal with that.
     66        Q:$L($P(STR,U,4)) $P(STR,U,2)_"/"_$P(STR,U,3)_"/"_$P(STR,U,4)
     67        Q $P(STR,U,2)_"/"_$P(STR,U,3)
     68        ;
     69ADDTYPE(DUZ) ; Get Address Type, PUBLIC; EXTRINSIC
     70        ; INPUT: DUZ, but not needed really... here for future expansion
     71        ; OUTPUT: At this point "Work"
     72        Q "Work"
     73        ;
    4574
    46 
Note: See TracChangeset for help on using the changeset viewer.