Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1014 bytes
|
Line | |
---|
1 | PXAPIUTL ;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 | ;
|
---|
5 | SOURCE(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 | ;
|
---|
13 | TMPSOURC(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 | ;
|
---|
17 | PRVCLASS(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.