SCDXUTL3.m

SCDXUTL3 ;ALB/JRP - ACRP ERROR CODE UTILITIES;08-OCT-1996

 ;;5.3;Scheduling;**68,1015**;AUG 13, 1993;Build 21

DEMOCODE(PTRCODE) ;Determine if NPCDB error code is related to a

 ; patient's demographic data or if it is related to the encounter data

 ;

 ;Input  : PTRCODE - Pointer to entry in TRANSMITTED OUTPATIENT

 ;                   ENCOUNTER ERROR CODE file (#409.76)

 ;Output : 1 - Error is related to patient's demographic data

 ;         0 - Error is related to the encounter data

 ;         0 - Bad input

 ;

 ;Check input

 S PTRCODE=+$G(PTRCODE)

 Q:('$D(^SD(409.76,PTRCODE,0))) 0

 ;Declare variables

 N ERRCODE,TMP,DEMOCODE,DEMOGRP

 ;Convert pointer to error code

 S ERRCODE=$P($G(^SD(409.76,PTRCODE,0)),"^",1)

 Q:(ERRCODE="") 0

 ;Establish series of codes that relate to patient demographic data

 F TMP=200,300,400,700,800,"000","B00","C00" S DEMOGRP(TMP)=1

 ;Convert error code to it's series range and determine if that range

 ;relates to patient demographic data

 S TMP=$E(ERRCODE,1)_"00"

 S DEMOCODE=+$G(DEMOGRP(TMP))

 ;Done

 Q DEMOCODE

 ;

DEMOERR(PTRERR) ;Determine if error is related to a patient's demographic

 ; data or if it is related to the encounter data

 ;

 ;Input  : PTRERR - Pointer to entry in TRANSMITTED OUTPATIENT

 ;                  ENCOUNTER ERROR file (#409.75)

 ;Output : 1 - Error is related to patient's demographic data

 ;         0 - Error is related to the encounter data

 ;         0 - Bad input

 ;

 ;Check input

 S PTRERR=+$G(PTRERR)

 Q:('$D(^SD(409.75,PTRERR,0))) 0

 ;Declare variables

 N PTRCODE,NODE

 ;Get pointer to TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file

 S NODE=$G(^SD(409.75,PTRERR,0))

 S PTRCODE=+$P(NODE,"^",2)

 ;Return whether or not error code is related to demographic data

 Q $$DEMOCODE(PTRCODE)

 ;

REJ4DEMO(XMITPTR) ;Determine if encounter was rejected due to a

 ; demographic error

 ;

 ;Input  : XMITPTR - Pointer to TRANSMITTED OUTPATIENT ENCOUNTER

 ;                   file (#409.73)

 ;Output : 1 - At least one of the error codes listed for the

 ;             encounter is related to the patient's demographic data

 ;         0 - None of the error codes listed for the encounter are

 ;             related to the patient's demographic data

 ;         0 - Bad input/no error codes listed

 ;

 ;Check input

 S XMITPTR=+$G(XMITPTR)

 Q:('$D(^SD(409.73,XMITPTR,0))) 0

 ;Declare variables

 N PTRERR,PTRCODE,NODE,REJ4DEMO

 S REJ4DEMO=0

 ;Loop through TRANSMITTED OUTPATIENT ENCOUNTER ERROR file (#409.75)

 S PTRERR=""

 F  S PTRERR=+$O(^SD(409.75,"B",XMITPTR,PTRERR)) Q:('PTRERR)  D  Q:(REJ4DEMO)

 .;Get pointer to error code

 .S NODE=$G(^SD(409.75,PTRERR,0))

 .S PTRCODE=+$P(NODE,"^",2)

 .Q:('PTRCODE)

 .;Determine if code is based on demographic data

 .S REJ4DEMO=+$$DEMOCODE(PTRCODE)

 ;Done

 Q REJ4DEMO

SCDXUTL3  ;ALB/JRP - ACRP ERROR CODE UTILITIES;08-OCT-1996

 +1       ;;5.3;Scheduling;**68,1015**;AUG 13, 1993;Build 21

DEMOCODE(PTRCODE) ;Determine if NPCDB error code is related to a

 +1       ; patient's demographic data or if it is related to the encounter data

 +2       ;

 +3       ;Input  : PTRCODE - Pointer to entry in TRANSMITTED OUTPATIENT

 +4       ;                   ENCOUNTER ERROR CODE file (#409.76)

 +5       ;Output : 1 - Error is related to patient's demographic data

 +6       ;         0 - Error is related to the encounter data

 +7       ;         0 - Bad input

 +8       ;

 +9       ;Check input

 +10       SET PTRCODE=+$GET(PTRCODE)

 +11       IF ('$DATA(^SD(409.76,PTRCODE,0)))

               QUIT 0

 +12      ;Declare variables

 +13       NEW ERRCODE,TMP,DEMOCODE,DEMOGRP

 +14      ;Convert pointer to error code

 +15       SET ERRCODE=$PIECE($GET(^SD(409.76,PTRCODE,0)),"^",1)

 +16       IF (ERRCODE="")

               QUIT 0

 +17      ;Establish series of codes that relate to patient demographic data

 +18       FOR TMP=200,300,400,700,800,"000","B00","C00"

               SET DEMOGRP(TMP)=1

 +19      ;Convert error code to it's series range and determine if that range

 +20      ;relates to patient demographic data

 +21       SET TMP=$EXTRACT(ERRCODE,1)_"00"

 +22       SET DEMOCODE=+$GET(DEMOGRP(TMP))

 +23      ;Done

 +24       QUIT DEMOCODE

 +25      ;

DEMOERR(PTRERR) ;Determine if error is related to a patient's demographic

 +1       ; data or if it is related to the encounter data

 +2       ;

 +3       ;Input  : PTRERR - Pointer to entry in TRANSMITTED OUTPATIENT

 +4       ;                  ENCOUNTER ERROR file (#409.75)

 +5       ;Output : 1 - Error is related to patient's demographic data

 +6       ;         0 - Error is related to the encounter data

 +7       ;         0 - Bad input

 +8       ;

 +9       ;Check input

 +10       SET PTRERR=+$GET(PTRERR)

 +11       IF ('$DATA(^SD(409.75,PTRERR,0)))

               QUIT 0

 +12      ;Declare variables

 +13       NEW PTRCODE,NODE

 +14      ;Get pointer to TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file

 +15       SET NODE=$GET(^SD(409.75,PTRERR,0))

 +16       SET PTRCODE=+$PIECE(NODE,"^",2)

 +17      ;Return whether or not error code is related to demographic data

 +18       QUIT $$DEMOCODE(PTRCODE)

 +19      ;

REJ4DEMO(XMITPTR) ;Determine if encounter was rejected due to a

 +1       ; demographic error

 +2       ;

 +3       ;Input  : XMITPTR - Pointer to TRANSMITTED OUTPATIENT ENCOUNTER

 +4       ;                   file (#409.73)

 +5       ;Output : 1 - At least one of the error codes listed for the

 +6       ;             encounter is related to the patient's demographic data

 +7       ;         0 - None of the error codes listed for the encounter are

 +8       ;             related to the patient's demographic data

 +9       ;         0 - Bad input/no error codes listed

 +10      ;

 +11      ;Check input

 +12       SET XMITPTR=+$GET(XMITPTR)

 +13       IF ('$DATA(^SD(409.73,XMITPTR,0)))

               QUIT 0

 +14      ;Declare variables

 +15       NEW PTRERR,PTRCODE,NODE,REJ4DEMO

 +16       SET REJ4DEMO=0

 +17      ;Loop through TRANSMITTED OUTPATIENT ENCOUNTER ERROR file (#409.75)

 +18       SET PTRERR=""

 +19       FOR 

               SET PTRERR=+$ORDER(^SD(409.75,"B",XMITPTR,PTRERR))

               IF ('PTRERR)

                   QUIT 

               Begin DoDot:1

 +20      ;Get pointer to error code

 +21               SET NODE=$GET(^SD(409.75,PTRERR,0))

 +22               SET PTRCODE=+$PIECE(NODE,"^",2)

 +23               IF ('PTRCODE)

                       QUIT 

 +24      ;Determine if code is based on demographic data

 +25               SET REJ4DEMO=+$$DEMOCODE(PTRCODE)

               End DoDot:1

               IF (REJ4DEMO)

                   QUIT 

 +26      ;Done

 +27       QUIT REJ4DEMO