Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Line | |
---|
1 | PXAIPOVV ;ISL/JVS - VALADATE DIAGNOSIS ;6/6/96 07:40
|
---|
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**121**;Aug 12, 1996
|
---|
3 | ;
|
---|
4 | VAL ;--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.