PXAIPOVV.m

PXAIPOVV ;ISL/JVS - VALADATE DIAGNOSIS ;6/6/96  07:40

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 ;

VAL ;--VALIDATE ENOUGH DATA

 ;----Missing a pointer to PROCEDURE(CPT) name

 I $G(PXAA("DIAGNOSIS"))']"" D  Q:$G(STOP)

 .S STOP=1 ;--USED TO STOP DO LOOP

 .S PXAERRF=1 ;--FLAG INDICATES THERE IS AN ERR

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="DIAGNOSIS"

 .S PXAERR(11)=$G(PXAA("DIAGNOSIS"))

 .S PXAERR(12)="You are missing a pointer to the DIAGNOSIS FILE#80 that represents the diagnosises name"

 ;

 ;----NOT a pointer to PROCEDURE CPT FILE#80

 I '$D(^ICD9($G(PXAA("DIAGNOSIS")),0)),$G(PXAA("DELETE"))'=1 D  Q:$G(STOP)

 .S STOP=1

 .S PXAERRF=1

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="DIAGNOSIS"

 .S PXAERR(11)=$G(PXAA("DIAGNOSIS"))

 .S PXAERR(12)=PXAERR(11)_" is NOT a pointer value to the CPT FILE #80"

 ;

 ;

 Q

PXAIPOVV  ;ISL/JVS - VALADATE DIAGNOSIS ;6/6/96  07:40

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;

VAL       ;--VALIDATE ENOUGH DATA

 +1       ;----Missing a pointer to PROCEDURE(CPT) name

 +2        IF $GET(PXAA("DIAGNOSIS"))']""

               Begin DoDot:1

 +3       ;--USED TO STOP DO LOOP

                   SET STOP=1

 +4       ;--FLAG INDICATES THERE IS AN ERR

                   SET PXAERRF=1

 +5                SET PXADI("DIALOG")=8390001.001

 +6                SET PXAERR(9)="DIAGNOSIS"

 +7                SET PXAERR(11)=$GET(PXAA("DIAGNOSIS"))

 +8                SET PXAERR(12)="You are missing a pointer to the DIAGNOSIS FILE#80 that represents the diagnosises name"

               End DoDot:1

               IF $GET(STOP)

                   QUIT 

 +9       ;

 +10      ;----NOT a pointer to PROCEDURE CPT FILE#80

 +11       IF '$DATA(^ICD9($GET(PXAA("DIAGNOSIS")),0))

               IF $GET(PXAA("DELETE"))'=1

                   Begin DoDot:1

 +12                   SET STOP=1

 +13                   SET PXAERRF=1

 +14                   SET PXADI("DIALOG")=8390001.001

 +15                   SET PXAERR(9)="DIAGNOSIS"

 +16                   SET PXAERR(11)=$GET(PXAA("DIAGNOSIS"))

 +17                   SET PXAERR(12)=PXAERR(11)_" is NOT a pointer value to the CPT FILE #80"

                   End DoDot:1

                   IF $GET(STOP)

                       QUIT 

 +18      ;

 +19      ;

 +20       QUIT