source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCR.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1BPSSCR ;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
6EN ; -- main entry point for BPS ECME USER SCREEN
7 D EN^VALM("BPS LSTMN ECME USRSCR")
8 Q
9 ;
10HDR ; -- 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 ;
16INIT ; -- init variables and list array
17 D KILINSGL ;clean up insurance list
18 W !,"Please wait..."
19 S VALMCNT=$$INIT^BPSSCR01()
20 Q
21 ;
22HELP ; -- help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ; -- exit code
27 D CLEANUP
28 Q
29 ;
30EXPND ; -- expand code
31 Q
32 ;
33CLEANUP ;
34 K @VALMAR
35 D KILINSGL ;clean up insurance list
36 Q
37 ; BPINSNAM - insurance name; BPPHONE - insurance phone number
38CHKINSUR(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 ;
49KILINSGL ;
50 K ^TMP($J,"BPSSCRINS")
51 Q
52 ;
Note: See TracBrowser for help on using the repository browser.