Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXCASOR

PXCASOR.m

Go to the documentation of this file.
  1. PXCASOR ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for the Source ;11/16/2016
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454
  1. Q
  1. ; Variables
  1. ; PXCASOR Copy of the source node of the PXCA array
  1. ;
  1. SOR(PXCASOR) ;
  1. S ^TMP(PXCAGLB,$J,"SOR")=$P(PXCASOR,"^",1)
  1. S PXKDUZ=$P(PXCASOR,"^",2)
  1. Q
  1. ;
  1. SOURCE(PXCA,PXCABULD,PXCAERRS) ;
  1. I '($D(PXCA("SOURCE"))#2) S PXCA("ERROR","SOURCE",0,0,0)="SOURCE node of the local data array is missing" Q
  1. N PXCASOR,PXCAITEM
  1. S PXCASOR=$G(PXCA("SOURCE"))
  1. I PXCASOR="" S PXCA("ERROR","SOURCE",0,0,0)="SOURCE data missing" Q
  1. S PXCAITEM=+$P(PXCASOR,"^",1)
  1. I 'PXCAITEM S PXCA("ERROR","SOURCE",0,0,1)="Data Source is Missing^"_PXCAITEM
  1. E I '$D(^PX(839.7,PXCAITEM,0)) S PXCA("ERROR","SOURCE",0,0,1)="Data Source is not in File 839.7^"_PXCAITEM
  1. S PXCAITEM=+$P(PXCASOR,"^",2)
  1. I '$D(^VA(200,PXCAITEM,0)) S PXCA("ERROR","SOURCE",0,0,2)="User is not in File 200^"_PXCAITEM
  1. I PXCABULD&'$D(PXCA("ERROR","SOURCE"))!PXCAERRS D SOR(PXCASOR)
  1. Q
  1. ;