|
Last change
on this file since 1042 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.
