Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Rev | Line | |
---|
[628] | 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.