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

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

initial load of WorldVistAEHR

File size: 1016 bytes
Line 
1PXCASOR ;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 ;
7SOR(PXCASOR) ;
8 S ^TMP(PXCAGLB,$J,"SOR")=$P(PXCASOR,"^",1)
9 S PXKDUZ=$P(PXCASOR,"^",2)
10 Q
11 ;
12SOURCE(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 ;
Note: See TracBrowser for help on using the repository browser.