RCXVPARM ;DAOU/ALA-AR Paramater File Editor ;02-JUL-03
;;4.5;Accounts Receivable;**201,447**;Mar 20, 1995;Build 4
;;Per VA Directive 6402, this routine should not be modified.
;
;
Q ; Quit routine if not called at Entry Point EN
EN ; Entry Point
NEW DIC,DIE,DR,DA,VDIR,VNAME,IEN,VUPDT,VDATA,SWITCH
NEW RCXVFFD,RCXVFTD,RCXVVSD,RCXVMG,RCXVBMX,RCXVSYS,RCXVOFF
NEW IN,D,DI,D0,DQ,UIN,X,Y,DIR,FILE,REC,DDH,RCXVUP,ERROR
NEW DISYS,DZ,VBQ,KEEPLOG,RCXVBNM,RCXVLDM
;
S RCXVUP(342,"1,",20.06)=$S($P($$PARAM^HLCS2(),U,3)="P":"PRODUCTION",1:"TEST")
D FILE^DIE("E","RCXVUP","ERROR")
;
S UIN=1
W @IOF
F D Q:'UIN ; Loop until user declines edit response
. D DISP W ! ; Display current parameter settings
. S UIN=$$PROMPT() ; Prompt for user edit response
. I UIN W ! D SET W @IOF ; If requested allow user to edit
. Q
ENX ; EN exit point
Q
;
;
DISP ; Display Current Settings
W !!?2,"CURRENT CBO AR Data Extract Site Parameter Settings"
; Get all all CBO AR Parameter data
S FILE=342,REC="1,"
S RCXVVSD=$$GET1^DIQ(FILE,REC,20.01) ; Vitria Stndrd Dir.
S RCXVMG=$$GET1^DIQ(FILE,REC,20.02) ; Mail Group
S RCXVBNM=$$GET1^DIQ(FILE,REC,20.05) ; Max. # of Rec.
S RCXVSYS=$$GET1^DIQ(FILE,REC,20.06,"I")
S RCXVOFF=$$GET1^DIQ(FILE,REC,20.04)
S RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
S RCXVLDM=$$GET1^DIQ(FILE,REC,20.08,"E")
; Display AR Data Extract Parameter fields
W !!?6,"FILE DIRECTORY : ",RCXVVSD
W !?6,"MAIL GROUP : ",RCXVMG
W !?6,"MAXIMUM NUMBER RECORDS : ",RCXVBNM
W !,?6,"LEGACY SITE? : ",RCXVLEG
I RCXVLEG="YES" W !,?6,"PRIMARY DOMAIN NAME : ",RCXVLDM
I RCXVSYS="P" Q
W !,?6,"TEST SYSTEM STATUS : ",RCXVOFF
Q
;
;
PROMPT() ; Prompt user to allow user to edit fields
; Return user input 0 : "NO" - Do not edit settings
; 1 : "YES" - Edit settings
S DIR(0)="Y",DIR("A")=" Do you wish to edit these settings"
S DIR("B")="NO"
D ^DIR
Q Y
;
;
SET ; SET
; Set variables for ^DIE call
S DIE="^RC(342,",DA=1
S DR="20.01;20.02;20.05"
;
; PRCA*4.5*447 Remove test only restriction on CBO Status field
S DR=DR_";20.04T~"
;
S DR=DR_";20.07"
; Prompt user to enter/edit values in DR and file data
D ^DIE
S RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
I RCXVLEG="YES" S DR="20.08"
E Q
D ^DIE
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXVPARM 2457 printed Sep 23, 2025@19:25:56 Page 2
RCXVPARM ;DAOU/ALA-AR Paramater File Editor ;02-JUL-03
+1 ;;4.5;Accounts Receivable;**201,447**;Mar 20, 1995;Build 4
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 ; Quit routine if not called at Entry Point EN
QUIT
EN ; Entry Point
+1 NEW DIC,DIE,DR,DA,VDIR,VNAME,IEN,VUPDT,VDATA,SWITCH
+2 NEW RCXVFFD,RCXVFTD,RCXVVSD,RCXVMG,RCXVBMX,RCXVSYS,RCXVOFF
+3 NEW IN,D,DI,D0,DQ,UIN,X,Y,DIR,FILE,REC,DDH,RCXVUP,ERROR
+4 NEW DISYS,DZ,VBQ,KEEPLOG,RCXVBNM,RCXVLDM
+5 ;
+6 SET RCXVUP(342,"1,",20.06)=$SELECT($PIECE($$PARAM^HLCS2(),U,3)="P":"PRODUCTION",1:"TEST")
+7 DO FILE^DIE("E","RCXVUP","ERROR")
+8 ;
+9 SET UIN=1
+10 WRITE @IOF
+11 ; Loop until user declines edit response
FOR
Begin DoDot:1
+12 ; Display current parameter settings
DO DISP
WRITE !
+13 ; Prompt for user edit response
SET UIN=$$PROMPT()
+14 ; If requested allow user to edit
IF UIN
WRITE !
DO SET
WRITE @IOF
+15 QUIT
End DoDot:1
if 'UIN
QUIT
ENX ; EN exit point
+1 QUIT
+2 ;
+3 ;
DISP ; Display Current Settings
+1 WRITE !!?2,"CURRENT CBO AR Data Extract Site Parameter Settings"
+2 ; Get all all CBO AR Parameter data
+3 SET FILE=342
SET REC="1,"
+4 ; Vitria Stndrd Dir.
SET RCXVVSD=$$GET1^DIQ(FILE,REC,20.01)
+5 ; Mail Group
SET RCXVMG=$$GET1^DIQ(FILE,REC,20.02)
+6 ; Max. # of Rec.
SET RCXVBNM=$$GET1^DIQ(FILE,REC,20.05)
+7 SET RCXVSYS=$$GET1^DIQ(FILE,REC,20.06,"I")
+8 SET RCXVOFF=$$GET1^DIQ(FILE,REC,20.04)
+9 SET RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
+10 SET RCXVLDM=$$GET1^DIQ(FILE,REC,20.08,"E")
+11 ; Display AR Data Extract Parameter fields
+12 WRITE !!?6,"FILE DIRECTORY : ",RCXVVSD
+13 WRITE !?6,"MAIL GROUP : ",RCXVMG
+14 WRITE !?6,"MAXIMUM NUMBER RECORDS : ",RCXVBNM
+15 WRITE !,?6,"LEGACY SITE? : ",RCXVLEG
+16 IF RCXVLEG="YES"
WRITE !,?6,"PRIMARY DOMAIN NAME : ",RCXVLDM
+17 IF RCXVSYS="P"
QUIT
+18 WRITE !,?6,"TEST SYSTEM STATUS : ",RCXVOFF
+19 QUIT
+20 ;
+21 ;
PROMPT() ; Prompt user to allow user to edit fields
+1 ; Return user input 0 : "NO" - Do not edit settings
+2 ; 1 : "YES" - Edit settings
+3 SET DIR(0)="Y"
SET DIR("A")=" Do you wish to edit these settings"
+4 SET DIR("B")="NO"
+5 DO ^DIR
+6 QUIT Y
+7 ;
+8 ;
SET ; SET
+1 ; Set variables for ^DIE call
+2 SET DIE="^RC(342,"
SET DA=1
+3 SET DR="20.01;20.02;20.05"
+4 ;
+5 ; PRCA*4.5*447 Remove test only restriction on CBO Status field
+6 SET DR=DR_";20.04T~"
+7 ;
+8 SET DR=DR_";20.07"
+9 ; Prompt user to enter/edit values in DR and file data
+10 DO ^DIE
+11 SET RCXVLEG=$$GET1^DIQ(FILE,REC,20.07,"E")
+12 IF RCXVLEG="YES"
SET DR="20.08"
+13 IF '$TEST
QUIT
+14 DO ^DIE
+15 QUIT
+16 ;
