BPSSCRPR.m

BPSSCRPR ;BHAM ISC/SS - ECME SCREEN PRINT ;05-APR-05

 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 Q

 ;

 ;

 ;/**

 ;FLDNO - field # in PARAMETER file to store prescription for the User Screen

 ;RECIEN - user ID

 ;PRMTMSG - user prompt

 ;DFLTVAL - pass the default value for the case if there is no value in database

 ;BPARRAY - array to store and change values in profile

 ;returns:

 ;as return value:

 ; "1^value" - if selected

 ; "-1" if timeout or uparrow

 ;via BPARRAY

 ; BPARRAY(FLDNO)=value  

EDITRX(FLDNO,RECIEN,PRMTMSG,DFLTVAL,BPARRAY) ;*/

 N DIR,RETV,RETARR

 N RECIENS,FDA,LCK,ERRARR

 S RETV=$$GETPARAM^BPSSCRSL(FLDNO,RECIEN)

 ;if data then use it, otherwise use data from parameter

 I $L($G(RETV))>0 S DFLTVAL=RETV E  S DFLTVAL=$G(DFLTVAL)

 ;prompt the user

 S RETV=$$PROMPTRX^BPSUTIL1(PRMTMSG,DFLTVAL)

 Q:RETV<0 -1

 ;save it in the database

 S BPARRAY(FLDNO)=RETV

 Q "1^"_RETV

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSSCRPR   998     printed  Apr 09, 2024@20:55:52                                                                                                                                                                                                     Page 2

BPSSCRPR  ;BHAM ISC/SS - ECME SCREEN PRINT ;05-APR-05

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

 +6       ;/**

 +7       ;FLDNO - field # in PARAMETER file to store prescription for the User Screen

 +8       ;RECIEN - user ID

 +9       ;PRMTMSG - user prompt

 +10      ;DFLTVAL - pass the default value for the case if there is no value in database

 +11      ;BPARRAY - array to store and change values in profile

 +12      ;returns:

 +13      ;as return value:

 +14      ; "1^value" - if selected

 +15      ; "-1" if timeout or uparrow

 +16      ;via BPARRAY

 +17      ; BPARRAY(FLDNO)=value  

EDITRX(FLDNO,RECIEN,PRMTMSG,DFLTVAL,BPARRAY) ;*/

 +1        NEW DIR,RETV,RETARR

 +2        NEW RECIENS,FDA,LCK,ERRARR

 +3        SET RETV=$$GETPARAM^BPSSCRSL(FLDNO,RECIEN)

 +4       ;if data then use it, otherwise use data from parameter

 +5        IF $LENGTH($GET(RETV))>0

               SET DFLTVAL=RETV

              IF '$TEST

                   SET DFLTVAL=$GET(DFLTVAL)

 +6       ;prompt the user

 +7        SET RETV=$$PROMPTRX^BPSUTIL1(PRMTMSG,DFLTVAL)

 +8        if RETV<0

               QUIT -1

 +9       ;save it in the database

 +10       SET BPARRAY(FLDNO)=RETV

 +11       QUIT "1^"_RETV

 +12      ;