| 1 | BPSSCR ;BHAM ISC/SS - ECME USER SCREEN MAIN ;10-MAR-2005
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
|
|---|
| 3 | ;; Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;USER SCREEN
|
|---|
| 5 | Q
|
|---|
| 6 | EN ; -- main entry point for BPS ECME USER SCREEN
|
|---|
| 7 | D EN^VALM("BPS LSTMN ECME USRSCR")
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | HDR ; -- header code
|
|---|
| 11 | S VALMHDR(1)=$$HDR^BPSSCR01(1)
|
|---|
| 12 | S VALMHDR(2)=$$HDR^BPSSCR01(2)
|
|---|
| 13 | S VALMHDR(3)=$$HDR^BPSSCR01(3)
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | INIT ; -- init variables and list array
|
|---|
| 17 | D KILINSGL ;clean up insurance list
|
|---|
| 18 | W !,"Please wait..."
|
|---|
| 19 | S VALMCNT=$$INIT^BPSSCR01()
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | HELP ; -- help code
|
|---|
| 23 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT ; -- exit code
|
|---|
| 27 | D CLEANUP
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | EXPND ; -- expand code
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | CLEANUP ;
|
|---|
| 34 | K @VALMAR
|
|---|
| 35 | D KILINSGL ;clean up insurance list
|
|---|
| 36 | Q
|
|---|
| 37 | ; BPINSNAM - insurance name; BPPHONE - insurance phone number
|
|---|
| 38 | CHKINSUR(BPINSNAM,BPPHONE) ; returns a unique number for insurance (among those found in claims)
|
|---|
| 39 | N BPINSID,BPMAXN
|
|---|
| 40 | I $L(BPINSNAM)=0 S BPINSNAM="UNKNOWN"
|
|---|
| 41 | I $L(BPPHONE)=0 S BPPHONE="N/A"
|
|---|
| 42 | S BPINSID=+$G(^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE))
|
|---|
| 43 | I BPINSID=0 D
|
|---|
| 44 | . S BPMAXN=$G(^TMP($J,"BPSSCRINS","MAXN"))+1
|
|---|
| 45 | . S ^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE)=BPMAXN
|
|---|
| 46 | . S ^TMP($J,"BPSSCRINS","MAXN")=BPMAXN
|
|---|
| 47 | Q +$G(^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE))
|
|---|
| 48 | ;
|
|---|
| 49 | KILINSGL ;
|
|---|
| 50 | K ^TMP($J,"BPSSCRINS")
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
