; returns the list of versions loaded for a particular site
; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
; *693 - 99202 for 4.215
; check if versions are being loaded in the correct order, should be loaded in date order
; - if loading a version that has already been loaded for the site
; - if loading a version when any future versions have already been loaded for the site
; - if loading a version when the last version has not yet been loaded for the site
; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
; returns string containing list of all Reasonable Charges versions with charges, separated by ","
; RVRS - if set, returns the list of versions in reverse order
; file type/versions and relevant data
; file identifier is used with XTMP subscript 'IBCR RC ' and routine label to parse file
; file identifier : file name/description ^ file identifier ^ number of columns (for v2+)
Prompt: !!,"Select the version of Reasonable Charges to upload."
Line Location: SELVERS+5
Function Call: WRITE
Prompt: !!,?5,"Select one of the following:",!
Line Location: SELVERS+11
Function Call: WRITE
Prompt: !,?10,IBX,?20,"Reasonable Charges version ",IBX
Line Location: SELVERS+12
Function Call: WRITE
Prompt: !
Line Location: SELVERS+14
Function Call: WRITE
Prompt: " Reasonable Charges version ",IBVERS
Line Location: SELVERS+15
Function Call: WRITE
Prompt: !!,?12,"There appear to be no RC charges already loaded for "_SITE_"."
Line Location: MSGSITE+3
Function Call: WRITE
Prompt: !!,?12,"RC versions "_IBVERS_" appear to be already loaded for "_SITE_"."
Line Location: MSGSITE+4
Function Call: WRITE
Prompt: !!,?5,"*** It appears version RC v",IBVERS," has already been loaded for this site ***"
Line Location: MSGVERS+12
Function Call: WRITE
Prompt: !!,?5,">>> Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" appears to be already",!,?9,"loaded for this site. The versions should be loaded in date order."
Line Location: MSGVERS+17
Function Call: WRITE
Prompt: !!,?5,"*** Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" does not appear to be",!,?9,"loaded for this site. The versions should be loaded in date order."
Line Location: MSGVERS+22
Function Call: WRITE
Prompt: !!,?5,">>> Continue only if there will never be a need to bill events before ",!,?9,$$FMTE^XLFDT(IBVDTC,2)," for this site. If RC v"_IBVERSO_" will be needed for this site then",!,?9,"load it first."