| 1 | RCXVPARM ;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
|
|---|
| 6 | EN ; 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
|
|---|
| 22 | ENX ; EN exit point
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | DISP ; 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 | ;
|
|---|
| 48 | PROMPT() ; 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 | ;
|
|---|
| 57 | SET ; 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 | ;
|
|---|
