source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCRCU.m@ 1005

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1BPSSCRCU ;BHAM ISC/SS - ECME SCREEN CONTINUOUS UPDATE AND CHANGE VIEW ;05-APR-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 Q
5 ;
6CU ;
7 N BPKEY,BPTIME,X,Y
8 S BPTIME=15 ;update every 15 seconds
9 D RE^VALM4
10 W "Press ""Q"" to quit."
11 F D S BPKEY=$$READ^XGF(1,BPTIME) Q:(BPKEY="Q")!(BPKEY="q")
12 . D UD^BPSSCRUD
13 . D RE^VALM4
14 . N %
15 . D NOW^%DTC S Y=% X ^DD("DD")
16 . W "The screen has been updated on "_Y_". Press ""Q"" to quit."
17 Q
18 ;
19 ;select insurance from the list of the insurances which was built for the current user setting
20 ;for the User Screen.
21 ;input : none
22 ;output : 1^name of the insurance or null
23 ;0^ - if "^" or was not selected
24SELINSUR() ;
25 N DIR,Y,X
26 N BPX,BPCNT,BPTEL
27 S BPX=0,BPCNT=0
28 K ^TMP($J,"BPSSCRINS","LOOKUP")
29 F S BPX=$O(^TMP($J,"BPSSCRINS","VAL",BPX)) Q:BPX="" D
30 . S BPCNT=BPCNT+1
31 . S BPTEL=$O(^TMP($J,"BPSSCRINS","VAL",BPX,""))
32 . S ^TMP($J,"BPSSCRINS","LOOKUP",BPCNT,0)=BPX_U_BPTEL
33 . S ^TMP($J,"BPSSCRINS","LOOKUP","B",BPX,BPCNT)=""
34 S ^TMP($J,"BPSSCRINS","LOOKUP",0)=U_U_BPCNT_U_BPCNT
35 ;set DIR variables
36 S DIR(0)="P^TMP($J,""BPSSCRINS"",""LOOKUP"",:AEQMZ"
37 S DIR("A")="Select "
38 S DIR("A",1)=""
39 S DIR("A",2)="Select one of the insurances which were used by ECME to submit claims within"
40 S DIR("A",3)="the date range specified by the user."
41 S DIR("A",4)=""
42 D ^DIR
43 K ^TMP($J,"BPSSCRINS","LOOKUP")
44 I X="^" Q "-1^"
45 I $P(Y,U,2)="" Q "0^"
46 Q 1_U_$P(Y,U,2)
47 ;
Note: See TracBrowser for help on using the repository browser.