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