source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAIPOVV.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PXAIPOVV ;ISL/JVS - VALADATE DIAGNOSIS ;6/6/96 07:40
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**121**;Aug 12, 1996
3 ;
4VAL ;--VALIDATE ENOUGH DATA
5 ;----Missing a pointer to PROCEDURE(CPT) name
6 I $G(PXAA("DIAGNOSIS"))']"" D Q:$G(STOP)
7 .S STOP=1 ;--USED TO STOP DO LOOP
8 .S PXAERRF=1 ;--FLAG INDICATES THERE IS AN ERR
9 .S PXADI("DIALOG")=8390001.001
10 .S PXAERR(9)="DIAGNOSIS"
11 .S PXAERR(11)=$G(PXAA("DIAGNOSIS"))
12 .S PXAERR(12)="You are missing a pointer to the DIAGNOSIS FILE#80 that represents the diagnosises name"
13 ;
14 ;----NOT a pointer to PROCEDURE CPT FILE#80
15 I '$D(^ICD9($G(PXAA("DIAGNOSIS")),0)),$G(PXAA("DELETE"))'=1 D Q:$G(STOP)
16 .S STOP=1
17 .S PXAERRF=1
18 .S PXADI("DIALOG")=8390001.001
19 .S PXAERR(9)="DIAGNOSIS"
20 .S PXAERR(11)=$G(PXAA("DIAGNOSIS"))
21 .S PXAERR(12)=PXAERR(11)_" is NOT a pointer value to the CPT FILE #80"
22 ;
23 ;----not a valid ICD9 code
24 I $P($$ICDDX^ICDCODE(PXAA("DIAGNOSIS"),+^AUPNVSIT(PXAVISIT,0)),"^",10)'=1 D Q:$G(STOP)
25 .S STOP=1
26 .S PXAERRF=1
27 .S PXADI("DIALOG")=8390001.001
28 .S PXAERR(9)="DIAGNOSIS"
29 .S PXAERR(11)=$G(PXAA("DIAGNOSIS"))
30 .S PXAERR(12)=PXAERR(11)_" is NOT an valid ICD9 code"
31 ;
32 ;
33 Q
Note: See TracBrowser for help on using the repository browser.