Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1014 bytes
|
Rev | Line | |
---|
[613] | 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.