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

PXAPIUTL.m

Go to the documentation of this file.
  1. PXAPIUTL ;ISL/dee - some of PCE's utilities used by PCE's API ;3/14/97
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,186**;Aug 12, 1996;Build 3
  1. Q
  1. ;
  1. SOURCE(X) ;Get IEN of data source in the PCE Data Source file
  1. N DIC,Y,DLAYGO
  1. S DIC="^PX(839.7,"
  1. S DLAYGO=839.7
  1. S DIC(0)="LMNOX"
  1. D ^DIC
  1. Q +Y
  1. ;
  1. TMPSOURC(X) ;Gets the IEN of the data source the builds the ^TMP("PXK" node for it
  1. S ^TMP("PXK",$J,"SOR")=$$SOURCE(X)
  1. Q
  1. ;
  1. PRVCLASS(PROVIDER,VISITDT) ;See if this is a good provider
  1. ;Call with a pointer to $VA(200, and a date
  1. ; (if no date is passed then it defauts to DT) and returns
  1. ;IEN^Occupation^specialty^sub-specialty^Effective date^expiration date
  1. ; if + of the return is >0 provider is active
  1. ; else -1 the provider is not active or bad call
  1. ; else -2 if no current person class.
  1. ;
  1. S:VISITDT="" VISITDT=DT
  1. Q:VISITDT<1800000 -1
  1. Q:'$D(^VA(200,+PROVIDER,0)) -1
  1. ;
  1. N PXACTIVE
  1. S PXACTIVE=$P(^VA(200,PROVIDER,0),"^",11)
  1. I PXACTIVE'="",PXACTIVE<VISITDT Q -1
  1. Q $$GET^XUA4A72(PROVIDER,$P(VISITDT,"."))
  1. ;