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

PXCADXPL.m

Go to the documentation of this file.
  1. PXCADXPL ;ISL/dee & LEA/Chylton - Validates & Translates data from the PCE Device Interface into a call to V POV & update Problem List ;3/14/97
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,33,115**;Aug 12, 1996
  1. Q
  1. ;
  1. ; Variables
  1. ; PXCADXPL Copy of a DIAGNOSIS/PROBLEM node of the PXCA array
  1. ; PXCAPRV Pointer to the provider (200)
  1. ; PXCANUMB Count of the number of POVs
  1. ; PXCAINDX Count of the number of Diagnoses for one provider
  1. ; PXCADIAG Flag for this entry is a Diagnosis
  1. ; PXCAPROB Flag for this entry is a Problem
  1. ; PXCACLEX IEN to Clinical Lexicon
  1. ; PXCAITEM,PXCAITM2,PXCAITM3 Temporaries for item being checked
  1. ;
  1. DXPL(PXCA,PXCABULD,PXCAERRS) ;Validation routine for POV & Problem List together
  1. I '$D(PXCA("DIAGNOSIS/PROBLEM")) Q
  1. N PXCADXPL,PXCAPRV,PXCANUMB,PXCAINDX
  1. N PXCAITEM,PXCAITM2,PXCAITM3
  1. N PXCADIAG,PXCAPROB
  1. S PXCAPRV=""
  1. S PXCANUMB=+$O(^TMP(+$G(PXCAGLB),$J,"POV",""),-1)
  1. F S PXCAPRV=$O(PXCA("DIAGNOSIS/PROBLEM",PXCAPRV)) Q:PXCAPRV']"" D
  1. . I PXCAPRV>0 D
  1. .. I '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT) S PXCA("ERROR","DIAGNOSIS/PROBLEM",PXCAPRV,0,0)="Provider is not active or valid^"_PXCAPRV
  1. .. E I PXCABULD!PXCAERRS D ANOTHPRV^PXCAPRV(PXCAPRV)
  1. . S PXCAINDX=0
  1. . F S PXCAINDX=$O(PXCA("DIAGNOSIS/PROBLEM",PXCAPRV,PXCAINDX)) Q:PXCAINDX']"" D
  1. .. S PXCADXPL=$G(PXCA("DIAGNOSIS/PROBLEM",PXCAPRV,PXCAINDX))
  1. .. S PXCANUMB=PXCANUMB+1
  1. .. S PXCADNUM(PXCAPRV,PXCAINDX)=PXCANUMB
  1. .. I PXCADXPL="" S PXCA("ERROR","DIAGNOSIS/PROBLEM",PXCAPRV,PXCAINDX,0)="DIAGNOSIS/PROBLEM data missing" Q
  1. .. ;
  1. .. D PART1^PXCADXP1 ;Pieces 1 through 5 and the NOTE
  1. .. D PART2^PXCADXP2 ;Pieces 6 through 16
  1. .. ;
  1. .. ;What is it? I do not know.
  1. .. I '(PXCADIAG!PXCAPROB) S PXCA("ERROR","DIAGNOSIS/PROBLEM",PXCAPRV,PXCAINDX,0)="DIAGNOSIS/PROBLEM is not used as a Diagnosis or as a Problem"
  1. .. ;
  1. .. ;Translate data for POV
  1. .. I PXCADIAG&PXCABULD&'$D(PXCA("ERROR","DIAGNOSIS/PROBLEM",PXCAPRV,PXCAINDX))!PXCAERRS D DX^PXCADX(PXCADXPL,PXCANUMB,PXCAPRV,PXCAERRS)
  1. Q
  1. ;