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

PXCAPOV1.m

Go to the documentation of this file.
  1. PXCAPOV1 ;ISL/dee & LEA/Chylton - Validates data from the PCE Device Interface into PCE's PXK format for POV ;6/20/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
  1. Q
  1. ; Variables
  1. ; PXCADIAG Copy of a Diagnosis node of the PXCA array
  1. ; PXCAPRV Pointer to the provider (200)
  1. ; PXCANUMB Count of the number if POVs
  1. ; PXCAINDX Count of the number of Diagnosis for one provider
  1. ;
  1. PART1 ;
  1. S PXCAITEM=$P(PXCADIAG,"^",8),PXCAITM2=$L(PXCAITEM)
  1. I PXCAITM2<2!(PXCAITM2>80) S PXCA("ERROR","DIAGNOSIS",PXCAPRV,PXCAINDX,8)="Provider's DIAGNOSIS term must be 2-80 Characters^"_PXCAITEM
  1. E D
  1. . S PXCAPNAR=+$$PROVNARR^PXAPI(PXCAITEM,9000010.07,$G(PXCACLEX))
  1. . I PXCAPNAR'>0 S PXCA("ERROR","DIAGNOSIS",PXCAPRV,PXCAINDX,8)="Could not get pointer to Provider's DIAGNOSIS term^"_$P(PXCADIAG,"^",8)
  1. . E S $P(PXCADIAG,"^",8)=PXCAPNAR
  1. S PXCAITEM=$P(PXCADIAG,"^",9),PXCAITM2=$L(PXCAITEM)
  1. I PXCAITM2>0 D
  1. . I PXCAITM2<2!(PXCAITM2>80) S PXCA("ERROR","DIAGNOSIS",PXCAPRV,PXCAINDX,9)="Provider's DIAGNOSIS grouper must be 2-80 Characters^"_PXCAITEM
  1. . E D
  1. .. S PXCANARC=+$$PROVNARR^PXAPI(PXCAITEM,9000010.07)
  1. .. I PXCANARC'>0 S PXCA("ERROR","DIAGNOSIS",PXCAPRV,PXCAINDX,9)="Could not get pointer to Provider's DIAGNOSIS grouper^"_$P(PXCADIAG,"^",9)
  1. .. E S $P(PXCADIAG,"^",9)=PXCANARC
  1. ;
  1. Q
  1. ;