Routine: BMCHELP

BMCHELP ; IHS/PHXAO/TMJ - REFERRED CARE INFORMATION SYSTEM ;

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

EN1 ; EP - SHOW PAYOR ELIGIBILITY (SCREENMAN)

 Q:'$G(BMCDFN)

 Q:'$G(BMCRDATE)

 NEW BMCMSG,BMCI,BMCX

 S BMCI=1

 S BMCX=$$BEN^AUPNPAT(BMCDFN,"E")

 S:BMCX="" BMCX="UNKNOWN"

 S BMCMSG(BMCI)="CLASSIFICATION/BENEFICIARY IS: "_BMCX,BMCI=+BMCI+1

 S BMCX=$$ELIGSTAT^AUPNPAT(BMCDFN,"E")

 S:BMCX="" BMCX="UNKNOWN"

 S BMCMSG(BMCI)="ELIGIBILITY STATUS IS: "_BMCX,BMCI=+BMCI+1

 NEW BMCELG

 S BMCELG=BMCI

 I $$MCR^AUPNPAT(BMCDFN,BMCRDATE) S BMCMSG(BMCI)="PATIENT HAS MEDICARE",BMCI=BMCI+1

 I $$MCD^AUPNPAT(BMCDFN,BMCRDATE) S BMCMSG(BMCI)="PATIENT HAS MEDICAID",BMCI=BMCI+1

 I $$PI^AUPNPAT(BMCDFN,BMCRDATE) S BMCMSG(BMCI)="PATIENT HAS PRIVATE INSURANCE",BMCI=BMCI+1

 I BMCELG=BMCI S BMCMSG(BMCI)="NO THIRD PARTY COVERAGE RECORDED",BMC=BMCI+1

 NEW J,R S J=$O(^AUPNPAT(BMCDFN,13,0)) S R(1)=$S(J:^(J,0),1:"") S J=$O(^AUPNPAT(BMCDFN,13,J)) S R(2)=$S(J:^(J,0),1:"") S:$O(^AUPNPAT(BMCDFN,13,J)) R(2)=R(2)_" [more]"

 I R(1)]"" S BMCMSG(BMCI)=R(1),BMCI=BMCI+1

 I R(2)]"" S BMCMSG(BMCI)=R(2),BMCI=BMCI+1

 D HLP^DDSUTL(.BMCMSG)

EN2 ; EP - POSSIBLE 3RD PARTY LIABILITY MESSAGE (SCREENMAN)

 NEW BMCMSG

 S BMCMSG(1)="You are entering a diagnosis that indicates this claim may involve third party"

 S BMCMSG(2)="liability.  You may want to investigate this possibility in order to recover"

 S BMCMSG(3)="costs."

 D HLP^DDSUTL(.BMCMSG)

 D HLP^DDSUTL("$$EOP")

EN3 ; EP - chs warning if no chs eligibility

 NEW BMCMSG

 S BMCMSG(1)="WARNING:  Patient Registration indicates that this patient is NOT ELIGIBLE"

 S BMCMSG(2)="          for CHS care."

 D HLP^DDSUTL(.BMCMSG)

 D HLP^DDSUTL("$$EOP")

PRIORITY ;EP executable help from priority field in rcis referral

 NEW BMCMSG,J,K,T

 I '$O(^BMCPARM(DUZ(2),1,0)) D  I 1

 .S T="TEXTDEF"

 .F J=1:1 S K=$T(@T+J),K=$P(K,";;",2) Q:K="END"!(K="")  S BMCMSG(J)=K

.Q

 E  D

 .S J=0 F  S J=$O(^BMCPARM(DUZ(2),1,J)) Q:J'=+J  S BMCMSG(J)=^BMCPARM(DUZ(2),1,J,0)

.Q

 D EN^DDIOL(.BMCMSG)

SETDEF ;set default message into BMCMSG

SETMSG ;set site configured help prompt in BMCMSG

