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

PXCAHF.m

Go to the documentation of this file.
  1. PXCAHF ;ISL/dee - Validates & Translates data from the PCE Device Interface into PCE's PXK format for Health Factors ;3/14/97
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996
  1. Q
  1. ; Variables
  1. ; PXCAHF Copy of a HEALTH FACTORS node of the PXCA array
  1. ; PXCAPRV Pointer to the provider (200)
  1. ; PXCANUMB Count of the number if HFs
  1. ; PXCAINDX Count of the number of HEALTH FACTORS for one provider
  1. ; PXCAFTER Temp used to build ^TMP(PXCAGLB,$J,"HF",PXCANUMB,0,"AFTER")
  1. ; PXCAPNAR Pointer to the provider narrative (9999999.27)
  1. ;
  1. HF(PXCAHF,PXCANUMB,PXCAPRV,PXCAERRS) ;
  1. N PXCAFTER
  1. S PXCAFTER=$P(PXCAHF,"^",1)_"^"_PXCAPAT_"^"_PXCAVSIT_"^"
  1. S PXCAFTER=PXCAFTER_$P(PXCAHF,"^",2)
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,"IEN")=""
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,0,"BEFORE")=""
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,0,"AFTER")=PXCAFTER
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,12,"BEFORE")=""
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,12,"AFTER")="^^^"_$S(PXCAPRV>0:PXCAPRV,1:"")
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,812,"BEFORE")=""
  1. S ^TMP(PXCAGLB,$J,"HF",PXCANUMB,812,"AFTER")="^"_PXCAPKG_"^"_PXCASOR
  1. Q
  1. ;
  1. HFACTORS(PXCA,PXCABULD,PXCAERRS) ;Validation routine for HF
  1. Q:'$D(PXCA("HEALTH FACTORS"))
  1. N PXCAHF,PXCAPRV,PXCANUMB,PXCAINDX
  1. N PXCAITEM
  1. S PXCAPRV=""
  1. S PXCANUMB=0
  1. F S PXCAPRV=$O(PXCA("HEALTH FACTORS",PXCAPRV)) Q:PXCAPRV']"" D
  1. . I PXCAPRV>0 D
  1. .. I '$$ACTIVPRV^PXAPI(PXCAPRV,PXCADT) S PXCA("ERROR","HEALTH FACTORS",PXCAPRV,0,0)="Provider is not active or valid^"_PXCAPRV
  1. .. E I PXCABULD!PXCAERRS D ANOTHPRV^PXCAPRV(PXCAPRV)
  1. . S PXCAINDX=""
  1. . F S PXCAINDX=$O(PXCA("HEALTH FACTORS",PXCAPRV,PXCAINDX)) Q:PXCAINDX']"" D
  1. .. S PXCAHF=$G(PXCA("HEALTH FACTORS",PXCAPRV,PXCAINDX))
  1. .. S PXCANUMB=PXCANUMB+1
  1. .. I PXCAHF="" S PXCA("ERROR","HEALTH FACTORS",PXCAPRV,PXCAINDX,0)="HEALTH FACTORS data missing" Q
  1. .. S PXCAITEM=+$P(PXCAHF,U,1)
  1. .. I $G(^AUTTHF(PXCAITEM,0))="" S PXCA("ERROR","HEALTH FACTORS",PXCAPRV,PXCAINDX,1)="HEALTH FACTORS type not in file 9999999.14^"_PXCAITEM
  1. .. S PXCAITEM=$P(PXCAHF,U,2)
  1. .. I '(PXCAITEM=""!(PXCAITEM="M")!(PXCAITEM="MO")!(PXCAITEM="H")) S PXCA("ERROR","HEALTH FACTORS",PXCAPRV,PXCAINDX,2)="HEALTH FACTORS level/severity must be M|MO|H^"_PXCAITEM
  1. .. I PXCABULD&'$D(PXCA("ERROR","HEALTH FACTORS",PXCAPRV,PXCAINDX))!PXCAERRS D HF(PXCAHF,.PXCANUMB,PXCAPRV,PXCAERRS)
  1. Q
  1. ;