AGEROVR.m

AGEROVR ; IHS/SD/TPF - ERROR CHECKING OVERRIDES  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 ;THESE FUNCTIONS ARE CALLED FROM OVERRIDE^AGEDERR TO DETERMINE WHETHER A

 ;PARTICULAR ERROR CHECK SHOULD BE PERFORMED OR NOT.

 ;THE ACTUAL CALL IS DETERMINED BY THE ENTRY IN THE 'ERROR CHECK OVERRIDE' FIELD

 ;IN THE 'AG PATIENT REGISTARTION ERROR CODES' FILE

 ;EXAMPLE

 ;

 ;ALL FUNCTIONS SHOULD RETURN TRUE IF ERROR CHECK IS NOT TO BE PERFORMED

 ;0 IF THE ERROR CHECK IS TO BE PERFORMED

 ;

20(ERROR,RECORD) ;EP - PLAN NAME TYPE CHECK OVERRIDE

 Q:$P(RECORD,U,2)="" 0

 Q:'$$ISMCD^AGEDERR2($P(RECORD,U,2)) 1

 Q:$P($G(^AUTNINS($P(RECORD,U,2),2)),U,16)="Y" 0  ;YES MEANS REQUIRED

 Q 1

 ;

27(ERROR,RECORD) ;EP - PLAN NAME TYPE CHECK OVERRIDE

 Q:$P(RECORD,U,2)="" 0

 Q:'$$ISMCD^AGEDERR2($P(RECORD,U,2)) 1

 Q:$P($G(^AUTNINS($P(RECORD,U,2),2)),U,16)="Y" 0  ;YES MEANS REQUIRED

 Q 1

 ;

30(ERROR,RECORD) ;EP - COVERAGE TYPE CHECK OVERRIDE

 Q:$P(RECORD,U,2)="" 0

 Q:'$$ISMCD^AGEDERR2($P(RECORD,U,2)) 1

 Q:$P($G(^AUTNINS($P(RECORD,U,2),2)),U,14)="Y" 0  ;YES MEANS REQUIRED

 Q 1

 ;

 ;RATE CODE CHECK OVERRIDE

31(ERROR,RECORD) ;EP - RATE CODE CHECK OVERRIDE

 Q:$P(RECORD,U,2)="" 0

 Q:'$$ISMCD^AGEDERR2($P(RECORD,U,2)) 1

 Q:$P($G(^AUTNINS($P(RECORD,U,2),2)),U,15)="Y" 0  ;YES MEANS REQUIRED

 Q 1

AGEROVR   ; IHS/SD/TPF - ERROR CHECKING OVERRIDES  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3       ;THESE FUNCTIONS ARE CALLED FROM OVERRIDE^AGEDERR TO DETERMINE WHETHER A

 +4       ;PARTICULAR ERROR CHECK SHOULD BE PERFORMED OR NOT.

 +5       ;THE ACTUAL CALL IS DETERMINED BY THE ENTRY IN THE 'ERROR CHECK OVERRIDE' FIELD

 +6       ;IN THE 'AG PATIENT REGISTARTION ERROR CODES' FILE

 +7       ;EXAMPLE

 +8       ;

 +9       ;ALL FUNCTIONS SHOULD RETURN TRUE IF ERROR CHECK IS NOT TO BE PERFORMED

 +10      ;0 IF THE ERROR CHECK IS TO BE PERFORMED

 +11      ;

20(ERROR,RECORD) ;EP - PLAN NAME TYPE CHECK OVERRIDE

 +1        IF $PIECE(RECORD,U,2)=""

               QUIT 0

 +2        IF '$$ISMCD^AGEDERR2($PIECE(RECORD,U,2))

               QUIT 1

 +3       ;YES MEANS REQUIRED

           IF $PIECE($GET(^AUTNINS($PIECE(RECORD,U,2),2)),U,16)="Y"

               QUIT 0

 +4        QUIT 1

 +5       ;

27(ERROR,RECORD) ;EP - PLAN NAME TYPE CHECK OVERRIDE

 +1        IF $PIECE(RECORD,U,2)=""

               QUIT 0

 +2        IF '$$ISMCD^AGEDERR2($PIECE(RECORD,U,2))

               QUIT 1

 +3       ;YES MEANS REQUIRED

           IF $PIECE($GET(^AUTNINS($PIECE(RECORD,U,2),2)),U,16)="Y"

               QUIT 0

 +4        QUIT 1

 +5       ;

30(ERROR,RECORD) ;EP - COVERAGE TYPE CHECK OVERRIDE

 +1        IF $PIECE(RECORD,U,2)=""

               QUIT 0

 +2        IF '$$ISMCD^AGEDERR2($PIECE(RECORD,U,2))

               QUIT 1

 +3       ;YES MEANS REQUIRED

           IF $PIECE($GET(^AUTNINS($PIECE(RECORD,U,2),2)),U,14)="Y"

               QUIT 0

 +4        QUIT 1

 +5       ;

 +6       ;RATE CODE CHECK OVERRIDE

31(ERROR,RECORD) ;EP - RATE CODE CHECK OVERRIDE

 +1        IF $PIECE(RECORD,U,2)=""

               QUIT 0

 +2        IF '$$ISMCD^AGEDERR2($PIECE(RECORD,U,2))

               QUIT 1

 +3       ;YES MEANS REQUIRED

           IF $PIECE($GET(^AUTNINS($PIECE(RECORD,U,2),2)),U,15)="Y"

               QUIT 0

 +4        QUIT 1