TEXTDEF ;default ihs standard help text for priority

 ;;1 - LEVEL I.  EMERGENT/ACUTELY URGENT CARE SERVICES

 ;; DEFINITION: Diagnostic/therapeutic services that are necessary to prevent the

 ;; immediate death/serious impairment of the health of the individual, and if

 ;; left untreated, would result in uncertain but potientially grave outcomes.

 ;;2 - LEVEL II. PREVENTIVE CARE SERVICES

 ;; DEFINITION: Primary health care that is aimed at the prevention of

 ;; disease/disability such as, non-urgent preventive ambulatory care, screening

 ;; for known disease entities, and public health intervention, etc.

 ;;3 - LEVEL III. PRIMARY AND SECONDARY CARE SERVICES

 ;; DEFINITION: Inpatient and outpatient care services that involve the treatment

 ;; of prevalent illnesses/conditions that have a significant impact on mordidity

 ;; and mortality.

 ;;4 - LEVEL IV. CHRONIC TERTIARY AND EXTENDED CARE SERVICES

 ;; DEFINITION: Inpatient and outpatient care services that (1) are not

 ;; essential for initial/emergent diagnosis/therapy, (2) have less impact on

 ;; mortality that morbidity, or (3) are high cost, elective, and often require

 ;; tertiary care facilities.

 ;;5 - LEVEL V. EXCLUDED SERVICES

 ;; DEFINITION: Services and procedures that are considered purely cosmetic in

 ;; nature, experimental or investigational, or have no proven medical benefit.

;;

 ;;END

BMCHELP   ; IHS/PHXAO/TMJ - REFERRED CARE INFORMATION SYSTEM ;

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;

EN1       ; EP - SHOW PAYOR ELIGIBILITY (SCREENMAN)

 +1        IF '$GET(BMCDFN)

               QUIT

 +2        IF '$GET(BMCRDATE)

               QUIT

 +3        NEW BMCMSG,BMCI,BMCX

 +4        SET BMCI=1

 +5        SET BMCX=$$BEN^AUPNPAT(BMCDFN,"E")

 +6        IF BMCX=""

               SET BMCX="UNKNOWN"

 +7        SET BMCMSG(BMCI)="CLASSIFICATION/BENEFICIARY IS: "_BMCX

           SET BMCI=+BMCI+1

 +8        SET BMCX=$$ELIGSTAT^AUPNPAT(BMCDFN,"E")

 +9        IF BMCX=""

               SET BMCX="UNKNOWN"

 +10       SET BMCMSG(BMCI)="ELIGIBILITY STATUS IS: "_BMCX

           SET BMCI=+BMCI+1

 +11       NEW BMCELG

 +12       SET BMCELG=BMCI

 +13       IF $$MCR^AUPNPAT(BMCDFN,BMCRDATE)

               SET BMCMSG(BMCI)="PATIENT HAS MEDICARE"

               SET BMCI=BMCI+1

 +14       IF $$MCD^AUPNPAT(BMCDFN,BMCRDATE)

               SET BMCMSG(BMCI)="PATIENT HAS MEDICAID"

               SET BMCI=BMCI+1

 +15       IF $$PI^AUPNPAT(BMCDFN,BMCRDATE)

               SET BMCMSG(BMCI)="PATIENT HAS PRIVATE INSURANCE"

               SET BMCI=BMCI+1

 +16       IF BMCELG=BMCI

               SET BMCMSG(BMCI)="NO THIRD PARTY COVERAGE RECORDED"

               SET BMC=BMCI+1

 +17       NEW J,R

           SET J=$ORDER(^AUPNPAT(BMCDFN,13,0))

           SET R(1)=$SELECT(J:^(J,0),1:"")

           SET J=$ORDER(^AUPNPAT(BMCDFN,13,J))

           SET R(2)=$SELECT(J:^(J,0),1:"")

           IF $ORDER(^AUPNPAT(BMCDFN,13,J))

               SET R(2)=R(2)_" [more]"

 +18       IF R(1)]""

               SET BMCMSG(BMCI)=R(1)

               SET BMCI=BMCI+1

 +19       IF R(2)]""

               SET BMCMSG(BMCI)=R(2)

               SET BMCI=BMCI+1

 +20       DO HLP^DDSUTL(.BMCMSG)

 +21       QUIT

 +22      ;

