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)
Q
;
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")
Q
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")
Q
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)
Q
SETDEF ;set default message into BMCMSG
SETMSG ;set site configured help prompt in BMCMSG
Q
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
