source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOSS8.m@ 780

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

initial load of WorldVistAEHR

File size: 932 bytes
RevLine 
[613]1BPSOSS8 ;BHAM ISC/FCS/DRS/FLS - Edit Basic ECME Parameters ;06/01/2004
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
5EN ;EP - Option BPS SETUP BASIC PARAMS
6 N DIE,DA,DR,DIDEL,DTOUT
7 W !!,"Edit Pharmacy ECME configuration",!
8 ;
9 ; If the BPS Setup record is not created, create it.
10 ; Quit if there is an error.
11 I $D(^BPS(9002313.99,1,0)) S DA=1
12 E S DA=$$INIT()
13 ;
14 ; Check for errors
15 I DA'=1!'$D(^BPS(9002313.99,1,0)) D Q
16 . W !!,"BPS Setup not defined and can not be created. Quitting."
17 ;
18 ; Prompts and input
19 S DIE=9002313.99
20 S DR="3.01R~ECME timeout? (0 to 30 seconds) //10"
21 D ^DIE
22 Q
23 ;
24 ; INIT - Create record 1 in the BPS SETUP file
25INIT() ;
26 ; Set up .01 node and call UPDATE
27 N FN,IEN,FDA,MSG
28 S FN=9002313.99,IEN(1)=1
29 S FDA(FN,"+1,",.01)="MAIN SETUP ENTRY"
30 S FDA(FN,"+1,",3.01)=10
31 D UPDATE^DIE("","FDA","IEN","MSG")
32 Q +$G(IEN(1))
Note: See TracBrowser for help on using the repository browser.