EN2       ; EP - POSSIBLE 3RD PARTY LIABILITY MESSAGE (SCREENMAN)

 +1        NEW BMCMSG

 +2        SET BMCMSG(1)="You are entering a diagnosis that indicates this claim may involve third party"

 +3        SET BMCMSG(2)="liability.  You may want to investigate this possibility in order to recover"

 +4        SET BMCMSG(3)="costs."

 +5        DO HLP^DDSUTL(.BMCMSG)

 +6        DO HLP^DDSUTL("$$EOP")

 +7        QUIT

EN3       ; EP - chs warning if no chs eligibility

 +1        NEW BMCMSG

 +2        SET BMCMSG(1)="WARNING:  Patient Registration indicates that this patient is NOT ELIGIBLE"

 +3        SET BMCMSG(2)="          for CHS care."

 +4        DO HLP^DDSUTL(.BMCMSG)

 +5        DO HLP^DDSUTL("$$EOP")

 +6        QUIT

PRIORITY  ;EP executable help from priority field in rcis referral

 +1        NEW BMCMSG,J,K,T

 +2        IF '$ORDER(^BMCPARM(DUZ(2),1,0))

               Begin DoDot:1

 +3                SET T="TEXTDEF"

 +4                FOR J=1:1

                       SET K=$TEXT(@T+J)

                       SET K=$PIECE(K,";;",2)

                       IF K="END"!(K="")

                           QUIT

                       SET BMCMSG(J)=K

 +5                QUIT

               End DoDot:1

               IF 1

 +6       IF '$TEST

               Begin DoDot:1

 +7                SET J=0

FOR

                       SET J=$ORDER(^BMCPARM(DUZ(2),1,J))

                       IF J'=+J

                           QUIT

                       SET BMCMSG(J)=^BMCPARM(DUZ(2),1,J,0)

 +8                QUIT

               End DoDot:1

 +9        DO EN^DDIOL(.BMCMSG)

 +10       QUIT

SETDEF    ;set default message into BMCMSG

SETMSG    ;set site configured help prompt in BMCMSG

 +1        QUIT

TEXTDEF   ;default ihs standard help text for priority

 +1       ;;1 - LEVEL I.  EMERGENT/ACUTELY URGENT CARE SERVICES

 +2       ;; DEFINITION: Diagnostic/therapeutic services that are necessary to prevent the

 +3       ;; immediate death/serious impairment of the health of the individual, and if

 +4       ;; left untreated, would result in uncertain but potientially grave outcomes.

 +5       ;;2 - LEVEL II. PREVENTIVE CARE SERVICES

 +6       ;; DEFINITION: Primary health care that is aimed at the prevention of

 +7       ;; disease/disability such as, non-urgent preventive ambulatory care, screening

 +8       ;; for known disease entities, and public health intervention, etc.

 +9       ;;3 - LEVEL III. PRIMARY AND SECONDARY CARE SERVICES

 +10      ;; DEFINITION: Inpatient and outpatient care services that involve the treatment

 +11      ;; of prevalent illnesses/conditions that have a significant impact on mordidity

 +12      ;; and mortality.

 +13      ;;4 - LEVEL IV. CHRONIC TERTIARY AND EXTENDED CARE SERVICES

 +14      ;; DEFINITION: Inpatient and outpatient care services that (1) are not

 +15      ;; essential for initial/emergent diagnosis/therapy, (2) have less impact on

 +16      ;; mortality that morbidity, or (3) are high cost, elective, and often require

 +17      ;; tertiary care facilities.

 +18      ;;5 - LEVEL V. EXCLUDED SERVICES

 +19      ;; DEFINITION: Services and procedures that are considered purely cosmetic in

 +20      ;; nature, experimental or investigational, or have no proven medical benefit.

 +21      ;;

 +22      ;;END

BMCHELP.m