Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
967 bytes
|
Line | |
---|
1 | BPSSCRPR ;BHAM ISC/SS - ECME SCREEN PRINT ;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 | ;
|
---|
7 | ;/**
|
---|
8 | ;FLDNO - field # in PARAMETER file to store prescription for the User Screen
|
---|
9 | ;RECIEN - user ID
|
---|
10 | ;PRMTMSG - user prompt
|
---|
11 | ;DFLTVAL - pass the default value for the case if there is no value in database
|
---|
12 | ;BPARRAY - array to store and change values in profile
|
---|
13 | ;returns:
|
---|
14 | ;as return value:
|
---|
15 | ; "1^value" - if selected
|
---|
16 | ; "-1" if timeout or uparrow
|
---|
17 | ;via BPARRAY
|
---|
18 | ; BPARRAY(FLDNO)=value
|
---|
19 | EDITRX(FLDNO,RECIEN,PRMTMSG,DFLTVAL,BPARRAY) ;*/
|
---|
20 | N DIR,RETV,RETARR
|
---|
21 | N RECIENS,FDA,LCK,ERRARR
|
---|
22 | S RETV=$$GETPARAM^BPSSCRSL(FLDNO,RECIEN)
|
---|
23 | ;if data then use it, otherwise use data from parameter
|
---|
24 | I $L($G(RETV))>0 S DFLTVAL=RETV E S DFLTVAL=$G(DFLTVAL)
|
---|
25 | ;prompt the user
|
---|
26 | S RETV=$$PROMPTRX^BPSUTIL1(PRMTMSG,DFLTVAL)
|
---|
27 | Q:RETV<0 -1
|
---|
28 | ;save it in the database
|
---|
29 | S BPARRAY(FLDNO)=RETV
|
---|
30 | Q "1^"_RETV
|
---|
31 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.