source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAPIUTL.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1014 bytes
RevLine 
[613]1PXAPIUTL ;ISL/dee - some of PCE's utilities used by PCE's API ;3/14/97
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,186**;Aug 12, 1996;Build 3
3 Q
4 ;
5SOURCE(X) ;Get IEN of data source in the PCE Data Source file
6 N DIC,Y,DLAYGO
7 S DIC="^PX(839.7,"
8 S DLAYGO=839.7
9 S DIC(0)="LMNOX"
10 D ^DIC
11 Q +Y
12 ;
13TMPSOURC(X) ;Gets the IEN of the data source the builds the ^TMP("PXK" node for it
14 S ^TMP("PXK",$J,"SOR")=$$SOURCE(X)
15 Q
16 ;
17PRVCLASS(PROVIDER,VISITDT) ;See if this is a good provider
18 ;Call with a pointer to $VA(200, and a date
19 ; (if no date is passed then it defauts to DT) and returns
20 ;IEN^Occupation^specialty^sub-specialty^Effective date^expiration date
21 ; if + of the return is >0 provider is active
22 ; else -1 the provider is not active or bad call
23 ; else -2 if no current person class.
24 ;
25 S:VISITDT="" VISITDT=DT
26 Q:VISITDT<1800000 -1
27 Q:'$D(^VA(200,+PROVIDER,0)) -1
28 ;
29 N PXACTIVE
30 S PXACTIVE=$P(^VA(200,PROVIDER,0),"^",11)
31 I PXACTIVE'="",PXACTIVE<VISITDT Q -1
32 Q $$GET^XUA4A72(PROVIDER,$P(VISITDT,"."))
33 ;
Note: See TracBrowser for help on using the repository browser.