source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCRPR.m@ 1061

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

initial load of FOIAVistA 6/30/08 version

File size: 967 bytes
Line 
1BPSSCRPR ;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
19EDITRX(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.