BPSOSS8 ;BHAM ISC/FCS/DRS/FLS - Edit Basic ECME Parameters ;03/07/08 14:09
;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,10**;JUN 2004;Build 27
;;Per VHA Directive 2004-038, this routine should not be modified.
;
EN ;EP - Option BPS SETUP BASIC PARAMS
N DIE,DA,DR,DTOUT
W !!,"Edit Pharmacy ECME configuration",!
;
; If the BPS Setup record is not created, create it.
; Quit if there is an error.
D VERSION^BPSJINIT
;
; Check for errors
I '$D(^BPS(9002313.99,1,0)) D Q
. W !!,"BPS Setup not defined and can not be created. Quitting."
;
; Prompts and input
S DA=1
S DIE=9002313.99
S DR="3.01ECME timeout? (0 to 30 seconds)//10;.05Insurer Asleep Interval (0 to 29 minutes): //20;.06Insurer Asleep Retries (0 to 99): //10;.08Default Eligibility Pharmacy:"
D ^DIE
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOSS8 799 printed Oct 16, 2024@17:52:55 Page 2
BPSOSS8 ;BHAM ISC/FCS/DRS/FLS - Edit Basic ECME Parameters ;03/07/08 14:09
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,10**;JUN 2004;Build 27
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
EN ;EP - Option BPS SETUP BASIC PARAMS
+1 NEW DIE,DA,DR,DTOUT
+2 WRITE !!,"Edit Pharmacy ECME configuration",!
+3 ;
+4 ; If the BPS Setup record is not created, create it.
+5 ; Quit if there is an error.
+6 DO VERSION^BPSJINIT
+7 ;
+8 ; Check for errors
+9 IF '$DATA(^BPS(9002313.99,1,0))
Begin DoDot:1
+10 WRITE !!,"BPS Setup not defined and can not be created. Quitting."
End DoDot:1
QUIT
+11 ;
+12 ; Prompts and input
+13 SET DA=1
+14 SET DIE=9002313.99
+15 SET DR="3.01ECME timeout? (0 to 30 seconds)//10;.05Insurer Asleep Interval (0 to 29 minutes): //20;.06Insurer Asleep Retries (0 to 99): //10;.08Default Eligibility Pharmacy:"
+16 DO ^DIE
+17 QUIT
+18 ;
