source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVPARM.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1RCXVPARM ;DAOU-AR Paramater File Editor;02-JUL-03
2 ;;4.5;Accounts Receivable;**201**;Mar 20, 1995
3 ;
4 ;
5 Q ; Quit routine if not called at Entry Point EN
6EN ; Entry Point
7 NEW DIC,DIE,DR,DA,VDIR,VNAME,IEN,VUPDT,VDATA,SWITCH
8 NEW RCXVFFD,RCXVFTD,RCXVVSD,RCXVMG,RCXVBMX,RCXVSYS,RCXVOFF
9 NEW IN,D,DI,D0,DQ,UIN,X,Y,DIR,FILE,REC,DDH,RCXVUP,ERROR
10 NEW DISYS,DZ,VBQ,KEEPLOG,RCXVBNM,RCXVLDM
11 ;
12 S RCXVUP(342,"1,",20.06)=$S($P($$PARAM^HLCS2(),U,3)="P":"PRODUCTION",1:"TEST")
13 D FILE^DIE("E","RCXVUP","ERROR")
14 ;
15 S UIN=1
16 W @IOF
17 F D Q:'UIN ; Loop until user declines edit response
18 . D DISP W ! ; Display current parameter settings
19 . S UIN=$$PROMPT() ; Prompt for user edit response
20 . I UIN W ! D SET W @IOF ; If requested allow user to edit
21 . Q
22ENX ; EN exit point
23 Q
24 ;
25 ;
26DISP ; Display Current Settings
27 W !!?2,"CURRENT CBO AR Data Extract Site Parameter Settings"
28 ; Get all all CBO AR Parameter data
29 S FILE=342,REC="1,"
30 S RCXVVSD=$$GET1^DIQ(FILE,REC,20.01) ; Vitria Stndrd Dir.
31 S RCXVMG=$$GET1^DIQ(FILE,REC,20.02) ; Mail Group
32 S RCXVBNM=$$GET1^DIQ(FILE,REC,20.05) ; Max. # of Rec.
33 S RCXVSYS=$$GET1^DIQ(FILE,REC,20.06,"I")
34 S RCXVOFF=$$GET1^DIQ(FILE,REC,20.04)
35 S RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
36 S RCXVLDM=$$GET1^DIQ(FILE,REC,20.08,"E")
37 ; Display AR Data Extract Parameter fields
38 W !!?6,"FILE DIRECTORY : ",RCXVVSD
39 W !?6,"MAIL GROUP : ",RCXVMG
40 W !?6,"MAXIMUM NUMBER RECORDS : ",RCXVBNM
41 W !,?6,"LEGACY SITE? : ",RCXVLEG
42 I RCXVLEG="YES" W !,?6,"PRIMARY DOMAIN NAME : ",RCXVLDM
43 I RCXVSYS="P" Q
44 W !,?6,"TEST SYSTEM STATUS : ",RCXVOFF
45 Q
46 ;
47 ;
48PROMPT() ; Prompt user to allow user to edit fields
49 ; Return user input 0 : "NO" - Do not edit settings
50 ; 1 : "YES" - Edit settings
51 S DIR(0)="Y",DIR("A")=" Do you wish to edit these settings"
52 S DIR("B")="NO"
53 D ^DIR
54 Q Y
55 ;
56 ;
57SET ; SET
58 ; Set variables for ^DIE call
59 S DIE="^RC(342,",DA=1
60 S DR="20.01;20.02;20.05"
61 I RCXVSYS'="P" S DR=DR_";20.04T~"
62 ;
63 S DR=DR_";20.07"
64 ; Prompt user to enter/edit values in DR and file data
65 D ^DIE
66 S RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
67 I RCXVLEG="YES" S DR="20.08"
68 E Q
69 D ^DIE
70 Q
71 ;
Note: See TracBrowser for help on using the repository browser.