| [613] | 1 | PXCASOR ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for the Source ;6/20/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | Q
|
|---|
| 4 | ; Variables
|
|---|
| 5 | ; PXCASOR Copy of the source node of the PXCA array
|
|---|
| 6 | ;
|
|---|
| 7 | SOR(PXCASOR) ;
|
|---|
| 8 | S ^TMP(PXCAGLB,$J,"SOR")=$P(PXCASOR,"^",1)
|
|---|
| 9 | S PXKDUZ=$P(PXCASOR,"^",2)
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | SOURCE(PXCA,PXCABULD,PXCAERRS) ;
|
|---|
| 13 | I '($D(PXCA("SOURCE"))#2) S PXCA("ERROR","SOURCE",0,0,0)="SOURCE node of the local data array is missing" Q
|
|---|
| 14 | N PXCASOR,PXCAITEM
|
|---|
| 15 | S PXCASOR=$G(PXCA("SOURCE"))
|
|---|
| 16 | I PXCASOR="" S PXCA("ERROR","SOURCE",0,0,0)="SOURCE data missing" Q
|
|---|
| 17 | S PXCAITEM=+$P(PXCASOR,"^",1)
|
|---|
| 18 | I 'PXCAITEM S PXCA("ERROR","SOURCE",0,0,1)="Data Sourec is Missing^"_PXCAITEM
|
|---|
| 19 | E I '$D(^PX(839.7,PXCAITEM,0)) S PXCA("ERROR","SOURCE",0,0,1)="Data Sourec is not in File 839.7^"_PXCAITEM
|
|---|
| 20 | S PXCAITEM=+$P(PXCASOR,"^",2)
|
|---|
| 21 | I '$D(^VA(200,PXCAITEM,0)) S PXCA("ERROR","SOURCE",0,0,2)="User is not in File 200^"_PXCAITEM
|
|---|
| 22 | I PXCABULD&'$D(PXCA("ERROR","SOURCE"))!PXCAERRS D SOR(PXCASOR)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
