|
Last change
on this file since 1608 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
967 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
