53 lines
1.3 KiB
Mathematica
53 lines
1.3 KiB
Mathematica
BPSSCR ;BHAM ISC/SS - ECME USER SCREEN MAIN ;10-MAR-2005
|
|
;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
|
|
;; Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;USER SCREEN
|
|
Q
|
|
EN ; -- main entry point for BPS ECME USER SCREEN
|
|
D EN^VALM("BPS LSTMN ECME USRSCR")
|
|
Q
|
|
;
|
|
HDR ; -- header code
|
|
S VALMHDR(1)=$$HDR^BPSSCR01(1)
|
|
S VALMHDR(2)=$$HDR^BPSSCR01(2)
|
|
S VALMHDR(3)=$$HDR^BPSSCR01(3)
|
|
Q
|
|
;
|
|
INIT ; -- init variables and list array
|
|
D KILINSGL ;clean up insurance list
|
|
W !,"Please wait..."
|
|
S VALMCNT=$$INIT^BPSSCR01()
|
|
Q
|
|
;
|
|
HELP ; -- help code
|
|
S X="?" D DISP^XQORM1 W !!
|
|
Q
|
|
;
|
|
EXIT ; -- exit code
|
|
D CLEANUP
|
|
Q
|
|
;
|
|
EXPND ; -- expand code
|
|
Q
|
|
;
|
|
CLEANUP ;
|
|
K @VALMAR
|
|
D KILINSGL ;clean up insurance list
|
|
Q
|
|
; BPINSNAM - insurance name; BPPHONE - insurance phone number
|
|
CHKINSUR(BPINSNAM,BPPHONE) ; returns a unique number for insurance (among those found in claims)
|
|
N BPINSID,BPMAXN
|
|
I $L(BPINSNAM)=0 S BPINSNAM="UNKNOWN"
|
|
I $L(BPPHONE)=0 S BPPHONE="N/A"
|
|
S BPINSID=+$G(^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE))
|
|
I BPINSID=0 D
|
|
. S BPMAXN=$G(^TMP($J,"BPSSCRINS","MAXN"))+1
|
|
. S ^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE)=BPMAXN
|
|
. S ^TMP($J,"BPSSCRINS","MAXN")=BPMAXN
|
|
Q +$G(^TMP($J,"BPSSCRINS","VAL",BPINSNAM,BPPHONE))
|
|
;
|
|
KILINSGL ;
|
|
K ^TMP($J,"BPSSCRINS")
|
|
Q
|
|
;
|