| 1 | BPSSCRCU ;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 | ;
|
|---|
| 6 | CU ;
|
|---|
| 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
|
|---|
| 24 | SELINSUR() ;
|
|---|
| 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 | ;
|
|---|
