BQIRFCRQ.m

BQIRFCRQ ;PRXM/HC/ALA-Face Sheet Missing Required fields ; 12 Jan 2007  6:37 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

 ; Copied from AGBADATA

 ; IHS/ASDS/EFG - DISPLAY MISSING MANDATORY DATA;  

 ; 7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 Q:'$D(AG("DTOT"))

 Q:AG("DTOT")=0

 ;W $$S^AGVDF("IOF")

 D VAR

DISP ;

 W:$D(^DPT(DFN,0)) "PATIENT: ",$P(^DPT(DFN,0),U),!

 W:$D(^AUPNPAT(DFN,41,DUZ(2),0)) "CHART #: ",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2)

 W !!,"This patient does not have a complete set of mandatory data."

 W !,"The missing or invalid data fields are....",!!

 F I=1:1:13 W:$D(AG("ER",I)) !,"** ",AG(I)

 I $D(AG("ER",14)) D

 . W !,"** ",AG(14)," at: "

 . N I

 . S I=0

 . F  S I=$O(AG("ER",14,I)) Q:'I  D

 .. W $P($G(^AUTTLOC(I,0)),"^",2),!,?40

 W !!,"Copy down the information above in order to make corrections."

 W !!

 ;  took out call to READ^AG since this is a non-interactive program

 Q

VAR ;EP

 S AG(1)="invalid NAME"

 S AG(2)="invalid CHART NUMBER"

 S AG(3)="missing DATE OF BIRTH"

 S AG(4)="invalid SEX"

 S AG(5)="missing or unspecified TRIBE"

 S AG(6)="missing INDIAN QUANTUM"

 S AG(7)="missing CURRENT COMMUNITY"

 S AG(8)="missing BENEFICIARY"

 S AG(9)="invalid ELIGIBILITY &/OR CLASS/TRIBE/QUANTUM DEMOGRAPHICS"

 S AG(10)="patient not eligible for BIC"

 S AG(11)="missing SOCIAL SECURITY NUMBER"

 S AG(12)="OLD (unused) TRIBE still in use"

 S AG(13)="no Official Registering Facility:Health Record Number"

 S AG(14)="Patient has been marked INACTIVE"

 Q

BQIRFCRQ  ;PRXM/HC/ALA-Face Sheet Missing Required fields ; 12 Jan 2007  6:37 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

 +3       ; Copied from AGBADATA

 +4       ; IHS/ASDS/EFG - DISPLAY MISSING MANDATORY DATA;  

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

 +6       ;

 +7        IF '$DATA(AG("DTOT"))

               QUIT 

 +8        IF AG("DTOT")=0

               QUIT 

 +9       ;W $$S^AGVDF("IOF")

 +10       DO VAR

DISP      ;

 +1        IF $DATA(^DPT(DFN,0))

               WRITE "PATIENT: ",$PIECE(^DPT(DFN,0),U),!

 +2        IF $DATA(^AUPNPAT(DFN,41,DUZ(2),0))

               WRITE "CHART #: ",$PIECE(^AUPNPAT(DFN,41,DUZ(2),0),U,2)

 +3        WRITE !!,"This patient does not have a complete set of mandatory data."

 +4        WRITE !,"The missing or invalid data fields are....",!!

 +5        FOR I=1:1:13

               IF $DATA(AG("ER",I))

                   WRITE !,"** ",AG(I)

 +6        IF $DATA(AG("ER",14))

               Begin DoDot:1

 +7                WRITE !,"** ",AG(14)," at: "

 +8                NEW I

 +9                SET I=0

 +10               FOR 

                       SET I=$ORDER(AG("ER",14,I))

                       IF 'I

                           QUIT 

                       Begin DoDot:2

 +11                       WRITE $PIECE($GET(^AUTTLOC(I,0)),"^",2),!,?40

                       End DoDot:2

               End DoDot:1

 +12       WRITE !!,"Copy down the information above in order to make corrections."

 +13       WRITE !!

 +14      ;  took out call to READ^AG since this is a non-interactive program

 +15       QUIT 

VAR       ;EP

 +1        SET AG(1)="invalid NAME"

 +2        SET AG(2)="invalid CHART NUMBER"

 +3        SET AG(3)="missing DATE OF BIRTH"

 +4        SET AG(4)="invalid SEX"

 +5        SET AG(5)="missing or unspecified TRIBE"

 +6        SET AG(6)="missing INDIAN QUANTUM"

 +7        SET AG(7)="missing CURRENT COMMUNITY"

 +8        SET AG(8)="missing BENEFICIARY"

 +9        SET AG(9)="invalid ELIGIBILITY &/OR CLASS/TRIBE/QUANTUM DEMOGRAPHICS"

 +10       SET AG(10)="patient not eligible for BIC"

 +11       SET AG(11)="missing SOCIAL SECURITY NUMBER"

 +12       SET AG(12)="OLD (unused) TRIBE still in use"

 +13       SET AG(13)="no Official Registering Facility:Health Record Number"

 +14       SET AG(14)="Patient has been marked INACTIVE"

 +15       QUIT