|
Last change
on this file since 1407 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.1 KB
|
| Rev | Line | |
|---|
| [613] | 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.
